| 1 : |
ktanaka |
1.1 |
;; |
| 2 : |
|
|
;; primdef.l |
| 3 : |
ktanaka |
1.2 |
;; $Revision: 1.1.1.1 $ |
| 4 : |
ktanaka |
1.1 |
;; |
| 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 : |
ktanaka |
1.2 |
skeleton-edit-draw-optional) |
Annotation of /lisp/tools/primdef.l
Parent Directory
| 
Revision Log