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.
20 lines
520 B
20 lines
520 B
namespace SmoulderingBeachBall |
|
|
|
module ImageMaker = |
|
|
|
open System.Drawing |
|
//open System.Drawing.Imaging |
|
|
|
let addOverlay colour image = |
|
null |
|
|
|
let saveImage filePath = |
|
null |
|
|
|
let makeImage (width: int) (height: int) (colour: Brush) = |
|
async { |
|
use bitmap = new Bitmap(width, height) |
|
use graphics = Graphics.FromImage(bitmap) |
|
graphics.FillRectangle(Brushes.Coral, new Rectangle(0, 0, bitmap.Width, bitmap.Height)) |
|
return "we" |
|
} |