metabrush/src/app/MetaBrush/Stroke.hs

module MetaBrush.Stroke where

--------------------------------------------------------------------------------

{-
data StrokePoint
  = StrokePoint
    { center :: Point2D Double
    , 

newtype Stroke =
  Stroke { strokePoints :: Seq ( 

-}
WIP 2020-08-04 06:15:06 +00:00			`module MetaBrush.Stroke where`

			`--------------------------------------------------------------------------------`

add MenuBar 2020-08-05 20:23:16 +00:00			`{-`
WIP 2020-08-04 06:15:06 +00:00			`data StrokePoint`
			`= StrokePoint`
			`{ center :: Point2D Double`
			`,`

			`newtype Stroke =`
add MenuBar 2020-08-05 20:23:16 +00:00			`Stroke { strokePoints :: Seq (`

			`-}`