From dd2f9f78760a81ca68658f49663635ef9e128fd5 Mon Sep 17 00:00:00 2001 From: Miguel Date: Sun, 17 Mar 2019 13:26:19 +0100 Subject: added my simple haskell svg generator --- simpleSVG/TestSvg.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 simpleSVG/TestSvg.hs (limited to 'simpleSVG/TestSvg.hs') diff --git a/simpleSVG/TestSvg.hs b/simpleSVG/TestSvg.hs new file mode 100644 index 0000000..cb075d1 --- /dev/null +++ b/simpleSVG/TestSvg.hs @@ -0,0 +1,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 -- cgit v1.2.3