2021-01-10 02:55:24 +00:00
|
|
|
fn draw-text-rightward screen: (addr screen), text: (addr array byte), x: int, y: int, color: int {
|
|
|
|
var stream-storage: (stream byte 0x100)
|
|
|
|
var stream/esi: (addr stream byte) <- address stream-storage
|
|
|
|
write stream, text
|
2021-01-10 02:28:27 +00:00
|
|
|
{
|
2021-01-10 02:55:24 +00:00
|
|
|
var g/eax: grapheme <- read-grapheme stream
|
|
|
|
compare g, 0xffffffff # end-of-file
|
|
|
|
break-if-=
|
|
|
|
draw-grapheme screen, g, x, y, color
|
2021-01-10 02:28:27 +00:00
|
|
|
add-to x, 8 # font-width
|
|
|
|
loop
|
|
|
|
}
|
|
|
|
}
|