Bienvenu au nouveau Panoramicien

dim i , j
width 0,800 : height 0,600
caption 0,"Bonjour carl"
scene3d 1
width 1,750 : height 1,550
3d_target_is 1
3d_text 1,"BONJOUR"
3d_color 1,255,0,0
wait 700
for j=1 to 5
 for i=1 to 99
  3d_rotate 1,rnd(360),rnd(360),rnd(360)
  wait 25
  if i/10=int(i/10) then 3d_color 1,rnd(250),rnd(250),rnd(250)
 next i
 wait 700
next j
3d_delete 1
3d_text 1,"Bienvenue"
3d_color 1,255,0,255

rem ' Bienvenue-03
dim i , j
width 0,800 : height 0,600
scene3d 1
width 1,750 : height 1,550
3d_target_is 1
3d_text 1,"BONJOUR"
3d_color 1,255,0,255
3d_position 1,-9,0,0
beep : wait 700 : beep
for i=1 to 14
 3d_scale 1,1.23,1,1
 wait 500 : beep
 3d_scale 1,1,1,1
 3d_position 1,i-9,0,0
 wait 500 : beep
next i
3d_text_change 1,"Et bienvenue !"
3d_position 1,-3.5,1,1

rem ' Bienvenue-04
dim i , j
width 0,800 : height 0,600
scene3d 1
width 1,700
3d_target_is 1
for i=1 to 7
 3d_text i,mid$("BONJOUR",i,1)
 3d_position i,i*1.2-5.05,-0.05,0
 3d_scale i,0.2,0.2,0.2
 3d_color i,255,0,0
next i
wait 700
for i=1 to 9
 wait 100
 for j=1 to 7
  3d_scale j,i/5,i/5,i/5
  3d_position j,j*1.2-(5+0.05*i),-0.05*i,0
 next j
next i
wait 700
for i=1 to 7
 3d_rotate i,0,180,0
 3d_position i,i*1.2-4.28,-0.46,0
 3d_color i,0,0,255
 wait 400
next i
wait 700
for i=1 to 7
 3d_rotate i,180,0,0
 3d_position i,i*1.2-5.4,0.7,0
 3d_color i,0,150,0
 wait 400
next i
wait 400
for i=1 to 7
 3d_rotate i,180,180,180
 3d_position i,i*1.2-(5+0.08*i),-0.5,0
 3d_color i,255,0,255
 wait 400
next i
wait 400
for i=1 to 10
 for j=1 to 7
 3d_color j,255,100,0
  3d_position j,i-5+j,-0.5,0
 next j
 wait 100
next i
wait 600
3d_text_change 1,"BIENVENUE"
3d_position 1,-4,-0.5,0
3d_scale 1,1.5,1.5,1.5
3d_color 1,255,0,255