FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Structure spirale n°1

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Structure spirale n°1   Mar 26 Mai 2015 - 12:22

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 ! lol!   lol!   lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Structure spirale n°1   Mar 26 Mai 2015 - 15:01

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Revue du sujet   Mar 26 Mai 2015 - 16:08

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 ! Very Happy Very Happy Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Structure spirale n°1   Mar 26 Mai 2015 - 16:22

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 Wink
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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Structure spirale n°1   Mar 26 Mai 2015 - 16:24

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Structure spirale n°1   Mar 26 Mai 2015 - 16:42

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4988
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Structure spirale n°1   Mar 26 Mai 2015 - 16:54

Bravo Parpaiun,

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

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7961
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 26 Mai 2015 - 18:16

Bravo Parpaiun !

C' est très joli.


@ JeanClaude,

J' ai toujours mon stock de doliprane...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Structure spirale n°1   Mar 26 Mai 2015 - 19:23

Ç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. Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Re: Structure spirale n°1   Mer 27 Mai 2015 - 2:05

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 ? pale
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Structure spirale n°1   Mer 27 Mai 2015 - 3:12

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Structure spirale n°1   Mer 27 Mai 2015 - 4:33

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Structure spirale n°1   Mer 27 Mai 2015 - 9:23

@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  Wink ) 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  Wink


Dernière édition par Jicehel le Mer 27 Mai 2015 - 10:59, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4988
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Structure spirale n°1   Mer 27 Mai 2015 - 9:37

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+ Very Happy .
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Structure spirale n°1   

Revenir en haut Aller en bas
 
Structure spirale n°1
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Structure spirale n°2
» La structure binaire d'un .bmp
» Structure des catégories
» Problème avec la structure et la hiérarchie
» Mettre la structure de mon forum en 3D

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Les inutilitaires-
Sauter vers: