# HG changeset patch
# User michael
# Date 1161010872 0
# Node ID 5160e1bdeff2b8b384c6ae0d42e5a14f5eb5f296
# Parent  fe5e268988877e7ea1306d6f0f21352d524994ef
mod()

diff -r fe5e26898887 -r 5160e1bdeff2 eval.c
--- a/eval.c	Mon Oct 16 12:52:21 2006 +0000
+++ b/eval.c	Mon Oct 16 15:01:12 2006 +0000
@@ -175,6 +175,7 @@
     else if( strmatch(next, "squish") ) d= 1/(1+exp(4*d));
     else if( strmatch(next, "gauss" ) ) d= exp(-d*d/2)/sqrt(2*M_PI);
     else if( strmatch(next, "abs"   ) ) d= fabs(d);
+    else if( strmatch(next, "mod"   ) ) d-= floor(d/d2)*d2;
     else if( strmatch(next, "max"   ) ) d= d >  d2 ?   d : d2;
     else if( strmatch(next, "min"   ) ) d= d <  d2 ?   d : d2;
     else if( strmatch(next, "gt"    ) ) d= d >  d2 ? 1.0 : 0.0;