Insatiable !

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!

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

@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.

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

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

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+

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

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.

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

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

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

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