blob: 41c7373ee9501432ae265c7a554b7a1b7d785bfb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#lang racket
(require "flomap-canny.rkt")
(require pict)
(require racket/draw)
(require images/flomap)
(define (canny img #:sigma sigma #:heigh heigh #:low low)
(bitmap
(flomap->bitmap
(flomap-canny (bitmap->flomap (pict->bitmap img))
#:sigma sigma
#:heigh heigh
#:low low))))
(provide canny)
|
