From 83fcebf3210b638d9f8248e0007e9f0c9804980a Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 13 Jul 2015 20:53:41 -0700 Subject: 1778 --- html/chessboard.mu.html | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'html/chessboard.mu.html') diff --git a/html/chessboard.mu.html b/html/chessboard.mu.html index 7de573ec..42e9f776 100644 --- a/html/chessboard.mu.html +++ b/html/chessboard.mu.html @@ -13,15 +13,15 @@ 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; } +.muRecipe { color: #ff8700; } .Delimiter { color: #a04060; } +.muScenario { color: #00af00; } .SalientComment { color: #00ffff; } .Comment { color: #9090ff; } .Constant { color: #00a0a0; } .Special { color: #ff6060; } .CommentedCode { color: #6c6c6c; } .muControl { color: #c0a020; } -.muRecipe { color: #ff8700; } --> @@ -117,7 +117,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } recipe chessboard [ #? $start-tracing [schedule] #? 2 #? $start-tracing #? 1 - default-space:address:array:location <- new location:type, 30:literal + new-default-space screen:address <- next-ingredient console:address <- next-ingredient #? $print [screen: ], screen:address, [, console: ], console:address, [ @@ -173,7 +173,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } ## a board is an array of files, a file is an array of characters (squares) recipe new-board [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space initial-position:address:array:number <- next-ingredient # assert(length(initial-position) == 64) len:number <- length initial-position:address:array:number/deref @@ -194,7 +194,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } ] recipe new-file [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space position:address:array:number <- next-ingredient index:number <- next-ingredient index:number <- multiply index:number, 8:literal @@ -213,7 +213,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } ] recipe print-board [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space screen:address <- next-ingredient board:address:array:address:array:character <- next-ingredient row:number <- copy 7:literal # start printing from the top of the board @@ -262,7 +262,7 @@ body { font-family: monospace; color: #eeeeee; background-color: #080808; } # board:address:array:address:array:character <- initial-position recipe initial-position [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space # layout in memory (in raster order): # R P _ _ _ _ p r # N P _ _ _ _ p n @@ -322,7 +322,7 @@ container move [ # result:address:move, quit?:boolean, error?:boolean <- read-move stdin:address:channel, screen:address # prints only error messages to screen recipe read-move [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space stdin:address:channel <- next-ingredient screen:address <- next-ingredient #? $print screen:address #? 1 @@ -357,7 +357,7 @@ container move [ # file:number, quit:boolean, error:boolean <- read-file stdin:address:channel, screen:address # valid values for file: 0-7 recipe read-file [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space stdin:address:channel <- next-ingredient screen:address <- next-ingredient c:character, stdin:address:channel <- read stdin:address:channel @@ -410,7 +410,7 @@ container move [ # rank:number <- read-rank stdin:address:channel, screen:address # valid values: 0-7, -1 (quit), -2 (error) recipe read-rank [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space stdin:address:channel <- next-ingredient screen:address <- next-ingredient c:character, stdin:address:channel <- read stdin:address:channel @@ -457,7 +457,7 @@ container move [ # read a character from the given channel and check that it's what we expect # return true on error recipe expect-from-channel [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space stdin:address:channel <- next-ingredient expected:character <- next-ingredient screen:address <- next-ingredient @@ -659,7 +659,7 @@ F read-move-file: routine failed to pause after co ] recipe make-move [ - default-space:address:array:location <- new location:type, 30:literal + new-default-space b:address:array:address:array:character <- next-ingredient m:address:move <- next-ingredient from-file:number <- get m:address:move/deref, from-file:offset -- cgit 1.4.1-2-gfad0