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
» Biomorphe de Pickover
par silverman Aujourd'hui à 13:34

» Virus/Antivirus
par silverman Aujourd'hui à 12:07

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Dim 23 Sep 2018 - 22:14

» Planétarium virtuel.
par Pedro Alvarez Dim 23 Sep 2018 - 19:50

» Calculatrice
par papydall Ven 21 Sep 2018 - 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Ven 21 Sep 2018 - 21:32

» Demande pour Jack concernant PanExpress
par Minibug Ven 21 Sep 2018 - 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 un fil à la patte

Aller en bas 
AuteurMessage
sergeauze

avatar

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

MessageSujet: un fil à la patte   Ven 14 Mai 2010 - 15:41

j'ai fais bon usage du code mais je ne parviens pas à me debarasser de l'element parasite qui gene un peu lorqu'on veut jouer sur la translation
ou le rotation de la figure
Code:
dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,h

rem coordonnées du centre
x0=250
Y0=200

rem rayon
r=100

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 h= 1 to 20

For j% = 0 To n%+1
    Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
    Py2 = r*Sin(a + 2*Pi*j%/n%) + y0
    2D_poly_to Px, Py
    Px = Px2
    Py = Py2
Next j%
wait 500:cls
a=a+1
next h
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
JL35



Nombre de messages : 6329
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 18:08

Je n'ai pas approfondi pourquoi, mais c'est ton polygone qui est mal dessiné dès h = 2
Mets
For h = 1 to 2
et rajoute
MESSAGE ""
après le Next j%, pour voir

J'ai un peu remanié ton programme:
Code:
dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h
Pi = 4*ATN(1)

rem coordonnées du centre
x0=250
Y0=200

rem rayon
r=100

rem nombre de côtés
n%=5
a1 = 2*Pi/n%: ' angle de rotation de chaque côté

rem angle de début
a0=10

for h = 1 to 20
    Px = r * Cos(a0) + x0
    Py = r * Sin(a0) + y0
    2D_poly_from Px,Py
    a = a0
    For j% = 1 To n%
        a = a + a1
        Px = r*Cos(a) + x0
        Py = r*Sin(a) + y0
        2D_poly_to Px, Py
    Next j%
    wait 300: cls
    a0 = a0 + 1
next h
END

A noter, le Pi = 4*ATN(1), bien pratique.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

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

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 19:43

Merci JL35 pour tes lumieres.
Le code est derive de celui que m'a fourni Jack .
Ton amelioration fonctionne tres bien en translation et en rotation.
Mais on en veut toujours plus.
Du polygone on arrive au cercle,puis a une hellipse.
Et je retrouve mon fil a la patte:
[code]
dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w,p
Pi = 4*ATN(1)
p=1
width 0,2000
rem coordonnées du centre
x0=250
Y0=200

rem rayon
r=200

rem nombre de côtés
n%=55
a1 = 2*Pi/n%: ' angle de rotation de chaque côté

rem angle de début
a0=10
for w=1 to 10
for h = 1 to 2
Px = r * Cos(a0) + x0
Py = r * Sin(a0) + y0
2D_poly_from Px,Py
a = a0
For j% = 1 To n%
a = a + a1
Px = r*Cos(a) + x0
Py = r/p*Sin(a) + y0
2D_poly_to Px, Py
Next j%
wait 300:cls
a0 = a0 + 1
next h

p=p+pi/6
next w
END
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
JL35



Nombre de messages : 6329
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 20:54

Ma trigo est bien loin... je te laisse chercher un peu pour le moment...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

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

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 22:14

Je viens de trouver par hazard.
Jai bien ete aide il faut le dire
Code:

dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w
Pi = 4*ATN(1)
w=1
rem coordonnées du centre
x0=750
Y0=500
width 0,1500
height 0,1000
rem rayon
r=500

rem nombre de côtés
n%=80
a1 =( 2*Pi/n%)/w: ' angle de rotation de chaque côté

rem angle de début
a0=1

for h = 1 to 120
    Px = r * Cos(a0) + x0
    Py = r/w * Sin(a0) + y0
    2D_poly_from px,py
    a = a0
    For j% = 0 To n%
        a = a + a1
        Px = r*Cos(a) + x0
        Py = r/w*Sin(a) + y0
        2D_poly_to Px, Py
    Next j%
    wait 100
    cls
    a0 = a0 + 1
    w=w+0.1
next h
END
maintenant je vais pouvoir creer des objets et les animer.!!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
JL35



Nombre de messages : 6329
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 22:23

C'est quand même plus joli comme ça !
Si tu enlèves le cls c'est joli aussi.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: un fil à la patte   

Revenir en haut Aller en bas
 
un fil à la patte
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Quand Malia dépose sa patte
» Zaza's Art ? L'artiste à la patte de Loup !
» Patte de loup

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: