finish adding initial design of types.

SmoulderingBeachBall/ImageMaker.fs

@@ -3,13 +3,25 @@ namespace SmoulderingBeachBall
 module ImageMaker =
 
     open System
-    open System.Drawing
     open System.IO
-    open System
+    open System.Drawing
 
-    type OverlaySpec = { colour: Brush}
+    type OverlayType =
+        | Border
+        | Complete
 
-    type ImageSpec = { width: int; height: int; colour: Brush; filePath: string; overlay: Overlay }
+    type OverlaySpec = {
+        colour: Brush;
+        overlayType: OverlayType
+        }
+
+    type ImageSpec = { 
+        width: int;
+        height: int;
+        colour: Brush;
+        filePath: string;
+        overlay: OverlaySpec
+        }
 
     let private validateDimension dimension =
         match dimension with