-
Notifications
You must be signed in to change notification settings - Fork 0
/
constants.rkt
33 lines (33 loc) · 944 Bytes
/
constants.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#lang racket
(require 2htdp/image)
(provide step
delta-t
boxb-up
boxb-dn
boxb-l
boxb-r
RADIUS
LENGTH
WIDTH
bar1
bar2
background-image
background-image2
menu-image)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;; these are the various constants used in the game;;;;
(define step 8) ;
(define delta-t 5)
(define boxb-up 10)
(define boxb-dn 600)
(define boxb-l 10)
(define boxb-r 990)
(define RADIUS 20)
(define LENGTH 100)
(define WIDTH 50)
(define bar1 (rectangle WIDTH LENGTH "solid" "green"))
(define bar2 (rectangle WIDTH LENGTH "solid" "green"))
(define background-image2 (bitmap "ping.jpeg"))
(define background-image (bitmap "ping1.jpg"))
(define menu-image (bitmap "menu-pong.jpg"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;