Develop laser upgrade path slightly

2022-04-04 17:00:35 +01:00
parent 3698a738f3
commit 31d5bcd0bb
10 changed files with 108 additions and 22 deletions
@@ -222,7 +222,7 @@ circle rad = thickArc 0 (2*pi) rad 1

 centerText :: String -> Picture
 {-# INLINE centerText #-}
-centerText s = translate (25 * (negate . fromIntegral $ length s)) 0 $ text s
+centerText s = translate (50 * (negate . fromIntegral $ length s - 1)) 0 $ text s

 text :: String -> Picture
 {-# INLINE text #-}