gloss-1.13.1.2: Painless 2D vector graphics, animations and simulations.
Graphics.Gloss.Data.Point
type Point = (Float, Float) #
A point on the x-y plane.
type Path = [Point] #
A path through the x-y plane.
pointInBox :: Point -> Point -> Point -> Bool Source #
Test whether a point lies within a rectangular box that is oriented on the x-y plane. The points P1-P2 are opposing points of the box, but need not be in a particular order.
P2 +-------+ | | | + P0 | | | +-------+ P1