La 3D très lente

Label Sub_Nbr_Mesh

Dim cnt%, i%, Dessin%, Fenetre_3D%, Dialogue_Box%, Nombre_Mesh%,
Dim pi, Angle, Largeur, Rayon, Espace, Perimetre, Nombre_Mesh, Angle_int


Angle                      =    0
Largeur                    =  10.0
Rayon                      =  50.0
Espace                      =    2.0
Dessin%                    = 2000
Dialogue_Box%              = 2001
Fenetre_3D%                = 2002
pi                          =    3.141592

Form Dessin%

width  0  ,  screen_x-300
height 0  ,  screen_y-10

 scene3d    Fenetre_3D%
 width      Fenetre_3D%,  screen_x-400
 height    Fenetre_3D%,  screen_y-60
 
 color      Fenetre_3D%,  120, 120, 120
 
 3d_target_is Fenetre_3D%
 
 light_position            20, 100,  50
 
 cam_position                0,  100,-100
 
 axes_show

Gosub Sub_Nbr_Mesh

      for cnt%  = 0    to int(Nombre_Mesh)
     
        3D_CUBE cnt%+1,Largeur
        3D_Color cnt%+1 , 50,100,200
'          3d_load_texture cnt%+1 ,"023bois.bmp"

        3D_Scale cnt%+1,1,4,.5
        3D_x_position cnt%+1, Rayon*cos((PI*(Angle_int*(cnt%+1)))/180)
        3D_z_position cnt%+1, Rayon*sin((PI*(Angle_int*(cnt%+1)))/180)
        3d_y_rotate cnt%+1,90-Angle_int*(cnt%+1)
 
'         
      next cnt%

    wait 1
        for i%= -100 to 100 step 5
 cam_position  0,100,i%
        wait 1
        display
        next i%
       
    end

Sub_Nbr_Mesh:

' Longueur du cercle

Perimetre  = PI*2*Rayon
' Nombre de Mesh dans le cerle + espace

Nombre_Mesh = int(Perimetre / (Largeur+espace))

Angle_int=360/Nombre_Mesh

Return