1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- can be run simply via: stack runghc TestSvg.hs > example1.svg
import SimpleSvg
svgExample1 = svgAddList (svgEmpty (svgShGray 200) 300 200) $
[ svgRedLine (0,0) (200,200)
,svgRedLine (300,0) (100,200)
,svgBluePoint (33,133)
,svgBluePoint (33,22)
,svgBluePoint (66,25)
,svgFilledTriangle svgBlack svgWhite (20,20) (100,100) (10,90)
,svgFilledCircle svgWhite svgGreen (150,120) 30
]++
map (svgBluePoint . (,) 250) [50,60..150]
main = putStr $ svgGenerate svgExample1
|
