|
|
|
@ -63,17 +63,17 @@
|
|
|
|
|
|
|
|
|
|
[<ListCommand>] |
|
|
|
|
[<Parameters |
|
|
|
|
("(image-width: int) (image-height: int) (main-colour: string) " + |
|
|
|
|
"(overlay-colour: string) (overlay-type:string) (file-path: string)")>] |
|
|
|
|
("(image-width: int) (image-height: int) (main-colour: string) " + |
|
|
|
|
"(overlay-colour: string) (overlay-type: string) (file-path: string)")>] |
|
|
|
|
[<Description |
|
|
|
|
("\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..." |
|
|
|
|