icosahedronPoints :: RealFloat a => [Point3f a]
icosahedronPoints = [ Point3f 0 (1)  gold
                    , Point3f 0 (-1) gold
                    , Point3f 0 (-1) (-gold)
                    , Point3f 0 (1)  (-gold)
                    , Point3f (1)  (gold)  0
                    , Point3f (-1) (gold)  0
                    , Point3f (-1) (-gold) 0
                    , Point3f (1)  (-gold) 0
                    , Point3f (gold)  0 (1)
                    , Point3f (gold)  0 (-1)
                    , Point3f (-gold) 0 (-1)
                    , Point3f (-gold) 0 (1)
                    ]
icosahedronPoints :: RealFloat a => [Point3f a]
icosahedronPoints = [ Point3f 0 (1)  gold
                    , Point3f 0 (-1) gold
                    , Point3f 0 (-1) (-gold)
                    , Point3f 0 (1)  (-gold)
                    , Point3f (1)  (gold)  0
                    , Point3f (-1) (gold)  0
                    , Point3f (-1) (-gold) 0
                    , Point3f (1)  (-gold) 0
                    , Point3f (gold)  0 (1)
                    , Point3f (gold)  0 (-1)
                    , Point3f (-gold) 0 (-1)
                    , Point3f (-gold) 0 (1)
                    ]
icosahedronPoints = [ Point3f 0 (1)  gold
                    , Point3f 0 (-1) gold
                    , Point3f 0 (-1) (-gold)
                    , Point3f 0 (1)  (-gold)
                    , Point3f (1)  (gold)  0
                    , Point3f (-1) (gold)  0
                    , Point3f (-1) (-gold) 0
                    , Point3f (1)  (-gold) 0
                    , Point3f (gold)  0 (1)
                    , Point3f (gold)  0 (-1)
                    , Point3f (-gold) 0 (-1)
                    , Point3f (-gold) 0 (1)
                    ]