(long-hex-image (logand 127 (sref kanji 1))) |
(long-hex-image (logand 127 (sref kanji 1))) |
kanji) |
kanji) |
(princ (out2type1 (makeoutline |
(princ (out2type1 (makeoutline |
(skelton2list (applykanji (car l)) tag))))))) |
(skeleton2list (applykanji (car l)) tag))))))) |
(setq type1max 1000) |
(setq type1max 1000) |
(setq type1ratio 2.5) |
(setq type1ratio 2.5) |
(defun skelton2type1 (kanji type) |
(defun skeleton2type1 (kanji type) |
(lets ((meshsize 0.4) |
(lets ((meshsize 0.4) |
(skelton (normkanji (applykanji kanji type))) |
(skeleton (normkanji (applykanji kanji type))) |
(outline (skelton2list skelton type)) |
(outline (skeleton2list skeleton type)) |
(hints (type1hints skelton type))) |
(hints (type1hints skeleton type))) |
(out2type1 outline hints))) |
(out2type1 outline hints))) |
(defun out2type1 (outline (hints)) |
(defun out2type1 (outline (hints)) |
(cond |
(cond |
(putc_crypt 9)(putc_crypt 14)">"))))) |
(putc_crypt 9)(putc_crypt 14)">"))))) |
|
|
; |
; |
(defun type1hints (skelton type) |
(defun type1hints (skeleton type) |
(lets ((points (car skelton)) |
(lets ((points (car skeleton)) |
(elements (cadr skelton)) |
(elements (cadr skeleton)) |
(hints)) |
(hints)) |
(do ((l elements (cdr l))(element)(eltype)(elpoints nil nil)) |
(do ((l elements (cdr l))(element)(eltype)(elpoints nil nil)) |
((atom l)) |
((atom l)) |