XMas 2014 PurePunch Contest

[davido]

@kernadec,
Some nice improvements.
Really like the screen option. My monitor does not like full screen.

[Vera]

The random colors are really good kernadec

Your recent versions run fine for me except for the home_key which isn't recognized. Might be a local issue. I exchanged it with Key_H and it works well that way ... and I'm glad I did, 'cos with fewer lines I have a better chance to understand what I'm seeing

I must admit, your Mandala 'turner' is kind of addictive

***

Today I strayed around the other contest threads and saw that falsam started a link collection of all current contributions in a posting you might like to visit now and then.

I also came across a tiny helper by falsam that counts the lines and determines the longest one among them. I had joy to enhance it a bit to regard the different line breaks on each OS and also emit which line is the longest.

A nice tool that might be handy to some of you:

Code: Select all

;*****************************************************************************
;*
;* Season's Greetings PurePunch Demo contest
;* PureBasic 5.00
;* 80 lines of 80 chars, 1 month delay
;*
;* Name     : Line Counter & Longest line 
;* Author   : falsam
;* Date     : 29.11.2012
;* Notes    : off contest - copy code to test in the clipboard
;*
;*****************************************************************************
Macro M:Macro:EndMacro:M CP:Compiler:EndMacro:M Z:Select:EndMacro:M W:CompilerCase:EndMacro
#X=#PB_Compiler_OS:#W=#PB_OS_Windows:#M=#PB_OS_MacOS:#L=#PB_OS_Linux
CP#Z #X:W #W:E$=#CRLF$:W #M:E$=#CR$:W #L:E$=#LF$:CompilerEndSelect
B$=GetClipboardText():For i=1 To CountString(B$,E$)+1:L+1
If Len(StringField(B$,i,E$))>C:C=Len(StringField(B$,i,E$)):lL=L:EndIf:Next
Debug "Line counts: "+Str(L):Debug "Longest line: "+Str(C) + " - LineNr: "+Str(lL)

-> original source


Thanks falsam
and I hope you're fine with me sharing it.

~ greets ~

[falsam]

I hope you're fine with me sharing it.

No problem Vera.

[kernadec]

hello,
@davido and @vera thanks For your feedback For Mac and Linux

I also appreciate your comments of users
This makes me very happy that its modifications agree you,

Thank you, thanks to your help is now code cross platform, it's cool.
my side my nephews who also like my code, it's fan

Best regards
ps:line 21 to change a value cos/3 per cos/4 because the mode 3 has an incomplete color
code update..................................................................................v

Code: Select all

Y=Yr*Sin(v):Z=Zr*Cos(v):Q:J Mode=3:X=Xr*Sin(v*2):Y=Yr*Cos(v/4):Z=Zr*Sin(v):Q;;;; 

[davido]

@kernadec,
Tried your latest version on Mac.
Full screen works great on Mac. (Its my PC monitor that has problems with full screen).

Oddly the windowed screen on the Mac does not recognise any key presses!

[electrochrisso]

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, your ColorSpektakel is pretty spacey, you have a lot happening.
Glad you like the tool, change it to your liking, actually it is a cut down version of a tool I made a few years ago, and that one does have the sticky option.

@kernadec, it gets better all the time, I find the new window option can hang my window, I think a delay(1) need to be put somewhere, except this will probably slow things down too much, Full Screen is very fast, this shows the big speed difference between windowed and screen modes.

@falsam, nice job, its amazing what can be done in 3D with such a small amount of code.

[kernadec]

hello
thank davido for these details, I note that there's always an option that works for you, it's cool
thank electrochrisso you had reason to delay (1) it is necessary to think the old computer,
I appreciate your comments,

We can increase the speed of rotation of colors
line 64 "K (#PB_Key_Pad0): T:" <---replace the letter T with a space
the T that represents the function: delay (100)

best regards

[Vera]

@ electrochrisso
That's nice to hear you enjoyed the 'Spektakle' ... and letting me know about the 'sticky coincidence'.


@ kernadec
Changing the delay made it run smoother for me ~ thx

About the starting issue. I too experienced a significant delay before the window showed up at all, and when it did, the mandala was already in motion. In previous versions it was still. So I switched back the value (in line 42) Vi.l=19 to 0 which made the window buildup fast as before again.

Btw: sometimes I reach a really fine mandala and think it would have been nice if one could share the according values. Maybe this could be a welcomed enhancement for your Mandala (outside of this contribution) to be able to share and also save favoured settings for a later reuse.

greets ~ Vera

[kernadec]

Hello
vera thanks For your feedback
but here, I did Not fully understand your problem at line 42, which made the window buildup fast As before again?.
I have the status of beginner in English!

I just added a drawing mode stick using a Swap x 2, x 1 With the line function is fun
I use the button delete This because it is accessible all OS

about the window 800 x 600 I could Not add second loop To manage "#PB_Window_SystemMenu" And therefore Not Delay (1)
but in a version Not punch it will be easy To do, To have a backup management
via a listviewgadget in This mode And then load the file of our mandalas favorite
And management of This in fullscreen With a wheel mode +/-keyboard

Besides, I had already thought make a backup For use in screen saver mode.

best regards
code update

[Vera]

I did Not fully understand your problem at line 42

Up to version 4 the line 42 contained: ...Plg.l=5:Vitesse.l=17:Plt.l=6...
With version 5 it changed to: ...Plt.l=10:Plg.l=5:Vi.l=19...
That's when the window buildup became so slow. After I had set Vi.l=19 to Vi.l=0 the buildup was as quick as before.
I just wanted to share this hint, as others also experienced a slower buildup.

Thanks for the new 'fun-option'
.. and will surely follow you up to a later 'no punch version'

~ good sunday to all ~ Vera

[Huitbit]

Hi

Here's my entry.
(don't forget to save it before playing to avoid a bug with the music)

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     : La guirlande enchantée
;* Author   : Huitbit
;* Date     : 21/12/2014
;* Notes    :marble popper 
;*                The sprites strike, the children have too many presents, there is thus too much work!
;*                 to initiate the negotiations, they decided to lash the Santa Claus during its nap
;*                 thanks To an enchanted garland!
;*                The garland is going to try to penetrate by an air vent 
;*                 of the house of the Santa Claus, stop it!
;*****************************************************************************
MessageRequester("Information", "Eclatez 365 boules pour conjurer le sort !"+Chr(13)+" Clic droit pour quitter"+Chr(13)+" Clic gauche pour tirer"+Chr(13)+" A la fin tapez [Entrée] pour quitter.", #PB_MessageRequester_Ok)

a=255:le=800:he=600:r=12:d=2*r+1:Macro M:Macro:EndMacro:M E:End:EndMacro:M S
Sprite:EndMacro:M U:Structure:EndMacro:M Z:Element:EndMacro:M V:E#If:EndMacro;;;
M G:Next:EndMacro:M _:For:EndMacro:M H:MouseButton:EndMacro:M HK:Index:EndMacro;
M RD:Random:EndMacro:M K:List:EndMacro:M KK:Delete:EndMacro:M EL;;;;;;;;;;;;;;;;
ElapsedMilliseconds:EndMacro:M O:DisplayTransparent#S:EndMacro:M W(a);;;;;;;;;;;
St#a#Drawing:EndMacro:M DT:Data.q:EndMacro:U pt:x.l:y.l:s.l:a.f:b.f:E#U:U cu:x.f
y.f:at.l:E#U:U bo:x.f:y.f:s.l:ds.f:sp.l:re.l:E#U:je: :New#K b.bo():np=12;;;;;;;;
Dim p.pt(np):P(0)\x=362:P(0)\y=20:_ n=0 To np-1:P(n+1)\y=P(n)\y+480/np+;;;;;;;;;
RD(20)*Pow(-1,n):P(n+1)\x=P(n)\y*Sin(2*#PI*P(n)\y/200)+400+RD(20)*Pow(-1,n):G n;
M af(a,b,xA,yA,xB,yB):If xB=xA:xB=xA+1:V:If xA<xB:a=(yB-yA)/(xB-xA):Else;;;;;;;;
a=(yB-yA)/(xA-xB):V:b=yB-a*xB:EndMacro:M yy(id,cl):CreateSprite(id,d,d);;;;;;;;;
W(art)(S#Output(id)):Circle(r,r,r,cl):W(op)():EndMacro;;;;;;;;;;;;;;;;;;;;;;;;;;
Procedure.l su(Array pP.pt(1),pnc,pns,pr.f):Dim pm.pt(pnc):CopyArray(pP(),pm());
_ nSubdv=1 To pns:ReDim pP(2*pnc-1):_ n=0 To pnc-1:pP(2*n)\x=pm(n)\x+pr*(pm(n+;;
1)\x-pm(n)\x):pP(2*n)\y=pm(n)\y+pr*(pm(n+1)\y-pm(n)\y):pP(2*n+1)\x=pm(n)\x+;;;;;
(1-pr)*(pm(n+1)\x-pm(n)\x):pP(2*n+1)\y=pm(n)\y+(1-pr)*(pm(n+1)\y-pm(n)\y):G;;;;;
pnc=2*pnc-1:ReDim pm.pt(pnc):CopyArray(pP(),pm()):G:ProcedureReturn pnc;;;;;;;;;
EndProcedure:np=su(P(),np,4,0.25):_ n=0 To np-1:af(P(n)\a,P(n)\b,P(n)\x,P(n)\y,;
P(n+1)\x,P(n+1)\y):G:P(0)\s=0:lc=0:_ n=0 To np-1:lc=lc+Sqr(1+;;;;;;;;;;;;;;;;;;;
P(n)\a*P(n)\a)*Abs(P(n+1)\x-P(n)\x):P(n+1)\s=lc:G:Dim s.cu(lc):s(0)\x=P(0)\x;;;;
s(0)\y=P(0)\y:hy.f=Sqr(1+P(0)\a*P(0)\a):l=1:_ n=0 To np-1:hy=Sqr(1+;;;;;;;;;;;;;
P(n)\a*P(n)\a):co.f=Sign(P(n+1)\x-P(n)\x)/hy:si.f=P(n)\a/hy:While l<P(n+1)\s;;;;
s(l)\x=s(l-1)\x+co:s(l)\y=s(l-1)\y+si:l=l+1:Wend:If l=P(n+1)\s:s(l)\x=P(n+1)\x;;
s(l)\y=P(n+1)\y:l=l+1:V:G:If CreateFile(0,"s.mid"):WriteData(0,?ms,?me-?ms);;;;;
CloseFile(0):V:Init#S():InitMouse():InitMovie():OpenWindow(0,0,0,le,he,"");;;;;;
OpenWindowedScreen(WindowID(0),0,0,le,he,1,0,0,2):LoadMovie(0,"s.mid");;;;;;;;;;
Dim pd.pt(11):Restore sy:_ i=0 To 10:Read.l pd(i)\x:Read.l pd(i)\y:G:nx=su(pd(),
10,4,0.1):pd(nx)\x=pd(0)\x:pd(nx)\y=pd(0)\y:Create#S(7,88,88);;;;;;;;;;;;;;;;;;;
W(art)(S#Output(7)):_ i=0 To nx-1:_ j=0 To 1:LineXY(pd(i)\x+j,pd(i)\y+j,pd(i+;;;
1)\x+j,pd(i+1)\y+j,RGB(a,a,0)):G:G:FillArea(44,44,RGB(a,a,0),RGB(a,200,32));;;;;
W(op)():Dim pd.pt(20):Restore sk:_ i=0 To 19:Read.l pd(i)\x:Read.l pd(i)\y:G;;;;
nx=su(pd(),19,4,0.10):pd(nx)\x=pd(0)\x:pd(nx)\y=pd(0)\y:Create#S(8,le,he);;;;;;;
W(art)(S#Output(8)):_ n=0 To 999:Box(RD(999),RD(999),1,1,RGB(a,a,a)):G;;;;;;;;;;
Ellipse(400,600,999,200,RGB(220,a,a)):_ i=0 To nx-1:_ j=0 To 2:LineXY(pd(i)\x+j+
200,pd(i)\y+j+60,pd(i+1)\x+j+200,pd(i+1)\y+j+60,RGB(0,a,0)):G:G:FillArea(200+;;;
200,100+60,RGB(0,a,0),RGB(0,192,64)):Ellipse(P(np)\x,P(np)\y,30,10,RGB(64,64,;;;
64)):W(op)():yy(1,RGB(a,0,0)):yy(2,RGB(a,a,0)):yy(3,RGB(0,a,0)):yy(4,RGB(0,0,a))
yy(5,RGB(a,0,a)):yy(6,RGB(64,64,64)):sx=RD(5,1):dz=0:Repeat:If MovieStatus(0)=0;
PlayMovie(0,WindowID(0)):Delay(9):V:ExamineMouse():If EL()-sd>80:sd=EL();;;;;;;;
If H(1) And sz=0:sz=1:za=1:xg=MouseX():V:V:If H(1)=0:sz=0:V:If za=1:xg=xg;;;;;;;
yg=yg-r:If yg<d:za=0:sx=RD(5,1):V:Else:xg=MouseX():yg=he-2*d:V:ForEach b();;;;;;
If S#Collision(sx,xg,yg,b()\sp,b()\x,b()\y) And dz=0:dz=1:Break:V:G:If dz=1;;;;;
Repeat:km=b()\sp:b()\sp=sx:sx=km:Until Previous#Z(b())=0:First#Z(b()):ko=b()\s;;
If ko+d<lc:Insert#Z(b()):b()\s=ko+d:b()\sp=km:Else:fi=1:V:dz=2:za=0:sx=RD(5,1):V
If dz=2:ForEach b():rv=0:If K#HK(b())<K#Size(b())-2:ba=b()\sp:ia=K#HK(b());;;;;;
G#Z(b()):bb=b()\sp:G#Z(b()):bc=b()\sp:ic=K#HK(b()):G#Z(b()):bD=b()\sp;;;;;;;;;;;
id=K#HK(b()):If ba=bb And ba=bc And ba=bD:Select#Z(b(),id):If b()\s>d:sq=b()\s:V
tl+4:KK#Z(b()):KK#Z(b()):KK#Z(b()):KK#Z(b()):_ sC=sq To lc:s(sC)\at=0:G:rv=1;;;;
ElseIf ba=bb And ba=bc:Select#Z(b(),ic):If b()\s>d:sq=b()\s:V:tl+3:KK#Z(b());;;;
KK#Z(b()):KK#Z(b()):_ sC=sq To lc:s(sC)\at=0:G:rv=1:V:If rv=1:First#Z(b()):Else;
Select#Z(b(),ia):V:V:G:dz=0:V:Last#Z(b()):If EL()-dx>30 And dz=0:dx=EL();;;;;;;;
If s(0)\at=0:Add#Z(b()):b()\s=0:b()\x=s(b()\s)\x:b()\y=s(b()\s)\y:b()\ds=1;;;;;;
If K#HK(b())=0:b()\sp=6:Else:b()\sp=RD(5,1):While b()\sp=s1 And b()\sp=s2;;;;;;;
b()\sp=RD(5,1):Wend:V:s3=s2:s2=s1:s1=b()\sp:V:ForEach b():If b()\s<lc;;;;;;;;;;;
If b()\s>d+1:ia=K#HK(b()):sA=b()\s:Select#Z(b(),ia+1):ib=K#HK(b()):sB=b()\s;;;;;
If (sA-sB)>d+1:Select#Z(b(),ia):b()\ds=-4:b()\re=1:Else:Select#Z(b(),ia);;;;;;;;
b()\re=0:b()\s=sb+d:s(b()\s)\at=0:V:V:If s(b()\s)\at=1:b()\ds=0:Else:If b()\re=0
b()\ds=1:s(b()\s)\at=1:If b()\s>=d:s(b()\s-d)\at=0:V:V:V:b()\s=b()\s+b()\ds;;;;;
b()\x=s(b()\s)\x:b()\y=s(b()\s)\y:Else:fi=1:V:G:First#Z(b()):sq=b()\s;;;;;;;;;;;
_ sC=sq To lc-1:s(sC)\at=0:G:V:Display#S(8,0,0):O(7,342,0):ForEach b();;;;;;;;;;
If K#HK(b())<K#Size(b())-1:O(b()\sp,b()\x-r,b()\y-r):V:G:If s3<>0:O(sx,xg-r,;;;;
yg-r):V:If tl>=365:MessageRequester("","Félicitations !"):End:V:If fi=1;;;;;
MessageRequester("","Argh, pauvre Santa "+tl+" boules !"):fi=0:tl=0:Goto je: :V
FlipBuffers():Until WindowEvent()=13111
DataSection: sy: 
Data.l 30,68,66,84,63,54,87,30,60,27,45,1,28,27,2,32,22,53,13,82,30,68
sk: 
Data.l 150,392,248,424,374,378,275,255,328,221,262,182,244,139,286,120,217,63
Data.l 182, 2, 140, 75, 83, 121, 110, 146, 75, 207, 27,232,89,268,49,323,0,351
Data.l 38,406,109,411,150,392
ms:
    DT $060000006468544D,$544D780003000100,$FF00D70000006B72,$7F0303120F05397F
    DT $61482D0401FF007F,$656C7261702D7475,$6165522820737275,$676948206B65746C
    DT $696E696665442068,$647541206E6F6974,$050F7FFF00296F69,$302E353130321C0F
    DT $FF00030131312E31,$63694D2D0F052C7F,$532074666F736F72,$6972655320736E61
    DT $462C35322E382C66,$6C61462C65736C61,$FF00302C312C6573,$0000000300600554
    DT $7E05F000000121FF,$0121FF00F701097F,$1802040458FF0000,$0000000259FF0008
    DT $60834F45060351FF,$7A696C65461E06FF,$6461646976614E20,$2065736F4A202D20
    DT $6E616963696C6546,$72544D002FFF006F,$7FFF00B20900006B,$B9004848090F0505
    DT $C9000000B900400A,$7FFF007F07B90001,$656E6547060F050F,$4944494D206C6172
    DT $19100F05047FFF00,$03FF00000121FF00,$20646E616C6F520C,$79B900736D757244
    DT $0000050000010000,$2399000040007F0B,$0000381E5F38006E,$00451E55451E0023
    DT $451E5545005F251E,$006E231E00250000,$00381E5F38005545,$451E002300004500
    DT $1E6E231E00451E55,$5F38006E401E0023,$451E00400000381E,$0000401E6E400055
    DT $5F38006E231E0045,$451E00230000381E,$005F251E00451E55,$00250000451E5545
    DT $38005545006E231E,$0000450000381E5F,$00451E55451E0023,$3E1E6E3E006E231E
    DT $006E401E00230000,$00400000381E5F38,$401E6E400055451E,$006E231E00450000
    DT $00230000381E5F38,$251E00451E55451E,$0000451E5545005F,$5545006E231E0025
    DT $450000381E5F3800,$1E55451E00230000,$00231E6E231E0045,$381E5F38006E401E
    DT $0055451E00400000,$00450000401E6E40,$381E5F38006E231E,$1E55451E00230000
    DT $5545005F251E0045,$231E00250000451E,$1E5F38005545006E,$0023000045000038
    DT $231E00451E55451E,$00003E1E6E3E006E,$5F38006E401E0023,$451E00400000381E
    DT $0000401E6E400055,$5F38006E231E0045,$451E00230000381E,$005F251E00451E55
    DT $00250000451E5545,$38005545006E231E,$0000450000381E5F,$00451E55451E0023
    DT $401E00231E6E231E,$0000381E5F38006E,$6E400055451E0040,$231E00450000401E
    DT $0000381E5F38006E,$00451E55451E0023,$451E5545005F251E,$006E231E00250000
    DT $00381E5F38005545,$451E002300004500,$006E231E00451E55,$002300003E1E6E3E
    DT $381E5F38006E401E,$0055451E00400000,$00450000401E6E40,$381E5F38006E231E
    DT $1E55451E00230000,$5545005F251E0045,$231E00250000451E,$1E5F38005545006E
    DT $0023000045000038,$231E00451E55451E,$006E401E00231E6E,$00400000381E5F38
    DT $401E6E400055451E,$006E231E00450000,$00230000381E5F38,$251E00451E55451E
    DT $0000451E5545005F,$5545006E231E0025,$450000381E5F3800,$006E235A00230000
    DT $002300003E1E6E3E,$381E5F38006E401E,$1E6E401E00400000,$5F38006E231E0040
    DT $451E00230000381E,$005F251E00451E55,$00250000451E5545,$38005545006E231E
    DT $0000450000381E5F,$00451E55451E0023,$401E00231E6E231E,$0000381E5F38006E
    DT $6E400055451E0040,$231E00450000401E,$0000381E5F38006E,$00451E55451E0023
    DT $451E5545005F251E,$006E231E00250000,$00381E5F38005545,$451E002300004500
    DT $006E231E00451E55,$002300003E1E6E3E,$381E5F38006E401E,$0055451E00400000
    DT $00450000401E6E40,$381E5F38006E231E,$1E55451E00230000,$5545005F251E0045
    DT $231E00250000451E,$1E5F38005545006E,$0023000045000038,$231E00451E55451E
    DT $006E401E00231E6E,$00400000381E5F38,$401E6E400055451E,$006E231E00450000
    DT $00230000381E5F38,$251E00451E55451E,$0000451E5545005F,$5545006E231E0025
    DT $450000381E5F3800,$1E55451E00230000,$6E3E006E231E0045,$401E002300003E1E
    DT $0000381E5F38006E,$6E400055451E0040,$231E00450000401E,$0000381E5F38006E
    DT $00451E55451E0023,$451E5545005F251E,$006E231E00250000,$00381E5F38005545
    DT $451E002300004500,$1E6E231E00451E55,$5F38006E401E0023,$451E00400000381E
    DT $0000401E6E400055,$5F38006E231E0045,$451E00230000381E,$005F251E00451E55
    DT $00250000451E5545,$38005545006E231E,$0000450000381E5F,$00451E55451E0023
    DT $3E1E6E3E006E231E,$006E401E00230000,$00400000381E5F38,$401E6E400055451E
    DT $006E231E00450000,$00230000301E6430,$251E00451E55451E,$0000451E5545005F
    DT $5545006E231E0025,$450000291E642900,$1E55451E00230000,$642D006E231E0045
    DT $401E002300002D1E,$0055451E00401E6E,$00291E6429006E40,$231E004500004000
    DT $0000291E6429006E,$00381E5F385A0023,$2A5A002A1E7F2A5A,$006E235A002A1E7F
    DT $00381E5F38007F2A,$2A1E002300002A00,$0000451E5545007F,$5545007F2A1E002A
    DT $450000261E5F2600,$006E231E002A0000,$5F38005545007F2A,$2A0000230000381E
    DT $1E7F2A1E00450000,$7F2A006E231E002A,$2A00003E1E6E3E00,$007F2A1E00230000
    DT $5F26005F38006E40,$4000002A0000261E,$006E401E00380000,$004000002E1E782E
    DT $38007F2A006E231E,$00002A0000381E5F,$5545007F2A1E0023,$2A1E002A0000451E
    DT $1E5F26005545007F,$002A000045000026,$45007F2A006E231E,$0000381E5F380055
    DT $004500002A000023,$231E002A1E7F2A1E,$1E6E3E007F2A006E,$002300002A00003E
    DT $38006E40007F2A1E,$0000261E5F26005F,$003800004000002A,$2E1E782E006E401E
    DT $006E231E00400000,$00381E5F38007F2A,$2A1E002300002A00,$0000451E5545007F
    DT $5545007F2A1E002A,$450000261E5F2600,$006E231E002A0000,$5F38005545007F2A
    DT $2A0000230000381E,$1E7F2A1E00450000,$7F2A006E231E002A,$2A00003E1E6E3E00
    DT $007F2A1E00230000,$5F26005F38006E40,$4000002A0000261E,$006E401E00380000
    DT $004000002E1E782E,$38007F2A006E231E,$00002A0000381E5F,$5545007F2A1E0023
    DT $2A1E002A0000451E,$1E5F26005545007F,$002A000045000026,$45007F2A006E231E
    DT $0000381E5F380055,$004500002A000023,$231E002A1E7F2A1E,$1E6E3E007F2A006E
    DT $002300002A00003E,$38006E40007F2A1E,$0000261E5F26005F,$003800004000002A
    DT $2E1E782E006E401E,$006E231E00400000,$00381E5F38007F2A,$2A1E002300002A00
    DT $0000451E5545007F,$5545007F2A1E002A,$450000261E5F2600,$006E231E002A0000
    DT $5F38005545007F2A,$2A0000230000381E,$1E7F2A1E00450000,$7F2A006E231E002A
    DT $2A00003E1E6E3E00,$007F2A1E00230000,$5F26005F38006E40,$4000002A0000261E
    DT $006E401E00380000,$004000002E1E782E,$38007F2A006E231E,$00002A0000381E5F
    DT $5545007F2A1E0023,$2A1E002A0000451E,$1E5F26005545007F,$002A000045000026
    DT $45007F2A006E231E,$0000381E5F380055,$004500002A000023,$231E002A1E7F2A1E
    DT $1E6E3E007F2A006E,$002300002A00003E,$38006E40007F2A1E,$0000261E5F26005F
    DT $003800004000002A,$2E1E782E006E401E,$006E231E00400000,$00381E5F38007F2A
    DT $2A1E002300002A00,$0000451E5545007F,$5545007F2A1E002A,$450000261E5F2600
    DT $006E231E002A0000,$5F38005545007F2A,$2A0000230000381E,$1E7F2A1E00450000
    DT $7F2A006E231E002A,$2A00003E1E6E3E00,$007F2A1E00230000,$5F26005F38006E40
    DT $4000002A0000261E,$006E401E00380000,$004000002E1E782E,$38007F2A006E231E
    DT $00002A0000381E5F,$5545007F2A1E0023,$2A1E002A0000451E,$1E5F26005545007F
    DT $002A000045000026,$45007F2A006E231E,$0000381E5F380055,$004500002A000023
    DT $231E002A1E7F2A1E,$1E6E3E007F2A006E,$002300002A00003E,$38006E40007F2A1E
    DT $0000261E5F26005F,$003800004000002A,$2E1E782E006E401E,$037FFF1E00400000
    DT $4D002FFF000A0F05,$001B0300006B7254,$4008090F05057FFF,$47060F050F7FFF00
    DT $4D206C6172656E65,$000079B000494449,$00565BB000445DB0,$004A0AB0007F0BB0
    DT $FF000AC0006807B0,$206B636172540703,$E000000120FF0033,$1E68459034814000
    DT $216E4A901E684580,$1B684990576E4A80,$1D684A9021684980,$4D6847901F684A80
    DT $6347904784684780,$684C901863478024,$684A9041684C8037,$63479019684A8023
    DT $684590226347801A,$4590408468458055,$4A902A6845801968,$4990336E4A80396E
    DT $4A901D6E4980216E,$47901E634A802563,$4390526E4780576E,$45902A4D4380134D
    DT $47901B6845802568,$4590546E4780286E,$45904D6845802C68,$4590456845802B68
    DT $4390106845802D68,$4590346343804263,$4290286845801B68,$9073845F42805A5F
    DT $902A5A4580145A45,$90526E4A80226E4A,$90216E49801B6E49,$901E634A8021634A
    DT $56846847803C6847,$225647801B564790,$3B6E4C803C6E4C90,$0E6E4A802C6E4A90
    DT $215F47801D5F4790,$8468458061684590,$6345802A6345902F,$684A8042684A9015
    DT $6E4980276E499033,$6E4A80296E4A9016,$6E4780686E479015,$524380165243904B
    DT $6345802963459027,$6847804068479015,$6345804163459039,$6845803768459035
    DT $6345802663459043,$6843804368439015,$5F4380265F439036,$5F4280785F429016
    DT $4E80136E4E905F83,$4E8015634E902A6E,$4E8017634E902563,$4E80506E4E902763
    DT $4C8019684C90276E,$4A80145A4A902368,$4A80456E4A90295A,$4780105A4790316E
    DT $47803E6847902C5A,$4A804C6E4A903868,$8012684C9024816E,$8015684C902A684C
    DT $8017634C9027684C,$804D684C9029634C,$8019684A902C684C,$801156479023684A
    DT $80406E47902B5647,$8010494590366E47,$802E6845902D4945,$802C5A45904A6845
    DT $0F564E9044815A45,$12634E902B564E80,$16634E902A634E80,$216E4E9027634E80
    DT $125A4C901B6E4E80,$145A4C902B5A4C80,$13564A90275A4C80,$416E4A902A564A80
    DT $12524790356E4A80,$445F47902C524780,$0F454A90375F4780,$14564A9029454A80
    DT $1B634A9029564A80,$2163499022634A80,$766849901A634980,$19564A903C684980
    DT $81684C9023564A80,$634C9035684C8002,$4A902D634C800281,$B057684A80598168
    DT $FF000078B000007B :Data.b $2F,$00 : me:   
EndDataSection

[EDIT]Update :Little problem with the score(SOLVED)[EDIT]

Hasta la vista !

[kernadec]

Hello huitbit
music perfect and beautiful fir, but very difficult to won

Hello vera
Thank you For the precision of For your comments

Sorry I had put its settings To start, because on my PC, I a beautiful effect
in fact I did Not understand everything simply vi.l problem
which is the speed of rotation on the axis of the poles (1/180) in pixels
the keyboard home/End keys manages the speed increments,
It should Not slow down like This. Vi.l = 19? works well its my old pc xp32

about the keyboard "home/End" If the keyboard 'shift' key is activated in speed x 10
some menu does Not fall below 10 see 5 so This means
put the general switch in the x 1 speed To gain less than 10 To the value.

For the current version 6, I To the 64 authorized lines,
I can't have a more comfortable use for this code punch.

best regards

[Huitbit]

Hi, Kernadec
Thanks

It's difficult but I think it's possible !

For the music, the files "feliz navidad" that I've found were too much big so I've used Anvil Studio to mix(drums and melody from several files) and cut the midi file.

Hasta la vista !

[davido]

@Huitbit,
Very nice game. Nice music.
Works on Mac as well as PC.
Thank you.

[Andre]

@ Huitbit: Very nice, runs fine here on my MacBook OS 10.5.8