| (let ((point (nth n points))) |
(let ((point (nth n points))) |
| `(,(toflo (car point)),(toflo (cadr point)) .,(cddr point)))) |
`(,(toflo (car point)),(toflo (cadr point)) .,(cddr point)))) |
| |
|
| (defun skelton2list (l tag) |
(defun skeleton2list (l tag) |
| (let ((linkpoints nil) |
(let ((linkpoints nil) |
| (linelist nil) |
(linelist nil) |
| (outline nil) |
(outline nil) |
| ((ol outlines (cdr ol)) |
((ol outlines (cdr ol)) |
| (l nil)) |
(l nil)) |
| ((atom ol)) |
((atom ol)) |
| (setq l (skelton2list (applykanji (car ol)) tag)) |
(setq l (skeleton2list (applykanji (car ol)) tag)) |
| (cond |
(cond |
| ((atom l)) |
((atom l)) |
| (t |
(t |
| ; |
; |
| |
|
| (defun showtest (l tag) |
(defun showtest (l tag) |
| (setq outline (skelton2list (applykanji l) tag)) |
(setq outline (skeleton2list (applykanji l) tag)) |
| (show (mapcar outline '(lambda (x) (link-to-out (list-to-link x)))))) |
(show (mapcar outline '(lambda (x) (link-to-out (list-to-link x)))))) |
| |
|
| ; |
; |
| |
|
| (defun filltest (l tag) |
(defun filltest (l tag) |
| (init_window 400 400) |
(init_window 400 400) |
| (setq outline (skelton2list (applykanji l) tag)) |
(setq outline (skeleton2list (applykanji l) tag)) |
| (mapcar outline '(lambda (x)(fillpolygon (setpart1 x)))) |
(mapcar outline '(lambda (x)(fillpolygon (setpart1 x)))) |
| (redraw) |
(redraw) |
| (checkevent) |
(checkevent) |
Diff of /lisp/samples/disp-test.l
Parent Directory
| 
Revision Log