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
» Panoramic et ses curiosités
par Klaus Aujourd'hui à 2:20

» Synedit Parameters
par Klaus Aujourd'hui à 1:33

» Utilitaire de suppression de fichiers
par Yannick Hier à 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» Concours de Morpions
par jjn4 Jeu 22 Juin 2017 - 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
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 : 77
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 : 2344
Age : 50
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 : 5838
Age : 44
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 : 5384
Age : 66
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/ En ligne
Parpaiun

avatar

Nombre de messages : 192
Age : 77
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 : 5838
Age : 44
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
» Pouvoir gerer n'importe quelles pentes ou courbes etc...
» saisie de coordonnées pour terrain en 3d

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 :: Vos sources, vos utilitaires à partager-
Sauter vers: