Add dimensions to all items

2021-11-20 00:01:54 +00:00
parent 9f4ff3a75a
commit 20cf2ce26d
8 changed files with 26 additions and 11 deletions
@@ -309,7 +309,7 @@ sizeSelf x cr w
    | otherwise = Nothing
  where
    cr1 = colCrWall w (cr {_crRad = 10* x})
-    cr2 = colCrWall w cr1
+    --cr2 = colCrWall w cr1
    distR = 120
    distortionBulge 
        | _crRad cr < 10*x  = raddist 1.9