module MyUtils where

import Fudgets

throRight :: F a b -> F (Either a c) (Either b c)
throRight = idRightF

line x1 y1 x2 y2 = [DrawLine (Line (Point x1 y1) (Point x2 y2))]

circle x y r =
	[FillArc (Rect (psub (Point x y) (Point r r)) (Point (2*r) (2*r))) 0 (64*360)]