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

put-pinhole instead of move-pinhole for nw:rectangle

Browse Source 
svn: r4739
This commit is contained in:
Matthias Felleisen 2006-11-01 21:49:20 +00:00
parent 22a24b1a04
commit cedb2d088f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/htdp/world.ss
View File

@ -85,7 +85,7 @@
(check-pos 'rectangle height "second")
(check-mode 'rectangle mode "third")
(check-color 'rectangle color "fourth")
(move-pinhole (rectangle width height mode color) (/ width -2) (/ height -2)))
(put-pinhole (rectangle width height mode color) 0 0))
(define (place-image image x y scene)
(check-image 'place-image image "first")