64 lines
1.4 KiB
Elm
64 lines
1.4 KiB
Elm
|
|
||
|
|
module Graphics.Collage where
|
||
|
|
|
||
|
|
import Either
|
||
|
|
import Graphics.LineStyle
|
||
|
|
import Geometry
|
||
|
|
|
||
|
|
data Transform
|
||
|
|
= Rotate Float
|
||
|
|
| Move Float Float
|
||
|
|
| Scale Float Float
|
||
|
|
| Transform Float Float Float Float Float Float
|
||
|
|
|
||
|
|
type Form = { transforms : [Transform], form : BasicForm }
|
||
|
|
|
||
|
|
data FillStyle
|
||
|
|
= NoFill
|
||
|
|
| Solid Color
|
||
|
|
| Texture String
|
||
|
|
| Gradient Gradient
|
||
|
|
|
||
|
|
data BasicForm
|
||
|
|
= FLine LineStyle Line
|
||
|
|
| FShape (Either LineStyle FillStyle) Shape
|
||
|
|
| FImage Int Int (Int,Int) String
|
||
|
|
| FElement Element
|
||
|
|
| FGroup [Form]
|
||
|
|
|
||
|
|
fill style shape = Form [] (FShape (Right style) shape)
|
||
|
|
|
||
|
|
filled : Color -> Shape -> Form
|
||
|
|
filled color shape = fill (Solid color) shape
|
||
|
|
|
||
|
|
textured : String -> Shape -> Form
|
||
|
|
textured src shape = fill (Texture src) shape
|
||
|
|
|
||
|
|
gradient : Gradient -> Shape -> Form
|
||
|
|
gradient grad shape = fill (Gradient grad) shape
|
||
|
|
|
||
|
|
outline style shape = Form [] (FShape (Left style) shape)
|
||
|
|
trace style line = Form [] (FLine style line)
|
||
|
|
|
||
|
|
sprite w h pos src = Form [] (FImage w h pos src)
|
||
|
|
toForm e = Form [] (FElement e)
|
||
|
|
|
||
|
|
group fs = Form [] (FGroup fs)
|
||
|
|
|
||
|
|
add t f = { transforms = t :: f.transforms, form = f.form }
|
||
|
|
|
||
|
|
radians t = t
|
||
|
|
degrees dep = pi * deg / 180
|
||
|
|
rotations rot = 2 * pi * rot
|
||
|
|
|
||
|
|
rotate t = add (Rotate t)
|
||
|
|
|
||
|
|
scale s = add (Scale s s)
|
||
|
|
scaleX s = add (Scale s 1)
|
||
|
|
scaleY s = add (Scale 1 s)
|
||
|
|
|
||
|
|
move x y = add (Move x y)
|
||
|
|
moveX x = add (Move x 0)
|
||
|
|
moveY y = add (Move 0 y)
|
||
|
|
|
||
|
|
transform a b c d e f = add (Transform a b c d e f)
|