parametrically extruded cubes

param-cubes.1_by_64.stl

param-cubes.5_by_8.stl

param-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
  (:require [scad-clj.scad :refer :all]
            [scad-clj.model :refer :all]))

;; make primitives
;; change this to union M objects within range (A, B) with an increment size calculation function, by default increment
;; adding a constant fraction (/ (- B A) M) but allow for customization
;; if extruding over a fraction of pi, then (A, B) is constrained by (0 <= a < b < 2) or (0 < a < b <= 2) depending on your preference.
;; to keep things simple lets focus on generating M objects into the union function

(defn cube-instance [a b c]
  (->> (rotate (* Math/PI (/ a b)) [0 0 1])
    (->> (cube c c c)
      (rotate (/ Math/PI 4) [1 1 1])
      (translate [150 0 0]))
  ))

(defn render-range [size size-inc bottom range-inc top objects] 
  (print objects)
  (newline)
  (print cube-instance bottom top size)
  (newline)
  (newline)
  (if (<= bottom top) 
    (render-range (+ size size-inc) size-inc (+ bottom range-inc) range-inc top (concat objects [(cube-instance bottom top size)]))
    [objects]))

(def primitives
  (union
    ;(render-range 5 5 0 1 4 [])
    (render-range 1 1 0 1 64 [])
  )
)

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

~param-cubes.1_by_64.scad

union () {
  rotate (a=0.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([1, 1, 1], center=true);
      }
    }
  }
  rotate (a=2.8125, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([2, 2, 2], center=true);
      }
    }
  }
  rotate (a=5.625, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([3, 3, 3], center=true);
      }
    }
  }
  rotate (a=8.4375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([4, 4, 4], center=true);
      }
    }
  }
  rotate (a=11.25, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([5, 5, 5], center=true);
      }
    }
  }
  rotate (a=14.0625, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([6, 6, 6], center=true);
      }
    }
  }
  rotate (a=16.875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([7, 7, 7], center=true);
      }
    }
  }
  rotate (a=19.6875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([8, 8, 8], center=true);
      }
    }
  }
  rotate (a=22.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([9, 9, 9], center=true);
      }
    }
  }
  rotate (a=25.312499999999996, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([10, 10, 10], center=true);
      }
    }
  }
  rotate (a=28.125, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([11, 11, 11], center=true);
      }
    }
  }
  rotate (a=30.937499999999996, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([12, 12, 12], center=true);
      }
    }
  }
  rotate (a=33.75, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([13, 13, 13], center=true);
      }
    }
  }
  rotate (a=36.56250000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([14, 14, 14], center=true);
      }
    }
  }
  rotate (a=39.375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([15, 15, 15], center=true);
      }
    }
  }
  rotate (a=42.18749999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([16, 16, 16], center=true);
      }
    }
  }
  rotate (a=45.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([17, 17, 17], center=true);
      }
    }
  }
  rotate (a=47.81250000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([18, 18, 18], center=true);
      }
    }
  }
  rotate (a=50.62499999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([19, 19, 19], center=true);
      }
    }
  }
  rotate (a=53.43749999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([20, 20, 20], center=true);
      }
    }
  }
  rotate (a=56.25, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([21, 21, 21], center=true);
      }
    }
  }
  rotate (a=59.06250000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([22, 22, 22], center=true);
      }
    }
  }
  rotate (a=61.87499999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([23, 23, 23], center=true);
      }
    }
  }
  rotate (a=64.6875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([24, 24, 24], center=true);
      }
    }
  }
  rotate (a=67.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([25, 25, 25], center=true);
      }
    }
  }
  rotate (a=70.3125, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([26, 26, 26], center=true);
      }
    }
  }
  rotate (a=73.12500000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([27, 27, 27], center=true);
      }
    }
  }
  rotate (a=75.9375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([28, 28, 28], center=true);
      }
    }
  }
  rotate (a=78.75, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([29, 29, 29], center=true);
      }
    }
  }
  rotate (a=81.5625, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([30, 30, 30], center=true);
      }
    }
  }
  rotate (a=84.37499999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([31, 31, 31], center=true);
      }
    }
  }
  rotate (a=87.1875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([32, 32, 32], center=true);
      }
    }
  }
  rotate (a=90.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([33, 33, 33], center=true);
      }
    }
  }
  rotate (a=92.81250000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([34, 34, 34], center=true);
      }
    }
  }
  rotate (a=95.62500000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([35, 35, 35], center=true);
      }
    }
  }
  rotate (a=98.4375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([36, 36, 36], center=true);
      }
    }
  }
  rotate (a=101.24999999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([37, 37, 37], center=true);
      }
    }
  }
  rotate (a=104.0625, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([38, 38, 38], center=true);
      }
    }
  }
  rotate (a=106.87499999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([39, 39, 39], center=true);
      }
    }
  }
  rotate (a=109.68749999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([40, 40, 40], center=true);
      }
    }
  }
  rotate (a=112.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([41, 41, 41], center=true);
      }
    }
  }
  rotate (a=115.31249999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([42, 42, 42], center=true);
      }
    }
  }
  rotate (a=118.12500000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([43, 43, 43], center=true);
      }
    }
  }
  rotate (a=120.9375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([44, 44, 44], center=true);
      }
    }
  }
  rotate (a=123.74999999999999, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([45, 45, 45], center=true);
      }
    }
  }
  rotate (a=126.56250000000001, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([46, 46, 46], center=true);
      }
    }
  }
  rotate (a=129.375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([47, 47, 47], center=true);
      }
    }
  }
  rotate (a=132.1875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([48, 48, 48], center=true);
      }
    }
  }
  rotate (a=135.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([49, 49, 49], center=true);
      }
    }
  }
  rotate (a=137.81249999999997, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([50, 50, 50], center=true);
      }
    }
  }
  rotate (a=140.625, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([51, 51, 51], center=true);
      }
    }
  }
  rotate (a=143.4375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([52, 52, 52], center=true);
      }
    }
  }
  rotate (a=146.25000000000003, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([53, 53, 53], center=true);
      }
    }
  }
  rotate (a=149.0625, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([54, 54, 54], center=true);
      }
    }
  }
  rotate (a=151.875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([55, 55, 55], center=true);
      }
    }
  }
  rotate (a=154.6875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([56, 56, 56], center=true);
      }
    }
  }
  rotate (a=157.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([57, 57, 57], center=true);
      }
    }
  }
  rotate (a=160.3125, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([58, 58, 58], center=true);
      }
    }
  }
  rotate (a=163.125, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([59, 59, 59], center=true);
      }
    }
  }
  rotate (a=165.9375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([60, 60, 60], center=true);
      }
    }
  }
  rotate (a=168.74999999999997, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([61, 61, 61], center=true);
      }
    }
  }
  rotate (a=171.56249999999997, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([62, 62, 62], center=true);
      }
    }
  }
  rotate (a=174.375, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([63, 63, 63], center=true);
      }
    }
  }
  rotate (a=177.1875, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([64, 64, 64], center=true);
      }
    }
  }
  rotate (a=180.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([65, 65, 65], center=true);
      }
    }
  }
}

~param-cubes.5_by_8.scad

union () {
  rotate (a=0.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([5, 5, 5], center=true);
      }
    }
  }
  rotate (a=22.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([10, 10, 10], center=true);
      }
    }
  }
  rotate (a=45.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([15, 15, 15], center=true);
      }
    }
  }
  rotate (a=67.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([20, 20, 20], center=true);
      }
    }
  }
  rotate (a=90.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([25, 25, 25], center=true);
      }
    }
  }
  rotate (a=112.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([30, 30, 30], center=true);
      }
    }
  }
  rotate (a=135.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([35, 35, 35], center=true);
      }
    }
  }
  rotate (a=157.5, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([40, 40, 40], center=true);
      }
    }
  }
  rotate (a=180.0, v=[0, 0, 1]) {
    translate ([150, 0, 0]) {
      rotate (a=45.0, v=[1, 1, 1]) {
        cube ([45, 45, 45], center=true);
      }
    }
  }
}