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))