diff options
| -rw-r--r-- | apps/tile/environment.mu | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 776b4185..5c17a97d 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -1899,20 +1899,6 @@ fn render-column screen: (addr screen), functions: (addr handle function), bindi return right-col } -fn clear-canvas _env: (addr environment) { - var env/esi: (addr environment) <- copy _env - var screen-ah/edi: (addr handle screen) <- get env, screen - var _screen/eax: (addr screen) <- lookup *screen-ah - var screen/edi: (addr screen) <- copy _screen - clear-screen screen - var nrows/eax: (addr int) <- get env, nrows - var sep-col/ecx: (addr int) <- get env, code-separator-col - # divider - draw-vertical-line screen, 1, *nrows, *sep-col - # primitives - var dummy/eax: int <- render-primitives screen, *nrows, *sep-col -} - # wordstar-style cheatsheet of shortcuts fn render-menu _env: (addr environment) { var env/esi: (addr environment) <- copy _env @@ -1967,6 +1953,20 @@ fn render-menu _env: (addr environment) { print-string screen, " define function " } +fn clear-canvas _env: (addr environment) { + var env/esi: (addr environment) <- copy _env + var screen-ah/edi: (addr handle screen) <- get env, screen + var _screen/eax: (addr screen) <- lookup *screen-ah + var screen/edi: (addr screen) <- copy _screen + clear-screen screen + var nrows/eax: (addr int) <- get env, nrows + var sep-col/ecx: (addr int) <- get env, code-separator-col + # divider + draw-vertical-line screen, 1, *nrows, *sep-col + # primitives + var dummy/eax: int <- render-primitives screen, *nrows, *sep-col +} + # return value: top-most row written to fn render-primitives screen: (addr screen), bottom-margin-row: int, right-col: int -> _/eax: int { # render primitives from the bottom of the screen upward |