move script code to ImageMaker.

Add Windows Compatibility Pack.

SmoulderingBeachBall/SmoulderingBeachBall/ImageMaker.fs

@@ -2,11 +2,19 @@ namespace SmoulderingBeachBall
 
 module ImageMaker =
 
-    let makeImage width height colour =
-        null
+    open System.Drawing
+    //open System.Drawing.Imaging
 
     let addOverlay colour image =
         null
 
     let saveImage filePath =
         null
+
+    let makeImage (width: int) (height: int) (colour: Brush) =
+        async {
+            use bitmap = new Bitmap(width, height)
+            use graphics = Graphics.FromImage(bitmap)
+            graphics.FillRectangle(Brushes.Coral, new Rectangle(0, 0, bitmap.Width, bitmap.Height))
+            return "we"
+        }

SmoulderingBeachBall/SmoulderingBeachBall/SmoulderingBeachBall.fsproj

@@ -6,9 +6,23 @@
 
   <ItemGroup>
     <Compile Include="ImageMaker.fs" />
+    <COMReference Include="{215d64d2-031c-33c7-96e3-61794cd1ee61}">
+      <Guid>215d64d2-031c-33c7-96e3-61794cd1ee61</Guid>
+      <VersionMajor>2</VersionMajor>
+      <VersionMinor>4</VersionMinor>
+      <WrapperTool>tlbimp</WrapperTool>
+    </COMReference>
+    <COMReference Include="{d37e2a3e-8545-3a39-9f4f-31827c9124ab}">
+      <Guid>d37e2a3e-8545-3a39-9f4f-31827c9124ab</Guid>
+      <VersionMajor>2</VersionMajor>
+      <VersionMinor>4</VersionMinor>
+      <WrapperTool>tlbimp</WrapperTool>
+    </COMReference>
     <None Include="ScratchPad.fsx" />
   </ItemGroup>
 
-  <ItemGroup />
+  <ItemGroup>
+    <PackageReference Include="Microsoft.Windows.Compatibility" Version="2.0.1" />
+  </ItemGroup>
 
 </Project>