|
|
@ -656,8 +656,8 @@
|
|
|
|
)))
|
|
|
|
)))
|
|
|
|
|
|
|
|
|
|
|
|
(defn screw-insert-all-shapes [bottom-radius top-radius height]
|
|
|
|
(defn screw-insert-all-shapes [bottom-radius top-radius height]
|
|
|
|
(union ; (screw-insert 0 0 bottom-radius top-radius height)
|
|
|
|
(union (screw-insert 0 0 bottom-radius top-radius height)
|
|
|
|
(screw-insert 0 1 bottom-radius top-radius height)
|
|
|
|
(screw-insert 0 lastrow bottom-radius top-radius height)
|
|
|
|
(screw-insert 3 lastrow bottom-radius top-radius height)
|
|
|
|
(screw-insert 3 lastrow bottom-radius top-radius height)
|
|
|
|
(screw-insert 3 0 bottom-radius top-radius height)
|
|
|
|
(screw-insert 3 0 bottom-radius top-radius height)
|
|
|
|
(screw-insert lastcol 1 bottom-radius top-radius height)
|
|
|
|
(screw-insert lastcol 1 bottom-radius top-radius height)
|
|
|
|