main
Matthew Butterick 7 years ago
parent 09e9629f22
commit febd77723e

@ -1,6 +1,6 @@
#lang pitfall/racket #lang pitfall/racket
(require "reference.rkt" "object.rkt" "page.rkt") (require "reference.rkt" "object.rkt" "page.rkt")
(require "mixins/vector.rkt" "mixins/color.rkt" "mixins/fonts.rkt" "mixins/text.rkt") (require "vector.rkt" "color.rkt" "fonts.rkt" "text.rkt")
(provide PDFDocument) (provide PDFDocument)
(define mixed% (text-mixin (fonts-mixin (color-mixin (vector-mixin object%))))) (define mixed% (text-mixin (fonts-mixin (color-mixin (vector-mixin object%)))))

@ -1,5 +1,5 @@
#lang pitfall/racket #lang pitfall/racket
(require "font/standard-fonts.rkt" "font/afm.rkt" "reference.rkt") (require "standard-fonts.rkt" "afm.rkt" "reference.rkt")
(provide PDFFont PDFFont-open) (provide PDFFont PDFFont-open)
(define PDFFont (define PDFFont

@ -1,5 +1,5 @@
#lang pitfall/racket #lang pitfall/racket
(require "../font.rkt") (require "font.rkt")
(provide fonts-mixin) (provide fonts-mixin)
(define (fonts-mixin [% mixin-tester%]) (define (fonts-mixin [% mixin-tester%])
@ -75,8 +75,7 @@
[font (set-field! _font this font)] [font (set-field! _font this font)]
;; save the font for reuse later ;; save the font for reuse later
[else [else
(when cacheKey (when cacheKey (hash-set! this-ff cacheKey this-f))
(hash-set! this-ff cacheKey this-f))
(hash-set! this-ff (· this-f name) this-f)])) (hash-set! this-ff (· this-f name) this-f)]))
this])) this]))

@ -1,5 +1,5 @@
#lang pitfall/racket #lang pitfall/racket
(require "../path.rkt") (require "path.rkt")
(provide vector-mixin default-ctm-value) (provide vector-mixin default-ctm-value)
(define (vector-mixin [% mixin-tester%]) (define (vector-mixin [% mixin-tester%])
Loading…
Cancel
Save