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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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 : 5863
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 : 5863
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 : 5863
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 : 5863
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 : 5086
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 : 8002
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 : 5613
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 : 10244
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 : 5613
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 : 5863
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 : 5086
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: