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

fix contract on disk

Browse Source 
(bug found by random testing)
This commit is contained in:
Robby Findler 2014-05-16 22:14:36 -05:00
parent 3f5ca73338
commit 67f215eec0
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/pict-pkgs/pict-doc/pict/scribblings/pict.scrbl
View File

@ -288,7 +288,8 @@ override settings supplied by the context.
@defproc*[([(ellipse [w real?] [h real?]) pict?]
[(circle [diameter real?]) pict?]
[(filled-ellipse [w real?] [h real?] [#:draw-border? draw-border? any/c #t]) pict?]
[(disk [diameter real?] [#:draw-border? draw-border? any/c #t]) pict?])]{
[(disk [diameter (and/c rational? (not/c negative?))]
[#:draw-border? draw-border? any/c #t]) pict?])]{
Unfilled and filled ellipses.

5
pkgs/pict-pkgs/pict-lib/pict/main.rkt
View File

@ -9,7 +9,7 @@
pict->argb-pixels
argb-pixels->pict
colorize
pin-under pin-over)
pin-under pin-over disk)
(contract-out
[colorize (-> pict?
(or/c string?
@ -43,7 +43,8 @@
real?
(-> pict? pict? (values real? real?)))]
[pict pict?])
[result pict?])]))
[result pict?])]
[disk (->* ((and/c rational? (not/c negative?))) (#:draw-border? any/c) pict?)]))
(define (multiple-of-four-bytes? b)
(zero? (modulo (bytes-length b) 4)))