|
|
|
@ -69,11 +69,11 @@
|
|
|
|
|
("\nCreates an image using the values specified by the user.\n" + |
|
|
|
|
"To see a list of available colours use the 'list-colours' command.\n" + |
|
|
|
|
"For the overlay-type you can enter either 'none', 'border' or 'full.'\n" + |
|
|
|
|
"For the file path, you can enter 'desktop' to save to the desktop." + |
|
|
|
|
"For the file path, you can enter 'desktop' to save to the desktop.\n" + |
|
|
|
|
"Otherwise, you must specify the whole path.")>] |
|
|
|
|
[<Usage |
|
|
|
|
("\ndraw-image 770 400 white black full desktop\n" + |
|
|
|
|
"draw-image 600 400 purple gray border C:/work/project-folder/images\n" + |
|
|
|
|
"draw-image 600 400 purple grey border C:/work/project-folder/images\n" + |
|
|
|
|
"draw-image 800 440 black - none D:/your-project/assets")>] |
|
|
|
|
let ``draw-image`` imgWidth imgHeight mainColour oColour oType path = |
|
|
|
|
try |
|
|
|
@ -87,8 +87,7 @@
|
|
|
|
|
|
|
|
|
|
[<ListCommand>] |
|
|
|
|
[<Parameters "None">] |
|
|
|
|
[<Description |
|
|
|
|
"Lists out the colours this program uses to draw its images.">] |
|
|
|
|
[<Description "Lists out the colours this program uses to draw its images.">] |
|
|
|
|
[<Usage "list-colours">] |
|
|
|
|
let ``list-colours`` () = |
|
|
|
|
printfn "[INFO.] Listing available colours..." |
|
|
|
|