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

Contract fix

Browse Source 
(cherry picked from commit be4bfdff4c)
This commit is contained in:
Neil Toronto 2012-01-08 23:18:15 -07:00 committed by Ryan Culpepper
parent 9146b151d8
commit c8c8fdf360
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/images/private/flomap.rkt
View File

@ -59,9 +59,7 @@
[fmmin ((or/c flomap? real?) (or/c flomap? real?) . -> . flomap?)]
[fmmax ((or/c flomap? real?) (or/c flomap? real?) . -> . flomap?)]
;; Blur
[flomap-gaussian-blur ((flomap? real?)
(real? #:x-stddevs real? #:y-stddevs real?)
. ->* . flomap?)]
[flomap-gaussian-blur ((flomap? real?) (real? real? real?) . ->* . flomap?)]
[flomap-box-blur ((flomap? real?) (real?) . ->* . flomap?)]
[flomap-blur ((flomap? real?) (real?) . ->* . flomap?)]
;[flomap-integral (flomap? . -> . flomap?)]
@ -119,10 +117,10 @@
[flomap-hc-append ([flomap?] #:rest (listof flomap?) . ->* . flomap?)]
[flomap-hb-append ([flomap?] #:rest (listof flomap?) . ->* . flomap?)]
;; Effects
[flomap-outline ([flomap? real?] [#:color (or/c real? (listof real?))] . ->* . flomap?)]
[flomap-outlined ([flomap? real?] [#:color (or/c real? (listof real?))] . ->* . flomap?)]
[flomap-shadow ([flomap? real?] [#:color (or/c real? (listof real?))] . ->* . flomap?)]
[flomap-shadowed ([flomap? real?] [#:color (or/c real? (listof real?))] . ->* . flomap?)]
[flomap-outline ([flomap? real?] [#:color (or/c #f (listof real?))] . ->* . flomap?)]
[flomap-outlined ([flomap? real?] [#:color (or/c #f (listof real?))] . ->* . flomap?)]
[flomap-shadow ([flomap? real?] [#:color (or/c #f (listof real?))] . ->* . flomap?)]
[flomap-shadowed ([flomap? real?] [#:color (or/c #f (listof real?))] . ->* . flomap?)]
)
unsafe-build-flomap
flomap-lift/unsafe
@ -445,7 +443,7 @@
;; ===================================================================================================
;; Gaussian blur
(define (flomap-gaussian-blur fm xσ [yσ xσ] #:x-stddevs [x-stddevs 3.0] #:y-stddevs [y-stddevs 3.0])
(define (flomap-gaussian-blur fm xσ [yσ xσ] [x-stddevs 3.0] [y-stddevs 3.0])
(flomap-gaussian-blur-y
(flomap-gaussian-blur-x fm (abs (exact->inexact xσ)) (abs (exact->inexact x-stddevs)))
(abs (exact->inexact yσ)) (abs (exact->inexact y-stddevs))))