|
|
|
#load "Domain.fs"
|
|
|
|
#load "InternalServices.fs"
|
|
|
|
#load "Services.fs"
|
|
|
|
|
|
|
|
open System.Drawing
|
|
|
|
open System.Drawing.Imaging
|
|
|
|
open SmoulderingBeachBall.Domain.DomainTypes
|
|
|
|
open SmoulderingBeachBall.Services
|
|
|
|
|
|
|
|
// INITIAL IDEA ===============================================================
|
|
|
|
|
|
|
|
let width = 500
|
|
|
|
let height = 500
|
|
|
|
let colour = Brushes.BurlyWood
|
|
|
|
let testPath = "C:/users/craig/desktop/test.png"
|
|
|
|
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(testPath, ImageFormat.Png)
|
|
|
|
|
|
|
|
// Smouldering Beach Ball Library Code ========================================
|
|
|
|
|
|
|
|
let borderOverlay =
|
|
|
|
{ colour = Brushes.BlueViolet;
|
|
|
|
overlayType = Border }
|
|
|
|
|
|
|
|
let fullOverlay =
|
|
|
|
{ colour = Brushes.Fuchsia;
|
|
|
|
overlayType = Full }
|
|
|
|
|
|
|
|
let imageSpec =
|
|
|
|
{ width = 500;
|
|
|
|
height = 500;
|
|
|
|
colour = Brushes.Yellow;
|
|
|
|
filePath = "C:/users/craig/desktop/";
|
|
|
|
// Change this to flip between border/full overlay or None.
|
|
|
|
overlay = Some fullOverlay }
|
|
|
|
|
|
|
|
makeImage imageSpec |> Async.RunSynchronously
|