From 0e4a335edc7d4e584924fd6b298156e45d2626c8 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 6 Sep 2015 16:35:46 -0700
Subject: 2175

---
 html/073scenario_screen_test.mu.html | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

(limited to 'html/073scenario_screen_test.mu.html')

diff --git a/html/073scenario_screen_test.mu.html b/html/073scenario_screen_test.mu.html
index aa6f42b9..556fe973 100644
--- a/html/073scenario_screen_test.mu.html
+++ b/html/073scenario_screen_test.mu.html
@@ -13,10 +13,9 @@
 pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; }
 body { font-family: monospace; color: #eeeeee; background-color: #080808; }
 * { font-size: 1.05em; }
-.muScenario { color: #00af00; }
 .Comment { color: #9090ff; }
-.Constant { color: #00a0a0; }
 .Special { color: #ff6060; }
+.Identifier { color: #804000; }
 -->
 </style>
 
@@ -30,31 +29,31 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; }
 <pre id='vimCodeElement'>
 <span class="Comment"># To check our support for screens in scenarios, rewrite tests from print.mu</span>
 
-<span class="muScenario">scenario</span> print-character-at-top-left-2 [
-  assume-screen <span class="Constant">3/width</span>, <span class="Constant">2/height</span>
+scenario <span class="Identifier">print</span>-character-at-top-left-2 [
+  <span class="Identifier">assume</span>-screen 3/width, 2/height
   run [
-    screen:address<span class="Special"> &lt;- </span>print-character screen:address, <span class="Constant">97/a</span>
+    screen:address<span class="Special"> &lt;- </span><span class="Identifier">print</span>-character screen:address, 97/a
   ]
   screen-should-contain [
-   <span class="Constant"> .a  .</span>
-   <span class="Constant"> .   .</span>
+    .a  .
+    .   .
   ]
 ]
 
-<span class="muScenario">scenario</span> clear-line-erases-printed-characters-2 [
-  assume-screen <span class="Constant">5/width</span>, <span class="Constant">3/height</span>
+scenario clear-line-erases-printed-characters-2 [
+  <span class="Identifier">assume</span>-screen 5/width, 3/height
   run [
     <span class="Comment"># print a character</span>
-    screen:address<span class="Special"> &lt;- </span>print-character screen:address, <span class="Constant">97/a</span>
+    screen:address<span class="Special"> &lt;- </span><span class="Identifier">print</span>-character screen:address, 97/a
     <span class="Comment"># move cursor to start of line</span>
-    screen:address<span class="Special"> &lt;- </span>move-cursor screen:address, <span class="Constant">0/row</span>, <span class="Constant">0/column</span>
+    screen:address<span class="Special"> &lt;- </span>move-cursor screen:address, 0/row, 0/column
     <span class="Comment"># clear line</span>
     screen:address<span class="Special"> &lt;- </span>clear-line screen:address
   ]
   screen-should-contain [
-   <span class="Constant"> .     .</span>
-   <span class="Constant"> .     .</span>
-   <span class="Constant"> .     .</span>
+    .     .
+    .     .
+    .     .
   ]
 ]
 </pre>
-- 
cgit 1.4.1-2-gfad0