From f9b29fb473cf7992b2b7375577e3cece3369892e Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 11 May 2011 15:17:06 -0400 Subject: [PATCH] Fix an incorrect coordinate. Order the down/top functions consistently. --- src/FunctionValues.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/src/FunctionValues.hs b/src/FunctionValues.hs index ed83f73..f9111ad 100644 --- a/src/FunctionValues.hs +++ b/src/FunctionValues.hs @@ -20,24 +20,24 @@ data FunctionValues = down :: Double, front_left :: Double, front_right :: Double, - front_top :: Double, front_down :: Double, + front_top :: Double, back_left :: Double, back_right :: Double, - back_top :: Double, back_down :: Double, - left_top :: Double, + back_top :: Double, left_down :: Double, - right_top :: Double, + left_top :: Double, right_down :: Double, - front_left_top :: Double, + right_top :: Double, front_left_down :: Double, - front_right_top :: Double, + front_left_top :: Double, front_right_down :: Double, - back_left_top :: Double, + front_right_top :: Double, back_left_down :: Double, - back_right_top :: Double, + back_left_top :: Double, back_right_down :: Double, + back_right_top :: Double, interior :: Double } deriving (Eq, Show) @@ -121,13 +121,13 @@ make_values values i j k = back_top = value_at values (i+1) j (k+1), left_down = value_at values i (j-1) (k-1), left_top = value_at values i (j-1) (k+1), - right_top = value_at values i (j+1) (k+1), right_down = value_at values i (j+1) (k-1), + right_top = value_at values i (j+1) (k+1), front_left_down = value_at values (i-1) (j-1) (k-1), front_left_top = value_at values (i-1) (j-1) (k+1), front_right_down = value_at values (i-1) (j+1) (k-1), front_right_top = value_at values (i-1) (j+1) (k+1), - back_left_down = value_at values (i-1) (j-1) (k-1), + back_left_down = value_at values (i+1) (j-1) (k-1), back_left_top = value_at values (i+1) (j-1) (k+1), back_right_down = value_at values (i+1) (j+1) (k-1), back_right_top = value_at values (i+1) (j+1) (k+1), -- 2.43.2