diff --git a/HelloWorld.hs b/HelloWorld.hs index 5a4d37b..3b302f1 100644 --- a/HelloWorld.hs +++ b/HelloWorld.hs @@ -13,12 +13,7 @@ stepName :: Step -> Double stepName Step { originCoordinates = x, name = y } = y stepShape :: Double -> Diagram B -stepShape x = fromOffsets - [V2 0 0, - V2 0 0.5, - V2 0.75 0, - V2 0 (-0.5), - V2 (-0.75) 0] +stepShape x = rect 0.75 0.5 # showOrigin # named x diff --git a/hello-world.svg b/hello-world.svg index 2c90b67..a114811 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"> \ No newline at end of file diff --git a/start.sh b/start.sh index 6b90bec..b4d40bd 100755 --- a/start.sh +++ b/start.sh @@ -11,5 +11,4 @@ docker run \ -it \ -v "$(pwd):/root/code/drakon" \ -v "$CERTIFICATE_DIRECTORY:/root/.ssh:ro" \ - --rm "drakon-renderer:latest" - \ No newline at end of file + "drakon-renderer:latest"