|
|
|
@ -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 |