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

.

This commit is contained in:
Kartik K. Agaram 2021-05-07 12:46:41 -07:00
parent 150db8d56a
commit c5f50f05b7
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
shell/data.limg
View File

@ -82,14 +82,16 @@
(when (<= r y)
(set err
(+ err
(+ 1 (* 2 (set y (+ y 1)))))))
(+ 1 (* 2 (set y (+ y 1))))))
)
(when (or (> r x) (> err y))
(set err
(+ err
(+ 1 (* 2 (set x (+ x 1)))))))
(+ 1 (* 2 (set x (+ x 1))))))
)
(set continue (< x 0)))))))))])
(main . [(def main (fn (screen keyboard)
(chessboard screen 16)))])
))
(sandbox . (brline screen 1 1 5 5 4))
(sandbox . (brcircle screen 14 8 6 2))
)

6
shell/sandbox.mu
View File

@ -176,7 +176,7 @@ fn maybe-render-empty-screen screen: (addr screen), _self: (addr sandbox), xmin:
var screen-obj-ah/eax: (addr handle screen) <- get screen-obj-cell, screen-data
var _screen-obj/eax: (addr screen) <- lookup *screen-obj-ah
var screen-obj/edx: (addr screen) <- copy _screen-obj
var x/eax: int <- draw-text-rightward screen, "screen: ", xmin, 0x99/xmax, y, 7/fg, 0xc5/bg=blue-bg
var x/eax: int <- draw-text-rightward screen, "screen: ", xmin, 0x99/xmax, y, 0x17/fg, 0xc5/bg=blue-bg
y <- render-empty-screen screen, screen-obj, x, y
return y
}
@ -205,7 +205,7 @@ fn maybe-render-screen screen: (addr screen), _self: (addr sandbox), xmin: int,
break-if-=
return ymin
}
var x/eax: int <- draw-text-rightward screen, "screen: ", xmin, 0x99/xmax, ymin, 7/fg, 0xc5/bg=blue-bg
var x/eax: int <- draw-text-rightward screen, "screen: ", xmin, 0x99/xmax, ymin, 0x17/fg, 0xc5/bg=blue-bg
var y/ecx: int <- copy ymin
y <- render-screen screen, screen-obj, x, y
return y
@ -363,7 +363,7 @@ fn maybe-render-keyboard screen: (addr screen), _self: (addr sandbox), xmin: int
var keyboard-obj/edx: (addr gap-buffer) <- copy _keyboard-obj
var y/ecx: int <- copy ymin
y <- increment # padding
var x/eax: int <- draw-text-rightward screen, "keyboard: ", xmin, 0x99/xmax, y, 7/fg, 0xc5/bg=blue-bg
var x/eax: int <- draw-text-rightward screen, "keyboard: ", xmin, 0x99/xmax, y, 0x17/fg, 0xc5/bg=blue-bg
var cursor-in-keyboard?/esi: (addr boolean) <- get self, cursor-in-keyboard?
y <- render-keyboard screen, keyboard-obj, x, y, *cursor-in-keyboard?
y <- increment # padding