From 11fca081b1241e1915f357fa40baa3e97aceb823 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sat, 3 Dec 2022 01:03:52 -0700 Subject: Start reviving this ancient project. (It's pretty cool). Got it to compile using Stack. Skybox works, but nothing else really does. I think this is a problem with how the program is interpreting the surface pixels when calculating the map terrain and elevation. I think some TLC is in order. --- Models.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Models.hs') diff --git a/Models.hs b/Models.hs index 3f15288..3d154e6 100644 --- a/Models.hs +++ b/Models.hs @@ -53,8 +53,8 @@ tree = forM_ [0..6.4] $ \th -> do let vertex x y z = do - gNormal3 x 0 z - gVertex4E x y z 0 + gNormal3 x 0 z + gVertex4E x y z 0 let c = r * cos th let s = r * sin th @@ -75,8 +75,8 @@ tree = forM_ [0..6.4] $ \th -> do let vertex x y z = do - gNormal3 x 0 z - gVertex4E x y z 0 + gNormal3 x 0 z + gVertex4E x y z 0 let c = r * 4 * cos th let s = r * 4 * sin th -- cgit