|
|
|
@ -3,7 +3,6 @@
|
|
|
|
|
open System.Drawing |
|
|
|
|
open System.Drawing.Imaging |
|
|
|
|
open DeathSocket |
|
|
|
|
open System.Drawing.Drawing2D |
|
|
|
|
|
|
|
|
|
let createHorizontalLines width height rows = |
|
|
|
|
let interval = height / rows |
|
|
|
@ -18,7 +17,7 @@
|
|
|
|
|
Point ((interval * point), height)|]|] |
|
|
|
|
|
|
|
|
|
let drawGrid spec = |
|
|
|
|
// The temp. file is used as a way to convert images with index pixels. |
|
|
|
|
// The temp. file is used as a way to convert images with indexed pixels. |
|
|
|
|
use original = Bitmap.FromFile spec.originalPath |
|
|
|
|
use temp = new Bitmap(original) |
|
|
|
|
use clone = temp.Clone(new Rectangle(0, 0, temp.Width, temp.Height), PixelFormat.Format32bppArgb) |
|
|
|
|