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
» I Love You
par JL35 Aujourd'hui à 16:25

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

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 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

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

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 | 
 

 Dessinez-moi un polygone

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Dessinez-moi un polygone   Mer 21 Avr 2010 - 0:24

Dans Panoramic on peut dessiner des figures de base :
Le point, la ligne, le carre, le cercle.
On peut même les colorer.
Je me dis pourquoi aussi le polygone régulier ?
Dessiner un polygone a n cotes ?....pas facile à programmer pour moi.
Et en plus, le colorer !
Et le faire pivoter
Ca existe ailleurs mais je veux le voir se faire avec Panoramic.
J’ai pu réaliser un hexagone, puis un octogone.
Et là, je bloque.....
Je retourne a mes notions de geometrie et trigo
Qui sait?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Jack
Admin
avatar

Nombre de messages : 1764
Date d'inscription : 28/05/2007

MessageSujet: Re: Dessinez-moi un polygone   Jeu 22 Avr 2010 - 10:27

Citation :
Dessiner un polygone a n cotes ?....pas facile à programmer pour moi.

Je crois que cette question a déjà été posée sur le forum.
Voila l'exemple de construction d'un polygone à 5 côtés (pentagone).

Comme tout est paramétré, tu peux l'adapter à ta convenance (nombre de côtés en changeant n, rotation en jouant avec a, etc).

Tu peux aussi améliorer sa vitesse en mettant 2*Pi*j%/n% dans une variable, ce qui fait que ce calcul ne s'effectuera qu'une seule fois dans la boucle au lieu de deux fois, etc, etc.

Tu peux aussi reprendre (Px,Py) comme dernier point, la boucle sera alors jusque J%-1, cela permettra d'avoir un polygone réellement fermé pour le colorer de l'intérieur sans aucune bavure (il y a des tas d'algorithmes pour cela).

Code:
dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a

rem coordonnées du centre
x0=100
Y0=100

rem rayon
r=50

rem nombre de côtés
n%=5

rem angle de début
a=10

Pi = 3.1415926535898

Px = r * Cos(a) + x0
Py = r * Sin(a) + y0

2D_poly_from Px,Py

For j% = 1 To n%
    Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
    Py2 = r*Sin(a + 2*Pi*j%/n%) + y0
    2D_poly_to Px2, Py2
    Px = Px2
    Py = Py2
Next j%

En attendant une commande 2D_FILL X,Y qui remplirait une surface en partant du "germe" (X,Y) avec la couleur de remplissage définie par 2D_FILL_COLOR R,G,B (cette commande existe déja), voici un algorithme simple qui permet de remplir une surface par écoulement.

On commence par écrire un sous-programme de label floodfill:.
A partir du germe (x, y) supposé situé dans la surface à colorier, on prend son voisin de gauche (x - 1,y) et à partir de là on trace la ligne horizontale jusqu’à ce qu’on atteigne la bordure, le dernier point colorié étant noté (xg, y). Puis on fait de même vers la droite, à partir du point (x + 1, y) jusqu’au point touchant la frontière, noté (xd, y). Puis pour chaque point de cette ligne horizontale , entre xg et xd pour les abscisses, on rappelle la fonction floodfill (GOSUB FLOODFILL) sur son voisin supérieur et son voisin inférieur.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.free-boards.net
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: Dessinez-moi un polygone   Lun 10 Mai 2010 - 1:00

Merci à Jack pour sa reponse .De retour d'un voyage sur Madagascar ,je me remets en ligne seulement maintenant.
Je vais utiliser son code .Je vois en le lisant que je ne serait pas parvenu à ce resultat et que je ne faisais que compliquer les choses. La solution parait évidente quand on a l'a sous les yeux !.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Contenu sponsorisé




MessageSujet: Re: Dessinez-moi un polygone   

Revenir en haut Aller en bas
 
Dessinez-moi un polygone
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» outil polygone pas disponible
» [Dessinez l'avatar de la personne du dessus]
» dessiner une chouette courbe colorée
» polygone invisible dans que je joue l'animation [ Résolu ]
» Démonstration de Draw_polygone

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: