class draw.Pen():

  constructor (

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

    ~width: width :: Real.in(0, 255) = 1,

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

    ~cap: cap :: Pen.Cap = #'round,

    ~join: join :: Pen.Join = #'round,

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

  )

property (pen :: draw.Pen).color :: Color

property (pen :: draw.Pen).width :: Real.in(0, 255)

property (pen :: draw.Pen).style :: Pen.Style

property (pen :: draw.Pen).cap :: Pen.Cap

property (pen :: draw.Pen).join :: Pen.Join

property (pen :: draw.Pen).stipple :: maybe(Bitmap)

enum draw.Pen.Style:

  transparent

  solid

  xor

  hilite

  dot

  long_dash

  show_dash

  dot_dash

  xor_dot

  xor_long_dot

  xor_short_dot

  xor_dot_dash

enum draw.Pen.Cap:

  round

  projecting

  butt

enum draw.Pen.Join:

  round

  bevel

  miter

def draw.Pen.none :: Pen