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.
10 lines
395 B
Racket
10 lines
395 B
Racket
#lang racket/base
|
|
|
|
(require "main.rkt" "world.rkt" "quick-sample.rkt"
|
|
"render.rkt" racket/class)
|
|
(parameterize ([world:quality-default world:draft-quality])
|
|
(displayln "Untyped Quad")
|
|
(displayln "Typesetting:")
|
|
(define to (time (typeset (quick-sample))))
|
|
(displayln "PDF rendering:")
|
|
(time (send (new pdf-renderer%) render-to-file to "quick-test-untyped.pdf"))) |