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
» Problème de math
par papydall Aujourd'hui à 1:53

» A propos des attributs de fichier
par papydall Hier à 14:33

» Problème de math
par Marc37 Sam 21 Oct 2017 - 23:04

» I Love You
par papydall Sam 21 Oct 2017 - 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Sam 21 Oct 2017 - 17:06

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

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 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

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 | 
 

 Un TRISKELL en courbes !

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 TRISKELL en courbes !   Sam 16 Mai 2015 - 17:04

Et voilà le travail, chers panoramiciens ! Faites ce que vous voulez pour les couleurs, les enjolivures et autres décorations.

Code:
REM ============================================================
REM      Auteur: Parpaiun
REM      Date-version: 16/05/2015
REM ============================================================
dim fact,hp,hpp,p$,rad,wp,wpp,x,y
rad=(atn(1)*4)/180
caption 0,"TRISKELL EN COURBES"
REM ============================================================
REM            Paramètres
fact=3  :' Facteur de réduction de l'image
wpp = 2800 : hpp = 2800
wp = wpp/fact : hp = hpp / fact
width 0,wp  : height 0,hp
2d_pen_width 3
REM ============================================================
REM            Bordures
2d_circle 460,450,420
2d_circle 460,450,400
REM ============================================================
REM            Tracé des courbes
x=500 : y=210
arc(x,y,42,247,245,1)
arc(x,y,103,0,180,1)
arc(x,y,144,180,180,1)
arc(x,y,187,0,150,1)
arc(x,y,123,208,34,-1)
arc(x,y,140,238,90,-1)
arc(x,y,142,326,95,-1)
arc(x,y,101,58,184,-1)
arc(x,y,60,240,139,-1)
'
arc(x,y,42,130,245,1)
arc(x,y,103,241,180,1)
arc(x,y,145,59,179,1)
arc(x,y,186,240,150,1)
arc(x,y,145,89,210,-1)
arc(x,y,102,300,180,-1)
arc(x,y,61,123,133,-1)
arc(x,y,41,9,248,1)
arc(x,y,101,121,182,1)
arc(x,y,144,301,182.5,1)
arc(x,y,185,120,150.5,1)

arc(x,y,147,330,150,-1)
arc(x,y,147,122,58,-1)
arc(x,y,103,179.5,180,-1)
arc(x,y,61,0,140,-1)

END

REM ===========================================================
SUB arc(ax,ay,ar,ad,al,at)
dim_local mx,my,n,th
ad=(360-ad)*rad
n=int(0.5 + ar *(al*rad))
for th = 1 to n
if th>1 then 2d_line mx,my,ax,ay
mx=ax:my=ay
ax=ax+cos(ad)
ay=ay+sin(ad)
ad=ad+at/ar
if scancode=27 then END
next th
x=ax:y=ay
END_SUB



N'oubliez pas l'apéro pour ce soir ! de Parpaiun lol! Laughing lol! Laughing lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Un TRISKELL en courbes !   Sam 16 Mai 2015 - 17:56

Bravo pour ce code parfaitement maîtrisé.

Pour la couleur, fais leurs confiance Parpaiun. Wink
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: Un TRISKELL en courbes !   Sam 16 Mai 2015 - 18:06

Magnifique, je t'ofre un verre ce soir.
Pour la colorisation, j'ai fais au plus simple:
Code:
REM ============================================================
REM      Auteur: Parpaiun
REM      Date-version: 16/05/2015
REM ============================================================
dim rad : rad=(atn(1)*4)/180
dim x,y : x=500 : y=190
caption 0,"TRISKELL EN COURBES"
width 0,920  : height 0,900
2d_pen_width 3 : 2d_fill_color 180,100,100 : 2d_circle 460,430,429
2d_fill_color 100,100,180 : 2d_circle 460,430,399
arc(x,y,42,247,245,1) : arc(x,y,103,0,180,1)  : arc(x,y,144,180,180,1)
arc(x,y,187,0,150,1)  : arc(x,y,123,208,34,-1) : arc(x,y,140,238,90,-1)
arc(x,y,142,326,95,-1): arc(x,y,101,58,184,-1) : arc(x,y,60,240,139,-1)
arc(x,y,42,130,245,1) : arc(x,y,103,241,180,1) : arc(x,y,145,59,179,1)
arc(x,y,186,240,150,1): arc(x,y,145,89,210,-1) : arc(x,y,102,300,180,-1)
arc(x,y,61,123,133,-1): arc(x,y,41,9,248,1)    : arc(x,y,101,121,182,1)
arc(x,y,144,301,182.5,1) : arc(x,y,185,120,150.5,1) : arc(x,y,147,330,150,-1)
arc(x,y,147,122,58,-1) : arc(x,y,103,179.5,180,-1) : arc(x,y,61,0,140,-1)
2d_flood 430,60, 180,100,100
END

REM ===========================================================
SUB arc(ax,ay,ar,ad,al,at)
dim_local mx,my,n,th
ad=(360-ad)*rad
n=int(0.5 + ar *(al*rad))
for th = 1 to n
  if th>1 then 2d_line mx,my,ax,ay
  mx=ax:my=ay : ax=ax+cos(ad) : 1ay=ay+sin(ad) : ad=ad+at/ar
  if scancode=27 then END
next th
x=ax:y=ay
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Un TRISKELL en courbes !   Sam 16 Mai 2015 - 18:18

Panoramiciens de tous bords, Parpaiun vous invite pour l'apéro ce soir.
Rendez-vous chez Parpaiun à l'heure et à l'adresse indiquées.
Il y aura du PANORAMIC pour tous et un verre pour les autres!

Je remplace momentanément le coloriste officiel du forum.

Code:
REM ============================================================================
REM      Auteur: Parpaiun
REM      Date-version: 16/05/2015
REM ============================================================================
dim fact,hp,hpp,p$,rad,wp,wpp,x,y
rad=(atn(1)*4)/180
caption 0,"TRISKELL EN COURBES"
REM ============================================================================
REM            Paramètres
fact=3  :' Facteur de réduction de l'image
wpp = 2800 : hpp = 2800
wp = wpp/fact : hp = hpp / fact
width 0,wp  : height 0,hp
2d_pen_width 3 : color 0,0,0,0
REM ============================================================================
REM            Bordures
2d_pen_color 255,255,0 : 2d_circle 460,450,420 : 2d_circle 460,450,400
2d_flood 460,450, 0,150,0  : 2d_flood 870,450,0,0,255
REM ============================================================================
REM            Tracé des courbes
x=500 : y=210
arc(x,y,42,247,245,1)
arc(x,y,103,0,180,1)
arc(x,y,144,180,180,1)
arc(x,y,187,0,150,1)
arc(x,y,123,208,34,-1)
arc(x,y,140,238,90,-1)
arc(x,y,142,326,95,-1)
arc(x,y,101,58,184,-1)
arc(x,y,60,240,139,-1)

arc(x,y,42,130,245,1)
arc(x,y,103,241,180,1)
arc(x,y,145,59,179,1)
arc(x,y,186,240,150,1)
arc(x,y,145,89,210,-1)
arc(x,y,102,300,180,-1)
arc(x,y,61,123,133,-1)
arc(x,y,41,9,248,1)
arc(x,y,101,121,182,1)
arc(x,y,144,301,182.5,1)
arc(x,y,185,120,150.5,1)

arc(x,y,147,330,150,-1)
arc(x,y,147,122,58,-1)
arc(x,y,103,179.5,180,-1)
arc(x,y,61,0,140,-1)
CAPTION 0, CAPTION$(0) + "  <CLICK> pour arrêter"
repeat
    2d_flood 460,450,rnd(255),rnd(255),rnd(255) : pause 100
until scancode <> 0

END

REM ============================================================================
SUB arc(ax,ay,ar,ad,al,at)
    dim_local mx,my,n,th
    ad=(360-ad)*rad
    n=int(0.5 + ar *(al*rad))
    for th = 1 to n
        if th>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 th
    x=ax:y=ay
END_SUB
rem ================================ FIN =======================================

EDIT :
Le coloriste est revenu.
Ce n'est pas pour ça que je retire mon oeuvre! 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: Un TRISKELL en courbes !   Sam 16 Mai 2015 - 19:46

A Jicehel le fidèle, tes couleurs sur le Triskell me vont à ravir !

A Papydall, si Obélix voyait tes changements de couleurs, il trouverait ça bizarre mais joli !

Merci à tous et bon apéro (ici on a du "limoncello", c'est italien et ça fleure bon le citron !)

Ils ont des chapeaux ronds
Vive la Bretagne,
Ils ont des chapeaux ronds
Vivent les bretons ! cheers cheers cheers
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: Un TRISKELL en courbes !   Sam 16 Mai 2015 - 19:50

Merci Parpaiun, moi honnetement, je n'accroche pas sur la version de Papydall. Pour moi, c'est trop flashi les coloris...
Après les coups et les douleurs ça se discute et il a proposé quelque chose Wink
Après si tu veux un autre défi Parpaiun (mais bon uniquement pour le challenge car le défi du triskell est réussi), tu peux essayer de faire de ton programme une procédure que l'on appelerait par les coordonnées du centre et avec le rayon et qui calculerait le reste pour dessiner le triskell... Mais bon c'est pour le fun donc si tu as envie de faire autre chose, laisses tomber.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Un TRISKELL en courbes !   

Revenir en haut Aller en bas
 
Un TRISKELL en courbes !
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» différentes courbes de progression des actions
» affichage de l'altitude sur les courbes de niveau
» Cartographie peu précise sur mon Dakota 20
» saisie de coordonnées pour terrain en 3d
» Base camp

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: