40 lines
1.0 KiB
Racket
40 lines
1.0 KiB
Racket
#lang r7rs
|
|
|
|
(define-library (pacman-project coin)
|
|
(import (scheme base)
|
|
(pp1 graphics)
|
|
(pacman-project screen)
|
|
(pacman-project maze))
|
|
|
|
(export draw-coins!
|
|
remove-coin!)
|
|
|
|
(begin
|
|
|
|
(define coin-size-offset 20)
|
|
|
|
(define coins-layer (make-new-layer!))
|
|
(define coin-tile (make-tile screen-width screen-height))
|
|
((coins-layer 'add-drawable!) coin-tile)
|
|
|
|
;tekent de muntjes
|
|
(define (draw-coins!)
|
|
(do ((row 0 (+ row 1)))
|
|
((= row maze-rows))
|
|
(do ((col 0 (+ col 1)))
|
|
((= col maze-cols))
|
|
(when (cell-coin? row col)
|
|
((coin-tile 'draw-rectangle!)
|
|
(+ (* col cell-size) 7)
|
|
(+ (* row cell-size) maze-offset-y 7)
|
|
(- cell-size coin-size-offset)
|
|
(- cell-size coin-size-offset)
|
|
"yellow")))))
|
|
|
|
(draw-coins!)
|
|
|
|
;muntjes verwijderen
|
|
(define (remove-coin! row col)
|
|
((coin-tile 'clear!)) ;alle coins verwijderen en alleen de coins die niet verwijderdt zijn tekenen
|
|
(draw-coins!))))
|