Hoodle.Coroutine.Pen

Documentation

penPageSwitch :: PageNum -> MainCoroutine CanvasInfoBox

page switch if pen click a page different than the current page

commonPenStart :: (forall a. ViewMode a => CanvasInfo a -> PageNum -> CanvasGeometry -> (Double, Double) -> MainCoroutine ()) -> CanvasId -> PointerCoord -> MainCoroutine ()

Common Pen Work starting point

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

enter pen drawing mode

penProcess :: CanvasId -> PageNum -> CanvasGeometry -> Seq (Double, Double, Double) -> ((Double, Double), Double) -> MainCoroutine (Seq (Double, Double, Double))

main pen coordinate adding process | now being changed

skipIfNotInSamePage :: Monad m => PageNum -> CanvasGeometry -> PointerCoord -> m a -> ((PointerCoord, (Double, Double)) -> m a) -> m a

switchActionEnteringDiffPage :: Monad m => PageNum -> CanvasGeometry -> PointerCoord -> m a -> (PageNum -> (PageNum, PageCoordinate) -> m a) -> (PageNum -> (PageNum, PageCoordinate) -> m a) -> m a

penMoveAndUpOnly :: Monad m => MyEvent -> PageNum -> CanvasGeometry -> m a -> ((PointerCoord, (Double, Double)) -> m a) -> (PointerCoord -> m a) -> m a

in page action

penMoveAndUpInterPage :: Monad m => MyEvent -> PageNum -> CanvasGeometry -> m a -> (PageNum -> (PageNum, PageCoordinate) -> m a) -> (PointerCoord -> m a) -> m a

processWithTimeInterval

Arguments

:: (Monad m, MonadIO m)

=> NominalDiffTime

time diff

-> (UTCTime -> m a)

not larger than time diff bound

-> (UTCTime -> m a)

larger than time diff bound

-> UTCTime

last updated time

-> m a

process action when last time was before time diff limit, otherwise just do default action.

processWithDefTimeInterval

Arguments

:: (Monad m, MonadIO m)

=> (UTCTime -> m a)

not larger than time diff bound

-> (UTCTime -> m a)

larger than time diff bound

-> UTCTime

last updated time

-> m a