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

Annotation of /lisp/tools/ulxbug.l

Parent Directory | Revision Log

Revision: 1.1 - (view) (download)

1 : ktanaka 1.1
2 :     ;; ---------------------------------- ;;
3 :     ;; this function used because of BUG? ;;
4 :     ;; ---------------------------------- ;;
5 :    
6 :     (progn
7 :     (putd 'font-ascent-ulx (getd 'font-ascent))
8 :     (putd 'font-descent-ulx (getd 'font-descent))
9 :     (putd 'text-width-ulx (getd 'text-width))
10 :    
11 :     (defun font-ascent (fnt)
12 :     (comment print (list 'font-ascent fnt))
13 :     12)
14 :    
15 :     (defun font-descent (fnt)
16 :     (comment print (list 'font-dscent fnt))
17 :     2)
18 :    
19 :     (defun text-width (fnt vec)
20 :     (comment print (list 'text-width fnt vec))
21 :     (comment * 14 (vector-length vec))
22 :     (* 7 (string-length vec)))
23 :     )

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help