first commit

pacman-project/screen.rkt

@@ -0,0 +1,26 @@
+#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!)))))