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.
typesetting/quad/quick-test.rkt

24 lines
945 B
Racket

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