Refactoring

2021-05-03 23:59:20 +02:00
parent b826299cbd
commit e21178b688
20 changed files with 830 additions and 731 deletions
@@ -19,7 +19,7 @@ Lists are lexicographically ordered if input values are always less than 100.
 Higher numbers will get placed on top of lower numbers.
 -}
 onLayerL :: [Int] -> Picture -> Picture
-onLayerL is = setDepth (1 - (sum $ zipWith (/) (map fromIntegral is) $ map (100 **) [1..]))
+onLayerL is = setDepth (1 - sum (zipWith (/) (map fromIntegral is) $ map (100 **) [1..]))

 {- | For depth testing, set layer values.
 -}