L'oeuf graphique

En écho à la récente rubrique "équation d'un oeuf" par Papydall, voici un oeuf (de n'importe quel oiseau selon votre bon plaisir !) tracé graphiquement par mes soins en peu de lignes....

Code:

'  OEUF GRAPHIQUE
'  Auteur:  PARPAIUN
'  Date-version:  05/05/2016
'
height 0,600
dim x,y
arc(150,320,180,153,-1,270,1)
arc(x,y,45,310,-1,90.5,1)
arc(x,y,90,90,-1,137,1)
arc(x,y,45,310,-1,226,1)
END

sub arc(ax,ay,m,r,s,a,l)
dim_local i,mx,my,n,rad
rad=0.01745
n=int(0.55+r*(m*rad)/l)
a=(360-a)*rad
for i=1 to n
2D_circle ax,ay,1
ax = ax +l *cos(a) : ay = ay +l *sin(a)
a = a + s* (l / r)
next i
x = ax : y = ay
END_SUB

Ferez vous mieux en moins de lignes de programme que le mien ?
En attendant, bonnes fêtes de Pentecôte et bon week-end à tous !

En effet, c'est aussi une façon intéressante de le faire

Parpaiun a écrit:

Ferez vous mieux en moins de lignes de programme que le mien ?

Je tente ceci ; c’est un peu pointu vers le haut, mais ça ressemble bien à un œuf.

Code:

dim x,y,r,t
degrees
2d_poly_from 300,400
for t = 0 to 360
    r = cos(t) : r = r*r*r : x = r*sin(t) : y = r*cos(t)
    2d_poly_to 300+300*x,100+300*y
next t
2d_flood 300,200,200,150,100

Beaucoup mieux :

Code:

dim a,b,c,x,y,r,t,xc,yc
picture 10 : full_space 10 : 2d_target_is 10
a = 1 : b = .65 : c = .1 : r = 200 : xc = width(10)/2 : yc = height(10)/2
degrees  : 2d_poly_from xc,yc+r*a
for t = 0 to 360
    x = r*(b+c*cos(t))*sin(t) :  y = r*a*cos(t) : 2d_poly_to xc+x,yc+y
next t
2d_flood xc,yc,200,150,100

Bonjour à tous,

Si le jeu c'est de faire un œuf avec le moins de lignes de code possible, alors Papydall tu as raté une occasion.

Ton code en une seule ligne:

Code:

dim a,b,c,x,y,r,t,xc,yc : picture 10 : full_space 10 : 2d_target_is 10 : a = 1 : b = .65 : c = .1 : r = 200 : xc = width(10)/2 : yc = height(10)/2 : degrees  : 2d_poly_from xc,yc+r*a : for t = 0 to 360 : x = r*(b+c*cos(t))*sin(t) :  y = r*a*cos(t) : 2d_poly_to xc+x,yc+y : next t : 2d_flood xc,yc,200,150,100

Bon OK, je sors.

Humm...la forme revient chez Jean Claude.

Exact Ygeronimi, je n'ai pas eu de crises ces dernières 24h.

A+

Tu peux croquer la pomme ici

Oyez, oyez, à mon avis, le grand vainqueur est le malicieux Jean-Claude qui a su faire usage de la bonne vieille méthode du "One liners". Alors, mon pauvre Papydall, au risque de chambouler une éthique proprement bien faite en matière de lignes, y as tu songé une fois à faire comme ça ? Non, Papydall, je ne veux point te forcer. Restons bien sages et retournons gentiment à nos moutons.

Et voilà, comment un Panoramicien, nul en math, gagne un challenge.
Parpaiun, me qualifie de "malicieux". Je dois admettre que sur ce coup là, il a raison.

Félicitations Jean Claude.
Le jury, à l’unanimité, te décerne le prix « Parpaiun & Parpaiun » du meilleur Pano-œuf pondu en Panoramic.
Le prochain défi : Dessiner (toujours en Panoramic) le Pano_Oiseau qui a pu pondre le Pano_Oeuf.
A vos claviers !

D'accord, tu fais le code et je le met sur une ligne.

Sur Mars, les poules pondent des œufs cubiques,
alors c'est beaucoup plus simple...

Code:

scene3d 10
3d_target_is 10
cam_position 5,10,10
3d_cube 20,2

Les poules, arriver à pondre un oeuf cubique sur Mars, dis donc jjn4 sacré farceur , tu es vraiment impayable, foi de parpaiun !

JJn4
Tu t’es trompé de planète : Sur Mars les œufs sont plutôt verts.

Code:

scene3d 10 : color 10,0,0,0
3d_target_is 10
cam_position 5,10,10
3d_cube 20,2
3d_color 20,0,255,0

Mais non, mais non,
sur Mars, les œufs sont rouges
pour se confondre avec le paysage
et éviter d'être dévorés par les oviraptors.
Ce sont les yeux des œufs, qui sont verts.

Code:

scene3d 10 : color 10,0,0,0
3d_target_is 10
cam_position 5,10,10
3d_cube 20,2
3d_color 20,255,0,0
3d_sphere 30,1.1
3d_color 30,0,255,0

Oh!  Grand petit homme vert, excuse mon ignorance : je n’ai jamais été sur la planète Mars.
Si une Martienne   veut bien m’accueillir chez elle, je prendrais le risque d’assister à la ponte pour me convaincre.

Parpaiun a écrit:

jjn4 sacré farceur , tu es vraiment impayable,

Je crois que je ne suis pas le seul... (suivez mon regard)...

papydall a écrit:

Si une Martienne veut bien m’accueillir chez elle, je prendrais le risque d’assister à la ponte pour me convaincre.

A condition qu'elle accepte de pondre en ta présence, c'est tout de même assez intime...

Ah bon, les Martiennes aussi sont pudiques !
Et si je lui apporte des brindilles pour la construction du nid ?

Des brindilles sur Mars, Papydall ? Où diable vas tu dénicher ça ?
Et puis, en parlant d'oeuf, mes amis, de quel oiseau ça sort ?