XMas 2014 PurePunch Contest

[electrochrisso]

And where is GTA5 electrochrisso ?!!

Nice program

Thanks majikeyric

Unfortunately I went one line over for GTA5.

[majikeyric]

[kernadec]

hello
modifications : MANDALAS 3D
-delete the command 'ALT'
-added the displacement simultané of the 4 colors
code update

best regards

[electrochrisso]

hello
modifications : MANDALAS 3D
-delete the command 'ALT'
-added the displacement simultané of the 4 colors
code update

best regards

I like the mods, it works much better
I have a suggestion and you still have enough room to spare, is to do a check for screen resolution and set OpenScreen so the program does not hang like on my netbook which has a resolution of 1024 x 600, you shouldn't need to do any extra adjustments as it still looks ok on 1024 x 600, after I make the change, which will probably be about the lowest resolution used these days.

[kernadec]

hello,
Yes,good idea
Thanks electrochrisso for the suggestions of the options screens, It's very nice of your part.
so I modified the code to manage the resolution or window
I hope that it will be appropriate for all
code update
best regards

[Vera]

Hi kernadec,
thanks for your impressive Mandala
Not really knowing what I'm changing there, it turns out completely different every time I give it go
It runs fine on Linux (after defining the color constants).


Hi electrochrisso,
I'm really fond of your little tool
... and hope you don't mind me having added a sticky button to it, as it tends to vanish so quickly.

cheers ~ Vera

[Vera]

Hello @all,

this is my contribution to the contest
... or rather a revenge of joy for all the pleasure this punching brings along

~ have a good time ~ Vera

Code: Select all

;*****************************************************************************
;*
;* XMas 2014 PurePunch contest
;* PureBasic 5.22
;* 64 lines of 80 chars of code + 128 lines of data
;*
;* Name     : ColorSpektakel's Timeout
;* Author   : Vera
;* Date     : 15.12.14 (v2)
;*
;* Notes    : Left- and RightClick to en-/decrease the timeout (step 20)
;*            Beyond fullspeed you'll reach a halt and toggling the timeout
;*            you may enjoy paused random sights.    (see title for timeout)
;*
;*****************************************************************************
DataSection  
Names:
Data.s "Acid Green", "Aero", "Aero Blue", "African Violet", "Air Force Blue"
Data.s "Yellow Rose", "Air Superiority Blue", "Alabama Crimson", "Alizar Hui"
Data.s "Alloy Orang","Almond", "Amaranth","Amaranth DeepPurple","Amaranth Pink"
Data.s "Amaranth Purple", "AmaranthRed", "Amber", "Amber SAE", "American Rose"
Data.s "Amethyst","Android Green","Anti White","Antique Brass","Antique Bronze"
Data.s "Antique Ruby", "Antique White", "Ao English", "Apple Green", "Apricot"
Data.s "Aqua", "Aquamarine","Army Green", "Artichoke", "Aryl Yellow","Ash Grey"
Data.s "Asparagus", "Atomic Tangerine", "Auburn", "Aureolin", "Avocado"
Data.s "Azure", "Yellow Process", "Wild Orchid", "Azureish White", "Baby Blue"
Data.s "Baby Blue Eyes", "Baby Pink", "Crimson", "Ball Blue", "Banana Mania"
Data.s "Banana Yellow", "Bangladesh Green", "Barbie Pink", "Barn Red"
Data.s "Battleship Grey", "Bazaar", "Beaver", "Blush", "Bdazzled Blue"
Data.s "Big Dip Oruby", "Bisque", "Vivid Yellow", "Bistre Brown","Bitter Lemon"
Data.s "Bittersweet","Bitters Shimmer", "Urobilin","Black Bean","Black Leather"
Data.s "Black Olive", "Blanched Almond", "Blast Bronze","Blizzard Blue","Blond"
Data.s "Blue Crayola", "Blue Munsell","Blue NCS", "Blue Pantone","Blue Pigment"
Data.s "Blue RYB", "Blue Gray","Blue Green","Blue Lagoon","Blue Magenta Violet"
Data.s "Blue Sapphire","Blue Violet", "BlueYonder", "Blueberry","Blush", "Bole"
Data.s "Bondi Blue","Bone","Boston University Red","Bottle Green","Boysenberry"
Data.s "Brandeis Blue", "Brick Red", "Bright Cerulean", "Bright Green"
Data.s "Bright Lavender", "Bright Lilac", "Bright Maroon", "Bright Navy Blue"
Data.s "Bright Pink", "Bright Ube", "Brilliant Azure", "Brilliant Lavender"
Data.s "Brilliant Rose", "Brink Pink", "British Racing Green", "Bronze"
Data.s "Bronze Yellow","Brown Web","Brown Nose","Brown Yellow","BrunswickGreen"
Data.s "Bubble Gum", "Bubbles", "Buff", "Bud Green", "Burgundy", "Burlywood"
Data.s "Burnt Orange", "Burnt Sienna", "Burnt Umber", "Byzantine", "Byzantium"
Data.s "Cadet", "Wisteria", "Yale Blue","Wine Dregs","Windsor Tan","Vivid Red"
Data.s "Tangerine Yellow", "Tea Rose", "Sunglow", ""
ColorHx:
Data.l $1ABFB0, $E8B97C, $E5FFC9, $BE84B2, $A88A5D, $00F0FF, $C1A072, $2A00AF
Data.l $3626E3, $1062C4, $CDDEEF, $502BE5, $4F27AB, $BB9CF1, $4F27AB, $2D21D3
Data.l $00BFFF, $007EFF, $3E03FF, $CC6699, $39C6A4, $F4F3F2, $7595CD, $1E5D66
Data.l $2D1B84, $D7EBFA, $008000, $00B68D, $B1CEFB, $FFFF00, $D4FF7F, $20534B
Data.l $79978F, $6BD6E9, $B5BEB2, $6BA987, $6699FF, $2A2AA5, $00EEFD, $038256
Data.l $FF7F00, $00EFFF, $A270D4, $F4E9DB, $F0CF89, $F1CAA1, $C2C2F4, $3C14DC
Data.l $CDAB21, $B5E7FA, $35E1FF, $4E6A00, $8A21E0, $020A7C, $828484, $7B7798
Data.l $70819F, $835DDE, $94582E, $42259C, $C4E4FF, $02E3FF, $177196, $0DE0CA
Data.l $5E6FFE, $514FBF, $21ADE1, $020C3D, $293525, $363C3B, $CDEBFF, $A4A5DE
Data.l $EEE5AC, $BEF0FA, $FE751F, $AF9300, $BD8700, $A81800, $993333, $FE4702
Data.l $CC9966, $BA980D, $A1935E, $923555, $806112, $E22B8A, $A77250, $F7864F
Data.l $835DDE, $3B4479, $B69500, $C9DAE3, $0000CC, $4E6A00, $603287, $FF7000
Data.l $5441CB, $D6AC1D, $00FF66, $E494BF, $EF91D8, $4821C3, $D27419, $7F00FF
Data.l $E89FD1, $FF9933, $FFBBF4, $A355FF, $7F60FB, $254200, $327FCD, $007073
Data.l $2A2AA5, $23446B, $6699cc, $3E4D1B, $CCC1FF, $FFFEE7, $82DCF0, $61B67B
Data.l $200080, $87B8DE, $0055CC, $5174E9, $24338A, $A433BD, $632970, $726853
Data.l $DCA0C9, $924D0F, $473167, $0255A7, $1A0DF7, $00CCFF, $7983F8, $33CCFF
EndDataSection
Structure ColorList: Name$: Color$:EndStructure:Global NewList MCL.ColorList()
Restore Names:Repeat:Read.s a$:If a$:AddElement(MCL()):MCL()\Name$ = a$:EndIf
Until a$ = "":Restore ColorHx:ForEach MCL():Read.l = colH
hex.s = "$" + RSet(Hex(colH, #PB_Long), 6, "0"):MCL()\Color$ = hex:Next
ExamineDesktops():dw = DesktopWidth(0):dh = DesktopHeight(0):yN$ = "@ all :-)"
in$ = InputRequester("Like 2", "apply your name", "?")
If in$ > "" And in$ <> "?":yN$ = in$:EndIf
titl.s = "ColorSpektakel's Timeout ":CreateImage(1, dw, dh, 32)
OpenWindow(1,0,0,dw,dh,titl,#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
ImageGadget(1, 0, 0, dw, dh, 0):SetWindowColor(1, $131313):timeout.i = 101
AddWindowTimer(1, 1, timeout)
Global font = FontID(LoadFont(#PB_Any, "Courier", 16, #PB_Font_Bold))
Global font2 = FontID(LoadFont(#PB_Any, "monospace", 10, #PB_Font_Bold))
Repeat:Select WaitWindowEvent():Case #PB_Event_CloseWindow:End
Case #PB_Event_Timer:Select EventTimer():Case 1:T.f=ElapsedMilliseconds()*0.001
StartDrawing(ImageOutput(1)):Box(0, 0, dw, dh, $131313)
SelectElement(MCL(),Random(127)):DrawingFont(font2):xx= Tan(T/222)*696
xy= Tan(T/222)*696:If Abs(xy) >dh Or xy< -9:xy= 210:xx= 210:EndIf
DrawText(430+xx, -9+xy, "=^°v°^=", $00ccff, $131313):l = 290
For i = 1 To Len(yN$):N.s = Mid(yN$, i, 1)
DrawText(l+xx,-159+xy,N,RGB(Random(255),Random(255),Random(255)),$131313)
l + 10:Next:DrawingFont(font)
DrawText(76+Cos(T/3)*70,573+Sin(T/3)*70,MCL()\Name$,Val(MCL()\Color$),$131313)
DrawText(370 + xx, -69 + xy, "Happy", Val(MCL()\Color$), $131313)
DrawText(320 + xx, -119 + xy, "Times", Val(MCL()\Color$), $131313)
For c = 1 To 9:SelectElement(MCL(), Random(127)):coli = Val(MCL()\Color$)
Circle(100 + Cos(T*c)*80, 100 + Sin(T*c)*80, 3, coli):Next:For c = 1 To 38
SelectElement(MCL(), Random(127)):coli = Val(MCL()\Color$)
Circle(300 + Cos(T*c)*180, 300 + Sin(T*c)*180, 8, coli):Next:For c = 1 To 11
For d = 1 To 8:SelectElement(MCL(), Random(127)):coli = Val(MCL()\Color$)
Ellipse(300+Sin(T*d)*93, 300+Cos(T*d)*93, 13, 9, coli)
Circle(300 +Sin(T*d)*30, 300 +Cos(T*d)*30, 2,coli):Next d:Next c:For c=1 To 9
SelectElement(MCL(), Random(127)):coli = Val(MCL()\Color$)
Circle(500 + Cos(T*c)*80, 500 + Sin(T*c)*80, 3, coli):Next:StopDrawing()
SetGadgetState(1,ImageID(1)):EndSelect:Case #PB_Event_Gadget:Select EventType()
Case #PB_EventType_LeftClick:RemoveWindowTimer(1, 1):timeout + 20
AddWindowTimer(1, 1, timeout):SetWindowTitle(1, titl + "- " + Str(timeout))
Case  #PB_EventType_RightClick:If timeout = 1 : RemoveWindowTimer(1, 1)
SetWindowTitle(1, titl + "- zero"):Else:RemoveWindowTimer(1, 1):timeout - 20
SetWindowTitle(1, titl + "- " + Str(timeout)):AddWindowTimer(1, 1, timeout)
EndIf:EndSelect:EndSelect:ForEver

edit: fixed missing text apearence on WIN

[graph100]

How do you write such a program?

1. Just programming something with indentation and structure ... like other programs?
2. Optimizing and compressing the source code.

How good can you predict before optimizing/compressing if your program will fit the rules?

Thank you,
guido

Hi !

Falsam pretty much answered, but I will add that in general, you can compress around 10 times a readable code with some comments in a punched code.
That helps when programming for a punch.

I would add to your 2 bullet points a '3. Cutting out the unnecessary'
But it be keep to a minimum if you wrapped your code nicely

I hope to see other nice entries like all the current one !

[falsam]

[3D] Snowman Riding on ice : It's cold, it snows. A snowman riding on ice.



You can use the Left key, Right, Up and Esc key to exit.

Works with Windows 7, it is more difficult on Windows 8 with the sub-system OpenGL.

Code: Select all

;*****************************************************************************
;*
;* XMas 2014 PurePunch contest
;* PureBasic 5.xx or SpiderBasic 1.00 Beta
;* 64 lines of 80 chars of code + 128 lines of data
;*
;* Name     : Snowman Riding on ice 
;* Author   : falsam
;* Date     : December 2014
;* Notes    : Windows 7 Only Pure Basic 5.30 ++ - Keyboar : Left/Right/Up & Esc
;*            Windows 8 With OpenGL system or Directx 9  
;******************************************************************************
Macro Pr:EndMacro:Macro M:Macro:EndMacro:M E:End:End#M;;;;;;;;;;;;;;;;;;;;;;;;;
M I:If:E#M:M EI:EndIf:E#M:M RP:Repeat:E#M:M CE:CreateEntity:E#M:M EL:Else:E#M;;
M SOD:StopDrawing:E#M:M SAD:StartDrawing:E#M:M CN:CreateNode:E#M:M FR:For:E#M;;
M MT:MaterialID:E#M:M CMT:CreateMaterial:E#M:M CT:CreateTexture:E#M;;;;;;;;;;;;
M TI:TextureID:E#M:M TXO:TextureOutput:E#M:M MI:MeshID:E#M:M BX:Box:E#M;;;;;;;;
M RE:RotateEntity:E#M:M EID:EntityID:E#M:M CS:CreateSphere:E#M:M RA:RGBA:E#M;;;
M AN:AttachNodeObject:E#M:M ELI:ElseIf:E#M:M K:KeyboardPushed:E#M:M L:L:E#M;;;;
M EPB:EntityPhysicBody:E#M:M RD:Random:E#M:M CC:CreateCylinder:E#M:s=50000;;;;;
M NX:Next:E#M:M RN:RotateNode:E#M:M SE:ScaleEntity:E#M:M SPL:AddSplinePoint:E#M
M CR:Create:E#M:M EN:Entity:E#M:M PT:Particle:E#M:M ML:Material:E#M;;;;;;;;;;;;
M CL:Color:E#M:M CM:Camera:E#M:M WW:Window:E#M:M CI:Circle:E#M:M IN:Init:E#M;;;
Global sp,ti.f,x0.f,y0.f,z0.f,sv.f,tslf.f:Dim spa(100,100):IN#Engine3D();;;;;;;
IN#Keyboard():IN#Sprite():IN#Mouse():IN#Movie():I CR#File(1,"1"):M ST:Step:E#M;
WriteData(1,?ms,?me-?ms):CloseFile(1):EI:LoadMovie(0, "1"):Open#WW(0,0,0,0,;;;;
0,"",16777216):W=WW#Width(0,1):H=WW#Height(0,1):Open#WW#edScreen(WW#ID(0),0,0,;
W,H):Ambient#CL($7F7F7F):CR#Light(-1,$97FB97,-20,20,30):WorldShadows(2);;;;;;;;
CR#CM(0,0,0,100,100):CM#Back#CL(0,$C9B691):Move#CM(0,s,s,s,0):CM#LookAt(0,0,0,;
0):CT(0,32,32):SAD(TXO(0)):BX(0,0,32,32,$000000):SOD():CMT(0,TI(0)):CT(1,32,32)
SAD(TXO(1)):BX(0,0,32,32,$0000FF):SOD():CMT(1,TI(1)):CT(2,32,32):SAD(TXO(2));;;
BX(0,0,32,32,$FAE6E6):SOD():CMT(2,TI(2)):CT(3,128,128):SAD(TXO(3)):BX(0,0,128,;
128,$87B8DE):FR x=0 To 128 ST 4:LineXY(x,0,x,128,$0):NX:SOD():CMT(3,TI(3));;;;;
CT(4,128,128):SAD(TXO(4)):BX(0,0,128,128,$32CD9A):FR x=1 To 1024:CI(RD(128,0),;
RD(128,0),1,$87B8DE):CI(RD(128,0),RD(128,0),1,$FFFFFF):NX:SOD():CMT(4,TI(4));;;
CE(0,MI(CC(-1,50,0.1)),MT(2)):EPB(0,1):FR r=0 To 359 ST 15:x=50*Cos(r*#PI/180);
z=50*Sin(r*#PI/180):w=RD(12,6):h=RD(5,2):x=CE(-1,MI(CS(-1,1)),MT(2),x,h/4,z);;;
SE(x,w,h,w):EPB(x,1):RE(x,0,90+r,0):NX:CN(0,0,0,0):CN(1,0,1.7,0):AN(0,;;;;;;;;; 
NodeID(1)):CN(2,0,1,0):AN(1,NodeID(2)):CE(1,MI(CS(-1,1.0)),0,0,0.8,0):AN(0,;;;;
EID(1)):CE(2,MI(CS(-1,0.8)),0,0,0,0):AN(1,EID(2)):Fog($FFFFFF,1,40,90);;;;;;;;;
CE(3,MI(CS(-1,0.7)),0,0,0,0):AN(2,EID(3)):CE(4,MI(CS(-1,0.1)),MT(0),-0.3,0.3,;;
0.5):AN(2,EID(4)):CE(5,MI(CS(-1,0.1)),MT(0),0.3,0.3,0.5):AN(2,EID(5)):CE(6,;;;;
MI(CC(-1,0.05,0.4)),MT(1),0,0.2,0.8):AN(2,EID(6)):RE(6,90,0,0):CE(7,MI(CC(-1,;;
0.1,2)),0,-1,0.5,0):AN(1,EID(7)):RE(7, 0, 0, 60):CE(8,MI(CC(-1,0.1,2)),0,1,0.5,
0):AN(1,EID(8)):RE(8,0,0,-60):CE(9,MI(CS(-1,0.2)),MT(0),0,1,0.9):AN(0,EID(9));;
CE(10,MI(CS(-1,0.15)),MT(0),0,0,0.75):AN(1,EID(10)):CE(11,MI(CS(-1,0.15)),;;;;;
MT(0),0,0.4,0.65):AN(1,EID(11)):RN(0, 0,0,-10):RN(2,0,-55,0):PL=CE(-1,MI(CC(-1,
0.5,5)),0,0,5,0):Hide#EN(PL,1):EPB(PL,2,1,1,0.5):UsePNGImageEncoder();;;;;;;;;;
CR#Image(0,32,32,32,-1):SAD(ImageOutput(0)):DrawingMode(8):BX(0,0,32,32,RA(0,0,
0,0)):DrawingMode(16):CI(16,16,5,RA(255,255,255,80)):CI(16,16,2,RA(255,255,255,
255)):SOD():SaveImage(0,"2",4673104):Add3DArchive(GetCurrentDirectory(),0);;;;;
CMT(0,TI(LoadTexture(-1,"2"))):ML#BlendingMode(0,3):Set#ML#CL(0,3,$FFFFFF);;;;;
CR#PT#Emitter(0,100,100,1,1,0,5,0):PT#ML(0,MT(0)):PT#Size(0,0.5,0.5);;;;;;;;;;;
PT#EmissionRate(0,500):PT#EmitterDirection(0,0.00,-0.01,0.00):PT#TimeToLive(0,;
5.0,10.0):CR#PT#Emitter(20,100,100,0.1,1,0,0,0):PT#ML(20,MT(0)):PT#Size(20,1.5,
0.50):PT#EmissionRate(20,3000):PT#Velocity(20,0.0,0.0):PT#CL#Range(20,RA(221,;;
160,221,255),RA(255,182,193,255)):PT#EmitterDirection(20, 0, 0.00002, 0);;;;;;;
PT#TimeToLive(20,0,5):sp=CR#Spline(-1):SPL(sp,0,0,0):SPL(sp,0,0,12):SPL(sp,-10,
0,30):SPL(sp,-24,0,7):SPL(sp,-12,0,10):SPL(sp,0,0,0):sv=2.00:RP:RP; Event ;;;;;  
Ev=WW#Event():I MovieStatus(0)=0:I mp=0:PlayMovie(0,WW#ID(0)):mp=1:EI:EL;;;;;;;
I MovieStatus(0)>0:mp=0:EI:EI:Select Ev:Case 13116:E:EndSelect:Until Ev=0;;;;;;
ExamineKeyboard():I K(1):Break:EI:ComputeSpline(sp,ti):x0=SplineX(sp);;;;;;;;;;
y0=SplineY(sp):z0=SplineZ(sp):NodeLookAt(0,x0,y0,z0,1,0,0):MoveNode(0,x0,y0,z0,
0):ti+sv*tslf/30:I ti>1:ti=0:EI:I K(200):ps=-2:ELI K(208):ps=0:EL:ps=0:EI;;;;;;
I K(203):RE(PL,0,2.5,0,1):ELI K(205):RE(PL,0,-2.5,0,1):EI:I a<35:s=RD(1,0);;;;;
I s=0:s=-1:EL:s=1:EI:x=RD(30,5):z=RD(30,5):I spa(x,z)=0:FR r=1 To 4:ie=CE(-1,;;
MI(CS(-1, 0.55-r/10)),MT(3),x*s,r/4,z*s):NX:a+1:r=RD(90,0):ie=CE(-1,MI(CS(-1,;;
1.00, 4, 5)),MT(4),x*s,1.5,z*s):SE(ie,1.5,0.5,1.5):RE(ie,0,r,0):EPB(ie,1);;;;;;
ie=CE(-1,MI(CS(-1,1.00,4,5)),MT(4),x*s,2.2,z*s):SE(ie,1.2,0.8,1.2):RE(ie,0,r,0)
ie=CE(-1,MI(CS(-1,1.00,4,5)),MT(4),x*s,3.3,z*s):SE(ie,0.7,1.4,0.7):RE(ie,0,r,0)
spa(x,z)=1:EI:s=1:r=0:s0=1:EI:I r<512:RN(2,0,0.2*s,0,1):r+1:EI:I r=512:s*-1:r=0
EI:I r0<100:RN(0,0,0,0.2*s0,1):RN(1,0.2*s0,0,0,1):r0+1:EI:I r0=100:s0*-1:r0=0;;
EI:I ps<> 0 Or CM#Y(0)>3.52:Move#EN(PL,0,0,ps,2):EI:CM#Follow(0,EID(PL),180,;;;
EN#Y(PL),-1,0.1,0.1):tslf=RenderWorld(80)/1000:FlipBuffers():ForEver;;;;;;;;;;;
DeleteFile("1",2):DeleteFile("2",2);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DataSection:ms:;###############################################################
Data.q $060000006468544D,$544D600005000100,$FF00350000006B72,$474E4D5957410703,
$6D65540D04FF0052,$53656D69542F6F70,$00000259FF006769,$0020A1070351FF00,;;;;;01
$00081802030458FF,$006B72544D002FFF,$450A03FF005D0300,$206F6E616950202E,;;;;;02
$6C6F520C04FF0031,$352D435320646E61,$4A90408104C00035,$815F4A00004A605F,;;;;;03
$48305F4800004A10,$000047605F470000,$4500004710815F47,$605F43000045305F,;;;;;04
$0043605F43000043,$40000042605F4200,$815F3E000040605F,$3E605F3E00003E40,;;;;;05
$003E10815F3E0000,$3E000040305F4000,$605F3E00003E605F,$0045605F4500003E,;;;;;06
$40000042605F4200,$605F3E000040605F,$0043605F4300003E,$00004740815F4700,;;;;;07
$5F4A00004A605F4A,$305F4800004A1081,$0047605F47000048,$00004710815F4700,;;;;;08
$5F43000045305F45,$43605F4300004360,$000042605F420000,$5F3E000040605F40,;;;;;09
$605F3E00003E4081,$4810815F4800003E,$000047305F470000,$5F47000045605F45,;;;;;10
$45605F4500004760,$000043605F430000,$5F40000045605F45,$42605F4200004060,;;;;;11
$004340815F430000,$4A00004A605F4A00,$5F4800004A10815F,$47605F4700004830,;;;;;12
$004710815F470000,$43000045305F4500,$605F43000043605F,$0042605F42000043,;;;;;13
$3E000040605F4000,$5F3E00003E40815F,$10815F3E00003E60,$0040305F4000003E,;;;;;14
$3E00003E605F3E00,$605F4500003E605F,$0042605F42000045,$3E000040605F4000,;;;;;15
$605F4300003E605F,$4740815F47000043,$00004A605F4A0000,$4800004A10815F4A,;;;;;16
$605F47000048305F,$4710815F47000047,$000045305F450000,$5F43000043605F43,;;;;;17
$42605F4200004360,$000040605F400000,$3E00003E40815F3E,$815F4800003E605F,;;;;;18
$47305F4700004810,$000045605F450000,$5F45000047605F47,$43605F4300004560,;;;;;19
$000045605F450000,$5F42000040605F40,$40815F4300004260,$004A605F4A000043,;;;;;20
$00004A10815F4A00,$5F47000048305F48,$10815F4700004760,$0045305F45000047,;;;;;21
$43000043605F4300,$605F42000043605F,$0040605F40000042,$00003E40815F3E00,;;;;;22
$5F3E00003E605F3E,$305F4000003E1081,$003E605F3E000040,$4500003E605F3E00,;;;;;23
$605F42000045605F,$0040605F40000042,$4300003E605F3E00,$815F47000043605F,;;;;;24
$4A605F4A00004740,$004A10815F4A0000,$47000048305F4800,$815F47000047605F,;;;;;25
$45305F4500004710,$000043605F430000,$5F42000043605F43,$40605F4000004260,;;;;;26
$003E40815F3E0000,$4800003E605F3E00,$5F4700004810815F,$45605F4500004730,;;;;;27
$000047605F470000,$5F43000045605F45,$45605F4500004360,$000040605F400000,;;;;;28
$5F43000042605F42,$002FFF0000434081,$910200006B72544D,$50202E450A03FF00,;;;;;29
$FF0031206F6E6169,$646E616C6F520C04,$C10035352D435320,$47605F4791408104,;;;;;30
$004710815F470000,$43000045305F4500,$815F3E000043605F,$3C305F3C00003E10,;;;;;31
$00003B605F3B0000,$5F3E000040605F40,$3C605F3C00003E60,$003B40815F3B0000,;;;;;32
$3C00003B605F3B00,$5F3C00003C20825F,$605F3C00003C2082,$3B40815F3B00003C,;;;;;33
$003E40815F3E0000,$47000047605F4700,$5F4500004710815F,$43605F4300004530,;;;;;34
$003E10815F3E0000,$3B00003C305F3C00,$605F4000003B605F,$003E605F3E000040,;;;;;35
$3B00003C605F3C00,$5F4260003B40815F,$825F3E0000422082,$20825F3C00003E20,;;;;;36
$3B40815F3B00003C,$000047605F470000,$4500004710815F47,$605F43000045305F,;;;;;37
$3E10815F3E000043,$00003C305F3C0000,$5F4000003B605F3B,$3E605F3E00004060,;;;;;38
$00003C605F3C0000,$3B00003B40815F3B,$825F3C00003B605F,$20825F3C00003C20,;;;;;39
$003C605F3C00003C,$00003B40815F3B00,$4700003E40815F3E,$815F47000047605F,;;;;;40
$45305F4500004710,$000043605F430000,$3C00003E10815F3E,$605F3B00003C305F,;;;;;41
$0040605F4000003B,$3C00003E605F3E00,$815F3B00003C605F,$20825F4260003B40,;;;;;42
$3E20825F3E000042,$003C20825F3C0000,$00003B40815F3B00,$5F47000047605F47,;;;;;43
$305F450000471081,$0043605F43000045,$00003E10815F3E00,$5F3B00003C305F3C,;;;;;44
$40605F4000003B60,$00003E605F3E0000,$5F3B00003C605F3C,$605F3B00003B4081,;;;;;45
$3C20825F3C00003B,$003C20825F3C0000,$3B00003C605F3C00,$5F3E00003B40815F,;;;;;46
$605F4700003E4081,$4710815F47000047,$000045305F450000,$5F3E000043605F43,;;;;;47
$305F3C00003E1081,$003B605F3B00003C,$3E000040605F4000,$605F3C00003E605F,;;;;;48
$3B40815F3B00003C,$004220825F426000,$00003E20825F3E00,$3B00003C20825F3C,;;;;;49
$2FFF00003B40815F,$0200006B72544D00,$202E450A03FF0073,$0031206F6E616950,;;;;;50
$6E616C6F520C04FF,$0035352D43532064,$305F2B92208204C2,$0032305F3200002B,;;;;;51
$00003740815F3700,$5F3200002B305F2B,$40815F3700003230,$3720825F37000037,;;;;;52
$00002B305F2B0000,$5F37000032305F32,$825F360000374081,$20825F3600003620,;;;;;53
$3220825F32000036,$00002B305F2B0000,$5F37000032305F32,$305F2B0000374081,;;;;;54
$0032305F3200002B,$00003740815F3700,$5F3200002B305F2B,$40815F3700003230,;;;;;55
$3720825F37000037,$00002B305F2B0000,$5F37000032305F32,$825F390000374081,;;;;;56
$20825F3700003920,$3920825F39000037,$003240815F320000,$3200002B305F2B60,;;;;;57
$815F37000032305F,$2B305F2B00003740,$000032305F320000,$3700003740815F37,;;;;;58
$5F2B00003720825F,$32305F3200002B30,$003740815F370000,$00003620825F3600,;;;;;59
$3200003620825F36,$5F2B00003220825F,$32305F3200002B30,$003740815F370000,;;;;;60
$3200002B305F2B00,$815F37000032305F,$2B305F2B00003740,$000032305F320000,;;;;;61
$3700003740815F37,$5F2B00003720825F,$32305F3200002B30,$003740815F370000,;;;;;62
$00003920825F3900,$3900003720825F37,$5F3200003920825F,$305F2B6000324081,;;;;;63
$0032305F3200002B,$00003740815F3700,$5F3200002B305F2B,$40815F3700003230,;;;;;64
$3720825F37000037,$00002B305F2B0000,$5F37000032305F32,$825F360000374081,;;;;;65
$20825F3600003620,$3220825F32000036,$00002B305F2B0000,$5F37000032305F32,;;;;;66
$305F2B0000374081,$0032305F3200002B,$00003740815F3700,$5F3200002B305F2B,;;;;;67
$40815F3700003230,$3720825F37000037,$00002B305F2B0000,$5F37000032305F32,;;;;;68
$825F390000374081,$20825F3700003920,$3920825F39000037,$003240815F320000,;;;;;69
$6B72544D002FFF00,$0A03FF0089010000,$6F6E616950202E45,$6F520C04FF003120,;;;;;70
$2D435320646E616C,$93208204C3003535,$2B00002B20825F2B,$5F3000002B20825F,;;;;;71
$825F2B0000302082,$20825F2D00002B20,$3220825F3200002D,$002B20825F2B0000,;;;;;72
$00002B20825F2B00,$2B00002B20825F2B,$5F3000002B20825F,$825F2B0000302082,;;;;;73
$20825F3200002B20,$3220825F32000032,$003040815F300000,$2B000032605F3200,;;;;;74
$5F2B60002B40815F,$825F2B00002B2082,$20825F3000002B20,$2B20825F2B000030,;;;;;75
$002D20825F2D0000,$00003220825F3200,$2B00002B20825F2B,$5F2B00002B20825F,;;;;;76
$825F2B00002B2082,$20825F3000002B20,$2B20825F2B000030,$003220825F320000,;;;;;77
$00003220825F3200,$3200003040815F30,$815F2B000032605F,$20825F2B60002B40,;;;;;78
$2B20825F2B00002B,$003020825F300000,$00002B20825F2B00,$3200002D20825F2D,;;;;;79
$5F2B00003220825F,$825F2B00002B2082,$20825F2B00002B20,$2B20825F2B00002B,;;;;;80
$003020825F300000,$00002B20825F2B00,$3200003220825F32,$5F3000003220825F,;;;;;81
$605F320000304081,$2B40815F2B000032:Data.b $00,$00,$FF,$2F,$00;;;;;;;;;;;;;;;82  
me: :EndDataSection;;;;;;;;;;;;;;;;;; FALSAM (2014) ;;;;;;;;;;;;;;;;;;;;;;;;;83

[helpy]

If I look at all these great stuff, I will have no chance ...

[falsam]

If I look at all these great stuff, I will have no chance ...

Have fun, this is the most important

[majikeyric]

I hope to see other nice entries like all the current one !

And you don't enter the competition this time graph100 ???

[kernadec]

hello, vera
thank, for your punch
I must admit that one must be very lucky
Click on the color of the name that appears on the screen

thanks For your feedback For linux
on reflection, I was editing the keyboard combinations
constant colors are replaced by the RGB() function
I also changed keyboard commands F1 to F10 replaced by numbers from 1 To 10
that seems To be more compatible For Mac Windows Linux
code update
best regards

[Vera]

Hi,

I got a friendly hint that the texts wouldn't apear on WINdows ... and that really needed to be fixed ... and I updated my code above.
So you might like to give it a second try if you already did

I must admit that one must be very lucky
Click on the color of the name that appears on the screen

Yes ... it also crossed mind it could be nice to have a gimmik ala 'catch a color' in it too ... maybe in two years

I'll give your updated version a look soon and let you know how it spins and turns.

cheers ~ Vera

[kernadec]

Hello,
thank vera
New...
I managed a integrate a random mode on 4 colors in 64 lines of 80 characters
to make this more fun
Thanks to majikeyric for his punch cruncher, because without him I would not have known to do so.
Merry Christmas to all
code updated

best regards