;; ----------------------------------------- ;; |
;; ----------------------------------------- ;; |
;; skeledit.l kanji-skelton-editor ver 0.2 ;; |
;; skeledit.l kanji-skeleton-editor ver 0.2 ;; |
;; ;; |
;; ;; |
;; You need load `ulx' (UtiLisp X interface) ;; |
;; You need load `ulx' (UtiLisp X interface) ;; |
;; ;; |
;; ;; |
(function |
(function |
(lambda (win code x y) |
(lambda (win code x y) |
(setq ,prim |
(setq ,prim |
(add-skelton-element win |
(add-skeleton-element win |
code x y |
code x y |
,prim ',eleme))))))))) |
,prim ',eleme))))))))) |
|
|
;; ----------- ;; |
;; ----------- ;; |
;; initializer ;; |
;; initializer ;; |
;; ----------- ;; |
;; ----------- ;; |
(defun initialize-skelton-edit-sub () |
(defun initialize-skeleton-edit-sub () |
(comment |
(comment |
(unless (boundp '*near-cos-see-angle*) |
(unless (boundp '*near-cos-see-angle*) |
(setq *near-cos-see-angle* (cos (//$ (*$ 160.0 (arccos 0.0)) 90.0))))) |
(setq *near-cos-see-angle* (cos (//$ (*$ 160.0 (arccos 0.0)) 90.0))))) |
;; ---------------- ;; |
;; ---------------- ;; |
(defun select-window (win code x y) |
(defun select-window (win code x y) |
(resize-win skeleditor |
(resize-win skeleditor |
*width-of-skelton-editor* |
*width-of-skeleton-editor* |
*height-of-skelton-editor*) |
*height-of-skeleton-editor*) |
(cond ((neq win *selected-window*) |
(cond ((neq win *selected-window*) |
(if *selected-window* (normal-win *selected-window*)) |
(if *selected-window* (normal-win *selected-window*)) |
(setq *selected-window* win) |
(setq *selected-window* win) |
;; window example ;; |
;; window example ;; |
;; -------------- ;; |
;; -------------- ;; |
|
|
(defun initialize-skelton-editor () |
(defun initialize-skeleton-editor () |
(initialize-skeleton-editor)) |
(initialize-skeleton-editor)) |
|
|
(defun initialize-skeleton-editor () |
(defun initialize-skeleton-editor () |
(setup-display) |
(setup-display) |
(print 'setup-display) |
(print 'setup-display) |
|
|
(initialize-skelton-edit-sub) |
(initialize-skeleton-edit-sub) |
(print 'initialize) |
(print 'initialize) |
|
|
(make-skeledit-windows)) |
(make-skeledit-windows)) |
|
|
(defun initialize-kanji-edittee (name) |
(defun initialize-kanji-edittee (name) |
(setq edittee-name name) |
(setq edittee-name name) |
(setq niti (shapeup-skelton (applykanji name) t)) |
(setq niti (shapeup-skeleton (applykanji name) t)) |
(setq joint-prim-def nil) |
(setq joint-prim-def nil) |
(setq joint-prim-symbol nil) |
(setq joint-prim-symbol nil) |
(initialize-editor-screen) |
(initialize-editor-screen) |
|
|
(defun force-kana-kanji-edittee () |
(defun force-kana-kanji-edittee () |
(setq edittee-name joint-prim-symbol) |
(setq edittee-name joint-prim-symbol) |
(setq niti (shapeup-skelton (applykanji joint-prim-def) t)) |
(setq niti (shapeup-skeleton (applykanji joint-prim-def) t)) |
(setq joint-prim-def nil) |
(setq joint-prim-def nil) |
(setq joint-prim-symbol nil) |
(setq joint-prim-symbol nil) |
(initialize-editor-screen) |
(initialize-editor-screen) |
(print 'anonymous) |
(print 'anonymous) |
(setq edittee-name 'anonymous) |
(setq edittee-name 'anonymous) |
(setq niti (if init |
(setq niti (if init |
(shapeup-skelton (applykanji init) t) |
(shapeup-skeleton (applykanji init) t) |
'(nil nil))) |
'(nil nil))) |
(setq joint-prim-def nil) |
(setq joint-prim-def nil) |
(setq joint-prim-symbol nil) |
(setq joint-prim-symbol nil) |
(clear-win editor) |
(clear-win editor) |
(if grid (grid-win editor)) |
(if grid (grid-win editor)) |
(if niti |
(if niti |
(draw-skelton-win editor niti)) |
(draw-skeleton-win editor niti)) |
|
|
(redraw-win editor) |
(redraw-win editor) |
(display-force-output display)) |
(display-force-output display)) |
(t |
(t |
(initialize-anonymous-edittee)))) |
(initialize-anonymous-edittee)))) |
|
|
(defun skelton-edit ((nit 'unknown-primitive) (opname "/tmp/prim.out")) |
(defun skeleton-edit ((nit 'unknown-primitive) (opname "/tmp/prim.out")) |
(skeleton-edit nit opname)) |
(skeleton-edit nit opname)) |
|
|
(defun skeleton-edit ((nit 'unknown-primitive) (opname "/tmp/prim.out")) |
(defun skeleton-edit ((nit 'unknown-primitive) (opname "/tmp/prim.out")) |
(terpri) |
(terpri) |
(funcall err:open-close)) |
(funcall err:open-close)) |
|
|
(initialize-skelton-edit-sub) |
(initialize-skeleton-edit-sub) |
|
|
(clear-win message) |
(clear-win message) |
|
|
#'(lambda () (eq *selected-window* syuuryou)) |
#'(lambda () (eq *selected-window* syuuryou)) |
editor) |
editor) |
|
|
(setq niti (shapeup-skelton niti)) |
(setq niti (shapeup-skeleton niti)) |
|
|
(display-force-output display) |
(display-force-output display) |
niti) |
niti) |
(function |
(function |
(lambda (win code x y) |
(lambda (win code x y) |
(setq niti |
(setq niti |
(move-skelton-point win code x y niti))))))) |
(move-skeleton-point win code x y niti))))))) |
|
|
(put-winprop toggle-link 'button-press-handler |
(put-winprop toggle-link 'button-press-handler |
#'(lambda (win code x y) |
#'(lambda (win code x y) |
(function |
(function |
(lambda (win code x y) |
(lambda (win code x y) |
(setq niti |
(setq niti |
(toggle-skelton-link win |
(toggle-skeleton-link win |
code x y niti))))))) |
code x y niti))))))) |
|
|
|
|
(function |
(function |
(lambda (win code x y) |
(lambda (win code x y) |
(setq niti |
(setq niti |
(delete-skelton-element win |
(delete-skeleton-element win |
code x y niti))))) |
code x y niti))))) |
(setf (window-event-mask editor) '(:exposure |
(setf (window-event-mask editor) '(:exposure |
:button-press |
:button-press |
(setf (window-cursor editor) please-wait-cursor) |
(setf (window-cursor editor) please-wait-cursor) |
(setf (window-cursor win) please-wait-cursor) |
(setf (window-cursor win) please-wait-cursor) |
(display-force-output (window-display editor)) |
(display-force-output (window-display editor)) |
(setq niti (shapeup-skelton niti)) |
(setq niti (shapeup-skeleton niti)) |
(draw-nikuduked-skelton editor niti 'mincho) |
(draw-nikuduked-skeleton editor niti 'mincho) |
(setf (window-cursor editor) hair-cross-cursor) |
(setf (window-cursor editor) hair-cross-cursor) |
(setf (window-cursor win) roupe-cursor) |
(setf (window-cursor win) roupe-cursor) |
(display-force-output (window-display editor))))) |
(display-force-output (window-display editor))))) |
(setf (window-cursor editor) please-wait-cursor) |
(setf (window-cursor editor) please-wait-cursor) |
(setf (window-cursor win) please-wait-cursor) |
(setf (window-cursor win) please-wait-cursor) |
(display-force-output (window-display editor)) |
(display-force-output (window-display editor)) |
(setq niti (shapeup-skelton niti)) |
(setq niti (shapeup-skeleton niti)) |
(show-nikuduked-skelton editor niti 'mincho) |
(show-nikuduked-skeleton editor niti 'mincho) |
(setf (window-cursor editor) hair-cross-cursor) |
(setf (window-cursor editor) hair-cross-cursor) |
(setf (window-cursor win) roupe-cursor) |
(setf (window-cursor win) roupe-cursor) |
(display-force-output (window-display editor))))) |
(display-force-output (window-display editor))))) |
(clear-win editor) |
(clear-win editor) |
(if grid (grid-win editor)) |
(if grid (grid-win editor)) |
(if niti |
(if niti |
(draw-skelton-win editor niti)) |
(draw-skeleton-win editor niti)) |
(redraw-win editor) |
(redraw-win editor) |
(display-force-output (window-display editor)) |
(display-force-output (window-display editor)) |
)) |
)) |
(setf (window-cursor editor) please-wait-cursor) |
(setf (window-cursor editor) please-wait-cursor) |
(setf (window-cursor win) please-wait-cursor) |
(setf (window-cursor win) please-wait-cursor) |
(display-force-output (window-display editor)) |
(display-force-output (window-display editor)) |
(setq niti (shapeup-skelton niti)) |
(setq niti (shapeup-skeleton niti)) |
(draw-nikuduked-skelton editor niti 'gothic) |
(draw-nikuduked-skeleton editor niti 'gothic) |
(setf (window-cursor editor) hair-cross-cursor) |
(setf (window-cursor editor) hair-cross-cursor) |
(setf (window-cursor win) roupe-cursor) |
(setf (window-cursor win) roupe-cursor) |
(display-force-output (window-display editor))))) |
(display-force-output (window-display editor))))) |
(setq niti (add-unit niti)) |
(setq niti (add-unit niti)) |
(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)) |
(put-winprop |
(put-winprop |
editor 'button-press-handler |
editor 'button-press-handler |
(setq niti (add-default-xyunit niti))) |
(setq niti (add-default-xyunit niti))) |
(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))) |
|
|
(put-winprop etc-1 'button-press-handler |
(put-winprop etc-1 'button-press-handler |
(* *menu-margin* 4)) |
(* *menu-margin* 4)) |
(height-win skeleditor))) |
(height-win skeleditor))) |
|
|
(setq *width-of-skelton-editor* (width-win skeleditor)) |
(setq *width-of-skeleton-editor* (width-win skeleditor)) |
(setq *height-of-skelton-editor* (height-win skeleditor)) |
(setq *height-of-skeleton-editor* (height-win skeleditor)) |
|
|
(setq temporary-window |
(setq temporary-window |
(create-win skeleditor |
(create-win skeleditor |
|
|
;; |
;; |
;; (defun takobeya () |
;; (defun takobeya () |
;; (initialize-skelton-editor) |
;; (initialize-skeleton-editor) |
;; (setq boo (skelton-edit boo)) |
;; (setq boo (skeleton-edit boo)) |
;; (setq foo (skelton-edit foo)) |
;; (setq foo (skeleton-edit foo)) |
;; (setq woo (skelton-edit woo)) |
;; (setq woo (skeleton-edit woo)) |
;; ... |
;; ... |
;; |
;; |
|
|