working step rendering

PiotrJustyna · Feb 23, 2024 · c30045b · c30045b
1 parent f324d97
commit c30045b
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/HelloWorld.lhs b/HelloWorld.lhs
@@ -17,4 +17,15 @@
 > twoShapes :: Diagram B
 > twoShapes = square 1 # fc aqua `atop` circle 1
 >
-> main = mainWith twoCircles
+> vectorShape :: Diagram B
+> vectorShape = fromOffsets . map r2 $ [(0,0), (1,1), (-2,1), (-1,-4)]
+> 
+> step :: Diagram B
+> step = fromOffsets
+>   [V2 0 0,
+>   V2 0 1,
+>   V2 2 0,
+>   V2 0 (-1),
+>   V2 (-2) 0]
+>
+> main = mainWith step
diff --git a/hello-world.svg b/hello-world.svg