diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:37:45 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:37:45 +0000 |
| commit | c89f0bc2209f7f98695e6b94fbac316c84fbf9d4 (patch) | |
| tree | 456d506bd18edd3b768eaffa8f70ae93565682e4 /include/graphf.lpg | |
| parent | 7db8921aac3a0e1223af269ec7092bdd91a7c7a2 (diff) | |
| download | lout-c89f0bc2209f7f98695e6b94fbac316c84fbf9d4.tar.gz | |
Lout 3.25.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@19 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'include/graphf.lpg')
| -rw-r--r-- | include/graphf.lpg | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/include/graphf.lpg b/include/graphf.lpg index 60447f0..ff95259 100644 --- a/include/graphf.lpg +++ b/include/graphf.lpg @@ -4,6 +4,7 @@ % PostScript @SysPrependGraphic file for @Graph (Version 1.0) % % % % Version 1.0 by Jeffrey H. Kingston, December 1993. % +% swapxandy added September 2001 by JHK. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -357,6 +358,16 @@ lgraphdict begin % [ data ] xandy [ data ] /xandy {} def +% swapxandy: no interpolation of x or y values +% [ data ] swapxandy [ data ] +/swapxandy +{ dup /tmp exch def + length [ exch 2 exch 2 exch + { dup tmp exch 1 sub get exch 2 sub tmp exch get + } for + ] +} def + % expstringwidth: calculate width of string containing optional exponent % <string> expstringwidth <width> |