-(defun bdf-generate-font (charset font-spec)
- (let* ((font-name (ps-mule-font-spec-name font-spec))
- (font-info (bdf-find-font-info font-name))
- (font-name (if (consp font-name) (car font-name) font-name)))
- (ps-mule-generate-bitmap-font font-name
- (ps-mule-font-spec-bytes font-spec)
- (charset-width charset)
- (bdf-info-size font-info)
- (bdf-info-relative-compose font-info)
- (bdf-info-baseline-offset font-info)
- (bdf-info-font-bounding-box font-info))))
-
-;; Called from ps-mule-generate-glyphs.
-(defun bdf-generate-glyphs (font-spec code-list bytes)
- (let ((font-name (ps-mule-font-spec-name font-spec)))
- (mapcar '(lambda (x)
- (apply 'ps-mule-generate-bitmap-glyph
- (if (consp font-name) (car font-name) font-name)
- x))
- (bdf-get-bitmaps font-name code-list))))
+(defun bdf-generate-font (font-spec)
+ (let ((info (bdf-get-font-info (ps-mule-font-spec-name font-spec))))
+ (ps-mule-font-spec-set-extra
+ font-spec (bdf-info-absolute-path info))
+ (ps-mule-generate-bitmap-font font-spec
+ (bdf-info-size info)
+ (bdf-info-relative-compose info)
+ (bdf-info-baseline-offset info)
+ (bdf-info-font-bounding-box info))))
+
+;; Called from ps-mule-generate-glyph.
+(defun bdf-generate-glyph (font-spec char)
+ (let ((font-name (ps-mule-font-spec-extra font-spec))
+ (code (ps-mule-encode-char char font-spec)))
+ (ps-mule-generate-bitmap-glyph font-spec char code
+ (bdf-get-bitmap font-name code))))