16 lines
434 B
Racket
16 lines
434 B
Racket
#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)) |