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
» Version instantanée V 0.9.28i8 possédant l'objet SYNEDIT
par Laurent (Minibug) Aujourd'hui à 14:42

» KGF_dll - nouvelles versions
par Yannick Aujourd'hui à 13:17

» @Klaus
par Yannick Aujourd'hui à 13:06

» Compilateur FBPano
par jean_debord Aujourd'hui à 11:47

» Form [formulaires annexes]
par Jean Claude Aujourd'hui à 1:39

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Jeu 25 Mai 2017 - 22:50

» KG.dll - nouveautés en cours de préparation
par Klaus Jeu 25 Mai 2017 - 22:48

» Outils couleurs
par Yannick Jeu 25 Mai 2017 - 19:22

» bug number_events : toujours égal à 0
par silverman Mer 24 Mai 2017 - 15:36

» bug ON_MOVE N,L : actif que sur form 0
par silverman Mer 24 Mai 2017 - 15:30

» Testez vos connaissances
par Yannick Mar 23 Mai 2017 - 13:37

» Castle game Engine
par Jicehel Lun 22 Mai 2017 - 12:05

» Pb pour matheux
par Yannick Dim 21 Mai 2017 - 20:47

» Othello
par Laurent (Minibug) Dim 21 Mai 2017 - 11:04

» Problème au lancement de Panoramic.
par Marc37 Dim 21 Mai 2017 - 10:10

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2017
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Mea culpa

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

avatar

Nombre de messages : 192
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 : 5834
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 : 5332
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 : 4842
Age : 63
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 : 23
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 : 5872
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 : 5332
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: