Possible bug: Word-wrap oddity

[SMcNeill]

One thing to keep in mind @Pete -- fonts don't always keep the same ratio. Our default is 8x16, which is what you're probably thinking of, but lucon is 10x16...

Code: (Select All)

Option _Explicit
Option Base 1

Dim handle As Long, fontpath As String, font As Long, i As Integer
handle& = _NewImage(800, 600, 256)
Screen handle&

fontpath$ = Environ$("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path.
font& = _LoadFont(fontpath$, 16)
_Font font&
_Delay .1

Locate , 800 - _PrintWidth("*"): Print "*";
Print _PrintWidth("*")

Sleep

Cls
' This should print as one line, but the last asterisk gets wrapped.
For i = 1 To 80
    Print "*";
Next
End

Notice by backing up the proper number of pixels, that astrick doesn't wrap like it does for you.