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 | 
 

 Un triangle celtique

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: Un triangle celtique   Jeu 14 Mai 2015 - 18:09

Oyez, oyez les panoramiciens ! Voici une autre figure de mon cru ! Dès l'apparition de la première figure, attendez un petit moment pour voir apparaître la seconde ! Et colorisez librement selon votre fantaisie !

Code:
caption 0,"TRIANGLE CELTIQUE"
REM
REM  Auteur: Parpaiun
REM  Date-version: 14/05/2015
'
height 0,570 : width 0,600
 dim cx,cy,px,py,rad,u,x,y
 u=2000
 dim x1(u),y1(u),x2(u),y2(u)
 rad=(atn(1)*4)/180
 cx=289: cy=260
 2d_circle cx,cy,228
 px=290: py=410
 arcdouble(190,350,180,20)
 '
 px=420: py=185
 arcdouble(70,230,180,20)
 '
 px=160:py=185
 arcdouble(310,110,180,20)
 '
 wait 3000
 2d_clear
 rem ========================================================================
 rem Tracé d arcs simples
 2d_circle cx,cy,248
 2d_circle cx,cy,228
 2d_pen_width 2
 arcsimple(93,374,200,341,87,-1)
 arcsimple(356,221,200,80,60,-1)
 arcsimple(289,33,200,221,87,-1)
 arcsimple(289,337,200,320,61,-1)
 arcsimple(487,372,200,101,88,-1)
 arcsimple(224,221,200,199,61,-1)
' ===============================
 arcsimple(143,345,167,356,69,-1)
 arcsimple(317,212,167,81,44,-1)
 arcsimple(289,90,167,236,69,-1)
 arcsimple(317,308,167,321,44,-1)
 arcsimple(437,345,164,115,70,-1)
 arcsimple(234,260,167,201,44,-1)

END

SUB arcdouble(ad,aa,r,dek)
dim_local cs,i,ss,z
 if ad>aa then aa=aa+360
  for i=ad to aa
  cs=cos(i*rad): ss=sin(i*rad)
  z=z+1
  x1(z)= px +(r - dek) * cs
  y1(z)= py +(r - dek) * ss
  x2(z)= px +(r + dek) * cs
  y2(z)= py +(r + dek) * ss
  2d_circle x1(z),y1(z),1 : 2d_circle x2(z),y2(z),1
 next i
END_SUB

SUB arcsimple(ax,ay,ar,ad,al,at)
 dim_local i,mx,my,n
 ad=(360-ad)*rad
 n=int(0.5 + ar * (al*rad))
for i = 1 to n
 if i>1 then 2d_line mx,my,ax,ay
 mx=ax : my=ay
 ax = ax + cos(ad) : ay = ay + sin(ad)
 ad = ad + at / ar
next i

END_SUB

Vive la Bretagne, vivent les bretons ! de Parpaiun lol! lol! lol!
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   Jeu 14 Mai 2015 - 18:48

Très bien, c' est joli !

Si tu arrives à faire un triskell, là tu m' épates... Twisted Evil
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: Un triangle celtique   Jeu 14 Mai 2015 - 19:30

Superbe. Pas de critique a faire sur le programme.
Je mets en dessous la version que je préfère parmis les 2 que tu proposes dans le programme avec sa colorisation (simple remplissage car le cercle celtique est déjà assez beau comme ça  Wink )
Code:
rem ==================================
rem  TRIANGLE CELTIQUE par Parpaiun
rem  Date-version: 14/05/2015
rem ==================================

 dim rad   : rad=(atn(1)*4)/180
 dim cx,cy : cx=289: cy=260
 caption 0,"TRIANGLE CELTIQUE" : height 0,570 : width 0,600 :  2d_pen_width 2
 2d_circle cx,cy,248 :  2d_circle cx,cy,228
 arcsimple(93,374,200,341,87,-1) :  arcsimple(356,221,200,80,60,-1)
 arcsimple(289,33,200,221,87,-1) :  arcsimple(289,337,200,320,61,-1)
 arcsimple(487,372,200,101,88,-1):  arcsimple(224,221,200,199,61,-1)
 arcsimple(143,345,167,356,69,-1) : arcsimple(317,212,167,81,44,-1)
 arcsimple(289,90,167,236,69,-1)  : arcsimple(317,308,167,321,44,-1)
 arcsimple(437,345,164,115,70,-1) : arcsimple(234,260,167,201,44,-1)
 2d_flood cx - 238,cy, 230,50,50    : 2d_flood cx,cy - 218, 230,50,50
 2d_flood cx -148,cy + 48,230,50,50 : 2d_flood cx + 148,cy + 48,230,50,50
 2d_flood cx -218,cy, 50,180,50     : 2d_flood cx +218,cy, 50,180,50
 2d_flood cx,cy - 148, 50,180,50    : 2d_flood cx,cy + 148, 50,180,50
 2d_flood cx -78,cy + 28,50,180,50  : 2d_flood cx + 78,cy + 28,50,180,50
 2d_flood cx,cy, 50,180,50
END

SUB arcsimple(ax,ay,ar,ad,al,at)
 dim_local i,mx,my,n
 ad=(360-ad)*rad
 n=int(0.5 + ar * (al*rad))
 for i = 1 to n
   if i>1 then 2d_line mx,my,ax,ay
   mx=ax : my=ay
   ax = ax + cos(ad) : ay = ay + sin(ad)
   ad = ad + at / ar
 next i
END_SUB
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: Un triangle celtique   Jeu 14 Mai 2015 - 20:21

C'est beau !
C'est booooooo!
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: Un triangle celtique   Jeu 14 Mai 2015 - 22:50

Oah dis donc Jicehel, le rouge vif que tu as mis sur mon triangle celtique  est vraiment très agressif ! Aurais tu mangé trop de fraises tardives, de rougets de mer ou de coquelicots précoces ? Et ce vert, oh ce vert que je trouve un peu trop vif pour être celui plus tendre des champs ! Tu oublies les fleurs : pâquerettes, boutons d'or et violettes sur ce joli tinton vert ! Ben voyons, je suis un poète qui vénère la nature !     Bravo quand même pour l'arrangement très bien fait de mon programme.

Et toi Papydall, on dirait que tu as fondu devant tant de beauté ! Et ce n'est pas fini !
J'ai d'autres cordes à mon arc, non pas pour tirer des flèches mais pour jouer de la trompette marine (connais tu ?) en attendant de voir d'autres merveilles tirées de mes méninges ! Hé, hé !   Acré bonsouèr de ParpaiuN   cheers  cheers  cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Un triangle celtique   

Revenir en haut Aller en bas
 
Un triangle celtique
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Gestion d'un triangle de retournement
» Remplacement du triangle
» remplacement triangle de suspensions sur laguna 2
» [résolu]prise usb
» Présentation

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: