|
|
|
@ -3,6 +3,24 @@
|
|
|
|
|
module ConsoleCommands = |
|
|
|
|
|
|
|
|
|
open Console.Waterworks |
|
|
|
|
open SmoulderingBeachBall |
|
|
|
|
open SmoulderingBeachBall.Services |
|
|
|
|
|
|
|
|
|
let test () = "This program is working." |
|
|
|
|
|
|
|
|
|
let ``draw-image`` () = |
|
|
|
|
// makeImage |
|
|
|
|
//"Image completed." |
|
|
|
|
"Command not implemented." |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let ``draw-borderedImage`` () = |
|
|
|
|
|
|
|
|
|
//"Image completed." |
|
|
|
|
"Command not implemented." |
|
|
|
|
|
|
|
|
|
let ``draw-overlayedImage`` () = |
|
|
|
|
|
|
|
|
|
//"Image completed." |
|
|
|
|
"Command not implemented." |
|
|
|
|
|
|
|
|
|