The purpose of this repository is to provide a way for people to create placeholder images quickly.
https://www.craigoates.net/Software/project/11
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
906 B
28 lines
906 B
6 years ago
|
#load "ImageMaker.fs"
|
||
|
|
|
||
|
|
open System.Drawing
|
||
|
|
open System.Drawing.Imaging
|
||
|
|
open SmoulderingBeachBall
|
||
|
|
|
||
|
|
// INITIAL IDEA =======================================================================================================
|
||
|
|
|
||
|
|
let width = 500
|
||
|
|
let height = 500
|
||
|
|
let colour = Brushes.BurlyWood
|
||
|
|
let testPath = "C:/users/craig/desktop/test.png"
|
||
|
|
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(testPath, ImageFormat.Png)
|
||
|
|
|
||
|
|
// IMAGE MAKER ========================================================================================================
|
||
|
|
|
||
|
|
let im_width = 500
|
||
|
|
let im_height = 500
|
||
|
|
let im_colour = Brushes.BurlyWood
|
||
|
|
let im_testPath = "C:/users/craig/desktop/test.png"
|
||
|
|
|
||
|
|
ImageMaker.makeImage im_width im_height im_colour im_testPath
|
||
|
|
|> Async.RunSynchronously
|