Move main to allow for new executables

2021-08-11 17:54:48 +02:00
parent b74bb45a4c
commit 4bbe5d0cf1
64 changed files with 521 additions and 345 deletions
@@ -127,8 +127,8 @@ targetRBMousePos w = (f, \_ _ _ w' -> cursorPic w')
    cursorPic w' = setLayer 1 $ onLayer InvLayer $ uncurryV translate mwp 
        $ rotate (_cameraRot w')
        $ pictures
-            [line [( V2 (x) (x)), (V2 (-x) (-x))]
-            ,line [(V2 (-x) (x)), (V2 ( x) (-x))]
+            [line [V2   x  x, V2 (-x) (-x)]
+            ,line [V2 (-x) x, V2   x  (-x)]
            ]
      where
        x = 5 / _cameraZoom w'