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

.

This commit is contained in:
Kartik K. Agaram 2021-05-16 08:05:26 -07:00
parent 19525867ad
commit 5e484fb2d5
1 changed files with 52 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
ex11.mu
View File

@ -1,16 +1,17 @@
# Demo of an interactive app: controlling a Bezier curve on screen # Demo of an interactive app: controlling a Bezier curve on screen
fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) { fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
var p0-storage: point var env-storage: environment
var p0/ecx: (addr point) <- address p0-storage var env/esi: (addr environment) <- address env-storage
initialize-point p0, 5 5 initialize-environment env, 5 5, 0x80 0x100, 0x200 0x140
var p1-storage: point render screen, env
var p1/edx: (addr point) <- address p1-storage }
initialize-point p1, 0x80 0x100
var p2-storage: point type environment {
var p2/ebx: (addr point) <- address p2-storage p0: (handle point)
initialize-point p2, 0x200 0x140 p1: (handle point)
render screen, p0, p1, p2 p2: (handle point)
cursor: (handle point) # one of p0, p1 or p2
} }
type point { type point {
@ -18,17 +19,17 @@ type point {
y: int y: int
} }
fn initialize-point _p: (addr point), x: int, y: int { fn render screen: (addr screen), _self: (addr environment) {
var p/esi: (addr point) <- copy _p var self/esi: (addr environment) <- copy _self
var dest/eax: (addr int) <- get p, x var tmp-ah/ecx: (addr handle point) <- get self, p0
var src/ecx: int <- copy x var tmp/eax: (addr point) <- lookup *tmp-ah
copy-to *dest, src var p0/ebx: (addr point) <- copy tmp
dest <- get p, y tmp-ah <- get self, p1
src <- copy y tmp <- lookup *tmp-ah
copy-to *dest, src var p1/edx: (addr point) <- copy tmp
} tmp-ah <- get self, p2
tmp <- lookup *tmp-ah
fn render screen: (addr screen), p0: (addr point), p1: (addr point), p2: (addr point) { var p2/ecx: (addr point) <- copy tmp
# control lines # control lines
line screen, p0, p1, 7/color line screen, p0, p1, 7/color
line screen, p1, p2, 7/color line screen, p1, p2, 7/color
@ -69,3 +70,33 @@ fn disc screen: (addr screen), _p: (addr point), radius: int, color: int, border
var y/edx: (addr int) <- get p, y var y/edx: (addr int) <- get p, y
draw-disc screen, *x *y, radius, color, border-color draw-disc screen, *x *y, radius, color, border-color
} }
fn initialize-environment _self: (addr environment), x0: int, y0: int, x1: int, y1: int, x2: int, y2: int {
var self/esi: (addr environment) <- copy _self
var p0-ah/eax: (addr handle point) <- get self, p0
allocate p0-ah
var p0/eax: (addr point) <- lookup *p0-ah
initialize-point p0, x0 y0
var p1-ah/eax: (addr handle point) <- get self, p1
allocate p1-ah
var p1/eax: (addr point) <- lookup *p1-ah
initialize-point p1, x1 y1
var p2-ah/eax: (addr handle point) <- get self, p2
allocate p2-ah
var p2/eax: (addr point) <- lookup *p2-ah
initialize-point p2, x2 y2
# cursor initially at p0
var cursor-ah/edi: (addr handle point) <- get self, cursor
var src-ah/esi: (addr handle point) <- get self, p0
copy-object src-ah, cursor-ah
}
fn initialize-point _p: (addr point), x: int, y: int {
var p/esi: (addr point) <- copy _p
var dest/eax: (addr int) <- get p, x
var src/ecx: int <- copy x
copy-to *dest, src
dest <- get p, y
src <- copy y
copy-to *dest, src
}