Recréation

Code:: rem ============================================================================
rem RECREATION
rem PAR PAPYDALL
rem ============================================================================

dim xc,yc,pi,p,n
full_space 0 : color 0,125,100,50
pi = acos(-1) : p = pi/180 : xc = width(0)/2 : yc = height(0)/2

test_1(9,16,4) : pause 1000
test_1(9,6,6) : pause 1000
test_1(9,16,16) : pause 1000
test_1(6,18,18) : pause 1000
test_1(16,10,10): pause 1000
test_1(16,16,16): pause 1000
caption 0,"<CLICK> pour arrêter"
for n = 1 to 99
   cls : 2d_circle xc,yc,400 : 2d_flood xc,yc,20,10,50
   Test_2(n) : 2d_flood xc,yc,25,100,50 : pause 1000
   if scancode <> 0 then terminate
next n
alpha 10 : font_bold 10 : font_size 10,24 : font_color 10,255,255,0
caption 10, " !!! C'est tout pour aujourd'hui !!!"
end
rem ============================================================================
SUB test_1(a,b,c)
   dim_local t,x,y,r
   cls
   2d_poly_from xc+200,yc
   for t = 0 to 2*pi step p
   r = 100*(2 + 0.5*sin(a*t))
   x = xc+ r*cos(t+sin(b*t)/c) : y = yc- r*sin(t+sin(b*t)/c)
   2d_poly_to x,y
   next t
   2d_flood xc,yc,12,100,50
END_SUB
rem ============================================================================
SUB Test_2(a)
   dim_local t,x,y,r
   2d_poly_from xc+300,yc
   for t = 0 to 2*pi step p
   r = 100*(2 + 0.5*sin(a*t))
   x = xc + r*(cos(t)+0.5*cos(7*t)) + (1/3)*(cos(0-17*t + pi/2))
   y = yc + r*(sin(t)+0.5*sin(7*t)) + (1/3)*(sin(0-17*t + pi/2))
   2d_poly_to x,y
   next t
END_SUB
rem ============================================================================

C'est beaux les maths !! Very Happy

Ca me fait penser à mon dernier scanner

Pas mal du tout en si peu de lignes Wink

Beau résultat

Wouais, il y a des bestioles Zarbis la dedans. Bravo Papydall !
@Sergeause, ton Scanner est inquiétant.
lol!

Pour les amateurs d'animation et de couleur, voici une version colorisé avec possibilité d'animation du dessin.
Tout est expliqué dans le bandeau de la fenêtre (après les six premières images).

Code:: rem ============================================================================
rem RECREATION
rem PAR PAPYDALL
rem ============================================================================

dim xc,yc,pi,p,n,vitesse%

full_space 0 : color 0,125,100,50
pi = acos(-1) : p = pi/180 : xc = width(0)/2 : yc = height(0)/2

caption 0,"Patientez... 5"
test_1(9,16,4) : pause 1000
caption 0,"Patientez... 4"
test_1(9,6,6) : pause 1000
caption 0,"Patientez... 3"
test_1(9,16,16) : pause 1000
caption 0,"Patientez... 2"
test_1(6,18,18) : pause 1000
caption 0,"Patientez... 1"
test_1(16,10,10): pause 1000
caption 0,"Patientez... 0"
test_1(16,16,16): pause 1000

color 0,0,0,0
for n = 1 to 99
caption 0,"Image "+str$(n)+"/99 * Pression longue sur [L]=>Lent (avec animation du dessin) * [R]=>Rapide * [Echap] pour arrêter"
   cls : 2d_circle xc,yc,400 : 2d_flood xc,yc,rnd(255),rnd(255),rnd(255)
   Test_2(n) : 2d_flood xc,yc,rnd(255),rnd(255),rnd(255)
   if vitesse%=0 then pause 1000
   if vitesse%=1 then pause 2000
   if scancode=82 then vitesse%=0
   if scancode=76 then vitesse%=1
   if scancode=27 then exit_for
next n
alpha 10 : font_bold 10 : font_size 10,24 : font_color 10,255,255,0
caption 10, " !!! C'est tout pour aujourd'hui !!!"
end
rem ============================================================================
SUB test_1(a,b,c)
   dim_local t,x,y,r
   cls
   2d_poly_from xc+200,yc
   for t = 0 to 2*pi step p
   r = 100*(2 + 0.5*sin(a*t))
   x = xc+ r*cos(t+sin(b*t)/c) : y = yc- r*sin(t+sin(b*t)/c)
   2d_poly_to x,y
   next t
   2d_flood xc,yc,12,100,50
END_SUB
rem ============================================================================
SUB Test_2(a)
   dim_local t,x,y,r
   if scancode=82 then vitesse%=0
   if scancode=76 then vitesse%=1
   if scancode=27 then terminate
   2d_poly_from xc+300,yc
   for t = 0 to 2*pi step p
   r = 100*(2 + 0.5*sin(a*t))
   x = xc + r*(cos(t)+0.5*cos(7*t)) + (1/3)*(cos(0-17*t + pi/2))
   y = yc + r*(sin(t)+0.5*sin(7*t)) + (1/3)*(sin(0-17*t + pi/2))
   2d_poly_to x,y
   2D_PEN_COLOR rnd(255),rnd(255),rnd(255)
   if scancode=82 then vitesse%=0
   if scancode=76 then vitesse%=1
   if scancode=27 then terminate
   if vitesse%=1 then pause 1
   next t
END_SUB
rem ============================================================================

A+

Ça m’intéresse mais je ne pourrais tester que ce soir

J'ai rajouté une pause avec la touche P

Code:: rem ============================================================================
rem RECREATION
rem PAR PAPYDALL
rem ============================================================================

dim xc,yc,pi,p,n,vitesse%
label attente

full_space 0 : color 0,125,100,50
pi = acos(-1) : p = pi/180 : xc = width(0)/2 : yc = height(0)/2

caption 0,"Patientez... 5"
test_1(9,16,4) : pause 1000
caption 0,"Patientez... 4"
test_1(9,6,6) : pause 1000
caption 0,"Patientez... 3"
test_1(9,16,16) : pause 1000
caption 0,"Patientez... 2"
test_1(6,18,18) : pause 1000
caption 0,"Patientez... 1"
test_1(16,10,10): pause 1000
caption 0,"Patientez... 0"
test_1(16,16,16): pause 1000

color 0,0,0,0
for n = 1 to 99
caption 0,"Image "+str$(n)+"/99 * Pression longue sur [L]=>Lent (avec animation du dessin) * [R]=>Rapide * [P]=>Pause * [Echap] pour arrêter"
cls : 2d_circle xc,yc,400 : 2d_flood xc,yc,rnd(255),rnd(255),rnd(255)
Test_2(n) : 2d_flood xc,yc,rnd(255),rnd(255),rnd(255)
if vitesse%=0 then pause 1000
if vitesse%=1 then pause 2000
if scancode=80 then gosub attente
if scancode=82 then vitesse%=0
if scancode=76 then vitesse%=1
if scancode=27 then exit_for
next n
alpha 10 : font_bold 10 : font_size 10,24 : font_color 10,255,255,0
caption 10, " !!! C'est tout pour aujourd'hui !!!"
end

attente:
caption 0,"Appuyez sur une touche pour repartir"
repeat : until scancode<>0
return
rem ============================================================================
SUB test_1(a,b,c)
dim_local t,x,y,r
cls
2d_poly_from xc+200,yc
for t = 0 to 2*pi step p
r = 100*(2 + 0.5*sin(a*t))
x = xc+ r*cos(t+sin(b*t)/c) : y = yc- r*sin(t+sin(b*t)/c)
2d_poly_to x,y
next t
2d_flood xc,yc,12,100,50
END_SUB
rem ============================================================================
SUB Test_2(a)
dim_local t,x,y,r
if scancode=82 then vitesse%=0
if scancode=76 then vitesse%=1
if scancode=27 then terminate
2d_poly_from xc+300,yc
for t = 0 to 2*pi step p
r = 100*(2 + 0.5*sin(a*t))
x = xc + r*(cos(t)+0.5*cos(7*t)) + (1/3)*(cos(0-17*t + pi/2))
y = yc + r*(sin(t)+0.5*sin(7*t)) + (1/3)*(sin(0-17*t + pi/2))
2d_poly_to x,y
2D_PEN_COLOR rnd(255),rnd(255),rnd(255)
if scancode=82 then vitesse%=0
if scancode=76 then vitesse%=1
if scancode=27 then terminate
if vitesse%=1 then pause 1
next t
END_SUB
rem ============================================================================

Bravo Jean Claude.

Tu n'as plus peur des gros mots sin / cos ?
Est-ce parce que ma leçon de trigonométrie a fait son effet?
Ou c'est à cause de ton nouveau avatar par où je vois jaillir des rayons de lumière de ton savoir nouvellement acquis?

Citation :: c'est à cause de ton nouveau avatar par où je vois jaillir des rayons de lumière de ton savoir nouvellement acquis?

Voila une bien jolie manière de dire les choses !!!

lol!

Restons modeste,
Les gros mots c'est Papydall qui les maîtrise, j'ai juste un peu bidouillé le code.
Mais, je relève le challenge, j'essaierai de faire des jolies courbes avec la trigonométrie.

Les rayons de lumière de mon savoir ont bien du mal à éclairer le bureau où je code.
lol!

@Jean Claude :

Citation :: Les rayons de lumière de mon savoir ont bien du mal à éclairer le bureau où je code.

C'est normal, l'image est trop petite !! Mes la en plein écran et ca ira mieux...

Bon ok je sort...

lol!

utilisation du scancode donc bien sûr les touches ne marchent pas pour moi...
sinon la colorisation est trop discrète, mais ce serait trop dur à faire le remplissage colorisé

Invité

Citation :: utilisation du scancode donc bien sûr les touches ne marchent pas pour moi...

Peux-tu faire un essai avec scancode sur une autre session. Il y a des modifications activées lors du mot de passe pour ouvrir une session.

Je t'ai lu trop tard Cosmos, je ne pourrais tester que ce soir. C'est l'heure d'aller bosser . Merci pour l'idée, je testerais

» Récréation
» Récréation pour Yannick