src/scad_demo/core.clj


1
2
3
4
5
6
7
8
9
10
11

(ns scad-demo.core
  (:use [scad-clj.scad])
  (:use [scad-clj.model]))

(def primitives
  (union
   (union)
   (->> (sphere 50))))

(spit "post-demo.scad"
      (write-scad primitives))