Polygons with holes

open OCADml
open OSCADml

let () =
  let scad =
    let shape =
      let holes =
        let s = Path2.rotate (Float.pi /. 4.) @@ Path2.square ~center:true (v2 2. 2.) in
        Path2.[ s; translate (v2 (-2.) (-2.)) s; translate (v2 2. 2.) s ]
      in
      Poly2.make ~holes (Path2.square ~center:true (v2 10. 10.))
    in
    let poly =
      Mesh.extrude ~merge:true ~height:1. shape
      |> Scad.of_mesh
      |> Scad.color ~alpha:0.5 Color.Silver
    and reference =
      Scad.of_poly2 shape
      |> Scad.extrude ~height:1.
      |> Scad.translate (v3 0. 0. (-3.))
      |> Scad.color ~alpha:0.5 Color.BlueViolet
    in
    Scad.add poly reference
  in
  Scad.to_file "polyholes.scad" scad