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

closes PR 10927

Browse Source
This commit is contained in:
Robby Findler 2010-05-25 17:39:23 -05:00
parent 48d793b099
commit 03a3270811
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/image.rkt
View File

@ -115,9 +115,9 @@ and they all have good sample contracts. (It is amazing what we can do with kids
make-color make-color
make-pen make-pen
pen?
save-image step-count?
) save-image)
(provide bitmap) (provide bitmap)

4
collects/teachpack/2htdp/scribblings/image.scrbl
View File

@ -968,6 +968,10 @@ The baseline of an image is the place where the bottoms any letters line up, not
greater than or equal to @scheme[3]. greater than or equal to @scheme[3].
} }
@defproc[(step-count? [x any/c]) boolean?]{
Determines if @racket[x] is an integer greater than or equal to @racket[1].
}
@defstruct[pen ([color image-color?] @defstruct[pen ([color image-color?]
[width (and/c real? (<=/c 0 255))] [width (and/c real? (<=/c 0 255))]
[style pen-style?] [style pen-style?]