Refactor text rendering

src/Dodge/Picture/Layer.hs

@@ -10,7 +10,7 @@ import Dodge.Picture.Layer.Data
 import Picture
 {- | Uses a layer to set the depth.  -}
 onLayer :: Layer -> Picture -> Picture
-onLayer l = setDepth $ 1 - fromIntegral (levLayer l) / 100 
+onLayer l = setDepth $ (1 - fromIntegral (levLayer l) / 100) / 100
 {- | Set a depth according to a list of numbers.
 Lists are lexicographically ordered if input values are always less than 100.
 Higher numbers will get placed on top of lower numbers.  -}