Roue en dents de scie.

rem ============================================================================
rem               Roue en dents de scie
rem ============================================================================
dim r1,r2,omega,xa,ya,xb,yb,xc,yc,t
picture 10 : full_space 10 : 2d_target_is 10 :' color 10,0,0,0
xc = width_client(10)/2 : yc = height_client(10)/2
r1 = 200 : r2 = 150 : omega = .987654321
caption 0,"Roue en dents de scie"
degrees
for t = 0 to 360*40 step 12 : ' essayez d'autres valeurs de step exp 10,20,25
    2d_pen_color mod(t,255), rnd(255) ,mod(abs(t-rnd(255)),255)
    xa = xc+r1*cos(t)       : ya = yc+r1*sin(t)
    xb = xc+r2*cos(omega*t) : yb = yc+r2*sin(omega*t)
    2d_line xa,ya,xb,yb : display
next t
rem ============================================================================

PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1
Scie_Circ(300,200,250)
end
' ==============================================================================
SUB Scie_Circ(xc,yc,d)
  ' Scie circulaire centrée en xc,yc, diamètre externe d
  ' La profondeur des dents est de 1/10 du diamètre externe (modulable)
  DIM_LOCAL ra,rb,xa,ya,xb,yb,nd%,a,p
  nd% = d/3: ' nombre de dents (arbitraire)
  ra = d/2: ' rayon externe
  rb = 9*ra/10: ' rayon interne
  DEGREES
  p = INT(360/nd%): ' pas (degrés)
  xa = xc+ra: ya = yc: 2D_LINE xa,ya,xa,ya
  FOR a = 0 TO 360 STEP p
      xb = xc+rb*COS(a): yb = yc+rb*SIN(a): 2D_POLY_TO xb,yb
      xa = xc+ra*COS(a): ya = yc+ra*SIN(a)
      2D_POLY_TO xa,ya      
  NEXT a
  2D_FLOOD xc,yc,240,240,240
END_SUB
' ==============================================================================