diff options
Diffstat (limited to 'Master/texmf-dist/dvips/geomsty')
-rw-r--r-- | Master/texmf-dist/dvips/geomsty/illustrator.pro | 872 | ||||
-rw-r--r-- | Master/texmf-dist/dvips/geomsty/math.pro | 1752 |
2 files changed, 2624 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/geomsty/illustrator.pro b/Master/texmf-dist/dvips/geomsty/illustrator.pro new file mode 100644 index 00000000000..59fd05cfd75 --- /dev/null +++ b/Master/texmf-dist/dvips/geomsty/illustrator.pro @@ -0,0 +1,872 @@ +%%BeginResource: procset Adobe_packedarray 2.0 0 +%%Title: (Packed Array Operators) +%%Version: 2.0 +%%CreationDate: (8/2/90) () +%%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved) + +userdict /Adobe_packedarray 5 dict dup begin put +/initialize % - initialize - +{ +/packedarray where + { + pop + } + { + Adobe_packedarray begin + Adobe_packedarray + { + dup xcheck + { + bind + } if + userdict 3 1 roll put + } forall + end + } ifelse +} def +/terminate % - terminate - +{ +} def +/packedarray % arguments count packedarray array +{ +array astore readonly +} def +/setpacking % boolean setpacking - +{ +pop +} def +/currentpacking % - setpacking boolean +{ +false +} def +currentdict readonly pop end +%%EndResource +%%BeginResource: procset Adobe_cmykcolor 1.1 0 +%%Title: (CMYK Color Operators) +%%Version: 1.1 +%%CreationDate: (1/23/89) () +%%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved) + +currentpacking true setpacking +userdict /Adobe_cmykcolor 4 dict dup begin put +/initialize % - initialize - +{ +/setcmykcolor where + { + pop + } + { + userdict /Adobe_cmykcolor_vars 2 dict dup begin put + /_setrgbcolor + /setrgbcolor load def + /_currentrgbcolor + /currentrgbcolor load def + Adobe_cmykcolor begin + Adobe_cmykcolor + { + dup xcheck + { + bind + } if + pop pop + } forall + end + end + Adobe_cmykcolor begin + } ifelse +} def +/terminate % - terminate - +{ +currentdict Adobe_cmykcolor eq + { + end + } if +} def +/setcmykcolor % cyan magenta yellow black setcmykcolor - +{ +1 sub 4 1 roll +3 + { + 3 index add neg dup 0 lt + { + pop 0 + } if + 3 1 roll + } repeat +Adobe_cmykcolor_vars /_setrgbcolor get exec +pop +} def +/currentcmykcolor % - currentcmykcolor cyan magenta yellow black +{ +Adobe_cmykcolor_vars /_currentrgbcolor get exec +3 + { + 1 sub neg 3 1 roll + } repeat +0 +} def +currentdict readonly pop end +setpacking + +%%EndResource +%%BeginResource: procset Adobe_cshow 1.1 0 +%%Title: (cshow Operator) +%%Version: 1.1 +%%CreationDate: (1/23/89) () +%%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved) + +currentpacking true setpacking +userdict /Adobe_cshow 3 dict dup begin put +/initialize % - initialize - +{ +/cshow where + { + pop + } + { + userdict /Adobe_cshow_vars 1 dict dup begin put + /_cshow % - _cshow proc + {} def + Adobe_cshow begin + Adobe_cshow + { + dup xcheck + { + bind + } if + userdict 3 1 roll put + } forall + end + end + } ifelse +} def +/terminate % - terminate - +{ +} def +/cshow % proc string cshow - +{ +exch +Adobe_cshow_vars + exch /_cshow + exch put + { + 0 0 Adobe_cshow_vars /_cshow get exec + } forall +} def +currentdict readonly pop end +setpacking + +%%EndResource +%%BeginResource: procset Adobe_customcolor 1.0 0 +%%Title: (Custom Color Operators) +%%Version: 1.0 +%%CreationDate: (5/9/88) () +%%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved) + +currentpacking true setpacking +userdict /Adobe_customcolor 5 dict dup begin put +/initialize % - initialize - +{ +/setcustomcolor where + { + pop + } + { + Adobe_customcolor begin + Adobe_customcolor + { + dup xcheck + { + bind + } if + pop pop + } forall + end + Adobe_customcolor begin + } ifelse +} def +/terminate % - terminate - +{ +currentdict Adobe_customcolor eq + { + end + } if +} def +/findcmykcustomcolor % cyan magenta yellow black name findcmykcustomcolor object +{ +5 packedarray +} def +/setcustomcolor % object tint setcustomcolor - +{ +exch +aload pop pop +4 + { + 4 index mul 4 1 roll + } repeat +5 -1 roll pop +setcmykcolor +} def +/setoverprint % boolean setoverprint - +{ +pop +} def +currentdict readonly pop end +setpacking + +%%EndResource +%%BeginResource: procset Adobe_IllustratorA_AI3 1.0 1 +%%Title: (Adobe Illustrator (R) Version 3.0 Abbreviated Prolog) +%%Version: 1.0 +%%CreationDate: (7/22/89) () +%%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved) + +currentpacking true setpacking +userdict /Adobe_IllustratorA_AI3 61 dict dup begin put +% initialization +/initialize % - initialize - +{ +% 47 vars, but leave slack of 10 entries for custom Postscript fragments +userdict /Adobe_IllustratorA_AI3_vars 57 dict dup begin put + +% paint operands +/_lp /none def +/_pf {} def +/_ps {} def +/_psf {} def +/_pss {} def +/_pjsf {} def +/_pjss {} def +/_pola 0 def +/_doClip 0 def + +% paint operators +/cf currentflat def % - cf flatness + +% typography operands +/_tm matrix def +/_renderStart [/e0 /r0 /a0 /o0 /e1 /r1 /a1 /i0] def +/_renderEnd [null null null null /i1 /i1 /i1 /i1] def +/_render -1 def +/_rise 0 def +/_ax 0 def % x character spacing (_ax, _ay, _cx, _cy follows awidthshow naming convention) +/_ay 0 def % y character spacing +/_cx 0 def % x word spacing +/_cy 0 def % y word spacing +/_leading [0 0] def +/_ctm matrix def +/_mtx matrix def +/_sp 16#020 def +/_hyphen (-) def +/_fScl 0 def +/_cnt 0 def +/_hs 1 def +/_nativeEncoding 0 def +/_useNativeEncoding 0 def +/_tempEncode 0 def +/_pntr 0 def +/_tDict 2 dict def + +% typography operators +/Tx {} def +/Tj {} def + +% compound path operators +/CRender {} def + +% printing +/_AI3_savepage {} def + +% color operands +/_gf null def +/_cf 4 array def +/_if null def +/_of false def +/_fc {} def +/_gs null def +/_cs 4 array def +/_is null def +/_os false def +/_sc {} def +/_i null def +Adobe_IllustratorA_AI3 begin +Adobe_IllustratorA_AI3 + { + dup xcheck + { + bind + } if + pop pop + } forall +end +end +Adobe_IllustratorA_AI3 begin +Adobe_IllustratorA_AI3_vars begin +newpath +} def +/terminate % - terminate - +{ +end +end +} def +% definition operators +/_ % - _ null +null def +/ddef % key value ddef - +{ +Adobe_IllustratorA_AI3_vars 3 1 roll put +} def +/xput % key value literal xput - +{ +dup load dup length exch maxlength eq + { + dup dup load dup + length 2 mul dict copy def + } if +load begin def end +} def +/npop % integer npop - +{ + { + pop + } repeat +} def +% marking operators +/sw % ax ay string sw x y +{ +dup length exch stringwidth +exch 5 -1 roll 3 index 1 sub mul add +4 1 roll 3 1 roll 1 sub mul add +} def +/swj % cx cy fillchar ax ay string swj x y +{ +dup 4 1 roll +dup length exch stringwidth +exch 5 -1 roll 3 index 1 sub mul add +4 1 roll 3 1 roll 1 sub mul add +6 2 roll /_cnt 0 ddef +{1 index eq {/_cnt _cnt 1 add ddef} if} forall pop +exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop +} def +/ss % ax ay string matrix ss - +{ +4 1 roll + { % matrix ax ay char 0 0 {proc} - + 2 npop + (0) exch 2 copy 0 exch put pop + gsave + false charpath currentpoint + 4 index setmatrix + stroke + grestore + moveto + 2 copy rmoveto + } exch cshow +3 npop +} def +/jss % cx cy fillchar ax ay string matrix jss - +{ +4 1 roll + { % cx cy fillchar matrix ax ay char 0 0 {proc} - + 2 npop + (0) exch 2 copy 0 exch put + gsave + _sp eq + { + exch 6 index 6 index 6 index 5 -1 roll widthshow + currentpoint + } + { + false charpath currentpoint + 4 index setmatrix stroke + }ifelse + grestore + moveto + 2 copy rmoveto + } exch cshow +6 npop +} def + +% path operators +/sp % ax ay string sp - +{ + { + 2 npop (0) exch + 2 copy 0 exch put pop + false charpath + 2 copy rmoveto + } exch cshow +2 npop +} def +/jsp % cx cy fillchar ax ay string jsp - +{ + { % cx cy fillchar ax ay char 0 0 {proc} - + 2 npop + (0) exch 2 copy 0 exch put + _sp eq + { + exch 5 index 5 index 5 index 5 -1 roll widthshow + } + { + false charpath + }ifelse + 2 copy rmoveto + } exch cshow +5 npop +} def + +% path construction operators +/pl % x y pl x y +{ +transform +0.25 sub round 0.25 add exch +0.25 sub round 0.25 add exch +itransform +} def +/setstrokeadjust where + { + pop true setstrokeadjust + /c % x1 y1 x2 y2 x3 y3 c - + { + curveto + } def + /C + /c load def + /v % x2 y2 x3 y3 v - + { + currentpoint 6 2 roll curveto + } def + /V + /v load def + /y % x1 y1 x2 y2 y - + { + 2 copy curveto + } def + /Y + /y load def + /l % x y l - + { + lineto + } def + /L + /l load def + /m % x y m - + { + moveto + } def + } + {%else + /c + { + pl curveto + } def + /C + /c load def + /v + { + currentpoint 6 2 roll pl curveto + } def + /V + /v load def + /y + { + pl 2 copy curveto + } def + /Y + /y load def + /l + { + pl lineto + } def + /L + /l load def + /m + { + pl moveto + } def + }ifelse + +% graphic state operators +/d % array phase d - +{ +setdash +} def +/cf {} def % - cf flatness +/i % flatness i - +{ +dup 0 eq + { + pop cf + } if +setflat +} def +/j % linejoin j - +{ +setlinejoin +} def +/J % linecap J - +{ +setlinecap +} def +/M % miterlimit M - +{ +setmiterlimit +} def +/w % linewidth w - +{ +setlinewidth +} def + +% path painting operators +/H % - H - +{} def +/h % - h - +{ +closepath +} def +/N % - N - +{ +_pola 0 eq + { + _doClip 1 eq {clip /_doClip 0 ddef} if + newpath + } + { + /CRender {N} ddef + }ifelse +} def +/n % - n - +{N} def +/F % - F - +{ +_pola 0 eq + { + _doClip 1 eq + { + gsave _pf grestore clip newpath /_lp /none ddef _fc + /_doClip 0 ddef + } + { + _pf + }ifelse + } + { + /CRender {F} ddef + }ifelse +} def +/f % - f - +{ +closepath +F +} def +/S % - S - +{ +_pola 0 eq + { + _doClip 1 eq + { + gsave _ps grestore clip newpath /_lp /none ddef _sc + /_doClip 0 ddef + } + { + _ps + }ifelse + } + { + /CRender {S} ddef + }ifelse +} def +/s % - s - +{ +closepath +S +} def +/B % - B - +{ +_pola 0 eq + { + _doClip 1 eq % F clears _doClip + gsave F grestore + { + gsave S grestore clip newpath /_lp /none ddef _sc + /_doClip 0 ddef + } + { + S + }ifelse + } + { + /CRender {B} ddef + }ifelse +} def +/b % - b - +{ +closepath +B +} def +/W % - W - +{ +/_doClip 1 ddef +} def +/* % - [string] * - +{ +count 0 ne + { + dup type (stringtype) eq {pop} if + } if +_pola 0 eq {newpath} if +} def + +% group operators +/u % - u - +{} def +/U % - U - +{} def +/q % - q - +{ +_pola 0 eq {gsave} if +} def +/Q % - Q - +{ +_pola 0 eq {grestore} if +} def +/*u % - *u - +{ +_pola 1 add /_pola exch ddef +} def +/*U % - *U - +{ +_pola 1 sub /_pola exch ddef +_pola 0 eq {CRender} if +} def +/D % polarized D - +{pop} def +/*w % - *w - +{} def +/*W % - *W - +{} def + +% place operators +/` % matrix llx lly urx ury string ` - +{ +/_i save ddef +6 1 roll 4 npop +concat +userdict begin +/showpage {} def +false setoverprint +pop +} def +/~ % - ~ - +{ +end +_i restore +} def + +% color operators +/O % flag O - +{ +0 ne +/_of exch ddef +/_lp /none ddef +} def +/R % flag R - +{ +0 ne +/_os exch ddef +/_lp /none ddef +} def +/g % gray g - +{ +/_gf exch ddef +/_fc +{ +_lp /fill ne + { + _of setoverprint + _gf setgray + /_lp /fill ddef + } if +} ddef +/_pf +{ +_fc +fill +} ddef +/_psf +{ +_fc +ashow +} ddef +/_pjsf +{ +_fc +awidthshow +} ddef +/_lp /none ddef +} def +/G % gray G - +{ +/_gs exch ddef +/_sc +{ +_lp /stroke ne + { + _os setoverprint + _gs setgray + /_lp /stroke ddef + } if +} ddef +/_ps +{ +_sc +stroke +} ddef +/_pss +{ +_sc +ss +} ddef +/_pjss +{ +_sc +jss +} ddef +/_lp /none ddef +} def +/k % cyan magenta yellow black k - +{ +_cf astore pop +/_fc +{ +_lp /fill ne + { + _of setoverprint + _cf aload pop setcmykcolor + /_lp /fill ddef + } if +} ddef +/_pf +{ +_fc +fill +} ddef +/_psf +{ +_fc +ashow +} ddef +/_pjsf +{ +_fc +awidthshow +} ddef +/_lp /none ddef +} def +/K % cyan magenta yellow black K - +{ +_cs astore pop +/_sc +{ +_lp /stroke ne + { + _os setoverprint + _cs aload pop setcmykcolor + /_lp /stroke ddef + } if +} ddef +/_ps +{ +_sc +stroke +} ddef +/_pss +{ +_sc +ss +} ddef +/_pjss +{ +_sc +jss +} ddef +/_lp /none ddef +} def +/x % cyan magenta yellow black name gray x - +{ +/_gf exch ddef +findcmykcustomcolor +/_if exch ddef +/_fc +{ +_lp /fill ne + { + _of setoverprint + _if _gf 1 exch sub setcustomcolor + /_lp /fill ddef + } if +} ddef +/_pf +{ +_fc +fill +} ddef +/_psf +{ +_fc +ashow +} ddef +/_pjsf +{ +_fc +awidthshow +} ddef +/_lp /none ddef +} def +/X % cyan magenta yellow black name gray X - +{ +/_gs exch ddef +findcmykcustomcolor +/_is exch ddef +/_sc +{ +_lp /stroke ne + { + _os setoverprint + _is _gs 1 exch sub setcustomcolor + /_lp /stroke ddef + } if +} ddef +/_ps +{ +_sc +stroke +} ddef +/_pss +{ +_sc +ss +} ddef +/_pjss +{ +_sc +jss +} ddef +/_lp /none ddef +} def + +% locked object operator +/A % value A - +{ +pop +} def + +currentdict readonly pop end +setpacking + +% annotate page operator +/annotatepage +{ +} def +%%EndResource + diff --git a/Master/texmf-dist/dvips/geomsty/math.pro b/Master/texmf-dist/dvips/geomsty/math.pro new file mode 100644 index 00000000000..e05e6c4bd3f --- /dev/null +++ b/Master/texmf-dist/dvips/geomsty/math.pro @@ -0,0 +1,1752 @@ +% This file is adapted from the PostScript code that gets +% included by the psfix filter, provided with Mathematica. +% The only differences are the addition of the first two lines +% (MyDict) and of the abbreviations at the end (starting with /Ma). + +%$Revision: 1.3 $ +%$Date: 95/06/27 12:16:53 $ + +/MyDict 200 dict def +MyDict begin + +% The externally visible functions are: +% MathPictureStart- start page. +% MathPictureEnd - finish off page. +% MathSubStart - start a sub-page. +% MathSubEnd - finish off a sub-page. +% Mdot - draw a dot. +% Mtetra - draw a filled tetragon. +% Metetra - draw a filled tetragon with black edges. +% Mistroke - intermediate stroke of multi-stroke line/curve. +% Mfstroke - final stroke of multi-stroke line/curve. +% Msboxa - compute coordinates of text bounding box. +% Mshowa - plot characters. +% MathScale - compute scaling info to contain array of points. + + +% The following are only for backwards compatibility with earlier versions +% of Mathematica: +% Mpstart - identical to MathPictureStart. +% Mpend - identical to MathPictureEnd. +% Mscale - like MathScale but without user coordinate info. + +/Mpstart { % - Mpstart - + MathPictureStart +} bind def + +/Mpend { % - Mpend - + MathPictureEnd +} bind def + +/Mscale { % [pnts] Mscale - + 0 1 0 1 % [pnts] xbias xscale ybias yscale + 5 -1 roll % xbias xscale ybias yscale [pnts] + MathScale % - +} bind def + +%start of ISOLatin1 stuff + +/ISOLatin1Encoding dup where +{ pop pop } +{ +[ +/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef +/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef +/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef +/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef +/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright +/parenleft /parenright /asterisk /plus /comma /minus /period /slash +/zero /one /two /three /four /five /six /seven +/eight /nine /colon /semicolon /less /equal /greater /question +/at /A /B /C /D /E /F /G +/H /I /J /K /L /M /N /O +/P /Q /R /S /T /U /V /W +/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore +/quoteleft /a /b /c /d /e /f /g +/h /i /j /k /l /m /n /o +/p /q /r /s /t /u /v /w +/x /y /z /braceleft /bar /braceright /asciitilde /.notdef +/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef +/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef +/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent +/dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron +/space /exclamdown /cent /sterling /currency /yen /brokenbar /section +/dieresis /copyright /ordfeminine /guillemotleft +/logicalnot /hyphen /registered /macron +/degree /plusminus /twosuperior /threesuperior +/acute /mu /paragraph /periodcentered +/cedilla /onesuperior /ordmasculine /guillemotright +/onequarter /onehalf /threequarters /questiondown +/Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla +/Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis +/Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply +/Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls +/agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla +/egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis +/eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide +/oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis +] def +} ifelse + +/MFontDict 50 dict def + +/MStrCat % string1 string2 MStrCat string +{ + exch % s2 s1 + dup length % s2 s1 len + 2 index length add % s2 s1 len + string % s2 s1 s + dup 3 1 roll % s2 s s1 s + copy % s2 s s1 + length % s2 s where + exch dup % s2 where s s + 4 2 roll exch % s s where s2 + putinterval +} def + +/MCreateEncoding % name encoding MCreateEncoding newname +{ + % get base name + 1 index % name encoding name + + % concatenate (-) and encoding to the name + 255 string cvs + (-) MStrCat + 1 index MStrCat + cvn exch % basename newname encoding + + % make encoding name + + (Encoding) MStrCat + cvn dup where + { + exch get + } + { + pop + StandardEncoding + } ifelse + 3 1 roll % vector basename newname + + % make the font if we haven't before + dup MFontDict exch known not + { + 1 index findfont + dup length dict + begin + {1 index /FID ne + {def} + {pop pop} + ifelse} forall + /Encoding 3 index + def + currentdict + end + 1 index exch definefont pop + + MFontDict 1 index + null put + } + if + + exch pop % vector newname + exch pop % newname +} def + +/ISOLatin1 { (ISOLatin1) MCreateEncoding } def +/ISO8859 { (ISOLatin1) MCreateEncoding } def + +%end of ISOLatin1 stuff + +% +% Include old font names for backward compatibility +% +/Mcopyfont { % procedure to copy font + dup + maxlength + dict + exch + { + 1 index + /FID + eq + { + pop pop + } + { + 2 index + 3 1 roll + put + } + ifelse + } + forall +} def + +/Plain /Courier findfont Mcopyfont definefont pop +/Bold /Courier-Bold findfont Mcopyfont definefont pop +/Italic /Courier-Oblique findfont Mcopyfont definefont pop + +% Set up for the start of a page. +/MathPictureStart { % - MathPictureStart - + gsave % - + Mtransform % possibly rotate to landscape mode + Mlmarg % left_margin + Mbmarg % bottom_margin + translate % - + Mwidth % init_width + Mlmarg Mrmarg add % init_width lmarg+rmarg + sub % true_width + /Mwidth exch def % + Mheight % init_height + Mbmarg Mtmarg add % init_height tmarg+bmarg + sub % true_height + /Mheight exch def + /Mtmatrix % /Mtmatrix + matrix currentmatrix % /Mtmatrix text_matrix + def + /Mgmatrix % /Mgmatrix + matrix currentmatrix % /Mgmatrix graphics_matrix + def % - +} bind def + + +% Finish off a page. +/MathPictureEnd { + grestore +} bind def + +%MFill fills the drawing area with the current color. +/MFill { + 0 0 moveto + Mwidth 0 lineto + Mwidth Mheight lineto + 0 Mheight lineto + fill +} bind def + +% xmin xmax ymin ymax MPlotRegion alters the origin, Mwidth and Mheight +% so that the picture fills the altered region +/MPlotRegion { % xmin xmax ymin ymax MPlotRegion + 3 index % xmin xmax ymin ymax xmin + Mwidth mul % xmin xmax ymin ymax xmin_pos + 2 index % xmin xmax ymin ymax xmin_pos ymin + Mheight mul % xmin xmax ymin ymax xmin_pos ymin_pos + translate % xmin xmax ymin ymax + exch sub % xmin xmax ymax-ymin + Mheight mul % xmin xmax new_height + /Mheight + exch def % xmin xmax + exch sub % xmax-xmin + Mwidth mul % new-width + /Mwidth + exch def +} bind def + +% Given a rectangle, set it up as a sub-picture. +/MathSubStart { % xmin ymin xmax ymax MathSubStart <saved state(8)> + Momatrix + Mgmatrix Mtmatrix + Mwidth Mheight % xmin ymin xmax ymax <ss(8)> + 7 -2 roll % xmin ymin <ss(8)> xmax ymax + moveto % xmin ymin <ss(8)> + Mtmatrix setmatrix % xmin ymin <ss(8)> + currentpoint % xmin ymin <ss(8)> xmax(t) ymax(t) + Mgmatrix setmatrix % xmin ymin <ss(8)> xmax(t) ymax(t) + 9 -2 roll % <ss(8)> xmax(t) ymax(t) xmin ymin + moveto % <ss(8)> xmax(t) ymax(t) + Mtmatrix setmatrix % <ss(8)> xmax(t) ymax(t) + currentpoint % <ss(8)> xmax(t) ymax(t) xmin(t) ymin(t) + 2 copy translate % <ss(8)> xmax ymax xmin ymin + /Mtmatrix matrix currentmatrix def + 3 -1 roll % <ss(8)> xmax xmin ymin ymax + exch sub % <ss(8)> xmax xmin height + /Mheight exch def % <ss(8)> xmax xmin + sub % <ss(8)> width + /Mwidth exch def % <ss(8)> +} bind def + + +% Restore the saved state left by the matching MathSubStart. +% Note, we also leave with the new Mgmatrix as the current matrix. +/MathSubEnd { % gmat tmat lm rm bm tm w h MathSubStart - + /Mheight exch def % gmat tmat lm rm bm tm w + /Mwidth exch def % gmat tmat lm rm bm tm + /Mtmatrix exch def % gmat + dup setmatrix % gmat + /Mgmatrix exch def % - + /Momatrix exch def % - +} bind def + + +% Given a point, draw a dot. +/Mdot { % x y Mdot - + moveto % - + 0 0 rlineto % - + stroke % - +} bind def + + +% Given 4 points, draw the corresponding filled tetragon. +/Mtetra { % x0 y0 x1 y1 x2 y2 x3 y3 Mtetra - + moveto % x0 y0 x1 y1 x2 y2 + lineto % x0 y0 x1 y1 + lineto % x0 y0 + lineto % - + fill % - +} bind def + + +% Given 4 points, draw the corresponding filled tetragon with black edges. +% Note, this leaves the gray level at 0 (for compatibility with the old +% C code. +/Metetra { % x0 y0 x1 y1 x2 y2 x3 y3 Metetra - + moveto % x0 y0 x1 y1 x2 y2 + lineto % x0 y0 x1 y1 + lineto % x0 y0 + lineto % - + closepath % - + gsave % - + fill % - + grestore % - + 0 setgray % - + stroke % - +} bind def + + +% Mistroke is called to stroke intermediate parts of a path. It makes +% sure to resynchronize the dashing pattern and to leave the current point +% as the final point of the path. +/Mistroke { % - Mistroke - + flattenpath % - + 0 0 0 % length x y + { % length x y new_x new_y (for moves) + 4 2 roll % length new_x new_y x y + pop pop % length new_x new_y + } + { % length x y new_x new_y (for lines) + 4 -1 roll % length y new_x new_y x + 2 index % length y new_x new_y x new_x + sub dup mul % length y new_x new_y dx*dx + 4 -1 roll % length new_x new_y dx*dx y + 2 index % length new_x new_y dx*dx y new_y + sub dup mul % length new_x new_y dx*dx dy*dy + add sqrt % length new_x new_y dlen + 4 -1 roll % new_x new_y dlen length + add % new_x new_y new_length + 3 1 roll % new_length new_x new_y + } + { % length x y x1 y1 x2 y2 x3 y3 (for curves) + stop % should never be called + } + { % length x y (for closepaths) + stop % should never be called + } + pathforall % length x y + pop pop % length + currentpoint % length final_x final_y + stroke % length final_x final_y + moveto % length + currentdash % length dash_array dash_offset + 3 -1 roll % dash_array dash_offset length + add % dash_array new_offset + setdash % - +} bind def + + +% Mfstroke is called to stroke the final parts of a path. It resets +% the dashing pattern to compensate for any adjustments made by Mistroke. +/Mfstroke { % - Mfstroke - + stroke % - + currentdash % dash_array dash_offset + pop 0 % dash_array 0 + setdash % - +} bind def + + + +% Mrotsboxa is the same as Msboxa except that it takes an angle +% form the stack and the box is calculated for text rendered at this angle. +% It gsaves in case we are starting a MathSubStart +% save Mrot so that Msboxa can convert bouding box back to the non-rotated +% coordinate system +% call Mrotcheck to alter the offsets into the rotated system +% converts Mtmatrix to render in the rotated system +% the calls Msboxa which does all the work +% at the end Mtmatrix is restored and Mrot is reset to 0 +/Mrotsboxa { % [str..] gx gy sx sy ang Mrotsboxa ... Msboxa + gsave % in case in MathSubStart + dup % [str..] gx gy sx sy ang ang + /Mrot + exch def % [str..] gx gy sx sy ang + Mrotcheck % [str..] gx gy sx_new sy_new ang + Mtmatrix % [str..] gx gy sx sy ang Mtmatrix + dup + setmatrix + 7 1 roll % Mtmatrix [str..] gx gy sx sy ang + 4 index % Mtmatrix [str..] gx gy sx sy ang gx + 4 index % Mtmatrix [str..] gx gy sx sy ang gx gy + translate % Mtmatrix [str..] gx gy sx sy ang + rotate % Mtmatrix [str..] gx gy sx sy + 3 index % Mtmatrix [str..] gx gy sx sy gx + -1 mul % Mtmatrix [str..] gx gy sx sy -gx + 3 index % Mtmatrix [str..] gx gy sx sy -gx gy + -1 mul % Mtmatrix [str..] gx gy sx sy -gx -gy + translate % Mtmatrix [str..] gx gy sx sy + /Mtmatrix % now change Mtmatrix to be this new currentmatrix + matrix + currentmatrix + def + grestore % grestore to deal with MathSubStart + Msboxa % Mtmatrix [ x y x y] [ x y x y] + 3 -1 roll % [x y x y ] [x y x y] Mtmatrix + /Mtmatrix + exch def % restore Mtmatrix + /Mrot + 0 def % restore Mrot +} bind def + + +% Given an array of strings ([str...]), which represent consecutive lines +% of text, a position in graphics coordinates (gx,gy) and a position in +% the bounding box coordinates (sx,sy), compute the low and high coordinates +% of the resulting text, in the [gx gy tx ty] form, which corresponds to +% the point (gx,gy) (in graphics coordinates) plus the offset (tx,ty) (in +% text coordinates). +% Note, Msboxa assumes that the current matrix is the text matrix. +% Mboxout is called in case we are in Mouter to make the box bigger +% Mboxrot adjusts the box to account for a rotation to convert the box +% into a nonrotated coordinate system +% +/Msboxa { % [str...] gx gy sx sy Msboxa [gx gy tlx tly] [gx gy thx thy] + newpath % [str...] gx gy sx sy (just in case) + 5 -1 roll % gx gy sx sy [str...] + Mvboxa % gx gy sx sy blx bly bhx bhy [off...] + pop % gx gy sx sy blx bly bhx bhy + Mboxout % adjust box for Minner + 6 -1 roll % gx gy sy blx bly bhx bhy sx + 5 -1 roll % gx gy sy bly bhx bhy sx blx + 4 -1 roll % gx gy sy bly bhy sx blx bhx + Msboxa1 % gx gy sy bly bhy tlx thx + 5 -3 roll % gx gy tlx thx sy bly bhy + Msboxa1 % gx gy tlx thx tly thy + Mboxrot % adjust box for rotation + [ % gx gy tlx thx tly thy mark + 7 -2 roll % tlx thx tly thy mark gx gy + 2 copy % tlx thx tly thy mark gx gy gx gy + [ % tlx thx tly thy mark gx gy gx gy mark + 3 1 roll % tlx thx tly thy mark gx gy mark gx gy + 10 -1 roll % thx tly thy mark gx gy mark gx gy tlx + 9 -1 roll % thx thy mark gx gy mark gx gy tlx tly + ] % thx thy mark gx gy [gx gy tlx tly] + 6 1 roll % [gx gy tlx tly] thx thy mark gx gy + 5 -2 roll % [gx gy tlx tly] mark gx gy thx thy + ] % [gx gy tlx tly] [gx gy thx thy] +} bind def + +% Msboxa1 is an internal function which, given a bounding box coordinate +% (sz), and the bounding box limits (blz and bhz), computes the actual +% offsets (tlz = (blz-bhz)(sz+1)/2, thz = (blz-bhz)(sz-1)/2). +/Msboxa1 { % sz blz bhz Msboxa1 tlz thz + sub % sz blz-bhz + 2 div % sz (blz-bhz)/2 + dup % sz (blz-bhz)/2 (blz-bhz)/2 + 2 index % sz (blz-bhz)/2 (blz-bhz)/2 sz + 1 add % sz (blz-bhz)/2 (blz-bhz)/2 sz+1 + mul % sz (blz-bhz)/2 tlz + 3 -1 roll % (blz-bhz)/2 tlz sz + -1 add % (blz-bhz)/2 tlz sz-1 + 3 -1 roll % tlz sz-1 (blz-bhz)/2 + mul % tlz thz +} bind def + + +% Given a (non-empty) array of strings ([str...]) calculate the +% bounding box. We do this for fixedwidth fonts or nonfixedwidth fonts +% depending upon the setting of Mfixwid. Mvboxa1 actually does a lot +% of the work. For nonfixedwidth fonts the length of the bounding +% box length is made to be the summation of [(str)..] Mwidthcal +% ie the maximum length of the strings and xlow +% +/Mvboxa { % [str...] Mvboxa xlow ylow xhigh yhigh [off...] + Mfixwid + { + Mvboxa1 + } + { + dup % [str...] [str...] + Mwidthcal % [str...] [ w1 w2...] + 0 exch % [str...] 0 [ w1 w2...] + { + add + } + forall % [str...] length + exch + Mvboxa1 % length xlow ylow xhigh yhigh [off...] + 4 index % length xlow ylow xhigh yhigh [off...] xlow + 7 -1 roll % xlow ylow xhigh yhigh [off...] xlow length + add % xlow ylow xhigh yhigh [off...] new_xhigh + 4 -1 roll + pop % xlow ylow yhigh [off...] new_xhigh + 3 1 roll % xlow ylow new_xhigh yhigh [off...] + } + ifelse +} bind def + + +% Given a (non-empty) array of strings ([str...]) which represent consecutive +% lines of text, compute the total bounding box assuming that we start at +% (0,0) and the array of y offsets to place the lines correctly. +% Note, Mvboxa assumes that the current matrix is the text matrix. +% Note, Mvboxa does not alter the current path. +% The vertical spacing is set so that the bounding boxes of adjacent lines +% are .3 times the width of an `m' apart. +/Mvboxa1 { % [str...] Mvboxa xlow ylow xhigh yhigh [off...] + gsave % [str...] + newpath % [str...] (clear path fragments) + [ true % [str...] mark true + 3 -1 roll % mark true [str...] + { % mark {true -or- off... Xl Yl Xh Yh false} str + Mbbox % mark {true -or- off... Xl Yl Xh Yh false} xl yl xh yh + 5 -1 roll % mark { - -or- off... Xl Yl Xh Yh} xl yl xh yh first? + { % mark xl yl xh yh + 0 % mark xl yl xh yh off1 + 5 1 roll % mark off1 xl yl xh yh + } % mark off1 XL YL XH YH + { % mark off... Xl Yl Xh Yh xl yl xh yh + 7 -1 roll % mark off... Xl Xh Yh xl yl xh yh Yl + exch sub % mark off... Xl Xh Yh xl yl xh yh-Yl + (m) stringwidth pop % mark off... Xl Xh Yh xl yl xh yh-Yl pntsize + .3 mul % mark off... Xl Xh Yh xl yl xh yh-Yl fudge + sub % mark off... Xl Xh Yh xl yl xh off + 7 1 roll % mark off... off Xl Xh Yh xl yl xh + 6 -1 roll % mark off... off Xh Yh xl yl xh Xl + 4 -1 roll % mark off... off Xh Yh yl xh Xl xl + Mmin % mark off... off Xh Yh yl xh XL + 3 -1 roll % mark off... off Xh Yh xh XL yl + 5 index % mark off... off Xh Yh xh XL yl off + add % mark off... off Xh Yh xh XL YL + 5 -1 roll % mark off... off Yh xh XL YL Xh + 4 -1 roll % mark off... off Yh XL YL Xh xh + Mmax % mark off... off Yh XL YL XH + 4 -1 roll % mark off... off XL YL XH YH + } % mark off... XL YL XH YH + ifelse % mark off... XL YL XH YH + false % mark off... XL YL XH YH false + } % mark off... XL YL XH YH false + forall % mark off... xlow ylow xhigh yhigh false + { stop } if % mark off... xlow ylow xhigh yhigh + counttomark % mark off... xlow ylow xhigh yhigh (#off's+4) + 1 add % mark off... xlow ylow xhigh yhigh (#off's+5) + 4 roll % xlow ylow xhigh yhigh mark off... + ] % xlow ylow xhigh yhigh [off...] + grestore % xlow ylow xhigh yhigh [off...] +} bind def + + +% Given a string, compute the bounding box assuming that we start at (0,0). +% Note, the path is assumed to be empty, and we are assumed to be in text +% coordinates. Allows for long strings. +/Mbbox { % str Mbbox xlow ylow xhigh yhigh + 1 dict begin + 0 0 moveto % str + /temp (T) def + { gsave + currentpoint newpath moveto + temp 0 3 -1 roll put temp + false charpath flattenpath currentpoint + pathbbox + grestore moveto lineto moveto} forall + pathbbox + newpath + end +} bind def + + +% Compute the minimum of two numbers. +/Mmin { % p q Mmin min(p,q) + 2 copy % p q p q + gt % p q p>q? + { exch } if % min(p,q) max(p,q) + pop % min(p,q) +} bind def + + +% Compute the maximum of two numbers. +/Mmax { % p q Mmax max(p,q) + 2 copy % p q p q + lt % p q p<q? + { exch } if % max(p,q) min(p,q) + pop % max(p,q) +} bind def + +% Mrotshowa is the same as Mshowa except that it takes an angle +% from the stack and the text is rendered at this angle. +% It saves Mrot (not really needed but saved anyway) +% calls Mrotcheck to adjust the offsets into the rotated coordinate system +% converts Mtmatrix to render in the rotated system +% and calls Mshowa which does all the work +% at the end Mtmatrix is restored and Mrot is reset to zero. +% +/Mrotshowa { %[str..] gx gy sx sy ang Mrotshowa + dup + /Mrot + exch def + Mrotcheck + Mtmatrix %[str..] gx gy sx sy ang Mtmatrix + dup + setmatrix + 7 1 roll %Mtmatrix [str..] gx gy sx sy ang + 4 index %Mtmatrix [str..] gx gy sx sy ang gx + 4 index %Mtmatrix [str..] gx gy sx sy ang gx gy + translate + rotate %Mtmatrix [str..] gx gy sx sy + 3 index + -1 mul + 3 index + -1 mul %Mtmatrix [str..] gx gy sx sy -gx -gy + translate + /Mtmatrix + matrix + currentmatrix + def %Mtmatrix [str..] gx gy sx sy + Mgmatrix setmatrix + Mshowa %Mtmatrix + /Mtmatrix + exch def + /Mrot 0 def % restore Mrot +} bind def + +% +% Given an array of strings ([str...]), which represent consecutive lines +% of text, a position in graphics coordinates (gx,gy) and a position in +% the bounding box coordinates (sx,sy), display the strings. +% Mboxout is called in case we are in Mouter +% +/Mshowa { % [str...] gx gy sx sy Mshowa - + 4 -2 roll % [str...] sx sy gx gy + moveto % [str...] sx sy + 2 index % [str...] sx sy [str...] + Mtmatrix setmatrix % [str...] sx sy [str...] + Mvboxa % [str...] sx sy tlx tly thx thy [off...] + 7 1 roll % [str...] [off...] sx sy tlx tly thx thy + Mboxout + 6 -1 roll % [str...] [off...] sy tlx tly thx thy sx + 5 -1 roll % [str...] [off...] sy tly thx thy sx tlx + 4 -1 roll % [str...] [off...] sy tly thy sx tlx thx + Mshowa1 % [str...] [off...] sy tly thy relx + 4 1 roll % [str...] [off...] relx sy tly thy + Mshowa1 % [str...] [off...] relx rely + rmoveto % [str...] [off...] + currentpoint % [str...] [off...] x y + Mfixwid + { + Mshowax + } + { + Mshoway + } + ifelse + pop pop pop pop + Mgmatrix setmatrix +} bind def + + +% This is used for fixedwidth fonts +% It simply shows each string and advances the y direction by the offset +% +/Mshowax { + 0 1 + 4 index length % [str...] [off...] x y 0 1 (#strings) + -1 add % [str...] [off...] x y 0 1 (#strings-1) + { % [str...] [off...] x y strnum + 2 index % [str...] [off...] x y strnum x + 4 index % [str...] [off...] x y strnum x [off...] + 2 index % [str...] [off...] x y strnum [off...] strnum + get % [str...] [off...] x y strnum x off + 3 index % [str...] [off...] x y strnum x off y + add % [str...] [off...] x y strnum x Y + moveto % [str...] [off...] x y strnum + 4 index % [str...] [off...] x y strnum [str...] + exch get % [str...] [off...] x y str + Mfixdash + { + Mfixdashp + } + if + show % [str...] [off...] x y + } for % [str...] [off...] x y +} bind def + +% Fix if all dashes and length > 1 +/Mfixdashp { % str + dup + length % str n + 1 + gt % str bool + 1 index % str bool str + true exch % str bool true str + { + 45 + eq + and + } forall + and % str bool + { + gsave + (--) + stringwidth pop + (-) + stringwidth pop + sub + 2 div % str lenfix + 0 rmoveto % str + dup % str str + length + 1 sub % str len-1 + { + (-) + show + } + repeat + grestore + } + if % x y str +} bind def + + +% This is for non-fixedwidth fonts +% It shows each character individually advancing the x position by +% the maximum width of any character in that position +% +/Mshoway { + 3 index % [str...] [off...] x y [str...] + Mwidthcal % [str...] [off...] x y [w1 w2 w3...] + 5 1 roll % [w1 w2 w3..] [str...] [off...] x y + 0 1 % [w1 w2 w3..] [str...] [off...] x y 0 1 + 4 index length % [w1 w2 w3..] [str...] [off...] x y 0 1 (#strings) + -1 add % [w1 w2 w3..] [str...] [off...] x y 0 1 (#strings-1) + { % [w1 w2 w3..] [str...] [off...] x y strnum + 2 index % [w1 w2 w3..] [str...] [off...] x y strnum x + 4 index % [w1 w2 w3..] [str...] [off...] x y strnum x [off...] + 2 index % [w1 w2 w3..] [str...] [off...] x y + % strnum [off...] strnum + get % [w1 w2 w3..] [str...] [off...] x y strnum x off + 3 index % [w1 w2 w3..] [str...] [off...] x y strnum x off y + add % [w1 w2 w3..] [str...] [off...] x y strnum x Y + moveto % [w1 w2 w3..] [str...] [off...] x y strnum + 4 index % [w1 w2 w3..] [str...] [off...] x y strnum [str...] + exch get % [w1 w2 w3..] [str...] [off...] x y str + [ + 6 index % [w1 w2 w3..] [str...] [off...] x y str [ [w1 w2..] + aload + length % [w1 w2 w3..] [str...] [off...] x y str [ w1 w2.. len + 2 add + -1 roll % [w1 w2 w3..] [str...] [off...] x y [ w1 w2.. str + { + pop % [w1 w2 w3..] [str...] [off...] x y [ w1 c2.. str am + Strform % [w1 w2 w3..] [str...] [off...] x y [ w1 w2.. str 1str + stringwidth + pop + neg + exch % [w1 w2 w3..] [str...] [off...] x y [ w1 w2.. + % str -cm cn + add + 0 rmoveto % [w1 w2 w3..] [str...] [off...] x y [ w1 w2.. str + } + exch + kshow % [w1 w2 w3..] [str...] [off...] x y [ + cleartomark + } for % [w1 w2 w3..] [str...] [off...] x y + pop +} bind def + +% +% This is a central mechanism for dealing with non-fixedwidth fonts. +% Given an array of strings Mwidthcal returns an array of the lengths +% of the longest character in the corresponding positions in the arrays. +% Thus the 4th element of the result is the maximum character width of +% each strin at the 4th position. +% +/Mwidthcal { % [(abc) (abc) ..] Mwidthcal [w1 w2 w3 ...] + [ + exch % [ [(abc) (abd) ..] + { + Mwidthcal1 + } + forall + ] % [[w w w] [w w w] ..] + [ % call this [chr ..] now + exch % [ [chr ..] + dup % [ [chr ..] [chr ..] + Maxlen % [ [chr ..] maxlen + -1 add + 0 1 + 3 -1 roll % [chr ..] [ [chr ..] 0 1 maxlen-1 + { + [ % [chr ..] [ [chr ..] n [ + exch % [chr ..] [ [chr ..] [ n + 2 index % [chr ..] [ [chr ..] [ n [chr ..] + { + 1 index + Mget % [chr ..] [ [chr ..] [ n [w1 w2 ..] n + exch % [chr ..] [ [chr ..] [ wn n + } + forall + pop % [chr ..] [ [chr ..] [ w1 w2 w3 + Maxget % [chr ..] [ [chr ..] wmax + exch % [chr ..] [ wmax [chr ..] + } + for + pop + ] % [ wmax1 wmax2 wmax3 ..] + Mreva +} bind def + +%Reverse an array +/Mreva { %[a b c ..] Mreva [.. c b a] + [ + exch %[ [a b c ..] + aload + length %[a b c .. len + -1 1 %[a b c .. len -1 1 + {1 roll} + for + ] %[.. c b a] +} bind def + +% take an array and an index and return that element if index exits +% if array not long enougth return zero +/Mget { %[a b c d..] index + 1 index + length %[a b c d..] index len + -1 add + 1 index %[a b c d..] index (len-1) index + ge + { + get %if long enough return entry + } + { + pop pop + 0 %if not long enough return zero + } + ifelse +} bind def + +%Take an array of arrays and return the longest length +/Maxlen { %[ arr1 arr2 arr3 ] Maxlen maxlen + [ %[ arr1 arr2 arr3 ] [ + exch %[ [ arr1 arr2 arr3 ] + { + length + } + forall %[ len1 len2 len3.. + Maxget +} bind def + +%Take a series of numbers starting with [ and return the largest member +/Maxget { %[n1 n2 n3 .. Maxget nmax + counttomark %[n1 n2 n3 .. len + -1 add %[n1 n2 n3 .. len-1 + 1 1 %[n1 n2 n3 .. len 1 1 + 3 -1 roll %[n1 n2 n3 .. 1 1 (len-1) + { + pop + Mmax + } + for %[ nmax + exch % nmax [ + pop % nmax +} bind def + +%Take a string and return an array of the lengths of the characters +/Mwidthcal1 { % str Mwidthcal1 [w1 w2 w3 ..] + [ + exch %[ (str) + { + Strform + stringwidth + pop + } + forall %[w1 w2 w3 .. + ] %[w1 w2 w3 ..] +} bind def + +%put a string onto the stack +/Strform { % num + /tem (x) def + tem 0 + 3 -1 roll + put + tem +} bind def + +%/Mwidmax { % [str...] +% dup % [str...] [str...] +% [ % [str...] [str...] [ +% exch % [str...] [ [str...] +% { +% stringwidth +% pop +% } +% forall % [str...] [ w1 w2 ... wm wn +% 0 +% counttomark % [str...] [ w1 w2 ... wm wn 0 n +% -2 add % [str...] [ w1 w2 ... wm wn 0 (n-1) +% 1 exch % [str...] [ w1 w2 ... wm wn 0 1 (n-1) +% 1 exch % [str...] [ w1 w2 ... wm wn 0 1 1 (n-1) +% { +% 3 index % [str...] [ w1 w2 ... wm wn num pos wm +% 3 index % [str...] [ w1 w2 ... wm wn num pos wm wn +% ge +% { % wm >= wn +% exch pop +% exch pop % [str...] [ w1 w2 ... wm num +% } +% { % wm < wn +% pop +% 3 -1 roll +% pop % [str...] [ w1 w2 ... wn pos < pos -> num > +% } +% ifelse % [str...] [ w1 w2 ... wmax nmax +% } +% for % [str...] [ wmax nmax +% 4 1 roll +% pop pop % nmax [str...] +% length % nmax len +% -1 add % nmax (len - 1) +% exch +% sub % max_pos +%} bind def + + +% Mshowa1 is an internal routine which, given a bounding box coordinate +% (sz), and the bounding box limits if we started drawing at 0 (tlz and thz), +% computes the offset at which to start drawing +% (relz = (sz-1)tlz/2 - (sz+1)thz/2 = sz(tlz-thz)/2-(tlz+thz)/2). +/Mshowa1 { % sz tlz thz Mshowa1 relz + 2 copy % sz tlz thz tlz thz + add % sz tlz thz tlz+thz + 4 1 roll % tlz+thz sz tlz thz + sub % tlz+thz sz tlz-thz + mul % tlz+thz sz(tlz-thz) + sub % tlz+thz-sz(tlz-thz) + -2 div % sz(tlz-thz)/2-(tlz+thz)/2 +} bind def + + +% Given the x and y scaling to user coordinates and an array of points to +% fit (xbias xscale ybias yscale [pnts]), set up the scaling. The array +% must contain atleast two points, and the last two must be of the form +% [gxlow gylow 0 0] and [gxhigh gyhigh 0 0]. +% Note, MathScale assumes that we are already scaled so that the active area +% is the rectangle [0,Mwidth-Mlmarg-Mrmarg]x[0,Mheight-Mbmarg-Mtmarg]. +% also keep bias and scale info for PostScript commands +/MathScale { % <user> [pnts] MathScale - + Mwidth % <user> [pnts] width + Mheight % <user> [pnts] width height + Mlp % <user> Ax Ay Bx By + translate % <user> Ax Ay + scale % <user> + /yscale exch def + /ybias exch def + /xscale exch def + /xbias exch def + /Momatrix % this transforms from + xscale yscale matrix scale % Original to Display coordinates + xbias ybias matrix translate + matrix concatmatrix def + /Mgmatrix % /Mgmatrix + matrix currentmatrix % /Mgmatrix graphics_matrix + def % - +} bind def + + +% Given a non-empty array of points to fit ([p]) and a maximum width (sx) +% and height (sy) find the largest scale (Ax and Ay) and offsets (Bx and By) +% such that the transformation +% [gx gy tx ty] -> (Ax gx + tx + bx, Ay gy + ty + By) +% maps the points into the rectangle [0,sx]x[0,sy] +/Mlp { % [p] sx sy Mlp Ax Ay Bx By + 3 copy % [p] sx sy [p] sx sy + Mlpfirst % [p] sx sy Ax Ay + { % [p] sx sy Ax Ay + Mnodistort % [p] sx sy Ax Ay nodistort? + { % [p] sx sy Ax Ay + Mmin % [p] sx sy A + dup % [p] sx sy Ax Ay + } if % [p] sx sy Ax Ay + 4 index % [p] sx sy Ax Ay [p] + 2 index % [p] sx sy Ax Ay [p] Ax + 2 index % [p] sx sy Ax Ay [p] Ax Ay + Mlprun % [p] sx sy Ax Ay ctx wtx cgx wgx cty wty cgy wgy + 11 index % [p] sx sy Ax Ay ctx wtx cgx wgx cty wty cgy wgy sx + 11 -1 roll % [p] sx sy Ay ctx wtx cgx wgx cty wty cgy wgy sx Ax + 10 -4 roll % [p] sx sy Ay cty wty cgy wgy sx Ax ctx wtx cgx wgx + Mlp1 % [p] sx sy Ay cty wty cgy wgy Ax Bx xok? + 8 index % [p] sx sy Ay cty wty cgy wgy Ax Bx xok? sy + 9 -5 roll % [p] sx sy Ax Bx xok? sy Ay cty wty cgy wgy + Mlp1 % [p] sx sy Ax Bx xok? Ay By yok? + 4 -1 roll % [p] sx sy Ax Bx Ay By yok? xok? + and % [p] sx sy Ax Bx Ay By ok? + { exit } if % [p] sx sy Ax Bx Ay By + 3 -1 roll % [p] sx sy Ax Ay Bx By + pop pop % [p] sx sy Ax Ay + } loop % [p] sx sy Ax Bx Ay By + exch % [p] sx sy Ax Bx By Ay + 3 1 roll % [p] sx sy Ax Ay Bx By + 7 -3 roll % Ax Ay Bx By [p] sx sy + pop pop pop % Ax Ay Bx By +} bind def + + +% Given an array of points in the [gx gy tx ty] form, with the last two +% being [gxlow gylow 0 0] and [gxhigh gyhigh 0 0], and the width and height +% (sx and sy) in which to fit them, compute the maximum scaling (Ax and Ay). +/Mlpfirst { % [pnts] sx sy Mlpfirst Ax Ay + 3 -1 roll % sx sy [pnts] + dup length % sx sy [pnts] #pnts + 2 copy % sx sy [pnts] #pnts [pnts] #pnts + -2 add % sx sy [pnts] #pnts [pnts] #pnts-2 + get % sx sy [pnts] #pnts [gxl gyl 0 0] + aload % sx sy [pnts] #pnts gxl gyl 0 0 [gxl gyl 0 0] + pop pop pop % sx sy [pnts] #pnts gxl gyl + 4 -2 roll % sx sy gxl gyl [pnts] #pnts + -1 add % sx sy gxl gyl [pnts] #pnts-1 + get % sx sy gxl gyl [gxh gyh 0 0] + aload % sx sy gxl gyl gxh gyh 0 0 [gxh gyh 0 0] + pop pop pop % sx sy gxl gyl gxh gyh + 6 -1 roll % sy gxl gyl gxh gyh sx + 3 -1 roll % sy gxl gyl gyh sx gxh + 5 -1 roll % sy gyl gyh sx gxh gxl + sub % sy gyl gyh sx delx + div % sy gyl gyh Ax + 4 1 roll % Ax sy gyl gyh + exch sub % Ax sy dely + div % Ax Ay +} bind def + + +% Given a non-empty array of points to fit ([pnts]) and scale factors +% for graphics->text (Ax and Ay), compute the limiting points. +/Mlprun { % [pnts] Ax Ay Mlprun ctx wtx cgx wgx cty wty cgy wgy + 2 copy % [pnts] Ax Ay Ax Ay + 4 index % [pnts] Ax Ay Ax Ay [pnts] + 0 get % [pnts] Ax Ay Ax Ay [first] + dup % [pnts] Ax Ay Ax Ay [first] [first] + 4 1 roll % [pnts] Ax Ay [first] Ax Ay [first] + Mlprun1 % [pnts] Ax Ay [first] fx fy + 3 copy % [pnts] Ax Ay [low] lx ly [high] hx hy + 8 -2 roll % [pnts] [low] lx ly [high] hx hy Ax Ay + 9 -1 roll % [low] lx ly [high] hx hy Ax Ay [pnts] + { % [low] lx ly [high] hx hy Ax Ay [pnt] + 3 copy % [low] lx ly [high] hx hy Ax Ay [pnt] Ax Ay [pnt] + Mlprun1 % [low] lx ly [high] hx hy Ax Ay [pnt] px py + 3 copy % [low] lx ly [high] hx hy Ax Ay [pnt] px py [pnt] px py + 11 -3 roll % [low] lx ly Ax Ay [pnt] px py [pnt] px py [high] hx hy + /gt Mlpminmax % [low] lx ly Ax Ay [pnt] px py [high] hx hy + 8 3 roll % [low] lx ly [high] hx hy Ax Ay [pnt] px py + 11 -3 roll % [high] hx hy Ax Ay [pnt] px py [low] lx ly + /lt Mlpminmax % [high] hx hy Ax Ay [low] lx ly + 8 3 roll % [low] lx ly [high] hx hy Ax Ay + } forall % [low] lx ly [high] hx hy Ax Ay + pop pop pop pop % [low] lx ly [high] + 3 1 roll % [low] [high] lx ly + pop pop % [low] [high] + aload pop % [low] hgx hgy htx hty + 5 -1 roll % hgx hgy htx hty [low] + aload pop % hgx hgy htx hty lgx lgy ltx lty + exch % hgx hgy htx hty lgx lgy lty ltx + 6 -1 roll % hgx hgy hty lgx lgy lty ltx htx + Mlprun2 % hgx hgy hty lgx lgy lty ctx wtx + 8 2 roll % ctx wtx hgx hgy hty lgx lgy lty + 4 -1 roll % ctx wtx hgx hgy lgx lgy lty hty + Mlprun2 % ctx wtx hgx hgy lgx lgy cty wty + 6 2 roll % ctx wtx cty wty hgx hgy lgx lgy + 3 -1 roll % ctx wtx cty wty hgx lgx lgy hgy + Mlprun2 % ctx wtx cty wty hgx lgx cgy wgy + 4 2 roll % ctx wtx cty wty cgy wgy hgx lgx + exch % ctx wtx cty wty cgy wgy lgx hgx + Mlprun2 % ctx wtx cty wty cgy wgy cgx wgx + 6 2 roll % ctx wtx cgx wgx cty wty cgy wgy +} bind def + + +% Given scale factors for graphics->text (Ax and Ay) and a point in the +% [gx gy tx ty] form, return the text x and y coordinate that results. +/Mlprun1 { % Ax Ay [gx gy tx ty] Mlprun1 rx ry + aload pop % Ax Ay gx gy tx ty + exch % Ax Ay gx gy ty tx + 6 -1 roll % Ay gx gy ty tx Ax + 5 -1 roll % Ay gy ty tx Ax gx + mul add % Ay gy ty rx + 4 -2 roll % ty rx Ay gy + mul % ty rx Ay*gy + 3 -1 roll % rx Ay*gy ty + add % rx ry +} bind def + + +% Given a low and high coordinate, compute the center and width. +/Mlprun2 { % low high Mlprun2 center width + 2 copy % low high low high + add 2 div % low high (low+high)/2 + 3 1 roll % (low+high)/2 low high + exch sub % (low+high)/2 high-low +} bind def + + +% Given two points stored as [gx gy tx ty] followed by the scaled +% result (rx, ry), and a comparison function (lt or gt) leave the +% point which is the minimum (or maximum) in each dimension. +/Mlpminmax { % [pnt1] r1x r1y [pnt2] r2x r2y cmp Mlpminmax [pnt] x y + cvx % [pnt1] r1x r1y [pnt2] r2x r2y cmp + 2 index % [pnt1] r1x r1y [pnt2] r2x r2y cmp r2x + 6 index % [pnt1] r1x r1y [pnt2] r2x r2y cmp r2x r1x + 2 index % [pnt1] r1x r1y [pnt2] r2x r2y cmp r2x r1x cmp + exec % [pnt1] r1x r1y [pnt2] r2x r2y cmp take2? + { % [pnt1] r1x r1y [pnt2] r2x r2y cmp + 7 -3 roll % [pnt2] r2x r2y cmp [pnt1] r1x r1y + 4 -1 roll % [pnt2] r2x r2y [pnt1] r1x r1y cmp + } if % [pnt1] r1x r1y [pnt2] r2x r2y cmp + 1 index % [pnt1] r1x r1y [pnt2] r2x r2y cmp r2y + 5 index % [pnt1] r1x r1y [pnt2] r2x r2y cmp r2y r1y + 3 -1 roll % [pnt1] r1x r1y [pnt2] r2x r2y r2y r1y cmp + exec % [pnt1] r1x r1y [pnt2] r2x r2y take2y? + { % [gx ? tx ?] rx ? [? gy ? ty] ? ry + 4 1 roll % [gx ? tx ?] rx ry ? [? gy ? ty] ? + pop % [gx ? tx ?] rx ry ? [? gy ? ty] + 5 -1 roll % rx ry ? [? gy ? ty] [gx ? tx ?] + aload % rx ry ? [? gy ? ty] gx ? tx ? [gx ? tx ?] + pop pop % rx ry ? [? gy ? ty] gx ? tx + 4 -1 roll % rx ry ? gx ? tx [? gy ? ty] + aload pop % rx ry ? gx ? tx ? gy ? ty + [ % rx ry ? gx ? tx ? gy ? ty mark + 8 -2 roll % rx ry ? tx ? gy ? ty mark gx ? + pop % rx ry ? tx ? gy ? ty mark gx + 5 -2 roll % rx ry ? tx ? ty mark gx gy ? + pop % rx ry ? tx ? ty mark gx gy + 6 -2 roll % rx ry ? ty mark gx gy tx ? + pop % rx ry ? ty mark gx gy tx + 5 -1 roll % rx ry ? mark gx gy tx ty + ] % rx ry ? [pnt] + 4 1 roll % [pnt] rx ry ? + pop % [pnt] rx ry + } + { % [gx gy tx ty] rx ry ? ? ? + pop pop pop % [pnt] rx ry + } ifelse % [pnt] rx ry +} bind def + + +% Given a size (s), graphics->text scale (A), text center (ct), text +% width (wt), graphics center (cg) and graphics width (wg), compute +% a new graphics->text scale (Anew) and offset (B) and whether or not +% we are done. +% Note, the mysterious .99999 is magic juju which is supposed to ward +% off the possibility that floating point errors would cause this +% routine to return the old A and yet claim not-done. +/Mlp1 { % s A ct wt cg wg Mlp1 Anew B done? + 5 index % s A ct wt cg wg s + 3 index sub % s A ct wt cg wg s-wt + 5 index % s A ct wg cg wg s-wt A + 2 index mul % s A ct wg cg wg s-wt A*wg + 1 index % s A ct wg cg wg s-wt A*wg s-wt + le % s A ct wg cg wg s-wt fits? + 1 index % s A ct wg cg wg s-wt fits? s-wt + 0 le % s A ct wg cg wg s-wt fits? impossible? + or % s A ct wg cg wg s-wt done? + dup % s A ct wg cg wg s-wt done? done? + not % s A ct wg cg wg s-wt done? notdone? + { % s A ct wg cg wg s-wt done? (not done case) + 1 index % s A ct wg cg wg s-wt done? s-wt + 3 index div % s A ct wg cg wg s-wt done? (s-wt)/wg + .99999 mul % s A ct wg cg wg s-wt done? Anew + 8 -1 roll % s ct wg cg wg s-wt done? Anew A + pop % s ct wg cg wg s-wt done? Anew + 7 1 roll % s Anew ct wg cg wg s-wt done? + } + if % s Anew ct wg cg wg s-wt done? + 8 -1 roll % Anew ct wg cg wg s-wt done? s + 2 div % Anew ct wg cg wg s-wt done? s/2 + 7 -2 roll % Anew cg wg s-wt done? s/2 ct wg + pop sub % Anew cg wg s-wt done? s/2-ct + 5 index % Anew cg wg s-wt done? s/2-ct Anew + 6 -3 roll % Anew done? s/2-ct Anew cg wg s-wt + pop pop % Anew done? s/2-ct Anew cg + mul sub % Anew done? s/2-ct-Anew*cg + exch % Anew B done? +} bind def + + +% The following are the workings of the tick, axes and plot labels. +% NOTE a possible source of confusion is that for xticks ie tickmarks on +% the x axis we keep y information and vice versa for yticks +% +% When Minner is found then +% +% assumes that box starts at zero on the left lower side +% +% 0) if outflag = 1 then intop = 0, inrht = 0 outflag = 0 +% 1) Save intop largest top of box +% 2) Save inrht largest rht of box +% 3) set inflag notifies that inner marks are present +% +% When Mouter is found then +% +% if inflag is set then +% 1) get vecx and vecy off the stack (points in direcn to move) +% 2) vecx < 1 xadrht = inrht*abs(vecx) +% 3) vecx > 1 xadlft = inrht*abs(vecx) +% 4) vecy < 1 yadtop = intop*abs(vecy) +% 5) vecy > 1 yadbot = intop*abs(vecy) +% 6) set outflag = 1 +% 7) clear inflag, inrht, intop +% guaranteed to be zero if no inner is present?? +% +% +% These all have effects in Mrotsboxa and Mrotshowa +% check inflag and if set +% +% 1) increase top of bbox by yadtop +% 2) decrease bot of bbox by yadbot +% 3) increase rht of bbox by xadrht +% 4) increase lft of bbox by xadlft +% 5) clear outflag, yadtop, yadbot, +% xadrht, xadlft +% +%/ + +/intop 0 def +/inrht 0 def +/inflag 0 def +/outflag 0 def +/xadrht 0 def +/xadlft 0 def +/yadtop 0 def +/yadbot 0 def + +% This saves the top right corner of the bounding box as a side effect +% This is to allow the adjustment of text placed with Mouter so that +% it misses the Minner text. It is assumed that the ang is 0 +% in the same way it is assumed that the text of Mouter is 0 or 90 +% +/Minner { % [(str)] gx gy sx sy ang Minner [(str)] gx gy sx sy ang + outflag % do a bit of tidying up if necessary + 1 + eq + { + /outflag 0 def + /intop 0 def + /inrht 0 def + } if + 5 index % [(str)] gx gy sx sy ang [(str)] + gsave + Mtmatrix setmatrix + Mvboxa pop % [(str)] gx gy sx sy ang xlow ylow xhigh yhigh + grestore + 3 -1 roll % [(str)] gx gy sx sy ang xlow xhigh yhigh ylow + pop % [(str)] gx gy sx sy ang xlow xhigh yhigh + dup % [(str)] gx gy sx sy ang xlow xhigh yhigh yhigh + intop % is intop smaller than yhigh ? + gt + { + /intop % update if it is + exch def + } + { pop } % pop if it is not + ifelse % [(str)] gx gy sx sy ang xlow xhigh + dup % [(str)] gx gy sx sy ang xlow xhigh xhigh + inrht % is inrht smaller than xhigh + gt + { + /inrht % update if it is + exch def + } + { pop } % pop if it is no + ifelse % [(str)] gx gy sx sy ang xlow + pop % [(str)] gx gy sx sy ang + /inflag % set the inflag + 1 def +} bind def + +% This takes two number off the stack and uses them as a vector in graphics +% coordinates which points in the direction in which the Mouter text is to move +% it calculates the bouding box adjustments yadtop yadbot xadrht and xadlft +% these are in Mboxout to adjust the bounding box to compensate. +/Mouter { % vecx vecy Mouter .. + /xadrht 0 def % reset everything + /xadlft 0 def + /yadtop 0 def + /yadbot 0 def + inflag % was there an inflag ? + 1 eq + { + dup % vecx vecy vecy + 0 lt + { + dup % vecx vecy vecy + intop % vecx vecy vecy intop + mul + neg % vecx vecy -vecy*intop + /yadtop % make into yadtop + exch def % vecx vecy + } if + dup % vecx vecy vecy + 0 gt + { + dup % vecx vecy vecy + intop % vecx vecy vecy intop + mul % vecx vecy vecy*intop + /yadbot % make into yadbot + exch def % vecx vecy + } + if + pop % vecx + dup % vecx vecx + 0 lt + { + dup % vecx vecx + inrht % vecx vecx inrht + mul + neg % vecx -vecx*inrht + /xadrht % make into xadrht + exch def % vecx + } if + dup % vecx vecx + 0 gt + { + dup % vecx vecx + inrht % vecx vecx inrht + mul % vecx vecx*inrht + /xadlft % make into xadlft + exch def + } if + pop % + /outflag 1 def % set outflag + } + { pop pop} % + ifelse + /inflag 0 def + /inrht 0 def + /intop 0 def +} bind def + +% +% This adjusts the bounding box to account for adjacent text +% This allows the two text strings to avoid each other +% current matrix is the text matrix +/Mboxout { % tlx tly thx thy Mboxout new_tlx new_tly new_thx new_thy + outflag % do nothing unless Minner was found + 1 + eq + { + 4 -1 + roll % tly thx thy tlx + xadlft + leadjust + add % tly thx thy tlx xadlft+lead + sub % tly thx thy tlx_new + 4 1 roll % tlx_new tly thx thy + 3 -1 + roll % tlx_new thx thy tly + yadbot % tlx_new thx thy tly yadbot + leadjust % tlx_new thx thy tly yadbot lead + add % tlx_new thx thy tly yadbot+lead + sub % tlx_new thx thy tly_new + 3 1 + roll % tlx_new tly_new thx thy + exch % tlx_new tly_new thy thx + xadrht % tlx_new tly_new thy thx xadrht + leadjust % tlx_new tly_new thy thx xadrht lead + add % tlx_new tly_new thy thx xadrht+lead + add % tlx_new tly_new thy thx_new + exch % tlx_new tly_new thx_new thy + yadtop % tlx_new tly_new thx_new thy yadtop + leadjust % tlx_new tly_new thx_new thy yadtop lead + add % tlx_new tly_new thx_new thy yadtop+lead + add % tlx_new tly_new thx_new thy_new + /outflag 0 def % reset everything to 0 + /xadlft 0 def + /yadbot 0 def + /xadrht 0 def + /yadtop 0 def + } if +} bind def + + +/leadjust { + (m) stringwidth pop + .5 mul +} bind def + + +% The offsets sx and sy refer to the graphics coordinate system +% thus they must be altered if a rotation has taken place. +% We must also change the bounding box computations for Minner +% +/Mrotcheck { % sx sy ang Mrotcheck new_sx new_sy ang + dup + 90 + eq + { +% +% Mouter only applies to strings which are either at 0 or 90 +% sort out the box adjust factors +% +% xadrht -> yadbot +% xadlft -> yadtop +% yadtop -> xadrht +% yadbot -> xadlft + yadbot + /yadbot + xadrht + def + /xadrht + yadtop + def + /yadtop + xadlft + def + /xadlft + exch + def + } + if + dup % sx sy ang ang + cos % sx sy ang Cos + 1 index % sx sy ang Cos ang + sin % sx sy ang Cos Sin + Checkaux % new_sx sx sy ang + dup % new_sx sx sy ang ang + cos % new_sx sx sy ang Cos + 1 index % new_sx sx sy ang Cos ang + sin neg % new_sx sx sy ang Cos -Sin + exch % new_sx sx sy ang -Sin Cos + Checkaux % new_sx new_sy sx sy ang + 3 1 roll % new_sx new_sy ang sx sy + pop pop % new_sx new_sy ang +} bind def + +% +% Checkaux is an auxilliary function for Mrotcheck it multiplies a +% row vector by a column vector +% +/Checkaux { % r1 r2 dumy c1 c2 Checkaux r1 r2 dumy r1*c1+r2*c2 + 4 index % r1 r2 dumy c1 c2 r1 + exch % r1 r2 dumy c1 r1 c2 + 4 index % r1 r2 dumy c1 r1 c2 r2 + mul % r1 r2 dumy c1 r1 c2*r2 + 3 1 roll % r1 r2 dumy c2*r2 c1 r1 + mul add % r1 r2 dumy c2*r2+c1*r1 + 4 1 roll % c2*r2+c1*r1 r1 r2 dumy +} bind def + +% +% Mboxrot converts the bounding box back from the rotated coordinate +% system to the Mgmatrix system to compensate for a rotation +% It has the opposite functionality of Mrotcheck +% This is not the most neatest or most efficient implementation but it works +% +/Mboxrot { % tlx thx tly thy Mboxrot new_tlx new_thx new_tly new_thy + Mrot + 90 eq + { +% old tlx thx tly thy +% new -thy -tly tlx thx +% + brotaux % tlx thx -thy -tly + 4 2 + roll % -thy -tly tlx thx + } + if + Mrot + 180 eq + { +% old tlx thx tly thy +% new -thx -tlx -thx -tly +% + 4 2 + roll % tly thy tlx thx + brotaux % tly thy -thx -tlx + 4 2 + roll % -thx -tlx tlx thy + brotaux % -thx -tlx -thy -tly + } + if + Mrot + 270 eq + { +% old tlx thx tly thy +% new tly thy -thx -tlx +% + 4 2 + roll % tly thy tlx thx + brotaux % tly thy -thx -tlx + } + if +} bind def + +% +% auxilliary function negate and reverse +/brotaux { % x y boxrotaux -y -x + neg + exch + neg +} bind def + +% +% Mabsproc takes a measurement in the default user units and converts +% it to the present units. This allows absolute thickness and dashing +% to work. It works by using a {0, x} vector and using the RMS of the result. +/Mabsproc { % abs thing Mabsproc + 0 + matrix defaultmatrix + dtransform idtransform + dup mul exch + dup mul + add sqrt +} bind def + +% +% Mabswid allows the linewidth to be specified in absolute coordinates +% It does this by recording the graphics transformation matrix at the +% begining of the plot. +% This will break if the scaling in the x and y directions is +% different. This is the case if Mnodistort is false +% +/Mabswid { %abswid Mabswid + Mabsproc + setlinewidth +} bind def + +% Mabsdash allows the dashing pattern to be specified in absolute coordinates +% It does this by recording the graphics transformation matrix at the +% begining of the plot. +% This will break if the scaling in the x and y directions is +% different. This is the case if Mnodistort is false +% +/Mabsdash { %[d1 d2 d3 .. ] off Mabsdash + exch % off [d1 d2 d3 ..] + [ % off [d1 d2 d3 ..] + exch % off [ [d1 d2 d3 ..] + { + Mabsproc + } + forall + ] % off [ fact*d1 fact*d2 fact*d3 .. ] + exch % [ nd1 nd2 nd3 .. ] off + setdash +} bind def + +%MBeginOrig start coordinates in user coordinates +/MBeginOrig { Momatrix concat} bind def + +%MEndOrig start coordinates in user coordinates +/MEndOrig { Mgmatrix setmatrix} bind def + +/sampledsound where +{ pop} +{ /sampledsound { % str rate nsamp bs proc bool nchan + exch + pop % str rate nsamp bs proc nchan + exch % str rate nsamp bs nchan proc + 5 1 roll % str proc rate nsamp bs nchan + mul + 4 idiv % str proc rate nsamp bs*nchan/4 + mul % str proc rate nsamp*bs*nchan/4 + 2 idiv % str proc rate nbytes + exch pop % str proc nbytes + exch % str nbytes proc + /Mtempproc exch def + { Mtempproc pop} + repeat + } bind def +} ifelse + +% +% now simple conversion of cmykcolor to rgbcolor +% subtract k and then take complements +/setcmykcolor where +{ pop} +{ /setcmykcolor { % c m y k + 4 1 + roll % k c m y + [ % k c m y [ + 4 1 + roll % k [ c m y + ] % k [ c m y ] + { + 1 index % k elem k + sub % k elem-k + 1 + sub neg % k 1-(elem-k) + dup + 0 + lt + { + pop + 0 + } + if + dup + 1 + gt + { + pop + 1 + } + if + exch % 1-(elem-k) k + } forall % r g b k + pop + setrgbcolor +} bind def +} ifelse + +/Mcharproc % max +{ + currentfile + (x) + readhexstring + pop % max val + 0 get + exch % val max + div % nval +} bind def + +/Mshadeproc % max ncols +{ + dup % max ncols ncols + 3 1 + roll % ncols max ncols + { % ncols max + dup % ncols max max + Mcharproc % ncols max val + 3 1 + roll % v1.. ncols max + } repeat + 1 eq + { + setgray + } + { + 3 eq + { + setrgbcolor + } + { + setcmykcolor + } ifelse + } ifelse +} bind def + +/Mrectproc % x0 x1 y0 y1 +{ + 3 index % x0 x1 y0 y1 x0 + 2 index % x0 x1 y0 y1 x0 y0 + moveto % x0 x1 y0 y1 + 2 index % x0 x1 y0 y1 x1 + 3 -1 + roll % x0 x1 y1 x1 y0 + lineto % x0 x1 y1 + dup % x0 x1 y1 y1 + 3 1 + roll % x0 y1 x1 y1 + lineto % x0 y1 + lineto + fill +} bind def + +/Mcolorimage % nx ny depth matrix proc bool ncols +{ + 7 1 + roll % ncols nx ny depth matrix proc bool + pop + pop + matrix + invertmatrix + concat % ncols nx ny depth + 2 exch exp % ncols nx ny 2^depth + 1 sub % ncols nx ny max + 3 1 roll % ncols max nx ny + 1 1 % ncols max nx ny 1 1 + 2 index % ncols max nx ny 1 1 ny + { % ncols max nx ny iy + 1 1 % ncols max nx ny iy 1 1 + 4 index % ncols max nx ny iy 1 1 nx + { % ncols max nx ny iy ix + dup % ncols max nx ny iy ix ix + 1 sub % ncols max nx ny iy ix x0 + exch % ncols max nx ny iy x0 x1 + 2 index % ncols max nx ny iy x0 x1 iy + dup % ncols max nx ny iy x0 x1 iy iy + 1 sub % ncols max nx ny iy x0 x1 iy y0 + exch % ncols max nx ny iy x0 x1 y0 y1 + 7 index % ncols max nx ny iy x0 x1 y0 y1 max + 9 index % ncols max nx ny iy x0 x1 y0 y1 max ncols + Mshadeproc % ncols max nx ny iy x0 x1 y0 y1 + Mrectproc % max nx ny iy + } for % x loop + pop % max nx ny + } for % y loop + pop pop pop pop +} bind def + +/Mimage % nx ny depth matrix proc +{ + pop + matrix + invertmatrix + concat % nx ny depth + 2 exch exp % nx ny 2^depth + 1 sub % nx ny max + 3 1 roll % max nx ny + 1 1 % max nx ny 1 1 + 2 index % max nx ny 1 1 ny + { % max nx ny iy + 1 1 % max nx ny iy 1 1 + 4 index % max nx ny iy 1 1 nx + { % max nx ny iy ix + dup % max nx ny iy ix ix + 1 sub % max nx ny iy ix x0 + exch % max nx ny iy x0 x1 + 2 index % max nx ny iy x0 x1 iy + dup % max nx ny iy x0 x1 iy iy + 1 sub % max nx ny iy x0 x1 iy y0 + exch % max nx ny iy x0 x1 y0 y1 + 7 index % max nx ny iy x0 x1 y0 y1 max + Mcharproc % max nx ny iy x0 x1 y0 y1 val + setgray % max nx ny iy x0 x1 y0 y1 + Mrectproc % max nx ny iy + } for % x loop + pop % max nx ny + } for % y loop + pop pop pop +} bind def + +/Ma /Mabswid load def +/a /arc load def +/c /curveto load def +/C /curveto load def +/d /setdash load def +/f /fill load def +/F /fill load def +/g /setgray load def +/gr /grestore load def +/gs /gsave load def +/k /stroke load def +/l /lineto load def +/L /lineto load def +/lw /setlinewidth load def +/m /moveto load def +/n /newpath load def +/p /gsave load def +/P /grestore load def +/r /setrgbcolor load def +/s /stroke load def +/w /setlinewidth load def +/beginmath /MBeginOrig load def +/endmath /MEndOrig load def + +end |