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

typos

Browse Source 
svn: r16828
This commit is contained in:
Matthias Felleisen 2009-11-17 15:16:35 +00:00
parent 97d99d8726
commit e068d2ef86
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/2htdp/private/image.ss
View File

@ -20,10 +20,13 @@
(provide (all-from-out htdp/image)) (provide (all-from-out htdp/image))
(provide (provide
;; Scene is Image with pinhole in origin ;; type Scene = Image with pinhole in origin
nw:rectangle ;; Number Number Mode Color -> Image nw:rectangle ;; Number Number Mode Color -> Image
;; create a rectangle with pinhole in the upper-left corner
place-image ;; Image Number Number Scene -> Scene place-image ;; Image Number Number Scene -> Scene
;; place image at (x,y) in given scene
empty-scene ;; Number Number -> Scene empty-scene ;; Number Number -> Scene
;; create an empty scene of size width x height (!= (nw:rectangle width height))
scene+line ;; Scene Number Number Number Number Color -> Scene scene+line ;; Scene Number Number Number Number Color -> Scene
;; cut all pieces that are outside the given rectangle ;; cut all pieces that are outside the given rectangle
) )
@ -194,4 +197,4 @@
(lambda () (intersections (points->line 0 10 100 80) 100 100)) (lambda () (intersections (points->line 0 10 100 80) 100 100))
list) list)
(list false false 10 80)) (list false false 10 80))
|# |#