95679501d2
Found bugs in some files which are temporarily fixed: Weird type error in Either, name collision in LineStyle and syntax error in Json.Experimental
31 lines
No EOL
578 B
Elm
31 lines
No EOL
578 B
Elm
|
|
module Graphics.LineStyle where
|
|
|
|
import Graphics.Color
|
|
|
|
data LineCap = Butt | Round | Square
|
|
data LineJoin = Soft | Sharp | Clip
|
|
|
|
type LineStyle = {
|
|
color : Color,
|
|
width : Float,
|
|
cap : LineCap,
|
|
join : LineJoin,
|
|
miterLimit : Float,
|
|
dashing : [Int],
|
|
dashOffset : Int
|
|
}
|
|
|
|
default = {
|
|
color = black,
|
|
width = 1,
|
|
cap = Butt,
|
|
join = Miter,
|
|
dashing = [],
|
|
dashOffset = 0,
|
|
miterLimit = 10
|
|
}
|
|
|
|
solid clr = { default | color <- clr }
|
|
dashed clr = { default | color <- clr, dashing <- [8,4] }
|
|
dotted clr = { default | color <- clr, dashing <- [3,3] } |