(defun clear-win! (win) |
(defun clear-win! (win) |
(clear-area win :x 0 :y 0 :width (width-win win) :height (height-win win))) |
(clear-area win :x 0 :y 0 :width (width-win win) :height (height-win win))) |
|
|
(defun draw-nikuduked-skelton (win prim mincho-gothic) |
(defun draw-nikuduked-skeleton (win prim mincho-gothic) |
(setq prim (shapeup-skelton prim)) |
(setq prim (shapeup-skeleton prim)) |
(if (null (car prim)) |
(if (null (car prim)) |
(beep win) |
(beep win) |
(let ((outline (skelton2list (applykanji prim) mincho-gothic)) |
(let ((outline (skeleton2list (applykanji prim) mincho-gothic)) |
(save (get-winprop win 'button-press-handler)) |
(save (get-winprop win 'button-press-handler)) |
(loopend nil)) |
(loopend nil)) |
(clear-win! win) |
(clear-win! win) |
(function (lambda (x) (fill-polygon-win! win (setpart1 x))))) |
(function (lambda (x) (fill-polygon-win! win (setpart1 x))))) |
(display-force-output (window-display win))))) |
(display-force-output (window-display win))))) |
|
|
(defun show-nikuduked-skelton (win prim mincho-gothic) |
(defun show-nikuduked-skeleton (win prim mincho-gothic) |
(setq prim (shapeup-skelton prim)) |
(setq prim (shapeup-skeleton prim)) |
(if (null (car prim)) |
(if (null (car prim)) |
(beep win) |
(beep win) |
(let ((outline (skelton2list (applykanji prim) mincho-gothic)) |
(let ((outline (skeleton2list (applykanji prim) mincho-gothic)) |
(save (get-winprop win 'button-press-handler)) |
(save (get-winprop win 'button-press-handler)) |
(loopend nil)) |
(loopend nil)) |
(clear-win! win) |
(clear-win! win) |
(function (lambda (x) (show-polygon-win! win (setpart1 x))))) |
(function (lambda (x) (show-polygon-win! win (setpart1 x))))) |
(display-force-output (window-display win))))) |
(display-force-output (window-display win))))) |
|
|
(defun draw-nikuduked-skelton-win! (win prim mincho-gothic) |
(defun draw-nikuduked-skeleton-win! (win prim mincho-gothic) |
(setq prim (shapeup-skelton prim)) |
(setq prim (shapeup-skeleton prim)) |
(if (null (car prim)) |
(if (null (car prim)) |
(beep win) |
(beep win) |
(let ((outline (skelton2list (applykanji prim) mincho-gothic)) |
(let ((outline (skeleton2list (applykanji prim) mincho-gothic)) |
(save (get-winprop win 'button-press-handler)) |
(save (get-winprop win 'button-press-handler)) |
(loopend nil)) |
(loopend nil)) |
(mapcar outline |
(mapcar outline |