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
@@ -61,7 +61,7 @@ drawFlame rotd pt = thePic
        [ glow 
        , aPic 3 prot2 18 (V2 (scaleChange + 1)   2  ) red
        , aPic 4 prot  19 (V2 (scaleChange + 0.5) 1.5) orange
-        , aPic 5 prot3 20 (V2 (scaleChange)       1  ) white
+        , aPic 5 prot3 20 (V2  scaleChange        1  ) white
        ]
    aPic :: Int -> (Point2 -> Point2) -> Float -> Point2 -> Color -> Picture
    aPic lay offset depth (V2 scalex scaley) col