diff --git a/collects/2htdp/private/image.ss b/collects/2htdp/private/image.ss index e31361e5ed..870cf92000 100644 --- a/collects/2htdp/private/image.ss +++ b/collects/2htdp/private/image.ss @@ -20,10 +20,13 @@ (provide (all-from-out htdp/image)) (provide - ;; Scene is Image with pinhole in origin + ;; type Scene = Image with pinhole in origin 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 at (x,y) in given 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 ;; cut all pieces that are outside the given rectangle ) @@ -194,4 +197,4 @@ (lambda () (intersections (points->line 0 10 100 80) 100 100)) list) (list false false 10 80)) -|# \ No newline at end of file +|#