first commit

pp1/main.rkt~

@@ -0,0 +1,16 @@
+#lang r7rs
+(import (scheme base)
+        (scheme write)
+        (pp1 graphics))
+
+;;GUI;;
+
+    ;window;
+    (define screen-width 600)
+    (define screen-height 700)
+    (define screen (make-window screen-width screen-height "PacMan"))
+    ((screen 'set-background!) "black")
+
+    ;pacman;
+    (define pacman_image (get-bitmap "/Users/yousraajridi/Desktop/pacman1.png"))
+    (define pacman (get-bitmap-section pacman_image 50 50 20 20))