[wadalabfont-kit] / skeleton-edit / ulxbug.l

Annotation of /skeleton-edit/ulxbug.l

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 :			)