Dev 0.2

.gitignore

@@ -10,3 +10,4 @@ pom.xml.asc
 /.nrepl-port
 .hgignore
 .hg/
+.calva

project.clj

@@ -1,5 +1,5 @@
-(defproject diamant "0.1.0-SNAPSHOT"
-  :description "Commonly useful space modeling functions for scad-clj"
+(defproject diamant "0.2.0-SNAPSHOT"
+  :description "Practical space-modeling commons & helpers for scad-clj"
   :url "https://github.com/altitude/diamant"
   :license {:name "MIT"}
   :dependencies [[org.clojure/clojure "1.10.0"]

src/diamant/basics.clj

@@ -0,0 +1,12 @@
+(ns diamant.basics
+  (:require [scad-clj.model :as model]))
+
+(defn inner-tube
+  [inner-radius thickness height]
+  (model/difference
+   (model/cylinder (+ inner-radius thickness) height)
+   (model/cylinder inner-radius (+ 1 height))))
+
+(defn outer-tube
+  [outer-radius thickness height]
+  (inner-tube (- outer-radius thickness) thickness height))

src/diamant/export.clj

@@ -0,0 +1,9 @@
+(ns diamant.export
+  (:require [scad-clj.scad :as scad]))
+
+(defn write
+  ([block] (write "model.scad" block))
+  ([name block] (->>
+   block
+   (scad/write-scad)
+   (spit name))))

src/diamant/geometry.clj

@@ -2,12 +2,26 @@
   (:require [scad-clj.model :as model]))
 
 (defn circleify
-  "Copy object count times around a circle of the given radius"
-  [radius count object]
-  (let [angle (/ (* 2 Math/PI) count)]
+  "Copy object n times around a circle of the given radius"
+  [radius n object]
+  (let [angle (/ (* 2 Math/PI) n)
+        obj (if (vector? object) object [object])]
     (->>
-     (range count)
+     (range n)
      (map #(->>
-            object
+            (get obj (mod %1 (count obj)))
             (model/translate [radius 0 0])
-            (model/rotate [0 0 (* angle %1)]))))))
+            (model/rotate [0 0 (* angle %1)]))))))
+
+(defn symmetry
+  ([axis object]
+   (let [scale (case axis
+                 :x [-1 1 1]
+                 :y [1 -1 1]
+                 :z [1 1 -1]
+                 [1 1 1])]
+     (model/union
+      object
+      (model/scale scale object))))
+  ([object]
+   (symmetry :x object)))

src/diamant/registry.clj

@@ -0,0 +1,25 @@
+(ns diamant.registry
+  (:require [diamant.export :as export]))
+
+(def parts (atom {}))
+
+(def live false)
+
+(defn set-live-mode
+  [v]
+  (def live v))
+
+(defn defpart
+  [name part & {:keys [write] :or {write live}}]
+  (swap! parts assoc name part)
+  (if write
+    (export/write part)
+    nil))
+
+(defn getparts
+  ([]
+   @parts)
+  ([& names]
+   (->>
+    (select-keys @parts names)
+    (vals))))

src/diamant/tools.clj

@@ -0,0 +1,11 @@
+(ns diamant.tools
+  (:require [scad-clj.model :as model]))
+
+(defn slice
+  [block]
+  (model/difference
+   block
+   (let [s 500]
+     (->>
+      (model/cube s s s)
+      (model/translate [(/ s 2) 0 0])))))