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

add support for ╔ ═ ╗ ║ ╚ and ╝ to the latex renderer

Browse Source 
Also, Rackety

original commit: 022e252f4501af89dc820f778ec426c67cc083d8
This commit is contained in:
Robby Findler 2012-12-29 11:30:27 -06:00
parent 900a0d10ec
commit 763ddfcf74
1 changed files with 56 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,12 +1,12 @@
#lang scheme/base #lang at-exp racket/base
(require "core.rkt" (require "core.rkt"
"latex-properties.rkt" "latex-properties.rkt"
"private/render-utils.rkt" "private/render-utils.rkt"
scheme/class racket/class
scheme/runtime-path racket/runtime-path
scheme/port racket/port
scheme/string racket/string
scheme/list racket/list
setup/main-collects setup/main-collects
file/convertible) file/convertible)
(provide render-mixin (provide render-mixin
@ -799,6 +799,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)]
[(#\u2011) "\\mbox{-}"] ; non-breaking hyphen [(#\u2011) "\\mbox{-}"] ; non-breaking hyphen
[(#\uB0) "$^{\\circ}$"] ; degree [(#\uB0) "$^{\\circ}$"] ; degree
[(#\uB2) "$^2$"] [(#\uB2) "$^2$"]
@ -1012,6 +1013,55 @@
[else c])])]) [else c])])])
c)]))) c)])))
(loop (add1 i))))))) (loop (add1 i)))))))
(define/private (box-character c)
(define (combine . args)
(apply string-append
(filter (λ (x) (not (regexp-match #rx"^[ \n]*$" x))) args)))
(define (adjust % v)
(define num (* % (/ v 10) 10))
(define i-part (floor num))
(define d-part (floor (* 10 (- num i-part))))
(format "~a.~a" i-part d-part))
(define (x v) (adjust 4/10 v))
(define (y v) (adjust 6/10 v))
(case c
[(#\╔)
@combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[2],@y[6]){\line(1,0){@x[8]}}
\put(@x[3],@y[5]){\line(1,0){@x[7]}}
\put(@x[2],@y[0]){\line(0,1){@y[6]}}
\put(@x[3],@y[0]){\line(0,1){@y[5]}}
\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[5]){\line(1,0){@x[10]}}
\end{picture}}]
[(#\╗) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[0],@y[6]){\line(1,0){@x[8]}}
\put(@x[0],@y[5]){\line(1,0){@x[7]}}
\put(@x[8],@y[0]){\line(0,1){@y[6]}}
\put(@x[7],@y[0]){\line(0,1){@y[5]}}
\end{picture}}]
[(#\║) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[3],@y[10]){\line(0,-1){@y[10]}}
\put(@x[2],@y[10]){\line(0,-1){@y[10]}}
\end{picture}}]
[(#\╚) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[2],@y[5]){\line(1,0){@x[8]}}
\put(@x[3],@y[6]){\line(1,0){@x[7]}}
\put(@x[3],@y[10]){\line(0,-1){@y[4]}}
\put(@x[2],@y[10]){\line(0,-1){@y[5]}}
\end{picture}}]
[(#\╝) @combine{\begin{picture}(@x[10],@y[10])(0,0)
\put(@x[0],@y[5]){\line(1,0){@x[8]}}
\put(@x[0],@y[6]){\line(1,0){@x[7]}}
\put(@x[7],@y[10]){\line(0,-1){@y[4]}}
\put(@x[8],@y[10]){\line(0,-1){@y[5]}}
\end{picture}}]))
;; ---------------------------------------- ;; ----------------------------------------