From edab6de6bed5032fface4f1b695feafeb4e22fd4 Mon Sep 17 00:00:00 2001 From: Piotr Justyna Date: Mon, 4 Mar 2024 16:51:10 +0000 Subject: [PATCH] automatic connections compatible with drakon requirements if applied to correct shapes --- HelloWorld.hs | 4 ++-- hello-world.svg | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/HelloWorld.hs b/HelloWorld.hs index 3b302f1..313826e 100644 --- a/HelloWorld.hs +++ b/HelloWorld.hs @@ -22,8 +22,8 @@ steps = [ Step { originCoordinates = p2 (x, y), name = x * 10 + y } - | x <- [0 .. 1], - y <- [0 .. 2]] + | x <- [0], + y <- [0, -1, -2, -3]] connections :: [Step] -> [QDiagram B V2 Double Any -> QDiagram B V2 Double Any] connections (x1: x2: xn) = diff --git a/hello-world.svg b/hello-world.svg index a114811..df10cb0 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