namespace SmoulderingBeachBall.Domain [] /// A collection of types used to describe a Smouldering Beach Ball image. module DomainTypes = open System.Drawing /// /// The type of overly the image should have. /// Border creates a border around the base image. /// Full creates a border and a 'X' over the base image. /// type OverlayType = | Border | Full /// /// The specification for the overlay. /// You define the overlays colour and overlay type here. /// type OverlaySpec = { colour: Brush; overlayType: OverlayType } /// /// The specification for the whole image. /// Set the width, height, colour, save location and overlay here. /// The overlay requires an OverlaySpec if an overlay is desired. /// To create an image without an overlay, just use 'None'. /// type ImageSpec = { width: int; height: int; colour: Brush; filePath: string; overlay: OverlaySpec option }