-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathcolors.rkt
More file actions
26 lines (23 loc) · 868 Bytes
/
colors.rkt
File metadata and controls
26 lines (23 loc) · 868 Bytes
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
#lang racket/gui
(provide COLOR-GAME-BORDER)
(provide COLOR-BLOCK-EDGE)
(provide COLOR-BACKGROUND)
(provide COLOR-ORANGE)
(provide COLOR-PINK)
(provide COLOR-CYAN)
(provide COLOR-GREEN)
(provide COLOR-RED)
(provide COLOR-YELLOW)
(provide COLOR-PURPLE)
(provide COLOR-BLUE)
(define COLOR-BACKGROUND (make-object color% 39 40 34))
(define COLOR-ORANGE (make-object color% 253 135 36))
(define COLOR-PINK (make-object color% 253 138 214))
(define COLOR-CYAN (make-object color% 107 216 236))
(define COLOR-GREEN (make-object color% 166 223 64))
(define COLOR-RED (make-object color% 240 44 94))
(define COLOR-YELLOW (make-object color% 222 218 123))
(define COLOR-PURPLE (make-object color% 174 131 244))
(define COLOR-BLUE (make-object color% 0 70 232))
(define COLOR-GAME-BORDER (make-object color% 207 207 195))
(define COLOR-BLOCK-EDGE (make-object color% 0 0 0))