05-04-2022, 10:35 AM
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...
Notice by backing up the proper number of pixels, that astrick doesn't wrap like it does for you.
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.