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
» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Aujourd'hui à 16:52

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 14:16

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» mise a jour calculatrice
par papydall Aujourd'hui à 2:01

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
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 : 5860
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 : 5594
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 : 5062
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 : 5992
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 : 5594
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: