From 062002deaf232cb9e67b2ccae68feb4b0efd46f2 Mon Sep 17 00:00:00 2001 From: "OPTIMUS-PRIME\\craig" Date: Mon, 3 Sep 2018 18:22:13 +0100 Subject: [PATCH] add aliases for the current command-methods. --- SmoulderingBeachBall/InternalServices.fs | 2 +- SmoulderingBeachBallCLI/ConsoleCommands.fs | 16 ++++++++++++++++ 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/SmoulderingBeachBall/InternalServices.fs b/SmoulderingBeachBall/InternalServices.fs index 96e11f2..260e608 100644 --- a/SmoulderingBeachBall/InternalServices.fs +++ b/SmoulderingBeachBall/InternalServices.fs @@ -32,7 +32,7 @@ else width * (float32 0.05) let createBorderPath penWidth spec = - let offset = penOffset penWidth + let offset = penOffset penWidth [|Point (0, offset); // Essentially (0, 0) Point ((spec.width - offset), offset); Point ((spec.width - offset), (spec.height - offset)); diff --git a/SmoulderingBeachBallCLI/ConsoleCommands.fs b/SmoulderingBeachBallCLI/ConsoleCommands.fs index 3d35c43..a7bb5a8 100644 --- a/SmoulderingBeachBallCLI/ConsoleCommands.fs +++ b/SmoulderingBeachBallCLI/ConsoleCommands.fs @@ -38,3 +38,19 @@ printfn "%s" item.Key showEndOfCommandMessage + (* ALIASES + ======================================================================= + These command-methods will not show up in the help section. + Before adding extra aliases, make sure the main version is as helpful + to someone new to the program as possible. Aliases should be treated as + commands for experienced users and documented on the wiki, hosted + alongside the repository on GitHub. + URL: https://github.com/CraigOates/Smouldering-Beach-Ball/wiki *) + + let dd imgWidth imgHeight = + ``draw-default`` imgWidth imgHeight + + let di imgWidth imgHeight mainColour oColour oType path = + ``draw-image`` imgWidth imgHeight mainColour oColour oType path + + let lc () = ``list-colours`` ()