|
|
|
@ -84,7 +84,6 @@
|
|
|
|
|
(define (html-renderer html-file)
|
|
|
|
|
(let ([xmax 0]
|
|
|
|
|
[ymax 0]
|
|
|
|
|
[em-scale 30]
|
|
|
|
|
[page-quads null]
|
|
|
|
|
[current-loc 0+0i]
|
|
|
|
|
[pages null]
|
|
|
|
@ -103,7 +102,7 @@
|
|
|
|
|
(set! page-quads null))
|
|
|
|
|
(λ (charint)
|
|
|
|
|
(set! page-quads (cons
|
|
|
|
|
`(div ((style ,(format "position: absolute;left:~apx;top:~apx;font-family:~a" (* em-scale (real-part current-loc)) (* em-scale (imag-part current-loc)) current-font)))
|
|
|
|
|
`(div ((style ,(format "position: absolute;left:~apx;top:~apx;font-family:~a" (real-part current-loc) (imag-part current-loc) current-font)))
|
|
|
|
|
,(string (integer->char charint))) page-quads)))
|
|
|
|
|
(λ (ps)
|
|
|
|
|
(set! current-font (hash-ref! fonts ps (λ () (gensym 'font)))))
|
|
|
|
|