Titre en relief

DIM x%,y%,a$
PICTURE 1: FULL_SPACE 1
FONT_NAME 1,"Arial": FONT_SIZE 1,64: FONT_BOLD 1: FONT_COLOR 1,255,0,0
x% = 10: y% = 5: a$ = "Panoramic"
Txt_Relief(1,a$,x%,y%)
END

SUB Txt_Relief(p%,txt$,sz%,rgb%,x%,y%)
  ' Texte txt$ en relief dans l'objet graphique p%, en x%,y%
  ' Taille sz%, couleur rgb% (=R*65536+G*256+B)
  ' Si txt$ comporte plusieurs lignes: séparées par des retour chariot/interligne
  ' (Tracé du texte à fond transparent, fonte et enrichissements courants)
  DIM_LOCAL tpr%,t2d%,e%,r%,g%,b%,k%,a$
  e% = sz%/10: ' profondeur du relief, à ajuster éventuellement
  tpr% = NUMBER_PRINT_TARGET: t2d% = NUMBER_2D_TARGET
  r% = INT(rgb%/65536): g% = BIN_AND(rgb%,65280)/256: b% = BIN_AND(rgb%,255) 
  FONT_SIZE p%,sz%: PRINT_TARGET_IS p%: 2D_TARGET_IS p%: 2D_FILL_OFF
  WHILE txt$<>""
      a$ = txt$: k% = INSTR(a$,CHR$(13)+CHR$(10))
      IF k%>0
          a$ = LEFT$(a$,k%-1): txt$ = RIGHT_POS$(txt$,k%+2)
      ELSE
          txt$ = ""
      END_IF
      IF TRIM$(a$) <> ""
          FONT_COLOR p%,0,0,0: PRINT_LOCATE x%+e%,y%+e%: PRINT a$
          FONT_COLOR p%,r%,g%,b%: PRINT_LOCATE x%,y%: PRINT a$
      END_IF
      y% = y%+TEXT_HEIGHT(a$,p%)
  END_WHILE
  PRINT_TARGET_IS tpr%: 2D_TARGET_IS t2d%     
END_SUB