|
|
@ -12,13 +12,6 @@ |
|
|
|
|
|
|
|
|
|
|
|
let exit () = Environment.Exit (Environment.ExitCode) |
|
|
|
let exit () = Environment.Exit (Environment.ExitCode) |
|
|
|
|
|
|
|
|
|
|
|
(* possibe function -- save to desktop and almost set to "default"? |
|
|
|
|
|
|
|
might be to goto for most command calls... |
|
|
|
|
|
|
|
let `draw-basic` imgWidth imgHeight = |
|
|
|
|
|
|
|
buildSimpleSpec |
|
|
|
|
|
|
|
|> makeImage |
|
|
|
|
|
|
|
*) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let ``draw-default`` imgWidth imgHeight = |
|
|
|
let ``draw-default`` imgWidth imgHeight = |
|
|
|
try |
|
|
|
try |
|
|
|
buildDefaultSpec imgWidth imgHeight |
|
|
|
buildDefaultSpec imgWidth imgHeight |
|
|
@ -29,19 +22,9 @@ |
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
| _ as ex -> ex.Message |
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
|
|
let ``draw-image`` imgWidth imgHeight mainColour path = |
|
|
|
let ``draw-image`` imgWidth imgHeight mainColour oColour oType path = |
|
|
|
try |
|
|
|
|
|
|
|
buildBasicSpec imgWidth imgHeight mainColour path |
|
|
|
|
|
|
|
|> makeImage |
|
|
|
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
|
|
|
with |
|
|
|
|
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
|
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let ``draw-borderedImage`` imgWidth imgHeight mainColour oColour oType path = |
|
|
|
|
|
|
|
try |
|
|
|
try |
|
|
|
buildOverlaySpec imgWidth imgHeight mainColour oColour oType path |
|
|
|
buildSpec imgWidth imgHeight mainColour oColour oType path |
|
|
|
|> makeImage |
|
|
|
|> makeImage |
|
|
|
|> Async.RunSynchronously |
|
|
|
|> Async.RunSynchronously |
|
|
|
showEndOfCommandMessage |
|
|
|
showEndOfCommandMessage |
|
|
@ -49,13 +32,6 @@ |
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
| _ as ex -> ex.Message |
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
|
|
let ``draw-overlayedImage`` () = |
|
|
|
|
|
|
|
try |
|
|
|
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
|
|
|
with |
|
|
|
|
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
|
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let ``list-colours`` () = |
|
|
|
let ``list-colours`` () = |
|
|
|
printfn "[INFO.] Listing available colours..." |
|
|
|
printfn "[INFO.] Listing available colours..." |
|
|
|
for item in colourList do |
|
|
|
for item in colourList do |
|
|
|