Roues dentées... qui tournent

DIM x1%,y1%,w1%,nbr1%,an%,an2%
DIM x2%,y2%,w2%,nbr2%

PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1: 2D_PEN_WIDTH 2
x1% = 50: y1% = 50: w1% = 300: nbr1% = 20: ' roue dentée 1
w2% = 150: x2% = x1%+w1%-10: y2% = y1%+(w1%-w2%)/2: nbr2% = 10: ' roue dentée 2

FOR an% = 0 TO 360 STEP 2
  CLS
  2D_CIRCLE x1%+w1%/2,y1%+w1%/2,20: ' axe de rotation
  Etoile_Rot(x1%,y1%,w1%,nbr1%,an%): ' rotation sens trigonométrique
  an2% = 360-an%
  2D_CIRCLE x2%+w2%/2,y2%+w2%/2,10
  Etoile_Rot(x2%,y2%,w2%,nbr2%,an2%): ' rotation sens des aiguilles
  PAUSE 100
NEXT an%
END
' ==============================================================================
SUB Etoile_Rot(x%,y%,w%,nbr%,an%)
  ' Etoile en x%,y%, largeur/hauteur w%, nbr% branches
  ' an% = inclinaison (degrés) par rapport à la verticale
  DIM_LOCAL i%,rx%,ry%,ri%,t,xc%,yc%,xe%(100),ye%(100)
  rx% = w%/2: ry% = rx%: ' rayon externe
  xc% = x%+rx%: yc% = y%+ry%: ' coordonnées du centre
  ri% = rx%/2.62: ' rayon interne, à ajuster
  ri% = 8*rx%/10
  DEGREES
  t = 90+an%
  FOR i% = 0 TO 2*nbr%-2 STEP 2
      xe%(i%) = xc%+rx%*COS(t): ye%(i%) = yc%-rx%*SIN(t)
      t = t+360/nbr%
  NEXT i%
  t = 90+an%+180/nbr%
  FOR i% = 1 TO 2*nbr%-1 STEP 2
      xe%(i%) = xc%+ri%*COS(t): ye%(i%) = yc%-ri%*SIN(t)
      t = t+360/nbr%
  NEXT i%
  2D_POLY_FROM xe%(0),ye%(0)
  FOR i% = 1 TO nbr%*2-1: 2D_POLY_TO xe%(i%),ye%(i%): NEXT i%
  2D_POLY_TO xe%(0),ye%(0)
END_SUB
' ==============================================================================

LABEL Quit
DIM xc1%,yc1%,dout1%,dint1%,nde1%,da1%
DIM xc2%,yc2%,dout2%,dint2%,nde2%,da2%,rapp%

PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1: ON_CLICK 1,Quit
2D_PEN_WIDTH 2
xc1% = 250: yc1% = 200
dout1% = 300: ' diamètre extérieur
dint1% = 260: ' diamètre intérieur
nde1% = 30: ' nombre de dents (ajustable par la sub)
da1% = 0: ' angle de départ
xc2% = 435: yc2% = yc1%
dout2% = 100
dint2% = 60
nde2% = 10
da2% = 20: ' angle de départ
rapp% = nde1%/nde2%: ' rapport du nombre de dents
WHILE 2>1
  FOR da1% = 360 TO 0 STEP -2
    CLS
    Roue_dentee(xc1%,yc1%,dout1%,dint1%,nde1%,da1%)
    2D_CIRCLE xc1%,yc1%,20: ' axe roue 1
    da2% = -1*rapp%*da1%-15: ' angle rotation roue 2, dans le rapport du nombre de dents, sens inverse
    Roue_dentee(xc2%,yc2%,dout2%,dint2%,nde2%,da2%)
    2D_CIRCLE xc2%,yc2%,10: ' axe roue 2
    PAUSE 100
  NEXT da1%
END_WHILE
END
' ==============================================================================
Quit:
TERMINATE
' ==============================================================================
SUB Roue_dentee(xc%,yc%,dex%,din%,nde%,da%)
  ' Dessin d'un roue dentée avec les paramètres courants (couleur, épaisseur etc.)
  ' Centrée en xc%,yc%, diamètres ext. dex% et int. din%, nombre de dents nbe%
  ' da% = angle de départ (decgrés) de la 1ère dent, à l'extrême droite.
  ' si da% = 0: la dent est horizontale.
  ' NB le nombre de dents peut être ajusté (en plus) par la sub pour un rebouclage
  '    régulier des dents.
  DIM_LOCAL x%,y%,rex%,rin%,an%,t%
  rex% = dex%/2: rin% = din%/2
  ' ajustage éventuel du nombre de dents pour rebouclage correct
  an% = 360/nde%: WHILE an%<>360/nde%: nde%=nde%+1: an%=360/nde%: END_WHILE
  DEGREES
  x% = xc%+rex%*COS(da%): y% = yc%-rex%*SIN(da%): ' pointe de la dent de départ
  2D_POLY_FROM x%,y%
  FOR t% = an%+da% TO 360+da% STEP an%
      x% = xc%+rin%*COS(t%-an%/2): y% = yc%-rin%*SIN(t%-an%/2)
      2D_POLY_TO x%,y%
      x% = xc%+rex%*COS(t%): y% = yc%-rex%*SIN(t%)
      2D_POLY_TO x%,y%
  NEXT t%
END_SUB
' ==============================================================================

LABEL Quit
DIM xc1%,yc1%,dout1%,dint1%,nde1%,da1%
DIM xc2%,yc2%,dout2%,dint2%,nde2%,da2%,rapp%

PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1: ON_CLICK 1,Quit
Border_hide 0
alpha 2 : font_bold 2 : font_size 2,12 : caption 2,"Cliquez sur une roue pour quitter"
2D_PEN_WIDTH 2
xc1% = 250: yc1% = 200
dout1% = 300: ' diamètre extérieur
dint1% = 260: ' diamètre intérieur
nde1% = 30: ' nombre de dents (ajustable par la sub)
da1% = 0: ' angle de départ
xc2% = 435: yc2% = yc1%
dout2% = 100
dint2% = 60
nde2% = 10
da2% = 20: ' angle de départ
rapp% = nde1%/nde2%: ' rapport du nombre de dents
WHILE 2>1
  FOR da1% = 359 TO 0 STEP -2
    2D_CLEAR : ' CLS
    Roue_dentee(xc1%,yc1%,dout1%,dint1%,nde1%,da1%)
    2D_CIRCLE xc1%,yc1%,20: ' axe roue 1
    da2% = -1*rapp%*da1%-15: ' angle rotation roue 2, dans le rapport du nombre de dents, sens inverse
    Roue_dentee(xc2%,yc2%,dout2%,dint2%,nde2%,da2%)
    2D_CIRCLE xc2%,yc2%,10: ' axe roue 2
    PAUSE 100
  NEXT da1%
END_WHILE
END
' ==============================================================================
Quit:
TERMINATE
return
' ==============================================================================
SUB Roue_dentee(xc%,yc%,dex%,din%,nde%,da%)
  ' Dessin d'un roue dentée avec les paramètres courants (couleur, épaisseur etc.)
  ' Centrée en xc%,yc%, diamètres ext. dex% et int. din%, nombre de dents nbe%
  ' da% = angle de départ (decgrés) de la 1ère dent, à l'extrême droite.
  ' si da% = 0: la dent est horizontale.
  ' NB le nombre de dents peut être ajusté (en plus) par la sub pour un rebouclage
  '    régulier des dents.
  DIM_LOCAL x%,y%,rex%,rin%,an%,t%
  rex% = dex%/2: rin% = din%/2
  ' ajustage éventuel du nombre de dents pour rebouclage correct
  an% = 360/nde%: WHILE an%<>360/nde%: nde%=nde%+1: an%=360/nde%: END_WHILE
  DEGREES
  x% = xc%+rex%*COS(da%): y% = yc%-rex%*SIN(da%): ' pointe de la dent de départ
  2D_POLY_FROM x%,y%
  FOR t% = an%+da% TO 360+da% STEP an%
      x% = xc%+rin%*COS(t%-an%/2): y% = yc%-rin%*SIN(t%-an%/2)
      2D_POLY_TO x%,y%
      x% = xc%+rex%*COS(t%): y% = yc%-rex%*SIN(t%)
      2D_POLY_TO x%,y%
  NEXT t%
END_SUB
' ==============================================================================

LABEL Quit
DIM xc1%,yc1%,dout1%,dint1%,nde1%,da1%
DIM xc2%,yc2%,dout2%,dint2%,nde2%,da2%,rapp%
DIM i%,SP%, vitesse%
WIDTH 0,620
HEIGHT 0,480
PICTURE 50: FULL_SPACE 50: 2D_TARGET_IS 50
SCENE2D 51: FULL_SPACE 51: ON_CLICK 51,Quit
2D_PEN_WIDTH 2
xc1% = 250: yc1% = 200
dout1% = 300: ' diamètre extérieur
dint1% = 260: ' diamètre intérieur
nde1% = 30: ' nombre de dents (ajustable par la sub)
da1% = 0: ' angle de départ
xc2% = 435: yc2% = yc1%
dout2% = 100
dint2% = 60
nde2% = 10
da2% = 20: ' angle de départ
rapp% = nde1%/nde2%: ' rapport du nombre de dents
SP%=1
' WHILE 2>1
  FOR da1% = 11 TO 0 STEP -2
    CLS
    Roue_dentee(xc1%,yc1%,dout1%,dint1%,nde1%,da1%)
    2D_CIRCLE xc1%,yc1%,20: ' axe roue 1
    da2% = -1*rapp%*da1%-15: ' angle rotation roue 2, dans le rapport du nombre de dents, sens inverse
    Roue_dentee(xc2%,yc2%,dout2%,dint2%,nde2%,da2%)
    2D_CIRCLE xc2%,yc2%,10: ' axe roue 2
    PAUSE 100
    IMAGE da1%
    SPRITE SP%
    2D_IMAGE_COPY da1%,0,0,620,480
    SPRITE_IMAGE_LOAD SP%,da1%
    SPRITE_HIDE SP%
    SP%=SP%+1
  NEXT da1%
' END_WHILE

WHILE 2>1
    vitesse%=MOUSE_Y_POSITION(51)/2
    IF vitesse% < 5 THEN vitesse%=5
    FOR i% = 1 TO 6
        SPRITE_SHOW i%
        IF i% = 1
            SPRITE_HIDE i%+5
        ELSE
            SPRITE_HIDE i%-1   
        END_IF   
        CAPTION 0, INT(vitesse%)
        PAUSE INT(vitesse%)
    NEXT i%
END_WHILE

END
' ==============================================================================
Quit:
TERMINATE
' ==============================================================================
SUB Roue_dentee(xc%,yc%,dex%,din%,nde%,da%)
  ' Dessin d'un roue dentée avec les paramètres courants (couleur, épaisseur etc.)
  ' Centrée en xc%,yc%, diamètres ext. dex% et int. din%, nombre de dents nbe%
  ' da% = angle de départ (decgrés) de la 1ère dent, à l'extrême droite.
  ' si da% = 0: la dent est horizontale.
  ' NB le nombre de dents peut être ajusté (en plus) par la sub pour un rebouclage
  '    régulier des dents.
  DIM_LOCAL x%,y%,rex%,rin%,an%,t%
  rex% = dex%/2: rin% = din%/2
  ' ajustage éventuel du nombre de dents pour rebouclage correct
  an% = 360/nde%: WHILE an%<>360/nde%: nde%=nde%+1: an%=360/nde%: END_WHILE
  DEGREES
  x% = xc%+rex%*COS(da%): y% = yc%-rex%*SIN(da%): ' pointe de la dent de départ
  2D_POLY_FROM x%,y%
  FOR t% = an%+da% TO 360+da% STEP an%
      x% = xc%+rin%*COS(t%-an%/2): y% = yc%-rin%*SIN(t%-an%/2)
      2D_POLY_TO x%,y%
      x% = xc%+rex%*COS(t%): y% = yc%-rex%*SIN(t%)
      2D_POLY_TO x%,y%
  NEXT t%
END_SUB
' ========================