diff options
-rw-r--r-- | 071print.mu | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/071print.mu b/071print.mu index 6d8737a7..267d1aca 100644 --- a/071print.mu +++ b/071print.mu @@ -161,6 +161,21 @@ scenario print-character-at-top-left [ ] ] +scenario print-character-color [ + run [ + 1:address:screen <- init-fake-screen 3:literal/width, 2:literal/height + 1:address:screen <- print-character 1:address:screen, 97:literal/a, 2:literal/red + 2:address:array:screen-cell <- get 1:address:screen/deref, data:offset + 3:array:screen-cell <- copy 2:address:array:screen-cell/deref + ] + memory-should-contain [ + 3 <- 6 # width*height + 4 <- 97 # 'a' + 5 <- 2 # red + 6 <- 0 + ] +] + scenario print-backspace-character [ run [ #? $start-tracing #? 3 |