Start work on crafting/combinations

src/Picture.hs

@@ -259,7 +259,7 @@ thickLineCol ps t = pictures $ f ps
         ,(y +.+ n x y,c')
         ] : f ((y,c'):ys)
     f _             = []
-    n a b = (t*0.5) *.* safeNormalizeV (vNormal (a -.- b))
+    n a b = (t*0.5) *.* squashNormalizeV (vNormal (a -.- b))
 
 thickCircle :: Float -> Float -> Picture
 {-# INLINE thickCircle #-}