renderDemo :: MonadIO m => AnimationDemo m -> [RenderTransform] -> m ()
renderDemo a rs = snd (demoRenderer a) rs
renderDemo :: MonadIO m => AnimationDemo m -> [RenderTransform] -> m ()
renderDemo a rs = snd (demoRenderer a) rs
renderDemo a rs = snd (demoRenderer a) rs