| (err:undefined-function #'(lambda (x (y))(throw 'err))) |
(err:undefined-function #'(lambda (x (y))(throw 'err))) |
| (err:zero-division #'(lambda (x (y))(throw 'err)))) |
(err:zero-division #'(lambda (x (y))(throw 'err)))) |
| (catch 'err |
(catch 'err |
| (skelton2list (normkanji (rm-limit (applykanji (car ol) tag)) tag))))) |
(skeleton2list (normkanji (rm-limit (applykanji (car ol) tag)) tag))))) |
| (cond |
(cond |
| ((atom l) |
((atom l) |
| (format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n") |
(format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n") |
| ; スケルトンデータを renderingして表示する |
; スケルトンデータを renderingして表示する |
| ; |
; |
| (defun showSkeleton (skeleton tag) |
(defun showSkeleton (skeleton tag) |
| (showOutline (skelton2list skeleton tag))) |
(showOutline (skeleton2list skeleton tag))) |
| ; |
; |
| ; スケルトンデータを折れ線に変換する． |
; スケルトンデータを折れ線に変換する． |
| ; |
; |
| (defun showtest1 (l tag) |
(defun showtest1 (l tag) |
| (lets ((outline nil)) |
(lets ((outline nil)) |
| (init_window 400 400) |
(init_window 400 400) |
| (setq outline (makeoutline (skelton2list (applykanji l tag) tag))) |
(setq outline (makeoutline (skeleton2list (applykanji l tag) tag))) |
| (mapcar outline '(lambda (x)(drawlines (setpart1 x)))) |
(mapcar outline '(lambda (x)(drawlines (setpart1 x)))) |
| (redraw) |
(redraw) |
| (checkevent) |
(checkevent) |
| |
|
| (defun filltest (l tag) |
(defun filltest (l tag) |
| (init_window 400 400) |
(init_window 400 400) |
| (mapcar (skelton2list (rm-limit (applykanji l tag)) tag) |
(mapcar (skeleton2list (rm-limit (applykanji l tag)) tag) |
| (function (lambda (x)(fillpolygon (setpart1 x))))) |
(function (lambda (x)(fillpolygon (setpart1 x))))) |
| (redraw) |
(redraw) |
| (checkevent) |
(checkevent) |
Diff of /lisp/disp.l
Parent Directory
| 
Revision Log