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
» Détection connexion internet (résolu)
par JL35 Hier à 13:55

» Le parcours du cavalier sur un échiquier 8 x 8
par pascal10000 Dim 23 Juil 2017 - 13:26

» Casse-tête : Echanger les positions des cavaliers
par papydall Sam 22 Juil 2017 - 19:42

» Compilateur FBPano
par jean_debord Sam 22 Juil 2017 - 10:54

» demande pour recuperer un text speciale
par pascal10000 Ven 21 Juil 2017 - 22:04

» KGF_dll - nouvelles versions
par Klaus Ven 21 Juil 2017 - 14:29

» Amélioration de la commande HINT
par papydall Mer 19 Juil 2017 - 3:30

» TEST SUR SHAPE
par papydall Mer 19 Juil 2017 - 1:17

» Un challenge à relever
par papydall Mar 18 Juil 2017 - 21:25

» Astuce : Indenter plusieurs lignes de code à la fois
par papydall Mar 18 Juil 2017 - 1:32

» Suggestion pour le forum
par papydall Lun 17 Juil 2017 - 20:28

» Truver les handles des onglets de Panoramic Editor
par Klaus Lun 17 Juil 2017 - 18:20

» Synedit_Editor - nouvelles versions
par Klaus Lun 17 Juil 2017 - 13:46

» Détermine si oui ou non un objet est PARENT d'un autre objet
par Klaus Dim 16 Juil 2017 - 11:58

» Une autre façon de terminer une application.
par papydall Dim 16 Juil 2017 - 3:53

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
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 : 5841
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 : 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 : 5458
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 : 4981
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 : 5896
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 : 5458
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 : 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 32 bits :: Présentation et bavardage-
Sauter vers: