akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

This commit is contained in:
Kartik K. Agaram 2021-04-19 10:34:22 -07:00
parent 1114442c23
commit c22874a97f
1 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
500fake-screen.mu
View File

@ -83,39 +83,6 @@ fn screen-size _screen: (addr screen) -> _/eax: int, _/ecx: int {
return width, height
}
fn pixel screen: (addr screen), x: int, y: int, color: int {
{
compare screen, 0
break-if-!=
pixel-on-real-screen x, y, color
return
}
# fake screen
# prepare a pixel
var pixel-storage: pixel
var src/ecx: int <- copy x
var dest/edx: (addr int) <- get pixel-storage, x
copy-to *dest, src
src <- copy y
dest <- get pixel-storage, y
copy-to *dest, src
src <- copy color
dest <- get pixel-storage, color
copy-to *dest, src
# save it
var src/ecx: (addr pixel) <- address pixel-storage
var screen/eax: (addr screen) <- copy screen
var dest-stream-ah/eax: (addr handle stream pixel) <- get screen, pixels
var dest-stream/eax: (addr stream pixel) <- lookup *dest-stream-ah
{
var full?/eax: boolean <- stream-full? dest-stream
compare full?, 0/false
break-if-=
abort "tried to draw too many pixels on the fake screen; adjust initialize-screen"
}
write-to-stream dest-stream, src
}
# testable screen primitive
fn draw-grapheme _screen: (addr screen), g: grapheme, x: int, y: int, color: int, background-color: int {
var screen/esi: (addr screen) <- copy _screen
@ -454,3 +421,36 @@ fn screen-background-color-at-idx _screen: (addr screen), idx-on-stack: int -> _
var result/eax: int <- copy *src
return result
}
fn pixel screen: (addr screen), x: int, y: int, color: int {
{
compare screen, 0
break-if-!=
pixel-on-real-screen x, y, color
return
}
# fake screen
# prepare a pixel
var pixel-storage: pixel
var src/ecx: int <- copy x
var dest/edx: (addr int) <- get pixel-storage, x
copy-to *dest, src
src <- copy y
dest <- get pixel-storage, y
copy-to *dest, src
src <- copy color
dest <- get pixel-storage, color
copy-to *dest, src
# save it
var src/ecx: (addr pixel) <- address pixel-storage
var screen/eax: (addr screen) <- copy screen
var dest-stream-ah/eax: (addr handle stream pixel) <- get screen, pixels
var dest-stream/eax: (addr stream pixel) <- lookup *dest-stream-ah
{
var full?/eax: boolean <- stream-full? dest-stream
compare full?, 0/false
break-if-=
abort "tried to draw too many pixels on the fake screen; adjust initialize-screen"
}
write-to-stream dest-stream, src
}