TEXTOUT_P : width ?

[komame]

This is the fastest way I found to calculacte the width and height of the text.

The following functions should take less than 2ms.

Width:

Code:

TEXTW_P(t,s)
BEGIN
 local x,a=0,b=511,m;
 DIMGROB_P(G9,512,1);
 TEXTOUT_P(t,G9,0,0,s,0,511,0);
 FOR x FROM 1 TO 10 DO
   IP((a+b)/2)▶m;
   IFTE(GETPIX_P(G9,m,0)=#FFFFFFh,m▶b,m▶a);
 END;
 RETURN m;
END;

Height:

Code:

TEXTH_P(t,s)
BEGIN
 local x,a=0,b=31,m;
 DIMGROB_P(G9,1,32);
 TEXTOUT_P(t,G9,0,0,s,0,1,0);
 FOR x FROM 1 TO 6 DO
   IP((a+b)/2)▶m;
   IFTE(GETPIX_P(G9,0,m)=#FFFFFFh,m▶b,m▶a);
 END;
 RETURN m;
END;

as before:
t - text for check the width or height
s - font size (0 = default from Home settings)

During the performance tests when I created this solution I think I detected a bug (very little) in the function TEXTOUT_P, but I will write about this in a separate thread.