From aa3164173339799f45773a1a47cb14f5f15a05c8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Jan 2011 20:30:07 -0700 Subject: [PATCH] fix initial transformation matrix of {post-script,pdf}-dc% --- collects/racket/draw/private/post-script-dc.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/racket/draw/private/post-script-dc.rkt b/collects/racket/draw/private/post-script-dc.rkt index 136f777b40..e88738d973 100644 --- a/collects/racket/draw/private/post-script-dc.rkt +++ b/collects/racket/draw/private/post-script-dc.rkt @@ -180,7 +180,9 @@ (define is-eps? (and as-eps #t)) (define/public (multiple-pages-ok?) (not is-eps?)) - (super-new))) + (super-new) + + (when c (init-cr-matrix c)))) (define post-script-dc% (class (doc+page-check-mixin (dc-mixin (make-dc-backend #f)) 'post-script-dc%)