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.
29 lines
1.0 KiB
Racket
29 lines
1.0 KiB
Racket
#lang racket/base
|
|
(require pitfall/pdftest racket/file racket/string)
|
|
|
|
(define-runtime-path tiger "assets/tiger.json")
|
|
|
|
(define (proc doc)
|
|
(translate doc 220 300)
|
|
(for* ([datum (in-list (read (open-input-string (string-replace (file->string tiger) #rx"[,:]" " "))))]
|
|
[part (in-value (apply hash datum))])
|
|
(path doc (hash-ref part 'path))
|
|
|
|
(when (hash-has-key? part "stroke-width")
|
|
(line-width doc (string->number (hash-ref part "stroke-width"))))
|
|
|
|
(if (and (not (string=? (hash-ref part 'fill "none") "none"))
|
|
(not (string=? (hash-ref part 'stroke "none") "none")))
|
|
(fill-and-stroke doc (hash-ref part 'fill) (hash-ref part 'stroke))
|
|
(begin
|
|
(unless (string=? (hash-ref part 'fill "none") "none")
|
|
(fill doc (hash-ref part 'fill)))
|
|
(unless (string=? (hash-ref part 'stroke "none") "none")
|
|
(fill doc (hash-ref part 'stroke)))))))
|
|
|
|
(define-runtime-path this "test10rkt.pdf")
|
|
(make-doc this #f proc)
|
|
|
|
(define-runtime-path that "test10crkt.pdf")
|
|
(make-doc that #t proc)
|