1.18.10 Run, program, run
This section contains the main expression that starts the Chat Noir game going.
<go> ::=
| (let* ([board-size 11] |
| [initial-board |
| (add-n-random-blocked-cells |
| 6 |
| (empty-board board-size) |
| board-size)] |
| [initial-world |
| (make-world initial-board |
| (make-posn (quotient board-size 2) |
| (quotient board-size 2)) |
| 'playing |
| board-size |
| #f |
| #f)]) |
| (big-bang initial-world |
| (on-draw render-world |
| (world-width board-size) |
| (world-height board-size)) |
| (on-key change) |
| (on-mouse clack) |
| (name "Chat Noir")) |
| (void)) |