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
» I Love You
par papydall Aujourd'hui à 2:58

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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 : 5858
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 : 5858
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 : 5858
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 : 5858
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 : 5040
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 : 7994
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 : 5546
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 : 10074
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 : 5546
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 : 5858
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 : 5040
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
» Structure
» Structure pour un programme Windows 1/4
» Utilisation de PoiView, csv2gpx, gpx2gpi, GpsBabel et blocage dans RoadTrip ou BaseCamp
» varable utilisateur / structure

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