|
|
@ -1,10 +1,8 @@
|
|
|
|
#lang debug racket/base
|
|
|
|
#lang debug racket/base
|
|
|
|
(require racket/match)
|
|
|
|
(require racket/match
|
|
|
|
|
|
|
|
"constants.rkt")
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
|
|
|
|
|
|
;; TODO: define :font-size properly
|
|
|
|
|
|
|
|
(define :font-size 'font-size)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define (pica->pts prefix [suffix #false])
|
|
|
|
(define (pica->pts prefix [suffix #false])
|
|
|
|
;; both pieces of measurement are either positive or negative
|
|
|
|
;; both pieces of measurement are either positive or negative
|
|
|
|
((if (negative? prefix) - +) (+ (* (abs prefix) 12) (or suffix 0))))
|
|
|
|
((if (negative? prefix) - +) (+ (* (abs prefix) 12) (or suffix 0))))
|
|
|
|