diff options
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 |