De l’art avec des cercles

Code:

rem ============================================================================
rem                 De l’art avec des cercles
rem ===========================================================================
dim w,h,x
full_space 0
w = screen_x : h = screen_y
picture 10 : full_space 10 : 2d_target_is 10 : 2d_fill_off : 2d_pen_width 5
caption 0,"<ESC> pour arrêter ..."
while 1+2+3 = 6
    for x = 1 to w/2
        2d_pen_color mod(x,255),mod(x*2,255),mod(x*3,255)
        2d_circle w/2-x,h/2,x : 2d_circle w/2+x,h/2,x
        2d_circle w/2,h/2-x,x : 2d_circle w/2,h/2+x,x
        if scancode = 27 then terminate
        display : ' pour suivre le tracé
    next x
    for x = w/2 to 1 step -1
        2d_pen_color mod(x,255),mod(x*2,255),mod(x*3,255)
        2d_circle w/2-x,h/2,x : 2d_circle w/2+x,h/2,x
        2d_circle w/2,h/2-x,x : 2d_circle w/2,h/2+x,x
        if scancode = 27 then terminate
        display : ' pour suivre le tracé
    next x
end_while
rem ============================================================================

J'attends vos commentaires humoristiques !

Merci Papydall pour le partage !
C’est très joli, on en a plein les yeux !
Tu as eu une chance inouïe que 1+2+3 soit égal à 6 !

On a l'impression d'être retourné en plein dans les années 70...  C'est psychédélique !!!

Superbe Papydall et BRAVO !!

PS :  Concernant l'opération 1+2+3=6 moi je fait confiance à Papydall... Le connaissant il a certainement vérifié le résultat avant !!!

Merci Marc.
Merci Minibug.

Minibug a écrit:

On a l'impression d'être retourné en plein dans les années 70...  C'est psychédélique !!!

A cette époque tu n'avais que 4,5 ans tout au plus et tu connaissais déjà le psychédélisme!
Attention : l'absorption d'hallucinogènes est déconseillée.

Quant à l'expression : 1 + 2 + 3 = 6 tu peux la remplacer par : 1 * 2 * 3 = 6 ou mieux par factorielle(3) = 6 à condition que tu codes toi-même la fonction qui retourne la factorielle de n.
Parole de Papydall : ça marchera toujours!

Papydall a écrit:

Attention : l'absorption d'hallucinogènes est déconseillée.

Ben oui... A utilisé avec modération !!!

Papydall a écrit:

Quant à l'expression : 1 + 2 + 3 = 6 tu peux la remplacer par : 1 * 2 * 3 = 6 ou mieux par factorielle(3) = 6 à condition que tu codes toi-même la fonction qui retourne la factorielle de n.

Ah Papydall tu m'étonnera toujours !!

Papydall a écrit:

... tu codes toi-même la fonction qui retourne la factorielle de n...

Fonction factorielle :

Code:

' fonction factorielle

print factorielle(13)

end

fnc factorielle(n%)
   dim_local i%, r
   r = 1
   for i% = 2 to n%
       r = r * i%
   next i%
   result r
end_fnc

Bon dimanche !

Marc  tu es fort ! 
Bon j'ai appris que 13! = 6227020800 

NB pour ceux qui n'arrivent pas à lire mon message :
* Faire une capture d'écran
* Ecrire un sous-programme pour afficher dans un PICTURE cette capture
* Ecrire un autre sous-programme pour parcourir l'image pixel par pixel que vous pouvez sauvegarder dans une variable du type tableau.
* Ecrire un troisième sous-programme pour afficher une image symétrique par rapport à l'axe horizontal de votre écran de la matrice enregistrée.
* Lancer votre programme et vérifier qu'il ne s'exécute pas comme prévu.
* Passer à l'étape la plus importante du codage : le débogage.
* Si après trois-quarts d'heure, deux cafés et une demi-douzaine de doliprane, vous vous trouvez toujours au même point de départ, ne désespérez point; il y a toujours une solution :
Vous avez le choix entre donner un bon coup de poing à votre écran qui s'obstine à ne pas rendre le message clair, ou tout jeter par la fenêtre.

Dans tous les cas, je n'assume aucune responsabilité des dégâts occasionnés par mes conseils!

La dernière solution à tenter est de se documenter sur la balise [ flipv ] ... [ /flipv ]

Moi je suis pour la solution alternative de secouer Papydall pour lui remettre les idées à l'endroit...
Ce qui lui permettra d'écrire de nouveau dans le bon sens !!!!!

Minibug a écrit:

Moi je suis pour la solution alternative de secouer Papydall pour lui remettre les idées à l'endroit...
Ce qui lui permettra d'écrire de nouveau dans le bon sens !!!!!
 

OK! J'écris dans le bon sens, mais de mon point de vue.
Et le programme de l'art avec des cercles, qu'en est-il advenu?  

Ben pas grave j'ai le décodeur !

Papydall a écrit:

Et le programme de l'art avec des cercles, qu'en est-il advenu?

Alors là j'en ai pas la moindre idée !!!
Demande à Marc. Il me semble que c'est le dernier à l'avoir vu...

Minibug a écrit:

On a l'impression d'être retourné en plein dans les années 70...  C'est psychédélique !!!

Ah, 1970… Il n’y avait pas d’ordinateur personnel, pas de téléphone portable, beaucoup n’avaient que la télévision en noir et blanc avec une seule chaîne en haute définition (819 lignes). Certains quartiers étaient encore desservis en 110 V… On captait la radio en modulation d’amplitude (les grandes ondes)…

Bon, je m’égare. J’en reviens au programme de Papydall. Pour qu’il cadre mieux à l’année 1970 (le programme, pas Papydall !), j’ai effectué une petite modification :

Code:

rem ============================================================================
rem                 De l’art avec des cercles
rem ===========================================================================
dim w,h,x
height 0,819
width 0,1092
w = width(0) : h = height(0)
picture 10 : full_space 10 : 2d_target_is 10 : 2d_fill_off : 2d_pen_width 5
caption 0,"<ESC> pour arrêter ..."
while 1+2+3 = 6
    for x = 1 to w/2
        2d_pen_color mod(x,255),mod(x,255),mod(x,255)
        2d_circle w/2-x,h/2,x : 2d_circle w/2+x,h/2,x
        2d_circle w/2,h/2-x,x : 2d_circle w/2,h/2+x,x
        if scancode = 27 then terminate
        display : ' pour suivre le tracé
    next x
    for x = w/2 to 1 step -1
        2d_pen_color mod(x,255),mod(x,255),mod(x,255)
        2d_circle w/2-x,h/2,x : 2d_circle w/2+x,h/2,x
        2d_circle w/2,h/2-x,x : 2d_circle w/2,h/2+x,x
        if scancode = 27 then terminate
        display : ' pour suivre le tracé
    next x
end_while
rem ============================================================================