Oloid

oloid.clj

(ns openscad-experiments.helpers
  (:require [scad-clj.model :as m]
            [scad-clj.scad :refer [write-scad]]))

(defn render [object]
  (spit "render.scad" (write-scad object)))

(defn y-split [obj]
  (let [box (m/cube 10 10 10)
        holed-obj (m/difference obj (m/scale [1.005 1.2 1.005] box))
        a (->> (m/cube 100 100 100)
               (m/translate [0 -50 0])
               (m/intersection holed-obj)
               (m/rotate [(/ Math/PI -2) 0 0])
               (m/translate [35 0 0]))
        b (->> (m/cube 100 100 100)
               (m/translate [0 50 0])
               (m/intersection holed-obj)
               (m/rotate [(/ Math/PI 2) 0 0])
               (m/translate [-35 0 0]))]
    (m/union a b (m/translate [0 -20 5] box))))

(defn oloid [radius]
  (let [c (m/cylinder radius 0.1)
        a (m/translate [0 (/ radius -2) 0] c)
        b (->> c
               (m/rotate [0 (/ Math/PI 2) 0])
               (m/translate [0 (/ radius 2) 0]))]
    (m/hull a b)))

(render (->> (oloid 30)
             (m/with-fn 512)
             (y-split)))

oloid.scad

union () {
  translate ([35, 0, 0]) {
    rotate ([-90.0,0.0,0.0]) {
      intersection () {
        difference () {
          hull () {
            translate ([0, -15, 0]) {
              cylinder ($fn=512, h=0.1, r=30, center=true);
            }
            translate ([0, 15, 0]) {
              rotate ([0.0,90.0,0.0]) {
                cylinder ($fn=512, h=0.1, r=30, center=true);
              }
            }
          }
          scale ([1.005, 1.2, 1.005]) {
            cube ([10, 10, 10], center=true);
          }
        }
        translate ([0, -50, 0]) {
          cube ([100, 100, 100], center=true);
        }
      }
    }
  }
  translate ([-35, 0, 0]) {
    rotate ([90.0,0.0,0.0]) {
      intersection () {
        difference () {
          hull () {
            translate ([0, -15, 0]) {
              cylinder ($fn=512, h=0.1, r=30, center=true);
            }
            translate ([0, 15, 0]) {
              rotate ([0.0,90.0,0.0]) {
                cylinder ($fn=512, h=0.1, r=30, center=true);
              }
            }
          }
          scale ([1.005, 1.2, 1.005]) {
            cube ([10, 10, 10], center=true);
          }
        }
        translate ([0, 50, 0]) {
          cube ([100, 100, 100], center=true);
        }
      }
    }
  }
  translate ([0, -20, 5]) {
    cube ([10, 10, 10], center=true);
  }
}

oloid.stl