mode shapes

PiotrJustyna · Feb 23, 2024 · 1b5c049 · 1b5c049
1 parent b119979
commit 1b5c049
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 6 deletions.
diff --git a/HelloWorld.lhs b/HelloWorld.lhs
@@ -23,9 +23,14 @@
 > step :: Diagram B
 > step = fromOffsets
 >   [V2 0 0,
->   V2 0 1,
->   V2 2 0,
->   V2 0 (-1),
->   V2 (-2) 0]
+>   V2 0 0.25,
+>   V2 0.5 0,
+>   V2 0 (-0.25),
+>   V2 (-0.5) 0]
+>   # lw veryThin
+>   # showOrigin
 >
-> main = mainWith step
+> drakonPoints :: [Point V2 Double]
+> drakonPoints = map p2 $ [(x, y) | x <- [0..5], y <- [0..5]]
+>
+> main = mainWith $ atPoints drakonPoints (repeat step)