Copyright | Written by David Himmelstrup |
---|---|

License | Unlicense |

Maintainer | lemmih@gmail.com |

Stability | experimental |

Portability | POSIX |

Safe Haskell | None |

Language | Haskell2010 |

## Synopsis

- type Origin = (Double, Double)
- rotationalTrajectory :: Origin -> Trajectory
- polygonOrigin :: Polygon -> Origin -> V2 Double

# Documentation

type Origin = (Double, Double) Source #

Rotational origin relative to polygon center. (0.5, 0.5) is center of polygon. Top right is (1,1) and bottom left is (0,0)

rotationalTrajectory :: Origin -> Trajectory Source #

Interpolation by rotating around an origin point.

Example:

`playThenReverseA`

$`pauseAround`

0.5 0.5 $`mkAnimation`

3 $ \t ->`withStrokeLineJoin`

`JoinRound`

$ let src =`scale`

8 $`center`

$`latex`

"X" dst =`scale`

8 $`center`

$`latex`

"H" in`morph`

`linear`

{'morphTrajectory'='rotationalTrajectory' (0.5,0.5)} src dst t