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