Wumpus.Drawing.Extras.Loop

Open loop for a circle (useful for automata diagrams).

Documentation

loop :: (Real u, Floating u, InterpretUnit u, Tolerance u) => u -> Point2 u -> Radian -> Query u (AbsPath u)

Generate a loop - suitable for decorating a circle.

The radius and the (implicit) start point are the center and radius of the initial circle not the loop itself.

loopPoints :: (Real u, Floating u) => u -> Point2 u -> Radian -> [Point2 u]

Note - intermediate names and quadrants represent a loop drawn upwards.