scad-clj demo

scad-clj-cubes.clj

;; this example could go a lot of different directions
;; you could bind the difference between the min cube size and max cube size to an interval and extrude N objects over the distance between 0 and PI.
;; lots of other cool parametric things are possible before the code gets translated.

;; bring primitives into namespace or whatever
(ns scad-demo.core
  (:use [scad-clj.scad])
  (:use [scad-clj.model]))

;; make primitives
(def primitives
  (union
                (->> (rotate (* Math/PI (/ 0 4)) [0 0 1])
                        (->> (cube 5 5 5)
                                (rotate (/ Math/PI 4) [1 1 1])
                                (translate [150 0 0]))
                )
                (->> (rotate (* Math/PI (/ 1 4)) [0 0 1])
                        (->> (cube 10 10 10)
                                (rotate (/ Math/PI 4) [1 1 1])
                                (translate [150 0 0]))
                )
                (->> (rotate (* Math/PI (/ 2 4)) [0 0 1])
                        (->> (cube 20 20 20)
                                (rotate (/ Math/PI 4) [1 1 1])
                                (translate [150 0 0]))
                )
                (->> (rotate (* Math/PI (/ 3 4)) [0 0 1])
                        (->> (cube 30 30 30)
                                (rotate (/ Math/PI 4) [1 1 1])
                                (translate [150 0 0]))
                )
                (->> (rotate (* Math/PI (/ 4 4)) [0 0 1])
                        (->> (cube 40 40 40)
                                (rotate (/ Math/PI 4) [1 1 1])
                                (translate [150 0 0]))
                )
  )
)

;; export to scad
(spit "example.scad" (write-scad primitives))