totalement ludique

dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,w,n,m
width 0,2000
height 0,1200
color 0,125,175,204
2d_pen_width 1
2d_fill_color 255,0,0

rem coordonnées du centre
x0=500
Y0=500
n=1
rem rayon
r=500
rem nombre de côtés
n%=4
m=1
rem angle de début
a=1

Pi = 3.1415926535898




 for w=1 to 3000
 wait 1
For j% = 1 To n%+1
    Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
    Py2 = r/m*Sin(a + 2*Pi*j%/n%) + y0


    2d_circle px,py,34
    2d_circle px+600,py,24
    2d_circle px2,py2,22
    2d_pen_color 100,12,57
    2d_circle px2+50,py2+50,25
    2d_circle px2+500,py2,21
    2d_circle px2+600,py2,12
    Px = Py2
    Py = Px2
  2d_line (px+150),px2+150,py+150,py2+150
    2d_line (px+100),px2+25,py+100,py2+25
    2d_line (px+600),px2+300,py+600,py2+300
Next j%



2d_pen_color 22,144,0



m=m+0.01
n= n
a=a+ 6.31
next w
terminate

dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,z,b
width 0,1800
height 0,1200
rem coordonnées du centre
x0=800
Y0=600
2d_pen_width 1
2d_pen_color 255,0,0
rem rayon
r=800
b=0.001

rem nombre de côtés
n%=100

rem angle de début
a=0
Pi = 3.1415926535898
for z=1 to 800
color 0,19,245,219

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



For j% = 1 To n%+5
 2d_circle px, py,50
 2d_fill_color 100,0,0
    Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
    rem on diminue le rayon resultta= hellipse
    Py2 = r/b*Sin(a + 2*Pi*j%/n%) + y0
    2D_poly_to Px2, Py2
    Px = Px2
    Py = Py2
Next j%
wait 10
r=r
a=a+27
b=b+0.09
next z
terminate

dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,v
width 0,1600
height 0,1200
rem coordonnées du centre
x0=800
Y0=500

rem rayon
r=500

rem nombre de côtés
n%=7
for v=1 to 220
r=r-3
rem angle de début
a=a+50/57.29

Pi = 3.1415926535898

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

2D_poly_from Px,Py

For j% = 1 To n% :wait 1
    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%
2d_pen_color rnd( 255),rnd(125),rnd(240)
next v
terminate