about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--071print.mu6
-rw-r--r--edit.mu33
2 files changed, 22 insertions, 17 deletions
diff --git a/071print.mu b/071print.mu
index b3875364..f568b8f3 100644
--- a/071print.mu
+++ b/071print.mu
@@ -81,7 +81,7 @@ recipe print-character [
   }
   bg-color:number, bg-color-found?:boolean <- next-ingredient
   {
-    # default color to white
+    # default bg-color to black
     break-if bg-color-found?:boolean
     bg-color:number <- copy 0:literal/black
   }
@@ -605,7 +605,7 @@ recipe print-string [
   }
   bg-color:number, bg-color-found?:boolean <- next-ingredient
   {
-    # default color to white
+    # default bg-color to black
     break-if bg-color-found?:boolean
     bg-color:number <- copy 0:literal/black
   }
@@ -654,7 +654,7 @@ recipe print-integer [
   }
   bg-color:number, bg-color-found?:boolean <- next-ingredient
   {
-    # default color to white
+    # default bg-color to black
     break-if bg-color-found?:boolean
     bg-color:number <- copy 0:literal/black
   }
diff --git a/edit.mu b/edit.mu
index 11d2ab09..16643625 100644
--- a/edit.mu
+++ b/edit.mu
@@ -5,6 +5,9 @@ recipe main [
   open-console
   width:number <- display-width
   height:number <- display-height
+  # draw menu
+#?   draw-horizontal 0:literal/screen, 0:literal, 0:literal/left, width:number, 95:literal/underscore
+  draw-horizontal 0:literal/screen, 0:literal, 0:literal/left, width:number, 32:literal/space, 0:literal/black, 238:literal/grey
   # draw a dotted line down the middle
   divider:number, _ <- divide-with-remainder width:number, 2:literal
   draw-vertical 0:literal/screen, divider:number, 1:literal/top, height:number, 9482:literal/vertical-dotted
@@ -19,8 +22,8 @@ recipe main [
   # nav bar
   button-start:number <- subtract width:number, 20:literal
   move-cursor 0:literal/screen, 0:literal/row, button-start:number/column
-  run-button:address:array:character <- new [run (F9)   ]
-  print-string-with-gradient-background 0:literal/screen, run-button:address:array:character, 7:literal/white, 196:literal/bright-red, 202:literal/bright-pink
+  run-button:address:array:character <- new [  run (F9)  ]
+  print-string 0:literal/screen, run-button:address:array:character, 255:literal/white, 161:literal/reddish
   # editor on the left
   left:address:array:character <- new [abcde]
   left-editor:address:editor-data <- new-editor left:address:array:character, 0:literal/screen, 1:literal/top, 0:literal/left, divider:number/right
@@ -1826,11 +1829,16 @@ recipe draw-horizontal [
     break-if color-found?:boolean
     color:number <- copy 245:literal/grey
   }
+  bg-color:number, bg-color-found?:boolean <- next-ingredient
+  {
+    break-if bg-color-found?:boolean
+    bg-color:number <- copy 0:literal/black
+  }
   move-cursor screen:address, row:number, x:number
   {
     continue?:boolean <- lesser-than x:number, right:number
     break-unless continue?:boolean
-    print-character screen:address, style:character, color:number
+    print-character screen:address, style:character, color:number, bg-color:number
     x:number <- add x:number, 1:literal
     loop
   }
@@ -1932,11 +1940,11 @@ recipe print-string-with-gradient-background [
   bg-color2:number <- next-ingredient
   len:number <- length s:address:array:character/deref
   color-range:number <- subtract bg-color2:number, bg-color1:number
-  color-quantum:number <- divide-with-remainder len:number, color-range:number
-#?   close-console #? 1
+  color-quantum:number <- divide color-range:number, len:number
+#?   close-console #? 2
 #?   $print len:number, [, ], color-range:number, [, ], color-quantum:number, [ 
-#? ] #? 1
-#?   $exit #? 1
+#? ] #? 2
+#? #?   $exit #? 3
   bg-color:number <- copy bg-color1:number
   i:number <- copy 0:literal
   {
@@ -1945,14 +1953,11 @@ recipe print-string-with-gradient-background [
     c:character <- index s:address:array:character/deref, i:number
     print-character x:address:screen, c:character, color:number, bg-color:number
     i:number <- add i:number, 1:literal
-    # if i divides color-quantum, increment bg-color
-    {
-      _, continue-bg-color?:boolean <- divide-with-remainder i:number, color-quantum:number
-      break-if continue-bg-color?:number
-      # new bg color
-      bg-color:number <- add bg-color:number, 1:literal
-    }
+    bg-color:number <- add bg-color:number, color-quantum:number
+#?     $print [=> ], bg-color:number, [ 
+#? ] #? 1
     loop
   }
+#?   $exit #? 1
   reply x:address:screen/same-as-ingredient:0
 ]