X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FFunctionValues.hs;h=9c789f3decde85e9628d8d00a89793e048e08fdf;hb=1bf996325008f79215a607d765adb042026f7444;hp=6d98e95a99c4f9019f29e036f947b7b91393e00d;hpb=715be016934300f596a11e4fc5b8ca2ec42d6c34;p=spline3.git diff --git a/src/FunctionValues.hs b/src/FunctionValues.hs index 6d98e95..9c789f3 100644 --- a/src/FunctionValues.hs +++ b/src/FunctionValues.hs @@ -250,14 +250,6 @@ value_at v3d !i !j !k 2*(value_at v3d i j 0) - (value_at v3d i j 1) else 2*(value_at v3d i j (k-1)) - (value_at v3d i j (k-2)) - - | otherwise = - let istr = show i - jstr = show j - kstr = show k - coordstr = "(" ++ istr ++ "," ++ jstr ++ "," ++ kstr ++ ")" - in - error $ "value_at called outside of domain: " ++ coordstr where (dim_i, dim_j, dim_k) = dims v3d