Menu en 3D.

dim a, angle, k, largeur_ecran%, hauteur_ecran%

largeur_ecran%=1440

maximize 0

label fin

create_hide
for k=1 to 10
    scene3d k
   
    ' angle=(360.0/8.0)*k
    ' message angle
    ' left k,720+200*sin(angle)-50
    ' top k,450+200*cos(angle)-50     
   
    if k<6
      left k,largeur_ecran%/2-350+k*150
      top k,400
          else
      left k,largeur_ecran%/2-350+(k-5)*150 
      top k,550
    end_if     
   
    width k,100
    height k,100
   
    on_click k,fin
    3d_target_is k
    3d_cube k+10,1
    3d_load_texture k+10,"images\"+trim$(mid$("chef_etab    enseignant  eleves3      vocabulaire4 traduire9    bibliotheque espagne1    options      sites        vacances1    ",k*13-12,12))+".jpg"
    hint k,trim$(mid$("Chef d'Etablissement Enseignant          Etudiant            Flashcards          Traducteur          Bibliothécaire      Géographie          Modifications        Version en cours    Si on jouait        ",k*21-20,20))
next k

create_show
for k=1 to 10
    show k
next k

for a=0 to 360 step 5
    for k=11 to 20
        3d_y_rotate k,a
    next k
    wait 100
next a
   
end

fin:
  message str$(number_click)
  terminate
return