suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

die to dice

Browse Source
This commit is contained in:
Matthias Felleisen 2013-04-12 13:17:22 -04:00
parent 879a919973
commit 2d934e6a4f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/realm/chapter10/source.rkt
View File

@ -596,9 +596,9 @@
(define first-die (get-dice-image 0))
(define height-die (image-height first-die))
(for/fold ([s first-die]) ([i (- n 1)])
(define die-image (get-dice-image (+ i 1)))
(define dice-image (get-dice-image (+ i 1)))
(define y-offset (* height-die (+ .5 (* i .25))))
(overlay/offset s 0 y-offset die-image)))
(overlay/offset s 0 y-offset dice-image)))
;; Player -> Color
;; Determines a color for each player

4
collects/realm/chapter12/source.rkt
View File

@ -625,9 +625,9 @@
(define first-die (get-dice-image 0))
(define height-die (image-height first-die))
(for/fold ([s first-die]) ([i (- n 1)])
(define die-image (get-dice-image (+ i 1)))
(define dice-image (get-dice-image (+ i 1)))
(define y-offset (* height-die (+ .5 (* i .25))))
(overlay/offset s 0 y-offset die-image)))
(overlay/offset s 0 y-offset dice-image)))
;; Player -> Color
;; Determines a color for each player