La Cigale et la Fourmi

rem ============================================================================
rem    Escargot
rem    Par Papydall
rem ============================================================================
dim x,y,xo,yo,echelle,r,i, h
dim pi,rad ,newx,newy
pi = acos(-1) : rad = pi/180
xo = 0 : yo = 0 : echelle = 5 : r = .5
full_space 0 : 2d_fill_on : 2d_fill_color 0,0,0  : 2d_pen_width 3
image 4
picture 2 : width 2 ,width(0) : height 2,height(0): hide 2 :  2d_target_is 2
h = height(0) : height 0, 0
alpha 10 : top 10,50 : left 10,200 : font_bold 10 : font_size 10,24

rem ============================================================================
' Appel : Escargot(xo,yo,echelle,tetha)
' xo,yo : Coordonnées de l'origine du tracé
' echelle : paramètre d'agrandissement / rappétissement de la figure
' tetha : angle en degré pour obtenir une rotation de la figure
' La rotation se fait
' dans le sens horaire pour tetha > 0
' dans le sens trigonometrique si tetha < 0
' Pour tetha = 0, il n'y a évidement pas de rotation

for i = 0 to h step 10: height 0,i : pause 20 :next i

for i = 0 to 360 step 10
    cls : Escargot(500,200,echelle,i) : pause 20 : copy_image() : ' rotation sens horaire
next i

for i = 0 to -360 step -10
    cls : Escargot(500,200,echelle,i) : pause 20 : copy_image() : ' rotation sens anti-horaire
next i

cls : Escargot(500,20,echelle / 2,0) : pause 200 : copy_image() : ' échelle 1/2    pas de rotation
cls : Escargot(500,20,echelle,0)    : pause 200 : copy_image() : ' échelle normale pas de rotation
cls : Escargot(500,20,echelle * 2,0) : pause 200 : copy_image() : ' échelle double  pas de rotation
cls : Escargot(500,20,echelle * 3,0) : pause 200 : copy_image() : ' échelle triple  pas de rotation

for i = width(0) to -100 * echelle step -5 : cls : Escargot(i,200,echelle*4,0) : pause 20 : copy_image() :next i
for i = height(0) to -100 step -4 : cls : Escargot(500,i,echelle,0) : pause 20 : copy_image() : next i
for i = -100 to height(0) step  4 : cls : Escargot(500,i,echelle,0) : pause 20: echelle = echelle*1.01: copy_image() :next i

caption 10,"That's all folks !!!"
for i = height(0) to 0 step -10: height 0,i : pause 20 :next i
terminate
end
rem ============================================================================
' Pour faire une rotation à un polygone, il faut faire la rotation à tous les
' sommets du polygone
SUB Escargot(xo,yo,echelle,tetha)
    dim_local i,j,n
    restore : read n : ' les cercles
    for i = 1 to n
      read x : read y
      Rotation_Point(x,y,tetha) : 2d_circle xo + newx*echelle,yo + newy*echelle,r*echelle
    next i
' La ligne
    read x : read y : Rotation_Point(x,y,tetha) : 2d_poly_from xo + newx*echelle,yo + newy*echelle
    read x : read y : Rotation_Point(x,y,tetha) : 2d_poly_to xo + newx*echelle,yo + newy*echelle
' Les polylignes
    for j = 1 to 4
        read x : read y :Rotation_Point(x,y,tetha) : 2d_poly_from xo + newx*echelle,yo + newy*echelle : read n
        for i = 1 to n : read x : read y :Rotation_Point(x,y,tetha) : 2d_poly_to xo + newx*echelle,yo + newy*echelle : next i
    next j

END_SUB
rem ============================================================================
' Rotation d'un point (x,y) d'un angle tetha en degrés.
' La rotation se fait
' dans le sens horaire pour tetha > 0
' dans le sens trigonometrique si tetha < 0
' Pour tetha = 0, il n'y a évidement pas de rotation

' Pour effectuer une rotation à un point il suffit de multiplier ses coordonnées
' par la matrice de rotation suivante :
' cos(tetha)  -sin(tetha)
' sin(tetha)    cos(tetha)
SUB Rotation_Point(x,y,tetha)
    dim_local t
    t = rad * tetha
    newx =  x * cos(t) - y * sin(t)
    newy =  x * sin(t) + y * cos(t)
END_SUB
rem ============================================================================

' cercles
data 6 : ' Nombre de cercles
data 1, 1,  9, 1,  3.5, 5,  6.5, 5,  1, 21,  9, 21
' ligne
data 0, 20, 30, 20
' Polyligne
data 1,1 : ' from
data 16 : ' Nombre de points
data 3,3, 1,5, 1,7, 3,9, 6,16, 9,19, 29,19, 27,17, 11,17, 7,9, 9,7, 9,5
data 7,3, 3,3, 7,3, 9,1
' Polyligne
data 3,7 : ' from
data 2 : ' Nombre de points
data 5,8, 7,7
' Polyligne
data 27,17 : ' from
data 6 : ' Nombre de points
data 29,13, 29,9, 25,5, 13,5, 9,9, 9,13
' Polyligne
data 15,17 : ' from
data 19 : ' Nombre de points
data 12,14, 12,9, 14,7, 24,7, 26,9, 26,13, 24,15, 16,15, 14,13, 14,10
data 15,8, 23,8, 24,9, 24,11, 23,12, 17,12, 16,11, 17,10, 21,10
rem ============================================================================

sub copy_image()
    2d_image_copy 4,left(2),top(2),width(2),height(2)
    2d_target_is 0: 2d_image_paste 4,left(2),top(2) : ' on recopie sur la fenêtre
    2d_target_is 2
 end_sub

rem ============================================================================
rem    Escargot
rem    Par Papydall
rem ============================================================================
dim x,y,xo,yo,echelle,r,i, h
dim pi,rad ,newx,newy
pi = acos(-1) : rad = pi/180
xo = 0 : yo = 0 : echelle = 5 : r = .5
full_space 0 : color 0,255,255,255
image 4
picture 2 : width 2 ,width(0) : height 2,height(0): hide 2 :  2d_target_is 2
h = height(0) : height 0, 0 : 2d_fill_on : 2d_fill_color 0,0,0  : 2d_pen_width 3
alpha 10 : top 10,50 : left 10,200 : font_bold 10 : font_size 10,24 : color 10,255,255,255

rem ============================================================================
' Appel : Escargot(xo,yo,echelle,tetha)
' xo,yo : Coordonnées de l'origine du tracé
' echelle : paramètre d'agrandissement / rappétissement de la figure
' tetha : angle en degré pour obtenir une rotation de la figure
' La rotation se fait
' dans le sens horaire pour tetha > 0
' dans le sens trigonometrique si tetha < 0
' Pour tetha = 0, il n'y a évidement pas de rotation

for i = 0 to h step 10: height 0,i : pause 20 :next i

for i = 0 to 360 step 10
    cls : Escargot(500,200,echelle,i) : pause 20 : copy_image() : ' rotation sens horaire
next i

for i = 0 to -360 step -10
    cls : Escargot(500,200,echelle,i) : pause 20 : copy_image() : ' rotation sens anti-horaire
next i

cls : Escargot(500,20,echelle / 2,0) : pause 200 : copy_image() : ' échelle 1/2    pas de rotation
cls : Escargot(500,20,echelle,0)    : pause 200 : copy_image() : ' échelle normale pas de rotation
cls : Escargot(500,20,echelle * 2,0) : pause 200 : copy_image() : ' échelle double  pas de rotation
cls : Escargot(500,20,echelle * 3,0) : pause 200 : copy_image() : ' échelle triple  pas de rotation
pause 1000

for i = width(0) to -100 * echelle step -3 : cls : Escargot(i,200,echelle*4,0) : copy_image() :next i
for i = height(0) to -100 step -2 : cls : Escargot(500,i,echelle,0)  : copy_image() : next i
for i = -100 to height(0) step  3 : cls : Escargot(500,i,echelle,0) : echelle = echelle*1.01: copy_image() :next i

2d_target_is 0 : cls : caption 10,"That's all folks !!!"
for i = height(0) to 0 step -10: height 0,i : pause 20 :next i
terminate
end
rem ============================================================================
' Pour faire une rotation à un polygone, il faut faire la rotation à tous les
' sommets du polygone
SUB Escargot(xo,yo,echelle,tetha)
    dim_local i,j,n
    restore : read n : ' les cercles
    for i = 1 to n
      read x : read y
      Rotation_Point(x,y,tetha) : 2d_circle xo + newx*echelle,yo + newy*echelle,r*echelle
    next i
' La ligne
    read x : read y : Rotation_Point(x,y,tetha) : 2d_poly_from xo + newx*echelle,yo + newy*echelle
    read x : read y : Rotation_Point(x,y,tetha) : 2d_poly_to xo + newx*echelle,yo + newy*echelle
' Les polylignes
    for j = 1 to 4
        read x : read y :Rotation_Point(x,y,tetha) : 2d_poly_from xo + newx*echelle,yo + newy*echelle : read n
        for i = 1 to n : read x : read y :Rotation_Point(x,y,tetha) : 2d_poly_to xo + newx*echelle,yo + newy*echelle : next i
    next j

END_SUB
rem ============================================================================
' Rotation d'un point (x,y) d'un angle tetha en degrés.
' La rotation se fait
' dans le sens horaire pour tetha > 0
' dans le sens trigonometrique si tetha < 0
' Pour tetha = 0, il n'y a évidement pas de rotation

' Pour effectuer une rotation à un point il suffit de multiplier ses coordonnées
' par la matrice de rotation suivante :
' cos(tetha)  -sin(tetha)
' sin(tetha)    cos(tetha)
SUB Rotation_Point(x,y,tetha)
    dim_local t
    t = rad * tetha
    newx =  x * cos(t) - y * sin(t)
    newy =  x * sin(t) + y * cos(t)
END_SUB
rem ============================================================================

' cercles
data 6 : ' Nombre de cercles
data 1, 1,  9, 1,  3.5, 5,  6.5, 5,  1, 21,  9, 21
' ligne
data 0, 20, 30, 20
' Polyligne
data 1,1 : ' from
data 16 : ' Nombre de points
data 3,3, 1,5, 1,7, 3,9, 6,16, 9,19, 29,19, 27,17, 11,17, 7,9, 9,7, 9,5
data 7,3, 3,3, 7,3, 9,1
' Polyligne
data 3,7 : ' from
data 2 : ' Nombre de points
data 5,8, 7,7
' Polyligne
data 27,17 : ' from
data 6 : ' Nombre de points
data 29,13, 29,9, 25,5, 13,5, 9,9, 9,13
' Polyligne
data 15,17 : ' from
data 19 : ' Nombre de points
data 12,14, 12,9, 14,7, 24,7, 26,9, 26,13, 24,15, 16,15, 14,13, 14,10
data 15,8, 23,8, 24,9, 24,11, 23,12, 17,12, 16,11, 17,10, 21,10
rem ============================================================================

sub copy_image()
    2d_image_copy 4,left(2),top(2),width(2),height(2)
    2d_target_is 0: 2d_image_paste 4,left(2),top(2) : ' on recopie sur la fenêtre
    2d_target_is 2
 end_sub

rem ============================================================================
rem      Ours
rem      Par Papydall
rem ============================================================================
dim x,y,xo,yo,echelle,r,i,h
dim pi,rad ,newx,newy
pi = acos(-1) : rad = pi/180
xo = 0 : yo = 0 : echelle = 10 : r = .5
full_space 0 : color 0,255,255,255
image 4
picture 2 : width 2 ,width(0) : height 2,height(0): hide 2 :  2d_target_is 2
h = height(0) : height 0, 0 : 2d_fill_on : 2d_fill_color 0,0,0  : 2d_pen_width 3
alpha 10 : top 10,50 : left 10,200 : font_bold 10 : font_size 10,24 : color 10,255,255,255
rem ============================================================================
' Appel : Ours(xo,yo,echelle,tetha)
' xo,yo : Coordonnées de l'origine du tracé
' echelle : paramètre d'agrandissement / rappétissement de la figure
' tetha : angle en degré pour obtenir une rotation de la figure
' La rotation se fait
' dans le sens horaire pour tetha > 0
' dans le sens trigonometrique si tetha < 0
' Pour tetha = 0, il n'y a évidement pas de rotation

for i = 0 to h step 10: height 0,i : pause 20 :next i

for i = 0 to 2*pi step pi/16
    cls : x = width(0)/2 + 200*cos(i) : y = height(0)/2 + 200*sin(i)
    Ours(x,y,echelle/2,i*180/pi) : copy_image() : pause 20
next i
pause 2000

for i = 0 to 360 step 10
    cls : Ours(500,300,echelle,i) : copy_image(): pause 20
next i
pause 1000
for i = 0 to -360 step -10
    cls : Ours(500,300,echelle,i) : copy_image(): pause 20
next i
pause 1000 : cls

cls : Ours(500,20,echelle/2,0) : pause 500: copy_image()
cls : Ours(500,20,echelle,0)  : pause 500: copy_image()
cls : Ours(500,20,echelle*2,0) : pause 500: copy_image()
cls : Ours(500,20,echelle*3,0) : pause 500: copy_image()
cls : Ours(500,20,echelle*4,0) : pause 500: copy_image()

for i = width(0) to -50*echelle step -5 : cls : Ours(i,200,echelle*2,0) : pause 20: copy_image() : next i
for i = height(0) to -200 step -2 : cls : Ours(500,i,echelle,0)  : pause 20 : copy_image(): next i
for i = -100 to height(0)-200 step 2 : cls : Ours(500,i,echelle,0) : pause 20:echelle = echelle*1.01 : copy_image() : next i

2d_target_is 0 : cls :caption 10,"That's all folks !!!" : pause 200
for i = height(0) to 0 step -10: height 0,i : pause 20 : next i
terminate
end
rem ============================================================================
SUB Ours(xo,yo,echelle,tetha)
    dim_local i,j,n
    restore
    for i = 1 to 2
        read x : read y
        Rotation_Point(x,y,tetha) : 2d_circle xo + newx*echelle,yo + newy*echelle,r*echelle
    next i
    for j = 1 to 9
        read x : read y
        Rotation_Point(x,y,tetha) : 2d_poly_from xo + newx*echelle,yo + newy*echelle : read n
        for i = 1 to n
            read x : read y
            Rotation_Point(x,y,tetha) : 2d_poly_to xo + newx*echelle,yo + newy*echelle
        next i
    next j
END_SUB
rem ============================================================================
' Rotation d'un point (x,y) d'un angle tetha en degrés.
' La rotation se fait
' dans le sens horaire pour tetha > 0
' dans le sens trigonometrique si tetha < 0
' Pour tetha = 0, il n'y a évidement pas de rotation

' Pour effectuer une rotation à un point il suffit de multiplier ses coordonnées
' par la matrice de rotation suivante :
' cos(tetha)  -sin(tetha)
' sin(tetha)    cos(tetha)
SUB Rotation_Point(x,y,tetha)
    dim_local t
    t = rad * tetha
    newx =  x * cos(t) - y * sin(t)
    newy =  x * sin(t) + y * cos(t)
END_SUB
rem ============================================================================
' cercles
data 7.5, 9.5, 12.5, 9.5
' Polyligne
data 6,8 : ' from
data 3 : ' Nombre de points
data 7,7, 8,7, 9,8

' Polyligne
data 11,8 : ' from
data 3 : ' Nombre de points
data 12,7, 13,7, 14,8

' Polyligne
data 1,2 : ' from
data  28 : ' Nombre de points
data 1,4, 2,6, 4,7, 5,7, 4,9, 4,11, 6,15, 4,17, 8,19, 12,19,16,17, 14,15
data 16,11, 16,9, 15,7, 16,7, 18,6,19,4,19,2,17,1, 15,2, 13,4,12,3,8,3,7,4,5,2,3,1,1,2

' Polyligne
data 14,15 : ' from
data 3 : ' Nombre de points
data 12,16,8,16,6,15

' Polyligne
data 3,3 : ' from
data 5 : ' Nombre de points
data 3,4, 4,5,5,4,4,3,3,3

' Polyligne
data 16,3 : ' from
data 5 : ' Nombre de points
data 15,4,16,5,17,4,17,3,16,3

' Polyligne
data 9,11 : ' from
data 4 : ' Nombre de points
data 10,12, 11,11,10,10,9,11

' Polyligne
data 9,11 : ' from
data 8 : ' Nombre de points
data 7,11,6,13,8,15,10,14,12,15,14,13,13,11,11,11

' Polyligne
data 8,12: ' from
data 3 : ' Nombre de points
data 9,13,11,13,12,12
rem ============================================================================

sub copy_image()
    2d_image_copy 4,left(2),top(2),width(2),height(2)
    2d_target_is 0: 2d_image_paste 4,left(2),top(2) : ' on recopie sur la fenêtre
    2d_target_is 2
 end_sub