Add pinky-15u

This commit is contained in:
Leo Lou 2018-06-13 15:44:09 +09:00
parent 2af3a36313
commit 24980a4560

View file

@ -23,6 +23,7 @@
(def column-style (def column-style
(if (> nrows 5) :orthographic :standard)) ; options include :standard, :orthographic, and :fixed (if (> nrows 5) :orthographic :standard)) ; options include :standard, :orthographic, and :fixed
; (def column-style :fixed) ; (def column-style :fixed)
(def pinky-15u true)
(defn column-offset [column] (cond (defn column-offset [column] (cond
(= column 2) [0 2.82 -4.5] (= column 2) [0 2.82 -4.5]
@ -503,16 +504,21 @@
(wall-brace (partial key-place x1 y1) dx1 dy1 post1 (wall-brace (partial key-place x1 y1) dx1 dy1 post1
(partial key-place x2 y2) dx2 dy2 post2)) (partial key-place x2 y2) dx2 dy2 post2))
(def right-wall
(let [tr (if (true? pinky-15u) wide-post-tr web-post-tr)
br (if (true? pinky-15u) wide-post-br web-post-br)]
(union (key-wall-brace lastcol 0 0 1 tr lastcol 0 1 0 tr)
(for [y (range 0 lastrow)] (key-wall-brace lastcol y 1 0 tr lastcol y 1 0 br))
(for [y (range 1 lastrow)] (key-wall-brace lastcol (dec y) 1 0 br lastcol y 1 0 tr))
(key-wall-brace lastcol cornerrow 0 -1 br lastcol cornerrow 1 0 br))))
(def case-walls (def case-walls
(union (union
right-wall
; back wall ; back wall
(for [x (range 0 ncols)] (key-wall-brace x 0 0 1 web-post-tl x 0 0 1 web-post-tr)) (for [x (range 0 ncols)] (key-wall-brace x 0 0 1 web-post-tl x 0 0 1 web-post-tr))
(for [x (range 1 ncols)] (key-wall-brace x 0 0 1 web-post-tl (dec x) 0 0 1 web-post-tr)) (for [x (range 1 ncols)] (key-wall-brace x 0 0 1 web-post-tl (dec x) 0 0 1 web-post-tr))
; right wall
(key-wall-brace lastcol 0 0 1 web-post-tr lastcol 0 1 0 web-post-tr)
(for [y (range 0 lastrow)] (key-wall-brace lastcol y 1 0 web-post-tr lastcol y 1 0 web-post-br))
(for [y (range 1 lastrow)] (key-wall-brace lastcol (dec y) 1 0 web-post-br lastcol y 1 0 web-post-tr))
(key-wall-brace lastcol cornerrow 0 -1 web-post-br lastcol cornerrow 1 0 web-post-br)
; left wall ; left wall
(for [y (range 0 lastrow)] (union (wall-brace (partial left-key-place y 1) -1 0 web-post (partial left-key-place y -1) -1 0 web-post) (for [y (range 0 lastrow)] (union (wall-brace (partial left-key-place y 1) -1 0 web-post (partial left-key-place y -1) -1 0 web-post)
(hull (key-place 0 y web-post-tl) (hull (key-place 0 y web-post-tl)