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

changed sub/superscript scale to 2/3, improved docs to clarify tex vs. mred

Browse Source 
svn: r1067
This commit is contained in:
Matthew Flatt 2005-10-13 16:18:47 +00:00
parent ee081262e8
commit 71c85fc75e
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/texpict/doc.txt
View File

@ -1,8 +1,9 @@
_texpict_ is a MzScheme/MrEd library for creating pictures using a
MrEd dc<%> (including post-script-dc% for _PostScript_ output) or
_LaTeX_ as the back-end. The library was originally designed for LaTeX
output, hence the name.
_LaTeX_ as the back-end. The two back-ends are incompatible; picts
must be created for one or the other. The library was originally
designed for LaTeX output, hence the name.
Pictures are created as `pict' structures. Some procedures in the
texpict library create new simple picts (e.g., `hline'). Others build
@ -109,6 +110,9 @@ The library is available in unit form via _texpictr.ss_, which
produces a unit with no imports. The _texpicts.ss_ library file
defines the unit's signature.
Pictures created with this library are incompatible with Slideshow
and MrEd-based output.
To create a LaTeX picture, assemble a pict and then
call `pict->string'. This string can be `display'ed to obtain the
LaTeX code, which is usually of the form:
@ -226,7 +230,8 @@ Basic Constructors:
> (vline w h) -> pict
> (dash-vline w h seg-length) -> pict ; default seg-length is 5
To draw other kinds of lines, use `picture' or `cons-picture'
To draw other kinds of lines, use `dc' [MrEd only] or `picture' or
`cons-picture' [LaTeX].
> (frame pict) -> pict
> (dash-frame pict seg-length) -> pict ; default seg-length is 5
@ -453,7 +458,7 @@ Drawing Adjusters:
Apply a color to a picture. If the given picture has a colorized
sub-picture, the color of the sub-picture is not affected.
Be sure to use the LaTeX package `colordvi'.
[LaTeX: use the LaTeX package "colordvi"]
> (colorize pict color%) -> pict

2
collects/texpict/private/mrpict-extra.ss
View File

@ -171,7 +171,7 @@
[sup? (memq* 'superscript orig-style)])
(let ([s-font (if (or sub? sup?)
(extend-font font
(floor (* 1/2 (send font get-point-size)))
(floor (* 2/3 (send font get-point-size)))
(send font get-style)
(send font get-weight))
font)]