diff --git a/SmoulderingBeachBall/SmoulderingBeachBall/ScratchPad.fsx b/SmoulderingBeachBall/SmoulderingBeachBall/ScratchPad.fsx
index e02abfc..f15e156 100644
--- a/SmoulderingBeachBall/SmoulderingBeachBall/ScratchPad.fsx
+++ b/SmoulderingBeachBall/SmoulderingBeachBall/ScratchPad.fsx
@@ -1 +1,15 @@
-
+#load "ImageMaker.fs"
+
+open System.Drawing
+open System.Drawing.Imaging
+
+let width = 500
+let height = 500
+let colour = Brushes.BurlyWood
+let draw () =
+    use bmp = new Bitmap(width, height)
+    use gr = Graphics.FromImage(bmp)
+    gr.FillRectangle(colour, new Rectangle(0, 0, bmp.Width, bmp.Height))
+    gr.DrawImage(bmp, 0, 0)
+    bmp.Save("C:/users/craig/desktop/test.png", ImageFormat.Png)
+let result = draw ()