Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -59,11 +59,9 @@ import Shape
 grenadePic :: Int -> SPic
 grenadePic time = 
    ( colorSH (dark $ dark green) $ upperPrismPolyHalf Small Typical 5 $ polyCirc 3 5
-    , pictures 
-        [ color green $ arc (degToRad $ (179 * fromIntegral time / 50) - 180 ) 
+    , color green $ arc (degToRad $ (179 * fromIntegral time / 50) - 180 ) 
                            (degToRad $ 180 - (179 * fromIntegral time / 50) ) 
                            5
-        ]
    )

 --grenadeDraw :: Float -> Prop -> SPic