git.iko.soy/elk
on 0fbc244 help sign in
elk/libraries/Graphics/LineStyle.elm
31 lines 590 B history raw
2module Graphics.LineStyle where
4import Graphics.Color as Color
6data LineCap = Butt | Round | Square
7data LineJoin = Smooth | Sharp | Clipped
9type LineStyle = {
10 color : Color,
11 width : Float,
12 cap : LineCap,
13 join : LineJoin,
14 miterLimit : Float,
15 dashing : [Int],
16 dashOffset : Int
17 }
19basic = {
20 color = Color.black,
21 width = 1,
22 cap = Butt,
23 join = Sharp,
24 dashing = [],
25 dashOffset = 0,
26 miterLimit = 10
27 }
29solid clr = { basic | color <- clr }
30dashed clr = { basic | color <- clr, dashing <- [8,4] }
31dotted clr = { basic | color <- clr, dashing <- [3,3] }