Hoodle.Widget.PanZoom

Pan-Zoom widget drawing and action

Documentation

data PanZoomMode

Constructors

Moving

Zooming

Panning Bool

data PanZoomTouch

Constructors

TouchMode

PenMode

Instances

Eq PanZoomTouch

Methods

(==) :: PanZoomTouch -> PanZoomTouch -> Bool

(/=) :: PanZoomTouch -> PanZoomTouch -> Bool

Ord PanZoomTouch

Methods

compare :: PanZoomTouch -> PanZoomTouch -> Ordering

(<) :: PanZoomTouch -> PanZoomTouch -> Bool

(<=) :: PanZoomTouch -> PanZoomTouch -> Bool

(>) :: PanZoomTouch -> PanZoomTouch -> Bool

(>=) :: PanZoomTouch -> PanZoomTouch -> Bool

max :: PanZoomTouch -> PanZoomTouch -> PanZoomTouch

min :: PanZoomTouch -> PanZoomTouch -> PanZoomTouch

Show PanZoomTouch

Methods

showsPrec :: Int -> PanZoomTouch -> ShowS

show :: PanZoomTouch -> String

showList :: [PanZoomTouch] -> ShowS

checkPointerInPanZoom :: (CanvasId, CanvasInfo a, CanvasGeometry) -> PointerCoord -> Maybe (Maybe (PanZoomMode, (CanvasCoordinate, CanvasCoordinate)))

startPanZoomWidget :: PanZoomTouch -> (CanvasId, CanvasInfo a, CanvasGeometry) -> Maybe (PanZoomMode, (CanvasCoordinate, CanvasCoordinate)) -> MainCoroutine ()

findZoomXform :: Dimension -> ((Double, Double), (Double, Double), (Double, Double)) -> (Double, (Double, Double))

findPanXform :: Dimension -> ((Double, Double), (Double, Double)) -> (Double, Double)

manipulatePZW

Arguments

:: (PanZoomTouch, PanZoomMode)

-> CanvasId

-> CanvasGeometry

-> (Surface, Surface)

(Source, Target)

-> CanvasCoordinate

original widget position

-> CanvasCoordinate

where pen pressed

-> UTCTime

-> MainCoroutine ()

manipulate Pan-Zoom widget until released when grabbing the widget

movingRender :: PanZoomMode -> CanvasId -> CanvasGeometry -> (Surface, Surface) -> CanvasCoordinate -> CanvasCoordinate -> PointerCoord -> MainCoroutine ()

togglePanZoom :: CanvasId -> MainCoroutine ()

touchStart :: CanvasId -> PointerCoord -> MainCoroutine ()

toggleTouch :: MainCoroutine ()