Structure spirale n°1

Voici un autre programme court parmi mes réalisations:

Code:

REM =====================================================================
REM   Auteur: Parpaiun
REM   Date-version: 26/05/2015
REM =====================================================================
Caption 0,"STRUCTURE SPIRALE AVEC DES DROITES"
dim a,b,cx,cy,th,x,y
height 0,520: width 0,520
x=250: y=238
for b=0 to 360 step 18
a=b
 for th=0 to 19
  droite(x,y,35,a,1)
  2d_fill_color 0,0,0
  2d_circle x,y,3
  a=a+18
 next th
next b
END

REM ======================================================================
SUB droite(dx,dy,dl,dd,dt)
dim_local i,mx,my,rad
' dx et dy,= coordonnées de départ de la droite
' dl = longueur
' dd = direction angulaire par rapport au centre d'un un cercle imaginaire
' dt = option de tracé  1 = actif   0 = inactif
rad=acos(-1)/180
dd = dd * rad
mx=dx+cos(dd): my=dy-sin(dd)
for i=1 to dl
 if dt=1 then 2d_line mx,my,dx,dy
 dx=dx+cos(dd)
 dy=dy-sin(dd)
next i
x=dx:y=dy
END_SUB

Si cette figure vous plait, amusez vous à colorier en imitant les nuances de couleurs façon Vasarely ! Et vous serez fier de votre oeuvre d'art ! De la part de parpaiun !    

Bravo Parapiun, le programme est très bien écrit et clair.
Le graphique est très jolie, du coup oui, je mets une version colorée ^^

Code:

REM =====================================================================
REM  Auteur: Parpaiun
REM  Date-version: 26/05/2015
REM =====================================================================
caption 0,"STRUCTURE SPIRALE AVEC DES DROITES"
color 0,0,0,0
dim a,b,cx,cy,th,x,y
height 0,520: width 0,520
x=250: y=238
for b=0 to 360 step 18
a=b
 for th=0 to 19
  droite(x,y,35,a,1)
  2d_pen_color 180,180,180 : 2d_fill_color 180,180,180 : 2d_circle x,y,3
  a=a+18
 next th
next b
END

REM ======================================================================
SUB droite(dx,dy,dl,dd,dt)
dim_local i,mx,my,rad
' dx et dy,= coordonnées de départ de la droite
' dl = longueur
' dd = direction angulaire par rapport au centre d'un un cercle imaginaire
' dt = option de tracé  1 = actif  0 = inactif
rad=acos(-1)/180
dd = dd * rad
mx=dx+cos(dd): my=dy-sin(dd)
for i=1 to dl
 2d_pen_color abs(180 - b)*1.4,abs(10 - th)*25, abs((dl/2) - i)*14.5
 if dt=1 then 2d_line mx,my,dx,dy
 dx=dx+cos(dd)
 dy=dy-sin(dd)
next i
x=dx:y=dy
END_SUB

Merci Jicehel pour ton appréciation. Je trouve les couleurs très intéressantes et je note ta série d'instructions pour les faire. Connais tu Vasarely ? Ce personnage est un grand artiste à admirer pour son savant agencement de couleurs et de formes dans Internet et dans le site images "Vasarely art". Il y a largement de quoi s'en inspirer !

Oui, je connais ces oeuvres, mais de là à savoir les traduitre en équations simples, c'est une autre affaire.
Je cherche des solutions simples pour avoir un rendu coloré, tu sais moi et les maths. J'étais plutôt bon à l'école en maths, mais ça remonte à il y a 22 / 23 ans ... Je ne pratique plus depuis ce temps là alors je t'avoue que je n'ai plus que des notions, alors de là à savoir les appliquer pour obtenir des colorisations telles qu'il le fait, il y a un pas bien plus grand que celui que je serais capable de faire et encore plus grand par rapport à l'effort que je serais près à y consacrer
Par contre, rien quavec des formules très simple, on peut avoir des résultats très interessants, tiens une variante rapide :

Code:

REM =====================================================================
REM  Auteur: Parpaiun
REM  Date-version: 26/05/2015
REM =====================================================================
caption 0,"STRUCTURE SPIRALE AVEC DES DROITES"
color 0,0,0,0
dim a,b,cx,cy,th,x,y
height 0,520: width 0,520
x=250: y=238
for b=0 to 360 step 18
a=b
 for th=0 to 19
  droite(x,y,35,a,1)
  2d_pen_color 180,180,180 : 2d_fill_color 180,180,180 : 2d_circle x,y,3
  a=a+18
 next th
next b
END

REM ======================================================================
SUB droite(dx,dy,dl,dd,dt)
dim_local i,mx,my,rad
' dx et dy,= coordonnées de départ de la droite
' dl = longueur
' dd = direction angulaire par rapport au centre d'un un cercle imaginaire
' dt = option de tracé  1 = actif  0 = inactif
rad=acos(-1)/180
dd = dd * rad
mx=dx+cos(dd): my=dy-sin(dd)
for i=1 to dl
 2d_pen_color abs(180 - b) + 50,abs(180 - b)*0.6 + abs(10 - th)* 10 + 40, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
 if dt=1 then 2d_line mx,my,dx,dy
 dx=dx+cos(dd)
 dy=dy-sin(dd)
next i
x=dx:y=dy
END_SUB

Et une autre rapide aussi ^^

Code:

REM =====================================================================
REM  Auteur: Parpaiun
REM  Date-version: 26/05/2015
REM =====================================================================
caption 0,"STRUCTURE SPIRALE AVEC DES DROITES"
color 0,0,0,0
dim a,b,cx,cy,th,x,y
height 0,520: width 0,520
x=250: y=238
for b=0 to 360 step 18
a=b
 for th=0 to 19
  droite(x,y,35,a,1)
  2d_pen_color 180,180,180 : 2d_fill_color 180,180,180 : 2d_circle x,y,3
  a=a+18
 next th
next b
END

REM ======================================================================
SUB droite(dx,dy,dl,dd,dt)
dim_local i,mx,my,rad
' dx et dy,= coordonnées de départ de la droite
' dl = longueur
' dd = direction angulaire par rapport au centre d'un un cercle imaginaire
' dt = option de tracé  1 = actif  0 = inactif
rad=acos(-1)/180
dd = dd * rad
mx=dx+cos(dd): my=dy-sin(dd)
for i=1 to dl
 2d_pen_color abs(sin(b))*255,abs(cos(b))*255, abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
 if dt=1 then 2d_line mx,my,dx,dy
 dx=dx+cos(dd)
 dy=dy-sin(dd)
next i
x=dx:y=dy
END_SUB

Sinon tu as les bon vieux classiques:

Code:

REM =====================================================================
REM  Auteur: Parpaiun
REM  Date-version: 26/05/2015
REM =====================================================================
caption 0,"STRUCTURE SPIRALE AVEC DES DROITES"
color 0,50,50,50
dim a,b,cx,cy,th,x,y
height 0,520: width 0,520
x=250: y=238
for b=0 to 360 step 18
a=b
 for th=0 to 19
  droite(x,y,35,a,1)
  2d_pen_color 180,180,180 : 2d_fill_color 180,180,180 : 2d_circle x,y,3
  a=a+18
 next th
next b
END

REM ======================================================================
SUB droite(dx,dy,dl,dd,dt)
dim_local i,mx,my,rad
' dx et dy,= coordonnées de départ de la droite
' dl = longueur
' dd = direction angulaire par rapport au centre d'un un cercle imaginaire
' dt = option de tracé  1 = actif  0 = inactif
rad=acos(-1)/180
dd = dd * rad
mx=dx+cos(dd): my=dy-sin(dd)
for i=1 to dl
 2d_pen_color abs(sin(b))*150 + abs(cos(b))* 150,abs(abs(cos(b))*150 - abs(sin(b))*150) , abs(180 - b)*0.6 + abs(10 - th)* 10 + 40
 if dt=1 then 2d_line mx,my,dx,dy
 dx=dx+cos(dd)
 dy=dy-sin(dd)
next i
x=dx:y=dy
END_SUB

Bravo Parpaiun,

C'est très joli. Mais, alors, les acos, sin, cos, rad, ... ça me donne des migraines

A+

Bravo Parpaiun !

C' est très joli.


@ JeanClaude,

J' ai toujours mon stock de doliprane...

Ça peut donner envi (à ceux que ça donne la migraine) d’y consacrer une fois pour toute le temps qu’il faut (et ce n’est pas du temps perdu !) pour apprivoiser la bête.

Merci à Jicehel, ygeronimi, Jean Claude et papydall. Dommage pour ceux à qui mes programmes donnent curieusement la migraine ! Je les croyais sincèrement intéressés comme de vrais admirateurs d'art trigonométrique. Et pourtant, ce n'est pas sur les difficultés ou les prouesses de calcul trigonométrique qui les font se plaindre mais c'est sur les résultats affichés sur l'écran qu'ils auraient dû se pencher et donner leur avis. Alors, je pense être mal tombé, que je suis "la bête" à apprivoiser pour ceux là d'après papydall ! Sans blague ! Dites, suis je à prendre en considération
pour mes "cadeaux" offerts à Panoramic ou à laisser ?

Sans hésitation: tu es "à prendre en compte", comme tu dis ! Tu apportes un vent nouveau, un mélange de mathématiques et dessin, poésie de la géométrie et humour décalé - c'est suffisamment rare pour être souligné. On apprend des choses en décortiquant tes codes, et je suppose que tu fais également des découvertes sur le forum.

Continue - tout cela nous intéresse !

Parpaiun a écrit:

Alors, je pense être mal tombé, que je suis "la bête" à apprivoiser pour ceux là d'après papydall ! Sans blague ! Dites, suis je à prendre en considération
pour mes "cadeaux" offerts à Panoramic ou à laisser ?  

Parpaiun, tu as mal compris mon message ou disons que j’ai mal exprimé mon idée.
J’ai écris

Citation :

Ça peut donner envi (à ceux que ça donne la migraine) d’y consacrer une fois pour toute le temps qu’il faut (et ce n’est pas du temps perdu !) pour apprivoiser la bête.  

Je m’adressais principalement à Jean Claude (entre autres) que les sin, cos etc. ça lui donne des migraines pour qu’il consacre un peu de temps pour comprendre la trigonométrie (c’est ce que je voulais dire par apprivoiser la bête).

J’ai aussi donné mon avis ici.

Je pense que moi également, je dois consacrer du temps pour réapprendre le français afin de ne plus écrire le contraire de ce que je pense !

@Papydall: Pas besoin d'apprendre le français, tu t'exprime bien mieux que beaucoup de français de souche. Le problème du français comme d'autre langue très riche, c'est que les phrases peuvent être interprétées de différentes manières selon l'esprit dans lequel on les lit. Parpaiun traverse une période de doute, par conséquent, certaines phrases peuvent être mal interprétées.

@parpaiun: Relax, le mal de tête écrit n'était pas par rapport à ton programme mais par rapport aux maths, pour essayer d'en faire autant. Ton programme est vraiment réussi (sans goto   ) commenté, très clair et bien structuré (ça c'est pour la forme) et le résultat au niveau de la forme obtenue est très joli.

De toute façon en tant qu'utilisateur de Panoramic tu as ta place sur le forum, d'autant plus que tu nous fais de beaux programmes (c'est un plus en non une condition). Par contre prend un peu de recul car c'est un forum très libre dans lequel si quelqu'un a une critique à faire, il la fait, mais en règle générale, c'est plutôt es félicitations ou une aide, une critique constructive ou un conseil.

Alors arrète de douter de toi, tu es bien parmi nous  

Je confirme, mon message était humoristique.

Je n'ai jamais fait de trigonométrie et je voulais simplement montrer mon admiration à ceux qui la connaissent et qui s'en servent si bien avec Panoramic.

Bon, ben c'est pas grave, la prochaine fois j'éviterais les phrases trop courtes qui n'expliquent pas suffisamment ma pensée.

A+ .