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 - nouvelles versions
par Klaus Aujourd'hui à 23:33

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

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

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

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 | 
 

 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 : 8002
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 : 5865
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 : 5613
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 :: Les inutilitaires-
Sauter vers: