[wadalabfont-kit] / lisp / tools / skeledit.l  

Diff of /lisp/tools/skeledit.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:20 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 1 
Line 1 
 ;; ----------------------------------------- ;;  ;; ----------------------------------------- ;;
 ;; 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) ;;
 ;;                                           ;;  ;;                                           ;;
Line 82 
Line 82 
                     (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)))))
Line 143 
Line 143 
 ;; ---------------- ;;  ;; ---------------- ;;
 (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)
Line 170 
Line 170 
 ;; 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 ()
Line 178 
Line 178 
   (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)
Line 194 
Line 194 
   
 (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)
Line 217 
Line 217 
   (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)
Line 234 
Line 234 
   (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))
Line 291 
Line 291 
         (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"))
Line 303 
Line 303 
     (terpri)      (terpri)
     (funcall err:open-close))      (funcall err:open-close))
   
   (initialize-skelton-edit-sub)    (initialize-skeleton-edit-sub)
   
   (clear-win message)    (clear-win message)
   
Line 317 
Line 317 
              #'(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)
Line 333 
Line 333 
                     (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)
Line 344 
Line 344 
                     (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)))))))
   
   
Line 362 
Line 362 
                     (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
Line 375 
Line 375 
                      (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)))))
Line 389 
Line 389 
                      (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)))))
Line 401 
Line 401 
                    (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))
                    ))                     ))
Line 413 
Line 413 
                      (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)))))
Line 533 
Line 533 
                      (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
Line 548 
Line 548 
                        (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
Line 789 
Line 789 
                         (* *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
Line 841 
Line 841 
   
 ;;  ;;
 ;; (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))
 ;;      ...  ;;      ...
 ;;  ;;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help