rename files, namespaces and modules.

SmoulderingBeachBall/InternalServices.fs

@@ -8,7 +8,8 @@
 
         let validateDimension dimension =
             match dimension with
-            | dimension when dimension <= 0 -> invalidArg "dimension" "The width and height must be greater than 0."
+            | dimension when dimension <= 0 -> 
+                invalidArg "dimension" "The width and height must be greater than 0."
             | _ -> ()
 
         let validateDirectory filePath =

SmoulderingBeachBall/ScratchPad.fsx

@@ -1,13 +1,13 @@
-#load "DomainTypes.fs"
+#load "Domain.fs"
 #load "InternalServices.fs"
-#load "PublicServices.fs"
+#load "Services.fs"
 
 open System.Drawing
 open System.Drawing.Imaging
-open SmoulderingBeachBall.Domain
-open SmoulderingBeachBall.ImageMaker
+open SmoulderingBeachBall.Domain.DomainTypes
+open SmoulderingBeachBall.Services
 
-// INITIAL IDEA =======================================================================================================
+// INITIAL IDEA ===============================================================
 
 let width = 500
 let height = 500
@@ -20,7 +20,7 @@ let draw () =
     gr.DrawImage(bmp, 0, 0)
     bmp.Save(testPath, ImageFormat.Png)
 
-// IMAGE MAKER ========================================================================================================
+// Smouldering Beach Ball Library Code ========================================
 
 let borderOverlay =
     { colour = Brushes.BlueViolet;
@@ -35,6 +35,7 @@ let imageSpec =
       height = 500;
       colour = Brushes.Yellow;
       filePath = "C:/users/craig/desktop/test.png";
-      overlay = Some fullOverlay } // Change this to quickly change between border/full overlay or None.
+      // Change this to flip between border/full overlay or None.
+      overlay = Some fullOverlay }
 
 makeImage imageSpec |> Async.RunSynchronously

SmoulderingBeachBall/Services.fs

@@ -1,9 +1,9 @@
 namespace SmoulderingBeachBall
 
-module ImageMaker =
+module Services =
 
     open System
-    open SmoulderingBeachBall.Domain
+    open SmoulderingBeachBall.Domain.DomainTypes
     open InternalServices.Validation
     open InternalServices.Drawing
 

SmoulderingBeachBall/SmoulderingBeachBall.fsproj

@@ -5,9 +5,9 @@
   </PropertyGroup>
 
   <ItemGroup>
-    <Compile Include="DomainTypes.fs" />
+    <Compile Include="Domain.fs" />
     <Compile Include="InternalServices.fs" />
-    <Compile Include="PublicServices.fs" />
+    <Compile Include="Services.fs" />
     <None Include="ScratchPad.fsx" />
   </ItemGroup>