Mid strictifying

2021-07-29 23:42:27 +02:00
parent 67aa5c05c7
commit bd8ef3f416
22 changed files with 359 additions and 325 deletions
@@ -10,7 +10,7 @@ import qualified Data.Map as M

 icosahedronPoints :: [Point3]
 icosahedronPoints = concat
-    [ [(0,one,gr),(one, gr, 0),(gr, 0, one)]
+    [ [V3 0 one gr, V3 one gr 0, V3 gr 0 one]
    | one <- [-1,1]
    , gr  <- [negate (1 + sqrt 5)/2, (1 + sqrt 5)/2 ]
    ]