From 71c85fc75efe33a737e3a7f4654ca83466d0c85b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Oct 2005 16:18:47 +0000 Subject: [PATCH] changed sub/superscript scale to 2/3, improved docs to clarify tex vs. mred svn: r1067 --- collects/texpict/doc.txt | 13 +++++++++---- collects/texpict/private/mrpict-extra.ss | 2 +- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/collects/texpict/doc.txt b/collects/texpict/doc.txt index 296e059b29..4d4ff762e2 100644 --- a/collects/texpict/doc.txt +++ b/collects/texpict/doc.txt @@ -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 diff --git a/collects/texpict/private/mrpict-extra.ss b/collects/texpict/private/mrpict-extra.ss index 0fe493e589..07eddc4f25 100644 --- a/collects/texpict/private/mrpict-extra.ss +++ b/collects/texpict/private/mrpict-extra.ss @@ -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)]