Browse Source

add aliases for the current command-methods.

master
Craig Oates 6 years ago
parent
commit
062002deaf
  1. 2
      SmoulderingBeachBall/InternalServices.fs
  2. 16
      SmoulderingBeachBallCLI/ConsoleCommands.fs

2
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));

16
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`` ()

Loading…
Cancel
Save