From 48d793b099d00cd868caea83014a4c580605b954 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 25 May 2010 17:33:53 -0500 Subject: [PATCH] closes PR 10929 --- collects/teachpack/2htdp/scribblings/image.scrbl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/teachpack/2htdp/scribblings/image.scrbl b/collects/teachpack/2htdp/scribblings/image.scrbl index b677076ec4..3b5f5faa4f 100644 --- a/collects/teachpack/2htdp/scribblings/image.scrbl +++ b/collects/teachpack/2htdp/scribblings/image.scrbl @@ -300,7 +300,7 @@ other. The top and bottom pair of angles is @scheme[angle] and the left and righ (make-pen "darkslategray" 10 "solid" "projecting" "miter")))] } -@defproc[(line [x1 real?] [y1 real?] [color image-color?]) image?]{ +@defproc[(line [x1 real?] [y1 real?] [pen-or-color (or/c pen? image-color?)]) image?]{ Constructs an image representing a line segment that connects the points (0,0) to (x1,y1). @@ -312,7 +312,7 @@ other. The top and bottom pair of angles is @scheme[angle] and the left and righ @defproc[(add-line [image image?] [x1 real?] [y1 real?] [x2 real?] [y2 real?] - [color image-color?]) + [pen-or-color (or/c pen? image-color?)]) image?]{ Adds a line to the image @scheme[image], starting from the point (@scheme[x1],@scheme[y1]) @@ -333,7 +333,7 @@ other. The top and bottom pair of angles is @scheme[angle] and the left and righ @defproc[(add-curve [image image?] [x1 real?] [y1 real?] [angle1 angle?] [pull1 real?] [x2 real?] [y2 real?] [angle2 angle?] [pull2 real?] - [color image-color?]) + [pen-or-color (or/c pen? image-color?)]) image?]{ Adds a curve to @scheme[image], starting at the point