diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-05-26 19:34:21 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-05-26 19:38:15 -0700 |
| commit | 45449a4f337427cbb13150d4cdc4391507363575 (patch) | |
| tree | 09f4f0d31038d682984f2e0d25b3fde78889fad4 | |
| parent | 81ecfebdb47b61fac29fef3db8e625d65b0640c0 (diff) | |
| download | mu-45449a4f337427cbb13150d4cdc4391507363575.tar.gz | |
1478
| -rw-r--r-- | 071print.mu | 4 | ||||
| -rw-r--r-- | 072scenario_screen.cc | 7 |
2 files changed, 6 insertions, 5 deletions
diff --git a/071print.mu b/071print.mu index 267d1aca..efa009f7 100644 --- a/071print.mu +++ b/071print.mu @@ -164,14 +164,14 @@ 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 + 1:address:screen <- print-character 1:address:screen, 97:literal/a, 1: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 + 5 <- 1 # red 6 <- 0 ] ] diff --git a/072scenario_screen.cc b/072scenario_screen.cc index 76392584..2e2dd976 100644 --- a/072scenario_screen.cc +++ b/072scenario_screen.cc @@ -22,14 +22,15 @@ scenario screen-in-scenario [ :(scenario screen_in_scenario_unicode) # screen-should-contain can check unicode characters in the fake screen -scenario screen-in-scenario [ +scenario screen-in-scenario-unicode-color [ assume-screen 5:literal/width, 3:literal/height run [ - screen:address <- print-character screen:address, 955:literal # 'λ' + screen:address <- print-character screen:address, 955:literal/greek-small-lambda, 1:literal/red + screen:address <- print-character screen:address, 97:literal/a ] screen-should-contain [ # 01234 - .λ . + .λa . . . . . ] |