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
» I Love You
par JL35 Aujourd'hui à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Mondes 3D avec Panoramic

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 13:48

Bonjour à toutes et tous,

Nouvel arrivant sur ce forum, je me réjouis de découvrir ce langage simplifié. J'ai quelques questions à poser vis à vis de mon projet, en terme de faisabilité avec Panoramic. car avant de me lancer dans l'apprentissage du langage, j'ai besoin de savoir où je met les pieds Smile Qu'il me soit permis de m'expliquer.

Depuis 2002, j'ai imaginé un concept d'interface utilisateur ultra-simplifiée pour aider les non-programmeurs (mais je n'ai pas oublié les programmeurs pour autant...) à créer des jeux vidéo en 3D, en simplifiant l'intégralité des opérations techniques et en brisant les barrières habituelles. La finalité se déroulerait un peu comme dans un jeu qui permettrait de créer des jeux... Le but à atteindre serait de toucher un public beaucoup plus large que les développeurs chevronnés et autres studios de développement. Ces derniers disposent déjà d'outils très performants mais néanmoins beaucoup trop complexes pour des débutants non-programmeurs.

Mes questions sont les suivantes : pour la création d'un moteur de jeux 3D (donc de création de mondes 3D jouables) - en terme de faisabilité et de puissance du langage Panoramic, des ressources et autres dépendances, librairies, etc. - ne connaissant encore strictement rien de Panoramic, pouvez-vous m'expliquer si ce type de projet (Éditeur de jeux vidéo 3D avec Moteur de jeux) est réalisable ? Panoramic est-il orienté Objet ? Est-il préférable d'utiliser un moteur de jeux 3D Open-Source et dans ce cas là, Panoramic sera t-il compétent, en terme de compatibilité, avec un moteur Open-Source codé initialement dans un autre langage ?

J'ai bien quelques bases en programmation et j'ai déjà un peu travaillé dans la 3D sans pour autant aller jusqu'à la réalisation d'un tel projet. Mais je suis extrêmement motivé... et ce depuis de nombreuses années.

Voici une de mes réalisations mais je ne l'ai pas mise à jour depuis longtemps car trop occupé à autre chose : SkyCube 3D (application codée avec un RAB Delphi)

Merci pour vos réponses.


Dernière édition par UltraVox le Lun 5 Juin 2017 - 14:48, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 13:54

Bonjour et Bienvenue parmi nous UltraVox !

Je vois que tu es déjà un programmeur 'qualifié' d'après ce que tu dis !

Pour ma part, je ne suis pas spécialiste en 2D-3D mais je pense que certains parmi nous pourront répondre à ta demande.

A bientôt... Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 5 Juin 2017 - 14:33

cheers Bienvenue parmi nous UltraVox !

Le spécialiste de la 3D chez les panoramiciens c' est Bignono.
Le Maitre es DLL via delphi c' est Klaus.
Ce sont eux qui pourront mieux te répondre sur la faisabilité avec Jack alias Dieu
qui est le père du langage Panoramic.

J' ai jeté un oeil sur les captures d' écran de ton travail et ce genre d' outils est possible en Panoramic.
C' est beaucoup de travail mais je suis sûr que c' est possible. Il y a quelque temps, j' avais fait unviewer pour
objet 3D qui utilisait toutes les commandes Panoramic disponibles ( à ce moment là ) pour la 3D.

Je te souhaite de réussir ton projet en Panoramic et si tu as besoin d' aide, n' hésites pas à demander
sur le forum, c' est la boite noire du langage. Ici on vient tous avec nos problèmes et on repart presque
toujours avec une solution. Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 14:34

Bienvenu UltraVox,

Panoramic est-il orienté Objet ? Là je peux répondre OUI.

Pour la question 2D et 3D, c'est plus difficile pour moi de répondre.

Merci pour ta présentation.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 15:30

Je ne veux pas trop intervenir sur ce sujet car il y a en effet des spécialistes qui pourront mieux répondre mais je pense quand il parle d'objet ne l'entend pas dans le sens des objets Panoramic. Un 'objet' Panoramic tout comme un objet dans un langage objet est créé à partir d'un modèle duquel il hérite les comportements et les caractéristiques. Mais dans Panoramic, les objet sont définis. Un utilisateur ne peut pas créer ses propres classes ou ses prototypes en fonction de ses besoins pour définir les comportements et les caractéristiques propres aux choses à cet objet : une personne (avec son état civil), un dossier, un produit, un monstre, un mur, une raquette ou une brique.
Dans Panoramic, on a les objets Button, Form, Alpha avec leur comportement et leurs caractéristiques mais dans un langage objet, on peut définir pour chaque objet que l'on désire ses propres variables (structure), ses propres comportement (fonctions que l'on appelle dans ce cas méthodes si ma mémoire ne me joue pas de tour car ça fait longtemps que je ne pratique plus ces parties théorique)

Bon, je dis ça sous réserve et si j'ai écris des erreurs ou des choses imprécise, je laisse les experts me corriger ou compléter ma réponse.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 16:02

Tout a fait Jicehel !
Panoramic n'est pas un langage orienté objets ! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 17:40

Bienvenue UltraVox dans le monde PANORAMIC !

UltraVox a écrit:
Panoramic est-il orienté Objet ?

Au sens strict de la POO (Programmation Orientée Objet),  Panoramic n’est pas orienté objet.
Il n’est pas un langage à classes (comme Common Lisp, C++, Java, Python, OCaml) ni  à prototypes (comme JavaScript).

Néanmoins, il dispose d’une panoplie de commandes du groupe Dessin (2D_xxx…] et du groupe Objets 3D (3D_xxx…) qui peuvent réaliser plein de choses intéressantes  pour celui qui en maitrise l’usage (je cite Bignono entre autre et j’en oublie …).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 20:00

Merci à tous pour votre accueil et toutes vos réponses. C'est une belle communauté grandissante que vous avez là ! Tout ceci est très intéressant et j'obtiens rapidement des résultats instructifs.

Malheureusement, je vais devoir attendre la parution de l'IDE Panoramic. Sans cela, je vais perdre trop de temps à compiler ou exécuter 36 millions de fois pour simplement... vérifier le résultat visuel de mes interfaces graphiques, auxquelles j'accorde une très très grande importance.

D'ailleurs la plupart du temps en 3D, je commence par créer et agencer l'interface graphique avant d'y intégrer les fonctionnalités (le code pour chaque fonction). Pour moi, c'est une aide visuelle très précieuse qui agit aussi comme une espèce de pense-bête (Cahier des charges visuel des fonctionnalités à implémenter). De plus, je ne vois pas vraiment de raisons valables pour séparer en deux software l'aspect graphique de celui du Source. Les deux me paraissent intimement liées dans la quasi totalité des cas. Mais évidemment, si les choses sont ainsi c'est qu'il y a bien une bonne raison Smile Peu importe. Mais pour être honnête, l'absence d'IDE dessert le projet Panoramic en réduisant tout au code, là où l'IDE nous ferait gagner un temps précieux.

Je suggère une chose ou deux aux développeurs de Panoramic :

- Mettre à jour le site internet de Panoramic pour quelque chose de moins vieux, plus sobre et plus joli, avec si possible des données exactes et précises concernant l'IDE. J'ai en effet perdu une journée entière à le chercher pour finir par tomber - par hasard - sur un Post du forum qui expliquait qu'il n'était plus disponible et qu'une nouvelle version serait prétendument en développement. Si vous le souhaitez, je peux aisément vous aider pour le site web. J'en serais vraiment ravi (je suis doué avec ça...).

- Des exemples complets de codes sources en copier-coller (ou en fichiers à télécharger) pour générer, en un clic, une petite application simple, histoire de visualiser la structure d'un programme en un clin d’œil. C'est le béa-bat. Fournir deux ou trois exemples au téléchargement de l'application ne serait pas une mauvaise idée. Il y a certes beaucoup de documentations et d'exemples, mais je n'ai rien pu observer de "complet" qui soit directement compilable sur le site.

Par ailleurs, je peux aussi vous apporter mon aide pour l'aspect sonore de vos applications/jeux. Je me suis spécialisé il y a longtemps dans le mastering audio. Si cela peut vous aider je suis bénévolement à votre disposition.

Dans l'attente de l'IDE Panoramic.

Amicalement,
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 21:40

Salut UltraVox !

Pour un IDE tu peux télécharger mon programme GPP qui n'est qu'en version Alpha pour le moment.
Je travaille actuellement sur une toute nouvelle version plus stable et plus complète.

Il est sur mon partage en lien en bas de ce message sous le nom de setup_GPP_alpha_0.69.5.rar.
Bon téléchargement et bon test ! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 23:04

Merci beaucoup Laurent. Je suis en train de tester ton appli.

En passant, existe t-il un ensemble de bibliothèques permettant de créer des interfaces graphiques, donc des applications fenêtrées ayant d'autres apparences que celle générée par Panoramic ?

Merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Lun 5 Juin 2017 - 23:38

Citation :
Merci beaucoup Laurent. Je suis en train de tester ton appli.
Ce n'est qu'une version Alpha. Elle contient encore des bugs... Mais elle te permettra de constater la puissance de Panoramic accoler à la dll KGF de Klaus.

Citation :
En passant, existe t-il un ensemble de bibliothèques permettant de créer des interfaces graphiques, donc des applications fenêtrées ayant d'autres apparences que celle générée par Panoramic ?
Non pas à ma connaissance.
Par contre saches que Jack le créateur de Panoramic est à l'écoute et procède à des mise à jour et des ajouts très régulièrement. Donc n'hésites pas à poser des questions sur le forum. Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: RE   Mar 6 Juin 2017 - 2:59

IDE  le plus avancé est surement celui de Laurent : GPP.
Pour le site, y en a qui ont essayé...mais ils s' y sont cassés les dents... albino
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 4:55

Voici deux sites que j'ai réalisé pour aider des collègues :

- Pur Média France, un média collaboratif en cours de dév. : purmedia.fr

- Nous, Peuple Souverain (Association) : nps-ong.org

Ces deux sites, bien que très différents, sont compatibles tablettes, téléphones, etc...

Sincèrement, il me faut 2 jours pour répercuter le contenu actuel du site Panoramic dans une nouvelle mouture. D'ailleurs, je passerai probablement davantage de temps à travailler sur l'esthétique que sur le contenu. Wink

Mettons une semaine à 10 jours, en considérant que les questions liées à l'hébergement et au domaine soient réglées et ne me ralentissent pas.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 5:19

C'est vrai qu'on en a pas mal parlé à une époque pour mettre un coup de jeune et restructurer le site.
Pour ma part et je l'ai déjà exprimé à plusieurs reprise, je pense que c'est plus que nécessaire !

Faire évoluer Panoramic et l'éditeur c'est bien mais avoir un site et un contenu adapté c'est nécessaire aussi pour accueillir de nouveaux membres. Voir même un bon référencement pour être mieux vu dans les moteurs de recherche comme Google et autres. Il existe des solutions gratuites qui peuvent être mises en place assez facilement...

Mais encore une fois c'est Jack et seulement lui le patron.
C'est donc avec lui qu'il faudra voir...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 5:38

Sur l'existence (ou non) de bibliothèques graphiques pour Panoramic.

Laurent (Minibug) :
Citation :
Non pas à ma connaissance.
Par contre saches que Jack le créateur de Panoramic est à l'écoute et procède à des mise à jour et des ajouts très régulièrement. Donc n'hésites pas à poser des questions sur le forum. Wink

Certes. Mais pour le moment, cela implique clairement que je dois tout faire à la main, bouton par bouton, fonction par fonction, pour éviter de voir apparaître une bibliothèque des années 90's. Je ne sais même pas si c'est faisable. Tout va bien tant qu'il s'agit de phases de prototypages... Mais quand les choses deviennent sérieuses, il faut savoir aboutir à d'autres résultats graphiques en moins de temps qu'il en faut pour le dire. Rolling Eyes

A moins que cela soit déjà le cas (merci de fournir le lien le cas échéant), Jack devrait ouvrir très rapidement son logiciel au développement de plugin's Panoramic par des utilisateurs avancés. D'abord parce que cela lui enlèverait de la charge et ensuite parce que ça permettrait une évolution fonctionnelle bien plus étendue, ainsi que la génération d'une communauté de développeurs de plugin's.

De mon point de vu, c'est carrément urgent.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 7:49

Pour Laurent (Minibug),

Test en cours de ton IDE. Remarquable, tout de même.

J'ai piqué un code source de Marc37 sur ce forum que j'ai collé dans un fichier nommé "Premiers_pas_en_3D.bas". J'ouvre l'IDE et je lui demande de charger le fichier. L'IDE s’exécute et m'affiche clairement le code source (en plein écran avec une fenêtre de taille non modifiable à la souris, ça c'est dommage...), mais cependant je n'accède pas à l'aspect graphique de l'application. Les accès aux menus de gauche et de droite sont totalement inopérants (rien ne se passe au passage de la souris), alors que le menu Top apparaît à la demande.

Existe t-il une méthode de chargement spécifique aux projets Panoramic sous forme de fichiers *.bas et qui permette de visualiser/modifier l'interface graphique ? J'ai essayé directement avec le code, mais le problème est le même.

Le code en question :
Code:

    ' ------------------------------------------------------------------------------
    '  Premiers pas en 3D
    '  Marc37 - mai 2017 - Panoramic v0.9.28i4
    '  http://panoramic-language.pagesperso-orange.fr/French/index.html
    ' ------------------------------------------------------------------------------
    Init()
    Control_panel()
    GOSUB Object_3D
    Action()
    END
    ' ------------------------------------------------------------------------------
    Request:
        Action()
    RETURN
    ' ------------------------------------------------------------------------------
    SUB Action()
        SELECT NUMBER_CHANGE
            CASE 2
                IF POSITION(2)=1
                    CAPTION 3,"AXES_SHOW"
                    AXES_SHOW
                ELSE
                    CAPTION 3,"AXES_HIDE"
                    AXES_HIDE
                END_IF
            CASE 4
                CAM_X_POSITION POSITION(4)
                CAPTION 5, "CAM_X_POSITION : " + STR$(POSITION(4))+"  "
            CASE 6
                CAM_Y_POSITION POSITION(6)
                CAPTION 7, "CAM_Y_POSITION : " + STR$(POSITION(6))+"  "
            CASE 8
                CAM_Z_POSITION POSITION(8)
                CAPTION 9, "CAM_Z_POSITION : " + STR$(POSITION(8))+"  "
            CASE 10
                OFF_CHANGE 10
                IF Mem_cam_move% < POSITION(10) THEN CAM_MOVE 1
                IF Mem_cam_move% > POSITION(10) THEN CAM_MOVE -1
                Mem_cam_move%=POSITION(10)
                ON_CHANGE 10,Request
                CAPTION 11, "CAM_MOVE : " + STR$(Mem_cam_move%)+"  "
            CASE 12
                OFF_CHANGE 12
                IF Mem_cam_pitch% < POSITION(12) THEN CAM_PITCH 1
                IF Mem_cam_pitch% > POSITION(12) THEN CAM_PITCH -1
                Mem_cam_pitch%=POSITION(12)
                ON_CHANGE 12,Request
                CAPTION 13, "CAM_PITCH : " + STR$(Mem_cam_pitch%)+"  "
            CASE 14
                OFF_CHANGE 14
                IF Mem_cam_roll% < POSITION(14) THEN CAM_ROLL 1
                IF Mem_cam_roll% > POSITION(14) THEN CAM_ROLL -1
                Mem_cam_roll%=POSITION(14)
                ON_CHANGE 14,Request
                CAPTION 15, "CAM_ROLL : " + STR$(Mem_cam_roll%)+"  "
            CASE 16
                OFF_CHANGE 16
                IF Mem_cam_turn% < POSITION(16) THEN CAM_TURN 1
                IF Mem_cam_turn% > POSITION(16) THEN CAM_TURN -1
                Mem_cam_turn%=POSITION(16)
                ON_CHANGE 16,Request
                CAPTION 17, "CAM_TURN : " + STR$(Mem_cam_turn%)+"  "
            CASE 18
                POINT_X_POSITION POSITION(18)
                CAPTION 19, "POINT_X_POSITION : " + STR$(POSITION(18))+"  "
            CASE 20
                POINT_Y_POSITION POSITION(20)
                CAPTION 21, "POINT_Y_POSITION : " + STR$(POSITION(20))+"  "
            CASE 22
                POINT_Z_POSITION POSITION(22)
                CAPTION 23, "POINT_Z_POSITION : " + STR$(POSITION(22))+"  "
            CASE 24
                3D_X_POSITION 1,POSITION(24)
                CAPTION 25, "3D_X_POSITION : " + STR$(POSITION(24))+"  "
            CASE 26
                3D_Y_POSITION 1,POSITION(26)
                CAPTION 27, "3D_Y_POSITION : " + STR$(POSITION(26))+"  "
            CASE 28
                3D_Z_POSITION 1,POSITION(28)
                CAPTION 29, "3D_Z_POSITION : " + STR$(POSITION(28))+"  "
            CASE 30
                3D_X_ROTATE 1,POSITION(30)
                CAPTION 31, "3D_X_ROTATE : " + STR$(POSITION(30))+"  "
            CASE 32
                3D_Y_ROTATE 1,POSITION(32)
                CAPTION 33, "3D_Y_ROTATE : " + STR$(POSITION(32))+"  "
            CASE 34
                3D_Z_ROTATE 1,POSITION(34)
                CAPTION 35, "3D_Z_ROTATE : " + STR$(POSITION(34))+"  "
            CASE 54
                3D_X_SCALE 1,(POSITION(54)/10)
                CAPTION 55, "3D_X_SCALE : " + STR$((POSITION(54)/10))+"  "
            CASE 56
                3D_Y_SCALE 1,(POSITION(56)/10)
                CAPTION 57, "3D_Y_SCALE : " + STR$((POSITION(56)/10))+"  "
            CASE 58
                3D_Z_SCALE 1,(POSITION(58)/10)
                CAPTION 59, "3D_Z_SCALE : " + STR$((POSITION(58)/10))+"  "
            CASE 60
                OFF_CHANGE 60
                IF Mem_3D_move% < POSITION(60) THEN 3D_MOVE 1,1
                IF Mem_3D_move% > POSITION(60) THEN 3D_MOVE 1,-1
                Mem_3D_move%=POSITION(60)
                ON_CHANGE 60,Request
                CAPTION 61, "3D_MOVE : " + STR$(Mem_3D_move%)+"  "
            CASE 62
                LIGHT_X_POSITION POSITION(62)
                CAPTION 63, "LIGHT_X_POSITION : " + STR$(POSITION(62))+"  "
            CASE 64
                LIGHT_Y_POSITION POSITION(64)
                CAPTION 65, "LIGHT_Y_POSITION : " + STR$(POSITION(64))+"  "
            CASE 66
                LIGHT_Z_POSITION POSITION(66)
                CAPTION 67, "LIGHT_Z_POSITION : " + STR$(POSITION(66))+"  "
        END_SELECT
    END_SUB
    ' ------------------------------------------------------------------------------
    SUB Init()
        WIDTH 0,1360
        HEIGHT 0,680
        LABEL Object_3D
        LABEL Reset
        LABEL Request
        DIM Mem_cam_move%
        DIM Mem_cam_pitch%
        DIM Mem_cam_roll%
        DIM Mem_cam_turn%
        DIM Mem_3D_move%
        DIM Num_Object3D%
        SCENE3D 1
        WIDTH 1,600
        HEIGHT 1,600
        TOP 1,20
        LEFT 1,20
        COLOR 1,64,64,64
    END_SUB
    ' ------------------------------------------------------------------------------
    SUB Control_panel()
        SCROLL_BAR 2
            TOP 2,20
            LEFT 2,650
            WIDTH 2,70
            MIN 2,0
            MAX 2,1
            POSITION 2,1
            ON_CHANGE 2,Request
        ALPHA 3
            TOP 3,23
            LEFT 3, 730
            CAPTION 3, "AXES_SHOW"

        SCROLL_BAR 4
            TOP 4,55
            LEFT 4,650
            MIN 4,-10
            MAX 4,10
            POSITION 4,1
            ON_CHANGE 4,Request
        ALPHA 5
            TOP 5,58
            LEFT 5, 780
            CAPTION 5, "CAM_X_POSITION : " + STR$(POSITION(4))+"  "

        SCROLL_BAR 6
            TOP 6,80
            LEFT 6,650
            MIN 6,-10
            MAX 6,10
            POSITION 6,2
            ON_CHANGE 6,Request
        ALPHA 7
            TOP 7,83
            LEFT 7, 780
            CAPTION 7, "CAM_Y_POSITION : " + STR$(POSITION(6))+"  "

        SCROLL_BAR 8
            TOP 8,105
            LEFT 8,650
            MIN 8,-10
            MAX 8,10
            POSITION 8,5
            ON_CHANGE 8,Request
        ALPHA 9
            TOP 9,108
            LEFT 9, 780
            CAPTION 9, "CAM_Z_POSITION : " + STR$(POSITION(8))+"  "

        SCROLL_BAR 10
            TOP 10,140
            LEFT 10,650
            MIN 10,-10
            MAX 10,10
            ON_CHANGE 10,Request
        ALPHA 11
            TOP 11,143
            LEFT 11, 780
            CAPTION 11, "CAM_MOVE : " + STR$(POSITION(10))+"  "

        SCROLL_BAR 12
            TOP 12,175
            LEFT 12,650
            MIN 12,-10
            MAX 12,10
            ON_CHANGE 12,Request
        ALPHA 13
            TOP 13,178
            LEFT 13, 780
            CAPTION 13, "CAM_PITCH : " + STR$(POSITION(12))+"  "

        SCROLL_BAR 14
            TOP 14,200
            LEFT 14,650
            MIN 14,-10
            MAX 14,10
            ON_CHANGE 14,Request
        ALPHA 15
            TOP 15,203
            LEFT 15, 780
            CAPTION 15, "CAM_ROLL : " + STR$(POSITION(14))+"  "

        SCROLL_BAR 16
            TOP 16,225
            LEFT 16,650
            MIN 16,-10
            MAX 16,10
            ON_CHANGE 16,Request
        ALPHA 17
            TOP 17,228
            LEFT 17, 780
            CAPTION 17, "CAM_TURN : " + STR$(POSITION(16))+"  "

        SCROLL_BAR 18
            TOP 18,260
            LEFT 18,650
            MIN 18,-10
            MAX 18,10
            ON_CHANGE 18,Request
        ALPHA 19
            TOP 19,263
            LEFT 19, 780
            CAPTION 19, "POINT_X_POSITION : " + STR$(POSITION(18))+"  "

        SCROLL_BAR 20
            TOP 20,285
            LEFT 20,650
            MIN 20,-10
            MAX 20,10
            ON_CHANGE 20,Request
        ALPHA 21
            TOP 21,288
            LEFT 21, 780
            CAPTION 21, "POINT_Y_POSITION : " + STR$(POSITION(20))+"  "

        SCROLL_BAR 22
            TOP 22,310
            LEFT 22,650
            MIN 22,-10
            MAX 22,10
            ON_CHANGE 22,Request
        ALPHA 23
            TOP 23,313
            LEFT 23, 780
            CAPTION 23, "POINT_Z_POSITION : " + STR$(POSITION(22))+"  "

        SCROLL_BAR 24
            TOP 24,345
            LEFT 24,650
            MIN 24,-10
            MAX 24,10
            ON_CHANGE 24,Request
        ALPHA 25
            TOP 25,348
            LEFT 25, 780
            CAPTION 25, "3D_X_POSITION : " + STR$(POSITION(24))+"  "

        SCROLL_BAR 26
            TOP 26,370
            LEFT 26,650
            MIN 26,-10
            MAX 26,10
            ON_CHANGE 26,Request
        ALPHA 27
            TOP 27,373
            LEFT 27, 780
            CAPTION 27, "3D_Y_POSITION : " + STR$(POSITION(26))+"  "

        SCROLL_BAR 28
            TOP 28,395
            LEFT 28,650
            MIN 28,-10
            MAX 28,10
            ON_CHANGE 28,Request
        ALPHA 29
            TOP 29,398
            LEFT 29, 780
            CAPTION 29, "3D_Z_POSITION : " + STR$(POSITION(28))+"  "

        SCROLL_BAR 30
            TOP 30,430
            LEFT 30,650
            MIN 30,-180
            MAX 30,180
            ON_CHANGE 30,Request
        ALPHA 31
            TOP 31,433
            LEFT 31, 780
            CAPTION 31, "3D_X_ROTATE : " + STR$(POSITION(30))+"  "

        SCROLL_BAR 32
            TOP 32,455
            LEFT 32,650
            MIN 32,-180
            MAX 32,180
            ON_CHANGE 32,Request
        ALPHA 33
            TOP 33,458
            LEFT 33, 780
            CAPTION 33, "3D_Y_ROTATE : " + STR$(POSITION(32))+"  "

        SCROLL_BAR 34
            TOP 34,480
            LEFT 34,650
            MIN 34,-180
            MAX 34,180
            ON_CHANGE 34,Request
        ALPHA 35
            TOP 35,483
            LEFT 35, 780
            CAPTION 35, "3D_Z_ROTATE : " + STR$(POSITION(34))+"  "

        BUTTON 36
            WIDTH 36,17
            HEIGHT 36,17
            TOP 36,515
            LEFT 36, 650
            ON_CLICK 36, Object_3D
        BUTTON 37
            WIDTH 37,17
            HEIGHT 37,17
            TOP 37,540
            LEFT 37, 650
            ON_CLICK 37, Object_3D
        BUTTON 38
            WIDTH 38,17
            HEIGHT 38,17
            TOP 38,565
            LEFT 38, 650
            ON_CLICK 38, Object_3D
        BUTTON 39
            WIDTH 39,17
            HEIGHT 39,17
            TOP 39,590
            LEFT 39, 650
            ON_CLICK 39, Object_3D
        BUTTON 40
            WIDTH 40,17
            HEIGHT 40,17
            TOP 40,515
            LEFT 40, 754
            ON_CLICK 40, Object_3D
        BUTTON 41
            WIDTH 41,17
            HEIGHT 41,17
            TOP 41,540
            LEFT 41, 754
            ON_CLICK 41, Object_3D
        BUTTON 42
            WIDTH 42,17
            HEIGHT 42,17
            TOP 42,565
            LEFT 42, 754
            ON_CLICK 42, Object_3D
        BUTTON 43
            WIDTH 43,17
            HEIGHT 43,17
            TOP 43,590
            LEFT 43, 754
            ON_CLICK 43, Object_3D
        ALPHA 44
            TOP 44,518
            LEFT 44,672
            CAPTION 44,"3D_TEAPOT"
        ALPHA 45
            TOP 45,543
            LEFT 45,672
            CAPTION 45,"3D_CUBE"
        ALPHA 46
            TOP 46,568
            LEFT 46,672
            CAPTION 46,"3D_CONE"
        ALPHA 47
            TOP 47,593
            LEFT 47,672
            CAPTION 47,"3D_SPHERE"
        ALPHA 48
            TOP 48,518
            LEFT 48,775
            CAPTION 48,"3D_DODECAHEDRON"
        ALPHA 49
            TOP 49,543
            LEFT 49,775
            CAPTION 49,"3D_TORUS"
        ALPHA 50
            TOP 50,568
            LEFT 50,775
            CAPTION 50,"3D_CYLINDER"
        ALPHA 51
            TOP 51,593
            LEFT 51,775
            CAPTION 51,"3D_TEXT"
        ' *************** 2ème colonne
        SCROLL_BAR 54
            TOP 54,55
            LEFT 54,1000
            MIN 54,1
            MAX 54,20
            POSITION 54,10
            ON_CHANGE 54,Request
        ALPHA 55
            TOP 55,58
            LEFT 55, 1130
            CAPTION 55, "3D_X_SCALE : " + STR$((POSITION(54)/10))+"  "

        SCROLL_BAR 56
            TOP 56,80
            LEFT 56,1000
            MIN 56,1
            MAX 56,20
            POSITION 56,10
            ON_CHANGE 56,Request
        ALPHA 57
            TOP 57,83
            LEFT 57, 1130
            CAPTION 57, "3D_Y_SCALE : " + STR$((POSITION(56)/10))+"  "

        SCROLL_BAR 58
            TOP 58,105
            LEFT 58,1000
            MIN 58,1
            MAX 58,20
            POSITION 58,10
            ON_CHANGE 58,Request
        ALPHA 59
            TOP 59,108
            LEFT 59, 1130
            CAPTION 59, "3D_Z_SCALE : " + STR$((POSITION(58)/10))+"  "

        SCROLL_BAR 60
            TOP 60,140
            LEFT 60,1000
            MIN 60,-10
            MAX 60,10
            ON_CHANGE 60,Request
        ALPHA 61
            TOP 61,143
            LEFT 61, 1130
            CAPTION 61, "3D_MOVE : " + STR$(POSITION(60))+"  "

        SCROLL_BAR 62
            TOP 62,175
            LEFT 62,1000
            MIN 62,-10
            MAX 62,10
            POSITION 62,0
            ON_CHANGE 62,Request
        ALPHA 63
            TOP 63,178
            LEFT 63, 1130
            CAPTION 63, "LIGHT_X_POSITION : " + STR$(POSITION(62))+"  "

        SCROLL_BAR 64
            TOP 64,200
            LEFT 64,1000
            MIN 64,-10
            MAX 64,10
            POSITION 64,0
            ON_CHANGE 64,Request
        ALPHA 65
            TOP 65,203
            LEFT 65, 1130
            CAPTION 65, "LIGHT_Y_POSITION : " + STR$(POSITION(64))+"  "

        SCROLL_BAR 66
            TOP 66,225
            LEFT 66,1000
            MIN 66,-10
            MAX 66,10
            POSITION 66,5
            ON_CHANGE 66,Request
        ALPHA 67
            TOP 67,228
            LEFT 67, 1130
            CAPTION 67, "LIGHT_Z_POSITION : " + STR$(POSITION(66))+"  "
    END_SUB
    ' ------------------------------------------------------------------------------
    Object_3D:
        GOSUB Reset
        IF NUMBER_CLICK > 35
            IF NUMBER_CLICK =36 THEN 3D_DELETE 1:3D_TEAPOT 1
            IF NUMBER_CLICK =37 THEN 3D_DELETE 1:3D_CUBE 1,1
            IF NUMBER_CLICK =38 THEN 3D_DELETE 1:3D_CONE 1,1.5,1.1
            IF NUMBER_CLICK =39 THEN 3D_DELETE 1:3D_SPHERE 1,1.5
            IF NUMBER_CLICK =40 THEN 3D_DELETE 1:3D_DODECAHEDRON 1
            IF NUMBER_CLICK =41 THEN 3D_DELETE 1:3D_TORUS 1,1,0.5
            IF NUMBER_CLICK =42 THEN 3D_DELETE 1:3D_CYLINDER 1,2,1,0.5
            IF NUMBER_CLICK =43 THEN 3D_DELETE 1:3D_TEXT 1,"Panoramic":3D_COLOR 1,0,250,0
        ELSE
            3D_TEAPOT 1
        END_IF
            AXES_SHOW
            CAM_POSITION 1,2,5
    RETURN
    ' ------------------------------------------------------------------------------
    Reset:
        POSITION 2,1
        POSITION 4,1
        POSITION 6,2
        POSITION 8,5
        POSITION 10,0
        POSITION 12,0
        POSITION 14,0
        POSITION 16,0
        POSITION 18,0
        POSITION 20,0
        POSITION 22,0
        POSITION 24,0
        POSITION 26,0
        POSITION 28,0
        POSITION 30,0
        POSITION 32,0
        POSITION 34,0
        POSITION 54,10
        POSITION 56,10
        POSITION 58,10
        POSITION 60,0
        POSITION 62,0
        POSITION 64,0
        POSITION 66,5
    RETURN
    ' ------------------------------------------------------------------------------

De plus, l'IDE a tendance à déjouer les réglages initiaux de la barre des tâches de Windows 7 (64-bits Pro). A présent, elle apparaît et disparaît au passage de la souris, comme dans l'IDE. C'est un problème qu'il faudra résoudre... Je suppose que tout comme moi, tu n'apprécies pas qu'une appli modifie tes réglages Windows sans t'en informer Wink

Sinon, c'est du bon boulot et je t'encourage à continuer le développement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jean_debord

avatar

Nombre de messages : 756
Age : 63
Localisation : Limoges
Date d'inscription : 21/09/2008

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 11:14

Il y a aussi l'EDI de Klaus (http://klauspanoramic.esy.es/versions/PanEdi.zip) mais il n'a pas été mis à jour depuis 2010.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.unilim.fr/pages_perso/jean.debord/index.htm
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 15:01

Salut UltraVox ! cheers

Si tu ouvre un fichier BAS, il ne sera traité que dans un simple éditeur.

Pour bénéficier de la création des objets par l'IDE il faut créer un projet dès le départ ou ouvrir un projet contenant déjà les fichiers spécifiques.

Il me semble que tu as un exemple d'une calculatrice sur mon WEBDAV dans le dossier EXEMPLE. Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 15:35

Merci Laurent, mais que faire précisément avec le fichier "calculatrice-GPP.ppa" ? Il me semble que c'est du PowerPoint Microsoft et évidemment l'IDE n'en voudra pas.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 16:39

Depuis GPP tu vas sur fichier puis ouvrir et tu choisis le fichier PPA tu verra sa marche. c'est conçu pour !!

Pour info, il s'agit de plusieurs fichiers qui sont passés en zip par GPP pour créer un projet en un seul fichier.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 20:19

Voici ce que j'obtiens (fichier .ppa sur le Bureau Windows) :
https://i.gyazo.com/35b9e1f99b82180a8f6e8b12a9fe6c25.png

Je vais essayer depuis un autre répertoire pour vérifier s'il ne s'agit pas d'un problème de droits d'accès.

Je te tiens au jus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 20:25

Pareil depuis le répertoire racine de l'appli. :
https://i.gyazo.com/293d336e7d008921c12eeefa9cacfde8.png

Bon, puisque « c'est conçu pour », je vais chercher encore.
Une solution pour chaque problème Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 21:41

Eh ben c'est bizarre ! Je sais pas quoi te dire...

Ligne 260 ?? ça correspond à l"ouverture du fichier mais après je vois pas où ça coince...

Vérifie des fois que le fichier PPA ne soit pas en lecture seule ou verrouillé comme ça arrive parfois quand on télécharge un fichier...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
UltraVox

avatar

Nombre de messages : 39
Age : 47
Localisation : Ajaccio
Date d'inscription : 05/06/2017

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 22:49

Il n'est pas en lecture seule, mais il était "protégé", regarde ce screen :
https://i.gyazo.com/23dd3aa3213099d45d618282b758da52.png

Je l'ai donc "débloqué", mais l'IDE n'en veut toujours pas...

Je fatigue pour ce soir et j'ai besoin de dormir... A demain pour d'autres vérif. ! Wink Et t'en fais pas, ça vient pas nécessairement de ton soft.

@+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Mondes 3D avec Panoramic   Mar 6 Juin 2017 - 23:43

Citation :
Il n'est pas en lecture seule, mais il était "protégé", regarde ce screen :
Bon et bien ça c'est déjà une bonne chose.

Quand tu ouvres GPP. essais d'utiliser l'option FERMER si un fichier est déjà en cours, et ensuite tente de nouveau l'option du menu FICHIER et OUVRIR le fichier PPA.

Citation :
Je fatigue pour ce soir et j'ai besoin de dormir
Bonne nuit et à demain... Sleep Sleep Sleep
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Mondes 3D avec Panoramic   

Revenir en haut Aller en bas
 
Mondes 3D avec Panoramic
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Un exemple de gestion d'un sprite vaisseau avec panoramic
» Choix d'un répertoire
» Sub-menu is not menu avec Panoramic.exe
» envoyer un mail avec panoramic et blat
» Une base de données relationnelle avec Panoramic

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: