RectangleArrondi3D(...) + exemples

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Répondre
erix14
Messages : 480
Inscription : sam. 27/mars/2004 16:44
Contact :
Contacter erix14

RectangleArrondi3D(...) + exemples

Message par erix14 »

Bonjour,
je viens de réécrire la procédure RectangleArrondi3D, que j'avais déjà créé pour le jeu Puissance4. Cette fois-ci, c'est de la vraie 3D. Je fournis deux exemples, le premier est très simple, le deuxième est un jeu : le Solitaire.

Code : Tout sélectionner

;/
;/                     RectangleArrondi3D  - Programme Eric Ducoulombier ( Erix14 )
;/                             Windows XP SP2 - PureBasic 3.91 - jaPBe 2.4.9.25
;/                                                          02/10/2004
;/
#Longueur = 500
#Largeur = 500
#Window = 0
Global hWnd
Structure UnPoint
          Epaisseur.f
          NormalX.f
          NormalY.f
          NormalZ.f
EndStructure
Dim Buffet3D.UnPoint(#Longueur,#Largeur)
Procedure EffaceBuffet3D()
          For y=0 To #Largeur-1
                    For x=0 To #Longueur-1
                              Buffet3D(x,y)\Epaisseur = 0
                              Buffet3D(x,y)\NormalX = 0
                              Buffet3D(x,y)\NormalY = 0
                              Buffet3D(x,y)\NormalZ = 0
                    Next
          Next
EndProcedure
Procedure RectangleArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = PositionY + j;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = PositionX + i
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon
                    JJ = PositionY + y
                    For x=0 To Epaisseur
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;    côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;    côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
                    For x=Epaisseur To longueur-Epaisseur;  centre
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=0 To Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;    côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;    côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=Epaisseur To rayon
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre supérieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
                    For y=largeur-rayon To largeur-Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre inférieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
EndProcedure
Procedure CaviteArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon : JJ = PositionY + y
                    For x=0 To Epaisseur : II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;      côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;      côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon : II = PositionX + x
                    For y=0 To Epaisseur : JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;      côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;      côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
EndProcedure
Procedure Rendu3D(longueur,largeur,couleur)
          LR = Red(couleur) : LG = Green(couleur) : LB = Blue(couleur); Couleur du rendu
          LX.f = 0 : LY.f = 0 : LZ.f = 50; Position de la lampe ponctuel
          PR = 128 : PG = 128 : PB = 128; Lumière de la lampe ponctuel
          AR = 32 : AG = 32 : AB = 32; Lumière d'ambiance
          For y=0 To largeur
                    For x=0 To longueur
                              If Buffet3D(x,y)\Epaisseur = 0 : Continue : EndIf
                              Distance.f = Sqr(Pow(x-LX,2)+Pow(y-LY,2)+Pow(Buffet3D(x,y)\Epaisseur-LZ,2))
                              DirX.f = (x-LX)/Distance
                              DirY.f = (y-LY)/Distance
                              DirZ.f = (Buffet3D(x,y)\Epaisseur-LZ)/Distance
                              K.f = -(Buffet3D(x,y)\NormalX*DirX + Buffet3D(x,y)\NormalY*DirY + Buffet3D(x,y)\NormalZ*DirZ)
                              r = LR + AR + K*PR : If r > 255 : r = 255 : EndIf : If r < 0 : r = 0 : EndIf
                              g = LG + AG + K*PG : If g > 255 : g = 255 : EndIf : If g < 0 : g = 0 : EndIf
                              b = LB + AB + K*PB : If b > 255 : b = 255 : EndIf : If b < 0 : b = 0 : EndIf
                              Plot(x,y,RGB(r,g,b))
                    Next
          Next
EndProcedure
Procedure mycallback(WindowID, Message, lParam, wParam)
          Result = #PB_ProcessPureBasicEvents
          Select Message
                    Case #WM_PAINT
                              hRgn = CreateRoundRectRgn_(1,1,#Longueur-1,#Largeur-1,200,200)
                              SetWindowRgn_(hWnd, hRgn, #True)
                              DeleteObject_(hRgn)
          EndSelect
          ProcedureReturn Result
EndProcedure
;- Debut du programme
hWnd = OpenWindow(#Window, 0, 0, #Longueur, #Largeur, #PB_Window_BorderLess | #PB_Window_Invisible | #PB_Window_ScreenCentered, "RectangleArrondi3D")
CreateGadgetList(WindowID()) 
;{/ Image de fond
CreateImage(0, #Longueur, #Largeur) 
StartDrawing(ImageOutput())
          RectangleArrondi3D(0,0,#Longueur-1,#Largeur-1,100,20)
          CaviteArrondi3D(80,80,320,60,30,10)
          RectangleArrondi3D(90,90,300,40,20,10)
          CaviteArrondi3D(80,150,320,60,30,10)
          RectangleArrondi3D(90,160,300,40,20,10)
          CaviteArrondi3D(100,300,84,84,42,12)
          CaviteArrondi3D(200,300,84,84,42,12)
          CaviteArrondi3D(300,300,84,84,42,12)
          CaviteArrondi3D(90,400,320,60,30,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,128,0))

          EffaceBuffet3D()
          RectangleArrondi3D(111,311,62,62,31,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(0,0,128))
          
          EffaceBuffet3D()
          RectangleArrondi3D(211,311,62,62,31,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,128,128))
          
          EffaceBuffet3D()
          RectangleArrondi3D(311,311,62,62,31,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,0,0))
          
          EffaceBuffet3D()
          RectangleArrondi3D(90,230,300,40,20,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,128,32))
          
          DrawingMode(1)
          DrawingFont(LoadFont(0,"Times New Roman",24))
          FrontColor(50,50,50)
          Locate(110,92) : DrawText("RectangleArrondi3D")
          Locate(130,162) : DrawText("CaviteArrondi3D")
          DrawingFont(LoadFont(0,"Times New Roman",20,#PB_Font_Bold))
          Locate(115,230) : DrawText("[Echap] pour quitter")
          Locate(130,412) : DrawText("Programme Erix14")
StopDrawing();}
ImageGadget(0, 0, 0, 0, 0, ImageID()) 
SetWindowCallback(@mycallback())
HideWindow(#Window,0)
Repeat
          Select WaitWindowEvent()
                    Case #WM_LBUTTONDOWN;{ Déplacement de la fenêtre
                              SendMessage_(hWnd, #WM_NCLBUTTONDOWN, #HTCAPTION, #Null);}
                    Case #WM_KEYDOWN;{  Commande clavier
                              Key = EventwParam()
                              If Key = 27 : End : EndIf;}
          EndSelect
ForEver
deuxième exemple :

Code : Tout sélectionner

;/
;/                     Le Solitaire  - Programme Eric Ducoulombier ( Erix14 )
;/                         Windows XP SP2 - PureBasic 3.91 - jaPBe 2.4.9.25
;/                                                          03/10/2004
;/
#Longueur = 500
#Largeur = 500
#Window = 0
Global m_hMidiOut,m_MIDIOpen.b,hWnd,hBmp,DeplaceBille,PosX,PosY,AncienX,AncienY,NbCoup
Structure UnPoint
          Epaisseur.f
          NormalX.f
          NormalY.f
          NormalZ.f
EndStructure
Dim Buffet3D.UnPoint(#Longueur,#Largeur)
Dim PlateauBille.b(7,7)
Procedure SendMIDIMessage(nStatus.l,nCanal.l,nData1.l,nData2.l)
          dwFlags.l = nStatus | nCanal | (nData1 << 8) | (nData2 << 16)
          temp.l = midiOutShortMsg_(m_hMidiOut,dwFlags);
          If temp<>0 
                    MessageRequester("Problème", "Erreur dans l'envoi du message MIDI",0)
          EndIf
EndProcedure
Procedure MIDIOpen()
          If m_MIDIOpen = 0
                    If midiOutOpen_(@m_hMidiOut,MIDIMAPPER,0,0,0) <> 0 
                              MessageRequester("Problème", "Impossible d'ouvrir le périphérique MIDI",0)
                    Else
                              SendMIDIMessage($C0,0,0,0)
                              m_MIDIOpen = 1
                    EndIf
          EndIf
EndProcedure
Procedure PlayNoteMIDI(Canal.b,Note.b,VelociteDown.b,VelociteUp.b)
          If m_MIDIOpen
                    SendMIDIMessage($80 | Canal,0,Note,VelociteDown)
                    SendMIDIMessage($90 | Canal,0,Note,VelociteUp)
          EndIf          
EndProcedure
Procedure ChargeInstrument(Canal.b,Instrument.b)
          If m_MIDIOpen
                    SendMIDIMessage($C0 | Canal,0,Instrument,0)
          EndIf          
EndProcedure
Procedure EffaceBuffet3D()
          For y=0 To #Largeur-1
                    For x=0 To #Longueur-1
                              Buffet3D(x,y)\Epaisseur = 0
                              Buffet3D(x,y)\NormalX = 0
                              Buffet3D(x,y)\NormalY = 0
                              Buffet3D(x,y)\NormalZ = 0
                    Next
          Next
EndProcedure
Procedure RectangleArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = PositionY + j;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = PositionX + i
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon
                    JJ = PositionY + y
                    For x=0 To Epaisseur
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;    côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;    côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
                    For x=Epaisseur To longueur-Epaisseur;  centre
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=0 To Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;    côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;    côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=Epaisseur To rayon
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre supérieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
                    For y=largeur-rayon To largeur-Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre inférieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
EndProcedure
Procedure CaviteArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon : JJ = PositionY + y
                    For x=0 To Epaisseur : II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;      côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;      côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon : II = PositionX + x
                    For y=0 To Epaisseur : JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;      côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;      côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
EndProcedure
Procedure Rendu3D(longueur,largeur,couleur)
          LR = Red(couleur) : LG = Green(couleur) : LB = Blue(couleur); Couleur du rendu
          LX.f = 0 : LY.f = 0 : LZ.f = 50; Position de la lampe ponctuel
          PR = 128 : PG = 128 : PB = 128; Lumière de la lampe ponctuel
          AR = 32 : AG = 32 : AB = 32; Lumière d'ambiance
          For y=0 To largeur
                    For x=0 To longueur
                              If Buffet3D(x,y)\Epaisseur = 0 : Continue : EndIf
                              Distance.f = Sqr(Pow(x-LX,2)+Pow(y-LY,2)+Pow(Buffet3D(x,y)\Epaisseur-LZ,2))
                              DirX.f = (x-LX)/Distance
                              DirY.f = (y-LY)/Distance
                              DirZ.f = (Buffet3D(x,y)\Epaisseur-LZ)/Distance
                              K.f = -(Buffet3D(x,y)\NormalX*DirX + Buffet3D(x,y)\NormalY*DirY + Buffet3D(x,y)\NormalZ*DirZ)
                              r = LR + AR + K*PR : If r > 255 : r = 255 : EndIf : If r < 0 : r = 0 : EndIf
                              g = LG + AG + K*PG : If g > 255 : g = 255 : EndIf : If g < 0 : g = 0 : EndIf
                              b = LB + AB + K*PB : If b > 255 : b = 255 : EndIf : If b < 0 : b = 0 : EndIf
                              Plot(x,y,RGB(r,g,b))
                    Next
          Next
EndProcedure
Procedure AffichePlateauBille()
          For y=0 To 6
                    For x=0 To 6
                              If PlateauBille(x,y) = 1 : DisplayTransparentSprite(2,50+x*60,50+y*60) : EndIf
                    Next
          Next
          StartDrawing(ScreenOutput())
          DrawingMode(1)
          DrawingFont(LoadFont(0,"Times New Roman",34,#PB_Font_Bold))
          FrontColor(250,250,250)
          Locate(368,363) : DrawText(RSet(Str(NbCoup),2,"0"))
          StopDrawing()
EndProcedure
Procedure NouvellePartie()
          DeplaceBille = #False : NbCoup = 0
          For x=0 To 6
                    For y=0 To 6
                              If PlateauBille(x,y)<>10 : PlateauBille(x,y)=1 : EndIf
                    Next
          Next
          Cherche = #True
          While Cherche
                    x = Random(6) : y = Random(6)
                    If PlateauBille(x,y) = 1
                              Cherche = #False
                              PlateauBille(x,y) = 0
                    EndIf
          Wend
          DisplaySprite(1,0,0)
          AffichePlateauBille()
          FlipBuffers()
          PlayNoteMIDI(0,54,127,127)
EndProcedure
Procedure mycallback(WindowID, Message, lParam, wParam)
          Result = #PB_ProcessPureBasicEvents
          Select Message
                    Case #WM_PAINT
                              hRgn = CreateRoundRectRgn_(1,1,#Longueur-1,#Largeur-1,300,300)
                              hBrush = CreatePatternBrush_(hBmp)
                              SetClassLong_(hWnd, #GCL_HBRBACKGROUND, hBrush)
                              InvalidateRect_(hWnd, #Null, #True)
                              SetWindowRgn_(hWnd, hRgn, #True)
                              DeleteObject_(hRgn)
                              DeleteObject_(hBrush) 
                              DisplaySprite(1,0,0)
                              AffichePlateauBille()
                              FlipBuffers()
          EndSelect
          ProcedureReturn Result
EndProcedure
;- Debut du programme
If InitSprite() = 0 : End : EndIf
hWnd = OpenWindow(#Window, 0, 0, #Longueur, #Largeur, #PB_Window_BorderLess | #PB_Window_Invisible | #PB_Window_ScreenCentered, "Le Solitaire")
OpenWindowedScreen(hWnd, 0,0,#Longueur,#Largeur,0,0,0)
MIDIOpen() : ChargeInstrument(0,9)
;{/ Image de fond
hBmp = CreateSprite(1, #Longueur, #Largeur) 
StartDrawing(SpriteOutput(1))
RectangleArrondi3D(0,0,#Longueur-1,#Largeur-1,150,40)
For t=0 To 6
          CaviteArrondi3D(160,40+t*60,60,60,30,10)
          CaviteArrondi3D(220,40+t*60,60,60,30,10)
          CaviteArrondi3D(280,40+t*60,60,60,30,10)
Next
For t=2 To 4
          CaviteArrondi3D(40,40+t*60,60,60,30,10)
          CaviteArrondi3D(100,40+t*60,60,60,30,10)
          CaviteArrondi3D(340,40+t*60,60,60,30,10)
          CaviteArrondi3D(400,40+t*60,60,60,30,10)
Next
CaviteArrondi3D(340,340,100,100,50,11)
CaviteArrondi3D(60,340,100,100,50,11)
Rendu3D(#Longueur-1,#Largeur-1,RGB(128,64,0))
EffaceBuffet3D()
RectangleArrondi3D(350,350,80,80,40,10)
RectangleArrondi3D(70,350,80,80,40,10)
Rendu3D(#Longueur-1,#Largeur-1,RGB(0,0,64))
DrawingMode(1)
DrawingFont(LoadFont(0,"Times New Roman",20,#PB_Font_Bold))
FrontColor(50,50,50)
Locate(180,5) : DrawText("Le Solitaire")
DrawingFont(LoadFont(0,"Times New Roman",14))
FrontColor(250,250,250)
Locate(88,380) : DrawText("Erix14")
FrontColor(64,32,0)
Locate(70,80) : DrawText("[Espace]")
Locate(70,100) : DrawText("Nouvelle")
Locate(70,120) : DrawText("partie")
Locate(360,80) : DrawText("[Echap]")
Locate(360,100) : DrawText("Quitter")
StopDrawing();}
;{/ Image bille
CreateSprite(2,40,40) 
StartDrawing(SpriteOutput(2))
          EffaceBuffet3D()
          RectangleArrondi3D(0,0,40,40,20,20)
          Rendu3D(40,40,RGB(110,110,110))
StopDrawing();}
;{/ Image bille2
CreateSprite(4,40,40) 
StartDrawing(SpriteOutput(4))
          EffaceBuffet3D()
          RectangleArrondi3D(0,0,40,40,20,20)
          Rendu3D(40,40,RGB(50,150,50))
StopDrawing();}
PlateauBille(0,0) = 10 : PlateauBille(0,1) = 10 : PlateauBille(1,0) = 10 :PlateauBille(1,1) = 10          
PlateauBille(0,5) = 10 : PlateauBille(0,6) = 10 : PlateauBille(1,5) = 10 :PlateauBille(1,6) = 10          
PlateauBille(5,0) = 10 : PlateauBille(5,1) = 10 : PlateauBille(6,0) = 10 :PlateauBille(6,1) = 10          
PlateauBille(5,5) = 10 : PlateauBille(5,6) = 10 : PlateauBille(6,5) = 10 :PlateauBille(6,6) = 10          
SetWindowCallback(@mycallback())
HideWindow(#Window,0)
NouvellePartie()
Repeat
          Select WaitWindowEvent()
                    Case #WM_MOUSEMOVE;{ Déplacement de la souris
                              If DeplaceBille
                                        mx = WindowMouseX() : my = WindowMouseY()
                                        If mx<50 Or mx>450 Or my<50 Or my>450
                                                  PlateauBille(PosX,PosY) = 1
                                                  DisplaySprite(1,0,0)
                                                  AffichePlateauBille()
                                                  FlipBuffers()
                                                  DeplaceBille = #False
                                        Else
                                                  mx - 20 : my -20
                                                  DisplaySprite(3,AncienX,AncienY)
                                                  GrabSprite(3,mx,my,40,40)
                                                  DisplayTransparentSprite(4,mx,my)
                                                  AncienX = mx : AncienY = my
                                                  FlipBuffers()
                                        EndIf
                              EndIf;}
                    Case #WM_LBUTTONDOWN;{
                              mx = WindowMouseX() : my = WindowMouseY()
                              If mx>50 And mx<450 And my>50 And my<450
                                        i = (mx-50)/60 : j = (my-50)/60
                                        If PlateauBille(i,j) = 1
                                                  DeplaceBille = #True
                                                  PlateauBille(i,j) = 0
                                                  PosX = i : PosY = j
                                                  UseBuffer(1)
                                                  AncienX = 50+i*60 : AncienY = 50+j*60
                                                  GrabSprite(3,AncienX,AncienY,40,40)
                                                  UseBuffer(-1)
                                                  DisplayTransparentSprite(4,AncienX,AncienY)
                                                  FlipBuffers()
                                        EndIf
                              Else : SendMessage_(hWnd, #WM_NCLBUTTONDOWN, #HTCAPTION, #Null)
                              EndIf;}
                    Case #WM_LBUTTONUP;{
                              mx = WindowMouseX() : my = WindowMouseY()
                              If DeplaceBille : PlateauBille(PosX,PosY) = 1 : EndIf
                              DeplaceBille = #False
                              If mx>50 And mx<450 And my>50 And my<450
                                        i = (mx-50)/60 : j = (my-50)/60
                                        If PlateauBille(i,j) = 0
                                                  If PosX-2 >= 0
                                                            If i=PosX-2 And j=PosY And PlateauBille(PosX-1,PosY)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX-1,PosY) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                                  If PosX+2 <= 6
                                                            If i=PosX+2 And j=PosY And PlateauBille(PosX+1,PosY)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX+1,PosY) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                                  If PosY-2 >= 0
                                                            If i=PosX And j=PosY-2 And PlateauBille(PosX,PosY-1)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX,PosY-1) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                                  If PosY+2 <= 6
                                                            If i=PosX And j=PosY+2 And PlateauBille(PosX,PosY+1)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX,PosY+1) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                        EndIf
                                        DisplaySprite(1,0,0)
                                        AffichePlateauBille()
                                        FlipBuffers()
                              EndIf;}
                    Case #WM_KEYDOWN;{  Commandes clavier
                              Key = EventwParam()
                              If Key = 32 : NouvellePartie() : EndIf
                              If Key = 27 : End : EndIf;}
          EndSelect
ForEver
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

quel bosseur !

Bravo , c'est encore une fois très réussi .

A quand l'IA pour suggérer le meilleur coup ? :)

Un site intéressant sur le sujet

http://eternitygames.free.fr/Solitaire. ... 20français
Dernière modification par comtois le dim. 03/oct./2004 14:46, modifié 1 fois.
Haut
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Message par Chris »

Bravo!

Juste une question:
Pourquoi tu crée toujours toutes tes images en les codant dans le programme?

En tout cas, c'est réussi! :wink:
Haut
erix14
Messages : 480
Inscription : sam. 27/mars/2004 16:44
Contact :
Contacter erix14

Message par erix14 »

Merci comtois pour le site, c'est très instructif, mais je ne compte pas développer une IA. C'était juste histoire de faire un joli exemple.
C'est justement pour cela, Chris, que je code mes images, c'est pour faire des exemples faciles à mettre sur le forum et à exécuter. De plus, ça m'entraîne aux techniques de conception graphique. J'ai pour projet de concevoir un éditeur de sprites,icons,boutons,logos... Avec un aspect très convivial est très intuitif. :D
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Message par Le Soldat Inconnu »

Encore et toujours très réussi :D
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Fred
Site Admin
Messages : 2808
Inscription : mer. 21/janv./2004 11:03

Message par Fred »

Excellent..
Haut
Guimauve
Messages : 1015
Inscription : mer. 11/févr./2004 0:32
Localisation : Québec, Canada

Message par Guimauve »

Je viens de regarder et encore une fois rien à dire. C'est du travaille de pro, rien de moins.

Moi je vais aller m'entrainer encore un peu. :roll:

A+
Guimauve
Haut
garzul
Messages : 683
Inscription : mer. 26/mai/2004 0:33

Message par garzul »

8O Vraiment Erix14 la tu es un boss du windowed 8) Rien a redire , je vais essayer de faire comme toi ( Attention au résultat ^^ )
Haut
Oliv
Messages : 2117
Inscription : mer. 21/janv./2004 18:39

Message par Oliv »

encore épatant :D ,bravo :D :D
(Et marcus qui soutien que l'on ne peux pas faire du fluide en mode fenêtre.....tu nous prouves tout le temps le contraire)
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Message par Le Soldat Inconnu »

Et hop, une seule boule au centre :D

Image
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
erix14
Messages : 480
Inscription : sam. 27/mars/2004 16:44
Contact :
Contacter erix14

Message par erix14 »

Bravo!!! :D
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Message par Le Soldat Inconnu »

Bien franchement, tu devrais faire un site pour y exposer tes jeux :D
Je suis sure que pas mal de gens seraient ravis de pouvoir les télécharger :wink:
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

Tu pourrais même faire une compile dans un EXE avec une belle interface comme tu sais le faire pour choisir le Jeux à jouer.

:)
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

Et hop, une seule boule au centre Very Happy
dit donc t'a modifié le code pour avoir ce resultat !! :lol: :lol:
Haut
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :
Contacter Le Soldat Inconnu

Message par Le Soldat Inconnu »

non, j'ai fait du copier coller de la case vide de départ sous Paint :mrgreen: (ah ben non, ça marche pas pour le score, zut)

Tu ne peux accepter que je suis meilleur que toi tout simplement ? :lol:

Si vous voulez, je vous explique comment faire :wink: mais ça ne présente pas un grand intérêt d'avoir direct la solution
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
Haut
Répondre

Revenir à « Trucs et astuces »