
-- for Farey of order n
fordCircles :: Integer -> [(Float, Float, Float)]
fordCircles = fmap fordCircle . farey

fordCirclesScaled :: Float -> Integer -> [(Float, Float, Float)]
fordCirclesScaled scale = fmap (fordCircleScaled scale) . farey

midFirst :: (Eq a) => [a] -> [a]
midFirst xs = nub  (mid:xs) where
    mid = xs !! (length xs `div` 2)