Skip to content
Browse files

Add pt-distance

  • Loading branch information...
1 parent cb3c7d3 commit b30dd95926e87b5052df6ba38cd350241df5ce59 @dharmatech committed Mar 8, 2010
Showing with 5 additions and 1 deletion.
  1. +5 −1 geometry/pt.sls
View
6 geometry/pt.sls
@@ -13,7 +13,8 @@
pt-neg
pt-norm
pt-normalize
- pt-dot)
+ pt-dot
+ pt-distance)
(import (rnrs)
(agave glamour misc)
@@ -72,4 +73,7 @@
(+ (pt-x val)
(pt-y val))))
+ (define (pt-distance a b)
+ (pt-norm (pt- a b)))
+
)

0 comments on commit b30dd95

Please sign in to comment.
Something went wrong with that request. Please try again.