TEXTOUT_P : width ?

[eried]

(10-03-2015 08:56 AM)komame Wrote:  I created a function that calculates the width (in pixels) of the text, but it is not very useful, because it is very slow.
However, I believe that it is possible to optimize and significantly speed up. I have some ideas.

Code:

TEXT_P_W();

EXPORT TEXT_WIDTH()
BEGIN
local width; 
 PRINT();
 width:=TEXT_P_W("ABC abc 123",1);
 PRINT(width);
 width:=TEXT_P_W("ABC abc 123",3);
 PRINT(width);
 width:=TEXT_P_W("ABC abc 123",7);
 PRINT(width);
END;

TEXT_P_W(t,s)
BEGIN
 local x,y;
 DIMGROB(G9,320,40);
 TEXTOUT_P(t,G9,0,0,s);
 FOR x FROM 319 DOWNTO 0 DO
  FOR y FROM 0 TO 39 DO
   IF(GETPIX_P(G9,x,y)≠#FFFFFF) THEN
    RETURN x;
   END;
  END;
 END;
END;

function TEXT_P_W(t,s), where:
t - the text to calculate width
s - font size

Having fixed fonts maybe is faster just having an array with the known char widths per font size