I'll write that some time later...
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
|
#r "FSketch.dll"
open FSketch
open FSketch.Builder
open FSketch.Dsl
let simpleShapes = shapes {
yield rectangle (150., 50.) |> at origin |> withContour Pens.Black
yield ellipse (140., 40.) |> at origin |> withContourAndFill (Pens.Blue, Brushes.LightBlue)
yield rectangle (150., 50.) |> at (200., 0.) |> withContour Pens.Black
yield ellipse (140., 40.) |> at (200., 0.) |> withContourAndFill (Pens.Red, Brushes.LightPink)
}
|
val simpleShapes : obj
Full name: Tutorial.simpleShapes