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
» Simuler l’appui de n’importe quelle touche.
par papydall Hier à 23:54

» Le Forum est en vacances.
par JL35 Hier à 21:20

» Une autre façon de terminer une application.
par JL35 Mar 22 Aoû 2017 - 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

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