La 3D.

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

Voici un code qui fonctionne.

J'ai enfin réussi à placer un texte différent sur chacune des faces d'un cube en rotation.
L'astuce est de créer 4 cubes imbriqués, chaque cube subissant une rotation initiale d'un multiple de 90°.

Astuces
--------

Pour quitter la scene 3D, il faut commencer par défaire les liens entre les objets chaînés.
Ensuite, effacer les objets 3D par ordre de création inverse.
Et enfin, on supprime l'objet scene3D n° 1 avec 'delete 1'.

Code:: dim a, k%

label fin3D

caption 0,"Maxi-School, la réussite pour tous en langues."

width 0,1600
height 0,900

main_menu 30
creer_sous_menu(31,30,"fichier")
creer_sous_menu(32,31,"suite")
on_click 32,fin3D

scene3d 1
hide 1
full_space 1

3d_cube 10,1
3d_load_texture 10,"images\clouds.bmp"
3d_x_scale 10,25
3d_y_scale 10,25
3d_z_position 10,-0.5

3d_cube 2,4
3d_load_texture 2,"images\monde1.bmp"

3d_text 3,"Maxi-School"
3d_z_position 3,2.05
3d_x_scale 3,0.75
3d_color 3,255,128,255
3d_chain 2,3

3d_cube 4,3.9
3d_y_rotate 4,90

3d_text 5,"La réussite"
3d_z_position 5,2.05
3d_x_scale 5,0.75
3d_color 5,255,128,255
3d_chain 4,5

3d_cube 6,3.9
3d_y_rotate 6,180

3d_text 7,"pour tous"
3d_z_position 7,2.05
3d_x_scale 7,0.75
3d_color 7,255,128,255
3d_chain 6,7

3d_cube 8,3.9
3d_y_rotate 8,270

3d_text 9,"en langues."
3d_z_position 9,2.05
3d_x_scale 9,0.75
3d_color 9,255,128,255
3d_chain 8,9

for k%=11 to 15
   3d_box k%,0.5,0.5,0.01
   3d_load_texture k%,"images"+trim$(mid$("allemagne espagne italien anglais pologne ",(k%-10)*10-9,9))+".bmp"
   3d_position k%,-2+k%-11,-4,0
next k%

show 1

for a=360 to 0 step -1
   3d_y_rotate 2,a
   3d_y_rotate 4,a+90
   3d_y_rotate 6,a+180
   3d_y_rotate 8,a+270
   wait 10
next a

end

fin3D:
   3d_chain_break 2,3
   3d_chain_break 4,5
   3d_chain_break 6,7
   3d_chain_break 8,9
   for k%=15 to 2 step -1
   3d_delete k%
   next k%
   terminate
return

sub creer_sous_menu(no%,parent%,label$)
   sub_menu no%
   parent no%,parent%
   caption no%,label$
end_sub

Joli. Sinon Pedro, comme tu commences avec la 3D, pourquoi n'écrirais tu pas un article sur tes débuts avec ce que tu trouves et quelques réalisations ? Ca fait un moment que cet aspet de Panoramic n'a pas été abordé dans le mag et il y a de suoi dire ... Alors si cela te tente ... (et puis ça fera peut être réagir Bignono et il mettra peut être un petit mot, qui sait ?)

Salut Pedro Alvarez

Bravo, tu as trouvé l’astuce.

Mon point de vue concernant la sortie du programme

Tu utilises un MAIN_MENU et deux SUB_MENU pour … sortir du programme via suite.
Si ce menu ne doit servir qu’à ça, tu gagneras beaucoup à utiliser ON_CLICK sur SCENE3D pour sortir du programme.
Seulement, tu as peut-être une autre raison pour utiliser un menu ?

Bon, je te mets ma façon de voir

Code:: dim a, k%

label fin3D
rem ============================================================================
caption 0,"Maxi-School, la réussite pour tous en langues. <CLICK> pour sortir"
rem ============================================================================
width 0,1600 : height 0,900
scene3d 1 : hide 1 : full_space 1
3d_cube 10,1 : on_click 1, fin3D
rem ============================================================================
3d_load_texture 10,"images\clouds.bmp"
3d_x_scale 10,25
3d_y_scale 10,25
3d_z_position 10,-0.5

3d_cube 2,4
3d_load_texture 2,"images\monde1.bmp"

3d_text 3,"Maxi-School"
3d_z_position 3,2.05
3d_x_scale 3,0.75
3d_color 3,255,128,255
3d_chain 2,3

3d_cube 4,3.9
3d_y_rotate 4,90

3d_text 5,"La réussite"
3d_z_position 5,2.05
3d_x_scale 5,0.75
3d_color 5,255,128,255
3d_chain 4,5

3d_cube 6,3.9
3d_y_rotate 6,180

3d_text 7,"pour tous"
3d_z_position 7,2.05
3d_x_scale 7,0.75
3d_color 7,255,128,255
3d_chain 6,7

3d_cube 8,3.9
3d_y_rotate 8,270

3d_text 9,"en langues."
3d_z_position 9,2.05
3d_x_scale 9,0.75
3d_color 9,255,128,255
3d_chain 8,9

for k%=11 to 15
   3d_box k%,0.5,0.5,0.01
   3d_load_texture k%,"images"+trim$(mid$("allemagne espagne italien anglais pologne ",(k%-10)*10-9,9))+".bmp"
   3d_position k%,-2+k%-11,-4,0
next k%

show 1

for a=360 to 0 step -1
   3d_y_rotate 2,a
   3d_y_rotate 4,a+90
   3d_y_rotate 6,a+180
   3d_y_rotate 8,a+270
   wait 10
next a

end
rem ============================================================================

fin3D:
  3d_chain_break 2,3
  3d_chain_break 4,5
  3d_chain_break 6,7
  3d_chain_break 8,9
  for k%=15 to 2 step -1
   3d_delete k%
  next k%
  terminate
return
rem ============================================================================

Pour sortir du programme, il suffit de cliquer n'importe où !

EDIT : Bonne idée, Jicehe,l concernant un article sur la 3D

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

OK, merci Papydall.

J'avais également penser à quitter la 3D par un clic.
Mais cette fenêtre 3D fait partie d'un programme bien plus vaste de plus de 34.000 lignes !!

Donc, cela me paraît plus simple de passer par un menu.

Par contre, l'idée d'un paragraphe sur la 3D dans le journal Panoramic me semble être une excellente idée.

On pourrait y inclure les quelques trouvailles que j'ai découvertes.

Merci.

Absolument et c'est toujours interessant de voir comment une personne explore un nouveau domaine de Panoramic.
Sans compter que toute nouvelle approche (ou presque) apporte de nouvelles façons de faire.
Je me souvient des débuts hésitant de Bignono dans ce domaine qui au bout de quelques jours avait donner un programme d'édition de mondes 3D ... de visite de châteaux forts, ...

Bonjour à tous les panoramiciens.
Si je suis absent du forum, c'est que je suis très très malade et j'éprouve d'énormes difficultés à taper un simple petit texte comme celui-ci. Mais je lis le forum régulièrement an moins une fois par semaine.
@ Pedro, pour supprimer tous les objets 3d, il y a la commande 3d_delete_all qui devrait faire le même travail que ta boucle. Mais voilà, j'ai essayé de remplacer et on tombe sur un access violiation! Ce n'est pas normal ce comportement, et c'est à Jack de chercher si il n'y a pas un bug. Même le terminate après les 3d_chain_break devrait quitter le programme proprement puisque terminate détruit tous les objets et libère la mémoire suivant l'aide.
A+

Bonjour Bignono

Je suis très content de te lire.
J’espère de tout mon cœur que tu sois guéri dans les plus brefs délais !

Désolé d'apprendre que tu vas mal, Bignono. Je te souhaite très sincèrement de te sortir de ce mauvais pas.

@ Bignono Bon courage être malade c'est un sacré defi...
@ Pedro
j'ai déjà rencontré de multiples problèmes en 3D sans atteindre le niveau de Bignono Embarassed

il me semble que tu a une solution bien plus simple pour réaliser ton objectif.
Avec un seul cube c'est nettement plus simple car il te suffit d'avoir un fichier image pour le recouvrir.
ensuite tu change juste d image pour changer le texte.
J'ai réalisé comme cela un personnage de jeu "Mincraft" qui doit sortir d'un labyrinthe.
Tu peux le reprendre sur le webdav
PS: il me manque l'image .bmp pour tester ton code!
Basketball

je viens de mettre sur le webdav une version revue de ton programme
je ne suis pas suffisamment aguerrie pour corriger les autres erreurs mais le cube tourne et le texte s'affiche.
pirat

je viens de revoir le programme et surtout l aspect du cube
tout est dans le webdav maxischool1.2
comme d habitude il faut mettre le fichier .3ds et le fichier .bmp dans le même dossier
ou mieux, copier le chemin d accès complet de ces fichiers dans le programme principal pirat

Nombre de messages : 1596 Date d'inscription : 19/01/2014

Bonjour.

Désolé Mindstorm, mais ta solution ne convient pas du tout.

Le texte à afficher sur chacune des faces du cube doit pouvoir être modifié par l'utilisateur.

Dans la version finale du programme, ce texte sera enregistré dans un fichier '.txt' et modifiable selon les souhaits de l'utilisateur.

pedro
je crois comprendre ton soucis
Si je comprends bien, il suffirait de modifier le fichier image pour modifier le texte.
j ai utilisé cette méthode pour modifier le personnage de mon fils.
j'ai vue passer un programme en panoramic pour le faire!
mais je ne me souviens plus qui l a écrit!
reviens vers nous si tu as besoin