Forums PureBasic - Français
https://www.purebasic.fr/french/
Et surtout que la date limite est passée Cool DjiCool Dji a écrit :Lemaquis : Mince, on peut pas accepter ton PurePunch, la taille de l'image est limitée à 512x512 pixels...
Code : Tout sélectionner
InitSprite():InitKeyboard():initmouse():If OpenScreen(1024,768,32,"Pure_Miga_D"+
"emo")=0:MessageBox_ (0,"Impossible d'ouvrir un écran 1024x768x32@75hz",;;;;;;;;
"ERREUR",#MB_ICONINFORMATION|#MB_OK):End:EndIf:enumeration:#font:EndEnumeration;
Enumeration:#decrunch:EndEnumeration:LoadFont(#font,"impact",14,;;;;;;;;;;;;;;;;
#PB_Font_HighQuality):global decrunch,vitesse,y:Procedure Decrunch():y.i=0;;;;;;
vitesse.i=1.6:hauteur.f:Repeat:Couleur=RGB(Random(255),Random(255),Random(255));
Hauteur=random(50):StartDrawing(ScreenOutput()):Box(#decrunch,y,1024,Hauteur,;;;
Couleur):StopDrawing():y=y+Hauteur*vitesse:If y>768:Break:EndIf:ForEver;;;;;;;;;
EndProcedure:Repeat:ClearScreen(rgb(0,0,0)):ExamineKeyboard():examinemouse();;;;
If FPST<ElapsedMilliseconds():FPST=ElapsedMilliseconds()+1000:fps=FPSC:FPSC=0;;;
EndIf:FPSC+1:Decrunch():If StartDrawing(ScreenOutput());;;;;;;;;;;;;;;;;;;;;;;;;
If KeyboardReleased(#PB_Key_Space):If affiche_menu=#True:affiche_menu=#False;;;;
Else:affiche_menu=#True:EndIf:EndIf:DrawingMode(#PB_2DDrawing_Transparent);;;;;;
If affiche_menu=#False:DrawingFont(FontID(#font)):DrawText(20,20,"FPS: "+;;;;;;;
Str(fps),RGB(50,255,150)):drawtext(20,80,"Pure Miga Demo: effet decrunch",;;;;;;
rgb(255,255,255)):Else:EndIf:StopDrawing():EndIf:FlipBuffers();;;;;;;;;;;;;;;;;;
Until KeyboardReleased(#PB_Key_Escape) Or MouseButton(2):CloseScreen():End;;;;;;
Comme il y a du choix cette année, on pourrait pas choisir les 5 premiers(avec le même système de points)Postez un message dans ce forum en indiquant selon l'ordre de préférence :
•(nom du programme favori) : 3 points
•(nom du second programme favori) : 2 points
•(nom du troisième programme favori) : 1 point
Code : Tout sélectionner
w=600:h=600:Define.d a,b,c,d,e,n,o,p,r,t,x,y,z,q:If OpenWindow(0,0,0,w,h,"Supe"+
"rformel",#PB_Window_MaximizeGadget):CanvasGadget(0,0,0,w,h):Macro s(a):Sin(t*a)
EndMacro:l=999:Repeat:f=WindowWidth(0):g=WindowHeight(0):t=ElapsedMilliseconds()
v=WaitWindowEvent(10):If f!w|g!h:w=f:h=g:ResizeGadget(0,0,0,w,h):ElseIf t>u+20+
0 And StartDrawing(CanvasOutput(0)):If q<0:j=m:m=2+2*Random(20):q=1:EndIf:u=t
t/10000:q-0.005:c=10+9*s(2):d=9+9*s(3):a=Abs(s(7)*0.6)+0.1:b=Abs(s(11)*0.6)+0.1
e=9+9*s(5):GrabDrawingImage(0,0,0,w,h):x=150+100*s(1):y=Cos(t*9):n=w/2*(1+y)
DrawAlphaImage(ImageID(0),w*y/x,h*s(9)/x,99):DrawingMode(#PB_2DDrawing_Gradient)
o=h/2*(1+s(9)):LinearGradient(n,o,w-n,h-o):Macro k(a,b,c,d,e=127):a#Color(RGB(0+
e*(1+s(b)),e*(1+s(c)),e*(1+s(d)))):EndMacro:k(Front,2,3,5):k(Back,7,11,13)
Macro z(m):Pow(Pow(Abs(Cos(m*r/4)/a),d)+Pow(Abs(Sin(m*r/4)/b),e),1/c):EndMacro
For i=0 To l:r=i*2*#PI/l:p+s(1)/30000:z=q*z(j)+(1-q)*z(m):x=w/2*(Cos(r+p)/z+1)
y=h/2*(1+0.8*Sin(r+p)/z):If i:LineXY(n,o,x,y):EndIf:n=x:o=y:Circle(x,y,h*Bool(0+
i%(l/20)=0)/70/z):Next:StopDrawing():EndIf:Until v=#PB_Event_CloseWindow:EndIf
Ce ne serait pas une mauvaise idée, mais les règles ont déjà été données, il est un peu tard, je ne veux pas jouer les girouettes. De toutes façons, je pense que la compétition, par nature, est injuste. Le développement de qualités personnelles devrait en être le véritable but, et en ce sens, tous les participants ont déjà gagné, tous sont vainqueurs ! D'ailleurs, je regrette que certains qui ne s'estimaient pas assez forts n'ait pas créé quelque chose, car tout le monde a le droit de participer, de jouer, sans qu'il y ait de honte à ne pas figurer parmi les supposés vainqueurs. Le résultat du vote n'est qu'accessoire, c'est un simple prétexte pour participer et essayer de se dépasser. Que serait le gagnant sans les autres participants ? Et je suis très content d'avoir intégré à l'archive des codes qui n'étaient pas en compétition, et qui sont tout aussi valables.Huitbit a écrit :Hello,
Ca va être dur de choisir :
Comme il y a du choix cette année, on pourrait pas choisir les 5 premiers(avec le même système de points)Postez un message dans ce forum en indiquant selon l'ordre de préférence :
•(nom du programme favori) : 3 points
•(nom du second programme favori) : 2 points
•(nom du troisième programme favori) : 1 point
même si à la fin on ne garde que les trois premiers ?
Car il y a des programmes qui passent à côté d'un vote alors qu'ils mériteraient quelque chose
C'est juste une suggestion, et en plus, il y aurait plus de suspense
Hasta la vista !
Tout à fait d'accord, ça fait toujours plaisir de pondre quelque chose assez proche de ce qu'on avait imaginé, quelqu'en soit le niveau !djes a écrit : Le développement de qualités personnelles devrait en être le véritable but, et en ce sens, tous les participants ont déjà gagné, tous sont vainqueurs ! D'ailleurs, je regrette que certains qui ne s'estimaient pas assez forts n'ait pas créé quelque chose:
SPH a écrit :l'an prochain, le purepunch sera tjr de 50 lignes en 80 caracteres ?
Non non pas 50 ....... mais 20.Cool Dji a écrit :La 5.30 aurait permis des trucs plus sympa avec la camerafollow mais, ce sera pour le prochain PurePunch de 20 lignes !
Toi siSPH a écrit :On ne pourra rien faire en 20 lignes !