Bulle de texte sur image

DIM x,y,x1,y1,txt$,rc$
rc$ = CHR$(13)+CHR$(10)
PICTURE 1: WIDTH 1,523: HEIGHT 1,478: COLOR 1,200,200,200
file_load 1,"c:\Graph\Jpg\Astrnaut.jpg": ' à voir...
2D_TARGET_IS 1: PRINT_TARGET_IS 1
FONT_SIZE 1,12
x = 30: y = 30
x1 = 300: y1 = 150
txt$ = "   Salut les amis !"+rc$+"Bon sang, ça caille !"
Texte_Bulle(x,y,x1,y1,txt$)
FILE_SAVE 1,"Z:\Astrnaut.bmp"
END

SUB Texte_Bulle(x,y,x1,y1,txt$)
  ' Apposition d'un texte centré dans une bulle sur le 2d_Target/Print_Target
  ' Ellipse/bulle en x,y (haut/gauche), pointe de la bulle en x1,y1
  ' (police, taille et couleur actuels)
  DIM_LOCAL mm,xc,yc,i,j,dd,hl,w,h,wt,ht,ob
  ob = NUMBER_PRINT_TARGET
  mm=900: MEMO mm: HIDE mm: WIDTH mm,1000: ITEM_ADD mm,txt$: wt = 0
  FOR i = 1 TO COUNT(mm)
       j = TEXT_WIDTH(ITEM_READ$(mm,i),ob): IF j>wt THEN wt = j
  NEXT i
  hl = TEXT_HEIGHT(ITEM_READ$(mm,1),ob): ht = hl*COUNT(mm)
  w = 6*wt/4: h = 3*ht/2
  xc = x+w/2: yc = y+h/2: dd = w/4  
  2D_ELLIPSE x,y,x+w,y+h
  2D_PEN_COLOR 255,255,255
  FOR i = xc-dd TO xc+dd: 2D_LINE x1,y1,i,yc: NEXT i
  2D_PEN_COLOR 0,0,0
  2D_LINE x1,y1,xc-dd,yc: 2D_LINE x1,y1,xc+dd,yc  
  2D_PEN_COLOR 255,255,255: 2D_ELLIPSE x+1,y+1,x+w-2,y+h-2
  2D_PEN_COLOR 0,0,0
  x = xc-wt/2: y = yc-ht/2-hl/4+3
  FOR i = 1 TO COUNT(mm)
      PRINT_LOCATE x,y: PRINT ITEM_READ$(mm,i): y = y+hl
  NEXT i
  DELETE mm
END_SUB