@mrdarek Quote:
If I understand you right, I don't think that will *always* work, because there is no guarantee that someone will have exactly the same font as you, nor that their version of OS4 will render it exactly the same way.

Quote:
That should not be a problem: You only need to assume it is linear (to get a rough estimate), and then do a few loops to improve your estimate. I suggest that 10 loops will probably be enough.

The mathematical Newton-Ralphson method does something like this, and it works pretty well for calculating curved things. (Don't bother to read-up on that method, it won't help you here, well unless you love maths.)

OK,
Function y=f(x) lettersize=f(gamenamesize) is not linear so calculation will be hard and different for different fonts. I decide use precalculated table with best fontsize for every 100 px screen from 200 to 2000 width. it will be not scalable as I wish but gamename should be visible (readable) at any window size.

@mrdarek
At a guess, OS4 is having to generate a HUGE number of (differently sized) fonts for your program, and this takes some time. But after the first run they are cached, and so your program runs fast.

So you need to fix your algorithm to try (a lot!) fewer font sizes. The simplest (and least effective) solution would be to make z3 increase in a larger (but still fixed) jump than +1.

A better solution would make a crude estimate of how large z3 needs to be, based on the difference between z1 & width (exactly what you do with that difference would take a bit of experimentation, although I have some good ideas). If you loop using your estimate, you need to be sure it can't get stuck in the loop (nor do lots of loops trying to get the "perfect" result), but I suspect you can get away with not using a loop.

Now I try perfectly fit MyGameName in game window. My code is:
<pre>
PROC DrawBoardMenu()
SetColour(MakeRGB(col_a1,col_a2,col_a3))
DrawBox (0,0,width,height) -> board clear
SetColour(MakeRGB(col_c1,col_c2,col_c3))
z3:=15
REPEAT
z3++
-> SetFont('Nimbus Roman No9 L Medium', z3,4)
SetFont('Bitstream Vera Sans', z3,2)
z1,z2temp:=InfoSizeOfTextL('MyGameName',[])!!INT
UNTIL z1 >= (width-10)
z3--
-> SetFont('Nimbus Roman No9 L Medium', z3,4)
SetFont('Bitstream Vera Sans', z3,2)
DrawTextL (0,0,'MyGameName',[],$000000)

ENDPROC -> 'end DrawBoardMenu

</pre>
But first run this code take very long time - near 10 second!!! After closing and run again program work immediatelly. After reset amiga - again I need wait 10 second for first run...

How speed-up first run program?