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