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 à 1:15

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 1:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Hier à 18:49

» [solved] 3D_LINE How to ?
par papydall Hier à 6:51

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

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

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

» supprimé
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 | 
 

 Une autre merveille

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: Une autre merveille   Sam 2 Mai 2015 - 19:42

Hello les panoramiciens ! Plan, plan ratataaa (air de fanfare). Approchez, approchez. Venez voir
le spectacle offert par une autre merveille faite par Parpaiun le grand, (je suis un peu prétentieux peut-être ?).

Il s'agit d'une rosace tout à fait exceptionnelle que j'ai construite avec des arcs préalablement mémorisés et avant huit rotations de 45 degrés.

Dès le lancer du programme apparaît d'abord une maquette de courbes qui sont mémorisées.

Ensuite la belle rosace aux entrelacs (un peu gauches je trouve !) vous apparaît progressivement à vos mirettes écarquillées.

Etes vous étonnés par ce spectacle ? Dès lors je vous permets d'enjoliver mon programme avec des ors, des guirlandes, bref tout ce que vous voulez pour que ça fasse plus joli !

Code:
rem  Rosace à entrelacs
rem Une figure inédite tirée d un bouquin de géométrie
rem
rem Auteur:Yves Blacher
rem Date-version: 02/05/2015
rem
dim ang,cx,cy,dx,dy,i,j,k,n,pi,px,py,rad,th,x,y
caption 0,"ROSACE A ENTRELACS"
label reprise,fin
n=794
dim mx(n),my(n),td(n)
cx=150:cy=300
j=1
mx(j)=cx: my(j)=cy

droite(cx,cy,10,0,0)
arc(x,y,50,17,70,-1)
arc(x,y,100,7.5,345,1)
px=x:py=y
arc(px,py,50,23.5,70,-1)
arc(px,py,50,19,335,1)
arc(x,y,60,20,56,-1)
px=x:py=y
arc(px,py,50,36,335,1)
arc(px,py,60,29,73,-1)
arc(x,y,100,21,345,1)
px=x:py=y
arc(px,py,143,19,82,-1)
arc(px,py,138,18.5,323,1)
arc(x,y,153,21,62,-1)
px=x:py=y
arc(px,py,230,18,320,1)
arc(px,py,153,26,81,-1)
arc(x,y,240,19,340.5,1)
px=x:py=y
arc(px,py,175,34,80,-1)
arc(px,py,240,26,321,1)
print " Maquette avant rotations - Attendez un instant, s.v.p"
wait 3000
rem =============================
rem Traitement des rotations
2d_clear
th=0
reprise:
for i=1 to j
x=cx-mx(i): y=cy-my(i)
rot(th)
echel(0.7)
2d_fill_color 0,0,0
if td(i)=0 then 2d_fill_color 255,255,255
2d_circle 240+x,230+y,2
if scancode=27 then fin
next i
th=th+45
if th<360 then goto reprise
fin:
END

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SUB droite(dx,dy,ld,da,ot)
pi=atn(1)*4:rad=pi/180:da=da*rad
for i=1 to ld
  dx=dx+1*cos(da)
  dy=dy-1*sin(da)
  j=j+1: mx(j)=dx: my(j)=dy: td(j)= ot
  if ot=1 then 2d_circle dx,dy,1
  next i
  x=dx: y=dy
  END_SUB
rem ==================================

SUB arc(ax,ay,ray,al,ad,sr)
pi=atn(1)*4: rad=pi/180
n=int(0.5+ray*(al*rad))
ad=(360-ad)*rad
for i=1 to n
2d_circle ax,ay,1
j=j+1:mx(j)=ax:my(j)=ay:td(j)=sr
ax=ax+1*cos(ad)
ay=ay+1*sin(ad)
ad=ad+sr/ray
next i
j=j+1: mx(j)=ax:my(j)=ay:td(j)=sr
x=ax:y=ay

END_SUB
rem ===================================

SUB rot(th)
dim_local cs,ss
th=(360-th)*rad
cs=cos(th): ss=sin(th)
px=x*cs-y*ss
py=x*ss+y*cs
x=px: y=py

END_SUB
rem ===================================

SUB echel(e)
x=x*e: y=y*e
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Une autre merveille   Sam 2 Mai 2015 - 20:39

Very good!

Parpaiun, tu veux bien revoir ton code.
J'y ai ajouté mon grain de sel.

Code:

rem  Rosace à entrelacs
rem Une figure inédite tirée d un bouquin de géométrie
rem
rem Auteur:Yves Blacher
rem Date-version: 02/05/2015
rem
dim ang,cx,cy,dx,dy,i,j,k,n,pi,px,py,rad,th,x,y
caption 0,"ROSACE A ENTRELACS"
' label reprise,fin  : ' J'aime pas < ================================= Papydall
n=794
dim mx(n),my(n),td(n)
cx=150:cy=300
j=1
mx(j)=cx: my(j)=cy

droite(cx,cy,10,0,0)
arc(x,y,50,17,70,-1)
arc(x,y,100,7.5,345,1)
px=x:py=y
arc(px,py,50,23.5,70,-1)
arc(px,py,50,19,335,1)
arc(x,y,60,20,56,-1)
px=x:py=y
arc(px,py,50,36,335,1)
arc(px,py,60,29,73,-1)
arc(x,y,100,21,345,1)
px=x:py=y
arc(px,py,143,19,82,-1)
arc(px,py,138,18.5,323,1)
arc(x,y,153,21,62,-1)
px=x:py=y
arc(px,py,230,18,320,1)
arc(px,py,153,26,81,-1)
arc(x,y,240,19,340.5,1)
px=x:py=y
arc(px,py,175,34,80,-1)
arc(px,py,240,26,321,1)
print " Maquette avant rotations - Attendez un instant, s.v.p"
wait 3000
rem =============================
rem Traitement des rotations
2d_clear
' th=0
' reprise:           : ' J'aime pas < ================================= Papydall
for th = 0 to 360 step 45   : ' J'AIME < ============================== Papydall
for i=1 to j
x=cx-mx(i): y=cy-my(i)
rot(th)
echel(0.7)
2d_fill_color 0,0,0
if td(i)=0 then 2d_fill_color 255,255,255
2d_circle 240+x,230+y,2
if scancode=27 then fin : ' Cette syntaxe n'est pas permise en Panoramic
                          ' il faut faire : if scancode=27 then GOTO fin
                          ' Comme Papydall n'aime pas GOTO, on peut faire
                          ' if scancode=27 then end (ou TERMINATE)
next i
' th=th+45           : ' J'aime pas < ================================= Papydall
' if th<360 then goto reprise  : ' J'aime pas < ======================= Papydall
next th                     : ' J'AIME < ============================== Papydall
' fin:               : ' J'aime pas < ================================= Papydall
END

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SUB droite(dx,dy,ld,da,ot)
pi=atn(1)*4:rad=pi/180:da=da*rad
for i=1 to ld
  dx=dx+1*cos(da)
  dy=dy-1*sin(da)
  j=j+1: mx(j)=dx: my(j)=dy: td(j)= ot
  if ot=1 then 2d_circle dx,dy,1
  next i
  x=dx: y=dy
  END_SUB
rem ==================================

SUB arc(ax,ay,ray,al,ad,sr)
pi=atn(1)*4: rad=pi/180
n=int(0.5+ray*(al*rad))
ad=(360-ad)*rad
for i=1 to n
2d_circle ax,ay,1
j=j+1:mx(j)=ax:my(j)=ay:td(j)=sr
ax=ax+1*cos(ad)
ay=ay+1*sin(ad)
ad=ad+sr/ray
next i
j=j+1: mx(j)=ax:my(j)=ay:td(j)=sr
x=ax:y=ay

END_SUB
rem ===================================

SUB rot(th)
dim_local cs,ss
th=(360-th)*rad
cs=cos(th): ss=sin(th)
px=x*cs-y*ss
py=x*ss+y*cs
x=px: y=py

END_SUB
rem ===================================

SUB echel(e)
x=x*e: y=y*e
END_SUB

Un petit conseil : use (et abuse si tu veux) de l'indentation : ça rend le code plus clair. lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Une autre merveille   Sam 2 Mai 2015 - 23:58

Merci pour cette création originale
Je vous mets une version légèrement modifiée
Code:
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
rem Rosace à entrelacs
rem Une figure inédite tirée d un bouquin de géométrie
rem
rem Auteur:Yves Blacher
rem Date-version: 02/05/2015
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
rem
dim ang,dx,dy,i,k,px,py,th,x,y
dim pi  : pi=atn(1)*4
dim rad : rad=pi/180
dim n : n=794
dim mx(n),my(n),td(n)
dim cx,cy,j : cx=150:cy=300 : j=1

color 0,255,0,0 : caption 0,"ROSACE A ENTRELACS" : 2d_pen_color 255,0,0

mx(j)=cx: my(j)=cy : droite(cx,cy,10,0,0) : arc(x,y,50,17,70,-1) : arc(x,y,100,7.5,345,1)
px=x:py=y : arc(px,py,50,23.5,70,-1) : arc(px,py,50,19,335,1)    : arc(x,y,60,20,56,-1)
px=x:py=y : arc(px,py,50,36,335,1)  : arc(px,py,60,29,73,-1)    : arc(x,y,100,21,345,1)
px=x:py=y : arc(px,py,143,19,82,-1)  : arc(px,py,138,18.5,323,1) : arc(x,y,153,21,62,-1)
px=x:py=y : arc(px,py,230,18,320,1)  : arc(px,py,153,26,81,-1)  : arc(x,y,240,19,340.5,1)
px=x:py=y : arc(px,py,175,34,80,-1)  : arc(px,py,240,26,321,1)

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
rem Traitement des rotations
2d_clear : 2d_pen_color 128,0,0
for th = 0 to 360 step 45
  for i=1 to j
    x=cx-mx(i): y=cy-my(i) : rot(th)
    echel(0.7)
    2d_point 240+x,230+y
    if scancode=27 then th=380 : exit_for
  next i
next th

2d_flood 10,10,0,0,0

END
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

rem ==================================
SUB droite(dx,dy,ld,da,ot)
da=da*rad
for i=1 to ld
  dx=dx+1*cos(da) :  dy=dy-1*sin(da)
  j=j+1: mx(j)=dx: my(j)=dy: td(j)= ot
next i
x=dx: y=dy
END_SUB

rem ==================================
SUB arc(ax,ay,ray,al,ad,sr)
n=int(0.5+ray*(al*rad)) : ad=(360-ad)*rad
for i=1 to n
  2d_point ax,ay
  j=j+1:mx(j)=ax:my(j)=ay:td(j)=sr
  ax=ax+1*cos(ad) : ay=ay+1*sin(ad) : ad=ad+sr/ray
next i
j=j+1: mx(j)=ax:my(j)=ay:td(j)=sr : x=ax:y=ay
END_SUB

rem ===================================
SUB rot(th)
dim_local cs,ss
th=(360-th)*rad : cs=cos(th): ss=sin(th)
px=x*cs-y*ss : py=x*ss+y*cs
x=px: y=py
END_SUB

rem ===================================
SUB echel(e)
x=x*e: y=y*e
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: Une autre merveille   Dim 3 Mai 2015 - 1:41

Jicehel ta dernière modification de mon programme ne me plait pas . Pourquoi ? Parce que je
trouve la couleur rouge de la rosace trop agressive, à croire qu'un taureau va foncer immanquablement dessus! Désolé!

Si tu veux , mets y une couleur plus douce, verte ou orange par exemple. J'aurais préféré que ce soit multicolore genre couleurs qui ne se rencontrent jamais. Il paraît que c'est un bon exercice maintes fois proposé dans des articles je ne me rappelle plus où.

Merci Jicehel ! affraid

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Une autre merveille   Dim 3 Mai 2015 - 12:09

je n'ai pas réussi à faire un truc simple, il faudrait un matheux ... là ce n'est pas mon domaine (Papydall peut être ?)
Bon en attendant, je te mets une version avec un peu de rose et de couleurs différentes mais bon ce n'est pas ce que tu demandais
Code:
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
rem Rosace à entrelacs
rem Une figure inédite tirée d un bouquin de géométrie
rem
rem Auteur:Yves Blacher
rem Date-version: 02/05/2015
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
rem
dim ang,dx,dy,i,k,px,py,th,x,y
dim pi  : pi=atn(1)*4
dim rad : rad=pi/180
dim n : n=794
dim mx(n),my(n),td(n)
dim cx,cy,j : cx=150:cy=300 : j=1

color 0,255,128,128 : caption 0,"ROSACE A ENTRELACS" : 2d_pen_color 255,0,0

mx(j)=cx: my(j)=cy : droite(cx,cy,10,0,0) : arc(x,y,50,17,70,-1) : arc(x,y,100,7.5,345,1)
px=x:py=y : arc(px,py,50,23.5,70,-1) : arc(px,py,50,19,335,1)    : arc(x,y,60,20,56,-1)
px=x:py=y : arc(px,py,50,36,335,1)  : arc(px,py,60,29,73,-1)    : arc(x,y,100,21,345,1)
px=x:py=y : arc(px,py,143,19,82,-1)  : arc(px,py,138,18.5,323,1) : arc(x,y,153,21,62,-1)
px=x:py=y : arc(px,py,230,18,320,1)  : arc(px,py,153,26,81,-1)  : arc(x,y,240,19,340.5,1)
px=x:py=y : arc(px,py,175,34,80,-1)  : arc(px,py,240,26,321,1)

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
rem Traitement des rotations
2d_clear : 2d_pen_color 128,0,0
for th = 0 to 405 step 45
  for i=1 to j
    x=cx-mx(i): y=cy-my(i) : rot(th)
    echel(0.7)
    2d_point 240+x,230+y
    if scancode=27 then th=380 : exit_for
  next i
  for i = 0 to 12
    x=i*12 + 15 : y = 0 : rot(th)
    2d_flood 240 + x, 230 - y , (i*12+64) , i*5, i*5
    2d_flood 240 - x, 230 + y , (i*12+64) , i*5, i*5
  next i
next th

2d_flood 10,10,0,0,0

END
rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

rem ==================================
SUB droite(dx,dy,ld,da,ot)
da=da*rad
for i=1 to ld
  dx=dx+1*cos(da) :  dy=dy-1*sin(da)
  j=j+1: mx(j)=dx: my(j)=dy: td(j)= ot
next i
x=dx: y=dy
END_SUB

rem ==================================
SUB arc(ax,ay,ray,al,ad,sr)
n=int(0.5+ray*(al*rad)) : ad=(360-ad)*rad
for i=1 to n
  2d_point ax,ay
  j=j+1:mx(j)=ax:my(j)=ay:td(j)=sr
  ax=ax+1*cos(ad) : ay=ay+1*sin(ad) : ad=ad+sr/ray
next i
j=j+1: mx(j)=ax:my(j)=ay:td(j)=sr : x=ax:y=ay
END_SUB

rem ===================================
SUB rot(th)
dim_local cs,ss
th=(360-th)*rad : cs=cos(th): ss=sin(th)
px=x*cs-y*ss : py=x*ss+y*cs
x=px: y=py
END_SUB

rem ===================================
SUB echel(e)
x=x*e: y=y*e
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Une autre merveille   

Revenir en haut Aller en bas
 
Une autre merveille
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Un autre mystère
» Comment faire un lien vers une autre page du site ?
» mettre à l'heure d'un autre pays
» Comment faire un lien vers un autre site?
» [RESOLU] Fermer une fenêtre avant d'ouvrir une autre

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: