Annotation of /skeleton-edit/primdef.lAnnotation of /skeleton-edit/primdef.l
Parent Directory
| 
Revision Log
Revision: 1.1 - (view) (download)
| 1 : | ktanaka | 1.1 | ;; |
| 2 : | ;; primdef.l | ||
| 3 : | ;; $Revision: 1.2 $ | ||
| 4 : | ;; | ||
| 5 : | |||
| 6 : | (setq *element-points* | ||
| 7 : | '((ten 2) | ||
| 8 : | (tate 2) | ||
| 9 : | (yoko 2) | ||
| 10 : | (migiue 3) | ||
| 11 : | (hidari 3) | ||
| 12 : | (tatehidari 4) | ||
| 13 : | (migi 3) | ||
| 14 : | (kozato 4) ;; 1991-07-15 yishii | ||
| 15 : | (tatehane 3) | ||
| 16 : | (tsukurihane 4) | ||
| 17 : | (sanzui 2) | ||
| 18 : | (kokoro 4) | ||
| 19 : | (tasuki 4) | ||
| 20 : | (magaritate 3) | ||
| 21 : | (kagi 3) | ||
| 22 : | (shin-nyuu 3) | ||
| 23 : | (hira-short 2) | ||
| 24 : | (hira-long arbitary) | ||
| 25 : | ; added by tanaka 1993/9/18 | ||
| 26 : | (outline arbitary) | ||
| 27 : | (hira-circle 2) | ||
| 28 : | )) | ||
| 29 : | |||
| 30 : | (setq *has-hirawidth* | ||
| 31 : | '(hira-short | ||
| 32 : | hira-long | ||
| 33 : | hira-circle | ||
| 34 : | )) | ||
| 35 : | |||
| 36 : | (defnprop hira-circle | ||
| 37 : | (lambda (win element points) | ||
| 38 : | (lets ((center (nth (caadr element) points)) | ||
| 39 : | (kado (nth (cadadr element) points)) | ||
| 40 : | (x0 (first center)) | ||
| 41 : | (y0 (second center)) | ||
| 42 : | (x1 (first kado)) | ||
| 43 : | (y1 (second kado)) | ||
| 44 : | (x-rad (abs (difference x0 x1))) | ||
| 45 : | (y-rad (abs (difference y0 y1)))) | ||
| 46 : | (draw-octagon-win win x0 y0 x-rad y-rad))) | ||
| 47 : | skeleton-edit-draw-optional) |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |