SmoothingMode.AntiAlias

Author: robertpi

FractalTrees/Program.fs

@@ -1,10 +1,13 @@
 open System.Diagnostics
+open System.IO
 
 [<EntryPoint>]
 let main argv =
     printfn "Drawing a tree"
 
-    let outPath = @"C:\code\FractalTrees\FractalTrees\tree.jpg"
+    let outfolder = @"C:\code\FractalTrees\FractalTrees\results"
+    if Directory.Exists outfolder |> not then Directory.CreateDirectory outfolder |> ignore
+    let outPath = Path.Combine(outfolder, "tree.jpg")
 
     Tree.drawTree outPath
 

FractalTrees/Tree.fs

@@ -9,6 +9,7 @@ let drawTree file =
     let rnd = new Random()
     let img = new Bitmap(size, size)
     use g = Graphics.FromImage(img)
+    g.SmoothingMode <- SmoothingMode.AntiAlias;
     let pen = new Pen(Color.Black, 1.f)
     g.FillRectangle(new SolidBrush(Color.White), 0, 0, size, size)
     g.DrawRectangle(new Pen(Color.Black, 1.f), 0, 0, size - 1, size - 1)