17 lines
472 B
Forth
17 lines
472 B
Forth
|
fn draw-text-rightward screen: (addr screen), _text: (addr array byte), x: int, y: int, color: int {
|
||
|
|
var text/esi: (addr array byte) <- copy _text
|
||
|
|
var len/ecx: int <- length text
|
||
|
|
var i/edx: int <- copy 0
|
||
|
|
{
|
||
|
|
compare i, len
|
||
|
|
break-if->=
|
||
|
|
var g/eax: (addr byte) <- index text, i
|
||
|
|
var g2/eax: byte <- copy-byte *g
|
||
|
|
var g3/eax: grapheme <- copy g2
|
||
|
|
draw-grapheme screen, g3, x, y, color
|
||
|
|
add-to x, 8 # font-width
|
||
|
|
i <- increment
|
||
|
|
loop
|
||
|
|
}
|
||
|
|
}
|