From cecb8682c8ddd2a181de8f7f81428f748aa8a70a Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Thu, 30 Aug 2018 20:34:18 +0100 Subject: [PATCH] begin adding record types for image specs. --- SmoulderingBeachBall/ImageMaker.fs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/SmoulderingBeachBall/ImageMaker.fs b/SmoulderingBeachBall/ImageMaker.fs index 9f3e8df..7483178 100644 --- a/SmoulderingBeachBall/ImageMaker.fs +++ b/SmoulderingBeachBall/ImageMaker.fs @@ -5,6 +5,11 @@ module ImageMaker = open System open System.Drawing open System.IO + open System + + type OverlaySpec = { colour: Brush} + + type ImageSpec = { width: int; height: int; colour: Brush; filePath: string; overlay: Overlay } let private validateDimension dimension = match dimension with