27 lines
532 B
Racket
27 lines
532 B
Racket
#lang r7rs
|
|
|
|
; Screen ADT ;
|
|
|
|
(define-library (pacman-project screen)
|
|
(import (scheme base)
|
|
(pp1 graphics))
|
|
|
|
(export screen
|
|
screen-width
|
|
screen-height
|
|
make-new-layer!)
|
|
|
|
(begin
|
|
|
|
;constanten
|
|
(define screen-width 1000)
|
|
(define screen-height 830)
|
|
|
|
;scherm aanmaken
|
|
(define screen (make-window screen-width screen-height "Pacman"))
|
|
((screen 'set-background!) "black")
|
|
|
|
;nieuwe layer op her scherm maken
|
|
(define (make-new-layer!)
|
|
((screen 'new-layer!)))))
|