points :: Int -> [(GLfloat,GLfloat,GLfloat)]
points n = [ (sin (4*pi*k/n'), cos (4*pi*k/n'), 2 * k / n' - 1) | k <- [1..n'] ]
   where n' = fromIntegral n
points :: Int -> [(GLfloat,GLfloat,GLfloat)]
points n = [ (sin (4*pi*k/n'), cos (4*pi*k/n'), 2 * k / n' - 1) | k <- [1..n'] ]
   where n' = fromIntegral n
points n = [ (sin (4*pi*k/n'), cos (4*pi*k/n'), 2 * k / n' - 1) | k <- [1..n'] ]
   where n' = fromIntegral n