DES MATHS POUR L'ESTHETIQUE DES COURBES
Page 1 sur 1
DES MATHS POUR L'ESTHETIQUE DES COURBES
- Code:
rem ============================================================================
' DES MATHS POUR L'ESTHETIQUE DES COURBES
' PAR PAPYDALL
rem ============================================================================
Init()
2d_target_is 01 : Araignee()
2d_target_is 02 : Mouche()
2d_target_is 03 : Moucheron()
2d_target_is 04 : Papillon()
2d_target_is 05 : Combat_De_taureaux()
2d_target_is 06 : Glands()
2d_target_is 07 : Champignon_Vesse_De_Loup()
2d_target_is 08 : Champignon_Rose()
2d_target_is 09 : Champignon_Amanite()
2d_target_is 10 : Champignon_Jeune_Cep()
2d_target_is 11 : Chapeau_De_Gamine()
2d_target_is 12 : Coupe_Coupe()
2d_target_is 13 : Applique_De_Porte()
2d_target_is 14 : Bonnet_D_Ane()
2d_target_is 15 : Tete_D_Arlequin()
END
REM ============================================================================
SUB Init()
dim x,y,t,xc,yc,i,h,w,r
full_space 0 : h = height(0) : w = width(0)-5 : color 0,255,255,255
caption 0,"DES MATHS POUR L'ESTHETIQUE DES COURBES"
for i = 1 to 5
picture i : top i,35-35 : width i, w/5-15 : height i,h/3-20
left i,width(i) *(i-1)+12*(i)
next i
for i = 6 to 10
picture i : top i,35-25+height(i-1) : width i, w/5-15 : height i,h/3-20
left i,width(i) *(i-6)+12*(i-5)
next i
for i = 11 to 15
picture i : top i,35-15+2*height(i-1) : width i, w/5-15 : height i,h/3-20
left i,width(i) *(i-11)+12*(i-10)
next i
xc = width(1)/2-8 : yc = height(1)/2-17
for i = 1 to 15
color i,00,128,128 : 2d_pen_color 255,255,0 : 2d_target_is i
next i
2d_pen_color 255,255,0
END_SUB
REM ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
SUB Araignee()
degrees
for t = 0 to 360 step .1
x = 60*sin(5*t)*cos(t)/cos(4*t)
y = 60*sin(5*t)*sin(t)/cos(4*t)
2d_point xc+x,yc+y
next t
display
END_SUB
rem ============================================================================
SUB Mouche()
dim_local p,s
radians : p = pi/180 : s = 50
for t = 0 to 2*pi step p
r = 2*sin(t-3*pi/4)+cos(4*t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y
2d_poly_to xc+x,yc-y
next t
display
END_SUB
rem ============================================================================
SUB Moucheron()
dim_local p,s
radians : p = pi/180 : s = 60
for t = 0 to 2*pi step p
r = (sin(4*t-pi/2) + cos(2*t-pi/4))/2
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y
2d_poly_to xc+x,yc-y
next t
display
END_SUB
rem ============================================================================
SUB Papillon()
dim_local p,s
radians : p = pi/180 : s = 30
for t = 0 to 2*pi step p
r = sin(7*t)-1-3*cos(2*t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y
2d_poly_to xc+x,yc-y
next t
display
END_SUB
rem ============================================================================
SUB Combat_De_Taureaux()
dim_local p,s,epsilon
radians : p = pi/180 : s = 40 : epsilon = power(10,0-10)
for t = epsilon to 2*pi step p
r = 2/tan(t) + sin(5*t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y
2d_poly_to xc+x,yc-y
next t
display
END_SUB
rem ============================================================================
SUB Glands()
dim_local p,s
radians : p = pi/180 : s = 40
for t = 0 to 2*pi step p
r = 2*sin(3*t) - cos(6*t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y
2d_poly_to xc+x,yc-y
next t
display
END_SUB
rem ============================================================================
SUB Champignon_Vesse_De_Loup()
dim_local p,s
radians : p = pi/180 : s = 30
for t = 0 to 2*pi step p
r = 0-sin(5*t) - 4*sin(t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y-2*s
2d_poly_to xc+x,yc-y-2*s
next t
display
END_SUB
rem ============================================================================
SUB Champignon_Rose()
dim_local p,s
radians : p = pi/180 : s = 30
for t = 0 to 2*pi step p
r = 0-2*sin(5*t) - 4*sin(t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y-2*s
2d_poly_to xc+x,yc-y-2*s
next t
display
END_SUB
rem ============================================================================
SUB Champignon_Amanite()
dim_local p,s
radians : p = pi/180 : s = 30
for t = 0 to 2*pi step p
r = 0-2*sin(5*t) - 3*sin(t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y-2*s
2d_poly_to xc+x,yc-y-2*s
next t
display
END_SUB
rem ============================================================================
SUB Champignon_Jeune_Cep()
dim_local p,s,x0,y0
radians : p = pi/180 : s = 30
for t = 1.78 to 4.5 step p
r = sin(6*t) - 4*sin(t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 1.78 then x0 = xc+x : y0 = yc-y-2*s : 2d_poly_from x0,y0
2d_poly_to xc+x,yc-y-2*s
next t
2d_poly_to x0,y0
display
END_SUB
rem ============================================================================
SUB Chapeau_De_Gamine()
dim_local p,s
radians : p = pi/180 : s = 30
for t = 0 to 2*pi step p
r = 0-4*cos(cos(2*t) + sin(3*t))
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y+s
2d_poly_to xc+x,yc-y+s
next t
display
END_SUB
rem ============================================================================
SUB Coupe_Coupe()
dim_local p,s
radians : p = pi/180 : s = 30
for t = 0 to 2*pi step p
r = 4*cos(cos(4*t)/cos(6*t))
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y+s
2d_poly_to xc+x,yc-y+s
next t
display
END_SUB
rem ============================================================================
SUB Applique_De_Porte()
dim_local p,s
radians : p = pi/180 : s = 40
for t = 0 to 2*pi step p
r = cos(4*t) - 2*cos(2*t)
x = s*r*cos(t) : y = s*r*sin(t)
if t = 0 then 2d_poly_from xc+x,yc-y+s/2
2d_poly_to xc+x,yc-y+s/2
next t
display
END_SUB
rem ============================================================================
SUB Bonnet_D_Ane()
dim_local p,s
radians : p = pi/180 : s = 40
for t = 1.59 to 4.74 step p
r = 3*sin(t) + sin(4*t+sin(3*t))
x = s*r*cos(t) : y = s*r*sin(t)
if t = 1.59 then 2d_poly_from xc+x,yc-y+2*s
2d_poly_to xc+x,yc-y+2*s
next t
display
END_SUB
rem ============================================================================
SUB Tete_D_Arlequin()
dim_local p,s
radians : p = pi/180 : s = 20
for t = 0.7 to 5.6 step p
x = 3.5*sin(t)-3*sin(3*t) : y = 3.5*cos(t)-3*cos(4*t)
if t = 0.7 then 2d_poly_from xc+x*s,yc-y*s
2d_poly_to xc+x*s,yc-y*s
next t
display
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
Sujets similaires
» Des maths pour l’Amour ou l'Amour pour les Maths
» Art-ithmétique pour vous faire aimer les maths
» Courbes polaires
» Courbes en coordonnées polaires
» Courbes de Bézier cubiques
» Art-ithmétique pour vous faire aimer les maths
» Courbes polaires
» Courbes en coordonnées polaires
» Courbes de Bézier cubiques
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Lun 1 Jan - 0:25 par Papydall-Admin
» A ceux qui célèbre Noël, bonnes fêtes
Dim 24 Déc - 10:49 par Papydall-Admin
» Joyeux Noël et Bonne Année
Ven 8 Déc - 1:34 par Papydall-Admin
» Planets of the Solar System : Tilts and Spins
Lun 20 Mar - 15:43 par Papydall-Admin
» Bonne Année 2023
Sam 31 Déc - 1:39 par Papydall-Admin
» Fractals - Mandelbrot
Ven 21 Aoû - 22:51 par Papydall-Admin
» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Mer 21 Nov - 1:08 par Papydall-Admin
» Balises {USER...}
Lun 19 Nov - 22:12 par Papydall-Admin
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin