Death Socket consists of three projects. They are a .Net Standard 2.0 library, a console program and a Test Centre. The purpose of this repository is to provide a way for people to add grids to images.
https://www.craigoates.net/Software/project/13
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
750 B
27 lines
750 B
namespace DeathSocket |
|
|
|
open System.IO |
|
|
|
module GridPainter = |
|
|
|
open Validation |
|
open ImageServices |
|
open System.Drawing |
|
open System.Reflection |
|
|
|
let applyGridAsync spec = |
|
async { |
|
try |
|
validateFilePath |> ignore |
|
drawGrid spec |> ignore |
|
with |
|
| :? FileNotFoundException as ex -> |
|
printfn "File could not be found at %s" ex.Message |
|
} |
|
|
|
let ListAllColours = |
|
let properties = |
|
typeof<Brushes>.GetProperties |
|
(BindingFlags.Public ||| BindingFlags.Static) |
|
seq { for prop in properties -> prop } |
|
|> Seq.toList |