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