diff --git a/src/Reanimate/Builtin/CirclePlot.hs b/src/Reanimate/Builtin/CirclePlot.hs index af42c5d..c736ea1 100644 --- a/src/Reanimate/Builtin/CirclePlot.hs +++ b/src/Reanimate/Builtin/CirclePlot.hs @@ -22,7 +22,7 @@ import Reanimate.Constants -- Example: -- -- @ --- 'circlePlot' 500 $ \ang r -> +-- 'circlePlot' 500 $ \\ang r -> -- 'Codec.Picture.Types.promotePixel' $ toRGB8 $ uncurryRGB sRGB $ hsv (ang/pi*180) r 1 -- @ -- diff --git a/src/Reanimate/Scene.hs b/src/Reanimate/Scene.hs index 2673823..8291669 100644 --- a/src/Reanimate/Scene.hs +++ b/src/Reanimate/Scene.hs @@ -398,7 +398,7 @@ tweenVarUnclamped (Var ref) dur fn = do -- -- @ -- do var \<- 'simpleVar' 'mkCircle' 0 --- 'tweenVar' var 2 $ \val -> 'fromToS' val ('Reanimate.Constants.screenHeight'/2) +-- 'tweenVar' var 2 $ \\val -> 'fromToS' val ('Reanimate.Constants.screenHeight'/2) -- @ -- -- <> @@ -441,8 +441,8 @@ instance Applicative (Frame s) where -- @ -- do v \<- 'newVar' 0 -- 'newSprite' $ 'mkCircle' \<$\> 'unVar' v --- 'tweenVar' v 1 $ \val -> 'fromToS' val 3 --- 'tweenVar' v 1 $ \val -> 'fromToS' val 0 +-- 'tweenVar' v 1 $ \\val -> 'fromToS' val 3 +-- 'tweenVar' v 1 $ \\val -> 'fromToS' val 0 -- @ -- -- <> @@ -563,7 +563,7 @@ newSpriteSVG_ = void . newSpriteSVG -- do s \<- 'fork' $ 'newSpriteA' 'Reanimate.Builtin.Documentation.drawBox' -- v \<- 'newVar' 0 -- 'applyVar' v s 'rotate' --- 'tweenVar' v 2 $ \val -> 'fromToS' val 90 +-- 'tweenVar' v 2 $ \\val -> 'fromToS' val 90 -- @ -- -- <> @@ -626,7 +626,7 @@ spriteMap sprite@(Sprite born _) fn = do -- -- @ -- do s \<- 'fork' $ 'newSpriteA' 'Reanimate.Builtin.Documentation.drawCircle' --- 'spriteTween' s 1 $ \val -> 'translate' ('Reanimate.Constants.screenWidth'*0.3*val) 0 +-- 'spriteTween' s 1 $ \\val -> 'translate' ('Reanimate.Constants.screenWidth'*0.3*val) 0 -- @ -- -- <> @@ -650,7 +650,7 @@ spriteTween sprite@(Sprite born _) dur fn = do -- @ -- do s \<- 'fork' $ 'newSpriteA' 'Reanimate.Builtin.Documentation.drawBox' -- v \<- 'spriteVar' s 0 'rotate' --- 'tweenVar' v 2 $ \val -> 'fromToS' val 90 +-- 'tweenVar' v 2 $ \\val -> 'fromToS' val 90 -- @ -- -- <>