diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 01:03:52 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 01:03:52 -0700 |
| commit | 11fca081b1241e1915f357fa40baa3e97aceb823 (patch) | |
| tree | c0312c145d9133cef5e31b04a71bec050097f0f0 /Models.hs | |
| parent | 7dd8c59353167e84dab9e7a1afc16e2290b249e3 (diff) | |
| download | terralloc-11fca081b1241e1915f357fa40baa3e97aceb823.tar.gz terralloc-11fca081b1241e1915f357fa40baa3e97aceb823.tar.bz2 terralloc-11fca081b1241e1915f357fa40baa3e97aceb823.zip | |
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.
Diffstat (limited to 'Models.hs')
| -rw-r--r-- | Models.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |