En jouant avec des cercles j’obtiens … des sphères.

Code:: rem ============================================================================
rem sphère à partir des cercles
rem ============================================================================

dim n
width 0,1000
2d_pen_width 2
For n = 1 to 200
   2d_pen_color abs(n-50),n,abs(n-50) : 2d_circle 250,220,200-n
   2d_pen_color abs(n-50),50+n,abs(n-50) : 2d_circle 700,220,200-n

   2d_pen_color 200-n,200-n,abs(n-250) : 2d_circle 480,080,50-n/4
   2d_pen_color 250-n,200-n,abs(n-250) : 2d_circle 480,380,50-n/4
' pause 10
next n
rem ============================================================================

Effet visuel bluffant, Papydall !

Et un tore.

Code:: rem ============================================================================
rem Tore à partir des cercles
rem ============================================================================
dim n
2d_pen_width 2
For n = 0 to 160
2d_pen_color abs(n-50),90+n,abs(n-50) : 2d_circle 200,200,150-n/2
2d_pen_color abs(n-50),n,abs(n-50) : 2d_circle 460,200,100-n/3
next n
rem ============================================================================

Joli ! Ne reste plus qu'une chose: pour les pseudo-sphères, déplacer le "point d'éclairage" du centre vers un point décalé pour plus de réalisme, et pour le tore, l'incliner pour une simulation de vision en 3D...

Désolé, je n'ai pas pu m'empêcher. Mais ces effets visuels sont impressionnants.

Oui, ça m'amuse.

Code:: rem ============================================================================
rem sphère à partir des cercles
rem ============================================================================

dim n
width 0,1000
2d_pen_width 4
For n = 1 to 200
   2d_pen_color abs(n-50),n,abs(n-50) : 2d_circle 250-n,220,200-n
   2d_pen_color abs(n-50),50+n,abs(n-50) : 2d_circle 700+n,220,200-n

   2d_pen_color 200-n,200-n,abs(n-250) : 2d_circle 480+n/4,080,50-n/4
   2d_pen_color 250-n,200-n,abs(n-250) : 2d_circle 480-n/4,380,50-n/4
next n
rem ============================================================================

Code:: rem ============================================================================
rem Tore à partir des cercles
rem ============================================================================
dim n
2d_pen_width 8
For n = 1 to 160 step 4
2d_pen_color abs(n-50),n,abs(n-50) : ellipse(300,200,250-n/2,150-n/2)
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
dim_local a
degrees
2d_poly_from x+r1,y
for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================

Plus beau encore.

Code:: rem ============================================================================
dim n
width 0,1000
2d_pen_width 8
For n = 1 to 160 step 4
   2d_pen_color abs(n-50),n,abs(n-50) : ellipse(300+n,280-n,250-n/2,150-n/2)
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
   dim_local a
   degrees
   2d_poly_from x+r1,y
   for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================

Très impressionnant, Papydall !

Une paire de pantoufles ?!

Code:: rem ============================================================================
dim n
width 0,1000 : height 0,850
2d_pen_width 8
For n = 1 to 160 step 2
2d_pen_color abs(n-50),n,abs(n-50)
ellipse(300+2*n,650-n,250-n/2,150-n/2)
ellipse(300+2*n,180+n,250-n/2,150-n/2)
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
dim_local a
degrees
2d_poly_from x+r1,y
for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================

Le dernier avant d'aller faire dodo.

Code:: rem ============================================================================
dim n
full_space 0
2d_pen_width 8
For n = 1 to 160
2d_pen_color abs(n-50),abs(n-100),abs(n-50)
ellipse(300+2*n,580-n-100,250-n/2,250-n*3)
ellipse(1000+2*n,580-n,250-n/2,150-n*3)
display
next n
end
rem ============================================================================
SUB ellipse(x,y,r1,r2)
dim_local a
degrees
2d_poly_from x+r1,y
for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================

Sujet: re Ven 4 Mar 2016 - 4:13

Et çà...c' était les oreilles de Shrek ?...
Laughing

Bravo Papydall !

En regardant comme ça, ça parait si simple... Laughing

C'est du grand Art !

Merci ! cheers

Pas regardé hier, mais je testerais, il semble que ça vaut le coup d'oeil Wink

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bravo Papydall, belle démonstration des possibilités de Panoramic avec peu de code.
Mais pour les bons programmeurs, c'est à dire pas pour moi.

Salut Invité

Klaus, Ygeronimi, Minibug, Marc37, Jicehel, Francis-mr et tous ceux qui sont passés par ici, MERCI.

Et pour le plaisir des yeux:

Code:: rem ============================================================================
rem Pour le plaisir des yeux
rem ============================================================================
dim n
full_space 0 : picture 10 : width 10,width(0) -100 : height 10,height(0)-100
top 10,50 : left 10,50
font_bold 0 : font_size 0,20 : font_name 0,"tahoma"
font_color 0,10,50,255 : print_locate 50,10
print "C'est fou ce qu'on peut obtenir avec peu de choses et beaucoup d'imagination ! Patientez pour apprécier ..."
print_locate 10,30 : print "E" : print_locate 10,60 : print "S" : print_locate 10,90 : print "C"

print_locate 10,150 : print "P" : print_locate 10,180 : print "O" : print_locate 10,210 : print "U"
print_locate 10,240 : print "R" : print_locate 10,290 : print "S" : print_locate 10,320 : print "O"
print_locate 10,350 : print "R" : print_locate 10,380 : print "T" : print_locate 10,410 : print "I"
print_locate 10,440 : print "R"

2d_target_is 10 : print_target_is 10
color 10,0,0,0 : font_bold 10 : font_size 10,16
2d_pen_width 8
For n = 50 to 400
   2d_pen_color abs(n-150),abs(n-200),abs(n-150)
   ellipse(300+n,600-n,150*n,150)
   ellipse(300+n,100+n,300,100*n)
   ellipse(900+n,500-n,100,200*n)
   display
   if scancode = 27 then print "Je vois que ça ne t'a pas plu !" : end
next n
repeat
   font_color 10,0,0,255
   print_locate 420,80
   print "C'était pour le plaisir des yeux ! <ESC> pour sortir " : pause 1000
   font_color 10,255,0,0
   print_locate 420,80
   print "C'était pour le plaisir des yeux ! <ESC> pour sortir " : pause 1000
until scancode = 27
for n = screen_y to 10 step -10 : height 0, n : pause 100 : next n
terminate
rem ============================================================================
SUB ellipse(x,y,r1,r2)
   dim_local a
   degrees
   2d_poly_from x+r1,y
   for a = 0 to 360 : 2d_poly_to x + r1*cos(a), y + r2*sin(a) : next a
END_SUB
rem ============================================================================

Expérimentez et postez vos trouvailles king

Je viens déjà d'en tester 2: La sphere: parfait. Pour le tore, je te propose cette variante que je préfère

Code:: rem ============================================================================
rem Tore à partir des cercles
rem ============================================================================
dim n
2d_pen_width 2
For n = 0 to 60
2d_pen_color n+20,n+60,n+20 : 2d_circle 200,200,150-n/2
2d_pen_color n+60,n ,n+50 : 2d_circle 460,200,100-n/3
next n
For n = 60 to 120
2d_pen_color 140 - n,180 - n,140 - n : 2d_circle 200,200,150-n/2
2d_pen_color 180 - n,120 - n,170 - n : 2d_circle 460,200,100-n/3
next n
rem ===========================================================================

Bon, je continue de tester le reste Wink

Tu a été prolifique...

Tu n’as pas tort de refaire le tore ! Wink

Bon, j'attends la suite.

Le reste est chouette. Belle créativité Wink

et j'espère que tu as pris plaisir également à voir évoluer ces figures émergeant des cercles et autres ellipses.

Si on m’avait montré l’un de ces dessins pour que j’écrive le code qui le réaliserait, je dirais : « je ne sais pas comment faire ».
Mais en jouant avec mes cercles et mes ellipses, je vois l’incroyable se réaliser !
A mon âge j’ai besoin de m’amuser un peu, non ? king

Bonsoir à tous !

Après le monochrome, la couleur...

Code:: rem ============================================================================
rem sphère à partir des cercles par PAPYDALL colorisé par MARC37
rem
rem ============================================================================

DIM r%, v%, b% : ' couleurs Rouge, Vert, Bleu
DIM i%, n%, j%
DIM mini : mini = 0
DIM maxi : maxi = 255
WIDTH 0,600
HEIGHT 0, 600

2D_PEN_WIDTH 2

R% = maxi
B% = mini
n% = 252

FOR j% = 1 to 6
   FOR i% = 1 to 42
   SELECT j%
   CASE 1
   R% = maxi
   b% = mini
   v% = i%*6
   CASE 2
   R% = 252 - i%*6
   b% = mini
   v% = maxi
   CASE 3
   R% = mini
   b% = i%*6
   v% = maxi
   CASE 4
   R% = mini
   b% = maxi
   v% = 252 - i%*6
   CASE 5
   R% = i%*6
   b% = maxi
   v% = mini
   CASE 6
   R% = maxi
   b% = 252 - i%*6
   v% = mini
   END_SELECT
   2D_PEN_COLOR r%, v%, b%
   2D_CIRCLE 300,300,n%
   n% = n% -1
   NEXT i%
NEXT j%

Hello Marc37

C’est tout à fait beau, mais difficile d’y voir une sphère.
De toutes les façons, merci d'avoir partagé.
On attend la suite, si jamais suite il y a. sunny

@Papydall
Désolé, effectivement j'ai cassé ta sphère. Elle ressemble plutôt à un disque coloré sans aucun relief ! Embarassed

Très réussi Wink

Je mets ton code écrit légèrement différemment avec le même résultat

Code:: rem ============================================================================
rem Sphère à partir des cercles par PAPYDALL colorisé par MARC37
rem ============================================================================

DIM r%, v%, b% : ' couleurs Rouge, Vert, Bleu
DIM i%, j%
DIM mini : mini = 0
DIM maxi : maxi = 255
WIDTH 0,600 : HEIGHT 0, 600

2D_PEN_WIDTH 2

FOR j% = 0 to 5
FOR i% = 1 to 42
SELECT j%
CASE 0
r% = maxi : b% = mini : v% = i%*6
CASE 1
r% = 252 - i%*6 : b% = mini : v% = maxi
CASE 2
r% = mini : b% = i%*6 : v% = maxi
CASE 3
r% = mini : b% = maxi : v% = 252 - i%*6
CASE 4
r% = i%*6 : b% = maxi : v% = mini
CASE 5
r% = maxi : b% = 252 - i%*6 : v% = mini
END_SELECT
2D_PEN_COLOR r%, v%, b% : 2D_CIRCLE 290,280, 254 - (j%*42 + i%)
NEXT i%
NEXT j%

et je t'en met une variante juste pour le fun, mon coté coloriste qui ressort Wink

Code:: rem ============================================================================
rem Sphère à partir des cercles par PAPYDALL colorisé par MARC37
rem ============================================================================

DIM i%, j%, v%

WIDTH 0,600 : HEIGHT 0, 600

2D_PEN_WIDTH 2

FOR j% = 0 to 5
FOR i% = 1 to 42
IF ODD(j%) = 0 THEN v% = v% + 6 : ELSE : v% = v% - 6
2D_PEN_COLOR 255 - j%*42, v%, 255 - j%*42
2D_CIRCLE 290,280, 254 - (j%*42 + i%)
NEXT i%
NEXT j%

Moi aussi, je eux jouer à la baballe:

Code:: label centre, abort

dim w%, h%, x0%, y0%, r%, xc%, yc%, l%, c%, d, Rouge%, d1, mx, abort%
picture 1 : full_space 1 : color 1,255,255,255
2d_target_is 1
w% = width(1) : h% = height(1)

x0% = w%/2 : y0% = h%/2
r% = min(w%,h%)*0.4

2d_pen_color 255,0,0
2d_circle x0%,y0%,r%

on_click 1,centre
caption 0,"Clic pour déterminer le point d'éclairage"
button 2 : caption 2,"Arrêter" : on_click 2,abort

end

centre:
xc% = mouse_x_left_down(1)
yc% = mouse_y_left_down(1)
if ((xc%-x0%)*(xc%-x0%)+ (yc%-y0%)*(yc%-y0%))>(r%*r%)
message "Il faut cliquer DANS le cercle !"
return
end_if
mx = sqr((xc%-x0%)*(xc%-x0%)+ (yc%-y0%)*(yc%-y0%))+r%
for l%=(y0%-r%) to (y0%+r%)
for c%=(x0%-r%) to (x0%+r%)
d = sqr((c%-x0%)*(c%-x0%)+ (l%-y0%)*(l%-y0%))
if d<r%
d1 = sqr((c%-xc%)*(c%-xc%)+ (l%-yc%)*(l%-yc%))
Rouge% = 255 - (255 * (d1/mx))
2d_pen_color 255,Rouge%,Rouge%
2d_point c%,l%
end_if
next c%
display
if abort%=1
color 1,255,255,255
2d_pen_color 255,0,0
2d_circle x0%,y0%,r%
abort% = 0
return
end_if
next l%
return

abort:
abort% = 1
return

» De l’art avec des cercles
» Jeux et leçons pour apprendre l'Anglais
» Dessine des sphères énervées
» comment faire des cercles contigus sur spirale.
» problème avec edit ou bien avec combo?