|
|
@ -178,8 +178,8 @@
|
|
|
|
[verbose-quad-printing? #false])
|
|
|
|
[verbose-quad-printing? #false])
|
|
|
|
(define qs (time-log setup-qs (setup-qs qx-arg pdf-path)))
|
|
|
|
(define qs (time-log setup-qs (setup-qs qx-arg pdf-path)))
|
|
|
|
|
|
|
|
|
|
|
|
(define sections (time-log section-wrap (section-wrap qs)))
|
|
|
|
(define sections
|
|
|
|
(for ([qs (in-list sections)])
|
|
|
|
(for/list ([qs (in-list (time-log section-wrap (section-wrap qs)))])
|
|
|
|
(match-define (list page-width page-height) (parse-page-size (and (pair? qs) (car qs))))
|
|
|
|
(match-define (list page-width page-height) (parse-page-size (and (pair? qs) (car qs))))
|
|
|
|
(match-define (list left-margin top-margin right-margin bottom-margin)
|
|
|
|
(match-define (list left-margin top-margin right-margin bottom-margin)
|
|
|
|
(setup-margins qs page-width page-height))
|
|
|
|
(setup-margins qs page-width page-height))
|
|
|
@ -200,8 +200,10 @@
|
|
|
|
[size (pt line-wrap-size printable-height)]))
|
|
|
|
[size (pt line-wrap-size printable-height)]))
|
|
|
|
(define page-qs (time-log page-wrap (page-wrap column-qs printable-width page-quad-prototype)))
|
|
|
|
(define page-qs (time-log page-wrap (page-wrap column-qs printable-width page-quad-prototype)))
|
|
|
|
|
|
|
|
|
|
|
|
(define positioned-qs (time-log position (position (struct-copy quad q:doc [elems page-qs]))))
|
|
|
|
(struct-copy quad q:section [elems page-qs])))
|
|
|
|
(time-log draw (draw positioned-qs (current-pdf)))))
|
|
|
|
|
|
|
|
|
|
|
|
(define doc (time-log position (position (struct-copy quad q:doc [elems sections]))))
|
|
|
|
|
|
|
|
(time-log draw (draw doc (current-pdf))))
|
|
|
|
|
|
|
|
|
|
|
|
(if pdf-path-arg
|
|
|
|
(if pdf-path-arg
|
|
|
|
(log-quadwriter-info (format "wrote PDF to ~a" pdf-path))
|
|
|
|
(log-quadwriter-info (format "wrote PDF to ~a" pdf-path))
|
|
|
|