31 lines
No EOL
590 B
Elm
31 lines
No EOL
590 B
Elm
|
|
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] } |