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

fix a bug uncovered by 1b3fd890ad

Browse Source 
Merge to 6.1, please
This commit is contained in:
Robby Findler 2014-07-15 07:55:07 -05:00
parent 34b4472d97
commit 6d2dfbff9e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/games/scribblings/same.scrbl
View File

@ -11,10 +11,16 @@
(dc (dc
(λ (dc dx dy) (λ (dc dx dy)
(define-values (ox oy) (send dc get-origin)) (define-values (ox oy) (send dc get-origin))
(define pen (send dc get-pen))
(define brush (send dc get-brush))
(define-values (scale-x scale-y) (send dc get-scale))
(send dc set-origin (+ ox dx) (+ oy dy)) (send dc set-origin (+ ox dx) (+ oy dy))
(draw-board dc board-width board-height board w h (draw-board dc board-width board-height board w h
#f #f #f #f) #f #f #f #f)
(send dc set-origin ox oy)) (send dc set-origin ox oy)
(send dc set-pen pen)
(send dc set-brush brush)
(send dc set-scale scale-x scale-y))
w h)) w h))
@(define (copy-board board) @(define (copy-board board)