You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
941 B
Racket
33 lines
941 B
Racket
#lang racket/base
|
|
(require racket/class "reference.rkt")
|
|
(provide pdf-font%)
|
|
|
|
;; 181227 structifying the fonts didn't do anything for speed
|
|
;; the class is implementation is equally fast, and less code
|
|
|
|
(define pdf-font%
|
|
(class object%
|
|
(super-new)
|
|
(init-field [(@ascender ascender) #f]
|
|
[(@descender descender) #f]
|
|
[(@line-gap line-gap) #f]
|
|
[(@bbox bbox) #f])
|
|
(field [(@dictionary dictionary) #f]
|
|
[@embedded #f])
|
|
|
|
(abstract embed encode string-width)
|
|
|
|
(define/public (make-font-ref)
|
|
(unless @dictionary
|
|
(set! @dictionary (make-ref)))
|
|
@dictionary)
|
|
|
|
(define/public (font-end)
|
|
(unless (or @embedded (not @dictionary))
|
|
(embed)
|
|
(set! @embedded #t)))
|
|
|
|
(define/public (line-height size [include-gap #f])
|
|
(define gap (if include-gap @line-gap 0))
|
|
(* (/ (+ @ascender gap (- @descender)) 1000.0) size))))
|