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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 4:52

» KGF_dll - nouvelles versions
par Klaus Hier à 23:05

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 un fil à la patte

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: un fil à la patte   Ven 14 Mai 2010 - 16: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 : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 19: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 : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 20: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 : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 21: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 : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 23: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 : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: un fil à la patte   Ven 14 Mai 2010 - 23: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
Voir le sujet précédent Voir le sujet suivant 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: