about summary refs log tree commit diff stats
path: root/html/071print.mu.html
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-07-12 00:11:56 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-07-12 00:11:56 -0700
commitd5d908dda655c791329563522faad42d7e4ee618 (patch)
tree628b8a23e13878c45ef39dfbffb860c676da5304 /html/071print.mu.html
parent9864bdd0792b697d7b03e692ba7f82cf5669c41c (diff)
downloadmu-d5d908dda655c791329563522faad42d7e4ee618.tar.gz
1766
Diffstat (limited to 'html/071print.mu.html')
-rw-r--r--html/071print.mu.html25
1 files changed, 22 insertions, 3 deletions
diff --git a/html/071print.mu.html b/html/071print.mu.html
index 7fe33765..29e893bf 100644
--- a/html/071print.mu.html
+++ b/html/071print.mu.html
@@ -113,6 +113,13 @@ container screen-cell [
     <span class="muControl">break-if</span> color-found?:boolean
     color:number<span class="Special"> &lt;- </span>copy <span class="Constant">7:literal/white</span>
   <span class="Delimiter">}</span>
+  bg-color:number, bg-color-found?:boolean<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
+  <span class="Delimiter">{</span>
+    <span class="Comment"># default bg-color to black</span>
+    <span class="muControl">break-if</span> bg-color-found?:boolean
+    bg-color:number<span class="Special"> &lt;- </span>copy <span class="Constant">0:literal/black</span>
+  <span class="Delimiter">}</span>
+<span class="CommentedCode">#?   trace [app], [print character] #? 1</span>
   <span class="Delimiter">{</span>
     <span class="Comment"># if x exists</span>
     <span class="Comment"># (handle special cases exactly like in the real screen)</span>
@@ -180,7 +187,7 @@ container screen-cell [
     <span class="muControl">reply</span> x:address:screen/same-as-ingredient:0
   <span class="Delimiter">}</span>
   <span class="Comment"># otherwise, real screen</span>
-  print-character-to-display c:character, color:number
+  print-character-to-display c:character, color:number, bg-color:number
   <span class="muControl">reply</span> x:address:screen/same-as-ingredient:0
 ]
 
@@ -631,13 +638,19 @@ container screen-cell [
     <span class="muControl">break-if</span> color-found?:boolean
     color:number<span class="Special"> &lt;- </span>copy <span class="Constant">7:literal/white</span>
   <span class="Delimiter">}</span>
+  bg-color:number, bg-color-found?:boolean<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
+  <span class="Delimiter">{</span>
+    <span class="Comment"># default bg-color to black</span>
+    <span class="muControl">break-if</span> bg-color-found?:boolean
+    bg-color:number<span class="Special"> &lt;- </span>copy <span class="Constant">0:literal/black</span>
+  <span class="Delimiter">}</span>
   len:number<span class="Special"> &lt;- </span>length s:address:array:character/deref
   i:number<span class="Special"> &lt;- </span>copy <span class="Constant">0:literal</span>
   <span class="Delimiter">{</span>
     done?:boolean<span class="Special"> &lt;- </span>greater-or-equal i:number, len:number
     <span class="muControl">break-if</span> done?:boolean
     c:character<span class="Special"> &lt;- </span>index s:address:array:character/deref, i:number
-    print-character x:address:screen, c:character, color:number
+    print-character x:address:screen, c:character, color:number, bg-color:number
     i:number<span class="Special"> &lt;- </span>add i:number, <span class="Constant">1:literal</span>
     <span class="muControl">loop</span>
   <span class="Delimiter">}</span>
@@ -674,9 +687,15 @@ container screen-cell [
     <span class="muControl">break-if</span> color-found?:boolean
     color:number<span class="Special"> &lt;- </span>copy <span class="Constant">7:literal/white</span>
   <span class="Delimiter">}</span>
+  bg-color:number, bg-color-found?:boolean<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
+  <span class="Delimiter">{</span>
+    <span class="Comment"># default bg-color to black</span>
+    <span class="muControl">break-if</span> bg-color-found?:boolean
+    bg-color:number<span class="Special"> &lt;- </span>copy <span class="Constant">0:literal/black</span>
+  <span class="Delimiter">}</span>
   <span class="Comment"># todo: other bases besides decimal</span>
   s:address:array:character<span class="Special"> &lt;- </span>integer-to-decimal-string n:number
-  print-string x:address:screen, s:address:array:character, color:number
+  print-string x:address:screen, s:address:array:character, color:number, bg-color:number
   <span class="muControl">reply</span> x:address:screen/same-as-ingredient:0
 ]
 </pre>