circlePts r n = map (\x -> (r*cos(x/n*pi), r*sin(x/n*pi), 0.0)) [-n..n]
(Enum a, Floating a, Fractional b) => a -> a -> [(a, a, b)]