|
|
|
@ -4,6 +4,7 @@
|
|
|
|
|
open System.Drawing.Imaging |
|
|
|
|
open DeathSocket |
|
|
|
|
open ColourServices |
|
|
|
|
open SkiaSharp |
|
|
|
|
|
|
|
|
|
let createHorizontalLines width height rows = |
|
|
|
|
let interval = height / rows |
|
|
|
@ -52,3 +53,14 @@
|
|
|
|
|
for line in horizontalLines do graphics.DrawLines (pen, line) |
|
|
|
|
for line in verticalLines do graphics.DrawLines (pen, line) |
|
|
|
|
clone.Save (spec.savePath) |
|
|
|
|
|
|
|
|
|
// You are up to here. Need to draw lines and add image. |
|
|
|
|
let drawSkiaGrid () = |
|
|
|
|
let imageInfo = new SKImageInfo (500, 500) |
|
|
|
|
use surface = SKSurface.Create(imageInfo) |
|
|
|
|
let canvas = surface.Canvas |
|
|
|
|
canvas.Clear (SKColors.White) |
|
|
|
|
let horizontalLines = createHorizontalLines 500 1000 6 |
|
|
|
|
let verticalLines = createVerticalLines 500 1000 9 |
|
|
|
|
|
|
|
|
|
23 |