Implement arcs with variable width and color

2023-01-11 00:00:02 +00:00
parent 44f767841a
commit 471c6fec7e
11 changed files with 116 additions and 44 deletions
@@ -110,6 +110,7 @@ cylinderOnSeg :: Point3 -> Point3 -> Point3 -> Float -> Bool
 cylinderOnSeg = undefined
 -- | Find the difference between two Nums.
 difference :: (Ord a, Num a) => a -> a -> a
+{-# INLINE difference #-}
 difference x y 
    | x > y     = x - y
    | otherwise = y - x