Browse Source

remove temp. code and comments from Commands.fs.

master
Craig Oates 5 years ago
parent
commit
54dabb9c07
  1. 18
      DeathSocketCLI/Commands.fs

18
DeathSocketCLI/Commands.fs

@ -41,7 +41,6 @@
printfn "[INFO.] Adding default grid to image..."
Brush (buildDefaultSpec imgPath newPath)
|> applyImageToGrid
//|> applyBrushSpecGridAsync
|> Async.Start
showEndOfCommandMessage
with
@ -61,7 +60,6 @@
printfn "[INFO.] Adding grid to image..."
Brush (buildSpec imgPath numRows numColumns pWidth colour newPath)
|> applyImageToGrid
//|> applyBrushSpecGridAsync
|> Async.Start
showEndOfCommandMessage
with
@ -115,7 +113,6 @@
printfn "[INFO.] Adding SkiaSharp grid to image..."
Skia (buildSkiaSpec imgPath numRows numColumns pWidth colour newPath)
|> applyImageToGrid
//|> applySkiaGridAsync
|> Async.Start
showEndOfCommandMessage
@ -123,20 +120,5 @@
printfn "[INFO.] Adding SkiaSharp grid to image..."
SkiaRGB (buildSkiaRGBSpec imgPath numRows numColumns pWidth r g b newPath)
|> applyImageToGrid
//|> applySkiaRGBGridAsync
|> Async.Start
showEndOfCommandMessage
let dutest () =
printf "saving image..."
let b =
Brush (buildDefaultSpec "C:\Users\craig\Desktop\du-test.jpg" "C:\Users\craig\Desktop\du-test-brush.jpg")
// let r = buildRGBASpec...
let s =
Skia (buildSkiaSpec "C:\Users\craig\Desktop\du-test.jpg" 5 5 (float32 2) "Red" "C:\Users\craig\Desktop\du-test-skia.jpg")
let sR =
SkiaRGB (buildSkiaRGBSpec "C:\Users\craig\Desktop\du-test.jpg" 5 5 (float32 2) 12 56 121 "C:\Users\craig\Desktop\du-test-skia.jpg")
sR
|> applyImageToGrid
|> Async.RunSynchronously
showEndOfCommandMessage
Loading…
Cancel
Save