diff options
| -rw-r--r-- | 081print.mu | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/081print.mu b/081print.mu index 77f295a5..487696c5 100644 --- a/081print.mu +++ b/081print.mu @@ -704,7 +704,25 @@ def print screen:&:screen, n:num -> screen:&:screen [ screen <- print screen, s, color, bg-color ] -# addresses +def print screen:&:screen, n:bool -> screen:&:screen [ + local-scope + load-ingredients + color:num, color-found?:bool <- next-ingredient + { + # default color to white + break-if color-found? + color <- copy 7/white + } + bg-color:num, bg-color-found?:bool <- next-ingredient + { + # default bg-color to black + break-if bg-color-found? + bg-color <- copy 0/black + } + n2:num <- copy n + screen <- print screen, n2, color, bg-color +] + def print screen:&:screen, n:&:_elem -> screen:&:screen [ local-scope load-ingredients |