(put-prim-info niti 'yunit nyunit) |
(put-prim-info niti 'yunit nyunit) |
(clear-win editor) |
(clear-win editor) |
(if grid (grid-win editor)) |
(if grid (grid-win editor)) |
(draw-skelton-win editor niti) |
(draw-skeleton-win editor niti) |
(redisplay-win editor) |
(redisplay-win editor) |
|
|
(setf (window-cursor editor) please-wait-cursor) |
(setf (window-cursor editor) please-wait-cursor) |
(display-force-output display) |
(display-force-output display) |
(show-temporary-nikuduked-skeltons temporary-window) |
(show-temporary-nikuduked-skeletons temporary-window) |
(setf (window-cursor editor) hair-cross-cursor) |
(setf (window-cursor editor) hair-cross-cursor) |
|
|
niti)) |
niti)) |
|
|
(defun draw-temporary-nikuduked-skelton-win! (win prim |
(defun draw-temporary-nikuduked-skeleton-win! (win prim |
xwid ywid |
xwid ywid |
xofs yofs |
xofs yofs |
(mincho-gothic 'mincho)) |
(mincho-gothic 'mincho)) |
(setq prim (shapeup-skelton prim)) |
(setq prim (shapeup-skeleton prim)) |
(when (not (null (car prim))) |
(when (not (null (car prim))) |
(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 |
r)))))) |
r)))))) |
(display-force-output (window-display win))))) |
(display-force-output (window-display win))))) |
|
|
(defun draw-temporary-nikuduked-skelton-win (win prim |
(defun draw-temporary-nikuduked-skeleton-win (win prim |
xwid ywid |
xwid ywid |
xofs yofs |
xofs yofs |
(mincho-gothic 'mincho)) |
(mincho-gothic 'mincho)) |
(setq prim (shapeup-skelton prim)) |
(setq prim (shapeup-skeleton prim)) |
(when (not (null (car prim))) |
(when (not (null (car prim))) |
(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 |