TEXTOUT_P : width ?

[komame]

After minor changes I managed to get a little faster version.
The time required for the calculation is ~1.5ms for width and ~0.9ms for height.

Width v2:

Code:

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

Height v2:

Code:

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