Last active
December 30, 2017 09:43
-
-
Save robbintt/0ee92fcda9cdf9e61ffec4f0937a5502 to your computer and use it in GitHub Desktop.
parametrically extruded cubes
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; 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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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); | |
| } | |
| } | |
| } | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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); | |
| } | |
| } | |
| } | |
| } |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment