From 3cb4e19e354dcda82db07275555ef7872f1c5ba4 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 27 Dec 2017 23:22:31 -0800 Subject: 4166 --- html/chessboard.mu.html | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'html') diff --git a/html/chessboard.mu.html b/html/chessboard.mu.html index 34e6d9ee..f7ed3205 100644 --- a/html/chessboard.mu.html +++ b/html/chessboard.mu.html @@ -95,7 +95,7 @@ if ('onhashchange' in window) { 31 ] 32 ] 33 run [ - 34 ¦ screen:&:screen, console:&:console <- chessboard screen:&:screen, console:&:console + 34 ¦ screen, console <- chessboard screen, console 35 ¦ # icon for the cursor 36 ¦ cursor-icon:char <- copy 9251/␣ 37 ¦ screen <- print screen, cursor-icon @@ -144,7 +144,7 @@ if ('onhashchange' in window) { 80 ¦ print screen, [Stupid text-mode chessboard. White pieces in uppercase; black pieces in lowercase. No checking for legal moves. 81 ] 82 ¦ cursor-to-next-line screen - 83 ¦ print-board screen, board + 83 ¦ print screen, board 84 ¦ cursor-to-next-line screen 85 ¦ print screen, [Type in your move as <from square>-<to square>. For example: 'a2-a4'. Then press <enter>. 86 ] @@ -205,7 +205,7 @@ if ('onhashchange' in window) { 141 } 142 ] 143 -144 def print-board screen:&:screen, board:board -> screen:&:screen [ +144 def print screen:&:screen, board:board -> screen:&:screen [ 145 local-scope 146 load-inputs 147 row:num <- copy 7 # start printing from the top of the board @@ -269,7 +269,7 @@ if ('onhashchange' in window) { 205 board:board <- initial-position 206 assume-screen 30/width, 12/height 207 run [ -208 ¦ screen:&:screen <- print-board screen:&:screen, board +208 ¦ screen <- print screen, board 209 ] 210 screen-should-contain [ 211 # 012345678901234567890123456789 @@ -420,7 +420,7 @@ if ('onhashchange' in window) { 356 local-scope 357 assume-screen 20/width, 2/height 358 source:&:source:char, sink:&:sink:char <- new-channel 2/capacity -359 read-move-routine:num/routine <- start-running read-move, source, screen:&:screen +359 read-move-routine:num/routine <- start-running read-move, source, screen 360 run [ 361 ¦ # 'read-move' is waiting for keypress 362 ¦ wait-for-routine-to-block read-move-routine @@ -493,7 +493,7 @@ if ('onhashchange' in window) { 429 local-scope 430 assume-screen 20/width, 2/height 431 source:&:source:char, sink:&:sink:char <- new-channel 2/capacity -432 read-move-routine:num <- start-running read-move, source, screen:&:screen +432 read-move-routine:num <- start-running read-move, source, screen 433 run [ 434 ¦ # 'read-move' is waiting for keypress 435 ¦ wait-for-routine-to-block read-move-routine @@ -521,7 +521,7 @@ if ('onhashchange' in window) { 457 local-scope 458 assume-screen 20/width, 2/height 459 source:&:source:char, sink:&:sink:char <- new-channel 2/capacity -460 read-move-routine:num <- start-running read-move, source, screen:&:screen +460 read-move-routine:num <- start-running read-move, source, screen 461 run [ 462 ¦ # 'read-move' is waiting for keypress 463 ¦ wait-for-routine-to-block read-move-routine @@ -543,7 +543,7 @@ if ('onhashchange' in window) { 479 local-scope 480 assume-screen 20/width, 2/height 481 source:&:source:char, sink:&:sink:char <- new-channel 2/capacity -482 read-move-routine:num <- start-running read-move, source, screen:&:screen +482 read-move-routine:num <- start-running read-move, source, screen 483 run [ 484 ¦ # 'read-move' is waiting for keypress 485 ¦ wait-for-routine-to-block read-move-routine @@ -566,7 +566,7 @@ if ('onhashchange' in window) { 502 local-scope 503 assume-screen 20/width, 2/height 504 source:&:source:char, sink:&:sink:char <- new-channel 2/capacity -505 read-move-routine:num <- start-running read-move, source, screen:&:screen +505 read-move-routine:num <- start-running read-move, source, screen 506 run [ 507 ¦ # 'read-move' is waiting for keypress 508 ¦ wait-for-routine-to-block read-move-routine @@ -607,7 +607,7 @@ if ('onhashchange' in window) { 543 *move <- merge 6/g, 1/'2', 6/g, 3/'4' 544 run [ 545 ¦ board <- make-move board, move -546 ¦ screen:&:screen <- print-board screen:&:screen, board +546 ¦ screen <- print screen, board 547 ] 548 screen-should-contain [ 549 # 012345678901234567890123456789 -- cgit 1.4.1-2-gfad0