class draw.Brush():

  constructor (

    ~color: color :: (String || Color) = "Black",

    ~style: style :: Brush.Style = #'solid,

    ~stipple: stipple :: maybe(Bitmap) = #false,

    ~gradient: gradient :: maybe(LinearGradient || RadialGradient) = #false

  )

property (brush :: draw.Brush).color :: Color

property (brush :: draw.Brush).style :: Brush.Style

property (brush :: draw.Brush).stipple :: maybe(Bitmap)

property (brush :: draw.Brush).gradient

  :: maybe(LinearGradient || RadialGradient)

enum draw.Brush.Style:

  transparent

  solid

  opaque

  xor

  hilite

  panel

  bdiagonal_hatch

  crossdiag_hatch

  fdiagonal_hatch

  cross_hatch

  horizontal_hatch

  vertical_hatch

def draw.Brush.none :: Brush

class draw.LinearGradient():

  constructor (pt1 :: PointLike,

               pt2 :: PointLike,

               [[stop :: Real.in(0.0, 1.0), color :: Color], ...])

property (grad :: draw.LinearGradient).line

  :: matching([_ :: Point, _ :: Point])

property (grad :: draw.LinearGradient).stops

  :: List.of(matching([_ :: Real.in(0.0, 1.0), _ :: Color]))

class draw.RadialGradient():

  constructor ([[pt1 :: PointLike], r1 :: Real],

               [[pt2 :: PointLike], r2 :: Real],

               [[stop :: Real.in(0.0, 1.0), color :: Color], ...])

property (grad :: draw.RadialGradient).circles

  :: matching([[_ :: PointLike, _ :: Real],

               [_ :: PointLike, _ :: Real]])

property (grad :: draw.RadialGradient).stops

  :: List.of(matching([_ :: Real.in(0.0, 1.0), _ :: Color]))