|
|
@ -274,27 +274,6 @@
|
|
|
|
(map (partial apply hull)
|
|
|
|
(map (partial apply hull)
|
|
|
|
(partition 3 1 shapes))))
|
|
|
|
(partition 3 1 shapes))))
|
|
|
|
|
|
|
|
|
|
|
|
(def pinky-connectors
|
|
|
|
|
|
|
|
(apply union
|
|
|
|
|
|
|
|
(concat
|
|
|
|
|
|
|
|
;; Row connections
|
|
|
|
|
|
|
|
(for [row (range 0 lastrow)]
|
|
|
|
|
|
|
|
(triangle-hulls
|
|
|
|
|
|
|
|
(key-place lastcol row web-post-tr)
|
|
|
|
|
|
|
|
(key-place lastcol row wide-post-tr)
|
|
|
|
|
|
|
|
(key-place lastcol row web-post-br)
|
|
|
|
|
|
|
|
(key-place lastcol row wide-post-br)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Column connections
|
|
|
|
|
|
|
|
(for [row (range 0 cornerrow)]
|
|
|
|
|
|
|
|
(triangle-hulls
|
|
|
|
|
|
|
|
(key-place lastcol row web-post-br)
|
|
|
|
|
|
|
|
(key-place lastcol row wide-post-br)
|
|
|
|
|
|
|
|
(key-place lastcol (inc row) web-post-tr)
|
|
|
|
|
|
|
|
(key-place lastcol (inc row) wide-post-tr)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(def connectors
|
|
|
|
(def connectors
|
|
|
|
(apply union
|
|
|
|
(apply union
|
|
|
|
(concat
|
|
|
|
(concat
|
|
|
@ -323,8 +302,7 @@
|
|
|
|
(key-place column row web-post-br)
|
|
|
|
(key-place column row web-post-br)
|
|
|
|
(key-place column (inc row) web-post-tr)
|
|
|
|
(key-place column (inc row) web-post-tr)
|
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
|
(key-place (inc column) (inc row) web-post-tl)))
|
|
|
|
(key-place (inc column) (inc row) web-post-tl))))))
|
|
|
|
)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;
|
|
|
|
;;;;;;;;;;;;
|
|
|
|
;; Thumbs ;;
|
|
|
|
;; Thumbs ;;
|
|
|
@ -683,6 +661,28 @@
|
|
|
|
(def screw-insert-outers (screw-insert-all-shapes (+ screw-insert-bottom-radius 1.65) (+ screw-insert-top-radius 1.65) (+ screw-insert-height 1.5)))
|
|
|
|
(def screw-insert-outers (screw-insert-all-shapes (+ screw-insert-bottom-radius 1.65) (+ screw-insert-top-radius 1.65) (+ screw-insert-height 1.5)))
|
|
|
|
(def screw-insert-screw-holes (screw-insert-all-shapes 1.7 1.7 350))
|
|
|
|
(def screw-insert-screw-holes (screw-insert-all-shapes 1.7 1.7 350))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(def pinky-connectors
|
|
|
|
|
|
|
|
(apply union
|
|
|
|
|
|
|
|
(concat
|
|
|
|
|
|
|
|
;; Row connections
|
|
|
|
|
|
|
|
(for [row (range 0 lastrow)]
|
|
|
|
|
|
|
|
(triangle-hulls
|
|
|
|
|
|
|
|
(key-place lastcol row web-post-tr)
|
|
|
|
|
|
|
|
(key-place lastcol row wide-post-tr)
|
|
|
|
|
|
|
|
(key-place lastcol row web-post-br)
|
|
|
|
|
|
|
|
(key-place lastcol row wide-post-br)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Column connections
|
|
|
|
|
|
|
|
(for [row (range 0 cornerrow)]
|
|
|
|
|
|
|
|
(triangle-hulls
|
|
|
|
|
|
|
|
(key-place lastcol row web-post-br)
|
|
|
|
|
|
|
|
(key-place lastcol row wide-post-br)
|
|
|
|
|
|
|
|
(key-place lastcol (inc row) web-post-tr)
|
|
|
|
|
|
|
|
(key-place lastcol (inc row) wide-post-tr)))
|
|
|
|
|
|
|
|
;; wall
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
|
|
|
)))
|
|
|
|
|
|
|
|
|
|
|
|
(def model-right (difference
|
|
|
|
(def model-right (difference
|
|
|
|
(union
|
|
|
|
(union
|
|
|
|
key-holes
|
|
|
|
key-holes
|
|
|
|