+ (tagify "tspan" (dispatch `(fontify ,font ,s))))
+
+(define (start-page)
+ (set! page-number (+ page-number 1))
+ (comment "start-page"))
+
+(define (stop-page last?)
+ (comment "stop-page"))
+
+;; WTF is this in every backend?
+(define (horizontal-line x1 x2 th)
+;; (draw-line th x1 0 x2 0))
+ (filledbox (- x1) (- x2 x1) (* .5 th) (* .5 th)))
+