Page 8 sur 13

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 14:02
par raven
bravo falsam,c'est magnifique 8O 8)

aucun soucis sur mon pc tourne nickel.

@ar-s sympa ton chrismas desktop screensaver :wink:

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

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 14:09
par microdevweb
Joli Ar-s ces petits flocons

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 14:27
par falsam
Ar-S bravo et désolé d'avoir troubler ton sommeil. Au moins tu as publié ton code :mrgreen:

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

Tu fais parti de mes favoris :)

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 14:43
par klystron
Bien le bonjour à tous,
Bravo Falsam , ton code est magnifique.
A+

Oui, il fonctionne sous Windows 7

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 15:24
par falsam
raven a écrit :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. :)

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 15:29
par 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.

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:00
par raven
bon j'ai tenté l'aventure du pure punch... :oops: malgré mon niveau de programmation...
j'avais juste envie de participé pour le fun :lol:

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

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:05
par klystron
Bonjour Raven,
bravo pas mal ton code.

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:19
par 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

:idea: Voir les différentes productions

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:37
par microdevweb
Bonjour Raven,

Pas mal du tout

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:44
par falsam
klystron a écrit :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.

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:50
par klystron
Falsam,
merci de m'avoir répondu.
j'ai encore beaucoup de choses à savoir :D
merci,pour les infos.
bonne fin d'apres-midi.
A+

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:54
par falsam
@klystron: Tu peux télécharger la version éxécutable de SnowMan sur ce lien
:arrow: http://s242132022.onlinehome.fr/downloa ... nowman.zip

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 16:59
par klystron
Falsam,
Merci oui c'est bon, je vois bien le fichier Dll .
super ton programme.
A+

Re: Compétition PurePunch Noël 2014

Publié : mar. 16/déc./2014 17:10
par 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.