progress?

PiotrJustyna · Mar 11, 2024 · 70e4cc6 · 70e4cc6
1 parent 3fe54d6
commit 70e4cc6
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/2023-01-01 b/2023-01-01
diff --git a/HelloWorld.hs b/HelloWorld.hs
@@ -4,6 +4,7 @@
 
 import Diagrams.Prelude
 import Diagrams.Backend.SVG.CmdLine
+import Diagrams.TwoD.Text
 
 data StepType
     = StartType
@@ -22,7 +23,7 @@ stepShape :: Double -> Diagram B
 stepShape x = rect 0.95 0.4 # showOrigin # named x
 
 startShape :: Double -> Diagram B
-startShape x = roundedRect 0.95 0.4 0.5 # showOrigin # named x
+startShape x = text "hello" <> roundedRect 0.95 0.4 0.5 # showOrigin # named x
 
 endShape :: Double -> Diagram B
 endShape = startShape

diff --git a/hello-world.svg b/hello-world.svg