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.
|
|
|
|
#lang typed/racket/base
|
|
|
|
|
(require "main-typed.rkt" "logger-typed.rkt" "world-typed.rkt" "samples-typed.rkt" "quads-typed.rkt")
|
|
|
|
|
|
|
|
|
|
(require/typed profile
|
|
|
|
|
[profile-thunk (All (A) ((-> A) [#:delay Float] -> A))])
|
|
|
|
|
|
|
|
|
|
(require "render-typed.rkt" typed/racket/class)
|
|
|
|
|
(activate-logger quad-logger)
|
|
|
|
|
|
|
|
|
|
(parameterize ([world:quality-default world:draft-quality]
|
|
|
|
|
[world:paper-width-default 600.0]
|
|
|
|
|
[world:paper-height-default 700.0])
|
|
|
|
|
(define sample (ti5))
|
|
|
|
|
; (define to (time (profile-thunk #:delay 0.001 (λ () (typeset sample)))))
|
|
|
|
|
(define to (time (typeset sample)))
|
|
|
|
|
(time (send (new pdf-renderer%) render-to-file to "foo-typed.pdf")))
|
