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
» Texte en gif animé
par JL35 Hier à 18:49

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

» Problème avec la 3D.
par Jack Jeu 14 Sep 2017 - 18:06

» Test de la 3D.
par mindstorm Mer 13 Sep 2017 - 19:45

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Mar 12 Sep 2017 - 21:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
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 : 78
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 : 5854
Age : 45
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 : 49
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 : 5531
Age : 67
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 : 5015
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 : 5947
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 : 5531
Age : 67
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 : 49
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 :: Présentation et bavardage-
Sauter vers: