floretPoints :: RealFloat a => [[Point3f a]] -> [Point3f a]
floretPoints floretIco = concatMap id floretIco
floretPoints :: RealFloat a => [[Point3f a]] -> [Point3f a]
floretPoints floretIco = concatMap id floretIco
floretPoints floretIco = concatMap id floretIco