Texte incliné

DIM a$
PICTURE 1: FULL_SPACE 1: PRINT_TARGET_IS 1: 2D_TARGET_IS 1: 2D_FILL_OFF
FONT_NAME 1,"Arial": FONT_SIZE 1,18
a$ = "Salut les panoramiciens !"
Text_Incline(a$,20,20,10)
END

SUB Text_Incline(a$,x,y,an)
  ' Affichage sur Print_Target de a$ en x,y
  ' Texte incliné de an degrés, positif vers le bas, négatif vers le haut
  ' NB les caractères sont décalés verticalement mais restent verticaux
  DIM_LOCAL p,i,b$,lt,hc,wt,ht,w,h,x1,y1,x2,y2
  p = NUMBER_PRINT_TARGET
  lt = LEN(a$): wt = TEXT_WIDTH(a$,p): hc = TEXT_HEIGHT(a$,p)
  DEGREES
  i = wt*TAN(an): h = i/LEN(a$): ' décalage vertical en pixels
  x1 = x: y1 = y: ' origine de l'enveloppe
  FOR i = 1 TO LEN(a$)
      b$ = MID$(a$,i,p): w = TEXT_WIDTH(b$,p)
      PRINT_LOCATE x,y: PRINT b$
      x = x+w: x2 = x: y2 = y: y = y+h
  NEXT i
  IF an > 0 THEN y2 = y2+hc: ELSE: y1 = y1+hc
  ' 2d_fill_off: 2d_rectangle x1,y1,x2,y2: ' enveloppe = x1,y1,x2,y2
END_SUB

rem ============================================================================
Clin_D_Oeil_A_JL35()
end
rem ============================================================================
SUB Clin_D_Oeil_A_JL35()
 dim_local i
 full_space 0 : caption 0,"Clin d'œil à JL35"
 scene3d 1 : color 1, 0,0,0 : 3d_text 1,"JL35 PAPYDALL TE SALUE" : full_space 1
 3d_color 1,0,0,255 : 3d_position 1,-6.8,-.5,1
 for i = 0 to 360 step 2: 3d_x_rotate 1,i : wait 10 : next i
 for i = 1 to .005 step -.005 : 3d_scale 1,i,i,i : wait 10 : next i
 3d_text 2,"JE M'INCLINE DEVANT TON TEXTE INCLINE" : 3d_color 2,255,0,0
 3d_position 2,-6.8,-.5,1 : pause 1000
 for i = 0 to 360 step 2: 3d_x_rotate 2,i : wait 20 : next i
 for i = 1 to .005 step -.005 : 3d_scale 2,i*2,i*2,i*2 : wait 20 : next i
 3d_text 3,"BONNE PROGRAMMATION EN PANORAMIC" : 3d_color 3,0,255,0
 3d_position 3,-1.5,-.5,1
 for i = 0 to 500 step 2 : 3d_y_rotate 3,i : 3d_z_rotate 3,i : wait 30 : next i
 for i = 1 to .01 step -.005 : 3d_scale 3,i,i,i : wait 30 : next i  
 3d_position 3,-7,1.5,0.5 : 3d_color 3,255,0,0
 for i = .1 to 1.8 step .005 : 3d_scale 3,i/3,i/3,i/3 : wait 10 : next i
END_SUB
rem ============================================================================