Dessiner un engrenage

[cederavic]

ben c'est pas moi qui fait la division par 0, c'est vous en descandant div a 0
bon je corrige

voilas, j'aime bien aussi comme ça

Code : Tout sélectionner

#PI = 3.14159265

InitSprite()
InitKeyboard()

OpenScreen(1280, 1024, 32, "")

Procedure Engrenage(x.l, y.l, r1.f, r2.f, p.f, an.f, pr.f)
  a.f
  a2.f
 
  StartDrawing(ScreenOutput())
    Repeat
      
      Repeat
        
        a + pr
    
        If b
          xp1 = r1 * Cos(a + an) + x
          yp1 = r1 * Sin(a + an) + y
        Else
          xp1 = r2 * Cos(a + an) + x
          yp1 = r2 * Sin(a + an) + y
        EndIf

      
        Plot(xp1, yp1, RGB(200, 180, 255))
      Until a > a2 + p
      If b
        xp2 = r2 * Cos(a + an) + x
        yp2 = r2 * Sin(a + an) + y
      Else
        xp2 = r1 * Cos(a + an) + x
        yp2 = r1 * Sin(a + an) + y
      EndIf
      LineXY(xp1, yp1, xp2, yp2, RGB(200, 180, 255))
      
      a2.f + p
      a.f = a2
      
      b + 1
      If b > 1 : b = 0 : EndIf
    Until a2 >= 2* #PI
    
  StopDrawing()

EndProcedure

div = 8

Repeat

  ExamineKeyboard()
  If KeyboardReleased(#PB_Key_Up)   : div + 1 : EndIf
  If KeyboardReleased(#PB_Key_Down) : div - 1 : EndIf
  
  If div <= 0 : div = 1 : EndIf
  
  ClearScreen(0, 0, 0)
  
  a.f + 0.01
  If a > 2 * #Pi : a = 0 : EndIf
  
  Engrenage(640, 512, 400, 500, #pi / div, a, 0.001)
  Engrenage(640, 512, 200, 300, #pi / (div + 2), -a, 0.001)
  Engrenage(640, 512, 50 , 100, #pi / (div + 6), a, 0.001)
  
  FlipBuffers()

Until KeyboardPushed(#PB_Key_Escape)

[Le Soldat Inconnu]

c'est extra ton truc Cederavic

allez, je mets les 3 sur codes FR, pas d'objection ?

Vive les rois de la dentition

[Chris]

ben c'est pas moi qui fait la division par 0, c'est vous en descandant div a 0

Qui c'est, le programmeur ? C'est toi, non ?

Nous, on est que des pov'z'utilisateurs

Chris

[cederavic]

erf double poste, dsl...
pas de probleme, mais je te laisse faire les entete

[Le Soldat Inconnu]

ben non, j'ai suprrimé le doublon, hihihi

pour le lissage, je regarde mais ça va être chaud. pas impossible mais chaud.
au boulot, je retrouve les manches, le clavier et hop

[cederavic]

ben c'est pas moi qui fait la division par 0, c'est vous en descandant div a 0

Qui c'est, le programmeur ? C'est toi, non ?

Nous, on est que des pov'z'utilisateurs

Chris

meuh...
ok j'avai oublier le : Je ne suis en aucun cas responsable des dommage que ce code source peut créer en cas de movaise utilisation ou autre. En lançant ce code source, vous prenez toute responsabilité.

[Flype]

je vous adore

[Chris]

Je ne suis en aucun cas responsable des dommage que ce code source peut créer en cas de movaise utilisation ou autre. En lançant ce code source, vous prenez toute responsabilité

.

Le dernier qui nous a dit ça a effacé le disque de Denis et le mien

Chris

[cederavic]

Je ne suis en aucun cas responsable des dommage que ce code source peut créer en cas de movaise utilisation ou autre. En lançant ce code source, vous prenez toute responsabilité

.

Le dernier qui nous a dit ça a effacé le disque de Denis et le mien

Chris

MDR!!!!!!

ps : MDR = Mort De Rire et non Merd**** hein Régis, ça y est c'est rentrer? (joke)

[nico]

Un engrenage qui fait foirer window, on aura tout vu!!

Pourtant sûr qu'il lui en manque un

[Flype]

oui mais lequel ?

[cederavic]

sans doute le principal

[Le Soldat Inconnu]

celui qui permet de passer la première, reste bloqué en marche arrière, sal...rie

[Dr. Dri]

...

[cederavic]

super ton code cederavic, ce qui serait bien ce serait d'en faire un screensaver ou plusieurs engrenages s'entraineraient les uns les autres avec leurs vilaines dents ^^

Dri

PS. dans la série des suggestions foireurs j'ai nommé : Moi même ^^

merci
pour le screensaver, regarde mon juste avant celui la (page 1), si tu veut le modifier pour en faire un, no pb