git.iko.soy/elk
on c136ea7 help sign in
elk/core/Graphics/Element.elm
195 lines 5.6 kB history raw
2module Graphics.Element
3 (left,right,down,up,inward,outward
4 ,topLeft,topRight,bottomLeft,bottomRight
5 ,midLeft,midRight,midTop,midBottom
6 ,middle,absolute,relative
7 ,topLeftAt,topRightAt,bottomLeftAt,bottomRightAt
8 ,width,height,size,widthOf,heightOf,sizeOf
9 ,color,opacity
10 ,text,image,fittedImage,video
11 ,flow,above,below,beside,layers
12 ,collage,spacer,container
13 ,line,segment
14 ,polygon,ngon,rect,oval,circle
15 ,solid,dotted,dashed,customLine
16 ,filled,outlined,customOutline,textured
17 ,sprite,toForm
18 ,rotate,scale,move
19 ) where
21import Graphics.Color
23data Direction = DLeft | DRight | DUp | DDown | DIn | DOut
25left = DLeft
26right = DRight
27down = DDown
28up = DUp
29inward = DIn
30outward = DOut
32data Pos1 = Absolute Int | Relative Float
33data Pos2 = Near | Mid | Far
35data Position
36 = Position Pos2 Pos2
37 | PositionAt Pos1 Pos1
38 | PositionTL Pos1 Pos1
39 | PositionTR Pos1 Pos1
40 | PositionBL Pos1 Pos1
41 | PositionBR Pos1 Pos1
43topLeft = Position Near Near
44topRight = Position Far Near
45bottomLeft = Position Near Far
46bottomRight = Position Far Far
48midLeft = Position Near Mid
49midRight = Position Far Mid
50midTop = Position Mid Near
51midBottom = Position Mid Far
53middle = Position Mid Mid
55middleAt = PositionAt
56topLeftAt = PositionTL
57topRightAt = PositionTR
58bottomLeftAt = PositionBL
59bottomRightAt = PositionBR
61absolute = Absolute
62relative = Relative
64data Element = Element Int BasicElement Int Int Float (Maybe Color) (Just String)
66newElement = Element 0
67basicNewElement e w h = Element 0 e w h 1 Nothing Nothing
69data BasicElement
70 = EText Text Text
71 | EImage String
72 | EVideo String
73 | EFittedImage String
74 | EFlow Direction [Element]
75 | ECollage Int Int [Form]
76 | EEmpty
77 | EContainer Position Element
79width w' (Element _ e w h o c l) =
80 case e of
81 { EText _ -> newElement e w' h o c l
82 ; EImage _ -> newElement e w' h o c l
83 ; EVideo _ -> newElement e w' h o c l
84 ; _ -> newElement e w' h o c l }
85height h' (Element _ e w h o c l) =
86 case e of
87 { EText _ -> newElement e w h' o c l
88 ; EImage _ -> newElement e w h' o c l
89 ; EVideo _ -> newElement e w h' o c l
90 ; _ -> newElement e w h' o c l }
91size w' h' (Element _ e w h o c l) = newElement e w' h' o c l
92opacity o' (Element _ e w h o c l) = newElement e w h o' c l
93color c' (Element _ e w h o c l) = newElement e w h o (Just c') l
94link l' (Element _ e w h o c l) = newElement e w h o c (Just l')
96widthOf (Element _ _ w _ _ _ _) = w
97heightOf (Element _ _ _ h _ _ _) = h
98sizeOf (Element _ _ w h _ _ _) = (w,h)
100n1 = 0-1
102text t = basicNewElement (EText t) n1 n1
103image w h s = basicNewElement (EImage s) w h
104video w h s = basicNewElement (EVideo s) w h
105fittedImage w h s = basicNewElement (EFittedImage s) w h
107flow dir es =
108 let { w = let ws = map widthOf es in
109 case dir of { DLeft -> sum ws
110 ; DRight -> sum ws
111 ; _ -> maximum ws }
112 ; h = let hs = map heightOf es in
113 case dir of { DDown -> sum hs
114 ; DUp -> sum hs
115 ; _ -> maximum hs }
116 } in basicNewElement (EFlow dir es) w h
118above e1 e2 =
119 newElement
120 (EFlow DDown [e1,e2])
121 (max (widthOf e1) (widthOf e2))
122 (heightOf e1 + heightOf e2) 1 Nothing Nothing
124below e1 e2 =
125 basicNewElement (EFlow DDown [e2,e1])
126 (max (widthOf e1) (widthOf e2))
127 (heightOf e1 + heightOf e2)
129beside e1 e2 =
130 basicNewElement (EFlow DRight [e1,e2])
131 (widthOf e1 + widthOf e2)
132 (max (heightOf e1) (heightOf e2))
134layers es =
135 basicNewElement (EFlow DIn es)
136 (maximum (map widthOf es))
137 (maximum (map heightOf es))
139collage w h forms = basicNewElement (ECollage w h forms) w h
141spacer w h = basicNewElement EEmpty w h
143container w h pos e =
144 basicNewElement (EContainer pos e) w h
148data LineStyle = Solid | Dotted | Dashed | Custom [Int]
149data ShapeStyle = Filled | Outlined | CustomOutline [Int] | Textured String
151data Line = Line [(Float,Float)]
153line = Line
154segment p1 p2 = Line [p1,p2]
156data Shape = Shape [(Float,Float)] (Float,Float)
158polygon = Shape
159rect w h pos = Shape [(0-w/2,0-h/2),(0-w/2,h/2),(w/2,h/2),(w/2,0-h/2)] pos
160oval w h pos =
161 let n = 50 in
162 let f i = ( w/2 * cos (2*pi/n * i), h/2 * sin (2*pi/n * i)) in
163 Shape (map f [0..n-1]) pos
164circle r = oval (2*r) (2*r)
165ngon n r pos =
166 let m = toFloat n in
167 let f i = ( r * cos (2*pi/m * i), r * sin (2*pi/m * i)) in
168 Shape (map f [0..n-1]) pos
170data Form = Form Float Float (Float,Float) BasicForm
172data BasicForm
173 = FLine LineStyle Color Line
174 | FShape ShapeStyle Color Shape
175 | FImage Int Int String
176 | FElement Element
178solid clr ln = Form 0 1 (0,0) (FLine Solid clr ln)
179dotted clr ln = Form 0 1 (0,0) (FLine Dotted clr ln)
180dashed clr ln = Form 0 1 (0,0) (FLine Dashed clr ln)
181customLine pattern clr ln =
182 Form 0 1 (0,0) (FLine (Custom pattern) clr ln)
184filled clr (Shape ps pos) = Form 0 1 pos (FShape Filled clr (Shape ps pos))
185outlined clr (Shape ps pos) = Form 0 1 pos (FShape Outlined clr (Shape ps pos))
186customOutline pattern clr (Shape ps pos) =
187 Form 0 1 pos (FShape (CustomOutline pattern) clr (Shape ps pos))
188textured src (Shape ps pos) = Form 0 1 pos (FShape (Textured src) black (Shape ps pos))
190sprite w h pos src = Form 0 1 pos (FImage w h src)
191toForm pos e = Form 0 1 pos (FElement e)
193rotate t (Form theta scale pos form) = Form (t+theta) scale pos form
194scale s (Form theta scale pos form) = Form theta (s*scale) pos form
195move x y (Form theta scale (px,py) form) = Form theta scale (x+px,y+py) form