TEXTOUT_P : width ?

[Tyann]

Bonjour
Ces deux fonctions sont très utiles, bravo et merci
Si je peut me permettre une suggestion.
Ici vous utilisez G9, et cela peut engendrer un conflit, si
le programmeur n'y pense pas.
Il est possible de mettre en paramètres la variable Gx à utiliser
ainsi le programmeur qui utilisera vos fonctions choisira lui même.

Qu'en pensez-vous ?

Hello
These two functions are very useful, congratulations and thank you
If I may make a suggestion .
Here you use G9, and this may create a conflict if
the programmer does not think .
You can set parameters to use the variable Gx
and the programmer who will use your duties will choose itself.

What do you think ?

Code:


EXPORT TEXTW_P(t,g,s)
BEGIN
 LOCAL x,a,b:=511,m;
 DIMGROB(g,512,1);
 TEXTOUT_P(t,g,0,0,s,0,511,0);
 FOR x FROM 1 TO 10 DO
  m:=IP((a+b)/2);
  IFTE(GETPIX_P(g,m,0)==#FFFFFFh,m▶b,m▶a);
 END;
 m;
END;