Compétition PurePunch Noël 2014

[raven]

bravo falsam,c'est magnifique

aucun soucis sur mon pc tourne nickel.

@ar-s sympa ton chrismas desktop screensaver

peut t'on utilisé une image pour le punch?

[microdevweb]

Joli Ar-s ces petits flocons

[falsam]

Ar-S bravo et désolé d'avoir troubler ton sommeil. Au moins tu as publié ton code

C'était un de mes sujet mais en 3D.

Tu fais parti de mes favoris

[klystron]

Bien le bonjour à tous,
Bravo Falsam , ton code est magnifique.
A+

Oui, il fonctionne sous Windows 7

[falsam]

peut t'on utilisé une image pour le punch?

Non sauf si tu la génère dans ta Data Section.

@klystron: Ce code t'a peut être déconcerté car j'ai du abuser des macros sans modération. Je tacherais de faire quelque chose en clair à partir de janvier.

[klystron]

Falsam,
-> as tu fais un fichier point exe de ton code ?
car j'ai un souci, il sort , mais impossible de le lancer, en dehors de purebasic.

le fichier de music peut-être ? une fois compilé, car il n'a pas d'extension une fois lancé . du moins chez moi .( fichiermusic.mid)
si non c'est pas bien grave.

[raven]

bon j'ai tenté l'aventure du pure punch... malgré mon niveau de programmation...
j'avais juste envie de participé pour le fun

Code : Tout sélectionner

;***************************************************************************** 
;* 
;* XMas 2014 PurePunch contest 
;* PureBasic 5.31 x64 and x86 
;* 49 lines of 80 chars of code + 122 lines of data 
;* 
;* Name : drawingbox 
;* Author : Raven 
;* Date :16/12/2014 
;* Notes :Esc pour quitter 
;* 
;*****************************************************************************
Macro i:If:EndMacro:Macro ei:EndIf:EndMacro:#L=640:#H=480;;;;;;;;
enumeration:#p:#n:#n2:endenumeration:#Nb=106:InitKeyboard():InitSprite();;;;;;;;
InitMovie():InitMouse():Structure Ng:px.f:py.f:v.f:EndStructure:Structure Ng2;;;
px.f:py.f:v.f:EndStructure:Global NewList S.Ng():Global NewList S2.Ng2();;;;;;;;
Global xp,yp,xpdir,ypdir,px,py,n,t,v:global x,y,l,h,c,j,MP,t2:xp=45:yp=25;;;;;;;
xpdir=-2:ypdir=-2:t=0:procedure pn():StartDrawing(screenoutput()):Box(115,418,;;
15,20,$227799):Box(74,410,100,10,$006600):Box(78,400,90,10,$006600):Box(83,390,;
80,10,$006600):Box(88,380,70,10,$006600):Box(93,370,60,10,$006600):Box(98,360,;;
50,10,$006600):Box(103,350,40,10,$006600):Box(108,340,30,10,$006600):Box(113,;;;
330,20,10,$006600):Box(118,320,10,10,$006600):circle(75,415,5,Random($FFFFFF));;
circle(175,415,5,Random($FFFFFF)):circle(80,400,5,Random($FFFFFF)):circle(165,;;
400,5,Random($FFFFFF)):circle(88,385,5,Random($FFFFFF)):circle(155,382,5,;;;;;;;
Random($FFFFFF)):circle(105,415,5,Random($FFFFFF)):circle(105,355,5,;;;;;;;;;;;;
Random($FFFFFF)):circle(141,355,5,random($FFFFFF)):circle(122,320,5,;;;;;;;;;;;;
Random($FFFFFF)):circle(110,380,5,Random($FFFFFF)):box(585,120,50,50,;;;;;;;;;;;
Random($FFCCFF)):box(585,140,50,10,$FFCC):box(598,115,10,55,$FFCC):box(590,117,;
25,3,$FFCC):Box(430,210,100,25,$333355):Box(423,200,15,25,$333355):Box(413,185,;
10,35,$333355):Box(403,195,15,15,$333355):Box(530,195,25,35,$333355):Box(555,;;;
175,60,60,$225599):Box(545,185,25,15,$333355):Box(555,175,25,15,$333355);;;;;;;;
Box(565,165,25,15,$333355):Box(430,230,150,8,$225599):Box(430,230,150,8,$225599)
Box(580,170,90,10,$225599):Box(610,180,20,25,$225599):Box(445,238,10,15,$227799)
Box(560,238,10,15,$227799):Box(405,248,220,10,$227799):Box(395,238,10,10,;;;;;;;
$227799):Box(385,230,10,10,$227799):Box(375,200,10,30,$227799):Box(385,190,10,;;
10,$227799):Box(395,180,10,10,$227799):StopDrawing():endprocedure;;;;;;;;;;;;;;;
procedure nei():CreateSprite(#n,2,2):StartDrawing(SpriteOutput(#n)):Plot(#n,0,;;
$FFFFFF):StopDrawing():CreateSprite(#n2,3,3):StartDrawing(SpriteOutput(#n2));;;;
Plot(#n2,0,$FFFFFF):StopDrawing():endprocedure:Procedure Affn():ResetList(S());;
While NextElement(S()):If S()\py>480:S()\py=-5:EndIf:ZoomSprite(#n,2,2);;;;;;;;;
DisplayTransparentSprite(#n,S()\px,S()\py):S()\py+S()\v:Wend:ResetList(S2());;;;
While NextElement(S2()):If S2()\py>480:S2()\py=-5:EndIf;;;;;;;;;;;;;;;;;;;;;;;;;
DisplayTransparentSprite(#n,S2()\px,S2()\py):S2()\py+S2()\v:wend:EndProcedure;;;
Procedure pixel():xp=xp+xpdir:yp=yp+ypdir:i xp<0 Or xp>640-10:xpdir=xpdir*-1:ei;
i yp<0 Or yp>440-50:ypdir=ypdir*-1:ei:CreateSprite(#p,1,1);;;;;;;;;;;;;;;;;;;;;;
StartDrawing(SpriteOutput(#p)):plot(#p,0,RGB(Random(15),Random(15),Random(15)));
StopDrawing():For j=0 To 10:ZoomSprite(#p,25,5):DisplayTransparentSprite(#p,xp+;
j*Cos(j*1-v),yp+j*Sin(j*1+v)):rotatesprite(#p,yp,v):next:EndProcedure;;;;;;;;;;;
i CreateFile(1,"zic.mid"):WriteData(1,?m_s,?m_e-?m_s):CloseFile(1):ei;;;;;;;;;;;
OpenWindow(0,0,0,#L,#H,"",#PB_Window_ScreenCentered);;;;;;;;;;;;;;;;;;;;;;;;;;;;
OpenWindowedScreen(WindowID(0),0,0,#L,#H):LoadMovie(0,"zic.mid");;;;;;;;;;;;;;;;
SpriteBlendingMode(#PB_Sprite_BlendSourceAlpha,#PB_Sprite_BlendSourceAlpha);;;;;
For n=1 To 150:AddElement(S()):AddElement(S2()):S()\px=Random(640);;;;;;;;;;;;;;
S()\py=Random(480):S()\v=2:S2()\px=Random(640):S2()\py=Random(480):S2()\v=1:Next
Repeat:i MovieStatus(0)=0:t=0:i MP=#False:ClearScreen(rgB(15,15,55));;;;;;;;;;;;
PlayMovie(0,WindowID(0)):MP=1:t=0:ei:Else:i MovieStatus(0)>0:MP=0:ei:ei:Repeat;;
pixel():i t>=1050 and t2<1200:clearscreen(rgb(15,15,55)):nei():Affn():ei;;;;;;;;
Until WindowEvent()=0:ExamineKeyboard():ExamineMouse():t+1:Restore bd;;;;;;;;;;;
StartDrawing(ScreenOutput()):For l=1 To #Nb:Read.l x:Read.l y:Read.l l:Read.l h;
Read.l c:Box(x,y,l,h,c):Next:StopDrawing():pn():FlipBuffers();;;;;;;;;;;;;;;;;;;
Until KeyboardPushed(#PB_Key_Escape):End:CloseScreen()
DataSection;1
bd:;;;;;;;;;;;2
data.l 490,30,35,10,255,475,35,35,10,255,461,45,45,10,255,455,55,55,15,255,525,;3
35,15,15,$FFFFFF,460,70,50,5,$FFFFFF,455,70,5,35,$FFFFFF,495,75,10,10,$FF99FF,;;4
460,75,10,10,$FF99FF,468,75,10,10,$CC6600,485,75,12,10,$CC6600,478,75,10,10,;;;;5
$FF99FF,470,85,10,10,$FF99FF,486,85,10,10,$FF99FF,460,85,10,10,$999999,495,85,;;6
10,10,$999999,460,95,10,10,$FF99FF,495,95,10,10,$FF99FF,408,105,10,25,0,418,105,;7
10,25,$FFFFFF,428,105,35,25,255,455,75,8,40,$FFFFFF,463,105,75,25,255,470,95,25,;8
10,$FFFFFF,460,105,45,15,$FFFFFF,478,103,10,8,0,470,115,25,15,$FFFFFF,505,70,8,;9
45,$FFFFFF,538,105,10,25,$FFFFFF,548,105,10,25,0,478,85,10,10,$9933FF,438,130,;;10
90,25,255,438,140,90,25,0,474,143,18,18,$99CCFF,438,165,90,15,255,438,175,30,15,;11
255,498,175,30,15,255,438,190,30,10,$FFFFFF,498,190,30,10,$FFFFFF,438,200,30,10,;12
0,498,200,30,10,0,305,285,15,10,$225599,305,275,10,10,$227799,295,275,10,10,;;;;13
$778899,295,265,10,10,$227799,288,265,10,10,$778899,288,255,10,10,$227799,280,;;14
255,10,10,$778899,280,245,10,10,$227799,270,245,10,10,$447799,270,215,20,30,;;;;15
$227799,260,235,10,10,$447799,260,225,10,10,$447799,240,205,60,20,$227799,220,;;16
185,60,25,$227799,195,185,25,10,$447799,185,195,10,10,$447799,175,205,10,20,;;;;17
$447799,185,225,10,10,$225599,190,165,35,10,$447799,180,175,10,10,$447799,210,;;18
165,50,35,$227799,170,185,10,10,$447799,165,195,10,10,$225599,210,155,30,20,;;;;19
$227799,210,135,20,20,$227799,180,115,50,30,$227799,185,105,50,30,$227799,195,;;20
80,10,25,$225599,205,70,10,20,$225599,205,95,10,10,$225599,215,90,30,10,$225599,;21
235,80,10,15,$225599,205,100,20,10,$225599,245,75,10,10,$225599,300,205,10,10,;;22
$FFFFFF,160,125,20,20,$FFFFFF,150,125,10,10,$225599,190,115,10,10,$000000,360,;;23
115,50,10,$000000,320,125,50,10,$000000,280,135,50,10,$000000,220,115,30,10,;;;;24
$FFFFFF,230,145,60,10,$000000,230,155,50,30,$225599,250,375,10,20,$225599,350,;;25
375,10,20,$225599,50,375,10,20,$225599,550,375,10,20,$225599,545,355,20,30,;;;;;26
$006600,345,355,20,30,$006600,45,355,20,30,$006600,245,355,20,30,$006600,278,;;;27
190,20,15,$227799,0,390,650,150,$FFFFFF,115,418,15,20,$227799,74,410,100,10,;;;;28
$006600,78,400,90,10,$006600,83,390,80,10,$006600,88,380,70,10,$006600,93,370,;;29
60,10,$006600,98,360,50,10,$006600,103,350,40,10,$006600,108,340,30,10,$006600,;30
113,330,20,10,$006600,118,320,10,10,$006600;31
m_s:;32
Data.q $060000006468544D,;33
$544DF00003000100,$FF007E0000006B72,$6574616572432E02,$5420687469772064,;;;;;;;;34
$20746964456C6261,$772F2F3A70747468,$656C6261742E7777,$2F6D6F632E746964,;;;;;;;;35
$455649562003FF00,$45562020454C2020,$617254202D20544E,$656E6E6F69746964,;;;;;;;;36
$0351FF002020206C,$040458FF00151605,$000259FF00082402,$02040458FF00BC00,;;;;;;;;37
$00000259FF000824,$6B72544D002FFF00,$0F03FF000F0A0000,$63697473756F6341,;;;;;;;;38
$0072617469754720,$65B00019C10019C0,$06B0000064B00000,$64B0007F65B00002,;;;;;;;;39
$65B1004000E0007F,$06B1000064B10000,$64B1007F65B10002,$0AB0004000E1007F,;;;;;;;;40
$5DB0003F0AB1003F,$5DB1001C5BB00000,$4090001C5BB10000,$309000573C900057,;;;;;;;;41
$8000644080708157,$900064308000643C,$9000573C90005740,$0064408070815734,;;;;;;;;42
$0064348000643C80,$00573C9000574090,$642B807081572B90,$3790208157349000,;;;;;;;;43
$3C80006440805057,$3780006434800064,$3C90005740900064,$8070815730900057,;;;;;;;;44
$8000643C80006440,$9000574090006430,$708157349000573C,$00643C8000644080,;;;;;;;;45
$0057409000643480,$81572B9000573C90,$57349000642B8070,$4080505737902081,;;;;;;;;46
$348000643C800064,$4090006437800064,$309000573C900057,$8000644080708157,;;;;;;;;47
$900064308000643C,$9000573C90005743,$0064438070815734,$0064348000643C80,;;;;;;;;48
$0057379000573C90,$643C807081572B90,$642B800064378000,$57379000573E9000,;;;;;;;;49
$3E80708157349000,$3480006437800064,$3C90145730900064,$8048815740901457,;;;;;;;;50
$7081573490006430,$81572B9000643480,$642B805057379020,$5734900064378000,;;;;;;;;51
$3C80006440806E81,$4190006434800264,$299000573C900057,$8000644180708157,;;;;;;;;52
$900064298000643C,$9000573C90005741,$0064418070815735,$0064358000643C80,;;;;;;;;53
$00573C9000574190,$6429807081572990,$4180208157359000,$419000643C800064,;;;;;;;;54
$358050573C900057,$3C80006441800064,$3C90005740900064,$8070815730900057,;;;;;;;;55
$8000643C80006440,$9000574090006430,$708157349000573C,$00643C8000644080,;;;;;;;;56
$0057409000643480,$81572B9000573C90,$57349000642B8070,$3C80006440802081,;;;;;;;;57
$3C90005740900064,$4080006434805057,$3E9000643C800064,$2A90005739900057,;;;;;;;;58
$8000643E80708157,$9000642A80006439,$900057399000573E,$00643E8070815732,;;;;;;;;59
$0064328000643980,$0057399000573E90,$643E802081572A90,$5740900064398000,;;;;;;;;60
$642A8050573E9000,$4080708157329000,$328000643E800064,$2B9000573E900064,;;;;;;;;61
$9000642B80708157,$00643E8070815732,$14572B9000643280,$8157439014573E90,;;;;;;;;62
$57379000642B8048,$3E80006443806E81,$4090006437800264,$309000573C900057,;;;;;;;;63
$8000644080708157,$900064308000643C,$9000573C90005740,$0064408070815734,;;;;;;;;64
$0064348000643C80,$00573C9000574090,$642B807081572B90,$3790208157349000,;;;;;;;;65
$3C80006440805057,$3780006434800064,$3C90005740900064,$8070815730900057,;;;;;;;;66
$8000643C80006440,$9000574090006430,$708157349000573C,$00643C8000644080,;;;;;;;;67
$0057409000643480,$81572B9000573C90,$57349000642B8070,$4080505737902081,;;;;;;;;68
$348000643C800064,$4090006437800064,$309000573C900057,$8000644080708157,;;;;;;;;69
$900064308000643C,$9000573C90005743,$0064438070815734,$0064348000643C80,;;;;;;;;70
$0057379000573C90,$643C807081572B90,$642B800064378000,$57379000573E9000,;;;;;;;;71
$3E80708157349000,$3480006437800064,$3C90145730900064,$8048815740901457,;;;;;;;;72
$7081573490006430,$81572B9000643480,$642B805057379020,$5734900064378000,;;;;;;;;73
$3C80006440806E81,$4190006434800264,$299000573C900057,$8000644180708157,;;;;;;;;74
$900064298000643C,$9000573C90005741,$0064418070815735,$0064358000643C80,;;;;;;;;75
$00573C9000574190,$6429807081572990,$4180208157359000,$419000643C800064,;;;;;;;;76
$358050573C900057,$3C80006441800064,$3C90005740900064,$8070815730900057,;;;;;;;;77
$8000643C80006440,$9000574090006430,$708157349000573C,$00643C8000644080,;;;;;;;;78
$0057409000643480,$81572B9000573C90,$57349000642B8070,$3C80006440802081,;;;;;;;;79
$3C90005740900064,$4080006434805057,$439000643C800064,$2B9000573B900057,;;;;;;;;80
$8000644380708157,$9000642B8000643B,$9000573B90005743,$0064438070815732,;;;;;;;;81
$0064328000643B80,$81572B9000574190,$642B800064418070,$57329000573E9000,;;;;;;;;82
$328000643E807081,$3C90145730900064,$90006430805C8157,$0064348070815734,;;;;;;;;83
$5737902081572B90,$64378000642B8050,$3480708157349000,$3090005737900064,;;;;;;;;84
$805C81643C801457,$9000643080006437,$7081573490005740,$0064348000644080,;;;;;;;;85
$81572B9000573E90,$573C9000643E8020,$57349000642B8050,$348000643C807081,;;;;;;;;86
$3090005737900064,$9000643080708157,$0064378070815734,$81572B9000643480,;;;;;;;;87
$642B805057379020,$5734900064378000,$3790006434807081,$8070815730900057,;;;;;;;;88
$9000643080006437,$7081573490005740,$0064348000644080,$81572B9000573E90,;;;;;;;;89
$573C9000643E8020,$57349000642B8050,$348000643C807081,$2990005739900064,;;;;;;;;90
$9000642980708157,$0064398070815735,$8157299000643580,$6429805057399020,;;;;;;;;91
$5735900064398000,$3990006435807081,$8070815729900057,$9000642980006439,;;;;;;;;92
$7081573590005741,$0064358000644180,$8157299000574090,$573E900064408020,;;;;;;;;93
$5735900064298050,$358000643E807081,$2B9000573B900064,$9000642B80708157,;;;;;;;;94
$0064328070815732,$5737902081572B90,$64378000642B8050,$3B80708157329000,;;;;;;;;95
$4390006432800064,$807081572B900057,$9000642B80006443,$7081573290005741,;;;;;;;;96
$0064328000644180,$81572B9000573E90,$573F9000643E8020,$57329000642B8050,;;;;;;;;97
$328000643F807081,$3090005740900064,$9000643080708157,$0064408070815734,;;;;;;;;98
$81572B9000643480,$57379000573C9020,$57349000642B8050,$378000643C807081,;;;;;;;;99
$3790006434800064,$8070815730900057,$9000643080006437,$7081573490005740,;;;;;;;;100
$0064348000644080,$81572B9000573E90,$573C9000643E8020,$57349000642B8050,;;;;;;;;101
$348000643C807081,$3090005737900064,$9000643080708157,$0064378070815734,;;;;;;;;102
$81572B9000643480,$642B805057379020,$5734900064378000,$3790006434807081,;;;;;;;;103
$8070815730900057,$9000643080006437,$7081573490005740,$0064348000644080,;;;;;;;;104
$81572B9000573E90,$573C9000643E8020,$57349000642B8050,$348000643C807081,;;;;;;;;105
$2990005739900064,$9000642980708157,$0064398070815735,$8157299000643580,;;;;;;;;106
$6429805057399020,$5735900064398000,$3990006435807081,$8070815729900057,;;;;;;;;107
$9000642980006439,$7081573590005741,$0064358000644180,$8157299000574090,;;;;;;;;108
$573E900064408020,$5735900064298050,$358000643E807081,$3B90005743900064,;;;;;;;;109
$807081572B900057,$8000643B80006443,$900057439000642B,$708157329000573B,;;;;;;;;110
$00643B8000644380,$0057439000643280,$81572B9000573B90,$643B800064438020,;;;;;;;;111
$573B900057439000,$57329000642B8050,$3B80006443807081,$4590006432800064,;;;;;;;;112
$2B9000573E900057,$8000644580708157,$9000642B8000643E,$9000573E90005743,;;;;;;;;113
$0064438070815737,$0064378000643E80,$00573B9000574190,$6441802081572B90,;;;;;;;;114
$573E9000643B8000,$642B8050573B9000,$3E80708157379000,$378000643B800064,;;;;;;;;115
$309000573C900064,$9000643080708157,$0064348070815734,$5737902081572B90,;;;;;;;;116
$64378000642B8050,$3C80708157349000,$3090006434800064,$9000643080608357,;;;;;;;;117
$9014573790145734,$248357409014573C,$1464378014643480,$0064408014643C80,;;;;;;;;118
$006B72544D002FFF,$562003FF00280000,$20454C2020455649,$202D20544E455620,;;;;;;;;119
$6F69746964617254,$002020206C656E6E:Data.b $FF,$2F,$00;120
m_e:;121
enddatasection;;;;;;;122

edit:changement de la musique
edit: du 18/12/2014
-ajout du sapin
edit: du 19/12/2014
-ajout de la neige
-quelques modifs sur les box

[klystron]

Bonjour Raven,
bravo pas mal ton code.

[falsam]

Mon beau sapin style Bontempi ça a du bon .....

Les sapins tu déconnes hein ? tu pourrais aurais pu le dessiner.

Au fait CopySprite() c'est utile

Avec ton code, le nombre de productions passe à 10

Voir les différentes productions

[microdevweb]

Bonjour Raven,

Pas mal du tout

[falsam]

Falsam,
-> as tu fais un fichier point exe de ton code ?
car j'ai un souci, il sort , mais impossible de le lancer, en dehors de purebasic.

le fichier de music peut-être ? une fois compilé, car il n'a pas d'extension une fois lancé . du moins chez moi .( fichiermusic.mid)
si non c'est pas bien grave.

Le code étant un code 3D utilisant les fonctionnalités d'Ogre 3D,le dossier dans lequel se trouve ton éxécutable doit aussi contenir le fichier Engine3D.dll.

Ce fichier se trouve dans le dossier Compiler de ton dossier d'installation de Pure Basic.

[klystron]

Falsam,
merci de m'avoir répondu.
j'ai encore beaucoup de choses à savoir
merci,pour les infos.
bonne fin d'apres-midi.
A+

[falsam]

@klystron: Tu peux télécharger la version éxécutable de SnowMan sur ce lien
http://s242132022.onlinehome.fr/downloa ... nowman.zip

[klystron]

Falsam,
Merci oui c'est bon, je vois bien le fichier Dll .
super ton programme.
A+

[falsam]

@klystron : Si la 3D t’intéresse tu a un tutoriel sur ce sujet.
http://www.purebasic.fr/french/viewtopi ... 13&t=13747

Mon code est une synthèse de ce tutoriel.