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

Annotation of /lisp/tools/primdef.l

Parent Directory | Revision Log

Revision: 1.3 - (view) (download)

1 : ktanaka 1.1 ;;
2 :     ;; primdef.l
3 : ktanaka 1.3 ;; $Revision: 1.2 $
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)

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help