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

press 'l' to loop, 'L' to stop looping

This commit is contained in:
Kartik K. Agaram 2021-05-16 21:29:38 -07:00
parent 3f916e6414
commit 92984d557e
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
hest-life.mu
View File

@ -36,6 +36,7 @@ type environment {
zoom: int # 0 = 1024 px per cell; 5 = 4px per cell; each step adjusts by a factor of 4
tick: int
play?: boolean
loop: int # if non-zero, return tick to 0 after this point
}
type cell {
@ -221,6 +222,24 @@ fn edit keyboard: (addr keyboard), _self: (addr environment) {
clear-environment self
return
}
# l: loop from here to start
{
compare key, 0x6c/l
break-if-!=
var tick-a/eax: (addr int) <- get self, tick
var tick/eax: int <- copy *tick-a
var loop/ecx: (addr int) <- get self, loop
copy-to *loop, tick
return
}
# L: reset loop
{
compare key, 0x4c/L
break-if-!=
var loop/eax: (addr int) <- get self, loop
copy-to *loop, 0
return
}
}
fn pause _self: (addr environment) {
@ -255,6 +274,15 @@ fn step _self: (addr environment) {
break-if-!=
step4 self
}
var loop-a/eax: (addr int) <- get self, loop
compare *loop-a, 0
{
break-if-=
var loop/eax: int <- copy *loop-a
compare *tick-a, loop
break-if-<
clear-environment self
}
}
fn initialize-environment _self: (addr environment) {