silence,on tourne

dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width  0,1000
R=300
x0=500
y0=500
 ' Angle de depart
beta=0/57.29 :gama=40/57.29
 2d_circle x0,y0,r
  2d_circle x0,y0,5
'  demi petit cote gama ne depass pas  90
'  gama= 0/57
            for x=1 to 500
                beta=beta+1/57.29
  if key_down_code =27 then end
 

 
 ax=x0+sin(180/57.29+beta)*r
 ay=y0+cos(180/57.29+beta)*r
        2d_circle ax,ay,10
 
 bx=x0+(sin(beta+gama)*r )
 by=y0+(cos(beta+gama)*r)
        2d_circle bx,by,10
 
 cx=x0+sin(beta)*r
 cy=y0+cos(beta)*r

'
        2d_circle cx,cy,10
 
 ex= x0+sin(180/57.29+beta+gama)*r
 ey= y0+cos(180/57.29+beta+gama)*r
        2d_circle ex,ey,10
        2d_circle x0,y0,100
  2d_line  bx,by,ax,ay
  2d_line  ax,ay,ex,ey
  2d_line  ex,ey ,cx,cy
  2d_line  cx,cy,bx,by

 wait 100
 cls

            next x

rem escape pour sortir
dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,v,w,z,k
width 0,1600
height 0,1000
2d_pen_width 2
2d_pen_color 116,11,240
 color 0,135,168,56
rem coordonnées du centre
x0=150
Y0=150
k=300
rem rayon
r=150


rem nombre de côtés
n%=2
for z=1 to 3

for w=1 to 5
for v=1 to 40

r=r-0.5
rem angle de début
a=90/57.29
Pi = 4* atn(1):' print pi

Px = r * Cos(a) + x0
Py = r * Sin(a) + y0

2D_poly_from Px,Py

For j% = 1 To n%
if key_down_code = 27 then terminate
display

Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
Py2 = r*Sin(a + 2*Pi*j%/n%) + y0
2D_poly_to Px2, Py2
Px = Px2
Py = Py2
Next j%

next v
x0=x0+300
n%= n%+1
r=150
next w
y0=y0+k
x0=150
wait 1
next z
end

dim beta,gama,f,fx,fy ,R,dx,dy ,t,z
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width  0,1000
R=450
x0=500
y0=500
2d_pen_width 11
2d_pen_color 255,0,0
 ' Angle de depart
beta=0/57 :gama=45/57
 2d_circle x0,y0,r
  2d_circle x0,y0,5
'  demi petit cote gama ne depass pas  90
'  gama= 0/57
            for x=1 to 360

           
           
                beta=beta+10/57
  if key_down_code =27 then end
 

 
 ax=x0+sin(180/57.29+beta)*r
 ay=y0+cos(180/57.29+beta)*r
      ' 2d_circle ax,ay,10
 
 bx=x0+(sin(beta+gama)*r )
 by=y0+(cos(beta+gama)*r)
      ' 2d_circle bx,by,10
 
 cx=x0+sin(beta)*r  : print fx
 cy=y0+cos(beta)*r  : print fy

'
        ' 2d_circle cx,cy,10
 
 ex= x0+sin(180/57.29+beta+gama)*r
 ey= y0+cos(180/57.29+beta+gama)*r
      ' 2d_circle ex,ey,10
      ' 2d_circle x0,y0,100


       
  2d_line  bx,by,ax,ay
  2d_line  ax,ay,ex,ey
  2d_line  ex,ey ,cx,cy
  2d_line  cx,cy,bx,by
  ' la diagonale
  2d_line ex,ey,bx,by
  2d_line ax,ay,cx,cy
 display
 
        for z=0 to r  step 9
  r=r-10
  ax=x0+sin(180/57.29+beta)*r
 ay=y0+cos(180/57.29+beta)*r


 bx=x0+(sin(beta+gama)*r )
 by=y0+(cos(beta+gama)*r)


 cx=x0+sin(beta)*r  : print fx
 cy=y0+cos(beta)*r  : print fy

'


 ex= x0+sin(180/57.29+beta+gama)*r
 ey= y0+cos(180/57.29+beta+gama)*r





  2d_line  bx,by,ax,ay
  2d_line  ax,ay,ex,ey
  2d_line  ex,ey ,cx,cy
  2d_line  cx,cy,bx,by
  ' la diagonale
  2d_line ex,ey,bx,by
  2d_line ax,ay,cx,cy
  if key_down_code =27 then end
  if key_down_code =27 then end

                next z
 r=450
 wait 600
 cls
  2d_circle x0,y0,150
  2d_fill_color 255,0,0
 color 0,134,173,190

            next x