Test de la 3D.

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

Bonjour à tous.

Pourriez-vous tester ce petit code, sous différentes résolutions, et m'indiquer si les 20 boîtes apparaissent bien à l'écran ?

Merci de votre aide.

Code:: dim a$, angle%, b$, i%, k%, x%, y%, j%, m%, n%

maximize 0

scene3d 1
full_space 1

   i%=10
   for x%=1 to 4
   for y%=1 to 5
   ' message str$(x%)+":"+str$(y%)
   i%=i%+1
   3d_box i%,90,15,5
   3d_transparent i%,0
   3d_color i%,128,0,0
   ' 3d_scale i%,0.25,0.25,0.25
   j%=x%*5.0-13
   m%=y%*1.2-3.6+1
   n%=0.1
   3d_position i%,j%,m%,n%

   a$="bonjour à tous"
   b$=""
   for k%=1 to len(a$)
   b$=b$+mid$(a$,k%,1)+" "
   next k%

   3d_text 30+i%,b$
   3d_scale i%,0.05,0.05,0.05
   3d_position 30+i%,j%-1.5,m%,n%+0.25
   3d_scale 30+i%,0.25,0.25,0.25
   3d_color 30+i%,255,255,255

   ' 3d_chain i%,30+i%
   next y%
   next x%

for angle%=0 to 360 step 10
   3d_x_rotate 15,angle%
   3d_x_rotate 45,angle%
   pause 100
next angle%

Sujet: Re: Test de la 3D. Mer 13 Sep 2017 - 8:16

Bonjour,

Voilà le résultat sur mon écran 1440x900 (W8.1)

J'ai ajouté END à la fin du code, ça évite d'avoir une multitude de Panoramic.exe qui tournent.

Comme tu peux le voir, Pédro, tous les rectangles sont là, mais ceux situés à gauche sont tronqués.

@Jack,
J'ai également testé ce code avec le compilateur: le résultat est en noir et blanc.
Mais je suppose que 3d_color i%,128,0,0 n'est pas encore pris en compte par le compilateur.

A+

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

Bonjour à tous.

Jean-Claude, pourrais-tu tester le code en remplaçant le second paramètre de 3d_box (90) par 80 ?
Merci de la suite.

Sujet: Re: Test de la 3D. Mer 13 Sep 2017 - 11:56

Avant

Après

Maintenant c'est la position en X et l'écart horizontale entre chaque rectangle qu'il faut adapter.

A+

Sujet: Re: Test de la 3D. Mer 13 Sep 2017 - 13:34

Jean-Claude a écrit:: Comme tu peux le voir, Pédro, tous les rectangles sont là, mais ceux situés à gauche sont tronqués.

Sans rien toucher aux 3D_BOX, on peut reculer la caméra pour qu'ils soient tous vus (CAM_Z_POSITION), puis la décaler légèrement sur la droite (avec le point visé par la caméra) pour affiner les marges droite et gauche.

Voici ce que j'obtiens sur un portable (Windows 10 et résolution d'écran 1366 x 768)

Avec le source de Pedro:

Puis en ayant recadré l'ensemble des 3D_BOX en reculant un peu la caméra et en la déplaçant légèrement sur la droite, c'est à dire en ajoutant les lignes:
cam_z_position 5.8
cam_x_position -0.6:point_x_position -0.6
(et en ajoutant aussi un end final)

Code:: dim a$, angle%, b$, i%, k%, x%, y%, j%, m%, n%

maximize 0

scene3d 1
cam_z_position 5.8
cam_x_position -0.6:point_x_position -0.6
full_space 1

   i%=10
   for x%=1 to 4
   for y%=1 to 5
   ' message str$(x%)+":"+str$(y%)
   i%=i%+1
   3d_box i%,90,15,5
   3d_transparent i%,0
   3d_color i%,128,0,0
   ' 3d_scale i%,0.25,0.25,0.25
   j%=x%*5.0-13
   m%=y%*1.2-3.6+1
   n%=0.1
   3d_position i%,j%,m%,n%

   a$="bonjour à tous"
   b$=""
   for k%=1 to len(a$)
   b$=b$+mid$(a$,k%,1)+" "
   next k%

   3d_text 30+i%,b$
   3d_scale i%,0.05,0.05,0.05
   3d_position 30+i%,j%-1.5,m%,n%+0.25
   3d_scale 30+i%,0.25,0.25,0.25
   3d_color 30+i%,255,255,255

   ' 3d_chain i%,30+i%
   next y%
   next x%

for angle%=0 to 360 step 10
   3d_x_rotate 15,angle%
   3d_x_rotate 45,angle%
   pause 100
next angle%

end

Jean-Claude a écrit:: J'ai également testé ce code avec le compilateur: le résultat est en noir et blanc.

Exact. C'est un bug du compilateur que je vais corriger.

_________________

username : panoramic@jack-panoramic password : panoramic123

Sujet: Re: Test de la 3D. Mer 13 Sep 2017 - 18:43

Merci Jack !

Very Happy

Sujet: Re: Test de la 3D. Mer 13 Sep 2017 - 18:45

bonjour à tous
@ Jack
sera t il possible, avec le compilateur, d'augmenter la résolution des textures des objet?
merci d'avance

» Test de SearchStringList.
» TEST SUR SHAPE
» Test de vitesse d'une clé usb
» test if file_exists() inefficace
» Wrapper autour de KGF.dll par procédures