diff --git a/2023-01-01 b/2023-01-01 new file mode 100644 index 0000000..e69de29 diff --git a/HelloWorld.hs b/HelloWorld.hs index 4d8d89f..d8588c5 100644 --- 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 index 59739db..320e0ab 100644 --- a/hello-world.svg +++ b/hello-world.svg @@ -1,3 +1,3 @@ \ No newline at end of file + "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">hellohello \ No newline at end of file