[wadalabfont-kit] / skeleton-edit / primdisp.l

Annotation of /skeleton-edit/primdisp.l

Revision: 1.1 - (view) (download)

1 :	ktanaka	1.1	;;
2 :			;; primdisp.l
3 :			;; $Revision: 1.2 $
4 :			;;
5 :
6 :			(defun clear-win! (win)
7 :			(clear-area win :x 0 :y 0 :width (width-win win) :height (height-win win)))
8 :
9 :			(defun draw-nikuduked-skeleton (win prim mincho-gothic)
10 :			(setq prim (shapeup-skeleton prim))
11 :			(if (null (car prim))
12 :			(beep win)
13 :			(let ((outline (skeleton2list (applykanji prim) mincho-gothic))
14 :			(save (get-winprop win 'button-press-handler))
15 :			(loopend nil))
16 :			(clear-win! win)
17 :			(mapcar outline
18 :			(function (lambda (x) (fill-polygon-win! win (setpart1 x)))))
19 :			(display-force-output (window-display win)))))
20 :
21 :			(defun show-nikuduked-skeleton (win prim mincho-gothic)
22 :			(setq prim (shapeup-skeleton prim))
23 :			(if (null (car prim))
24 :			(beep win)
25 :			(let ((outline (skeleton2list (applykanji prim) mincho-gothic))
26 :			(save (get-winprop win 'button-press-handler))
27 :			(loopend nil))
28 :			(clear-win! win)
29 :			(mapcar outline
30 :			(function (lambda (x) (show-polygon-win! win (setpart1 x)))))
31 :			(display-force-output (window-display win)))))
32 :
33 :			(defun draw-nikuduked-skeleton-win! (win prim mincho-gothic)
34 :			(setq prim (shapeup-skeleton prim))
35 :			(if (null (car prim))
36 :			(beep win)
37 :			(let ((outline (skeleton2list (applykanji prim) mincho-gothic))
38 :			(save (get-winprop win 'button-press-handler))
39 :			(loopend nil))
40 :			(mapcar outline
41 :			(function (lambda (x) (fill-polygon-win! win (setpart1 x)))))
42 :			(display-force-output (window-display win)))))
43 :