View of /lisp/tools/primdef.l

Parent Directory

Revision Log

*** empty log message ***

;;
;; primdef.l
;; $Revision: 1.3 $
;;

(setq *element-points*
      '((ten         2)
	(tate        2)
	(yoko        2)
	(migiue      3)
	(hidari      3)
	(tatehidari  4)
	(migi        3)
	(kozato      4)  ;; 1991-07-15 yishii
	(tatehane    3)
	(tsukurihane 4)
	(sanzui      2)
	(kokoro      4)
	(tasuki      4)
	(magaritate  3)
	(kagi        3)
	(shin-nyuu   3)
	(hira-short  2)
	(hira-long   arbitary)
; added by tanaka 1993/9/18
        (outline arbitary)
	(hira-circle 2)
	))

(setq *has-hirawidth*  
      '(hira-short 
	hira-long 
	hira-circle
	))

(defnprop hira-circle 
  (lambda (win element points)
    (lets ((center (nth (caadr element) points))
	   (kado   (nth (cadadr element) points))
	   (x0     (first center))
	   (y0     (second center))
	   (x1     (first kado))
	   (y1     (second kado))
	   (x-rad  (abs (difference x0 x1)))
	   (y-rad  (abs (difference y0 y1))))
      (draw-octagon-win win x0 y0 x-rad y-rad)))
  skeleton-edit-draw-optional)