coup de flood

Code:: dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width 0,1000
R=300
x0=500
y0=500
2d_pen_color 250,0,0
' Angle de depart
beta=0/57.29 :gama=40/57.29
2d_circle x0,y0,r
  2d_circle x0,y0,1
' demi petit cote gama ne depass pas 90
' gama= 0/57
   for x=1 to 3000
   beta=beta+1/57.29
  if key_down_code =27 then end

ax=x0+sin(180/57.29+beta)*r/2
ay=y0+cos(180/57.29+beta)*r/2
   2d_circle ax,ay,1

bx=x0+(cos(beta+gama)*r )
by=y0+(cos(beta+gama)*r)
   2d_circle bx,by,1

cx=x0+sin(beta)*r
cy=y0+cos(beta)*r

'
   2d_circle cx,cy,1

ex= x0+cos(180/57.29+beta+gama)*r
ey= y0+cos(180/57.29+beta+gama)*r
   2d_circle ex,ey,1
   2d_circle x0,y0,1
  2d_line bx,by,ax,ay
  2d_line ax,ay,ex,ey
  2d_line ex,ey ,cx,cy
  2d_line cx,cy,bx,by
  2d_flood x0,y0,rnd (250),rnd (250),rnd (250)
  display
wait 50

r=r+0.0050
   ' cls

   next x

escape pour sortir

C’est tellement beau que je j’hésite à appuyer sur la touche <ESCAPE> !
Merci sergeauze !

Une petite variation sur la colorisation

Code:: dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000 : width 0,1000
R=300 : x0=500 : y0=500
2d_pen_color 250,0,0 : 2d_pen_width 10
' Angle de depart
beta=0/57.29 :gama=40/57.29
2d_circle x0,y0,r

' demi petit cote gama ne depass pas 90
' gama= 0/57
for x=1 to 3000
beta=beta+1/57.29
if key_down_code =27 then end
ax=x0+sin(180/57.29+beta)*r/2: ay=y0+cos(180/57.29+beta)*r/2
2d_circle ax,ay,1

bx=x0+(cos(beta+gama)*r ) : by=y0+(cos(beta+gama)*r)
2d_circle bx,by,1

cx=x0+sin(beta)*r :cy=y0+cos(beta)*r
2d_circle cx,cy,1

ex= x0+cos(180/57.29+beta+gama)*r : ey= y0+cos(180/57.29+beta+gama)*r
2d_circle ex,ey,1 : 2d_circle x0,y0,1
2d_line bx,by,ax,ay : 2d_line ax,ay,ex,ey
2d_line ex,ey ,cx,cy : 2d_line cx,cy,bx,by
2d_pen_color x/12,bx/4,cx/4
display
wait 50

r=r+0.0050
' cls

next x

Très joli,
Sergeauze reprend du clavier, ça va dessiner à tout va !

J'ai pas trop le temps, mais je suis certain qu'il y a à faire à partir de ce code.

A+

Bravo sergeauze ! cheers

Et tout ça en moins de 50 lignes... Chapeau ! sunny

Une autre variation du code de Sergeauze:

Code:: dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000 : width 0,1000
R=300 : x0=500 : y0=500
2d_pen_color 250,0,0 : 2d_pen_width 3
' Angle de depart
beta=0/57.29 :gama=40/57.29

for x=1 to 3000
beta=beta+1/57.29
if key_down_code =27 then end
ax=x0+sin(180/57.29+beta)*r/2: ay=y0+cos(180/57.29+beta)*r/2
bx=x0+(cos(beta+gama)*r ) : by=y0+(cos(beta+gama)*r)
cx=x0+sin(beta)*r :cy=y0+cos(beta)*r
ex= x0+cos(180/57.29+beta+gama)*r : ey= y0+cos(180/57.29+beta+gama)*r
2d_pen_color x/12,bx/4,cx/4
2d_line bx,by,ax,ay : 2d_line ax,ay,ex,ey
2d_line ex,ey ,cx,cy : 2d_line cx,cy,bx,by
2d_line bx + 15,by + 15,ax + 15,ay + 15 : 2d_line ax + 15,ay + 15,ex + 15,ey + 15
2d_line ex + 15,ey + 15,cx + 15,cy + 15 : 2d_line cx + 15,cy + 15,bx + 15,by + 15
2d_line bx,by,bx + 15 ,by + 15 : 2d_line ax,ay,ax + 15,ay +15
2d_line ex,ey ,ex + 15,ey + 15 : 2d_line cx,cy,cx + 15,cy +15

display
wait 20

r=r+0.0050
cls

next x

Ma version,

laissez tourner jusqu'à la fin, vous serez averti par un message.

Code:: dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width 0,1000
color 0,0,0,0
R=250
x0=650
y0=560
2d_pen_color rnd(255),rnd(255),rnd(255)

' Angle de depart
beta=0/57.29 :gama=40/57.29
2d_circle x0,y0,r
2d_circle x0,y0,1
' demi petit cote gama ne depass pas 90
' gama= 0/57

for x=1 to 3000
beta=beta+1/57.29
if key_down_code =27 then end

ax=x0+sin(180/57.29+beta)*r/2 :' r=r+0.2
ay=y0+cos(180/57.29+beta)*r/2
2d_circle ax,ay,1

bx=x0+(cos(beta+gama)*r ) : r=r-0.999
by=y0+(cos(beta+gama)*r)
2d_circle bx,by,1

cx=x0+sin(beta)*r
cy=y0+cos(beta)*r

2d_circle cx,cy,1

ex= x0+cos(180/57.29+beta+gama)*r
ey= y0+cos(180/57.29+beta+gama)*r
2d_circle ex,ey,1
2d_circle x0,y0,1
2d_line bx-r,by-r,ax-r,ay-r
2d_line ax,ay,ex,ey
2d_line ex-r,ey-r,cx-r,cy-r
2d_line cx,cy,bx,by
2d_flood x0,y0,rnd (255),rnd (255),rnd (255)
display
pause 30

r=r-0.0005
' cls

next x

message "teminéé

A+

Honnetement JC, je trouve ça confus. Désolé... Mais bon c'est mon point de vue et il vaut ce qu'il vaut ...

Tous les goût sont dans la nature ! Very Happy

Moi j'ai trouvé ça beau (de cheval) geek

A+

Absolument Jean-Claude. L’esthétique du courbe dépend de ses goûts personnels. C'est pour ça que je donne mon avis personnel mais ne critique pas car mon opinion ne reflète en rien le bon goût général ou la réalité. Ce n'est jamais que mon propre ressenti. Smile

Moi, ce qui m’a fait plaisir c’est le message affiché à la fin.
Merci Jean Claude, c’est bien teminéé !
Et aussi le sabot : une belle Jean-clauderie !
Ne fais attention à ce que dit jicehel tongue

Bah, bon ben alors je ne donnerais plus mon avis quand je n'accroche pas alors ... ça évitera d'avoir à ne pas en tenir compte. A partir de maintenant, je donne mon avis que quand j'aime, sinon je me tais Wink

Si tu ne donneras plus ton avis, qui taquinerais-je, moi, hein ?
Et qui d’autre que Jean Claude trouveras un ça beau ?
Tu dois être l’artisan de ton destin et donner ton avis, n’en déplaise à quiconque ! king

Jicehel a écrit:: Absolument Jean-Claude. L’esthétique du courbe dépend de ses goûts personnels. C'est pour ça que je donne mon avis personnel mais ne critique pas car mon opinion ne reflète en rien le bon goût général ou la réalité. Ce n'est jamais que mon propre ressenti.

Hé ben Jicehel, où as-tu lu que je critiquais: Dire que tous les goûts sont dans la nature, ne constitue pas une critique! que je sache.
Personnellement, j'accepte ton d'opinion et je ne la prend pas comme une critique. Quoique, en français, une critique est considérée comme une étude d'un truc sur lequel on donne son avis.

Bref, comme tu n'es pas un habitué de la polémique, je te pardonne. Very Happy

Mais ça serait bien à Papydall que tu répondais....

J'arrete de polluer ce poste, maintenant.

Dis Jean Claude, tu disposes d’un autre bidon d’huile à mettre sur le feu ? pale

Heu...si je peux vous être utile...
lol!

Salut
je me suis dit qu'il n'y avait pas le feu Smile

et que je pouvais attendre avant
de reprendre le fil de la discussion.
Ce qui peu sembler ludique contribue à un projet visualisation de mouvements complexes qui peut aussi
déboucher sur la création effective de mécanismes.
Je suis sur un projet d'aile battante en modèle réduit (ornithoptere)
Panoramic à moindre frais peut me permettre de me concevoir un outil bien pratique

bonsoir
Et la roue tourne

Code:: dim beta,gama,f,fx,fy ,R,dx,dy ,t,z
dim a,ax,ay,b,bx,by ,q
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width 0,1000
R=450
x0=500
y0=500
2d_pen_width 11
' 2d_pen_color 255,0,0
' Angle de depart
beta=0/57 :gama=45/57
2d_circle x0,y0,r
  2d_circle x0,y0,5
' demi petit cote gama ne depass pas 90
' gama= 0/57
   for x=1 to 3600

   q=q+0.975
   beta=beta+q/57
  if key_down_code =27 then end

ax=x0+sin(180/57.29+beta)*r
ay=y0+cos(180/57.29+beta)*r
   2d_circle ax,ay,25

bx=x0+(sin(beta+gama)*r )
by=y0+(cos(beta+gama)*r)
   2d_circle bx,by,25

cx=x0+sin(beta)*r :' print fx
cy=y0+cos(beta)*r :' print fy

'
   2d_circle cx,cy,25

ex= x0+sin(180/57.29+beta+gama)*r
ey= y0+cos(180/57.29+beta+gama)*r
   2d_circle ex,ey,25
   2d_circle x0,y0,10

  2d_line bx,by,ax,ay
  2d_line ax,ay,ex,ey
  2d_line ex,ey ,cx,cy
  2d_line cx,cy,bx,by
  ' la diagonale
  2d_line ex,ey,bx,by
  2d_line ax,ay,cx,cy
display
   2d_pen_color rnd(250),rnd(250),0
   for z=0 to r step 9
  r=r
  ax=x0+sin(180/57.29+beta)*r
ay=y0+cos(180/57.29+beta)*r

bx=x0+(sin(beta+gama)*r )
by=y0+(cos(beta+gama)*r)

cx=x0+sin(beta)*r :' print fx
cy=y0+cos(beta)*r :' print fy

'

ex= x0+sin(180/57.29+beta+gama)*r
ey= y0+cos(180/57.29+beta+gama)*r

  2d_line bx,by,ax,ay
  2d_line ax,ay,ex,ey
  2d_line ex,ey ,cx,cy
  2d_line cx,cy,bx,by
  ' la diagonale
  2d_line ex,ey,bx,by
  2d_line ax,ay,cx,cy
  if key_down_code =27 then end
  if key_down_code =27 then end

   next z
r=r
  wait 50
cls
  2d_circle x0,y0,r
2d_fill_color 0,0,0
color 0,134,173,190

   next x

et moi pas rond

Waouh ! Impressionnant !

J’ai réécris le code à ma manière (sans toucher le fond à part r = r que j’ai purement et simplement supprimé).
J’ai REMé le CLS et j’ai modifié PAUSE.
Et aussi j'ai modifié les valeurs de R et de y0

FX et FY c’est quoi ? Ces deux variables ne sont ni initialisées ni utilisées dans le code.
« La roue tourne » et toi tu n’es « pas rond » : ça se voit sur ta photo ! Laughing

Code:: dim beta,gama,f,fx,fy ,R,dx,dy ,t,z
dim a,ax,ay,b,bx,by ,q
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000 : width 0,1000
R = 450-80 : x0 = 500 : y0 = 500-80
2d_pen_width 11
' 2d_pen_color 255,0,0
' Angle de depart
beta = 0/57 : gama = 45/57
2d_circle x0,y0,r : 2d_circle x0,y0,5
' demi petit cote gama ne depass pas 90
' gama= 0/57
for x = 1 to 3600
   q = q + 0.975
   beta = beta + q / 57
   if key_down_code = 27 then end
   ax = x0 + sin(180/57.29 + beta)*r
   ay = y0 + cos(180/57.29 + beta)*r
   2d_circle ax,ay,25
   bx = x0 + (sin(beta + gama)*r )
   by = y0 + (cos(beta + gama)*r)
   2d_circle bx,by,25
   cx = x0 + sin(beta)*r :' print fx
   cy = y0 + cos(beta)*r :' print fy
   2d_circle cx,cy,25
   ex = x0 + sin(180/57.29 + beta + gama)*r
   ey = y0 + cos(180/57.29 + beta + gama)*r
   2d_circle ex,ey,25 : 2d_circle x0,y0,10
   2d_line bx,by,ax,ay : 2d_line ax,ay,ex,ey
   2d_line ex,ey,cx,cy : 2d_line cx,cy,bx,by
  ' la diagonale
   2d_line ex,ey,bx,by : 2d_line ax,ay,cx,cy
' display
   2d_pen_color rnd(250),rnd(250),0
   for z = 0 to r step 9
   ax = x0 + sin(180/57.29 + beta)*r
   ay = y0 + cos(180/57.29 + beta)*r
   bx = x0 + (sin(beta + gama)*r )
   by = y0 + (cos(beta + gama)*r)
   cx = x0 + sin(beta)*r :' print fx
   cy = y0 + cos(beta)*r :' print fy
   ex = x0 + sin(180/57.29 + beta + gama)*r
   ey = y0 + cos(180/57.29 + beta + gama)*r
   2d_line bx,by,ax,ay : 2d_line ax,ay,ex,ey
   2d_line ex,ey,cx,cy : 2d_line cx,cy,bx,by
  ' la diagonale
   2d_line ex,ey,bx,by : 2d_line ax,ay,cx,cy
   if key_down_code = 27 then end
   next z
   wait 100
  ' cls
   2d_circle x0,y0,r : 2d_fill_color 0,0,0 : color 0,134,173,190
next x

La persistance rétinienne nous fait voir des choses qui n'existent pas !
accélération et décélération l'illustrent bien
lors de l’accélération on se dit qu'on va toujours tourner toujours dans le même sens
;mais mystère quand ça ralentit on voit bien que ça s'est inverse

C’est parce que notre cerveau nous joue des tours !

c'est un code plusieurs fois remanié, ça a du servir mais à quoi ?
je l'ai oublié

C'est très flashy, à utiliser avec modération. cheers

A+

» Un coup de SIN-COS
» une application de 2d_flood
» Du coup, j'ai un autre défi
» petit coup de main de démarrage
» Access Violation: coup de gueule.