papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Dessine-moi un papillon Dim 16 Juin 2013 - 1:59 | |
| Allez, une petite recréation pour changer les idées. Pour le code suivant, deux petites remarques : 1) Dans SUB Calcul(), modifier la valeur de la constante N = 4 par une autre valeur quelconque de 0 à … ce que vous voulez ! Même une valeur décimale donnera un effet spectaculaire. 2) Dans SUB Papillon(), mettez en REM l’une ou l’autre des lignes 34 ou 35. La ligne 34 réalise un tracé point par point (2D_POINT), tandis que la ligne 35 réalise un tracé continu (2D_POLY_TO) - Code:
-
' ************************************************************************
' papillon.bas par Papydall
' ************************************************************************
Init() : Calcul() : Depart() : Papillon()
end
' *************************************************************************
' Initialisation
SUB Init()
dim x,y,rho,theta,pi,xc,yc
full_space 0 : xc = width(0)/2 : yc = height(0)/2
caption 0," !!! <CLICK> pour arrêter !!!"
pi = acos(-1) : theta = -10 * pi : color 0,0,0,0 : 2d_pen_color 0,0,0
display : ' Mise à jour de l'écran
END_SUB
' *************************************************************************
' Modifier la valeur de n (de 0 à 20 par exemple) pour un autre effet
' Vous pouvez même utiliser une valeur décimale et non entière
SUB Calcul()
dim_local n
n = 4
rho = exp(sin(theta))- 2 * cos(n * theta) + power(sin(theta /12),5)
x = rho * cos(theta) : y = rho * sin(theta)
END_SUB
' *************************************************************************
SUB Depart()
2d_poly_from xc + 100 * x,yc - 100 * y : ' point de départ du tracé
END_SUB
' ***************************************************************************
SUB Papillon()
repeat
2d_pen_color rnd(255),rnd(255),rnd(255)
for theta = -10 * pi to 10 * pi step pi/180
Calcul()
' 2d_point xc + 100 * x,yc - 100 * y : ' tracé du papillon par point
2d_poly_to xc + 100 * x,yc - 100 * y : ' Tracé du papillon par courbe
next theta
until scancode <> 0
END_SUB
' **************************************************************************
 | |
|
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Dim 16 Juin 2013 - 4:36 | |
| | |
|
Calendrier
