Craig Oates
6 years ago
1 changed files with 15 additions and 1 deletions
@ -1 +1,15 @@ |
|||||||
|
#load "ImageMaker.fs" |
||||||
|
|
||||||
|
open System.Drawing |
||||||
|
open System.Drawing.Imaging |
||||||
|
|
||||||
|
let width = 500 |
||||||
|
let height = 500 |
||||||
|
let colour = Brushes.BurlyWood |
||||||
|
let draw () = |
||||||
|
use bmp = new Bitmap(width, height) |
||||||
|
use gr = Graphics.FromImage(bmp) |
||||||
|
gr.FillRectangle(colour, new Rectangle(0, 0, bmp.Width, bmp.Height)) |
||||||
|
gr.DrawImage(bmp, 0, 0) |
||||||
|
bmp.Save("C:/users/craig/desktop/test.png", ImageFormat.Png) |
||||||
|
let result = draw () |
||||||
|
Loading…
Reference in new issue