3DCastle.fs

#load "Fun3D.fsx"
open Fun3D

let main() =
  for z in 0..2 do
    for i in 0 .. 5 do
      Block.block(i, 0, -z, Block.crate)
      Block.block(i, -5, -z, Block.crate)
      Block.block(0, -i, -z, Block.crate)
      Block.block(5, -i, -z, Block.crate)
    for i in 3..4 do
      Block.block(0, 0, -i, Block.crate)
      Block.block(0, -5, -i, Block.crate)
      Block.block(5, 0, -i, Block.crate)
      Block.block(5, -5, -i, Block.crate)