(b3 (diff2 b2 (normlen2 w0 d1))) |
(b3 (diff2 b2 (normlen2 w0 d1))) |
(bez0 (newbez b3 (plus2 b3 l1) |
(bez0 (newbez b3 (plus2 b3 l1) |
b0 |
b0 |
(inter2 b0 b1 0.7) |
(inter2 b0 b1 0.8) |
(inter2 (diff2 a4 l1) b1 0.7) |
(inter2 (diff2 a4 l1) b1 0.8) |
(diff2 a4 l1))) |
(diff2 a4 l1))) |
(b3 (fourth bez0)) |
(b3 (fourth bez0)) |
(b2 (cross2 b3 p3 (diff2 (third bez0) b3) (diff2 h0 p3))) |
(b2 (cross2 b3 p3 (diff2 (third bez0) b3) (diff2 h0 p3))) |
; (break) |
; (break) |
`(((angle .,a0) |
`(((angle .,a0) |
(bezier .,(inter2 a0 a1 rate0)) |
(bezier .,(inter2 a0 a1 rate0)) |
(bezier .,(inter2 p2 a1 0.9)) |
(bezier .,(inter2 p2 a1 0.95)) |
(angle .,a2)) |
(angle .,a2)) |
((angle .,b0) |
((angle .,b0) |
(bezier .,(inter2 b0 b1 rate0)) |
(bezier .,(inter2 b0 b1 rate0)) |
(bezier .,(inter2 p2 b1 0.8)) |
(bezier .,(inter2 p2 b1 0.95)) |
(angle .,b2))))) |
(angle .,b2))))) |
; |
; |
(defun last-joint (prim) |
(defun last-joint (prim) |