(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))))))) |
|
(declare (type1max type1ratio) special) |
(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)(type1list)(elhint)(hint)) |
((atom l)) |
((atom l)) |
(setq element (car l)) |
(setq element (car l)) |
(setq eltype (car element)) |
(setq eltype (car element)) |
((null ll)) |
((null ll)) |
(and (setq ret (assq ll type1list))(exit ret))))) |
(and (setq ret (assq ll type1list))(exit ret))))) |
(cond (elhint |
(cond (elhint |
(do ((ll (cadr element)(cdr ll))(hint)) |
(do ((ll (cadr element)(cdr ll))) |
((atom ll)(setq elpoints (nreverse elpoints))) |
((atom ll)(setq elpoints (nreverse elpoints))) |
(push (nth (car ll) points) elpoints)) |
(push (nth (car ll) points) elpoints)) |
(setq hint (funcall (cdr elhint) elpoints)) |
(setq hint (funcall (cdr elhint) elpoints)) |