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 papydall Aujourd'hui à 2:58

» 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 | 
 

 Insatiable !

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: Insatiable !   Mar 19 Mai 2015 - 4:14

Il est 3 heures dix du matin et je n'ai pas encore gagné de sommeil, ah ouiche !
Comme je suis insatiable, je vous envoie une nouvelle de ma part ...
Code:
REM =======================================================================

REM                      CROIX EN 3D A SIX BRANCHES

REM =======================================================================
REM  Auteur: Parpaiun
REM  Date-version: 29_04_2015
REM =======================================================================
Caption 0,"CROIX EN 3D A 6 BRANCHES"
Init()
Croix(1.5)    :' Valeur d'agrandissement/réduction de la figure
END

REM =======================================================================
SUB Init()
dim cx,cy,h%,i%,j%,n%,pi,rad,x,y
full_space 0
rem cx = 300 : cy = 300
cx = width(0)/2 : cy = height(0)/2-25 :' Coordonnées du centre de l'écran
pi = acos(-1) : rad = pi/180
REM =====================================================================
REM      Données de la figure en valeurs relatives
data 7,0,0,31,-18,31,-269,1,-287,-95,-223,-64,-214,31,-269
data 4,-95,-223,-95,-126,-64,-110,-64,-214
data 3,-65,-110,1,-143,1,0
data 3,-32,-126,-32,-19,1,0
data 7,31,-18,31,-55,90,-89,63,-105,63,-141,118,-106,90,-89
data 7,63,-141,154,-195,246,-140,246,-102,65,0,31,-18,246,-140
data 4,65,0,126,35,126,72,0,0
data 6,126,38,126,5,158,-13,249,41,220,57,126,5
data 4,250,41,250,148,220,165,220,57
data 3,220,165,0,38,0,0
data 6,31,56,31,128,61,112,90,131,31,165,31,128
data 4,90,131,90,239,0,291,0,38
data 4,0,291,-33,274,-33,56,0,38
data 4,-33,56,-95,92,-126,73,0,0
data 6,-95,92,-67,111,-67,148,-159,199,-159,163,-67,111
data 4,-159,199,-253,146,-253,107,-159,163
data 3,-253,107,-32,-19,0,0
data 6,-64,-1,-126,-37,-126,-1,-157,18,-157,-55,-126,-37
data 4,-158,18,-251,-36,-251,-147,-32,-19
data 3,-251,-147,-220,-165,-32,-55
2d_pen_width 3
END_SUB

REM ======================================================================
SUB Croix(e)
for i% = 1 to 20
read n%
for j% = 1 to n%
read x : read y
echel(e)
rot(0)
if j% = 1
2d_poly_from cx + x,cy + y
else
2d_poly_to cx + x,cy + y
end_if
next j%
next i%
END_SUB

REM =========================================================================
sub rot(th)
dim_local cs,px,py,ss
th = (360 - th) * 3.14159265 / 180
cs = cos(th): ss = sin(th)
px = x * cs - y * ss
py = x * ss + y * cs
x = px : y = py
END_SUB

sub echel(e)
x = x * e : y = y * e
END_SUB

Comme c'est une image fixe, ne m'envoyez pas de compliments. Méditez un peu sur mon programme qui est court !
Signé: parpaiun lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Insatiable !   Mar 19 Mai 2015 - 5:21

Hello Parpaiun
Parpaiun a écrit:
Comme c'est une image fixe, ne m'envoyez pas de compliments. Méditez un peu sur mon programme qui est court !

Tu ne veux pas de compliments ? Soit  Wink
L’image est fixe ? Elle n’est plus !  Mad
Méditation sur le programme : presque parfait !  king
Pourquoi presque ?
Parce que, personnellement, je préfère mettre les DATAs en dehors de la SUB. cheers

Code:
REM =======================================================================

REM                      CROIX EN 3D A SIX BRANCHES

REM =======================================================================
REM  Auteur: Parpaiun
REM  Date-version: 29_04_2015
REM =======================================================================
Caption 0,"CROIX EN 3D A 6 BRANCHES   <CLICK> pour arrêter"
Init()

repeat
    cls : r = r + 20
    Croix(1,wrap_value(r))    :' Valeur d'agrandissement/réduction de la figure
    pause 200
until scancode <> 0

END

REM =======================================================================
SUB Init()
    dim cx,cy,h%,i%,j%,n%,pi,rad,x,y,r
    full_space 0
    rem cx = 300 : cy = 300
    cx = width(0)/2 : cy = height(0)/2-25 :' Coordonnées du centre de l'écran
    pi = acos(-1) : rad = pi/180
    2d_pen_width 3
END_SUB

REM ======================================================================
SUB Croix(e,r)
    restore
    for i% = 1 to 20
        read n%
        for j% = 1 to n%
            read x : read y
            echel(e)
            rot(r)
            if j% = 1
               2d_poly_from cx + x,cy + y
            else
               2d_poly_to cx + x,cy + y
            end_if
        next j%
    next i%
END_SUB

REM =========================================================================
sub rot(th)
    dim_local cs,px,py,ss
    th = (360 - th) * 3.14159265 / 180
    cs = cos(th): ss = sin(th)
    px = x * cs - y * ss
    py = x * ss + y * cs
    x = px : y = py
END_SUB
rem ===========================================================================
sub echel(e)
    x = x * e : y = y * e
END_SUB
rem ============================================================================
REM =====================================================================
REM      Données de la figure en valeurs relatives
data 7,0,0,31,-18,31,-269,1,-287,-95,-223,-64,-214,31,-269
data 4,-95,-223,-95,-126,-64,-110,-64,-214
data 3,-65,-110,1,-143,1,0
data 3,-32,-126,-32,-19,1,0
data 7,31,-18,31,-55,90,-89,63,-105,63,-141,118,-106,90,-89
data 7,63,-141,154,-195,246,-140,246,-102,65,0,31,-18,246,-140
data 4,65,0,126,35,126,72,0,0
data 6,126,38,126,5,158,-13,249,41,220,57,126,5
data 4,250,41,250,148,220,165,220,57
data 3,220,165,0,38,0,0
data 6,31,56,31,128,61,112,90,131,31,165,31,128
data 4,90,131,90,239,0,291,0,38
data 4,0,291,-33,274,-33,56,0,38
data 4,-33,56,-95,92,-126,73,0,0
data 6,-95,92,-67,111,-67,148,-159,199,-159,163,-67,111
data 4,-159,199,-253,146,-253,107,-159,163
data 3,-253,107,-32,-19,0,0
data 6,-64,-1,-126,-37,-126,-1,-157,18,-157,-55,-126,-37
data 4,-158,18,-251,-36,-251,-147,-32,-19
data 3,-251,-147,-220,-165,-32,-55
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Insatiable !   Mar 19 Mai 2015 - 9:09

@Parpaiun: Très chouette

@Papydall: super l'animation. Par contre tu ne veux pas utiliser la méthode du double buffer pour afficher l'animation et éviter que ça clignote un peu ? Silverman n'a pas accès à son ordinateur en semaine, mais tu peux regarder son sujet, sinon j'ai repris ses procédures dans Animation et ça marche très bien. C'est très simple à utiliser.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Revue du sujet   Mar 19 Mai 2015 - 11:13

Formidable, papydall, tu es tout simplement formidable ! Dès que je ponds un programme, tu ne rates jamais l'occasion de bidouiller dedans pour modifier son apparence, y mettre de l'animation et puis comme d'habitude conclure par un gentil sermon comme "j''aime" ou "j'aime pas " sur certaines lignes de mon programme. Rassures toi, je n'ai rien à te reprocher, seulement te dire "bravo" pour tout ce que tu fais en guise d'amusement et ça m'amuse aussi !
L'animation est bien, genre "tournez manège", quoi qu'un peu pas-à-pas. Là, on dirait que tu aimes bien retourner en enfance, pas vrai ?

Bon, v'là ot' choze, me dis je. Je suis un raté de la tête aux pieds. Je n'ai toujours pas réussi à utiliser "WEBDAV". Pourquoi ? Parce que je n'ai pas eu de réponse à ce que j'avais demandé: "et après ?". Je me suis tout bonnement planté comme l'as de pique sans pouvoir profiter des belles choses à voir comme la vingtaine de fractales. C'est navrant. Si tu as encore un peu de courage pour secouer un cocotier tout près de moi et faire tomber une noix de coco sur mon crâne dépourvu de casque, alors vas-y, histoire de me ressembler à NEWTON en plus fort !

Et puis, j'ai un renseignement à te demander, un de plus: comment enregistrer mes 52 cartes à jouer en technicolor, haute résolution et format réduit "*.jpg" dans panoramic ? Tout ça permettrait aux panoramiciens, toi compris, d'en profiter à coeur joie pour faire de superbes jeux de cartes comme j'aime tant à le faire !! C'est mon super-cadeau de père Noël (déjà!) pour services rendus.

Alors bonne journée, cher papydall et ménage toi bien dans tes bons travaux. de PARPAIUN
sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Insatiable !   Mar 19 Mai 2015 - 13:16

Tu peux zipper tes cartes, tu les converti en jpg d'abord (il y a plein de logiciels qui font ça pour plusieur fichiers d'un coup, tu dois déjà en avoir un) puis tu peux faire un fichier zip (avec 7-zip par exemple) puis tu peux le partager en utilisant un site tel que www.fichier-zip.com ou le mettre sur ton webdav dès que tu maitrisera suite aux explications de Papydall Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Insatiable !   Mar 19 Mai 2015 - 16:16

parpaiun a écrit:
Bon, v'là ot' choze, me dis je. Je suis un raté de la tête aux pieds. Je n'ai toujours pas réussi à utiliser "WEBDAV". Pourquoi ? Parce que je n'ai pas eu de réponse à ce que j'avais demandé: "et après ?".

Et après quoi ?

D'abord, tu n'es pas un raté, mais il y a quelque chose qui ne s'est pas bien déroulée.


Je t’ai répondu ici et avec des copies écrans
Est-ce tu n’arrives toujours pas à t’inscrire sur Mydrive ?


• Clique sur ce lien
• Est-ce que tu obtiens cette page (oui ou non) ?    
clic ici:
 

• Si oui :
• Dans Nom utilisateur, inscris parpaiun
• Dans Adresse e-mail donne TON adresse e-mail (par exemple celle avec laquelle tu t’es inscrit sur ce Forum), quelque chose comme UnTel@quelquechose.fr. C’est à cette adresse qu'un mail d’activation vous sera envoyé.
• Dans Mot de passe inscris TON mot de passe personnelle : quelque chose comme Sesame_Ouvre_Toi
• Dans Confirmation du mot de passe, tu réinscris  exactement le même mot de passe.
• Tu coches J’ai lu les CVG et je les accepte.
• Tu cliques sur inscription
• Si tout se passe correctement, tu obtiens cet écran
clic ici:
 


• Vérifie dans ta boite à lettres : tu dois trouver un mail de confirmation et des informations sur la marche à suivre.


Tu te connectes à ton webdav en indiquant comme Nom d’utilisateur, le nom avec lequel tu t’es inscris (parpaiun) et ton mot de passe.
Tu obtiens cette page

clic ici:
 


La partie gauche est évidement vide  puisque tu n’as rien sur ton webdav.
Tu veux maintenant mettre quelque chose sur ton webdav : Clique sur Transférer puis sur Choisissez un fichier.
Tu choisis ton fichier puis Ouvrir
Tu cliques sur Transférer (le bouton est en dessous de Choisissez un ficher.

clic ici:
 

Ton fichier sera sur ton webdav et tu peux agir sur lui comme tu voudras : le renommer, le déplacer, le supprimer, etc.


Bon j’arrête ici en attendant ton compte-rendu.
Après cette étape, il nous reste à créer le compte invité.
Revois le lien ci-haut.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
RMont



Nombre de messages : 168
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: Insatiable !   Mar 19 Mai 2015 - 18:48


bonjour a tous
@parpaiun
de retour de vacances ,je me penche sur ton code croix 3 D-6 branches.
j'ai besoin d'une grosse ou grande explication concernant les datas pour dessiner cette croix.
je n'ai pas compris.donc j'ai essayé ( pour voir ) de changer le 1er data de la 1er ligne data en 8 ou 9 (au lieu de 7). resultat ,la figure du haut change completement.
j'ai essayé de mettre 17 toujours pour voir et là ,j'obtient un superbe "out of data " dans
for i%= 1 to,20
read n% ------> OUT OF DATA.
je cherche donc a comprendre comment a été fait ce dessin.
je suis donc preneur d'une bonne explication.
merci d'avance
Rmont

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Insatiable !   Mar 19 Mai 2015 - 19:19

Je peux répondre car là, je trouve le code de papiun super clair... Désolé Rmont, je ne suis pas diplomate .... Very Happy

Si tu regarde sa boucle, c'est assez simple.
D'abord, il fait une boucle 20 fois dans laquelle il commence par lire n% qui est le nombre de couples x,y à lire, puis il fait la boucle faisant varier j% de 1 à n% dans laquelle il lit les n% couples x,y
Tu vois, c'est simple.

Mieux vaut analyser un peu le code avant de modifier les data. En modifiant la première valeur avec 8 ou 9, il décale toute les data puisqu'il lit 8 ou 9 couples x,y alors qu'il n'y en a que 7 de prévus. Après il lit une valeur x comme étant le nombre de couples x,y à lire. C'est donc du grand n'importe quoi. Si tu mets 17, pareil, il lit d'un coup 17 couples x,y et lit le x suivant comme étant le nombre de data à lire. Comme il fait ça 20 fois, il atteint rapidement la fin des datas alors qu'il doit encore en lire, d'où le message OUT OF DATA totallement logique.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 168
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: Insatiable !   Mer 20 Mai 2015 - 19:31


bonjour a tous.
j'ai oublié de me déconnecter hier .
@jicehel
merci pour ton explication qui est simple pour toi mais plus difficile pour moi.
j'ai bien vu cette boucle ni%.
je suppose que ces datas sont donnés à partir de cx et cy au début de la sub init().
et pour finir ,je pense que que je vais en rester là.
merci pour ta réponse
Rmont

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Parpaiun

avatar

Nombre de messages : 192
Age : 78
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Revue du sujet   Ven 22 Mai 2015 - 10:20

Bonjour RMont, je suis l'auteur du programme "Croix 3D 6 branches". J'ai saisi ton embarras à comprendre la signification des DATA. C'est pourtant bien simple.

Chaque ligne de DATA commence par un chiffre n. C'est le nombre de coordonnées 2D définies par x,y et qui caractérisent un point de la figure. On appelle données relatives les coordonnées qui ont pour base le point 0,0 représentant le centre absolu de la figure, en l'occurrence le point où convergent toutes les droites. Ce point 0,0 est localisé sur l'écran par les valeurs cx et cy.

Au dessus du point (0,0), toutes les valeurs en y sont négatives.
Du point (0,0), toutes les valeurs en x à gauche sont négatives, à droite elles sont positives.
En dessous du point (0,0), toutes les valeurs en y sont positives.

Les valeurs relatives (VR) sont calculées par rapport à (cx,cy) soit
VR = cx (+ ou -) x
VR = cy (+ ou -) y
x et y étant les coordonnées en valeurs absolues sur l'écran.

Comme vous l'avez constaté, toute variation de l'une de ces données en DATA entraîne une déformation de l'image sur l'écran. Donc, ne modifiez rien. Contentez vous de respecter mon programme tel que je l'ai écrit.

Rien ne doit vous empêcher d'étudier à fond les primitives du langage Panoramic pour que vous soyez mieux instruit. Il vous faut du temps pour le faire, bien entendu.

Je reste à votre disposition pour tout renseignement complémentaire. de PARPAIUN study

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 168
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: Insatiable !   Ven 22 Mai 2015 - 20:15


bonjour a tous.
@parpaiun.
merci parpaiun pour cette explication.
toujours pour comprendre , dans la sub croix() sur la ligne read n% ,j'ai rajouté print n%. et là je constate que se sont les premiers data de chaque ligne qui sont lus. je suis donc surpris.
je pensais qu'ils étaient lus ligne par ligne les uns après les autres.
quelle est l'astuce ?
je continue a plancher sur le sujet
merci encore .je me déconnecte dans peu de temps
rmont



Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Insatiable !   Ven 22 Mai 2015 - 20:38

C'est ce que j'ai essayé maladroitement sans doute d'expliquer, Parpaiun lit d'abord une première valeur par le read n qui indique combien de couples x,y il y aura à lire sur la ligne grace au for i=1 to n puis read x et read y.
Quand la ligne est fini, on lit le nouveau n qui se trouve en début de ligne, etc ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Insatiable !   

Revenir en haut Aller en bas
 
Insatiable !
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Insatiable !

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