diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 16029b4..62ec2c4 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -48,9 +48,8 @@ main = do GLFW.setCursorPosCallback window $ Just (cursorPosHandler Nothing) (objects, program) <- initResources $ - [map (v3tov4 0) $ map (+ V3 a 0 0) cube | a <- take 100 [4, 6 ..]] - ++ [hCube] - ++ [map (\v -> rotate4 0 3 (g90 / 3) (v + V4 0 3 0 0)) hCube] + [map (\v -> (V4 a 0 a 0) + (rotate4 0 3 (a * g90 / 6) v)) hCube | a <- take 100 [0, 2 ..]] + ++ [map (+ V4 a 0 0 0) hCube | a <- take 100 [0, (-2) ..]] let model = mkModel |