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
» Video Control Center
par Yannick Aujourd'hui à 3:49

» Désamorcer la bombe
par Marc37 Aujourd'hui à 2:49

» Bataille terrestre (version child)
par papydall Hier à 21:56

» KGF_dll - nouvelles versions
par Jicehel Ven 24 Mar 2017 - 23:19

» Ras la casquette...
par Yannick Ven 24 Mar 2017 - 18:48

» Problème avec 'instr_last'.
par Yannick Ven 24 Mar 2017 - 18:42

» Jeu de l'oie stratégique
par jjn4 Jeu 23 Mar 2017 - 20:46

» Suite aux dernières commandes
par Yannick Jeu 23 Mar 2017 - 16:00

» Aide (imprimable) sur PANORAMIC avec exemples
par papydall Jeu 23 Mar 2017 - 14:28

» Jeu de l'OIE électronique
par jjn4 Mer 22 Mar 2017 - 18:26

» Jeu de l'oie interplanétaire
par jean_debord Mar 21 Mar 2017 - 11:11

» Problème de création d'exécutable.
par Yannick Mar 21 Mar 2017 - 5:21

» Un bug avec USER_EVENT ?
par Klaus Lun 20 Mar 2017 - 17:41

» Bienvenue Cherrie merrie !
par Yannick Lun 20 Mar 2017 - 3:55

» Bienvenue à v.rousseau
par Yannick Dim 19 Mar 2017 - 16:26

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier

Partagez | 
 

 Mea culpa

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

avatar

Nombre de messages : 191
Age : 77
Localisation : HERAULT
Date d'inscription : 15/04/2015

MessageSujet: Mea culpa   Sam 25 Avr 2015 - 17:54

Je vous prie de bien vouloir m'excuser de ne pas m'être présenté depuis trois jours:  je me surnomme Parpaiun, un mot amusant qui veut dire papillon en patois. Je suis un sétori natif de Paname (je vous laisse deviner à travers cette petite énigme). Je suis programmeur software depuis plus de cinquante ans, spécialisé en Basic après bien d'autres langages de bureau et je le fais pour mes loisirs en bon retraité.

Hourra pour le langage PANORAMIC ! C'est un des plus puissants langages actuels après les regrettés GFA Basic et Amos Basic dont vous en savez peut-être quelque chose.

Tout frais entré dans le club, j'ai beaucoup à apprendre parmi les primitives de Panoramic avant de vous bombarder (pas trop, ma foi !) de programmes de mon cru.

Ma préférence va aux figures graphiques 2D et 3D de géométrie et de trigonométrie.  Je les construis avec des formules mathématiques élémentaires pas compliquées du tout. Pour ça, j'ai fait pas mal de petits programmes dont les résultats vont peut-être vous épater.

Je suis content de faire partie de votre club, notre club. Alors salut à tous les amis panoramiciens !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5793
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Mea culpa   Sam 25 Avr 2015 - 18:53

Merci pour ta présentation Papaium. On a eu une vague de dessins fractales et à base de trigonométire.
Colorés parfois selon des formules simples, parfois avec des formules plus complexes, cela donne parfois des images absolument magnifiques et on peu voir pousser des plantes à partir d'une simple formule de mathématique, dessiner un coeur et bien d'autres images encore plus jolies mais plus complexes à décrire en quelques mots.
Bonne découvete à toi, bien venu au club et quand tu sera plus à l'aise, n'hésite pas à utiliser ta culture en français pour nous décrire tes programmes 2D ou 3D dans des articles pour le mag. Nous ne sommes pas tous très matheu. Moi, ça fait pret de 20 ans que je ne fais plus un usage avancé des maths, donc quelques mots dans un article, quelques illustrations si besoin sont toujours les bienvenues Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Nardo26

avatar

Nombre de messages : 2294
Age : 48
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Mea culpa   Sam 25 Avr 2015 - 19:09

Bienvenu Parpaiun sur le forum ! cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
papydall

avatar

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

MessageSujet: Re: Mea culpa   Sam 25 Avr 2015 - 19:34

Bon, un petit cadeau pour ceux qui aiment et ceux qui n’aiment pas les maths et aussi pour les autres.

Code:

rem ============================================================================
'          Formules de passage de la 3D vers l'écran
'                       Par Papydall
rem ============================================================================
rem   Xecran = Xorogine + A * (x - y)
rem   Yecran = yorigine - B * (x + y) - C * z
rem   Avec :
rem   A = zoom / sqr(2)
rem   B = zoom * sin(alfa) / sqr(2)
rem   C = zoom * cos(alpha)
rem ============================================================================
'          Equation du plan de projection
rem ============================================================================
rem   x + y - c1*z avec c1 = sqr(2) * tan(alfa)
rem ============================================================================

dim alfa,a,b,c,c1,pi,zoom,phi,lambda,xo,yo,x,y,z,xe,ye,r
pi = acos(-1) : alfa = pi/4 : c1 = sqr(2)*tan(alfa)
xo = 320 : yo = 240 : r = 100 : zoom = 2
a = zoom/sqr(2) : b = zoom * sin(alfa)/sqr(2) : c = zoom * cos(alfa)
color 0,0,0,0 : display
caption 0,"Veuillez patienter .... <CLICK> pour arrêter"
for phi = 0 to 2*pi step pi/25  : ' méridiens
    for lambda = 0-pi/2 to pi/2 step 0.001
' Equation paramétrique de la sphère
        x = r * cos(lambda) * cos(phi)  : ' Coordonnées ...
        y = r * cos(lambda) * sin(phi)  : ' ... sphériques ...
        z = r * sin(lambda)             : ' .... de la sphère
        xe = xo + a*(x-y) : ye = yo - b*(x+y) - c*z : ' Coordonnées du point à l'écran
        if x+y-c1*z < 0   : ' Le point est-il visible ?
           2d_pen_color 255,255,0  : ' Oui ---> le tracé sera en jaune
        else
           2d_pen_color 255,0,0 : ' Non, le point est caché ---> le tracé sera en rouge
        end_if
        2d_point xe,ye :' Afficher le point à l'écran
        if scancode <> 0 then caption 0,"Arrêté par l'utilisateur ... " : end
    next lambda
next phi
caption 0,"Terminé"
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4681
Age : 62
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Mea culpa   Sam 25 Avr 2015 - 19:46

Parpalun a écrit:
Je suis un sétori natif de Paname

Donc, tu es un parisien installé à Set ??????
Si j'ai perdu: oublie moi !
Si j'ai gagné: prépare l'apéro !

En tous cas bienvenu parmi nous.
J'aimerais connaitre les basic que tu as utilisé dans ta carrière, autres que ceux que tu as cités.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
The Gamer

avatar

Nombre de messages : 110
Age : 22
Localisation : Toulouse (31)
Date d'inscription : 11/05/2010

MessageSujet: Re: Mea culpa   Dim 26 Avr 2015 - 12:36

cheers Bienvenue a toi Parpaiun ! cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://pierrehardy.pagesperso-orange.fr/
JL35



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

MessageSujet: Re: Mea culpa   Dim 26 Avr 2015 - 14:06

Citation :
Donc, tu es un parisien installé à Set ??????
à Set ou à Reset, ou à Sept, ou à Cette (ville), ou plutôt à Sète ? scratch

Bienvenue Parpaiun ! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Mea culpa   Dim 26 Avr 2015 - 17:49

Tu es un Sétori, donc d’origine Sète (qui vient du latin cetus : baleine) une commune française située dans le département de l’Hérault.
Tu es natif de Paname qui est le surnom donné familièrement à Paris et sa banlieue.
Paname signifie aussi la ville des élégants à cause du paname qui est un chapeau porté par les élégants.

Bienvenue à toi papillon Parpaium, Sétori élégant de Paname !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Nardo26

avatar

Nombre de messages : 2294
Age : 48
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Mea culpa   Dim 26 Avr 2015 - 17:55

Tu dois connaitre le Lisp, le cobol et le fortran alors ?
... et peut être le plm/80 ? (il m'arrive encore de coder en plm/80 sur des vieilles machines !)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
Contenu sponsorisé




MessageSujet: Re: Mea culpa   

Revenir en haut Aller en bas
 
Mea culpa
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Présentation et bavardage-
Sauter vers: