suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

scribble Latex: support all 2d-cond characters

Browse Source
This commit is contained in:
Matthew Flatt 2013-02-15 21:09:18 -07:00
parent 23d0627acc
commit c8ae8c419a
1 changed files with 60 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
collects/scribble/latex-render.rkt
View File

@ -835,7 +835,7 @@
;; Which parts are necessary may depend on the latex version, ;; Which parts are necessary may depend on the latex version,
;; though, so we keep this table around to avoid regressions. ;; though, so we keep this table around to avoid regressions.
(case c (case c
[(#\╔ #\═ #\╗ #\║ #\╚ #\╝) (box-character c)] [(#\╔ #\═ #\╗ #\║ #\╚ #\╝ #\╦ #\╠ #\╣ #\╬ #\╩) (box-character c)]
[(#\u2011) "\\mbox{-}"] ; non-breaking hyphen [(#\u2011) "\\mbox{-}"] ; non-breaking hyphen
[(#\uB0) "$^{\\circ}$"] ; degree [(#\uB0) "$^{\\circ}$"] ; degree
[(#\uB2) "$^2$"] [(#\uB2) "$^2$"]
@ -1054,47 +1054,85 @@
(define/private (box-character c) (define/private (box-character c)
(define (combine . args) (define (combine . args)
(apply string-append (apply string-append
"\\setlength{\\unitlength}{0.05em}"
(filter (λ (x) (not (regexp-match #rx"^[ \n]*$" x))) args))) (filter (λ (x) (not (regexp-match #rx"^[ \n]*$" x))) args)))
(define (adjust % v) (define (adjust % v)
(define num (* % (/ v 10) 10)) (define num (* % (/ v 10) 10))
(define i-part (floor num)) (define i-part (floor num))
(define d-part (floor (* 10 (- num i-part)))) (define d-part (floor (* 10 (- num i-part))))
(format "~a.~a" i-part d-part)) (format "~a.~a" i-part d-part))
(define (x v) (adjust 4/10 v)) (define (x v) (adjust 1 v))
(define (y v) (adjust 6/10 v)) (define (y v) (adjust 6/4 v))
(case c (case c
[(#\╔) [(#\╔) @combine{\begin{picture}(@x[10],@y[10])(0,0)
@combine{\begin{picture}(@x[10],@y[10])(0,0) \put(@x[4],@y[6]){\line(1,0){@x[6]}}
\put(@x[2],@y[6]){\line(1,0){@x[8]}} \put(@x[6],@y[4]){\line(1,0){@x[6]}}
\put(@x[4],@y[4]){\line(1,0){@x[7]}} \put(@x[4],@y[0]){\line(0,1){@y[6]}}
\put(@x[2],@y[0]){\line(0,1){@y[6]}} \put(@x[6],@y[0]){\line(0,1){@y[4]}}
\put(@x[4],@y[0]){\line(0,1){@y[4]}}
\end{picture}}] \end{picture}}]
[(#\═) @combine{\begin{picture}(@x[10],@y[10])(0,0) [(#\═) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[0],@y[6]){\line(1,0){@x[10]}} \put(@x[0],@y[6]){\line(1,0){@x[10]}}
\put(@x[0],@y[4]){\line(1,0){@x[10]}} \put(@x[0],@y[4]){\line(1,0){@x[10]}}
\end{picture}}] \end{picture}}]
[(#\╦) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[0],@y[6]){\line(1,0){@x[10]}}
\put(@x[0],@y[4]){\line(1,0){@x[4]}}
\put(@x[4],@y[0]){\line(0,1){@y[4]}}
\put(@x[6],@y[0]){\line(0,1){@y[4]}}
\put(@x[6],@y[4]){\line(1,0){@x[4]}}
\end{picture}}]
[(#\╩) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[0],@y[4]){\line(1,0){@x[10]}}
\put(@x[0],@y[6]){\line(1,0){@x[4]}}
\put(@x[4],@y[6]){\line(0,1){@y[4]}}
\put(@x[6],@y[6]){\line(0,1){@y[4]}}
\put(@x[6],@y[6]){\line(1,0){@x[4]}}
\end{picture}}]
[(#\╣) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[6],@y[0]){\line(0,1){@y[10]}}
\put(@x[4],@y[0]){\line(0,1){@y[4]}}
\put(@x[0],@y[4]){\line(1,0){@x[4]}}
\put(@x[0],@y[6]){\line(1,0){@x[4]}}
\put(@x[4],@y[6]){\line(0,1){@y[4]}}
\end{picture}}]
[(#\╠) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[4],@y[0]){\line(0,1){@y[10]}}
\put(@x[6],@y[0]){\line(0,1){@y[4]}}
\put(@x[6],@y[4]){\line(1,0){@x[4]}}
\put(@x[6],@y[6]){\line(1,0){@x[4]}}
\put(@x[6],@y[6]){\line(0,1){@y[4]}}
\end{picture}}]
[(#\╬) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[4],@y[0]){\line(0,1){@y[4]}}
\put(@x[0],@y[4]){\line(1,0){@x[4]}}
\put(@x[0],@y[6]){\line(1,0){@x[4]}}
\put(@x[4],@y[6]){\line(0,1){@y[4]}}
\put(@x[6],@y[0]){\line(0,1){@y[4]}}
\put(@x[6],@y[4]){\line(1,0){@x[4]}}
\put(@x[6],@y[6]){\line(1,0){@x[4]}}
\put(@x[6],@y[6]){\line(0,1){@y[4]}}
\end{picture}}]
[(#\╗) @combine{\begin{picture}(@x[10],@y[10])(0,0) [(#\╗) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[0],@y[6]){\line(1,0){@x[8]}} \put(@x[0],@y[6]){\line(1,0){@x[6]}}
\put(@x[0],@y[4]){\line(1,0){@x[6]}} \put(@x[0],@y[4]){\line(1,0){@x[4]}}
\put(@x[8],@y[0]){\line(0,1){@y[6]}} \put(@x[6],@y[0]){\line(0,1){@y[6]}}
\put(@x[6],@y[0]){\line(0,1){@y[4]}} \put(@x[4],@y[0]){\line(0,1){@y[4]}}
\end{picture}}] \end{picture}}]
[(#\║) @combine{\begin{picture}(@x[10],@y[10])(0,0) [(#\║) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[4],@y[10]){\line(0,-1){@y[10]}} \put(@x[4],@y[10]){\line(0,-1){@y[10]}}
\put(@x[2],@y[10]){\line(0,-1){@y[10]}} \put(@x[6],@y[10]){\line(0,-1){@y[10]}}
\end{picture}}] \end{picture}}]
[(#\╚) @combine{\begin{picture}(@x[10],@y[10])(0,0) [(#\╚) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[2],@y[4]){\line(1,0){@x[8]}} \put(@x[4],@y[4]){\line(1,0){@x[6]}}
\put(@x[4],@y[6]){\line(1,0){@x[6]}} \put(@x[6],@y[6]){\line(1,0){@x[4]}}
\put(@x[4],@y[10]){\line(0,-1){@y[4]}} \put(@x[4],@y[10]){\line(0,-1){@y[6]}}
\put(@x[2],@y[10]){\line(0,-1){@y[6]}} \put(@x[6],@y[10]){\line(0,-1){@y[4]}}
\end{picture}}] \end{picture}}]
[(#\╝) @combine{\begin{picture}(@x[10],@y[10])(0,0) [(#\╝) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[0],@y[4]){\line(1,0){@x[8]}} \put(@x[0],@y[4]){\line(1,0){@x[6]}}
\put(@x[0],@y[6]){\line(1,0){@x[6]}} \put(@x[0],@y[6]){\line(1,0){@x[4]}}
\put(@x[6],@y[10]){\line(0,-1){@y[4]}} \put(@x[4],@y[10]){\line(0,-1){@y[4]}}
\put(@x[8],@y[10]){\line(0,-1){@y[6]}} \put(@x[6],@y[10]){\line(0,-1){@y[6]}}
\end{picture}}])) \end{picture}}]))