diff options
| author | andromeda <andromeda@lenovo> | 2026-02-07 18:59:23 +0100 |
|---|---|---|
| committer | andromeda <andromeda@lenovo> | 2026-02-07 18:59:23 +0100 |
| commit | 4d59cd7569c4c45e6d37855523c905377a50fdca (patch) | |
| tree | 4727a74200d660d44681632680a93db393ada5e8 /src/Main.hs | |
| parent | 5474012f893debd21eb1f84aa7390ea9c6eeafd2 (diff) | |
better colors
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 |