Custom Text Formatting (Previously: Getting long results in a program)

[Tyann]

Bonjour komame

Après réflexion une seule fonction atextout_p(...l) me semble pas mal.
Nous pourrons savoir grâce à la taille de la liste de 8 ou 9 si on est en transparence ou pas
sans valeur par défaut et pour les variables je propose de récupérer celles ci sur une seule ligne
de la manière suivante :

Hello komame

After some thought, a single atextout_p(...l) function doesn't seem too bad.
We'll be able to tell from the size of the list of 8 or 9 whether we're in transparency or not
without a default value and for the variables I propose to retrieve them on a single line
as follows:

Code:


atextout_p(...par)
BEGIN
 LOCAL s,g,x,y,p,c,a,l
 LOCAL f,fr
 {'s','g','x','y','p','c','a','l'}:=par({1,8});
 IF SIZE(par)==9 THEN f:=par(9); fr=1;END.
............
END;

fr sera le drapeau de recouvrement pour décider si nous copions Gx dans le buffer ou si nous le remplissons avec RECT_P() à la couleur f.
Je vais avoir moins de temps cette semaine, mais je vais tacher d'avancé la dessus.
Bien à vous.

'fr' will be the overlay flag to decide whether we copy Gx into the buffer or fill it with RECT_P() at colour f.
I'll have less time this week, but I'll try to make some progress on this.
All the best.