module Graphics.LineStyle where

import Graphics.Color as Color

data LineCap  = Butt  | Round | Square
data LineJoin = Smooth | Sharp | Clipped

type LineStyle = {
  color : Color,
  width : Float,
  cap   : LineCap,
  join  : LineJoin,
  miterLimit : Float,
  dashing    : [Int],
  dashOffset : Int
 }

basic = {
  color = Color.black,
  width = 1,
  cap   = Butt,
  join  = Sharp,
  dashing = [],
  dashOffset = 0,
  miterLimit = 10
 }

solid  clr = { basic | color <- clr }
dashed clr = { basic | color <- clr, dashing <- [8,4] }
dotted clr = { basic | color <- clr, dashing <- [3,3] }