|
|
|
@ -1,5 +1,6 @@
|
|
|
|
|
#load "Domain.fs" |
|
|
|
|
#load "Validation.fs" |
|
|
|
|
#load "ColourServices.fs" |
|
|
|
|
#load "ImageServices.fs" |
|
|
|
|
#load "GridPainter.fs" |
|
|
|
|
|
|
|
|
@ -30,7 +31,7 @@ let verticalLines = createVerticalLines 300 600 10
|
|
|
|
|
Death Socket assumes either JPEG or PNG files so use other files at your own |
|
|
|
|
risk. Cannot guarantee they will work. Also, either in this spec. can be |
|
|
|
|
changed to suit your needs. *) |
|
|
|
|
let spec :ImageSpec = |
|
|
|
|
let spec: BrushSpec = |
|
|
|
|
{ originalPath = desktop + "/test.jpg" |
|
|
|
|
savePath = desktop + "/grid.png" |
|
|
|
|
colour = Brushes.Chartreuse |
|
|
|
@ -39,4 +40,4 @@ let spec :ImageSpec =
|
|
|
|
|
columns = 10 } |
|
|
|
|
|
|
|
|
|
// Run this when you have finished building the spec. |
|
|
|
|
GridPainter.applyGridAsync spec |> Async.RunSynchronously |
|
|
|
|
GridPainter.applyBrushSpecGridAsync spec |> Async.RunSynchronously |
|
|
|
|