Manipulation de polygones

iF 1 = 2
.............................................
               LE FIL ROUGE
  manipulations de       polygones
.............................................
* touche w pour rafraichir l'ecran
*             sinon
  possibilite de decocher CLS (vers la ligne 80)
* le hint vous donne la fonction  des curseurs
  On commence par celui du milieu
*  escape pour sortir
  .............................................
END_IF

dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w ,w$ ,w1,w12
 Pi = 4*ATN(1)
' w=57
 rem coordonnées du centre
    x0=650
    Y0=500
    
      width 0,1500
      height 0,1000
  2d_pen_width 3
    rem rayon
  r=350
color 0,255,140,35
  rem nombre de côtés
    n%=4
    ' a1 =( 2*Pi/n%): ' angle de rotation de chaque côté

    rem angle de début
      a0=1/(2*Pi)
  iF 1 = 2
picture 10 :width 10,1200 :height 10, 1000:' 2d_target_is 10:left 10,100
     END_IF

  track_bar 12:min 12,0.1:max 12,360:top 12,500:hint 12,"autour de Z"

  track_bar 4:min 4,1:max 4,25:top  4,300:hint 4,"nombre de cotes"

  track_bar 3:min 3,1:max 3 ,450:top 3  ,200:hint 3,"profondeur  "

  track_bar 2:min 2,10: max 2, 500: top 2,400 :hint 2,"autourde l'axe des y"
                position 2,500
                width 2,200

track_bar 1:min 1,10:max 1,500:top 1,100:hint 1,"autour de l'axe des x  "
                position 1,500
                width 1,200
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
repeat
'  a0=w12/2*Pi
a0=10*w12/360
    w =position(1)
    w1 =position(2)
    r= position(3)
    n%=  position (4)
    w12= position(12)
rem ................................................
    Px = (r-w1) * Cos(a0) + x0
    Py = (r-w) * Sin(a0) + y0
    2D_poly_from px,py
rem  ...........................................
    a = a0
    For j% = 0 To n%
    a1 =( 2*Pi/n%)
        a = a + a1
rem .......................................
        Px = (r-w1)*Cos(a) + x0
        Py = (r-w)*Sin(a) + y0
        2d_circle px,py,5
        2D_poly_to Px, Py
    Next j%

    display
  '  2d_pen_color 255,0,rnd(255)
  '  wait 250
    a0 = a0+1/52

    if scancode= 27 then end
    print_locate  1010,10
  print  position (1)
 if scancode=87 then cls
'  cls
until scancode=27
terminate
end

' .............................................
'                LE FIL ROUGE
'        manipulations de polygones
' .............................................
' * touche w pour rafraichir l'ecran
' *            sinon
'  possibilite de decocher CLS (vers la ligne 80)
' * le hint vous donne la fonction  des curseurs
'  On commence par celui du milieu
' *  escape pour sortir
'  .............................................


dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w ,w$ ,w1,w5

label  change, touche

 Pi = 4*ATN(1)
' w=57
width 0,1500 : height 0,1000 : rem dimensionnement de la fenêtre principale
color 0,255,140,35

x0=width(0)/2 : Y0=height(0)/2  : rem coordonnées du centre

2d_pen_width 3

r=350 : rem rayon

n%=4 : rem nombre de côtés

a0=1/(2*Pi) : rem angle de début

track_bar 5:min 5,0.1:max 5,360:top 5,500:hint 5,"autour de Z"
track_bar 4:min 4,1:max 4,25:top  4,300: position 4,n% : hint 4,"nombre de cotes"
track_bar 3:min 3,1:max 3 ,450:top 3  ,200:hint 3,"profondeur  "
track_bar 2:min 2,10: max 2, 500: top 2,400 :hint 2,"autourde l'axe des y"
position 2,500  :  width 2,200
track_bar 1:min 1,10:max 1,500:top 1,100:hint 1,"autour de l'axe des x  "
position 1,500 :  width 1,200
gosub change
for n% = 1 to 5 : on_change n%,change : next n%
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
end

touche:
  if key_down_code = 27 then terminate
return


change:
    cls
    a0=10*w5/360
    w =position(1)
    w1 =position(2)
    r= position(3)
    n%=  position (4)
    w5= position(5)
    Px = (r-w1) * Cos(a0) + x0 : Py = (r-w) * Sin(a0) + y0
    2D_poly_from px,py
    a = a0
    For j% = 0 To n%
        a1 =( 2*Pi/n%)
        a = a + a1
        Px = (r-w1)*Cos(a) + x0 : Py = (r-w)*Sin(a) + y0
        2d_circle px,py,5 :  2D_poly_to Px, Py
    Next j%

    display
    a0 = a0+1/52
'    print_locate  1010,10 :  print  position (1)
    wait 5
return