From f54138636f00d4ee13a215c06b96b737f7f41985 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 14 Jun 2018 04:16:05 +0900 Subject: Delete unused procedure --- canny.rkt | 8 -------- 1 file changed, 8 deletions(-) diff --git a/canny.rkt b/canny.rkt index db86b37..1387130 100644 --- a/canny.rkt +++ b/canny.rkt @@ -24,14 +24,6 @@ (canny img #:heigh heigh #:low low))) (provide flomap-canny) -(: fmatan (-> flomap flomap flomap)) -(define (fmatan fm1 fm2) - (inline-build-flomap - (flomap-components fm1) (flomap-width fm1) (flomap-height fm1) - (λ (k x y i) - (atan (flomap-ref fm1 k x y) - (flomap-ref fm2 k x y))))) - (define-type Orient (Array (U 'horizontal 'positive-diagonal 'vertical 'negative-diagonal))) (: tanθ->orient (-> flomap Orient)) (define (tanθ->orient fm) -- cgit v1.2.3