renderWithUniqColors :: Renderer a -> [a] -> IO ()
renderWithUniqColors renderer xs =
   for_ (zip [zero ..] xs) $ \(color, part) ->
      renderer (const $ renderPrimShape color) part
   where
      zero = toEnum 0 :: Color3 GLubyte

--------------------------------------------------------------------------------
renderWithUniqColors :: Renderer a -> [a] -> IO ()
renderWithUniqColors renderer xs =
   for_ (zip [zero ..] xs) $ \(color, part) ->
      renderer (const $ renderPrimShape color) part
   where
      zero = toEnum 0 :: Color3 GLubyte

--------------------------------------------------------------------------------
renderWithUniqColors renderer xs =
   for_ (zip [zero ..] xs) $ \(color, part) ->
      renderer (const $ renderPrimShape color) part
   where
      zero = toEnum 0 :: Color3 GLubyte

--------------------------------------------------------------------------------