| (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) |
Diff of /renderer/mincho.l
Parent Directory
| 
Revision Log