Papydall vous souhaite une bonne année vingt vingt

rem ============================================================================
rem         Papydall vous souhaite une bonne année vingt vingt
rem ============================================================================
dim i
full_space 0 : caption 0,"Bonne année vingt vingt"
scene3d 1 : color 1, 0,0,0 : 3d_text 1,"PAPYDALL VOUS SOUHAITE UNE BONNE ANNEE 2020"
full_space 1 : 3d_color 1,0,0,255 : 3d_position 1,-8,-.5,1
for i = 0 to 360 step 2: 3d_x_rotate 1,i : pause 10 : next i
for i = 1 to .005 step -.005 : 3d_scale 1,i,i,i : pause 50 : next i
3d_text 2,"Panoramiciens et panoramiciennes" : 3d_color 2,255,0,0 : 3d_position 2,-4.5,-.5,1
for i = 0 to 360  step 2     : 3d_x_rotate 2,i  : pause 10 : next i
for i = 1 to .005 step -.005 : 3d_scale 2,i,i,i : pause 50 : next i
3d_text 3,"BONNE ANNEE A VOUS, A VOS FAMILLES ET A TOUS CEUX QUI VOUS SONT CHERS"
3d_color 3,0,255,0 : 3d_position 3,-1.5,-.5,3

for i = 0 to 500 step 2     : 3d_y_rotate 3,i  : 3d_z_rotate 3,i : pause 60 : next i
for i = 1 to .01 step -.005 : 3d_scale 3,i,i,i : pause 150 : next i
3d_position 3,-8,1.5,1 : 3d_color 3,255,255,0
for i = .01 to 0.7 step .005 : 3d_scale 3,i/2,i/2,i/2 : pause 100 : next i
pause 2000
for i = screen_y to 50 step -10 : height 0,i : pause 30 : next i
  
terminate
rem ============================================================================