Browse Source
Write a rough comman-method which overlays a grid to an image in CLI. This command is buggy and will need fixing.master
Craig Oates
6 years ago
3 changed files with 18 additions and 1 deletions
@ -1,5 +1,17 @@ |
|||||||
namespace Commands |
namespace Commands |
||||||
|
|
||||||
module ConsoleCommands = |
module ConsoleCommands = |
||||||
|
open DeathSocket |
||||||
|
open System.Drawing |
||||||
|
|
||||||
let test () = "Death Socket is working." |
let test () = "Death Socket is working." |
||||||
|
|
||||||
|
let ``paint-grid`` imgPath numRows numColumns pWidth (colour: string) newPath = |
||||||
|
let spec = |
||||||
|
{ originalPath = imgPath |
||||||
|
savePath = newPath |
||||||
|
colour = Brushes.Red |
||||||
|
penWidth = pWidth |
||||||
|
rows = numRows |
||||||
|
columns = numColumns } |
||||||
|
GridPainter.applyGrid spec |> Async.RunSynchronously |
Loading…
Reference in new issue