Problème avec la 3D.

dim a, k%

label fin

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,"quitter")
on_click 32,fin

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

fin:
  3d_chain_break 2,3
  3d_chain_break 4,5
  3d_chain_break 6,7
  3d_chain_break 8,9
  ' for k%=2 to 15
      3d_delete_all
  ' next k%
  terminate
return

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