Add another screw insert
This commit is contained in:
parent
a8184af440
commit
db1cad5635
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue