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