Allow shadow fidelity option, fix bug in rendering box shadows

src/Shape/Data.hs

@@ -25,11 +25,25 @@ data ShadowFidelity = FullShadowFidelity
     | NoShadowFidelity
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data Size = Huge
+    | Large
+    | Medium
+    | Small
+    | Tiny
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+data Importance = Essential
+    | Important
+    | Typical
+    | Unimportant
+    | Superfluous
+    deriving (Eq, Ord, Show, Read, Enum, Bounded) --Generic, Flat)
+
 data Surface = Surface
     { _sfType :: ShapeType
     , _sfVs :: [Point3]
     , _sfColor :: Point4
-    , _sfShadowFidelity :: ShadowFidelity
+    , _sfShadowImportance :: Importance
+    , _sfSize :: Size
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
@@ -46,4 +60,6 @@ shapeVerxSizes = [4,4,4]
 
 deriveJSON defaultOptions ''ShadowFidelity
 deriveJSON defaultOptions ''ShapeType
+deriveJSON defaultOptions ''Size
+deriveJSON defaultOptions ''Importance
 deriveJSON defaultOptions ''Surface