Browse Source

add initial sketching out of image creation in scratch pad.

master
Craig Oates 6 years ago
parent
commit
47071e7b8a
  1. 16
      SmoulderingBeachBall/SmoulderingBeachBall/ScratchPad.fsx

16
SmoulderingBeachBall/SmoulderingBeachBall/ScratchPad.fsx

@ -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…
Cancel
Save