aboutsummaryrefslogtreecommitdiffstats
path: root/doc/user/user.ps
diff options
context:
space:
mode:
authorJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 20:37:12 +0000
committerJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 20:37:12 +0000
commita9f9ae0efa326dc2edc7f2d92ce270f5fdc15b60 (patch)
tree3f21ea75ffbd40fcd53bf1609782763af3953002 /doc/user/user.ps
parent162643f981292504f375a7f834d408a4a0fa7f46 (diff)
downloadlout-a9f9ae0efa326dc2edc7f2d92ce270f5fdc15b60.tar.gz
Lout 3.23.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@15 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'doc/user/user.ps')
-rw-r--r--doc/user/user.ps7070
1 files changed, 0 insertions, 7070 deletions
diff --git a/doc/user/user.ps b/doc/user/user.ps
deleted file mode 100644
index 9cbcb3d..0000000
--- a/doc/user/user.ps
+++ /dev/null
@@ -1,7070 +0,0 @@
-%!PS-Adobe-3.0
-%%Creator: Basser Lout Version 3.20 (April 2000)
-%%CreationDate: Mon Apr 24 13:08:28 2000
-%%DocumentData: Binary
-%%DocumentNeededResources: (atend)
-%%DocumentSuppliedResources: (atend)
-%%DocumentMedia: A4 595 842 0 white ()
-%%PageOrder: Ascend
-%%Pages: (atend)
-%%BoundingBox: 0 0 595 842
-%%EndComments
-
-%%BeginProlog
-%%BeginResource: procset LoutStartUp
-/m { 3 1 roll moveto show } bind def
-/mo { 3 1 roll moveto true charpath stroke } bind def
-/s { exch currentpoint exch pop moveto show } bind def
-/so { exch currentpoint exch pop moveto true charpath stroke } bind def
-/k { exch neg 0 rmoveto show } bind def
-/ko { exch neg 0 rmoveto true charpath stroke } bind def
-/ul { gsave setlinewidth dup 3 1 roll
- moveto lineto stroke grestore } bind def
-/in { 1440 mul } def
-/cm { 567 mul } def
-/pt { 20 mul } def
-/em { 120 mul } def
-/sp { louts mul } def
-/vs { loutv mul } def
-/ft { loutf mul } def
-/dg { } def
-
-/LoutGraphic {
- /louts exch def
- /loutv exch def
- /loutf exch def
- /ymark exch def
- /xmark exch def
- /ysize exch def
- /xsize exch def
-} def
-
-/LoutGr2 { gsave translate LoutGraphic gsave } def
-
-/LoutFont
-{ findfont exch scalefont setfont
-} bind def
-
-/LoutRecode {
- { findfont dup length dict begin
- {1 index /FID ne {def} {pop pop} ifelse} forall
- /Encoding exch def
- currentdict end definefont pop
- }
- stopped pop
-} bind def
-
-/BeginEPSF {
- /LoutEPSFState save def
- /dict_count countdictstack def
- /op_count count 1 sub def
- userdict begin
- /showpage { } def
- 0 setgray 0 setlinecap
- 1 setlinewidth 0 setlinejoin
- 10 setmiterlimit [] 0 setdash newpath
- /languagelevel where
- { pop languagelevel
- 1 ne
- { false setstrokeadjust false setoverprint
- } if
- } if
-} bind def
-
-/EndEPSF {
- count op_count sub { pop } repeat
- countdictstack dict_count sub { end } repeat
- LoutEPSFState restore
-} bind def
-%%EndResource
-
-%%BeginResource: encoding vec2
-/vec2 [
-/.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 /hyphen /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
-/quotesinglbase /quotedblbase /ellipsis /OE /oe /quotedblleft /quotedblright /fi
-/fl /endash /emdash /bullet /dagger /daggerdbl /florin /fraction
-/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
-%%EndResource
-
-%%BeginResource: procset LoutTabPrependGraphic
-% @PrependGraphic file /export/home/6monthspace/jeff/lout.lib/include/tabf.lpg
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% PostScript @SysPrependGraphic file for @Tab %
-% %
-% To assist in avoiding name clashes, the names %
-% of all these symbols begin with "ltab". %
-% %
-% Jeffrey H. Kingston %
-% 24 September 1991 %
-% 22 December 1992 %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-% linewidth ltabhs -
-% horizontal single line
-/ltabhs
-{ 0 0 moveto xsize 0 lineto
- setlinewidth 0 setlinecap stroke
-} def
-
-% linewidth ltabhsp -
-% horizontal single line with projecting ends
-/ltabhsp
-{ 0 0 moveto xsize 0 lineto
- setlinewidth 2 setlinecap stroke
-} def
-
-% linewidth ltabhd -
-% horizontal double line
-/ltabhd
-{ dup dup
- 0 0 moveto xsize 0 lineto
- 0 exch 3 mul moveto xsize exch 3 mul lineto
- setlinewidth 0 setlinecap stroke
-} def
-
-% linewidth ltabhdb -
-% horizontal double line below mark
-/ltabhdb
-{ dup dup
- 0 0 moveto xsize 0 lineto
- 0 exch -3 mul moveto xsize exch -3 mul lineto
- setlinewidth 0 setlinecap stroke
-} def
-
-% linewidth ltabhdnw -
-% horizontal double line with northwest corner
-/ltabhdnw
-{ dup dup dup dup
- 0 0 moveto xsize 0 lineto
- xsize exch 3 mul moveto
- -3 mul exch 3 mul lineto
- -3 mul 0 lineto
- setlinewidth 0 setlinejoin 2 setlinecap stroke
-} def
-
-% linewidth ltabhdne -
-% horizontal double line with northeast corner
-/ltabhdne
-{ dup dup dup dup
- 0 0 moveto xsize 0 lineto
- 0 exch 3 mul moveto
- 3 mul xsize add exch 3 mul lineto
- 3 mul xsize add 0 lineto
- setlinewidth 0 setlinejoin 2 setlinecap stroke
-} def
-
-% linewidth ltabhdsw -
-% horizontal double line with southwest corner
-/ltabhdsw
-{ dup dup dup dup
- 0 0 moveto xsize 0 lineto
- xsize exch -3 mul moveto
- -3 mul exch -3 mul lineto
- -3 mul 0 lineto
- setlinewidth 0 setlinejoin 2 setlinecap stroke
-} def
-
-% linewidth ltabhdse -
-% horizontal double line with southeast corner
-/ltabhdse
-{ dup dup dup dup
- 0 0 moveto xsize 0 lineto
- 0 exch -3 mul moveto
- 3 mul xsize add exch -3 mul lineto
- 3 mul xsize add 0 lineto
- setlinewidth 0 setlinejoin 2 setlinecap stroke
-} def
-
-% linewidth ltabvs -
-% vertical single line
-/ltabvs
-{ 0 0 moveto 0 ysize lineto
- setlinewidth 0 setlinecap stroke
-} def
-
-% linewidth ltabvd -
-% vertical double line
-/ltabvd
-{ dup dup
- 0 0 moveto 0 ysize lineto
- -3 mul 0 moveto -3 mul ysize lineto
- setlinewidth 0 setlinecap stroke
-} def
-
-% linewidth ltabvdr -
-% vertical double line to right of mark
-/ltabvdr
-{ dup dup
- 0 0 moveto 0 ysize lineto
- 3 mul 0 moveto 3 mul ysize lineto
- setlinewidth 0 setlinecap stroke
-} def
-%%EndResource
-
-%%BeginResource: procset LoutTblPrependGraphic
-% @PrependGraphic file /export/home/6monthspace/jeff/lout.lib/include/tblf.lpg
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% PostScript @SysPrependGraphic file for @Tbl Jeffrey H. Kingston %
-% Version 1.0 June 1998 %
-% %
-% To assist in avoiding name clashes, the names of all symbols %
-% defined here begin with "ltbl". %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-% painting (i.e. filling): - ltblwhite - (etc.)
-/ltblnopaint { } def
-/ltblnochange { fill } def
-/ltbldarkblue { 0.0 0.0 0.5 setrgbcolor fill } def
-/ltblblue { 0.0 0.0 1.0 setrgbcolor fill } def
-/ltbllightblue { 0.5 0.5 1.0 setrgbcolor fill } def
-/ltbldarkgreen { 0.0 0.5 0.0 setrgbcolor fill } def
-/ltblgreen { 0.0 1.0 0.0 setrgbcolor fill } def
-/ltbllightgreen { 0.5 1.0 0.5 setrgbcolor fill } def
-/ltbldarkred { 0.5 0.0 0.0 setrgbcolor fill } def
-/ltblred { 1.0 0.0 0.0 setrgbcolor fill } def
-/ltbllightred { 1.0 0.5 0.5 setrgbcolor fill } def
-/ltbldarkcyan { 0.0 0.5 0.5 setrgbcolor fill } def
-/ltblcyan { 0.0 1.0 1.0 setrgbcolor fill } def
-/ltbllightcyan { 0.5 1.0 1.0 setrgbcolor fill } def
-/ltbldarkmagenta { 0.5 0.0 0.5 setrgbcolor fill } def
-/ltblmagenta { 1.0 0.0 1.0 setrgbcolor fill } def
-/ltbllightmagenta { 1.0 0.5 1.0 setrgbcolor fill } def
-/ltbldarkyellow { 0.5 0.5 0.0 setrgbcolor fill } def
-/ltblyellow { 1.0 1.0 0.0 setrgbcolor fill } def
-/ltbllightyellow { 1.0 1.0 0.5 setrgbcolor fill } def
-/ltbldarkgray { 0.2 0.2 0.2 setrgbcolor fill } def
-/ltblgray { 0.5 0.5 0.5 setrgbcolor fill } def
-/ltbllightgray { 0.8 0.8 0.8 setrgbcolor fill } def
-/ltbldarkgrey { 0.2 0.2 0.2 setrgbcolor fill } def
-/ltblgrey { 0.5 0.5 0.5 setrgbcolor fill } def
-/ltbllightgrey { 0.8 0.8 0.8 setrgbcolor fill } def
-/ltblblack { 0.0 0.0 0.0 setrgbcolor fill } def
-/ltblwhite { 1.0 1.0 1.0 setrgbcolor fill } def
-%%EndResource
-
-%%BeginResource: procset LoutFigPrependGraphic
-% @PrependGraphic file /export/home/6monthspace/jeff/lout.lib/include/figf.lpg
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% PostScript @SysPrependGraphic file for @Fig Jeffrey H. Kingston %
-% Version 2.0 (includes CIRCUM label) January 1992 %
-% %
-% To assist in avoiding name clashes, the names of all symbols %
-% defined here begin with "lfig". However, this is not feasible %
-% with user-defined labels and some labels used by users. %
-% %
-% <point> is two numbers, a point. %
-% <length> is one number, a length %
-% <angle> is one number, an angle in degrees %
-% <dashlength> is one number, the preferred length of a dash %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-errordict begin
- /handleerror
- {
- { /Times-Roman findfont 8 pt scalefont setfont
- 0 setgray 4 pt 4 pt moveto
- $error /errorname get
- dup lfigdict exch known
- { lfigdict exch get }
- { 30 string cvs } ifelse
- show
- ( Command: ) show
- $error /command get 30 string cvs show
- } stopped {} if
- showpage stop
- } def
-end
-
-% concat strings: <string> <string> lfigconcat <string>
-% must be defined outside lfigdict since used in lfigpromotelabels
-/lfigconcat
-{ 2 copy length exch length add string
- dup 0 4 index putinterval
- dup 3 index length 3 index putinterval
- 3 1 roll pop pop
-} def
-
-% <string> lfigdebugprint -
-% must be defined outside lfigdict since used in arbitrary places
-% /lfigdebugprint
-% { print
-% (; operand stack:\n) print
-% count copy
-% count 2 idiv
-% { ==
-% (\n) print
-% } repeat
-% (\n) print
-% } def
-
-/lfigdict 120 dict def
-lfigdict begin
-
-% error messages
-/dictfull (dictfull error: too many labels?) def
-/dictstackoverflow (dictstackoverflow error: labels nested too deeply?) def
-/execstackoverflow (execstackoverflow error: figure nested too deeply?) def
-/limitcheck (limitcheck error: figure nested too deeply or too large?) def
-/syntaxerror (syntaxerror error: syntax error in text of figure?) def
-/typecheck (typecheck error: syntax error in text of figure?) def
-/undefined (undefined error: unknown or misspelt label?) def
-/VMError (VMError error: run out of memory?) def
-
-% push pi onto stack: - lfigpi <num>
-/lfigpi 3.14159 def
-
-% arc directions
-/clockwise false def
-/anticlockwise true def
-
-% maximum of two numbers: <num> <num> lfigmax <num>
-/lfigmax { 2 copy gt { pop } { exch pop } ifelse } def
-
-% minimum of two numbers: <num> <num> lfigmin <num>
-/lfigmin { 2 copy lt { pop } { exch pop } ifelse } def
-
-% add two points: <point> <point> lfigpadd <point>
-/lfigpadd { exch 3 1 roll add 3 1 roll add exch } def
-
-% subtract first point from second: <point> <point> lfigpsub <point>
-/lfigpsub { 3 2 roll sub 3 1 roll exch sub exch } def
-
-% max two points: <point> <point> lfigpmax <point>
-/lfigpmax { exch 3 1 roll lfigmax 3 1 roll lfigmax exch } def
-
-% min two points: <point> <point> lfigpmin <point>
-/lfigpmin { exch 3 1 roll lfigmin 3 1 roll lfigmin exch } def
-
-% scalar multiplication: <point> <num> lfigpmul <point>
-/lfigpmul { dup 3 1 roll mul 3 1 roll mul exch } def
-
-% point at angle and distance: <point> <length> <angle> lfigatangle <point>
-/lfigatangle { 2 copy cos mul 3 1 roll sin mul lfigpadd } def
-
-% angle from one point to another: <point> <point> lfigangle <angle>
-/lfigangle { lfigpsub 2 copy 0 eq exch 0 eq and {pop} {exch atan} ifelse } def
-
-% distance between two points: <point> <point> lfigdistance <length>
-/lfigdistance { lfigpsub dup mul exch dup mul add sqrt } def
-
-% difference in x coords: <point> <point> lfigxdistance <length>
-/lfigxdistance { pop 3 1 roll pop sub } def
-
-%difference in y coords: <point> <point> lfigydistance <length>
-/lfigydistance { 3 1 roll pop sub exch pop } def
-
-% stroke a solid line: <length> <dashlength> lfigsolid -
-/lfigsolid
-{ pop pop [] 0 setdash stroke
-} def
-
-% stroke a lfigdashed line: <length> <dashlength> lfigdashed -
-/lfigdashed
-{ 2 copy div 2 le 1 index 0 le or
- { exch pop 1 pt lfigmax [ exch dup ] 0 setdash }
- { dup [ exch 4 2 roll 2 copy div
- 1 sub 2 div ceiling dup 4 1 roll
- 1 add mul sub exch div ] 0 setdash
- } ifelse stroke
-} def
-
-% stroke a lfigcdashed line: <length> <dashlength> lfigcdashed -
-/lfigcdashed
-{ 2 copy le 1 index 0 le or
- { exch pop 1 pt lfigmax [ exch dup ] dup 0 get 2 div setdash }
- { dup [ 4 2 roll exch 2 copy exch div
- 2 div ceiling div 1 index sub
- ] exch 2 div setdash
- } ifelse stroke
-} def
-
-% stroke a dotted line: <length> <dashlength> lfigdotted -
-/lfigdotted
-{ 2 copy le 1 index 0 le or
- { exch pop 1 pt lfigmax [ exch 0 exch ] 0 setdash }
- { 1 index exch div ceiling div
- [ 0 3 2 roll ] 0 setdash
- } ifelse stroke
-} def
-
-% stroke a noline line: <length> <dashlength> lfignoline -
-/lfignoline
-{ pop pop
-} def
-
-% painting (i.e. filling): - lfigwhite - (etc.)
-/lfignopaint { } def
-/lfignochange { fill } def
-/lfigdarkblue { 0.0 0.0 0.5 setrgbcolor fill } def
-/lfigblue { 0.0 0.0 1.0 setrgbcolor fill } def
-/lfiglightblue { 0.5 0.5 1.0 setrgbcolor fill } def
-/lfigdarkgreen { 0.0 0.5 0.0 setrgbcolor fill } def
-/lfiggreen { 0.0 1.0 0.0 setrgbcolor fill } def
-/lfiglightgreen { 0.5 1.0 0.5 setrgbcolor fill } def
-/lfigdarkred { 0.5 0.0 0.0 setrgbcolor fill } def
-/lfigred { 1.0 0.0 0.0 setrgbcolor fill } def
-/lfiglightred { 1.0 0.5 0.5 setrgbcolor fill } def
-/lfigdarkcyan { 0.0 0.5 0.5 setrgbcolor fill } def
-/lfigcyan { 0.0 1.0 1.0 setrgbcolor fill } def
-/lfiglightcyan { 0.5 1.0 1.0 setrgbcolor fill } def
-/lfigdarkmagenta { 0.5 0.0 0.5 setrgbcolor fill } def
-/lfigmagenta { 1.0 0.0 1.0 setrgbcolor fill } def
-/lfiglightmagenta { 1.0 0.5 1.0 setrgbcolor fill } def
-/lfigdarkyellow { 0.5 0.5 0.0 setrgbcolor fill } def
-/lfigyellow { 1.0 1.0 0.0 setrgbcolor fill } def
-/lfiglightyellow { 1.0 1.0 0.5 setrgbcolor fill } def
-/lfigdarkgray { 0.2 0.2 0.2 setrgbcolor fill } def
-/lfiggray { 0.5 0.5 0.5 setrgbcolor fill } def
-/lfiglightgray { 0.8 0.8 0.8 setrgbcolor fill } def
-/lfigdarkgrey { 0.2 0.2 0.2 setrgbcolor fill } def
-/lfiggrey { 0.5 0.5 0.5 setrgbcolor fill } def
-/lfiglightgrey { 0.8 0.8 0.8 setrgbcolor fill } def
-/lfigblack { 0.0 0.0 0.0 setrgbcolor fill } def
-/lfigwhite { 1.0 1.0 1.0 setrgbcolor fill } def
-
-% line caps (and joins, not currently used)
-/lfigbutt 0 def
-/lfiground 1 def
-/lfigprojecting 2 def
-/lfigmiter 0 def
-/lfigbevel 2 def
-
-% shape and labels of the @Box symbol
-/lfigbox
-{
- 0 0 /SW lfigpointdef
- xsize 0 /SE lfigpointdef
- xsize ysize /NE lfigpointdef
- 0 ysize /NW lfigpointdef
- SE 0.5 lfigpmul /S lfigpointdef
- NW 0.5 lfigpmul /W lfigpointdef
- W SE lfigpadd /E lfigpointdef
- S NW lfigpadd /N lfigpointdef
- NE 0.5 lfigpmul /CTR lfigpointdef
- [ CTR NE lfigpsub /lfigboxcircum cvx ] lfigcircumdef
- SW SE NE NW SW
-} def
-
-% shape and labels of the @CurveBox symbol
-/lfigcurvebox
-{
-
- xsize 0.5 mul ysize 0.5 mul /CTR lfigpointdef
- xsize 0.5 mul 0 /S lfigpointdef
- xsize ysize 0.5 mul /E lfigpointdef
- xsize 0.5 mul ysize /N lfigpointdef
- 0 ysize 0.5 mul /W lfigpointdef
-
- xmark 0.293 mul xmark 0.293 mul /SW lfigpointdef
- xsize xmark 0.293 mul sub xmark 0.293 mul /SE lfigpointdef
- xsize xmark 0.293 mul sub ysize xmark 0.293 mul sub /NE lfigpointdef
- xmark 0.293 mul ysize xmark 0.293 mul sub /NW lfigpointdef
-
- [ xsize ysize 0.5 lfigpmul xmark /lfigcurveboxcircum cvx ] lfigcircumdef
-
- xmark 0
- xsize xmark sub 0
- [ xsize xmark sub xmark ]
- xsize xmark
- xsize ysize xmark sub
- [ xsize xmark sub ysize xmark sub ]
- xsize xmark sub ysize
- xmark ysize
- [ xmark ysize xmark sub ]
- 0 ysize xmark sub
- 0 xmark
- [ xmark xmark ]
- xmark 0
-} def
-
-% shadow of the @ShadowBox symbol
-% its shape and labels are done, somewhat inaccurately, with lfigbox
-/lfigshadow
-{ xmark 2 mul 0 moveto xsize 0 lineto
- xsize ysize xmark 2 mul sub lineto
- xsize xmark sub ysize xmark 2 mul sub lineto
- xsize xmark sub xmark lineto
- xmark 2 mul xmark lineto closepath fill
-} def
-
-% shape and labels of the @Square symbol
-/lfigsquare
-{
- xsize ysize 0.5 lfigpmul /CTR lfigpointdef
- CTR xsize xsize ysize ysize lfigpmax 0.5 lfigpmul lfigpadd /NE lfigpointdef
- CTR 0 0 CTR NE lfigdistance 135 lfigatangle lfigpadd /NW lfigpointdef
- CTR 0 0 CTR NE lfigdistance 225 lfigatangle lfigpadd /SW lfigpointdef
- CTR 0 0 CTR NE lfigdistance 315 lfigatangle lfigpadd /SE lfigpointdef
- SW 0.5 lfigpmul SE 0.5 lfigpmul lfigpadd /S lfigpointdef
- NW 0.5 lfigpmul NE 0.5 lfigpmul lfigpadd /N lfigpointdef
- SW 0.5 lfigpmul NW 0.5 lfigpmul lfigpadd /W lfigpointdef
- SE 0.5 lfigpmul NE 0.5 lfigpmul lfigpadd /E lfigpointdef
- [ CTR NE lfigpsub /lfigboxcircum cvx ] lfigcircumdef
- SW SE NE NW SW
-} def
-
-% shape and labels of the @Diamond symbol
-/lfigdiamond
-{
- xsize 0 0.5 lfigpmul /S lfigpointdef
- 0 ysize 0.5 lfigpmul /W lfigpointdef
- S W lfigpadd /CTR lfigpointdef
- CTR W lfigpadd /N lfigpointdef
- CTR S lfigpadd /E lfigpointdef
- [ xsize ysize 0.5 lfigpmul /lfigdiamondcircum cvx ] lfigcircumdef
- S E N W S
-} def
-
-% shape and labels of the @Ellipse symbol
-/lfigellipse
-{
- xsize 0 0.5 lfigpmul /S lfigpointdef
- 0 ysize 0.5 lfigpmul /W lfigpointdef
- S W lfigpadd /CTR lfigpointdef
- CTR W lfigpadd /N lfigpointdef
- CTR S lfigpadd /E lfigpointdef
- CTR xsize 0 0.3536 lfigpmul lfigpadd 0 ysize 0.3536 lfigpmul lfigpadd /NE lfigpointdef
- 0 ysize 0.3536 lfigpmul CTR xsize 0 0.3536 lfigpmul lfigpadd lfigpsub /SE lfigpointdef
- xsize 0 0.3536 lfigpmul CTR lfigpsub 0 ysize 0.3536 lfigpmul lfigpadd /NW lfigpointdef
- 0 ysize 0.3536 lfigpmul xsize 0 0.3536 lfigpmul CTR lfigpsub lfigpsub /SW lfigpointdef
- [ xsize ysize 0.5 lfigpmul /lfigellipsecircum cvx ] lfigcircumdef
- S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
-} def
-
-% shape and labels of the @Circle symbol
-/lfigcircle
-{
- xsize ysize 0.5 lfigpmul /CTR lfigpointdef
- CTR xsize 0 ysize 0 lfigpmax 0.5 lfigpmul lfigpadd /E lfigpointdef
- CTR 0 0 CTR E lfigdistance 45 lfigatangle lfigpadd /NE lfigpointdef
- CTR 0 0 CTR E lfigdistance 90 lfigatangle lfigpadd /N lfigpointdef
- CTR 0 0 CTR E lfigdistance 135 lfigatangle lfigpadd /NW lfigpointdef
- CTR 0 0 CTR E lfigdistance 180 lfigatangle lfigpadd /W lfigpointdef
- CTR 0 0 CTR E lfigdistance 225 lfigatangle lfigpadd /SW lfigpointdef
- CTR 0 0 CTR E lfigdistance 270 lfigatangle lfigpadd /S lfigpointdef
- CTR 0 0 CTR E lfigdistance 315 lfigatangle lfigpadd /SE lfigpointdef
- [ S E lfigpsub /lfigellipsecircum cvx ] lfigcircumdef
- S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
-} def
-
-% shape and labels of the @HLine and @HArrow symbols
-/lfighline
-{
- 0 ymark lfigprevious /FROM lfigpointdef
- xsize ymark lfigprevious /TO lfigpointdef
-} def
-
-% shape and labels of the @VLine and @VArrow symbols
-/lfigvline
-{
- xmark ysize lfigprevious /FROM lfigpointdef
- xmark 0 lfigprevious /TO lfigpointdef
-} def
-
-% points of a polygon around base with given no of sides, vert init angle:
-% <sides> <angle> figpolygon <point> ... <point>
-/lfigpolygon
-{ xsize ysize 0.5 lfigpmul /CTR lfigpointdef
- 90 sub CTR 2 copy lfigmax 5 3 roll
- [ 4 copy pop /lfigpolycircum cvx ] lfigcircumdef
- exch dup 360 exch div exch
- 1 1 3 2 roll
- { 4 string cvs (P) exch lfigconcat cvn
- 6 copy pop pop lfigatangle 2 copy 10 2 roll
- 3 2 roll lfigpointdef
- dup 3 1 roll add exch
- } for
- pop lfigatangle
-} def
-
-% next array element: <array> <index> lfiggetnext <array> <index> <any> true
-% or <array> <index> false
-/lfiggetnext
-{ 2 copy exch length ge
- { false }
- { 2 copy get exch 1 add exch true } ifelse
-} def
-
-% check whether thing is number: <any> lfigisnumbertype <any> <bool>
-/lfigisnumbertype
-{ dup type dup
- /integertype eq exch /realtype eq or
-} def
-
-% check whether thing is an array: <any> lfigisarraytype <any> <bool>
-/lfigisarraytype { dup type /arraytype eq } def
-
-% get next item: <array> <index> lfiggetnextitem <array> <index> 0
-% or <array> <index> <array> 1
-% or <array> <index> <point> 2
-/lfiggetnextitem
-{ lfiggetnext
- { lfigisarraytype
- { 1
- }
- { lfigisnumbertype
- { 3 1 roll
- lfiggetnext
- { lfigisnumbertype
- { 4 3 roll exch 2
- }
- { pop 3 2 roll pop 0
- } ifelse
- }
- { 3 2 roll pop 0
- } ifelse
- }
- { pop 0
- } ifelse
- } ifelse
- }
- { 0
- } ifelse
-} def
-
-% set arc path: bool x1 y1 x2 y2 x0 y0 lfigsetarc <angle> <angle> <dist>
-% the path goes from x1 y1 to x2 y2 about centre x0 y0,
-% anticlockwise if bool is true else clockwise.
-% The orientations of backwards pointing and forwards pointing
-% arrowheads are returned in the two angles, and
-% the length of the arc is returned in <dist>.
-/lfigsetarc
-{
- 20 dict begin
- matrix currentmatrix 8 1 roll
- 2 copy translate 2 copy 8 2 roll
- 4 2 roll lfigpsub 6 2 roll lfigpsub
- dup /y1 exch def dup mul /y1s exch def
- dup /x1 exch def dup mul /x1s exch def
- dup /y2 exch def dup mul /y2s exch def
- dup /x2 exch def dup mul /x2s exch def
-
- y1s y2s eq
- { -1
- }
- { y1s x2s mul y2s x1s mul sub y1s y2s sub div
- } ifelse
- /da exch def
-
- x1s x2s eq
- { -1
- }
- { x1s y2s mul x2s y1s mul sub x1s x2s sub div
- } ifelse
- /db exch def
-
- da 0 gt db 0 gt and
- { /LMax da sqrt db sqrt lfigmax def
- /scalex da sqrt LMax div def
- /scaley db sqrt LMax div def
- scalex scaley scale
- 0 0 LMax
- 0 0 x1 scalex mul y1 scaley mul lfigangle
- 0 0 x2 scalex mul y2 scaley mul lfigangle
- 2 copy eq { 360 add } if
- 2 copy 8 2 roll
- 5 index { arc } { arcn } ifelse
- 2 index 1 index
- { 90 sub } { 90 add } ifelse
- dup sin scaley mul exch cos scalex mul atan
- 2 index 2 index
- { 90 add } { 90 sub } ifelse
- dup sin scaley mul exch cos scalex mul atan
- 5 2 roll % res1 res2 ang1 ang2 anticlockwise
- { exch sub } { sub } ifelse
- dup 0 le { 360 add } if lfigpi mul LMax mul 180 div
- }
- { 0 0 x1 y1 lfigdistance 0 0 x2 y2 lfigdistance eq
- 0 0 x1 y1 lfigdistance 0 gt and
- { 0 0
- 0 0 x1 y1 lfigdistance
- 0 0 x1 y1 lfigangle
- 0 0 x2 y2 lfigangle
- 2 copy eq { 360 add } if
- 2 copy 8 2 roll
- 5 index { arc } { arcn } ifelse
- 2 index 1 index
- { 90 sub } { 90 add } ifelse
- 2 index 2 index
- { 90 add } { 90 sub } ifelse
- 5 2 roll % res1 res2 ang1 ang2 clockwise
- { exch sub } { sub } ifelse
- dup 0 le { 360 add } if lfigpi mul 0 0 x1 y1 lfigdistance mul 180 div
- }
- { x2 y2 lineto pop
- x2 y2 x1 y1 lfigangle
- x1 y1 x2 y2 lfigangle
- x1 y1 x2 y2 lfigdistance
- } ifelse
- } ifelse
- 4 -1 roll setmatrix
- end
-} def
-
-% lfigsetcurve: set up a Bezier curve from x0 y0 to x3 y3
-% and return arrowhead angles and length of curve (actually 0)
-% x0 y0 x1 y1 x2 y2 x3 y3 lfigsetcurve <angle> <angle> <length>
-/lfigsetcurve
-{ 8 copy curveto pop pop
- lfigangle
- 5 1 roll
- 4 2 roll lfigangle
- exch
- 0
-} def
-
-% lfigpaintpath: paint a path of the given shape
-% /paint [ shape ] lfigpaintpath -
-/lfigpaintpath
-{
- 10 dict begin
- 0 newpath
- /prevseen false def
- /curveseen false def
- { lfiggetnextitem
- dup 0 eq { pop exit }
- { 1 eq
- { /curveseen true def
- /curve exch def
- curve length 0 eq { /curveseen false def } if
- }
- { /ycurr exch def
- /xcurr exch def
- prevseen
- { curveseen
- { curve length 4 eq
- { xprev yprev
- curve 0 get curve 1 get
- curve 2 get curve 3 get
- xcurr ycurr
- lfigsetcurve pop pop pop
- }
- { xprev yprev xcurr ycurr
- curve length 1 ge { curve 0 get } { 0 } ifelse
- curve length 2 ge { curve 1 get } { 0 } ifelse
- curve length 3 ge { curve 2 get } { true } ifelse
- 7 1 roll
- lfigsetarc pop pop pop
- } ifelse
- }
- { xcurr ycurr lineto
- } ifelse
- }
- { xcurr ycurr moveto
- } ifelse
- /xprev xcurr def
- /yprev ycurr def
- /prevseen true def
- /curveseen false def
- } ifelse
- } ifelse
- } loop pop pop cvx exec
- end
-} def
-
-% stroke a path of the given shape in the given linestyle and dash length.
-% Return the origin and angle of the backward and forward arrow heads.
-% dashlength /linestyle [shape] lfigdopath [<point> <angle>] [<point> <angle>]
-/lfigdopath
-{
- 10 dict begin
- 0
- /prevseen false def
- /curveseen false def
- /backarrow [] def
- /fwdarrow [] def
- {
- lfiggetnextitem
- dup 0 eq { pop exit }
- {
- 1 eq
- { /curveseen true def
- /curve exch def
- curve length 0 eq { /prevseen false def } if
- }
- { /ycurr exch def
- /xcurr exch def
- prevseen
- { newpath xprev yprev moveto
- curveseen
- { curve length 4 eq
- { xprev yprev
- curve 0 get curve 1 get
- curve 2 get curve 3 get
- xcurr ycurr lfigsetcurve
- }
- { xprev yprev xcurr ycurr
- curve length 1 ge { curve 0 get } { 0 } ifelse
- curve length 2 ge { curve 1 get } { 0 } ifelse
- curve length 3 ge { curve 2 get } { true } ifelse
- 7 1 roll
- lfigsetarc
- } ifelse
- }
- { xcurr ycurr lineto
- xcurr ycurr xprev yprev lfigangle dup 180 sub
- xprev yprev xcurr ycurr lfigdistance
- } ifelse
- 6 index 6 index cvx exec
- [ xprev yprev 5 -1 roll ]
- backarrow length 0 eq
- { /backarrow exch def }
- { pop } ifelse
- [ xcurr ycurr 4 -1 roll ] /fwdarrow exch def
- } if
- /xprev xcurr def
- /yprev ycurr def
- /prevseen true def
- /curveseen false def
- } ifelse
- } ifelse
- } loop
- pop pop pop pop
- backarrow length 0 eq { [ 0 0 0 ] } { backarrow } ifelse
- fwdarrow length 0 eq { [ 0 0 0 ] } { fwdarrow } ifelse
- end
-} def
-
-% lfigdoarrow: draw an arrow head of given form
-% dashlength /lstyle /pstyle hfrac height width [ <point> <angle> ] lfigdoarrow -
-/lfigdoarrow
-{ matrix currentmatrix 8 1 roll
- dup 0 get 1 index 1 get translate
- 2 get rotate
- [ 2 index neg 2 index 0 0
- 3 index 3 index neg
- 1 index 10 index mul 0
- 7 index 7 index ]
- 4 1 roll pop pop pop
- dup 3 1 roll
- gsave lfigpaintpath grestore lfigdopath pop pop
- setmatrix
-} def
-
-% arrow head styles
-/lfigopen 0.0 def
-/lfighalfopen 0.5 def
-/lfigclosed 1.0 def
-
-% stroke no arrows, forward, back, and both
-/lfignoarrow { pop pop pop pop pop pop pop pop } def
-/lfigforward { 7 -1 roll lfigdoarrow pop } def
-/lfigback { 8 -2 roll pop lfigdoarrow } def
-/lfigboth { 8 -1 roll 7 copy lfigdoarrow pop 7 -1 roll lfigdoarrow } def
-
-% lfigprevious: return previous point on path
-/lfigprevious
-{ lfigisnumbertype
- { 2 copy }
- { lfigisarraytype
- { 2 index 2 index }
- { 0 0 }
- ifelse
- } ifelse
-} def
-
-% label a point in 2nd top dictionary: <point> /name lfigpointdef -
-/lfigpointdef
-{
- % (Entering lfigpointdef) lfigdebugprint
- [ 4 2 roll transform
- /itransform cvx ] cvx
- currentdict end
- 3 1 roll
- % currentdict length currentdict maxlength lt
- % { def }
- % { exec moveto (too many labels) show stop }
- % ifelse
- def
- begin
- % (Leaving lfigpointdef) lfigdebugprint
-} def
-
-% promote labels from second top to third top dictionary
-% <string> lfigpromotelabels -
-/lfigpromotelabels
-{
- % (Entering lfigpromotelabels) lfigdebugprint
- currentdict end exch currentdict end
- { exch 20 string cvs 2 index
- (@) lfigconcat exch lfigconcat cvn exch def
- } forall pop begin
- % (Leaving lfigpromotelabels) lfigdebugprint
-} def
-
-% show labels (except CIRCUM): - lfigshowlabels -
-/lfigshowlabels
-{
- % (Entering lfigshowlabels) lfigdebugprint
- currentdict end
- currentdict
- { 1 index 20 string cvs (CIRCUM) search % if CIRCUM in key
- { pop pop pop pop pop }
- { pop cvx exec 2 copy
- newpath 1.5 pt 0 360 arc
- 0 setgray fill
- /Times-Roman findfont 8 pt scalefont setfont
- moveto 0.2 cm 0.1 cm rmoveto 20 string cvs show
- }
- ifelse
- } forall
- begin
- % (Leaving lfigshowlabels) lfigdebugprint
-} def
-
-% fix an angle to 0 <= res < 360: <angle> lfigfixangle <angle>
-/lfigfixangle
-{
- % (Entering lfigfixangle) lfigdebugprint
- { dup 0 ge { exit } if
- 360 add
- } loop
- { dup 360 lt { exit } if
- 360 sub
- } loop
- % (Leaving lfigfixangle) lfigdebugprint
-} def
-
-% find point on circumference of box: alpha a b lfigboxcircum x y
-/lfigboxcircum
-{
- % (Entering lfigboxcircum) lfigdebugprint
- 4 dict begin
- /b exch def
- /a exch def
- lfigfixangle /alpha exch def
- 0 0 a b lfigangle /theta exch def
-
- % if alpha <= theta, return (a, a*tan(alpha))
- alpha theta le
- { a a alpha sin mul alpha cos div }
- {
- % else if alpha <= 180 - theta, return (b*cot(alpha), b)
- alpha 180 theta sub le
- { b alpha cos mul alpha sin div b }
- {
- % else if alpha <= 180 + theta, return (-a, -a*tan(alpha))
- alpha 180 theta add le
- { a neg a neg alpha sin mul alpha cos div }
- {
- % else if alpha <= 360 - theta, return (-b*cot(alpha), -b)
- alpha 360 theta sub le
- { b neg alpha cos mul alpha sin div b neg }
- {
- % else 360 - theta <= alpha, return (a, a*tan(alpha))
- a a alpha sin mul alpha cos div
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- end
- % (Leaving lfigboxcircum) lfigdebugprint
-} def
-
-% find quadratic roots (assume a != 0): a b c lfigqroots x1 x2 2
-% or x2 1
-% or 0
-/lfigqroots
-{
- 4 dict begin
- /c exch def
- /b exch def
- /a exch def
- /disc b b mul 4 a c mul mul sub def
- disc 0 lt
- { 0
- }
- { disc 0 eq
- { b neg 2 a mul div
- 1
- }
- { b neg disc sqrt add 2 a mul div
- b neg disc sqrt sub 2 a mul div
- 2
- }
- ifelse
- }
- ifelse
- end
-} def
-
-% work our which quadrant: <angle> lfigquadrant <0-3>
-/lfigquadrant
-{ dup 90 lt
- { pop 0
- }
- { dup 180 lt
- { pop 1
- }
- { 270 lt
- { 2
- }
- { 3
- } ifelse
- } ifelse
- } ifelse
-} def
-
-% find curvebox circum, assuming upper right quadrant: alpha a b xmk lfigcb x y
-/lfigcb
-{
- 6 dict begin
- /xmk exch def
- /b exch def
- /a exch def
- /alpha exch def
- /theta1 0 0 a b xmk sub lfigangle def
- /theta2 0 0 a xmk sub b lfigangle def
- alpha theta1 le
- { % if alpha <= theta1, return (a, a*tan(alpha))
- a a alpha sin mul alpha cos div
- }
- { alpha theta2 ge
- { % else if alpha > theta2, return (b*cot(alpha), b)
- b alpha cos mul alpha sin div b
- }
- {
- % else, return the intersection of line and circle
- a xmk sub b xmk sub xmk 0 0 alpha lfigcircleintersect
- dup 0 eq
- { % should never happen, just return any reasonable point
- pop
- a b 0.5 lfigpmul
- }
- { 1 eq
- { % should never happen, just return the point on top of stack
- }
- { % the usual case, two points on stack, return the larger
- lfigpmax
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- end
-} def
-
-% find point on circumference of curvebox: alpha a b xmk lfigcurveboxcircum x y
-/lfigcurveboxcircum
-{
- % (Entering lfigcurveboxcircum) lfigdebugprint
- 5 dict begin
- /xmk exch def
- /b exch def
- /a exch def
- lfigfixangle /alpha exch def
-
- % work out which quadrant we are in, and reflect accordingly
- /quad alpha lfigquadrant def
- quad 0 eq
- { alpha a b xmk lfigcb
- }
- { quad 1 eq
- { 180 alpha sub a b xmk lfigcb exch neg exch
- }
- { quad 2 eq
- { alpha 180 sub a b xmk lfigcb neg exch neg exch
- }
- { 360 alpha sub a b xmk lfigcb neg
- } ifelse
- } ifelse
- } ifelse
- end
- % (Leaving lfigcurveboxcircum) lfigdebugprint
-} def
-
-% find point on circumference of diamond: alpha a b lfigdiamondcircum x y
-/lfigdiamondcircum
-{
- % (Entering lfigdiamondcircum) lfigdebugprint
- 4 dict begin
- /b exch def
- /a exch def
- lfigfixangle /alpha exch def
- b alpha cos abs mul a alpha sin abs mul add /denom exch def
- a b mul alpha cos mul denom div
- a b mul alpha sin mul denom div
- end
- % (Leaving lfigdiamondcircum) lfigdebugprint
-} def
-
-% find point on circumference of ellipse: alpha a b lfigellipsecircum x y
-/lfigellipsecircum
-{
- % (Entering lfigellipsecircum) lfigdebugprint
- 4 dict begin
- /b exch def
- /a exch def
- lfigfixangle /alpha exch def
- b alpha cos mul dup mul a alpha sin mul dup mul add sqrt /denom exch def
- a b mul alpha cos mul denom div
- a b mul alpha sin mul denom div
- end
- % (Leaving lfigellipsecircum) lfigdebugprint
-} def
-
-% find point of intersection of two lines each defined by two points
-% x1 y1 x2 y2 x3 y3 x4 y4 lfiglineintersect x y
-/lfiglineintersect
-{
- % (Entering lfiglineintersect) lfigdebugprint
- 13 dict begin
- /y4 exch def
- /x4 exch def
- /y3 exch def
- /x3 exch def
- /y2 exch def
- /x2 exch def
- /y1 exch def
- /x1 exch def
- x2 x1 sub /x21 exch def
- x4 x3 sub /x43 exch def
- y2 y1 sub /y21 exch def
- y4 y3 sub /y43 exch def
- y21 x43 mul y43 x21 mul sub /det exch def
-
- % calculate x
- y21 x43 mul x1 mul
- y43 x21 mul x3 mul sub
- y3 y1 sub x21 mul x43 mul add
- det div
-
- % calculate y
- x21 y43 mul y1 mul
- x43 y21 mul y3 mul sub
- x3 x1 sub y21 mul y43 mul add
- det neg div
-
- end
- % (Leaving lfiglineintersect) lfigdebugprint
-} def
-
-% find point on circumference of polygon
-% alpha radius num theta lfigpolycircum x y
-/lfigpolycircum
-{
- % (Entering lfigpolycircum) lfigdebugprint
- 13 dict begin
- /theta exch def
- /num exch def
- /radius exch def
- /alpha exch def
-
- % calculate delta, the angle from theta to alpha
- alpha theta sub lfigfixangle
-
- % calculate the angle which is the multiple of 360/num closest to delta
- 360 num div div truncate 360 num div mul theta add /anglea exch def
-
- % calculate the next multiple of 360/num after anglea
- anglea 360 num div add /angleb exch def
-
- % intersect the line through these two points with the alpha line
- anglea cos anglea sin angleb cos angleb sin
- 0 0 alpha cos 2 mul alpha sin 2 mul
- lfiglineintersect radius lfigpmul
-
- end
- % (Leaving lfigpolycircum) lfigdebugprint
-} def
-
-% find point of intersection of a point and a circle
-% x0 y0 r x1 y1 theta lfigcircleintersect xa ya xb yb 2
-% or xb yb 1
-% or 0
-/lfigcircleintersect
-{
- % (Entering lfigcircleintersect) lfigdebugprint
- 15 dict begin
- /theta exch def
- /y1 exch def
- /x1 exch def
- /r exch def
- /y0 exch def
- /x0 exch def
-
- % if sin(theta) = 0 then line is horizontal and y must be y1
- theta sin abs 0.00001 lt
- {
- /a 1 def
- /b -2 x0 mul def
- /c x0 dup mul y1 y0 sub dup mul add r dup mul sub def
- a b c lfigqroots dup
- 0 eq
- { pop
- 0
- }
- { 1 eq
- { y1 1
- }
- { y1 exch y1 2
- } ifelse
- } ifelse
- }
- {
- /ct theta cos theta sin div def
- /a ct ct mul 1 add def
- /b ct x1 x0 sub mul y1 add y0 sub 2 mul def
- /c x1 x0 sub dup mul y1 y0 sub dup mul add r dup mul sub def
- a b c lfigqroots dup
- 0 eq
- { pop
- 0
- }
- { 1 eq
- { y1 add /yb exch def
- yb y1 sub ct mul x1 add /xb exch def
- xb yb 1
- }
- { y1 add /ya exch def
- ya y1 sub ct mul x1 add /xa exch def
- y1 add /yb exch def
- yb y1 sub ct mul x1 add /xb exch def
- xa ya xb yb 2
- } ifelse
- } ifelse
- } ifelse
- end
- % (Leaving lfigcircleintersect) lfigdebugprint
-} def
-
-% add CIRCUM operator with this body: <array> lfigcircumdef -
-/lfigcircumdef
-{ % (Entering lfigcircumdef) lfigdebugprint
- /CIRCUM exch cvx
- currentdict end
- 3 1 roll
- % currentdict length currentdict maxlength lt
- % { def }
- % { exec moveto (too many labels) show stop }
- % ifelse
- def
- begin
- % (Leaving lfigcircumdef) lfigdebugprint
-} def
-
-end
-%%EndResource
-
-%%BeginResource: procset LoutGraphPrependGraphic
-% @PrependGraphic file /export/home/6monthspace/jeff/lout.lib/include/graphf.lpg
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% PostScript @SysPrependGraphic file for @Graph (Version 1.0) %
-% %
-% Version 1.0 by Jeffrey H. Kingston, December 1993. %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-errordict begin
- /handleerror
- {
- { /Times-Roman findfont 8 pt scalefont setfont
- 0 setgray 4 pt 4 pt moveto
- $error /errorname get
- dup lgraphdict exch known
- { lgraphdict exch get }
- { 30 string cvs } ifelse
- show
- ( Command: ) show
- $error /command get 30 string cvs show
- } stopped {} if
- showpage stop
- } def
-end
-
-/lgraphdict 200 dict def
-lgraphdict begin
-
-% error messages
-/dictfull (dictfull error) def
-/dictstackoverflow (dictstackoverflow error) def
-/execstackoverflow (execstackoverflow error: expression too complex?) def
-/limitcheck (limitcheck error: graph too complex or too large?) def
-/syntaxerror (syntaxerror error: syntax error in text of graph?) def
-/typecheck (typecheck error: syntax error in text of graph?) def
-/undefined (undefined error: unknown or misspelt symbol?) def
-/rangecheck (rangecheck error: undefined expression (e.g. divide by zero)?) def
-/VMError (VMError error: run out of memory?) def
-
-% random number between x and y inclusive: x y dorand num
-/dorand { 1 index sub 1 add rand exch mod add } def
-
-% log to given base: base num dolog num
-/dolog { ln exch ln div } def
-
-% maximum of two numbers: <num> <num> max <num>
-/max { 2 copy gt { pop } { exch pop } ifelse } def
-
-% add two points: <point> <point> padd <point>
-/padd { exch 3 1 roll add 3 1 roll add exch } def
-
-% subtract first point from second: <point> <point> psub <point>
-/psub { 3 2 roll sub 3 1 roll exch sub exch } def
-
-% distance between two points: <point> <point> distance <length>
-/distance { psub dup mul exch dup mul add sqrt } def
-
-% point at angle and distance: <point> <length> <angle> atangle <point>
-/atangle { 2 copy cos mul 3 1 roll sin mul padd } def
-
-% angle from one point to another: <point> <point> angle <angle>
-/angle { psub 2 copy 0 eq exch 0 eq and {pop} {exch atan} ifelse } def
-
-
-% set up for line
-% - linesetup <length> <dashlength>
-/linesetup
-{ newpath
- xcurr ycurr trpoint xprev yprev trpoint
- 4 copy moveto lineto distance dashlength
-} def
-
-% set up for icon-avoiding line
-% - ilinesetup <length> <dashlength>
-/ilinesetup
-{ newpath
- xprev yprev trpoint xcurr ycurr trpoint 4 copy
- 4 copy angle symbolsize 1.5 mul exch 4 2 roll pop pop atangle
- 6 2 roll 4 2 roll
- 4 copy angle symbolsize 1.5 mul exch 4 2 roll pop pop atangle
- 4 copy moveto lineto distance dashlength
-} def
-
-
-% stroke a solid line: <length> <dashlength> solid -
-/solid
-{ pop pop [] 0 setdash linewidth setlinewidth stroke
-} def
-
-% stroke a dashed line: <length> <dashlength> dashed -
-/dashed
-{ 2 copy 2 mul le 1 index 0 le or
- { exch pop 1 pt max [ exch dup ] 0 setdash }
- { dup [ exch 4 2 roll 2 copy div
- 1 sub 2 div ceiling dup 4 1 roll
- 1 add mul sub exch div ] 0 setdash
- } ifelse linewidth setlinewidth stroke
-} def
-
-% stroke a cdashed line: <length> <dashlength> cdashed -
-/cdashed
-{ 2 copy le 1 index 0 le or
- { exch pop 1 pt max [ exch dup ] dup 0 get 2 div setdash }
- { dup [ 4 2 roll exch 2 copy exch div
- 2 div ceiling div 1 index sub
- ] exch 2 div setdash
- } ifelse linewidth setlinewidth stroke
-} def
-
-% stroke a dotted line: <length> <dashlength> dotted -
-/dotted
-{ 2 copy le 1 index 0 le or
- { exch pop 1 pt max [ exch 0 exch ] 0 setdash }
- { 1 index exch div ceiling div 0.99999 mul
- [ 0 3 2 roll ] 0 setdash
- } ifelse gsave 1 setlinecap linewidth setlinewidth stroke grestore newpath
-} def
-
-% stroke a noline line: <length> <dashlength> noline -
-/noline
-{ pop pop
-} def
-
-% stroke a y histogram: - yhisto -
-/yhisto
-{ xprev yleft trpoint yextra sub moveto
- xprev yprev trpoint lineto
- xcurr yprev trpoint lineto
- xcurr yleft trpoint yextra sub lineto
- linewidth setlinewidth stroke
-} def
-
-% stroke an x histogram: - xhisto -
-/xhisto
-{ xleft yprev trpoint exch xextra sub exch moveto
- xcurr yprev trpoint lineto
- xcurr ycurr trpoint lineto
- xleft ycurr trpoint exch xextra sub exch lineto
- linewidth setlinewidth stroke
-} def
-
-% stroke a surface y histogram: - surfaceyhisto -
-/surfaceyhisto
-{ firstpair
- { xprev yleft trpoint yextra sub moveto
- xprev yprev trpoint lineto
- }
- { xprev yprev trpoint moveto
- } ifelse
- xcurr yprev trpoint lineto
- lastpair
- { xcurr yleft trpoint yextra sub lineto
- }
- { xcurr ycurr trpoint lineto
- } ifelse
- linewidth setlinewidth stroke
-} def
-
-% stroke a surface x histogram: - surfacexhisto -
-/surfacexhisto
-{ firstpair
- { xleft yprev trpoint exch xextra sub exch moveto
- }
- { xprev yprev trpoint moveto
- } ifelse
- xcurr yprev trpoint lineto
- xcurr ycurr trpoint lineto
- lastpair
- { xleft ycurr trpoint exch xextra sub exch lineto
- } if
- linewidth setlinewidth stroke
-} def
-
-% stroke a filled y histogram: - filledyhisto -
-/filledyhisto
-{
- linewidth setlinewidth
- xprev yleft trpoint exch currentlinewidth 2 div add exch yextra sub moveto
- xprev yprev trpoint exch currentlinewidth 2 div add exch lineto
- xcurr yprev trpoint exch currentlinewidth 2 div sub exch lineto
- xcurr yleft trpoint exch currentlinewidth 2 div sub exch yextra sub lineto
- closepath fill
-} def
-
-% stroke a filled x histogram: - filledxhisto -
-/filledxhisto
-{
- linewidth setlinewidth
- xleft yprev trpoint currentlinewidth 2 div add exch xextra sub exch moveto
- xcurr yprev trpoint currentlinewidth 2 div add lineto
- xcurr ycurr trpoint currentlinewidth 2 div sub lineto
- xleft ycurr trpoint currentlinewidth 2 div sub exch xextra sub exch lineto
- closepath fill
-} def
-
-
-% cross: show a small cross
-/cross
-{ newpath
- xcurr ycurr trpoint moveto
- symbolsize neg symbolsize neg rmoveto
- symbolsize 2 mul symbolsize 2 mul rlineto
- 0 symbolsize -2 mul rmoveto
- symbolsize -2 mul symbolsize 2 mul rlineto
- [] 0 setdash stroke
-} def
-
-% plus: show a small plus
-/plus
-{ newpath
- xcurr ycurr trpoint moveto
- symbolsize neg 0 rmoveto
- symbolsize 2 mul 0 rlineto
- symbolsize neg symbolsize neg rmoveto
- 0 symbolsize 2 mul rlineto
- [] 0 setdash stroke
-} def
-
-% square: show a small square
-/square
-{ newpath
- xcurr ycurr trpoint moveto
- symbolsize neg symbolsize neg rmoveto
- symbolsize 2 mul 0 rlineto
- 0 symbolsize 2 mul rlineto
- symbolsize -2 mul 0 rlineto
- closepath [] 0 setdash stroke
-} def
-
-% filledsquare: show a small filled square
-/filledsquare
-{ newpath
- xcurr ycurr trpoint moveto
- symbolsize neg symbolsize neg rmoveto
- symbolsize 2 mul 0 rlineto
- 0 symbolsize 2 mul rlineto
- symbolsize -2 mul 0 rlineto
- closepath gsave [] 0 setdash stroke grestore fill
-} def
-
-% diamond: show a small diamond
-/diamond
-{ newpath
- xcurr ycurr trpoint moveto
- symbolsize neg 0 rmoveto
- symbolsize symbolsize neg rlineto
- symbolsize symbolsize rlineto
- symbolsize neg symbolsize rlineto
- closepath [] 0 setdash stroke
-} def
-
-% filleddiamond: show a small filled diamond
-/filleddiamond
-{ newpath
- xcurr ycurr trpoint moveto
- symbolsize neg 0 rmoveto
- symbolsize symbolsize neg rlineto
- symbolsize symbolsize rlineto
- symbolsize neg symbolsize rlineto
- closepath gsave [] 0 setdash stroke grestore fill
-} def
-
-% circle: show a small circle
-/circle
-{ newpath
- xcurr ycurr trpoint symbolsize 0 360 arc [] 0 setdash stroke
-} def
-
-% filledcircle: show a small filled circle
-/filledcircle
-{ newpath
- xcurr ycurr trpoint symbolsize 0 360 arc gsave [] 0 setdash stroke grestore fill
-} def
-
-% triangle: show a small triangle
-/triangle
-{ newpath
- xcurr ycurr trpoint moveto
- 0 symbolsize 1.5 mul rmoveto
- symbolsize neg symbolsize -2.5 mul rlineto
- symbolsize 2 mul 0 rlineto
- closepath [] 0 setdash stroke
-} def
-
-% filledtriangle: show a small filled triangle
-/filledtriangle
-{ newpath
- xcurr ycurr trpoint moveto
- 0 symbolsize 1.5 mul rmoveto
- symbolsize neg symbolsize -2.5 mul rlineto
- symbolsize 2 mul 0 rlineto
- closepath gsave [] 0 setdash stroke grestore fill
-} def
-
-
-%plog: like log only with a base, and protected from failing if <= 0
-% base x plog res
-/plog { dup 0 le { pop pop 0 } { ln exch ln div } ifelse } def
-
-% xtr: transform one x value logarithmically if xlog > 1
-% <num> xtr <num>
-/xtr
-{ xlog 1 gt
- { xlog exch plog
- } if
-} def
-
-% ytr: transform one y value logarithmically if ylog > 1
-% <num> ytr <num>
-/ytr
-{ ylog 1 gt
- { ylog exch plog
- } if
-} def
-
-% % trpoint: transform (x, y) in graph space into (x', y') in print space
-% % x y trpoint x' y'
-% /trpoint
-% { exch xtr trxmin sub trxmax trxmin sub div xwidth mul xextra add
-% exch ytr trymin sub trymax trymin sub div ywidth mul yextra add
-% } def
-
-
-% trpoint: transform (x, y) in graph space into (x', y') in print space
-% x y trpoint x' y'
-/trpoint
-{ exch xtr xdecr { trxmax exch sub } { trxmin sub } ifelse
- trxmax trxmin sub div xwidth mul xextra add
-
- exch ytr ydecr { trymax exch sub } { trymin sub } ifelse
- trymax trymin sub div ywidth mul yextra add
-} def
-
-
-% yonly: interpolate x values 1, 2, ... into data
-% [ data ] yonly [ newdata ]
-/yonly
-{ dup /tmp exch def
- length [ exch 1 exch 1 exch
- { dup tmp exch 1 sub get
- } for
- ]
-} def
-
-% xonly: interpolate y values 1, 2, ... into data
-% [ data ] yonly [ newdata ]
-/xonly
-{ dup /tmp exch def
- length [ exch 1 exch 1 exch
- { dup tmp exch 1 sub get exch
- } for
- ]
-} def
-
-% xandy: no interpolation of x or y values
-% [ data ] xandy [ data ]
-/xandy {} def
-
-
-% expstringwidth: calculate width of string containing optional exponent
-% <string> expstringwidth <width>
-/expstringwidth
-{ (^) search
- { exch pop stringwidth pop exch stringwidth pop 0.7 mul add }
- { stringwidth pop }
- ifelse
-} def
-
-% expstringshow: show string containing optional exponent
-% <string> expstringshow -
-/expstringshow
-{ (^) search
- { exch pop show 0 0.5 ft rmoveto
- gsave currentfont 0.7 scalefont setfont show grestore
- }
- { show
- }
- ifelse
-} def
-
-% concatenate two strings: <string> <string> strconcat <string>
-/strconcat
-{ 2 copy length exch length add string
- dup 0 4 index putinterval
- dup 3 index length 3 index putinterval
- 3 1 roll pop pop
-} def
-
-% lgen: generate one label automatically
-% num lgen num string
-/lgen { dup 20 string cvs } def
-
-% loglgen: generate one logarithmic label (with exponent)
-% <base> <exponent> loglgen <string>
-/loglgen
-{ 20 string cvs exch 20 string cvs
- (^) strconcat exch strconcat
-} def
-
-
-% printxtick: print one x tick
-% xpos printxtick -
-/printxtick
-{ newpath
- yleft trpoint moveto 0 yextra neg rmoveto
- 0 xticklength neg rlineto [] 0 setdash stroke
-} def
-
-% printxlabel: print one x label
-% (xlabel) xpos printxlabel -
-/printxlabel
-{ yleft trpoint moveto 0 yextra neg rmoveto
- 0 xticklength neg rmoveto 0 0.9 ft neg rmoveto
- xlog 1 gt { 0 0.3 ft neg rmoveto } if
- dup expstringwidth -2 div 0 rmoveto expstringshow
-} def
-
-% printytick: print one y tick
-% ypos printytick -
-/printytick
-{ newpath
- xleft exch trpoint moveto xextra neg 0 rmoveto
- yticklength neg 0 rlineto [] 0 setdash stroke
-} def
-
-% printylabel: print one y label
-% (ylabel) ypos printylabel -
-/printylabel
-{ xleft exch trpoint moveto xextra neg 0 rmoveto
- yticklength neg 0 rmoveto -0.3 ft -0.3 ft rmoveto
- dup expstringwidth neg 0 rmoveto expstringshow
-} def
-
-% printrtick: print one r tick
-% ypos printrtick -
-/printrtick
-{ newpath
- xright exch trpoint moveto xextra 0 rmoveto
- rticklength 0 rlineto [] 0 setdash stroke
-} def
-
-% printrlabel: print one r label
-% (rlabel) ypos printrlabel -
-/printrlabel
-{ xright exch trpoint moveto xextra 0 rmoveto
- rticklength 0 rmoveto 0.3 ft -0.3 ft rmoveto
- expstringshow
-} def
-
-% printticks: print ticks and labels
-% /tickproc /labelproc [ tickandlabeldata ] min printticks -
-/printticks
-{ /prev exch def
- { dup type dup dup /integertype eq exch /realtype eq or
- { pop dup /prev exch def 2 index cvx exec
- }
- { /stringtype eq
- { prev 2 index cvx exec
- }
- { pop
- } ifelse
- } ifelse
- } forall
- pop pop
-} def
-
-
-% printxaxistick: print one x axis tick
-% xpos printxaxistick -
-/printxaxistick
-{ newpath
- yaxis trpoint moveto 0 xticklength -2 div rmoveto
- 0 xticklength rlineto [] 0 setdash stroke
-} def
-
-% printxaxislabel: print one x axis label
-% (xlabel) xpos printxaxislabel -
-/printxaxislabel
-{ yaxis trpoint moveto
- 0 xticklength -2 div rmoveto 0 0.9 ft neg rmoveto
- xlog 1 gt { 0 0.3 ft neg rmoveto } if
- dup expstringwidth -2 div 0 rmoveto expstringshow
-} def
-
-% printyaxistick: print one y axis tick
-% ypos printyaxistick -
-/printyaxistick
-{ newpath
- xaxis exch trpoint moveto
- yticklength -2 div 0 rmoveto
- yticklength 0 rlineto [] 0 setdash stroke
-} def
-
-% printyaxislabel: print one y axis label
-% (ylabel) ypos printyaxislabel -
-/printyaxislabel
-{ xaxis exch trpoint moveto
- yticklength -2 div 0 rmoveto -0.3 ft -0.3 ft rmoveto
- dup expstringwidth neg 0 rmoveto expstringshow
-} def
-
-
-% <val> minmax -
-% perform minv := min(minv, val); maxv := max(maxv, val)
-% allowing for the possibility of minv, maxv, val being false (undefined)
-/minmax
-{ dup false eq
- { pop }
- { minv false eq
- { dup /minv exch def /maxv exch def }
- { dup minv lt
- { /minv exch def }
- { dup maxv gt
- { /maxv exch def }
- { pop }
- ifelse
- } ifelse
- } ifelse
- } ifelse
-} def
-
-% <ticks> ticksundef <ticks> <bool>
-% returns true iff the ticks array is undefined (one false entry)
-/ticksundef
-{ dup length 1 eq
- { dup 0 get false eq
- }
- { false }
- ifelse
-} def
-
-% <number> integral <boolean>
-% true if the number has an integral value
-/integral { dup round eq } def
-
-% ticksep ticks xory alldata minval maxval axis base ticksandlimits ticks min max base
-% ticksandlimits: sort out value of x or y ticks and limits and log base
-/ticksandlimits
-{ /base exch def
- /minv false def
- /maxv false def
-
- % min and max of user-supplied minval, maxval, and axis
- minmax minmax minmax
-
- % min and max of data points
- { 0 get dup dup length 1 sub 3 index exch 2 exch
- { get minmax dup
- } for pop pop
- } forall
- pop dup
-
- % min and max of tick values
- { dup type /stringtype eq
- { pop } { minmax } ifelse
- } forall
-
- % fix minv and maxv if undefined (false) or equal
- minv false eq
- { /minv -1 def /maxv 1 def }
- { minv maxv eq
- { minv 0 lt
- { /minv 2 minv mul def /maxv 0 def
- }
- { minv 0 eq
- { /minv -1 def /maxv 1 def
- }
- { /minv 0 def /maxv 2 maxv mul def
- } ifelse
- } ifelse
- } if
- } ifelse
-
- % invent ticks if undefined
- ticksundef
- { pop /ticksep exch def
-
- % if base is reasonable and minv is positive, logarithmic ticks
- base 1 gt minv 0 gt and
- {
- % get integral log of minv and maxv
- /logminv base minv plog floor cvi def
- /logmaxv base maxv plog ceiling cvi def
-
- % if minv close to base, make it 1; reset minv and maxv
- logminv 1 eq logmaxv 4 ge and { /logminv 0 def } if
- /minv base logminv exp def
- /maxv base logmaxv exp def
-
- % ticks := [ base**logminv, ... , base**logmaxv ]
- [ logminv 1 logmaxv
- { dup base exch exp
- exch base exch loglgen
- } for
- ]
- }
- { % non-logarithmic ticks
- {
- % fix tick separation if undefined (0) or too small
- /base 0 def
- /delta maxv minv sub def
- ticksep delta 30 div le
- { /ticksep 10 delta log 1 sub ceiling exp def
- ticksep delta 2 div ge
- { /ticksep ticksep 2 div def }
- { ticksep delta 5 div lt
- { /ticksep 2 ticksep mul def
- } if
- } ifelse
- } if
-
- % adjust minv and maxv to be multiples of ticksep
- /minv minv ticksep div floor ticksep mul def
- /maxv maxv ticksep div ceiling ticksep mul def
- /delta maxv minv sub def
-
- % if minv or maxv near zero, move to zero and redo
- minv ticksep eq
- { /minv 0 def }
- { maxv ticksep neg eq { /maxv 0 def } { exit } ifelse
- } ifelse
- } loop
-
- % if minv, maxv, and ticksep are all integral, set "makeint" to true
- /makeint minv integral maxv integral ticksep integral and and def
-
- % ticks := [ minv, minv+ticksep, ... , maxv ]
- [ 0 1 delta ticksep div round
- { ticksep mul minv add makeint { cvi } if lgen }
- for
- ]
- } ifelse
- }
- { exch pop
- } ifelse
- minv maxv base
-} def
-
-% xset: set up all data for x axis, including limits and ticks
-% xticksep xticks 0 alldata xmin xmax xlog xextra xdecr xaxis xticklength xset -
-/xset
-{ /xticklength exch def
- /xaxis exch def
- /xdecr exch def
- /xextra exch def
- xaxis exch ticksandlimits
- /xlog exch def /xmax exch def /xmin exch def /xticks exch def
- /xleft xdecr { xmax } { xmin } ifelse def
- /xright xdecr { xmin } { xmax } ifelse def
- /xwidth xsize xextra 2 mul sub def
- /trxmin xmin xtr def /trxmax xmax xtr def
-} def
-
-% yset: set up all data for y axis, including limits and yticks
-% yticksep yticks 0 alldata ymin ymax ylog yextra ydecr yaxis yticklength yset -
-/yset
-{ /yticklength exch def
- /yaxis exch def
- /ydecr exch def
- /yextra exch def
- yaxis exch ticksandlimits
- /ylog exch def /ymax exch def /ymin exch def /yticks exch def
- /yleft ydecr { ymax } { ymin } ifelse def
- /yright ydecr { ymin } { ymax } ifelse def
- /ywidth ysize yextra 2 mul sub def
- /trymin ymin ytr def /trymax ymax ytr def
-} def
-
-% rset: set up all data for y axis (again), but including limits and rticks
-% rticksep rticks 0 alldata ymin ymax ylog yextra ydecr yaxis rticklength rset -
-/rset
-{ /rticklength exch def
- /yaxis exch def
- /ydecr exch def
- /yextra exch def
- yaxis exch ticksandlimits
- /ylog exch def /ymax exch def /ymin exch def /rticks exch def
- /yleft ydecr { ymax } { ymin } ifelse def
- /yright ydecr { ymin } { ymax } ifelse def
- /ywidth ysize yextra 2 mul sub def
- /trymin ymin ytr def /trymax ymax ytr def
-} def
-
-% norset: set up data for no rticks
-% - norset -
-/norset
-{ /rticklength 0 def
- /rticks [] def
-} def
-
-% framestyle: print a frame around the graph
-/framestyle
-{ 0 0 moveto xsize 0 lineto xsize ysize lineto
- 0 ysize lineto closepath stroke
- /printxtick /printxlabel xticks xleft printticks
- /printytick /printylabel yticks ymin printticks
- /printrtick /printrlabel rticks ymin printticks
-} def
-
-% nonestyle: print nothing around the graph
-/nonestyle
-{
-} def
-
-% axesstyle: print axes for the graph (unless axis values missing)
-/axesstyle
-{
- xaxis false eq yaxis false eq or
- { framestyle }
- { xaxis yaxis trpoint dup 0 exch moveto xsize exch lineto
- dup 0 moveto ysize lineto stroke
- /printxaxistick /printxaxislabel xticks xleft printticks
- /printyaxistick /printyaxislabel yticks ymin printticks
- } ifelse
-} def
-
-% rundata: run all data sets
-/rundata
-{ alldata
- { gsave
- dup dup dup dup
- 4 get /dopaint exch def
- 3 get /initrun exch def
- 2 get /pairs exch def
- 1 get /points exch def
- 0 get /data exch def
- dopaint
- { data length 4 ge
- { initrun
- newpath
- data 0 get ymin trpoint yextra sub moveto
- 0 2 data length 2 sub
- { dup 1 add
- data exch get /ycurr exch def
- data exch get /xcurr exch def
- xcurr ycurr trpoint lineto
- } for
- data dup length 2 sub get ymin trpoint yextra sub lineto
- closepath fill
- } if
- } if
- initrun
- data length 2 ge
- {
- /xcurr data 0 get def
- /ycurr data 1 get def
- points
- data length 4 ge
- { 2 2 data length 2 sub
- { /xprev xcurr def
- /yprev ycurr def
- dup dup 2 eq /firstpair exch def
- data length 2 sub eq /lastpair exch def
- dup 1 add
- data exch get /ycurr exch def
- data exch get /xcurr exch def
- pairs
- points
- } for
- } if
- } if
- grestore
- } forall
-} def
-
-end
-%%EndResource
-
-%%BeginResource: procset LoutFigPrependGraphic
-% @PrependGraphic file /export/home/6monthspace/jeff/lout.lib/include/diagf.lpg
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% PostScript @SysPrependGraphic file for @Diag Jeffrey H. Kingston %
-% Version 2.0 (includes CIRCUM label) September 1996 %
-% %
-% To assist in avoiding name clashes, the names of all symbols %
-% defined here begin with "ldiag". However, this is not feasible %
-% with user-defined labels and some labels used by users. %
-% %
-% <point> is two numbers, a point. %
-% <length> is one number, a length %
-% <angle> is one number, an angle in degrees %
-% <dashlength> is one number, the preferred length of a dash %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-errordict begin
- /handleerror
- {
- { /Times-Roman findfont 8 pt scalefont setfont
- 0 setgray 4 pt 4 pt moveto
- $error /errorname get
- dup ldiagdict exch known
- { ldiagdict exch get }
- { 50 string cvs } ifelse
- show
- ( Command: ) show
- $error /command get 50 string cvs show
- } stopped {} if
- showpage stop
- } def
-end
-
-% begin diagram: <maxlabels> ldiagbegin -
-% must be defined outside ldiagdict since it loads it
-/ldiagbegin
-{ xsize 0 0 ysize ldiagdict begin
- 5 -1 roll /ldiagmaxlabels exch def
- (@Diag) ldiagpushtagdict
- /OOY ldiagpointdef /OOX ldiagpointdef 0 0 /OOO ldiagpointdef
-} def
-
-% end diagram: - ldiagend -
-/ldiagend
-{ ldiagpoptagdict end
-} def
-
-% concat strings: <string> <string> ldiagconcat <string>
-% must be defined outside ldiagdict since used in ldiagpromotelabels
-/ldiagconcat
-{ 2 copy length exch length add string
- dup 0 4 index putinterval
- dup 3 index length 3 index putinterval
- 3 1 roll pop pop
-} def
-
-/ldiagdebugposy 432 def
-/ldiagdebugposx 72 def
-
-% <string> <int> ldiagdebugprint -
-% must be defined outside ldiagdict since used in arbitrary places
-% print count or <int> stack entries, which ever is the smaller
-/ldiagdebugprint
-{
- exch
- gsave
- initgraphics
- ldiagdebugposy 72 lt
- { /ldiagdebugposx ldiagdebugposx 144 add store
- /ldiagdebugposy 432 store
- }
- {
- /ldiagdebugposy ldiagdebugposy 12 sub store
- } ifelse
- ldiagdebugposx ldiagdebugposy moveto
- /Times-Roman findfont 10 scalefont setfont
- 0 setgray show
- count 1 sub 2 copy lt { pop } { exch pop } ifelse 1 sub
- 0 exch 1 exch
- {
- /ldiagdebugposy ldiagdebugposy 12 sub store
- ldiagdebugposx 12 add ldiagdebugposy moveto
- index 50 string cvs show
- } for
- grestore
-} def
-
-/ldiagdict 200 dict def
-ldiagdict begin
-
-% error messages
-/dictfull (dictfull error: too many labels?) def
-/dictstackoverflow (dictstackoverflow error: labels nested too deeply?) def
-/execstackoverflow (execstackoverflow error: figure nested too deeply?) def
-/limitcheck (limitcheck error: figure nested too deeply or too large?) def
-/syntaxerror (syntaxerror error: syntax error in text of figure?) def
-/typecheck (typecheck error: syntax error in text of figure?) def
-/undefined (undefined error: unknown or misspelt label?) def
-/VMError (VMError error: run out of memory?) def
-
-% push pi onto stack: - ldiagpi <num>
-/ldiagpi 3.14159 def
-
-% push e onto stack: - ldiage <num>
-/ldiage 2.71828 def
-
-% arc directions
-/clockwise false def
-/anticlockwise true def
-
-% test equality between two angles: <angle> <angle> ldiagangleeq <bool>
-/ldiagangleeq { ldiagfixangle exch ldiagfixangle eq } def
-
-% test inequality between two angles: <angle> <angle> ldiaganglene <bool>
-/ldiaganglene { ldiagangleeq not } def
-
-% maximum of two numbers: <num> <num> ldiagmax <num>
-/ldiagmax { 2 copy gt { pop } { exch pop } ifelse } def
-
-% minimum of two numbers: <num> <num> ldiagmin <num>
-/ldiagmin { 2 copy lt { pop } { exch pop } ifelse } def
-
-% add two points: <point> <point> ldiagpadd <point>
-/ldiagpadd
-{
- % (Entering padd) 4 ldiagdebugprint
- exch 3 1 roll add 3 1 roll add exch
- % (Leaving padd) 2 ldiagdebugprint
-} def
-
-% subtract first point from second: <point> <point> ldiagpsub <point>
-/ldiagpsub { 3 2 roll sub 3 1 roll exch sub exch } def
-
-% max two points: <point> <point> ldiagpmax <point>
-/ldiagpmax { exch 3 1 roll ldiagmax 3 1 roll ldiagmax exch } def
-
-% min two points: <point> <point> ldiagpmin <point>
-/ldiagpmin { exch 3 1 roll ldiagmin 3 1 roll ldiagmin exch } def
-
-% scalar multiplication: <point> <num> ldiagpmul <point>
-/ldiagpmul { dup 3 1 roll mul 3 1 roll mul exch } def
-
-% point at angle and distance: <point> <length> <angle> ldiagatangle <point>
-/ldiagatangle { 2 copy cos mul 3 1 roll sin mul ldiagpadd } def
-
-% angle from one point to another: <point> <point> ldiagangleto <angle>
-/ldiagangleto { ldiagpsub 2 copy 0 eq exch 0 eq and {pop} {exch atan} ifelse } def
-
-% distance between two points: <point> <point> ldiagdistance <length>
-/ldiagdistance { ldiagpsub dup mul exch dup mul add sqrt } def
-
-% stroke a solid line: <length> <dashlength> ldiagsolid -
-/ldiagsolid
-{ pop pop [] 0 setdash 1 setlinecap stroke
-} def
-
-% stroke a dashed line: <length> <dashlength> ldiagdashed -
-/ldiagdashed
-{ 2 copy div 2 le 1 index 0 le or
- { exch pop 1 pt ldiagmax [ exch dup ] 0 setdash }
- { dup [ exch 4 2 roll 2 copy div
- 1 sub 2 div ceiling dup 4 1 roll
- 1 add mul sub exch div ] 0 setdash
- } ifelse 0 setlinecap stroke
-} def
-
-% stroke a cdashed line: <length> <dashlength> ldiagcdashed -
-/ldiagcdashed
-{ % (Entering ldiagcdashed) 2 ldiagdebugprint
- 2 copy le 1 index 0 le or
- { exch pop 1 pt ldiagmax [ exch dup ] dup 0 get 2 div setdash }
- { dup [ 4 2 roll exch 2 copy exch div
- 2 div ceiling div 1 index sub
- ] exch 2 div setdash
- } ifelse 0 setlinecap stroke
- % (Leaving ldiagcdashed) 0 ldiagdebugprint
-} def
-
-% stroke a dotted line: <length> <dashlength> ldiagdotted -
-/ldiagdotted
-{ 2 copy le 1 index 0 le or
- { exch pop 1 pt ldiagmax [ exch 0 exch ] 0 setdash }
- { 1 index exch div ceiling div
- [ 0 3 2 roll ] 0 setdash
- } ifelse 1 setlinecap stroke
-} def
-
-% stroke a noline line: <length> <dashlength> ldiagnoline -
-/ldiagnoline
-{ pop pop
-} def
-
-% painting (i.e. filling): - ldiagwhite - (etc.)
-/ldiagnopaint { } def
-/ldiagnochange { fill } def
-/ldiagdarkblue { 0.0 0.0 0.5 setrgbcolor fill } def
-/ldiagblue { 0.0 0.0 1.0 setrgbcolor fill } def
-/ldiaglightblue { 0.5 0.5 1.0 setrgbcolor fill } def
-/ldiagdarkgreen { 0.0 0.5 0.0 setrgbcolor fill } def
-/ldiaggreen { 0.0 1.0 0.0 setrgbcolor fill } def
-/ldiaglightgreen { 0.5 1.0 0.5 setrgbcolor fill } def
-/ldiagdarkred { 0.5 0.0 0.0 setrgbcolor fill } def
-/ldiagred { 1.0 0.0 0.0 setrgbcolor fill } def
-/ldiaglightred { 1.0 0.5 0.5 setrgbcolor fill } def
-/ldiagdarkcyan { 0.0 0.5 0.5 setrgbcolor fill } def
-/ldiagcyan { 0.0 1.0 1.0 setrgbcolor fill } def
-/ldiaglightcyan { 0.5 1.0 1.0 setrgbcolor fill } def
-/ldiagdarkmagenta { 0.5 0.0 0.5 setrgbcolor fill } def
-/ldiagmagenta { 1.0 0.0 1.0 setrgbcolor fill } def
-/ldiaglightmagenta { 1.0 0.5 1.0 setrgbcolor fill } def
-/ldiagdarkyellow { 0.5 0.5 0.0 setrgbcolor fill } def
-/ldiagyellow { 1.0 1.0 0.0 setrgbcolor fill } def
-/ldiaglightyellow { 1.0 1.0 0.5 setrgbcolor fill } def
-/ldiagdarkgray { 0.2 0.2 0.2 setrgbcolor fill } def
-/ldiaggray { 0.5 0.5 0.5 setrgbcolor fill } def
-/ldiaglightgray { 0.8 0.8 0.8 setrgbcolor fill } def
-/ldiagdarkgrey { 0.2 0.2 0.2 setrgbcolor fill } def
-/ldiaggrey { 0.5 0.5 0.5 setrgbcolor fill } def
-/ldiaglightgrey { 0.8 0.8 0.8 setrgbcolor fill } def
-/ldiagblack { 0.0 0.0 0.0 setrgbcolor fill } def
-/ldiagwhite { 1.0 1.0 1.0 setrgbcolor fill } def
-
-% shape and labels of the @Box symbol
-/ldiagbox
-{
- 0 0 /SW ldiagpointdef
- xsize 0 /SE ldiagpointdef
- xsize ysize /NE ldiagpointdef
- 0 ysize /NW ldiagpointdef
- SE 0.5 ldiagpmul /S ldiagpointdef
- NW 0.5 ldiagpmul /W ldiagpointdef
- W SE ldiagpadd /E ldiagpointdef
- S NW ldiagpadd /N ldiagpointdef
- NE 0.5 ldiagpmul /CTR ldiagpointdef
-
- 0 dg /S@ANGLE ldiagangledef
- 45 dg /SE@ANGLE ldiagangledef
- 90 dg /E@ANGLE ldiagangledef
- 135 dg /NE@ANGLE ldiagangledef
- 180 dg /N@ANGLE ldiagangledef
- 225 dg /NW@ANGLE ldiagangledef
- 270 dg /W@ANGLE ldiagangledef
- 315 dg /SW@ANGLE ldiagangledef
-
- [ CTR NE ldiagpsub /ldiagboxcircum cvx ] ldiagcircumdef
- SW SE NE NW SW
-} def
-
-% shape and labels of the @CurveBox symbol
-% <margin> ldiagcurvebox <shape>
-/ldiagcurvebox
-{
-
- % (Entering ldiagcurvebox) 1 ldiagdebugprint
- ldiagdecodelength /cbmgn exch def
-
- xsize 0.5 mul ysize 0.5 mul /CTR ldiagpointdef
- xsize 0.5 mul 0 /S ldiagpointdef
- xsize ysize 0.5 mul /E ldiagpointdef
- xsize 0.5 mul ysize /N ldiagpointdef
- 0 ysize 0.5 mul /W ldiagpointdef
-
- cbmgn 0.293 mul cbmgn 0.293 mul /SW ldiagpointdef
- xsize cbmgn 0.293 mul sub cbmgn 0.293 mul /SE ldiagpointdef
- xsize cbmgn 0.293 mul sub ysize cbmgn 0.293 mul sub /NE ldiagpointdef
- cbmgn 0.293 mul ysize cbmgn 0.293 mul sub /NW ldiagpointdef
-
- 0 dg /S@ANGLE ldiagangledef
- 45 dg /SE@ANGLE ldiagangledef
- 90 dg /E@ANGLE ldiagangledef
- 135 dg /NE@ANGLE ldiagangledef
- 180 dg /N@ANGLE ldiagangledef
- 225 dg /NW@ANGLE ldiagangledef
- 270 dg /W@ANGLE ldiagangledef
- 315 dg /SW@ANGLE ldiagangledef
-
- [ xsize ysize 0.5 ldiagpmul cbmgn /ldiagcurveboxcircum cvx ] ldiagcircumdef
-
- cbmgn 0
- xsize cbmgn sub 0
- [ xsize cbmgn sub cbmgn ]
- xsize cbmgn
- xsize ysize cbmgn sub
- [ xsize cbmgn sub ysize cbmgn sub ]
- xsize cbmgn sub ysize
- cbmgn ysize
- [ cbmgn ysize cbmgn sub ]
- 0 ysize cbmgn sub
- 0 cbmgn
- [ cbmgn cbmgn ]
- cbmgn 0
-
- % (Leaving ldiagcurvebox) 0 ldiagdebugprint
-} def
-
-% shadow of the @ShadowBox symbol
-% its shape and labels are done, somewhat inaccurately, with ldiagbox
-% <shadowmargin> ldiagshadow -
-/ldiagshadow
-{
- /lfshm exch def
-
- lfshm 0 moveto
- 0 lfshm neg rlineto
- xsize 0 rlineto
- 0 ysize rlineto
- lfshm neg 0 rlineto
- xsize 0 lineto
- closepath fill
-
-} def
-
-% shape and labels of the @Square symbol
-/ldiagsquare
-{
- xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
- CTR xsize xsize ysize ysize ldiagpmax 0.5 ldiagpmul ldiagpadd /NE ldiagpointdef
- CTR 0 0 CTR NE ldiagdistance 135 ldiagatangle ldiagpadd /NW ldiagpointdef
- CTR 0 0 CTR NE ldiagdistance 225 ldiagatangle ldiagpadd /SW ldiagpointdef
- CTR 0 0 CTR NE ldiagdistance 315 ldiagatangle ldiagpadd /SE ldiagpointdef
- SW 0.5 ldiagpmul SE 0.5 ldiagpmul ldiagpadd /S ldiagpointdef
- NW 0.5 ldiagpmul NE 0.5 ldiagpmul ldiagpadd /N ldiagpointdef
- SW 0.5 ldiagpmul NW 0.5 ldiagpmul ldiagpadd /W ldiagpointdef
- SE 0.5 ldiagpmul NE 0.5 ldiagpmul ldiagpadd /E ldiagpointdef
-
- 0 dg /S@ANGLE ldiagangledef
- 45 dg /SE@ANGLE ldiagangledef
- 90 dg /E@ANGLE ldiagangledef
- 135 dg /NE@ANGLE ldiagangledef
- 180 dg /N@ANGLE ldiagangledef
- 225 dg /NW@ANGLE ldiagangledef
- 270 dg /W@ANGLE ldiagangledef
- 315 dg /SW@ANGLE ldiagangledef
-
- [ CTR NE ldiagpsub /ldiagboxcircum cvx ] ldiagcircumdef
- SW SE NE NW SW
-} def
-
-% shape and labels of the @Diamond symbol
-/ldiagdiamond
-{
- xsize 0 0.5 ldiagpmul /S ldiagpointdef
- 0 ysize 0.5 ldiagpmul /W ldiagpointdef
- S W ldiagpadd /CTR ldiagpointdef
- CTR W ldiagpadd /N ldiagpointdef
- CTR S ldiagpadd /E ldiagpointdef
- E N ldiagpadd 0.5 ldiagpmul /NE ldiagpointdef
- N W ldiagpadd 0.5 ldiagpmul /NW ldiagpointdef
- S W ldiagpadd 0.5 ldiagpmul /SW ldiagpointdef
- S E ldiagpadd 0.5 ldiagpmul /SE ldiagpointdef
-
- 0 dg /S@ANGLE ldiagangledef
- 90 dg /E@ANGLE ldiagangledef
- 180 dg /N@ANGLE ldiagangledef
- 270 dg /W@ANGLE ldiagangledef
- S E ldiagangleto /SE@ANGLE ldiagangledef
- E N ldiagangleto /NE@ANGLE ldiagangledef
- N W ldiagangleto /NW@ANGLE ldiagangledef
- W S ldiagangleto /SW@ANGLE ldiagangledef
-
- [ xsize ysize 0.5 ldiagpmul /ldiagdiamondcircum cvx ] ldiagcircumdef
- S E N W S
-} def
-
-% shape and labels of the @Ellipse symbol
-/ldiagellipse
-{
- xsize 0 0.5 ldiagpmul /S ldiagpointdef
- 0 ysize 0.5 ldiagpmul /W ldiagpointdef
- S W ldiagpadd /CTR ldiagpointdef
- CTR W ldiagpadd /N ldiagpointdef
- CTR S ldiagpadd /E ldiagpointdef
- CTR xsize 0 0.3536 ldiagpmul ldiagpadd 0 ysize 0.3536 ldiagpmul ldiagpadd /NE ldiagpointdef
- 0 ysize 0.3536 ldiagpmul CTR xsize 0 0.3536 ldiagpmul ldiagpadd ldiagpsub /SE ldiagpointdef
- xsize 0 0.3536 ldiagpmul CTR ldiagpsub 0 ysize 0.3536 ldiagpmul ldiagpadd /NW ldiagpointdef
- 0 ysize 0.3536 ldiagpmul xsize 0 0.3536 ldiagpmul CTR ldiagpsub ldiagpsub /SW ldiagpointdef
- [ xsize ysize 0.5 ldiagpmul /ldiagellipsecircum cvx ] ldiagcircumdef
-
- 0 dg /S@ANGLE ldiagangledef
- 90 dg /E@ANGLE ldiagangledef
- 180 dg /N@ANGLE ldiagangledef
- 270 dg /W@ANGLE ldiagangledef
-
- S E ldiagangleto /SE@ANGLE ldiagangledef
- E N ldiagangleto /NE@ANGLE ldiagangledef
- N W ldiagangleto /NW@ANGLE ldiagangledef
- W S ldiagangleto /SW@ANGLE ldiagangledef
-
- S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
-} def
-
-% shape and labels of the @Circle symbol
-/ldiagcircle
-{
- xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
- CTR xsize 0 ysize 0 ldiagpmax 0.5 ldiagpmul ldiagpadd /E ldiagpointdef
- CTR 0 0 CTR E ldiagdistance 45 ldiagatangle ldiagpadd /NE ldiagpointdef
- CTR 0 0 CTR E ldiagdistance 90 ldiagatangle ldiagpadd /N ldiagpointdef
- CTR 0 0 CTR E ldiagdistance 135 ldiagatangle ldiagpadd /NW ldiagpointdef
- CTR 0 0 CTR E ldiagdistance 180 ldiagatangle ldiagpadd /W ldiagpointdef
- CTR 0 0 CTR E ldiagdistance 225 ldiagatangle ldiagpadd /SW ldiagpointdef
- CTR 0 0 CTR E ldiagdistance 270 ldiagatangle ldiagpadd /S ldiagpointdef
- CTR 0 0 CTR E ldiagdistance 315 ldiagatangle ldiagpadd /SE ldiagpointdef
- [ S E ldiagpsub /ldiagellipsecircum cvx ] ldiagcircumdef
-
- 0 dg /S@ANGLE ldiagangledef
- 45 dg /SE@ANGLE ldiagangledef
- 90 dg /E@ANGLE ldiagangledef
- 135 dg /NE@ANGLE ldiagangledef
- 180 dg /N@ANGLE ldiagangledef
- 225 dg /NW@ANGLE ldiagangledef
- 270 dg /W@ANGLE ldiagangledef
- 315 dg /SW@ANGLE ldiagangledef
-
- S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
-} def
-
-% shape and labels of the @VLine and @VArrow symbols
-/ldiagvline
-{
- xmark ysize ldiagprevious /FROM ldiagpointdef
- xmark 0 ldiagprevious /TO ldiagpointdef
-} def
-
-% points of a polygon around base with given no of sides, vert init angle:
-% <sides> <angle> ldiagpolygon <point> ... <point>
-/ldiagpolygon
-{ exch round cvi exch
- xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
- 90 sub CTR 2 copy ldiagmax 5 3 roll
- [ 4 copy pop /ldiagpolycircum cvx ] ldiagcircumdef
- exch dup 360 exch div exch
- 1 1 3 2 roll
- { 4 string cvs (P) exch ldiagconcat
- 3 copy exch pop (@ANGLE) ldiagconcat cvn exch 90 add exch ldiagangledef
- cvn 6 copy pop pop ldiagatangle 2 copy 10 2 roll
- 3 2 roll ldiagpointdef
- dup 3 1 roll add exch
- } for
- pop ldiagatangle
-} def
-
-% shape and labels of the @Isosceles triangle symbol
-/ldiagisosceles
-{
- xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
- 0 0 /SW ldiagpointdef
- xsize 0 /SE ldiagpointdef
- xsize 0.5 mul ysize /N ldiagpointdef
- xsize 0.5 mul 0 /S ldiagpointdef
- SE 0.5 ldiagpmul N 0.5 ldiagpmul ldiagpadd /NE ldiagpointdef
- SW 0.5 ldiagpmul N 0.5 ldiagpmul ldiagpadd /NW ldiagpointdef
-
- [ xsize ysize /ldiagisoscelescircum cvx ] ldiagcircumdef
-
- 0 dg /SW@ANGLE ldiagangledef
- 0 dg /SE@ANGLE ldiagangledef
- 180 dg /N@ANGLE ldiagangledef
- 0 dg /S@ANGLE ldiagangledef
- SE N ldiagangleto /NE@ANGLE ldiagangledef
- N SW ldiagangleto /NW@ANGLE ldiagangledef
-
- SW SE N SW
-} def
-
-% next array element: <array> <index> ldiaggetnext <array> <index> <any> true
-% or <array> <index> false
-/ldiaggetnext
-{ 2 copy exch length ge
- { false }
- { 2 copy get exch 1 add exch true } ifelse
-} def
-
-% check whether thing is number: <any> ldiagisnumbertype <any> <bool>
-/ldiagisnumbertype
-{ dup type dup
- /integertype eq exch /realtype eq or
-} def
-
-% check whether thing is an array: <any> ldiagisarraytype <any> <bool>
-/ldiagisarraytype { dup type /arraytype eq } def
-
-% check whether thing is an array: <any> ldiagisnametype <any> <bool>
-/ldiagisnametype { dup type /nametype eq } def
-
-% get next item: <array> <index> ldiaggetnextitem <array> <index> 0
-% or <array> <index> <array> 1
-% or <array> <index> <point> 2
-/ldiaggetnextitem
-{ ldiaggetnext
- { ldiagisarraytype
- { 1
- }
- { ldiagisnumbertype
- { 3 1 roll
- ldiaggetnext
- { ldiagisnumbertype
- { 4 3 roll exch 2
- }
- { pop 3 2 roll pop 0
- } ifelse
- }
- { 3 2 roll pop 0
- } ifelse
- }
- { pop 0
- } ifelse
- } ifelse
- }
- { 0
- } ifelse
-} def
-
-% approximate equality: num1 num2 approxeq <boolean>
-/approxeq
-{ dup 0 eq
- { pop 0 eq
- }
- { dup 3 1 roll sub exch div abs 0.001 lt
- } ifelse
-} def
-
-% set arc path: bool x1 y1 x2 y2 x0 y0 ldiagsetarc <angle> <angle> <dist>
-% the path goes from x1 y1 to x2 y2 about centre x0 y0,
-% anticlockwise if bool is true else clockwise.
-% The orientations of backwards pointing and forwards pointing
-% arrowheads are returned in the two angles, and
-% the length of the arc is returned in <dist>.
-/ldiagsetarc
-{
- % (Entering ldiagsetarc) 7 ldiagdebugprint
- 20 dict begin
- matrix currentmatrix 8 1 roll
- 2 copy translate 2 copy 8 2 roll
- 4 2 roll ldiagpsub 6 2 roll ldiagpsub
- dup /y1 exch def dup mul /y1s exch def
- dup /x1 exch def dup mul /x1s exch def
- dup /y2 exch def dup mul /y2s exch def
- dup /x2 exch def dup mul /x2s exch def
- /dist1 0 0 x1 y1 ldiagdistance def
- /dist2 0 0 x2 y2 ldiagdistance def
-
- y1s y2s approxeq
- { -1
- }
- { y1s x2s mul y2s x1s mul sub y1s y2s sub div
- } ifelse
- /da exch def
-
- x1s x2s approxeq
- { -1
- }
- { x1s y2s mul x2s y1s mul sub x1s x2s sub div
- } ifelse
- /db exch def
-
- da 0 gt db 0 gt and
- {
- % ( case 1, ellipse) 0 ldiagdebugprint
- /LMax da sqrt db sqrt ldiagmax def
- /scalex da sqrt LMax div def
- /scaley db sqrt LMax div def
- scalex scaley scale
- 0 0 LMax
- 0 0 x1 scalex mul y1 scaley mul ldiagangleto
- 0 0 x2 scalex mul y2 scaley mul ldiagangleto
- 2 copy eq { 360 add } if
- 2 copy 8 2 roll
- 5 index { arc } { arcn } ifelse
- 2 index 1 index
- { 90 sub } { 90 add } ifelse
- dup sin scaley mul exch cos scalex mul atan
- 2 index 2 index
- { 90 add } { 90 sub } ifelse
- dup sin scaley mul exch cos scalex mul atan
- 5 2 roll % res1 res2 ang1 ang2 anticlockwise
- { exch sub } { sub } ifelse
- dup 0 le { 360 add } if ldiagpi mul LMax mul 180 div
- }
- {
- dist1 dist2 approxeq
- % x1 y1 dist1 ( x1 y1, d) 3 ldiagdebugprint pop pop pop
- % x2 y2 dist2 ( x2 y2, d) 3 ldiagdebugprint pop pop pop
- {
- % ( case 2, circle) 0 ldiagdebugprint
- 0 0
- dist1
- 0 0 x1 y1 ldiagangleto
- 0 0 x2 y2 ldiagangleto
- 2 copy eq { 360 add } if
- 2 copy 8 2 roll
- 5 index { arc } { arcn } ifelse
- 2 index 1 index
- { 90 sub } { 90 add } ifelse
- 2 index 2 index
- { 90 add } { 90 sub } ifelse
- 5 2 roll % res1 res2 ang1 ang2 clockwise
- { exch sub } { sub } ifelse
- dup 0 le { 360 add } if
- ldiagpi mul dist1 mul 180 div
- }
- {
- % ( case 3, line) 0 ldiagdebugprint
- x2 y2 lineto pop
- x2 y2 x1 y1 ldiagangleto
- x1 y1 x2 y2 ldiagangleto
- x1 y1 x2 y2 ldiagdistance
- } ifelse
- } ifelse
- 4 -1 roll setmatrix
- end
- % (Leaving ldiagsetarc) 3 ldiagdebugprint
-} def
-
-% ldiagsetcurve: set up a Bezier curve from x0 y0 to x3 y3
-% and return arrowhead angles and length of curve (actually 0)
-% x0 y0 x1 y1 x2 y2 x3 y3 ldiagsetcurve <angle> <angle> <length>
-/ldiagsetcurve
-{ 8 copy curveto pop pop
- ldiagangleto
- 5 1 roll
- 4 2 roll ldiagangleto
- exch
- 0
-} def
-
-% ldiagsetpath: convert a Diag path into a PostScript path
-% [ shape ] ldiagsetpath
-/ldiagsetpath
-{
- 10 dict begin
- 0 newpath
- /prevseen false def
- /curveseen false def
- { ldiaggetnextitem
- dup 0 eq { pop exit }
- { 1 eq
- { /curveseen true def
- /curve exch def
- curve length 0 eq { /curveseen false def } if
- }
- { /ycurr exch def
- /xcurr exch def
- prevseen
- { curveseen
- { curve length 4 eq
- { xprev yprev
- curve 0 get curve 1 get
- curve 2 get curve 3 get
- xcurr ycurr
- ldiagsetcurve pop pop pop
- }
- { xprev yprev xcurr ycurr
- curve length 1 ge { curve 0 get } { 0 } ifelse
- curve length 2 ge { curve 1 get } { 0 } ifelse
- curve length 3 ge { curve 2 get } { true } ifelse
- 7 1 roll
- ldiagsetarc pop pop pop
- } ifelse
- }
- { xcurr ycurr lineto
- } ifelse
- }
- { xcurr ycurr moveto
- } ifelse
- /xprev xcurr def
- /yprev ycurr def
- /prevseen true def
- /curveseen false def
- } ifelse
- } ifelse
- } loop pop pop
- end
-} def
-
-% ldiagpaintpath: paint a path of the given shape
-% /paint [ shape ] ldiagpaintpath -
-/ldiagpaintpath
-{
- ldiagsetpath cvx exec
-} def
-
-% stroke a path of the given shape in the given linestyle and dash length.
-% Return the origin and angle of the backward and forward arrow heads.
-% dashlength /linestyle [shape] ldiagdopath [<point> <angle>] [<point> <angle>]
-/ldiagdopath
-{
- 10 dict begin
- 0
- /prevseen false def
- /curveseen false def
- /backarrow [] def
- /fwdarrow [] def
- {
- ldiaggetnextitem
- dup 0 eq { pop exit }
- {
- 1 eq
- { /curveseen true def
- /curve exch def
- curve length 0 eq { /prevseen false def } if
- }
- { /ycurr exch def
- /xcurr exch def
- prevseen
- { newpath xprev yprev moveto
- curveseen
- { curve length 4 eq
- { xprev yprev
- curve 0 get curve 1 get
- curve 2 get curve 3 get
- xcurr ycurr ldiagsetcurve
- }
- { xprev yprev xcurr ycurr
- curve length 1 ge { curve 0 get } { 0 } ifelse
- curve length 2 ge { curve 1 get } { 0 } ifelse
- curve length 3 ge { curve 2 get } { true } ifelse
- 7 1 roll
- ldiagsetarc
- } ifelse
- }
- { xcurr ycurr lineto
- xcurr ycurr xprev yprev ldiagangleto dup 180 sub
- xprev yprev xcurr ycurr ldiagdistance
- } ifelse
- 6 index 6 index cvx exec
- [ xprev yprev 5 -1 roll ]
- backarrow length 0 eq
- { /backarrow exch def }
- { pop } ifelse
- [ xcurr ycurr 4 -1 roll ] /fwdarrow exch def
- } if
- /xprev xcurr def
- /yprev ycurr def
- /prevseen true def
- /curveseen false def
- } ifelse
- } ifelse
- } loop
- pop pop pop pop
- backarrow length 0 eq { [ 0 0 0 ] } { backarrow } ifelse
- fwdarrow length 0 eq { [ 0 0 0 ] } { fwdarrow } ifelse
- end
-} def
-
-
-% stroke a path of the given shape in the given linestyle and dash length.
-% dashlength [ /linestyle ] [shape] ldiagdosegpath -
-/ldiagdosegpath
-{
- 12 dict begin
- 1 index /seg exch def
- 1 index length /seglength exch def
- 0 /segcount exch def
- 0
- /prevseen false def
- /curveseen false def
- /backarrow [] def
- /fwdarrow [] def
- {
- ldiaggetnextitem
- dup 0 eq { pop exit }
- {
- 1 eq
- { /curveseen true def
- /curve exch def
- curve length 0 eq { /prevseen false def } if
- }
- { /ycurr exch def
- /xcurr exch def
- prevseen
- { newpath xprev yprev moveto
- curveseen
- { curve length 4 eq
- { xprev yprev
- curve 0 get curve 1 get
- curve 2 get curve 3 get
- xcurr ycurr ldiagsetcurve
- }
- { xprev yprev xcurr ycurr
- curve length 1 ge { curve 0 get } { 0 } ifelse
- curve length 2 ge { curve 1 get } { 0 } ifelse
- curve length 3 ge { curve 2 get } { true } ifelse
- 7 1 roll
- ldiagsetarc
- } ifelse
- }
- { xcurr ycurr lineto
- xcurr ycurr xprev yprev ldiagangleto dup 180 sub
- xprev yprev xcurr ycurr ldiagdistance
- } ifelse
- 6 index seg segcount seglength mod get cvx exec
- /segcount segcount 1 add def
- [ xprev yprev 5 -1 roll ]
- backarrow length 0 eq
- { /backarrow exch def }
- { pop } ifelse
- [ xcurr ycurr 4 -1 roll ] /fwdarrow exch def
- } if
- /xprev xcurr def
- /yprev ycurr def
- /prevseen true def
- /curveseen false def
- } ifelse
- } ifelse
- } loop
- pop pop pop pop
- end
-} def
-
-% ldiagnodebegin: start of node parameters
-% ldiagnodebegin -
-/ldiagnodebegin
-{ % (Entering ldiagnodebegin) 0 ldiagdebugprint
- ldiagmaxlabels dict begin
-} def
-
-% ldiagnodeend: end of node parameters (so do the node)
-% <outline> <dashlength> <style> <linewidth> <paint> ldiagnodeend -
-/ldiagnodeend
-{
- % (Entering ldiagnodeend) 0 ldiagdebugprint
- end % matches begin in ldiagnodebegin
- 4 index gsave ldiagpaintpath grestore
- 3 index ldiagsetpath clip newpath
- 2 mul setlinewidth
- 3 -1 roll ldiagdosegpath
- % (Leaving ldiagnodeend) 0 ldiagdebugprint
-} def
-
-% ldiaglinkbegin: start of link parameters
-% <direct> ldiaglinkbegin -
-/ldiaglinkbegin
-{ ldiagmaxlabels dict begin
- 1 eq /direct exch def
-} def
-
-% ldiaglinkend: end of link parameters (so do the link)
-% <outline> <dashlength> <style> <linewidth> ldiaglinkend -
-/ldiaglinkend
-{
- end % matches begin in ldiaglinkbegin
- setlinewidth
- 3 -1 roll ldiagdosegpath
-} def
-
-% ldiagdoarrow: draw an arrow head of given form
-% dashlength /lstyle /pstyle hfrac height width [ <point> <angle> ] ldiagdoarrow -
-/ldiagdoarrow
-{ matrix currentmatrix 8 1 roll
- dup 0 get 1 index 1 get translate
- 2 get rotate
- [ 2 index neg 2 index 0 0
- 3 index 3 index neg
- 1 index 10 index mul 0
- 7 index 7 index ]
- 4 1 roll pop pop pop
- dup 3 1 roll
- gsave ldiagpaintpath grestore ldiagdopath pop pop
- setmatrix
-} def
-
-% arrow head styles
-/ldiagopen 0.0 def
-/ldiaghalfopen 0.5 def
-/ldiagclosed 1.0 def
-
-% stroke no arrows, forward, back, and both
-/ldiagnoarrow { pop pop pop pop pop pop pop pop } def
-/ldiagforward { 7 -1 roll ldiagdoarrow pop } def
-/ldiagback { 8 -2 roll pop ldiagdoarrow } def
-/ldiagboth { 8 -1 roll 7 copy ldiagdoarrow pop 7 -1 roll ldiagdoarrow } def
-
-% ldiagprevious: return previous point on path
-/ldiagprevious
-{ ldiagisnumbertype
- { 2 copy }
- { ldiagisarraytype
- { 2 index 2 index }
- { 0 0 }
- ifelse
- } ifelse
-} def
-
-% Tag dictionary operators
-%
-% Diag's tag dictionaries are kept on the same stack as other dictionaries,
-% since there is nowhere else to put them. However, they are managed like
-% a separate stack using the following operators:
-%
-% <tag> ldiagpushtagdict - Push a new, empty tag dictionary
-% ldiagtoptagdict dict Find the top tag dictionary
-% ldiagpoptagdict - Pop and destroy the top tag dictionary
-% ldiagpopuptagdict - Pop top tag dict and promote its entries
-% ldiagdebugtagdict - Debug print of dictionary stack
-%
-% They are distinguished from other dictionaries by containing /ldiagtagdict,
-% whose value is the <tag> which is used by ldiagpopuptagdict,
-% and they are hopefully never the target of any non-tag definition because
-% they are never the top dictionary, since push places the new dict second.
-
-/ldiagpushtagdict
-{ ldiagmaxlabels dict dup
- currentdict end exch begin begin
- exch /ldiagtagdict exch put
-} def
-
-/ldiagtoptagdict
-{ /ldiagtagdict where not
- { (Diag internal error: no tag dictionary) show stop
- } if
-} def
-
-/ldiagpoptagdict
-{
- % (Entering poptagdict) 0 ldiagdebugprint
- % ldiagdebugtagdict
- mark
- { currentdict end
- dup /ldiagtagdict known
- { exit
- } if
- } loop
- pop
- counttomark
- { begin
- } repeat
- pop
- % (Leaving poptagdict) 0 ldiagdebugprint
- % ldiagdebugtagdict
-} def
-
-% promote labels from top tag dictionary to second top tag dictionary
-% each prefixed by <string>@ if <string> (value of /ldiagtagdict) is not empty
-% - ldiagpopuptagdict -
-/ldiagpopuptagdict
-{
- ldiagtagdict
- % (Entering ldiagpopuptagdict) 1 ldiagdebugprint
- % ldiagdebugtagdict
- ldiagtoptagdict ldiagpoptagdict ldiagtoptagdict exch
- { exch 50 string cvs 3 index
- dup length 0 ne
- { (@) ldiagconcat
- } if
- exch ldiagconcat cvn exch 2 index 3 1 roll put
- } forall
- pop pop
- % (Leaving ldiagpopuptagdict) 0 ldiagdebugprint
- % ldiagdebugtagdict
-} def
-
-% debug tag dictionary stack
-/ldiagdebugtagdict
-{ (Entering ldiagdebugtagdict) 0 ldiagdebugprint
- 30 array dictstack
- { dup /ldiagtagdict known
- { dup /ldiagtagdict get 0 ldiagdebugprint
- { pop 50 string cvs ( ) exch ldiagconcat
- dup 0 ldiagdebugprint
- pop
- }
- forall
- }
- { pop (other) 0 ldiagdebugprint
- } ifelse
- } forall
- (Leaving ldiagdebugtagdict) 0 ldiagdebugprint
-} def
-
-% label a point in top tag dictionary: <point> /name ldiagpointdef -
-/ldiagpointdef
-{
- % (Entering ldiagpointdef) 3 ldiagdebugprint
- [ 4 2 roll transform /itransform cvx ] cvx
- ldiagtoptagdict 3 1 roll put
- % (Leaving ldiagpointdef) 0 ldiagdebugprint
-} def
-
-% label an angle in top tag dictionary: <angle> /name ldiagangledef -
-/ldiagangledef
-{
- % (Entering ldiagangledef) 2 ldiagdebugprint
- exch ldiagfixangle ldiagtoptagdict 3 1 roll put
- % (Leaving ldiagangledef) 0 ldiagdebugprint
-} def
-
-% add CIRCUM operator with this body: <array> ldiagcircumdef -
-/ldiagcircumdef
-{ % (Entering ldiagcircumdef) 1 ldiagdebugprint
- /CIRCUM exch cvx
- ldiagtoptagdict 3 1 roll put
- % currentdict end
- % 3 1 roll
- % def
- % begin
- % (Leaving ldiagcircumdef) 0 ldiagdebugprint
-} def
-
-% show points (except CIRCUM and ANGLE): - ldiagshowpoints -
-/ldiagshowpoints
-{
- % (Entering ldiagshowpoints) 0 ldiagdebugprint
- ldiagtoptagdict
- { 1 index 50 string cvs
- (ldiagdebugpos) search
- { pop pop pop pop pop }
- {
- (CIRCUM) search % if CIRCUM in key
- { pop pop pop pop pop }
- {
- (ANGLE) search % if ANGLE in key
- {
- pop pop pop pop pop
- }
- {
- (ldiagtagdict) search
- {
- pop pop pop pop pop
- }
- {
- pop cvx exec
- newpath 2.0 pt 0 360 arc 0 setgray fill pop
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } forall
- % (Leaving ldiagshowpoints) 0 ldiagdebugprint
-} def
-
-
-/ldiagshowtags
-{
- % (Entering ldiagshowtags) 0 ldiagdebugprint
- ldiagtoptagdict
- { 1 index 50 string cvs
- % dup 0 ldiagdebugprint
- (ldiagdebugpos) search
- { pop pop pop pop pop }
- {
- (CIRCUM) search % if CIRCUM in key
- { pop pop pop pop pop }
- {
- (ANGLE) search % if ANGLE in key
- {
- pop pop pop pop pop
- }
- {
- (ldiagtagdict) search
- {
- pop pop pop pop pop
- }
- {
- pop cvx exec 2 copy
- gsave
- newpath 2.0 pt 0 360 arc 0 setgray fill
- /Times-Roman findfont 8 pt scalefont setfont
- translate 40 rotate 0.2 cm 0.1 cm moveto 20 string cvs show
- grestore
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } forall
- % (Leaving ldiagshowtags) 0 ldiagdebugprint
-} def
-
-
-% show angles: - ldiagshowangles -
-/ldiagshowangles
-{
- % (Entering ldiagshowangles) 0 ldiagdebugprint
- ldiagtoptagdict
- { 1 index 20 string cvs
- % dup 0 ldiagdebugprint
- (ldiagdebugpos) search
- { pop pop pop pop pop }
- {
- (ldiagtagdict) search
- {
- pop pop pop pop pop
- }
- {
- (CIRCUM) search % if CIRCUM in key
- { pop pop pop pop pop }
- {
- (@ANGLE) search % if ANGLE in key, draw the angle at the point
- {
- % (showing ANGLE) 5 ldiagdebugprint
- gsave exch pop exch pop cvx
- % (about to execute) 1 ldiagdebugprint
- exec translate rotate 0.8 0.8 scale pop
- newpath 0 0 2.0 pt 0 360 arc 0 setgray fill
- newpath 4 pt 0 moveto 9 pt 0 lineto
- 9 pt 1.5 pt lineto 11 pt 0 lineto 9 pt -1.5 pt lineto
- 9 pt 0 lineto [] 0 setdash 4 pt setlinewidth 0 setlinejoin
- stroke grestore
- % (finished ANGLE) 5 ldiagdebugprint
- }
- {
- % else must be a point, we aren't showing those
- pop pop pop
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } forall
- % (Leaving ldiagshowangles) 0 ldiagdebugprint
-} def
-
-% fix an angle to 0 <= res < 360: <angle> ldiagfixangle <angle>
-/ldiagfixangle
-{
- % (Entering ldiagfixangle) 1 ldiagdebugprint
- { dup 0 ge { exit } if
- 360 add
- } loop
- { dup 360 lt { exit } if
- 360 sub
- } loop
- % (Leaving ldiagfixangle) 1 ldiagdebugprint
-} def
-
-% find point on circumference of box: alpha a b ldiagboxcircum x y
-/ldiagboxcircum
-{
- % (Entering ldiagboxcircum) 3 ldiagdebugprint
- 4 dict begin
- /b exch def
- /a exch def
- ldiagfixangle /alpha exch def
- 0 0 a b ldiagangleto /theta exch def
-
- % if alpha <= theta, return (a, a*tan(alpha))
- alpha theta le
- { a a alpha sin mul alpha cos div }
- {
- % else if alpha <= 180 - theta, return (b*cot(alpha), b)
- alpha 180 theta sub le
- { b alpha cos mul alpha sin div b }
- {
- % else if alpha <= 180 + theta, return (-a, -a*tan(alpha))
- alpha 180 theta add le
- { a neg a neg alpha sin mul alpha cos div }
- {
- % else if alpha <= 360 - theta, return (-b*cot(alpha), -b)
- alpha 360 theta sub le
- { b neg alpha cos mul alpha sin div b neg }
- {
- % else 360 - theta <= alpha, return (a, a*tan(alpha))
- a a alpha sin mul alpha cos div
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- end
- % (Leaving ldiagboxcircum) 2 ldiagdebugprint
-} def
-
-% find quadratic roots (assume a != 0): a b c ldiagqroots x1 x2 2
-% or x2 1
-% or 0
-/ldiagqroots
-{
- 4 dict begin
- /c exch def
- /b exch def
- /a exch def
- /disc b b mul 4 a c mul mul sub def
- disc 0 lt
- { 0
- }
- { disc 0 eq
- { b neg 2 a mul div
- 1
- }
- { b neg disc sqrt add 2 a mul div
- b neg disc sqrt sub 2 a mul div
- 2
- }
- ifelse
- }
- ifelse
- end
-} def
-
-% work our which quadrant: <angle> ldiagquadrant <0-3>
-/ldiagquadrant
-{ dup 90 lt
- { pop 0
- }
- { dup 180 lt
- { pop 1
- }
- { 270 lt
- { 2
- }
- { 3
- } ifelse
- } ifelse
- } ifelse
-} def
-
-% find curvebox circum, assuming upper right quadrant: alpha a b xmk ldiagcb x y
-/ldiagcb
-{
- 6 dict begin
- /xmk exch def
- /b exch def
- /a exch def
- /alpha exch def
- /theta1 0 0 a b xmk sub ldiagangleto def
- /theta2 0 0 a xmk sub b ldiagangleto def
- alpha theta1 le
- { % if alpha <= theta1, return (a, a*tan(alpha))
- a a alpha sin mul alpha cos div
- }
- { alpha theta2 ge
- { % else if alpha > theta2, return (b*cot(alpha), b)
- b alpha cos mul alpha sin div b
- }
- {
- % else, return the intersection of line and circle
- a xmk sub b xmk sub xmk 0 0 alpha ldiagcircleintersect
- dup 0 eq
- { % should never happen, just return any reasonable point
- pop
- a b 0.5 ldiagpmul
- }
- { 1 eq
- { % should never happen, just return the point on top of stack
- }
- { % the usual case, two points on stack, return the larger
- ldiagpmax
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- end
-} def
-
-% find point on circumference of curvebox: alpha a b xmk ldiagcurveboxcircum x y
-/ldiagcurveboxcircum
-{
- % (Entering ldiagcurveboxcircum) 4 ldiagdebugprint
- 5 dict begin
- /xmk exch def
- /b exch def
- /a exch def
- ldiagfixangle /alpha exch def
-
- % work out which quadrant we are in, and reflect accordingly
- /quad alpha ldiagquadrant def
- quad 0 eq
- { alpha a b xmk ldiagcb
- }
- { quad 1 eq
- { 180 alpha sub a b xmk ldiagcb exch neg exch
- }
- { quad 2 eq
- { alpha 180 sub a b xmk ldiagcb neg exch neg exch
- }
- { 360 alpha sub a b xmk ldiagcb neg
- } ifelse
- } ifelse
- } ifelse
- end
- % (Leaving ldiagcurveboxcircum) 2 ldiagdebugprint
-} def
-
-% find point on circumference of diamond: alpha a b ldiagdiamondcircum x y
-/ldiagdiamondcircum
-{
- % (Entering ldiagdiamondcircum) 3 ldiagdebugprint
- 4 dict begin
- /b exch def
- /a exch def
- ldiagfixangle /alpha exch def
- b alpha cos abs mul a alpha sin abs mul add /denom exch def
- a b mul alpha cos mul denom div
- a b mul alpha sin mul denom div
- end
- % (Leaving ldiagdiamondcircum) 2 ldiagdebugprint
-} def
-
-% find point on circumference of ellipse: alpha a b ldiagellipsecircum x y
-/ldiagellipsecircum
-{
- % (Entering ldiagellipsecircum) 3 ldiagdebugprint
- 4 dict begin
- /b exch def
- /a exch def
- ldiagfixangle /alpha exch def
- b alpha cos mul dup mul a alpha sin mul dup mul add sqrt /denom exch def
- a b mul alpha cos mul denom div
- a b mul alpha sin mul denom div
- end
- % (Leaving ldiagellipsecircum) 2 ldiagdebugprint
-} def
-
-% find point on circumference of isosceles: alpha a b ldiagisoscelescircum x y
-/ldiagisoscelescircum
-{
- % (Entering ldiagisoscelescircum) 3 ldiagdebugprint
- 7 dict begin
- /b exch def
- /a exch def
- /alpha exch ldiagfixangle def
- /theta1 90 def
- /theta2 a b 0.5 ldiagpmul 0 0 ldiagangleto def
- /theta3 a b 0.5 ldiagpmul a 0 ldiagangleto def
- alpha theta1 ge alpha theta2 le and
- { 0 0 a 2 div b
- }
- { alpha theta2 ge alpha theta3 le and
- { 0 0 a 0
- }
- { a 0 a 2 div b
- } ifelse
- } ifelse
- a 2 div b 2 div 2 copy 1 ft alpha ldiagatangle ldiaglineintersect
- a 2 div b 2 div 4 2 roll ldiagpsub
- end
- % (Leaving ldiagisoscelescircum) 2 ldiagdebugprint
-} def
-
-% find point of intersection of two lines each defined by two points
-% x1 y1 x2 y2 x3 y3 x4 y4 ldiaglineintersect x y
-/ldiaglineintersect
-{
- % (Entering ldiaglineintersect) 8 ldiagdebugprint
- 13 dict begin
- /y4 exch def
- /x4 exch def
- /y3 exch def
- /x3 exch def
- /y2 exch def
- /x2 exch def
- /y1 exch def
- /x1 exch def
- x2 x1 sub /x21 exch def
- x4 x3 sub /x43 exch def
- y2 y1 sub /y21 exch def
- y4 y3 sub /y43 exch def
- y21 x43 mul y43 x21 mul sub /det exch def
-
- % calculate x
- y21 x43 mul x1 mul
- y43 x21 mul x3 mul sub
- y3 y1 sub x21 mul x43 mul add
- det div
-
- % calculate y
- x21 y43 mul y1 mul
- x43 y21 mul y3 mul sub
- x3 x1 sub y21 mul y43 mul add
- det neg div
-
- end
- % (Leaving ldiaglineintersect) 2 ldiagdebugprint
-} def
-
-% find point on circumference of polygon
-% alpha radius num theta ldiagpolycircum x y
-/ldiagpolycircum
-{
- % (Entering ldiagpolycircum) 4 ldiagdebugprint
- 13 dict begin
- /theta exch def
- /num exch def
- /radius exch def
- /alpha exch def
-
- % calculate delta, the angle from theta to alpha
- alpha theta sub ldiagfixangle
-
- % calculate the angle which is the multiple of 360/num closest to delta
- 360 num div div truncate 360 num div mul theta add /anglea exch def
-
- % calculate the next multiple of 360/num after anglea
- anglea 360 num div add /angleb exch def
-
- % intersect the line through these two points with the alpha line
- anglea cos anglea sin angleb cos angleb sin
- 0 0 alpha cos 2 mul alpha sin 2 mul
- ldiaglineintersect radius ldiagpmul
-
- end
- % (Leaving ldiagpolycircum) 2 ldiagdebugprint
-} def
-
-% find point of intersection of a line and a circle
-% x0 y0 r x1 y1 theta ldiagcircleintersect xa ya xb yb 2
-% or xb yb 1
-% or 0
-/ldiagcircleintersect
-{
- % (Entering ldiagcircleintersect) 6 ldiagdebugprint
- 15 dict begin
- /theta exch def
- /y1 exch def
- /x1 exch def
- /r exch def
- /y0 exch def
- /x0 exch def
-
- % if sin(theta) = 0 then line is horizontal and y must be y1
- theta sin abs 0.00001 lt
- {
- /a 1 def
- /b -2 x0 mul def
- /c x0 dup mul y1 y0 sub dup mul add r dup mul sub def
- a b c ldiagqroots dup
- 0 eq
- { pop
- 0
- }
- { 1 eq
- { y1 1
- }
- { y1 exch y1 2
- } ifelse
- } ifelse
- }
- {
- /ct theta cos theta sin div def
- /a ct ct mul 1 add def
- /b ct x1 x0 sub mul y1 add y0 sub 2 mul def
- /c x1 x0 sub dup mul y1 y0 sub dup mul add r dup mul sub def
- a b c ldiagqroots dup
- 0 eq
- { pop
- 0
- }
- { 1 eq
- { y1 add /yb exch def
- yb y1 sub ct mul x1 add /xb exch def
- xb yb 1
- }
- { y1 add /ya exch def
- ya y1 sub ct mul x1 add /xa exch def
- y1 add /yb exch def
- yb y1 sub ct mul x1 add /xb exch def
- xa ya xb yb 2
- } ifelse
- } ifelse
- } ifelse
- end
- % (Leaving ldiagcircleintersect) 1 ldiagdebugprint
-} def
-
-% find line which is the perpendicular bisector of two points, defined
-% by two points
-% x1 y1 x2 y2 ldiaglinebetween x3 y3 x4 y4
-/ldiaglinebetween
-{ % (Entering ldiaglinebetween) 4 ldiagdebugprint
- /y2 exch def /x2 exch def
- /y1 exch def /x1 exch def
-
- % let x3, y3 be the point halfway between the two points
- x1 y1 x2 y2 ldiagpadd 0.5 ldiagpmul
- /y3 exch def /x3 exch def
-
- % find a point perpendicular to x3, y3
- x3 y3 50 x1 y1 x2 y2 ldiagangleto 90 dg add ldiagatangle
-
- % plus x3 y3 gives the two points
- x3 y3
-
- % (Leaving ldiaglinebetween) 4 ldiagdebugprint
-} def
-
-% find <proc>@<string>: <proc> <string> ldiagfindlabel <any> true
-% <proc> <string> false
-/ldiagfindlabel
-{
- % (Entering ldiagfindlabel) 2 ldiagdebugprint
- exch dup length 1 ne
- { exch false
- % (Leaving ldiagfindabel (length not 1)) 3 ldiagdebugprint
- }
- { dup 0 get type /nametype ne
- { exch false
- % (Leaving ldiagfindabel (not a name)) 3 ldiagdebugprint
- }
- { dup 0 get 50 string cvs (@) ldiagconcat 2 index ldiagconcat dup where
- { exch get exch pop exch pop cvx exec true
- % (Leaving ldiagfindlabel with success) 100 ldiagdebugprint
- }
- {
- pop exch false
- % (Leaving ldiagfindabel (concat not sensible)) 3 ldiagdebugprint
- } ifelse
- } ifelse
- } ifelse
-} bind def
-
-% execute <proc>@<string> or else default: <proc> <string> ldiagdolabel <various>
-/ldiagdolabel
-{
- % (Entering ldiagdolabel) 2 ldiagdebugprint
- ldiagfindlabel not
- {
- dup (CIRCUM) eq
- { pop pop pop 0 0
- }
- {
- dup (ANGLE) eq
- { pop pop 0
- }
- { pop cvx exec
- } ifelse
- } ifelse
- } if
- % (Leaving ldiagdolabel) 2 ldiagdebugprint
-} bind def
-
-% execute a proc depending on whether number is negative, zero, or positive
-% procneg proczero procpos number ldiagsigncase <anything>
-/ldiagsigncase
-{
- % (Entering ldiagsigncase) 4 ldiagdebugprint
- dup 0 lt
- { pop pop pop exec
- }
- { 0 gt
- { exch pop exch pop exec
- }
- { pop exch pop exec
- } ifelse
- } ifelse
- % (Leaving ldiagsigncase) 0 ldiagdebugprint
-} bind def
-
-% execute proci if angle is in ith quadrant
-% proc45 proc270 proc180 proc90 proc0 proc315 proc225 proc135 angle ldiagquadcase <anything>
-/ldiagquadcase
-{
- % (Entering ldiagquadcase) 9 ldiagdebugprint
- round ldiagfixangle cvi dup 90 mod 0 eq
- { 90 idiv 4 add } { 90 idiv } ifelse
- 8 exch roll pop pop pop pop pop pop pop exec
- % (Leaving ldiagquadcase) 0 ldiagdebugprint
-} bind def
-
-% decode Lout length into PostScript length
-% <string> ldiagdecodelength <number>
-/ldiagdecodelength
-{
- % (Entering ldiagdecodelength) 1 ldiagdebugprint
- (f) search
- { exch pop exch pop cvr ft
- }
- { (c) search
- { exch pop exch pop cvr cm
- }
- { (p) search
- { exch pop exch pop cvr pt
- }
- { (m) search
- { exch pop exch pop cvr em
- }
- { (s) search
- { exch pop exch pop cvr sp
- }
- { (v) search
- { exch pop exch pop cvr vs
- }
- { (i) search
- { exch pop exch pop cvr in
- }
- { pop 0
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- } ifelse
- % (Leaving ldiagdecodelength) 1 ldiagdebugprint
-} def
-
-% implement aabout function
-% logical form: <circum> <extra> <centre> aabout <point>
-% actual form: { <labelorpoint> } cvlit <length> [ <point> ] cvx aabout <point>
-/ldiagaabout
-{
- /centre exch def
- /extra exch def
- /circum exch def
-
- /ZXCTR [ centre ] cvx def
- /ZFCTR [ circum (CTR) ldiagdolabel ] cvx def
- /ZAREF ZFCTR ZXCTR ldiagangleto def
- /ZAMIN 0 dg def
- /ZPMIN [ circum (CTR) ldiagdolabel ZAREF ZAMIN sub
- circum (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 extra ZAREF ZAMIN sub ldiagatangle
- ldiagpadd ] cvx def
-
- /ZAMAX 90 dg def
- /ZPMAX [ circum (CTR) ldiagdolabel ZAREF ZAMAX sub
- circum (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 extra ZAREF ZAMAX sub ldiagatangle
- ldiagpadd ] cvx def
-
- 1 1 20
- { /xval exch def
- /ZAMID ZAMIN ZAMAX add 0.5 mul def
- /ZPMID [ circum (CTR) ldiagdolabel ZAREF ZAMID sub
- circum (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 extra ZAREF ZAMID sub ldiagatangle
- ldiagpadd ] cvx def
- ZPMID ZXCTR ldiagdistance ZFCTR ZXCTR ldiagdistance gt
- {
- /ZAMAX [ ZAMID ] cvx def
- /ZPMAX [ ZPMID ] cvx def
- }
- {
- /ZAMIN [ ZAMID ] cvx def
- /ZPMIN [ ZPMID ] cvx def
- } ifelse
- } for
- ZPMID
-} def
-
-% implement cabout function
-% logical form: <circum> <extra> <centre> cabout <point>
-% actual form: { <labelorpoint> } cvlit <length> [ <point> ] cvx cabout <point>
-/ldiagcabout
-{
- /centre exch def
- /extra exch def
- /circum exch def
-
- /ZXCTR [ centre ] cvx def
- /ZFCTR [ circum (CTR) ldiagdolabel ] cvx def
- /ZAREF ZFCTR ZXCTR ldiagangleto def
- /ZAMIN 0 dg def
- /ZPMIN [ circum (CTR) ldiagdolabel ZAREF ZAMIN add
- circum (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 extra ZAREF ZAMIN add ldiagatangle
- ldiagpadd ] cvx def
-
- /ZAMAX 90 dg def
- /ZPMAX [ circum (CTR) ldiagdolabel ZAREF ZAMAX add
- circum (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 extra ZAREF ZAMAX add ldiagatangle
- ldiagpadd ] cvx def
-
- 1 1 20
- { /xval exch def
- /ZAMID ZAMIN ZAMAX add 0.5 mul def
- /ZPMID [ circum (CTR) ldiagdolabel ZAREF ZAMID add
- circum (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 extra ZAREF ZAMID add ldiagatangle
- ldiagpadd ] cvx def
- ZPMID ZXCTR ldiagdistance ZFCTR ZXCTR ldiagdistance gt
- {
- /ZAMAX [ ZAMID ] cvx def
- /ZPMAX [ ZPMID ] cvx def
- }
- {
- /ZAMIN [ ZAMID ] cvx def
- /ZPMIN [ ZPMID ] cvx def
- } ifelse
- } for
- ZPMID
-} def
-
-% fromarrowlength toarrowlength { from } { to } xindent zindent ldiaglinepath -
-/ldiaglinepath
-{
- % (entering ldiaglinepath) 0 ldiagdebugprint
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagangleto
- /FROM@ANGLE ldiagangledef
- from (CTR) ldiagdolabel FROM@ANGLE from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength FROM@ANGLE ldiagatangle ldiagpadd
- /FROM ldiagpointdef
-
- FROM@ANGLE /TO@ANGLE ldiagangledef
- to (CTR) ldiagdolabel TO@ANGLE 180 dg sub to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength TO@ANGLE 180 dg sub ldiagatangle ldiagpadd /TO ldiagpointdef
-
- FROM 0.5 ldiagpmul TO 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- FROM@ANGLE /LMID@ANGLE ldiagangledef
-
- /XINDENT xindent FROM LMID ldiagdistance ldiagmin def
- FROM 0 0 XINDENT FROM@ANGLE ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
-
- /ZINDENT zindent TO LMID ldiagdistance ldiagmin def
- 0 0 ZINDENT FROM@ANGLE ldiagatangle TO ldiagpsub /LTO ldiagpointdef
- FROM@ANGLE /LTO@ANGLE ldiagangledef
-
- direct { FROM TO } { FROM LFROM LMID LTO TO } ifelse
-
- % (leaving ldiaglinepath) 0 ldiagdebugprint
-} def
-
-% fromarrowlength toarrowlength { from } { to } xindent zindent pathgap ldiagdoublelinepath -
-/ldiagdoublelinepath
-{
- % (entering ldiagdoublelinepath) 0 ldiagdebugprint
- /pathgap exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagangleto
- /FROM@ANGLE ldiagangledef
- from (CTR) ldiagdolabel FROM@ANGLE from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength FROM@ANGLE ldiagatangle ldiagpadd
- /FROM ldiagpointdef
-
- FROM@ANGLE /TO@ANGLE ldiagangledef
- to (CTR) ldiagdolabel TO@ANGLE 180 dg sub to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength TO@ANGLE 180 dg sub ldiagatangle ldiagpadd /TO ldiagpointdef
-
- FROM 0.5 ldiagpmul TO 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- FROM@ANGLE /LMID@ANGLE ldiagangledef
-
- /XINDENT xindent FROM LMID ldiagdistance ldiagmin def
- FROM 0 0 XINDENT FROM@ANGLE ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
-
- /ZINDENT zindent TO LMID ldiagdistance ldiagmin def
- 0 0 ZINDENT FROM@ANGLE ldiagatangle TO ldiagpsub /LTO ldiagpointdef
- FROM@ANGLE /LTO@ANGLE ldiagangledef
-
- direct {
- FROM pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
- TO pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
- []
- FROM pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
- TO pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
- }
- {
- FROM pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
- LFROM pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
- LMID pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
- LTO pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
- TO pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
- []
- FROM pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
- LFROM pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
- LMID pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
- LTO pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
- TO pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
- } ifelse
-
- % (leaving ldiagdoublelinepath) 0 ldiagdebugprint
-} def
-
-% fromarrowlen toarrowlen { from } { to } xindent zindent bias ldiagacurvepath -
-/ldiagacurvepath
-{
- % (entering ldiagacurvepath) 0 ldiagdebugprint
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- %/B1 bias 0.02 ft ldiagmax def
- %/B2 from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagdistance 0.5 mul def
- %/BIAS B1 B2 ldiagmin def
- /BIAS bias 0.02 ft ldiagmax def
- /XMID [ from (CTR) ldiagdolabel 0.5 ldiagpmul
- to (CTR) ldiagdolabel 0.5 ldiagpmul ldiagpadd ] cvx def
- /XTOP [ XMID 0 0 BIAS from (CTR) ldiagdolabel to (CTR) ldiagdolabel
- ldiagangleto 90 dg sub ldiagatangle ldiagpadd ] cvx def
- /CTR [ from (CTR) ldiagdolabel XTOP ldiaglinebetween
- to (CTR) ldiagdolabel XTOP ldiaglinebetween
- ldiaglineintersect ] cvx def
-
- from fromarrowlength [ CTR ] cvx ldiagaabout /FROM ldiagpointdef
- from (CTR) ldiagdolabel FROM ldiagdistance 0 gt
- { from (CTR) ldiagdolabel FROM ldiagangleto
- }
- { CTR FROM ldiagangleto 90 dg add
- } ifelse /FROM@ANGLE ldiagangledef
-
- to toarrowlength [ CTR ] cvx ldiagcabout /TO ldiagpointdef
- TO to (CTR) ldiagdolabel ldiagdistance 0 gt
- { TO to (CTR) ldiagdolabel ldiagangleto
- }
- { CTR TO ldiagangleto 90 dg add
- } ifelse /TO@ANGLE ldiagangledef
-
- /RADIUS CTR FROM ldiagdistance def
- CTR 0 0 RADIUS CTR FROM ldiagangleto 360 dg CTR TO ldiagangleto
- add CTR FROM ldiagangleto sub cvi 360 mod 0.5 mul add
- ldiagatangle ldiagpadd /LMID ldiagpointdef
- CTR LMID ldiagangleto 90 dg add /LMID@ANGLE ldiagangledef
-
- /XINDENT xindent FROM LMID ldiagdistance ldiagmin def
- CTR 0 0 RADIUS CTR FROM 0 0 XINDENT FROM@ANGLE ldiagatangle
- ldiagpadd ldiagangleto ldiagatangle ldiagpadd /LFROM ldiagpointdef
- CTR LFROM ldiagangleto 90 dg add /LFROM@ANGLE ldiagangledef
-
- /ZINDENT zindent TO LMID ldiagdistance ldiagmin def
- CTR 0 0 RADIUS CTR TO 0 0 ZINDENT TO@ANGLE 180 dg add
- ldiagatangle ldiagpadd ldiagangleto ldiagatangle ldiagpadd /LTO ldiagpointdef
- CTR LTO ldiagangleto 90 dg add /LTO@ANGLE ldiagangledef
-
- direct
- { FROM [CTR] TO }
- { FROM [CTR] LFROM [CTR] LMID [CTR] LTO [CTR] TO }
- ifelse
-
- % (leaving ldiagacurvepath) 0 ldiagdebugprint
-} def
-
-% fromarrowlen toarrowlen { from } { to } xindent zindent bias ldiagccurvepath -
-/ldiagccurvepath
-{
- % (entering ldiagccurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- %/B1 bias 0.02 ft ldiagmax def
- %/B2 from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagdistance 0.5 mul def
- %/BIAS B1 B2 ldiagmin def
- /BIAS bias 0.02 ft ldiagmax def
- /XMID [ from (CTR) ldiagdolabel 0.5 ldiagpmul
- to (CTR) ldiagdolabel 0.5 ldiagpmul ldiagpadd ] cvx def
- /XTOP [ XMID 0 0 BIAS from (CTR) ldiagdolabel to (CTR) ldiagdolabel
- ldiagangleto 90 dg add ldiagatangle ldiagpadd ] cvx def
- /CTR [ from (CTR) ldiagdolabel XTOP ldiaglinebetween
- to (CTR) ldiagdolabel XTOP ldiaglinebetween ldiaglineintersect ] cvx def
-
- from fromarrowlength [ CTR ] cvx ldiagcabout /FROM ldiagpointdef
- from (CTR) ldiagdolabel FROM ldiagdistance 0 gt
- { from (CTR) ldiagdolabel FROM ldiagangleto }
- { CTR FROM ldiagangleto 90 dg sub }
- ifelse /FROM@ANGLE ldiagangledef
-
- to toarrowlength [ CTR ] cvx ldiagaabout /TO ldiagpointdef
- TO to (CTR) ldiagdolabel ldiagdistance 0 gt
- { TO to (CTR) ldiagdolabel ldiagangleto }
- { CTR TO ldiagangleto 90 dg sub }
- ifelse /TO@ANGLE ldiagangledef
-
- /RADIUS [ CTR FROM ldiagdistance ] cvx def
- CTR 0 0 RADIUS CTR TO ldiagangleto 360 dg CTR FROM ldiagangleto add
- CTR TO ldiagangleto sub cvi 360 cvi mod 2 div add ldiagatangle
- ldiagpadd /LMID ldiagpointdef
- CTR LMID ldiagangleto 90 dg sub /LMID@ANGLE ldiagangledef
-
- /XINDENT [ xindent FROM LMID ldiagdistance ldiagmin ] cvx def
- CTR 0 0 RADIUS CTR FROM 0 0 XINDENT FROM@ANGLE ldiagatangle ldiagpadd
- ldiagangleto ldiagatangle ldiagpadd /LFROM ldiagpointdef
- CTR LFROM ldiagangleto 90 dg sub /LFROM@ANGLE ldiagangledef
-
- /ZINDENT [ zindent TO LMID ldiagdistance ldiagmin ] cvx def
- CTR 0 0 RADIUS CTR TO 0 0 ZINDENT TO@ANGLE 180 dg add ldiagatangle
- ldiagpadd ldiagangleto ldiagatangle ldiagpadd /LTO ldiagpointdef
- CTR LTO ldiagangleto 90 dg sub /LTO@ANGLE ldiagangledef
-
- direct
- { FROM [CTR clockwise] TO }
- { FROM [CTR clockwise] LFROM [CTR clockwise]
- LMID [CTR clockwise] LTO [CTR clockwise] TO }
- ifelse
- % (leaving ldiagccurvepath) 0 ldiagdebugprint
-} def
-
-
-% farr tarr { from } { to } xindent zindent [frompt] [topt] ldiagbezierpath -
-/ldiagbezierpath
-{
- % (entering ldiagbezierpath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- cvx /topt exch def
- cvx /frompt exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- from (CTR) ldiagdolabel frompt ldiagangleto /FROM@ANGLE ldiagangledef
- from (CTR) ldiagdolabel FROM@ANGLE from (CIRCUM) ldiagdolabel
- ldiagpadd 0 0 fromarrowlength FROM@ANGLE ldiagatangle ldiagpadd
- /FROM ldiagpointdef
-
- topt to (CTR) ldiagdolabel ldiagangleto /TO@ANGLE ldiagangledef
- to (CTR) ldiagdolabel TO@ANGLE 180 dg add to (CIRCUM) ldiagdolabel
- ldiagpadd 0 0 toarrowlength TO@ANGLE 180 dg add ldiagatangle ldiagpadd
- /TO ldiagpointdef
-
- FROM 0 0 xindent FROM@ANGLE ldiagatangle ldiagpadd
- /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
-
- TO 0 0 zindent TO@ANGLE 180 dg add ldiagatangle ldiagpadd
- /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
-
- FROM TO ldiagpadd frompt ldiagpadd topt ldiagpadd 0.25 ldiagpmul
- /LMID ldiagpointdef
-
- FROM [frompt topt] TO
-
- % (leaving ldiagbezierpath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-
-% farr tarr { from } { to } xindent zindent ldiagvhlinepath -
-/ldiagvhlinepath
-{
- % (entering ldiagvhlinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /CTR [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel exch pop ] cvx def
- /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
- /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
-
- from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
- FANG /FROM@ANGLE ldiagangledef
-
- to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
- TANG 180 dg add /TO@ANGLE ldiagangledef
-
- /FDIST [ FROM CTR ldiagdistance ] cvx def
- /TDIST [ TO CTR ldiagdistance ] cvx def
- /XINDENT [ xindent FDIST ldiagmin ] cvx def
- /ZINDENT [ zindent TDIST ldiagmin ] cvx def
- FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
-
- CTR /LMID ldiagpointdef
- 0 0 1 ft FANG 180 dg add ldiagatangle
- 0 0 1 ft TANG 180 dg add ldiagatangle
- ldiagangleto /LMID@ANGLE ldiagangledef
-
- FROM LFROM LMID LTO TO
-
- % (leaving ldiagvhlinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent radius ldiagvhcurvepath -
-/ldiagvhcurvepath
-{
- % (entering ldiagvhcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /radius exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /CTR [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel exch pop ] cvx def
- /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
- /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
-
- from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
- FANG /FROM@ANGLE ldiagangledef
-
- to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
- TANG 180 dg add /TO@ANGLE ldiagangledef
-
- /FDIST [ FROM CTR ldiagdistance ] cvx def
- /TDIST [ TO CTR ldiagdistance ] cvx def
- /RADIUS [ radius FDIST TDIST ldiagmin ldiagmin ] cvx def
- /XINDENT [ xindent FDIST RADIUS sub ldiagmin ] cvx def
- /ZINDENT [ zindent TDIST RADIUS sub ldiagmin ] cvx def
-
- FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
-
- /FCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd ] cvx def
- /TCTR [ CTR 0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
- /XCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd
- 0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
- XCTR 0 0 RADIUS XCTR CTR ldiagangleto ldiagatangle ldiagpadd
- /LMID ldiagpointdef
- FCTR TCTR ldiagangleto /LMID@ANGLE ldiagangledef
-
- FROM LFROM FCTR
- {[XCTR clockwise]} {} {} {} {} {[XCTR]} {[XCTR clockwise]} {[XCTR]}
- FCTR TCTR ldiagangleto ldiagquadcase
- TCTR LTO TO
-
- % (leaving ldiagvhcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent ldiaghvlinepath -
-/ldiaghvlinepath
-{
- % (entering ldiaghvlinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /CTR [ to (CTR) ldiagdolabel pop from (CTR) ldiagdolabel exch pop ] cvx def
- /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
- /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
-
- from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
- FANG /FROM@ANGLE ldiagangledef
-
- to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
- TANG 180 dg add /TO@ANGLE ldiagangledef
-
- /FDIST [ FROM CTR ldiagdistance ] cvx def
- /TDIST [ TO CTR ldiagdistance ] cvx def
- /XINDENT [ xindent FDIST ldiagmin ] cvx def
- /ZINDENT [ zindent TDIST ldiagmin ] cvx def
-
- FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
-
- CTR /LMID ldiagpointdef
- 0 0 1 ft FANG 180 dg add ldiagatangle
- 0 0 1 ft TANG 180 dg add ldiagatangle ldiagangleto
- /LMID@ANGLE ldiagangledef
-
- FROM LFROM LMID LTO TO
-
- % (leaving ldiaghvlinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent radius ldiaghvcurvepath -
-/ldiaghvcurvepath
-{
- % (entering ldiaghvcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /radius exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /CTR [ to (CTR) ldiagdolabel pop from (CTR) ldiagdolabel exch pop ] cvx def
- /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
- /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
-
- from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
- FANG /FROM@ANGLE ldiagangledef
-
- to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
- TANG 180 dg add /TO@ANGLE ldiagangledef
-
- /FDIST [ FROM CTR ldiagdistance ] cvx def
- /TDIST [ TO CTR ldiagdistance ] cvx def
- /RADIUS [ radius FDIST TDIST ldiagmin ldiagmin ] cvx def
- /XINDENT [ xindent FDIST RADIUS sub ldiagmin ] cvx def
- /ZINDENT [ zindent TDIST RADIUS sub ldiagmin ] cvx def
- FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
-
- /FCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd ] cvx def
- /TCTR [ CTR 0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
- /XCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd
- 0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
- XCTR 0 0 RADIUS XCTR CTR ldiagangleto ldiagatangle ldiagpadd
- /LMID ldiagpointdef
- FCTR TCTR ldiagangleto /LMID@ANGLE ldiagangledef
-
- FROM LFROM FCTR
- {[XCTR]} {} {} {} {} {[XCTR clockwise]} {[XCTR]} {[XCTR clockwise]}
- FCTR TCTR ldiagangleto ldiagquadcase
- TCTR LTO TO
-
- % (leaving ldiaghvcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent bias ldiaglvrlinepath -
-/ldiaglvrlinepath
-{
- % (entering ldiaglvrlinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- from (CTR) ldiagdolabel 180 dg from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength 180 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
- 180 dg /FROM@ANGLE ldiagangledef
-
- to (CTR) ldiagdolabel 180 dg to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength 180 dg ldiagatangle ldiagpadd /TO ldiagpointdef
- 0 dg /TO@ANGLE ldiagangledef
-
- /XLEFT [ FROM pop TO pop ldiagmin bias sub ] cvx def
- XLEFT FROM exch pop /P1 ldiagpointdef
- XLEFT TO exch pop /P2 ldiagpointdef
- /VERT [ P1 P2 ldiagangleto ] cvx def
- P1 P1 0 0 1 ft 180 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
- ldiagpadd ldiagangleto /P1@ANGLE ldiagangledef
- P2 P2 0 0 1 ft 0 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
- ldiagpadd ldiagangleto /P2@ANGLE ldiagangledef
-
- P1 0.5 ldiagpmul P2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- VERT /LMID@ANGLE ldiagangledef
-
- /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
- /ZINDENT [ zindent P2 TO ldiagdistance ldiagmin ] cvx def
- XINDENT 0 FROM ldiagpsub /LFROM ldiagpointdef
- 180 dg /LFROM@ANGLE ldiagangledef
- ZINDENT 0 TO ldiagpsub /LTO ldiagpointdef
- 0 dg /LTO@ANGLE ldiagangledef
-
- FROM LFROM P1 LMID P2 LTO TO
-
- % (leaving ldiaglvrlinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent bias radius ldiaglvrcurvepath -
-/ldiaglvrcurvepath
-{
- % (entering ldiaglvrcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /radius exch def
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- from (CTR) ldiagdolabel 180 dg from (CIRCUM) ldiagdolabel ldiagpadd 0 0
- fromarrowlength 180 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
- 180 dg /FROM@ANGLE ldiagangledef
- to (CTR) ldiagdolabel 180 dg to (CIRCUM) ldiagdolabel ldiagpadd 0 0
- toarrowlength 180 dg ldiagatangle ldiagpadd /TO ldiagpointdef
- 0 dg /TO@ANGLE ldiagangledef
- /XLEFT [ FROM pop TO pop ldiagmin bias sub ] cvx def
- /XP1 [ XLEFT FROM exch pop ] cvx def
- /XP2 [ XLEFT TO exch pop ] cvx def
- /VERT [ XP1 XP2 ldiagangleto ] cvx def
- XP1 0.5 ldiagpmul XP2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- VERT /LMID@ANGLE ldiagangledef
- /XINDENT [ xindent FROM XP1 ldiagdistance ldiagmin ] cvx def
- /ZINDENT [ zindent XP2 TO ldiagdistance ldiagmin ] cvx def
- XINDENT 0 FROM ldiagpsub /LFROM ldiagpointdef
- 180 dg /LFROM@ANGLE ldiagangledef
- ZINDENT 0 TO ldiagpsub /LTO ldiagpointdef
- 0 dg /LTO@ANGLE ldiagangledef
- /RADIUS [ radius XP1 XP2 ldiagdistance 2 div ldiagmin ] cvx def
- /XP1PRE [ XP1 0 0 RADIUS 0 dg ldiagatangle ldiagpadd ] cvx def
- /XP1POST [ XP1 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
- /XP1CTR [ XP1PRE 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
- XP1CTR 0 0 RADIUS XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd
- /P1 ldiagpointdef
- XP1PRE XP1POST ldiagangleto /P1@ANGLE ldiagangledef
- /XP2PRE [ 0 0 RADIUS VERT ldiagatangle XP2 ldiagpsub ] cvx def
- /XP2POST [ XP2 0 0 RADIUS 0 dg ldiagatangle ldiagpadd ] cvx def
- /XP2CTR [ XP2PRE 0 0 RADIUS 0 dg ldiagatangle ldiagpadd ] cvx def
- XP2CTR 0 0 RADIUS XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd
- /P2 ldiagpointdef
- XP2PRE XP2POST ldiagangleto /P2@ANGLE ldiagangledef
- FROM LFROM XP1PRE
- { } { [XP1CTR] P1 [XP1CTR] } { } { [XP1CTR clockwise] P1 [XP1CTR clockwise] }
- { } { } { } { } VERT round ldiagquadcase
- XP1POST LMID XP2PRE
- { } { [XP2CTR] P2 [XP2CTR] } { } { [XP2CTR clockwise] P2 [XP2CTR clockwise] }
- { } { } { } { } VERT round ldiagquadcase
- XP2POST LTO TO
-
- % (leaving ldiaglvrcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent bias ldiagrvllinepath -
-/ldiagrvllinepath
-{
- % (entering ldiagrvllinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- from (CTR) ldiagdolabel 0 dg from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength 0 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
- 0 dg /FROM@ANGLE ldiagangledef
- to (CTR) ldiagdolabel 0 dg to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength 0 dg ldiagatangle ldiagpadd /TO ldiagpointdef
- 180 dg /TO@ANGLE ldiagangledef
- /XRIGHT [ FROM pop TO pop ldiagmax bias add ] cvx def
- XRIGHT FROM exch pop /P1 ldiagpointdef
- XRIGHT TO exch pop /P2 ldiagpointdef
- /VERT [ P1 P2 ldiagangleto ] cvx def
- P1 P1 0 0 1 ft 0 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
- ldiagpadd ldiagangleto /P1@ANGLE ldiagangledef
- P2 P2 0 0 1 ft 180 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
- ldiagpadd ldiagangleto /P2@ANGLE ldiagangledef
- P1 0.5 ldiagpmul P2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- VERT /LMID@ANGLE ldiagangledef
- /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
- /ZINDENT [ zindent P2 TO ldiagdistance ldiagmin ] cvx def
- FROM XINDENT 0 ldiagpadd /LFROM ldiagpointdef
- 0 dg /LFROM@ANGLE ldiagangledef
- TO ZINDENT 0 ldiagpadd /LTO ldiagpointdef
- 180 dg /LTO@ANGLE ldiagangledef
- FROM LFROM P1 LMID P2 LTO TO
-
- % (leaving ldiagrvllinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-
-% farr tarr { from } { to } xindent zindent bias radius ldiagrvlcurvepath -
-/ldiagrvlcurvepath
-{
- % (entering ldiagrvlcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /radius exch def
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- from (CTR) ldiagdolabel 0 dg from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength 0 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
- 0 dg /FROM@ANGLE ldiagangledef
- to (CTR) ldiagdolabel 0 dg to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength 0 dg ldiagatangle ldiagpadd /TO ldiagpointdef
- 180 dg /TO@ANGLE ldiagangledef
- /XRIGHT [ FROM pop TO pop ldiagmax bias add ] cvx def
- /XP1 [ XRIGHT FROM exch pop ] cvx def
- /XP2 [ XRIGHT TO exch pop ] cvx def
- /VERT [ XP1 XP2 ldiagangleto ] cvx def
- XP1 0.5 ldiagpmul XP2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- VERT /LMID@ANGLE ldiagangledef
- /XINDENT [ xindent FROM XP1 ldiagdistance ldiagmin ] cvx def
- /ZINDENT [ zindent XP2 TO ldiagdistance ldiagmin ] cvx def
- FROM XINDENT 0 ldiagpadd /LFROM ldiagpointdef
- 0 dg /LFROM@ANGLE ldiagangledef
- TO ZINDENT 0 ldiagpadd /LTO ldiagpointdef
- 180 dg /LTO@ANGLE ldiagangledef
- /RADIUS [ radius XP1 XP2 ldiagdistance 0.5 mul ldiagmin ] cvx def
- /XP1PRE [ XP1 0 0 RADIUS 180 dg ldiagatangle ldiagpadd ] cvx def
- /XP1POST [ XP1 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
- /XP1CTR [ XP1PRE 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
- XP1CTR 0 0 RADIUS XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd
- /P1 ldiagpointdef
- XP1PRE XP1POST ldiagangleto /P1@ANGLE ldiagangledef
- /XP2PRE [ 0 0 RADIUS VERT ldiagatangle XP2 ldiagpsub ] cvx def
- /XP2POST [ XP2 0 0 RADIUS 180 dg ldiagatangle ldiagpadd ] cvx def
- /XP2CTR [ XP2PRE 0 0 RADIUS 180 dg ldiagatangle ldiagpadd ] cvx def
- XP2CTR 0 0 RADIUS XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd
- /P2 ldiagpointdef
- XP2PRE XP2POST ldiagangleto /P2@ANGLE ldiagangledef
- FROM LFROM XP1PRE
- {} {[XP1CTR clockwise] P1 [XP1CTR clockwise]} {} {[XP1CTR] P1 [XP1CTR]}
- {} {} {} {} VERT round ldiagquadcase
- XP1POST LMID XP2PRE
- {} {[XP2CTR clockwise] P2 [XP2CTR clockwise]} {} {[XP2CTR] P2 [XP2CTR]}
- {} {} {} {} VERT round ldiagquadcase
- XP2POST LTO TO
-
- % (leaving ldiagrvlcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent bias fbias tbias ldiagdwraplinepath -
-/ldiagdwraplinepath
-{
- % (entering ldiagdwraplinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /tbias exch def
- /fbias exch def
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop
- lt { 180 dg } { 0 dg } ifelse ] cvx def
- from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd 0 0
- fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
- DIRN /FROM@ANGLE ldiagangledef
- to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
- DIRN /TO@ANGLE ldiagangledef
- FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd /P1 ldiagpointdef
- DIRN 180 dg eq { 225 dg } { -45 dg } ifelse /P1@ANGLE ldiagangledef
- TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd
- /P4 ldiagpointdef
- DIRN 180 dg eq { 135 dg } { 45 dg } ifelse /P4@ANGLE ldiagangledef
- /YC [ from (CTR) ldiagdolabel 270 dg from (CIRCUM) ldiagdolabel ldiagpadd
- exch pop to (CTR) ldiagdolabel 270 dg to (CIRCUM) ldiagdolabel ldiagpadd
- exch pop ldiagmin bias 0 ldiagmax sub ] cvx def
- P1 pop YC /P2 ldiagpointdef
- P4@ANGLE 180 dg sub /P2@ANGLE ldiagangledef
- P4 pop YC /P3 ldiagpointdef
- P1@ANGLE 180 dg sub /P3@ANGLE ldiagangledef
- /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
- FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- /ZINDENT [ zindent TO P4 ldiagdistance ldiagmin ] cvx def
- TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
- P2 0.5 ldiagpmul P3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- DIRN 180 dg sub /LMID@ANGLE ldiagangledef
- FROM P1 P2 P3 P4 TO
-
- % (leaving ldiagdwraplinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent bias fbias tbias radius
-% ldiagdwrapcurvepath -
-/ldiagdwrapcurvepath
-{
- % (entering ldiagdwrapcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /radius exch def
- /tbias exch def
- /fbias exch def
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
- { 180 dg } { 0 dg } ifelse ] cvx def
- /CLOCK [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
- { anticlockwise } { clockwise } ifelse ] cvx def
- from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
- DIRN /FROM@ANGLE ldiagangledef
- to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
- DIRN /TO@ANGLE ldiagangledef
- /XP1 [ FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd ] cvx def
- /XP4 [ TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd ] cvx def
- /YC [ from (CTR) ldiagdolabel 270 dg from (CIRCUM) ldiagdolabel ldiagpadd
- exch pop to (CTR) ldiagdolabel 270 dg to (CIRCUM) ldiagdolabel ldiagpadd
- exch pop ldiagmin bias 0 ldiagmax sub ] cvx def
- /XP2 [ XP1 pop YC ] cvx def
- /XP3 [ XP4 pop YC ] cvx def
- /RP1 [ radius XP1 FROM ldiagdistance XP1 XP2 ldiagdistance 2 div
- ldiagmin ldiagmin ] cvx def
- /XP1PRE [ XP1 0 0 RP1 XP1 FROM ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP1POST [ XP1 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP1CTR [ XP1PRE 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP1CTR 0 0 RP1 XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd /P1 ldiagpointdef
- XP1CTR P1 ldiagangleto DIRN add 90 dg sub /P1@ANGLE ldiagangledef
- /RP2 [ radius XP1 XP2 ldiagdistance 2 div XP2 XP3 ldiagdistance 2 div
- ldiagmin ldiagmin ] cvx def
- /XP2PRE [ XP2 0 0 RP2 XP2 XP1 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP2POST [ XP2 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP2CTR [ XP2PRE 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP2CTR 0 0 RP2 XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd /P2 ldiagpointdef
- XP2CTR P2 ldiagangleto DIRN add 90 dg sub /P2@ANGLE ldiagangledef
- /RP3 [ radius XP2 XP3 ldiagdistance 2 div XP3 XP4 ldiagdistance 2 div
- ldiagmin ldiagmin ] cvx def
- /XP3PRE [ XP3 0 0 RP3 XP3 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP3POST [ XP3 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP3CTR [ XP3PRE 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP3CTR 0 0 RP3 XP3CTR XP3 ldiagangleto ldiagatangle ldiagpadd /P3 ldiagpointdef
- XP3CTR P3 ldiagangleto DIRN add 90 dg sub /P3@ANGLE ldiagangledef
- /RP4 [ radius XP4 XP3 ldiagdistance 2 div XP4 TO ldiagdistance
- ldiagmin ldiagmin ] cvx def
- /XP4PRE [ XP4 0 0 RP4 XP4 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP4POST [ XP4 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP4CTR [ XP4PRE 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP4CTR 0 0 RP4 XP4CTR XP4 ldiagangleto ldiagatangle ldiagpadd /P4 ldiagpointdef
- XP4CTR P4 ldiagangleto DIRN add 90 dg sub /P4@ANGLE ldiagangledef
- /XINDENT [ xindent FROM XP1PRE ldiagdistance ldiagmin ] cvx def
- FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- XP2 0.5 ldiagpmul XP3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- DIRN 180 dg sub /LMID@ANGLE ldiagangledef
- /ZINDENT [ zindent TO XP4POST ldiagdistance ldiagmin ] cvx def
- TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
- FROM LFROM
- XP1PRE [XP1CTR CLOCK] XP1POST
- XP2PRE [XP2CTR CLOCK] XP2POST
- LMID
- XP3PRE [XP3CTR CLOCK] XP3POST
- XP4PRE [XP4CTR CLOCK] XP4POST
- LTO TO
-
- % (leaving ldiagdwrapcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent bias fbias tbias ldiaguwraplinepath -
-/ldiaguwraplinepath
-{
- % (entering ldiaguwraplinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /tbias exch def
- /fbias exch def
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
- { 180 dg } { 0 dg } ifelse ] cvx def
- from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
- DIRN /FROM@ANGLE ldiagangledef
- to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
- DIRN /TO@ANGLE ldiagangledef
- FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd /P1 ldiagpointdef
- DIRN 180 dg eq { 135 dg } { 45 dg } ifelse /P1@ANGLE ldiagangledef
- TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd
- /P4 ldiagpointdef
- DIRN 180 dg eq { 225 dg } { -45 dg } ifelse /P4@ANGLE ldiagangledef
- /YC [ from (CTR) ldiagdolabel 90 dg from (CIRCUM) ldiagdolabel ldiagpadd
- exch pop to (CTR) ldiagdolabel 90 dg to (CIRCUM) ldiagdolabel ldiagpadd
- exch pop ldiagmax bias 0 ldiagmax add ] cvx def
- P1 pop YC /P2 ldiagpointdef
- P4@ANGLE 180 dg sub /P2@ANGLE ldiagangledef
- P4 pop YC /P3 ldiagpointdef
- P1@ANGLE 180 dg sub /P3@ANGLE ldiagangledef
- /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
- FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- /ZINDENT [ zindent TO P4 ldiagdistance ldiagmin ] cvx def
- TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
- P2 0.5 ldiagpmul P3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- DIRN 180 dg sub /LMID@ANGLE ldiagangledef
- FROM P1 P2 P3 P4 TO
-
- % (leaving ldiaguwraplinepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% farr tarr { from } { to } xindent zindent bias fbias tbias radius
-% ldiaguwrapcurvepath -
-/ldiaguwrapcurvepath
-{
- % (entering ldiaguwrapcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
- /radius exch def
- /tbias exch def
- /fbias exch def
- /bias exch def
- /zindent exch def
- /xindent exch def
- cvlit /to exch def
- cvlit /from exch def
- /toarrowlength exch def
- /fromarrowlength exch def
-
- /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
- { 180 dg } { 0 dg } ifelse ] cvx def
- /CLOCK [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
- { clockwise } { anticlockwise } ifelse ] cvx def
- from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
- DIRN /FROM@ANGLE ldiagangledef
- to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
- 0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
- DIRN /TO@ANGLE ldiagangledef
- /XP1 [ FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd ] cvx def
- /XP4 [ TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd ] cvx def
- /YC [ from (CTR) ldiagdolabel 90 dg from (CIRCUM) ldiagdolabel ldiagpadd
- exch pop to (CTR) ldiagdolabel 90 dg to (CIRCUM) ldiagdolabel ldiagpadd
- exch pop ldiagmax bias 0 ldiagmax add ] cvx def
- /XP2 [ XP1 pop YC ] cvx def
- /XP3 [ XP4 pop YC ] cvx def
- /RP1 [ radius XP1 FROM ldiagdistance XP1 XP2 ldiagdistance 2 div
- ldiagmin ldiagmin ] cvx def
- /XP1PRE [ XP1 0 0 RP1 XP1 FROM ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP1POST [ XP1 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP1CTR [ XP1PRE 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP1CTR 0 0 RP1 XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd /P1 ldiagpointdef
- XP1CTR P1 ldiagangleto DIRN add 90 dg add /P1@ANGLE ldiagangledef
- /RP2 [ radius XP1 XP2 ldiagdistance 2 div XP2 XP3 ldiagdistance 2 div
- ldiagmin ldiagmin ] cvx def
- /XP2PRE [ XP2 0 0 RP2 XP2 XP1 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP2POST [ XP2 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP2CTR [ XP2PRE 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP2CTR 0 0 RP2 XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd /P2 ldiagpointdef
- XP2CTR P2 ldiagangleto DIRN add 90 dg add /P2@ANGLE ldiagangledef
- /RP3 [ radius XP2 XP3 ldiagdistance 2 div XP3 XP4 ldiagdistance 2 div
- ldiagmin ldiagmin ] cvx def
- /XP3PRE [ XP3 0 0 RP3 XP3 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP3POST [ XP3 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP3CTR [ XP3PRE 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP3CTR 0 0 RP3 XP3CTR XP3 ldiagangleto ldiagatangle ldiagpadd /P3 ldiagpointdef
- XP3CTR P3 ldiagangleto DIRN add 90 dg add /P3@ANGLE ldiagangledef
- /RP4 [ radius XP4 XP3 ldiagdistance 2 div XP4 TO ldiagdistance
- ldiagmin ldiagmin ] cvx def
- /XP4PRE [ XP4 0 0 RP4 XP4 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP4POST [ XP4 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
- /XP4CTR [ XP4PRE 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
- XP4CTR 0 0 RP4 XP4CTR XP4 ldiagangleto ldiagatangle ldiagpadd /P4 ldiagpointdef
- XP4CTR P4 ldiagangleto DIRN add 90 dg add /P4@ANGLE ldiagangledef
- /XINDENT [ xindent FROM XP1PRE ldiagdistance ldiagmin ] cvx def
- FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
- FROM@ANGLE /LFROM@ANGLE ldiagangledef
- XP2 0.5 ldiagpmul XP3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
- DIRN 180 dg sub /LMID@ANGLE ldiagangledef
- /ZINDENT [ zindent TO XP4POST ldiagdistance ldiagmin ] cvx def
- TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
- TO@ANGLE /LTO@ANGLE ldiagangledef
- FROM LFROM
- XP1PRE [XP1CTR CLOCK] XP1POST
- XP2PRE [XP2CTR CLOCK] XP2POST
- LMID
- XP3PRE [XP3CTR CLOCK] XP3POST
- XP4PRE [XP4CTR CLOCK] XP4POST
- LTO TO
-
- % (leaving ldiaguwrapcurvepath) 0 ldiagdebugprint
- % count ( stack size is) 1 ldiagdebugprint pop
-} def
-
-% shape and labels of the @SolidArrowHead symbol
-% - ldiagsolidarrowhead -
-/ldiagsolidarrowhead
-{
- 0 0 xsize ysize 0.5 mul 0 ysize
-} def
-
-% shape and labels of the @OpenArrowHead symbol
-% <pathwidth> ldiagopenarrowhead -
-/ldiagopenarrowhead
-{
- /pathwidth exch def
- /PSW [ 0 0 ] cvx def
- /PNW [ 0 ysize ] cvx def
- /PE [ xsize ysize 0.5 mul ] cvx def
- /REL [ 0 0 pathwidth PE PNW ldiagangleto 90 add ldiagatangle ] cvx def
- /PNA [ 0 ysize 0.5 mul pathwidth 0.5 mul add ] cvx def
- /PSA [ 0 ysize 0.5 mul pathwidth 0.5 mul sub ] cvx def
- /PNI [ PNA PNA xsize 0 ldiagpadd PNW REL ldiagpadd
- PE REL ldiagpadd ldiaglineintersect ] cvx def
- /PSI [ 0 pathwidth PNI ldiagpsub ] cvx def
-
- PSW PE PNW PNI PNA PSA PSI PSW
-} def
-
-% shape and labels of the @HalfOpenArrowHead symbol
-% <pathwidth> ldiaghalfopenarrowhead -
-/ldiaghalfopenarrowhead
-{
- /pathwidth exch def
- 0 0
- xsize ysize 0.5 mul
- 0 ysize
- xsize 0.3 mul ysize 0.5 mul pathwidth 0.5 mul add
- 0 ysize 0.5 mul pathwidth 0.5 mul add
- 0 ysize 0.5 mul pathwidth 0.5 mul sub
- xsize 0.3 mul ysize 0.5 mul pathwidth 0.5 mul sub
- 0 0
-} def
-
-% shape and labels of the @SolidCurvedArrowHead symbol
-% - ldiagsolidcurvedarrowhead -
-/ldiagsolidcurvedarrowhead
-{
- 0 0
- [0 0 xsize ysize 0.5 mul ldiaglinebetween
- xsize 0 xsize ysize ldiaglineintersect clockwise]
- xsize ysize 0.5 mul
- [xsize ysize 0.5 mul 0 ysize ldiaglinebetween
- xsize 0 xsize ysize ldiaglineintersect clockwise]
- 0 ysize
-} def
-
-% shape and labels of the @OpenCurvedArrowHead symbol
-% <pathwidth> ldiagopencurvedarrowhead -
-/ldiagopencurvedarrowhead
-{
- /pathwidth exch def
- /LR [ 0 0 xsize ysize 0.5 mul ldiaglinebetween
- xsize 0 xsize ysize ldiaglineintersect
- ] cvx def
- /UR [ xsize ysize 0.5 mul 0 ysize ldiaglinebetween
- xsize 0 xsize ysize ldiaglineintersect
- ] cvx def
- /PW2 [ pathwidth 0.5 mul ] cvx def
- /UMID [
- 0 ysize 0.5 mul PW2 add
- xsize ysize 0.5 mul PW2 add
- 0 ysize 0 0 1 ft UR 0 ysize ldiagangleto 90 add ldiagatangle
- ldiagpadd 0 ysize ldiaglineintersect
- ] cvx def
- /LMID [ 0 pathwidth UMID ldiagpsub ] cvx def
- 0 0
- [LR clockwise]
- xsize ysize 0.5 mul
- [UR clockwise]
- 0 ysize
- UMID
- 0 ysize 0.5 mul PW2 add
- 0 ysize 0.5 mul PW2 sub
- LMID
- 0 0
-} def
-
-% shape and labels of the @HalfOpenCurvedArrowHead symbol
-% <pathwidth> ldiaghalfopencurvedarrowhead -
-/ldiaghalfopencurvedarrowhead
-{
- /pathwidth exch def
- /LR [ 0 0 xsize ysize 0.5 mul ldiaglinebetween
- xsize 0 xsize ysize ldiaglineintersect
- ] cvx def
- /UR [ xsize ysize 0.5 mul 0 ysize ldiaglinebetween
- xsize 0 xsize ysize ldiaglineintersect
- ] cvx def
- /BR [ 0 0 LR 0 ysize UR ldiaglineintersect ] cvx def
- /BRAD [ 0 0 BR ldiagdistance ] cvx def
- /PW2 [ pathwidth 0.5 mul ] cvx def
- /XDIST [ BRAD dup mul PW2 dup mul sub sqrt ] cvx def
- /UMID [ BR XDIST PW2 ldiagpadd ] cvx def
- /LMID [ BR XDIST 0 PW2 sub ldiagpadd ] cvx def
- 0 0
- [LR clockwise]
- xsize ysize 0.5 mul
- [UR clockwise]
- 0 ysize
- [BR clockwise]
- UMID
- 0 ysize 0.5 mul PW2 add
- 0 ysize 0.5 mul PW2 sub
- LMID
- [BR clockwise]
- 0 0
-} def
-
-end
-%%EndResource
-
-%%BeginResource: procset LoutBasicSetup
-% @PrependGraphic file /export/home/6monthspace/jeff/lout.lib/include/bsf.lpg
-
-% width height linethickness louteuro -
-% draw a Euro symbol of this width and height with this line thickness
-/louteuro {
- 20 dict begin
- /eurothick exch def
- /euroheight exch def
- /eurowidth exch def
- /eurostrokewidth euroheight 0.8 mul def
- /eurostep eurothick 60 cos mul 60 sin div def
- /eurotheta 40 def
-
- % llx lly width thickness louteurobox -
- % draw angled box starting at (llx, lly) with given width and thickness
- /louteurobox
- {
- /euroboxthick exch def
- /euroboxwidth exch def
- newpath moveto euroboxwidth 0 rlineto
- eurostep euroboxthick rlineto
- euroboxwidth neg 0 rlineto closepath fill
- } def
-
- % lower cross stroke
- 0 euroheight 2 div eurothick 1.5 mul sub
- eurostrokewidth eurothick louteurobox
-
- % upper cross stroke
- 0 euroheight 2 div eurothick 0.5 mul add
- eurostrokewidth eurostep 2 mul add eurothick louteurobox
-
- % circular part
- /eurohctr eurowidth euroheight 2 div eurotheta cos mul sub def
- /eurovctr euroheight 2 div def
- newpath
- eurohctr eurovctr eurovctr eurotheta 350 eurotheta sub arc
- eurohctr eurovctr eurovctr eurothick sub 365 eurotheta sub eurotheta arcn
- closepath fill
- end
-} def
-
-% path for @FullWidthRule symbol
-/LoutRule
-{ 0 0 moveto xsize 0 lineto
-} def
-
-% path for @Box symbol
-/LoutBox
-{ 0 0 moveto xsize 0 lineto
- xsize ysize lineto 0 ysize lineto
- closepath
-} def
-
-% path for @CurveBox symbol
-/LoutCurveBox
-{ xmark 0 moveto
- xsize xmark sub xmark xmark 270 360 arc
- xsize xmark sub ysize xmark sub xmark 0 90 arc
- xmark ysize xmark sub xmark 90 180 arc
- xmark xmark xmark 180 270 arc
- closepath
-} def
-
-% path for @ShadowBox symbol
-/LoutShadowBox
-{ xmark 2 mul 0 moveto xsize 0 lineto
- xsize ysize xmark 2 mul sub lineto
- xsize xmark sub ysize xmark 2 mul sub lineto
- xsize xmark sub xmark lineto
- xmark 2 mul xmark lineto
- closepath
-} def
-
-% set up dictionary containing margin note data: parity LoutMargSet -
-/LoutMargSet
-{ /LoutMargDict 12 dict def
- LoutMargDict begin
- /parity exch def
- /matr matrix currentmatrix def
- /rightx xsize def
- /lefty ysize def % highest allowable point for top of next left note
- /righty ysize def % highest allowable point for top of next right note
- /max { 2 copy gt { pop } { exch pop } ifelse } def
- /min { 2 copy lt { pop } { exch pop } ifelse } def
- end
-} def
-
-%translate coordinate system for marginal notes: type LoutMargShift -
-% where type 0 is left margin, 1 is right margin, 2 is outer, 3 is inner
-/LoutMargShift
-{ LoutMargDict begin
-
- % y coordinate of top of note, in margin coords, before vertical adjust
- 0 ysize transform matr itransform exch pop
-
- % decide whether left or right margin based on type and parity
- exch [ 0 1 parity 1 parity sub ] exch get 0 eq
- {
- % left margin: adjust top of note downwards if overlaps previous note
- lefty min
-
- % bottom of note is new lefty position and also translate position
- ysize sub dup /lefty exch def
-
- % want right edge of note at coordinate zero
- xsize neg exch
- }
- {
- % right margin: adjust top of note downwards if overlaps previous note
- righty min
-
- % bottom of note is new righty position and also translate position
- ysize sub dup /righty exch def
-
- % want left edge of note at coordinate rightx
- rightx exch
- } ifelse
-
- % stack now contains coord of bottom left corner in margin coordinates
- matr setmatrix translate
- end
-} def
-
-% create LoutPageDict with left, right, foot, top for @Place symbol users
-/LoutPageSet
-{
- /LoutPageDict 5 dict def
- LoutPageDict begin
- /matr matrix currentmatrix def
- /left 0 def
- /right xsize def
- /foot 0 def
- /top ysize def
- end
-
-} def
-
-%%EndResource
-
-%%EndProlog
-
-%%BeginSetup
-%%IncludeResource: font Times-Roman
-/Times-Romanfnt82 vec2 /Times-Roman LoutRecode
-/fnt82 { /Times-Romanfnt82 LoutFont } def
-%%IncludeResource: font Helvetica
-/Helveticafnt35 vec2 /Helvetica LoutRecode
-/fnt35 { /Helveticafnt35 LoutFont } def
-%%IncludeResource: font Symbol
-/fnt78 { /Symbol LoutFont } def
-%%EndSetup
-
-%%Page: i 1
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Helvetica
-%%+ font Symbol
-/pgsave save def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-600 fnt35 1751 12125(A)m 2310(User')s 30(s)k 4123(Guide)s
-5863(to)s 6507(the)s 3956 10685(Lout)m 616 9245(Document)m 3500(F)s 18(or)k -15(matting)k
-6490(System)s 240 fnt35 3544 6059(Jeffre)m 4(y)k 4321(H.)s
-4606(Kingston)s 3883 4395(V)m 19(ersion)k 4726(3.20)s 3974 4107(Apr)m -3(il,)k
-4567(2000)s 0 340(Cop)m 7(yr)k -3(ight)k 240 fnt78
-1080 342(\343)m 240 fnt35 1323 340(1991,)m 1967(2000)s 2558(Jeffre)s 4(y)k
-3335(H.)s 3620(Kingston,)s 4663(Basser)s 5475(Depar)s -9(tment)k
-6793(of)s 7055(Computer)s 8171(Science)s 3(,)k 0 52(The)m
-469(Univ)s 6(ersity)k 1577(of)s 1839(Sydne)s 4(y)k
-2698(2006,)s 3342(A)s 7(ustr)k 2(alia.)k 4441(ISBN)s
-5048(0)s 5239(86758)s 5961(951)s 6379(5.)s
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: ii 2
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-480 fnt84 0 12955(Contents)m 240 fnt84 0 11982(Chapter)m 908(1)s
-240 fnt82 1015 11983(.)m 240 fnt84 1179 11982(Computer)m 2286(Pr)s 4(ograms)k
-240 fnt82 3770 11983(..)m 4114(..)s 4458(..)s 4802(..)s
-5146(..)s 5490(..)s 5834(..)s 6178(..)s 6522(..)s
-6866(..)s 7210(..)s 7554(..)s 7898(..)s 8242(..)s
-8971(1)s 720 11638(1.1.)m 1184(T)s 19(ypesetting)k 2347(computer)s
-3310(programs)s 4264(independently)s 5674(of)s 5945(an)s 3(y)k
-6342(document)s 7554(..)s 7898(..)s 8242(..)s 8971(1)s
-720 11293(1.2.)m 1184(T)s 19(ypesetting)k 2347(computer)s 3310(programs)s
-4264(as)s 4514(part)s 4945(of)s 5216(a)s 5382(lar)s 4(ger)k
-5994(document)s 7210(..)s 7554(..)s 7898(..)s 8242(..)s
-8952(2)s 720 10948(1.3.)m 1184(Changing)s 2169(the)s 2517(appearance)s
-3648(of)s 3919(a)s 4085(program)s 5146(..)s 5490(..)s
-5834(..)s 6178(..)s 6522(..)s 6866(..)s 7210(..)s
-7554(..)s 7898(..)s 8242(..)s 8952(4)s 720 10603(1.4.)m
-1184(Changing)s 2169(the)s 2517(appearance)s 3648(of)s 3919(all)s
-4212(programs)s 5166(simultaneously)s 6866(..)s 7210(..)s 7554(..)s
-7898(..)s 8242(..)s 8953(6)s 720 10258(1.5.)m 1184(Dealing)s
-1994(with)s 2476(tab)s 2821(characters)s 3839(in)s 4082(programs)s
-5490(..)s 5834(..)s 6178(..)s 6522(..)s 6866(..)s
-7210(..)s 7554(..)s 7898(..)s 8242(..)s 8959(8)s
-720 9913(1.6.)m 1184(Dealing)s 1994(with)s 2476(formfeed)s 3409(characters)s
-4427(in)s 4670(programs)s 5834(..)s 6178(..)s 6522(..)s
-6866(..)s 7210(..)s 7554(..)s 7898(..)s 8242(..)s
-8955(9)s 720 9568(1.7.)m 1184(Embedding)s 2341(Lout)s 2853(commands)s
-3941(within)s 4609(program)s 5479(comments)s 6866(..)s 7210(..)s
-7554(..)s 7898(..)s 8242(..)s 8831(10)s 720 9223(1.8.)m
-1184(Embedding)s 2341(program)s 3211(te)s 3(xt)k 3626(within)s
-4294(program)s 5164(comments)s 6522(..)s 6866(..)s 7210(..)s
-7554(..)s 7898(..)s 8242(..)s 8831(10)s 720 8878(1.9.)m
-1184(Reading)s 2035(and)s 2439(selecting)s 3341(program)s 4211(te)s 3(xt)k
-4626(from)s 5150(separate)s 5988(\207les)s 6866(..)s 7210(..)s
-7554(..)s 7898(..)s 8242(..)s 8851(11)s 720 8533(1.10.)m
-1304(Error)s 1867(messages)s 3082(..)s 3426(..)s 3770(..)s
-4114(..)s 4458(..)s 4802(..)s 5146(..)s 5490(..)s
-5834(..)s 6178(..)s 6522(..)s 6866(..)s 7210(..)s
-7554(..)s 7898(..)s 8242(..)s 8832(12)s 720 8188(1.11.)m
-1304(Notes)s 1913(on)s 2210(Perl)s 2649(and)s 3053(Pod)s
-3770(..)s 4114(..)s 4458(..)s 4802(..)s 5146(..)s
-5490(..)s 5834(..)s 6178(..)s 6522(..)s 6866(..)s
-7210(..)s 7554(..)s 7898(..)s 8242(..)s 8832(12)s
-240 fnt84 0 7558(Refer)m 4(ences)k 240 fnt82 1362 7559(..)m
-1706(..)s 2050(..)s 2394(..)s 2738(..)s 3082(..)s
-3426(..)s 3770(..)s 4114(..)s 4458(..)s 4802(..)s
-5146(..)s 5490(..)s 5834(..)s 6178(..)s 6522(..)s
-6866(..)s 7210(..)s 7554(..)s 7898(..)s 8242(..)s
-8840(15)s 240 fnt84 0 6930(Index)m 240 fnt82 1018 6931(..)m
-1362(..)s 1706(..)s 2050(..)s 2394(..)s 2738(..)s
-3082(..)s 3426(..)s 3770(..)s 4114(..)s 4458(..)s
-4802(..)s 5146(..)s 5490(..)s 5834(..)s 6178(..)s
-6522(..)s 6866(..)s 7210(..)s 7554(..)s 7898(..)s
-8242(..)s 8833(16)s
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 1 3
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Helvetica
-%%+ font Times-Italic
-%%+ font Times-Italic
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt90 vec2 /Times-Italic LoutRecode
-/fnt90 { /Times-Italicfnt90 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-480 fnt84 0 12955(Chapter)m 1819(1.)s 2400(Computer)s 4618(Pr)s 8(ograms)k
-240 fnt82 0 12003(This)m 471(chapter)s 1228(describes)s 2162(ho)s 6(w)k
-2617(to)s 2850(typeset)s 3581(computer)s 4538(program)s 5403(te)s 3(xt)k
-5812(using)s 6378(Lout)s 6884(in)s 7121(conjunction)s 8302(with)s
-8778(the)s 220 fnt35 0 11712(prg2lout)m 153 fnt82 788 11804(1)m
-240 fnt82 908 11715(\207lter)m 1418(program,)s 2335(which)s 2977(is)s
-3187(al)s 2(w)k 2(ays)k 3898(installed)s 4765(where)s 6(v)k 3(er)k
-5705(Lout)s 6217(is.)s 480 11341(It)m 680(is)s 884(possible)s
-1719(to)s 1952(simply)s 2652(print)s 3157(out)s 3518(one)s
-3914(or)s 4168(more)s 4709(program)s 5574(\207les)s 6017(independently)s
-7422(of)s 7687(an)s 3(y)k 8078(document.)s 0 11053(Alternati)m 6(v)k 3(ely)k 15(,)k
-1355(the)s 1715(program)s 2598(te)s 3(xt)k 3025(may)s
-3503(be)s 3798(printed)s 4545(as)s 4807(part)s 5251(of)s
-5534(a)s 5712(lar)s 4(ger)k 6337(Lout)s 6861(document.)s
-7981(Either)s 8637(w)s 2(ay)k 15(,)k 0 10765(Lout)m
-525(does)s 1028(not)s 1407(lay)s 1767(out)s 2146(the)s
-2507(programs)s 3475(in)s 3731(the)s 4092(sense)s 4679(of)s
-4964(choosing)s 5895(line)s 6322(breaks)s 7011(and)s 7428(indenting;)s
-8457(it)s 8663(uses)s 0 10477(whate)m 6(v)k 3(er)k
-942(line)s 1371(breaks)s 2061(and)s 2480(indenting)s 3452(you)s
-3882(gi)s 6(v)k 3(e)k 4356(to)s 4610(the)s
-4973(program.)s 5962(What)s 6555(Lout)s 7082(does)s 7587(do)s
-7895(is)s 8120(cope)s 8644(with)s 0 10189(characters)m 1044(in)s
-1313(the)s 1688(program)s 2584(te)s 3(xt)k 3026(that)s
-3470(it)s 3689(w)s 2(ould)k 4370(ordinarily)s 5393(either)s
-6022(reject)s 6638(or)s 6923(interpret)s 7818(in)s 8087(some)s
-8675(w)s 2(ay)k 0 9901(\(braces)m 729(and)s 1121(so)s
-1375(on\),)s 1790(ensuring)s 2655(that)s 3061(you)s 3464(can)s
-3842(include)s 4590(program)s 5448(te)s 3(xts)k 5936(with)s
-6406(absolutely)s 7431(no)s 7712(modi\207cations;)s 0 9613(plus,)m 506(if)s
-723(you)s 1138(wish,)s 1697(Lout)s 2209(will)s 2635(print)s
-3146(k)s 2(e)k 3(yw)k 2(ords)k 4121(in)s
-4364(bold,)s 4897(identi\207ers)s 5903(in)s 6146(italics,)s 6822(add)s
-7226(line)s 7640(numbers,)s 8571(etc.)s 480 9239(At)m 779(the)s
-1127(time)s 1607(of)s 1878(writing,)s 2675(the)s 3023(a)s 4(v)k 6(ailable)k
-3931(programming)s 5286(languages)s 6294(are:)s 1808 12 0 12 240 288 60 635 8599 LoutGr2
-LoutBox ltblblack
-grestore
-
-grestore
-240 fnt90 779 8703(Langua)m 2(g)k 2(e)k
-1787(name)s gsave
-2443 8599 translate
-240 fnt82 1730 12 0 12 240 288 60 LoutGraphic
-gsave
-LoutBox ltblblack
-grestore
-
-grestore
-2587(Setup)s 3172(\207le)s 3517(name)s gsave
-4173 8599 translate
-240 fnt82 1469 12 0 12 240 288 60 LoutGraphic
-gsave
-LoutBox ltblblack
-grestore
-
-grestore
-4317(Lout)s
-4820(symbol)s gsave
-5642 8599 translate
-240 fnt82 1499 12 0 12 240 288 60 LoutGraphic
-gsave
-LoutBox ltblblack
-grestore
-
-grestore
-5786(Default)s 6567(style)s gsave
-7141 8599 translate
-240 fnt82 1290 12 0 12 240 288 60 LoutGraphic
-gsave
-LoutBox ltblblack
-grestore
-
-grestore
-7285(`)s 7419(')s
-7548(escapes)s 240 fnt82 779 8413(C,)m 1046(C++)s 220 fnt35
-2587 8410(cpr)m -3(int)k 4317(@CP)s 5786(\207x)s 6(ed)k
-240 fnt82 7285 8413(No)m 779 8125(Eif)m 6(fel)k 220 fnt35
-2587 8122(eiff)m 6(el)k 4317(@Eiff)s 6(el)k 5786(v)s 5(ar)k -6(ying)k
-240 fnt82 7285 8125(Y)m 24(es)k 779 7837(Blue)m 220 fnt35
-2587 7834(b)m 4(lue)k 4317(@Blue)s 5786(v)s 5(ar)k -6(ying)k
-240 fnt82 7285 7837(Y)m 24(es)k 779 7549(Perl)m 220 fnt35
-2587 7546(per)m -3(l)k 4317(@P)s 11(er)k -3(l)k
-5786(\207x)s 6(ed)k 240 fnt82 7285 7549(No)m 779 7261(Pod)m
-220 fnt35 2587 7258(pod)m 4317(@P)s 11(od)k 5786(v)s 5(ar)k -6(ying)k
-240 fnt82 7285 7261(No)m 0 6720(C)m 213(and)s 619(C++)s
-1103(are)s 1452(handled)s 2270(together)s 3114(since,)s 3714(for)s
-4054(formatting)s 5116(purposes,)s 6076(the)s 3(y)k 6540(dif)s 6(fer)k
-7125(only)s 7607(in)s 7851(that)s 8271(C++)s 8756(has)s
-0 6432(some)m 558(additional)s 1566(k)s 2(e)k 3(yw)k 2(ords)k
-2538(plus)s 2985(an)s 3265(e)s 3(xtra)k 3796(w)s 2(ay)k
-4244(to)s 4480(mak)s 2(e)k 5049(comments.)s 6193(Whene)s 6(v)k 3(er)k
-7224(we)s 7556(mention)s 8394(C)s 8602(from)s 0 6144(no)m 6(w)k
-465(on,)s 816(we)s 1156(mean)s 1735(both)s 2223(C)s
-2439(and)s 2848(C++.)s 3446(See)s 3852(Section)s 4630(1.11)s
-5089(for)s 5432(more)s 5983(on)s 6285(Perl)s 6728(and)s
-7137(its)s 7417(handmaiden)s 8649(Pod.)s 0 5856(The)m 428(second)s
-1151(to)s 1390(\207fth)s 1845(columns)s 2707(of)s 2978(this)s
-3374(table)s 3894(will)s 4320(be)s 4602(e)s 3(xplained)k
-5587(at)s 5819(v)s 6(arious)k 6568(points)s 7204(later)s
-7687(in)s 7930(this)s 8326(chapter)s 13(.)k 480 5482(The)m
-913(list)s 1270(of)s 1547(languages)s 2560(is)s 2776(lik)s 2(ely)k
-3378(to)s 3623(e)s 3(xpand,)k 4424(because)s 5243(the)s
-220 fnt35 5597 5479(prg2lout)m 240 fnt82 6450 5482(program)m 7326(has)s
-7702(been)s 8217(designed)s 0 5194(to)m 252(mak)s 2(e)k
-838(it)s 1044(relati)s 6(v)k 3(ely)k 2004(easy)s
-2497(to)s 2750(add)s 3168(ne)s 6(w)k 3629(languages)s
-4651(\(you)s 5159(don')s 4(t)k 5734(ha)s 4(v)k 3(e)k
-6249(to)s 6502(write)s 7062(e)s 3(x)k 3(ecutable)k
-8148(code,)s 8721(just)s 0 4906(declare)m 768(a)s 957(lot)s
-1292(of)s 1586(records)s 2363(describing)s 3435(your)s 3957(language\).)s
-5087(Consult)s 5915(the)s 6286(instructions)s 7475(at)s 7730(the)s
-8101(top)s 8483(of)s 8778(the)s 0 4618(source)m 680(\207le)s
-1041(of)s 1312(that)s 1730(program)s 2600(\()s 240 fnt83
-2673 4620(pr)m 8(g2lout.c)k 240 fnt82 3652 4618(\))m 3780(if)s
-3997(you)s 4412(w)s 2(ant)k 4935(to)s 5174(try)s
-5493(it)s 5685(yourself.)s 240 fnt84 0 3825(1.1.)m 471(T)s 17(ypesetting)k
-1705(computer)s 2745(pr)s 4(ograms)k 3792(independently)s 5295(of)s
-5567(any)s 5996(document)s 240 fnt82 480 3348(Printing)m 1299(of)s
-1566(program)s 2432(\207les)s 2876(independently)s 4282(of)s 4549(an)s 3(y)k
-4942(document)s 5941(is)s 6147(accomplished)s 7516(by)s 7806(the)s
-8149(follo)s 6(wing)k 0 3060(Unix)m 534(pipeline:)s 220 fnt35
-480 2559(prg2lout -l language options \207les | lout -s > out.ps)m 240 fnt82 0 2060(where)m 220 fnt35 626 2057(language)m
-240 fnt82 1566 2060(stands)m 2201(for)s 2525(an)s 3(y)k
-2908(one)s 3296(of)s 3553(the)s 3886(programming)s 5227(language)s
-6133(names)s 6781(in)s 7010(the)s 7344(\207rst)s 7761(column)s
-8522(of)s 8778(the)s 1134 0 0 0 240 288 60 0 1553 LoutGr2
-0 0 moveto xsize 0 lineto stroke
-grestore
-
-grestore
-122 fnt82 0 1358(1)m 192 fnt82
-62 1288(Prior)m 496(to)s 693(V)s 21(ersion)k 1328(3.18)s
-1707(of)s 1928(Lout,)s 2380(this)s 2702(chapter)s 3318(described)s
-4103(ho)s 4(w)k 4477(to)s 4674(typeset)s 5268(programs)s
-6036(written)s 6628(in)s 6828(the)s 7112(C)s 7287(programming)s
-8377(language)s 0 1058(using)m 487(the)s 172 fnt35 795 1057(c2lout)m
-192 fnt82 1326 1058(\207lter)m 7(,)k 1794(and)s 2148(Eif)s 4(fel)k
-2651(programs)s 3444(using)s 3931(the)s 172 fnt35 4240 1057(eif2lout)m
-192 fnt82 4864 1058(\207lter)m 10(.)k 5375(These)s 5906(ha)s 3(v)k 2(e)k
-6338(no)s 4(w)k 6736(been)s 7174(withdra)s 2(wn)k
-8065(and)s 8419(replaced)s 0 828(by)m 172 fnt35 270 827(prg2lout)m
-192 fnt82 884 828(,)m 1005(which)s 1553(handles)s 2214(multiple)s
-2931(languages.)s 3863(Ordinary)s 4631(Lout)s 5076(documents)s 5981(require)s
-6602(no)s 6871(modi\207cations)s 7989(as)s 8223(a)s 8391(result)s
-8898(of)s 0 598(this)m 317(change.)s 192 fnt84 4490 0(1)m
-
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 2 4
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-240 fnt84 0 13840(2)m 240 fnt83 5981 13843(Chapter)m 6831(1.)s
-7105(Computer)s 8128(Pr)s 10(o)k 2(gr)k 3(ams)k
-240 fnt82 0 13205(table)m 509(abo)s 3(v)k 3(e.)k
-1228(As)s 1533(usual)s 2082(with)s 2553(Lout,)s 3100(the)s
-3437(output)s 4098(will)s 4512(be)s 4783(a)s 4938(PostScript)s
-5968(\207le.)s 6426(Each)s 6950(input)s 7490(\207le)s 7840(will)s
-8255(be)s 3(gin)k 8829(on)s 0 12917(a)m 170(ne)s 6(w)k
-622(page)s 1135(of)s 1411(the)s 1764(output,)s 2488(starting)s
-3262(with)s 3749(its)s 4030(name)s 4609(in)s 4857(bold)s
-5346(type.)s 5927(The)s 6360(options)s 7121(pro)s 3(vide)k
-7910(control)s 8647(o)s 3(v)k 3(er)k 0 12629(the)m
-348(\207nal)s 828(appearance,)s 2010(as)s 2260(follo)s 6(ws:)k
-220 fnt35 0 12121(-p)m 240 fnt83 187 12126(style)m 240 fnt82
-960 12124(Select)m 1630(a)s 1823(printing)s 2661(style.)s 3303(Y)s 26(our)k
-3856(choices)s 4652(are)s 220 fnt35 5026 12121(-p\207x)m 6(ed)k
-240 fnt82 5667 12124(,)m 220 fnt35 5801 12121(-pv)m 5(ar)k -6(ying)k
-240 fnt82 6692 12124(,)m 6827(and)s 220 fnt35 7258 12121(-psymbol)m
-240 fnt82 8134 12124(,)m 8268(with)s 8778(the)s 960 11836(def)m 2(ault)k
-1707(v)s 6(alue)k 2302(v)s 6(arying)k 3106(with)s
-3615(the)s 3990(language)s 4936(as)s 5213(gi)s 6(v)k 3(en)k
-5820(in)s 6089(the)s 6464(fourth)s 7132(column)s 7933(of)s
-8231(the)s 8606(table)s 960 11548(abo)m 3(v)k 3(e.)k
-1690(Consult)s 2495(Section)s 3269(1.2)s 3623(for)s 3961(e)s 3(xamples)k
-4912(of)s 5183(these)s 5730(styles.)s 220 fnt35 0 11042(-n)m
-240 fnt82 960 11045(Do)m 1306(not)s 1672(print)s 2183(\207le)s
-2544(names.)s 220 fnt35 0 10539(-f)m 240 fnt83 131 10544(font)m
-240 fnt82 960 10542(Select)m 1589(a)s 1740(Lout)s 2237(font)s
-2667(f)s 2(amily)k 15(.)k 3423(The)s 3836(def)s 2(ault)k
-4542(is)s 220 fnt35 4737 10539(-fCour)m -3(ier)k 240 fnt82
-5637 10542(for)m 220 fnt35 5961 10539(-p\207x)m 6(ed)k 240 fnt82
-6602 10542(,)m 6694(and)s 220 fnt35 7083 10539(-fTimes)m 240 fnt82
-7852 10542(for)m 220 fnt35 8175 10539(-pv)m 5(ar)k -6(ying)k
-240 fnt82 960 10254(and)m 220 fnt35 1364 10251(-psymbol)m 240 fnt82
-2240 10254(.)m 220 fnt35 0 9750(-v)m 240 fnt83 182 9755(vsize)m
-240 fnt82 960 9753(Select)m 1594(an)s 1867(inter)s 4(-line)k
-2783(spacing)s 3557(size)s 3975(in)s 4208(Lout)s 4710(units.)s
-5329(The)s 5747(def)s 2(ault)k 6459(is)s 220 fnt35
-6659 9750(-v1.1fx)m 240 fnt82 7366 9753(meaning)m 8233(1.1)s 8558(times)s
-960 9465(the)m 1308(font)s 1753(size)s 2180(measured)s 3154(from)s
-3678(baseline)s 4517(to)s 4756(baseline.)s 220 fnt35 0 9007(-L)m
-240 fnt83 191 9012(number)m 240 fnt82 960 9010(Add)m 1478(line)s
-1939(numbers)s 2861(to)s 3147(the)s 3542(program)s 4459(print,)s
-5064(starting)s 5880(with)s 240 fnt83 6409 9012(number)m 240 fnt82
-7146 9010(,)m 7300(or)s 7606(1)s 7808(if)s 240 fnt83
-8072 9012(number)m 240 fnt82 8916 9010(is)m 960 8722(omitted.)m 220 fnt35
-0 8264(-S)m 240 fnt83 209 8269(\207le)m 240 fnt82 960 8267(Use)m
-240 fnt83 1389 8269(\207le)m 240 fnt82 1736 8267(as)m 1988(the)s
-2337(setup)s 2897(\207le)s 3260(for)s 3599(printing)s 4411(your)s
-4912(language.)s 5941(This)s 6419(allo)s 6(ws)k 7090(you)s
-7506(to)s 7747(change)s 8483(all)s 8778(the)s 960 7979(options)m
-1716(mentioned)s 2784(in)s 3027(subsequent)s 4151(sections,)s 5028(rather)s
-5644(than)s 6113(just)s 6518(the)s 6866(fe)s 6(w)k
-7272(gi)s 6(v)k 3(en)k 7852(here.)s 0 7474(There)m
-613(are)s 960(also)s 220 fnt35 1398 7471(-t)m 240 fnt82
-1588 7474(and)m 220 fnt35 1992 7471(-T)m 240 fnt82 2256 7474(options)m
-3012(for)s 3350(dealing)s 4107(with)s 4589(tab)s 4934(characters)s
-5952(\(Section)s 6805(1.5\).)s 240 fnt84 0 6681(1.2.)m 471(T)s 17(ypesetting)k
-1705(computer)s 2745(pr)s 4(ograms)k 3792(as)s 4059(part)s
-4557(of)s 4829(a)s 5007(lar)s 2(ger)k 5687(document)s
-240 fnt82 480 6204(When)m 1097(the)s 1432(program)s 2289(te)s 3(xts)k
-2775(are)s 3109(to)s 3336(be)s 3605(part)s 4023(of)s
-4281(a)s 4434(lar)s 4(ger)k 5034(Lout)s 5533(document,)s
-6571(the)s 6906(procedure)s 7905(is)s 8102(some)s 6(what)k
-0 5916(dif)m 6(ferent.)k 979(Y)s 26(ou)k 1421(need)s
-1931(to)s 2170(include)s 2930(the)s 3278(setup)s 3836(\207le)s
-4197(appropriate)s 5341(to)s 5580(your)s 6079(language,)s 7050(lik)s 2(e)k
-7462(this:)s 220 fnt35 480 5415(@SysInclude { cpr)m -3(int })k 480 5127(@SysInclude { doc })m
-480 4839(@Doc @T)m 26(e)k 6(xt @Begin)k 480 4551(...)m 480 4263(@End @T)m 26(e)k 6(xt)k
-240 fnt82 0 3808(The)m 220 fnt35 422 3805(cpr)m -3(int)k
-240 fnt82 1011 3808(setup)m 1563(\207le)s 1917(includes)s 2759(e)s 6(v)k 3(erything)k
-3820(needed)s 4549(to)s 4782(set)s 5101(up)s 5387(for)s
-5719(C)s 5925(program)s 6788(formatting;)s 7902(for)s 8234(the)s
-8575(other)s 0 3520(languages,)m 1064(consult)s 1815(the)s 2163(second)s
-2886(column)s 3661(of)s 3932(the)s 4280(table)s 4800(at)s
-5032(the)s 5380(start)s 5850(of)s 6121(this)s 6517(chapter)s 13(.)k
-480 3146(The)m 914(program)s 1791(te)s 3(xts)k 2297(within)s
-2972(the)s 3327(Lout)s 3846(document)s 4857(are)s 5210(enclosed)s
-6112(in)s 6362(braces)s 7030(preceded)s 7958(by)s 8259(the)s
-8614(Lout)s 0 2858(symbol)m 760(from)s 1284(the)s 1632(third)s
-2141(column)s 2916(of)s 3187(the)s 3535(table,)s 4106(lik)s 2(e)k
-4518(this)s 4914(for)s 5252(the)s 5600(C)s 5812(language:)s
-
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 3 5
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Italic
-%%+ font Times-Bold
-%%+ font Helvetica
-%%+ font Courier
-/pgsave save def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Courier
-/Courierfnt29 vec2 /Courier LoutRecode
-/fnt29 { /Courierfnt29 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-240 fnt83 0 13843(1.2.)m 454(T)s 17(ypesetting)k 1593(computer)s
-2562(pr)s 10(o)k 2(gr)k 3(ams)k 3534(as)s
-3802(part)s 4265(of)s 4546(a)s 4721(lar)s 8(g)k 2(er)k
-5374(document)s 240 fnt84 8953 13840(3)m 220 fnt35 480 13207(@IndentedDispla)m 6(y @CP {)k
-480 12919(#include <stdio)m 8(.h>)k 480 12343(treepr)m -3(int\(p\) /* pr)k -3(int tree p recursiv)k 5(ely */)k
-480 12055(str)m -3(uct tnode *p;)k 480 11767({)m 480 11479( if \(p != NULL\) {)m 480 11191( treepr)m -3(int\(p->left\);)k
-480 10903( pr)m -3(intf\("%4d %s\\n", p->count, p->w)k 2(ord\);)k 480 10615( treepr)m -3(int\(p->r)k -3(ight\);)k
-480 10327( })m 480 10039(})m 480 9751(})m 240 fnt82 0 9257(Although)m
-962(computer)s 1925(programs)s 2879(violate)s 3584(the)s 3932(rules)s
-4447(of)s 4718(le)s 3(g)k 1(al)k 5232(Lout)s
-5744(input)s 6296(in)s 6539(man)s 3(y)k 7121(w)s 2(ays,)k
-7718(these)s 8265(rules)s 8779(are)s 0 8969(suspended)m 1042(by)s
-1322(the)s 220 fnt35 1655 8966(@CP)m 240 fnt82 2173 8969(,)m
-220 fnt35 2266 8966(@Eiff)m 6(el)k 240 fnt82 3000 8969(etc.)m
-3368(symbols,A)s 4441(allo)s 6(wing)k 5311(the)s 5645(program)s
-6500(te)s 3(xt)k 6901(to)s 7125(be)s 7393(incorporated)s
-8644(with)s 0 8681(absolutely)m 1037(no)s 1330(modi\207cations.)s 2796(The)s
-3224(result)s 3814(is)s 220 fnt29 480 8198(#include)m 1668(<stdio.h>)s
-480 7622(treeprint\(p\))m 3120(/*)s 3516(print)s 4308(tree)s 4968(p)s
-5232(recursively)s 6816(*/)s 480 7334(struct)m 1404(tnode)s 2196 7291(*)m
-2328 7334(p;)m 480 7046({)m 1536 6758(if)m 1932(\(p)s 2328(!=)s
-2724(NULL\))s 3516({)s 2592 6470(treeprint\(p->left\);)m 2592 6182(printf\("%4d)m 4176(%s\\n",)s
-5100(p->count,)s 6420(p->word\);)s 2592 5894(treeprint\(p->right\);)m 1536 5606(})m 480 5318(})m
-240 fnt82 0 4843(W)m 19(e)k 393(ha)s 4(v)k 3(e)k
-919(chosen)s 1665(to)s 1929(use)s 2328(the)s 220 fnt35
-2701 4840(@IndentedDispla)m 6(y)k 240 fnt82 4572 4843(symbol)m 5357(from)s
-5905(Section)s 6704(??)s 6993(to)s 7257(obtain)s 7936(an)s
-8244(indented)s 0 4555(display)m 15(,)k 780(b)s 4(ut)k
-1138(in)s 1378(f)s 2(act)k 220 fnt35 1789 4552(@CP)m
-240 fnt82 2307 4555(,)m 220 fnt35 2411 4552(@Eiff)m 6(el)k
-240 fnt82 3156 4555(and)m 3557(the)s 3901(rest)s 4301(may)s
-4764(appear)s 5457(an)s 3(ywhere)k 6437(at)s 6665(all:)s
-7066(the)s 7410(result)s 7997(is)s 8203(an)s 8482(object)s
-0 4267(in)m 247(the)s 599(usual)s 1163(w)s 2(ay)k 15(,)k
-1656(which)s 2302(may)s 2772(go)s 3069(an)s 3(ywhere.)k
-4164(When)s 4797(including)s 5758(a)s 5928(program)s 6802(te)s 3(xt)k
-7221(within)s 7893(a)s 8063(paragraph,)s 0 3979(use)m 220 fnt35
-365 3976(@OneCol @CP { ...)m 13( })k 240 fnt82 2459 3979(\(or)m 220 fnt35
-2787 3976(@OneCol @Eiff)m 6(el { ...)k 13( })k 240 fnt82 5057 3979(etc.)m
-5429(for)s 5757(other)s 6298(languages\))s 7373(to)s 7602(pre)s 6(v)k 3(ent)k
-8360(it)s 8541(being)s 0 3691(brok)m 2(en)k 720(across)s
-1368(tw)s 2(o)k 1778(lines,)s 2336(if)s 2553(desired.)s
-480 3317(In)m 732(cases)s 1282(where)s 1917(the)s 2260(program)s
-3125(te)s 3(xt)k 3535(has)s 3900(unbalanced)s 5043(braces,)s
-5755(it)s 5942(is)s 6147(necessary)s 7125(to)s 7359(use)s
-7729(the)s 8072(alternati)s 6(v)k 3(e)k 0 3029(form)m
-220 fnt35 514 3026(@CP @Begin ...)m 13( @End @CP)k 240 fnt82 3418 3029(\(or)m
-3746(the)s 4083(equi)s 6(v)k 6(alent)k 5117(for)s
-5444(other)s 5984(languages\),)s 7117(so)s 7372(that)s 7780(Lout)s
-8281(does)s 8760(not)s 0 2741(confuse)m 793(program)s 1656(braces)s
-2309(with)s 2784(Lout)s 3288(braces.)s 4055(In)s 4303(that)s
-4714(case)s 5173(the)s 5514(program)s 6376(te)s 3(xt)k
-6784(must)s 7301(not)s 7660(contain)s 220 fnt35 8413 2738(@End)m
-240 fnt82 9014 2741(;)m 0 2453(and)m 412(in)s 663(either)s
-1275(case)s 1750(the)s 2106(program)s 2985(te)s 3(xt)k
-3408(must)s 3941(not)s 4316(include)s 220 fnt35 5084 2450(@Include)m
-240 fnt82 6074 2453(or)m 220 fnt35 6342 2450(@SysInclude)m 240 fnt82
-7698 2453(unless)m 8355(you)s 8779(are)s 0 2165(really)m 597(including)s
-1554(a)s 1720(\207le)s 2081(at)s 2313(that)s 2731(point)s
-3283(\(Section)s 4136(1.9\).)s 480 1791(If)m 763(your)s 1316(Lout)s
-1882(document)s 2939(contains)s 3841(program)s 4765(te)s 3(xts)k
-5317(in)s 5614(se)s 6(v)k 3(eral)k 6390(languages,)s
-7507(simply)s 8266(add)s 8724(one)s 220 fnt35 0 1500(@SysInclude)m
-240 fnt82 1342 1503(line)m 1749(for)s 2080(each)s 2569(of)s
-2833(them)s 3364(and)s 3761(proceed)s 4570(as)s 4813(before.)s
-5580(If)s 5803(your)s 6296(programming)s 7644(language)s 8557(is)s
-8760(not)s 0 1215(currently)m 916(supported,)s 1967(a)s 2133(viable)s
-2773(alternati)s 6(v)k 3(e)k 3827(is)s 220 fnt35
-480 714(@F @V)m 17(erbatim { ...)k 13( })k 240 fnt82 0 220(These)m
-612(symbols)s 1445(cause)s 2017(the)s 2349(te)s 3(xt)k
-2749(between)s 3587(braces)s 4233(to)s 4456(be)s 4722(set)s
-5032(v)s 3(erbatim)k 5922(in)s 6150(a)s 6300(\207x)s 3(ed-)k
-6844(width)s 7431(font,)s 7907(as)s 8141(e)s 3(xplained)k
-
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 4 6
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-240 fnt84 0 13840(4)m 240 fnt83 5981 13843(Chapter)m 6831(1.)s
-7105(Computer)s 8128(Pr)s 10(o)k 2(gr)k 3(ams)k
-240 fnt82 0 13205(else)m 6(where)k 1008(in)s 1254(this)s
-1653(guide.)s 2352(This)s 2831(f)s 2(allback)k 3662(method)s
-4442(will)s 4871(not)s 5240(handle)s 5937(tab)s 6285(and)s
-6692(formfeed)s 7628(characters)s 8650(v)s 3(ery)k 0 12917(well.)m
-571(Ag)s 1(ain,)k 1257(use)s 220 fnt35 1628 12914(@V)m 17(erbatim @Begin ...)k 13( @End @V)k 17(erbatim)k
-240 fnt82 5645 12917(if)m 5858(your)s 6352(program)s 7218(te)s 3(xt)k
-7628(contains)s 8471(unbal)s 8998(-)s 0 12629(anced)m 616(braces.)s
-240 fnt84 0 11886(1.3.)m 471(Changing)s 1525(the)s 1899(appearance)s
-3138(of)s 3410(a)s 3588(pr)s 4(ogram)k 240 fnt82
-480 11409(The)m 220 fnt35 915 11406(@CP)m 240 fnt82 1433 11409(,)m
-220 fnt35 1548 11406(@Eiff)m 6(el)k 240 fnt82 2305 11409(etc.)m
-2695(symbols)s 3551(ha)s 4(v)k 3(e)k 4060(a)s
-4234(number)s 5033(of)s 5312(options)s 6075(for)s 6421(changing)s
-7360(the)s 7716(appearance)s 8855(of)s 0 11121(the)m 357(printed)s
-1102(program.)s 2086(These)s 2723(options)s 3489(are)s 3846(the)s
-4204(same)s 4761(for)s 5109(all)s 5412(symbols,)s 6327(although)s
-7232(their)s 7739(def)s 2(ault)k 8470(v)s 6(alues)k
-0 10833(may)m 468(v)s 6(ary)k 15(.)k 1039(The)s
-220 fnt35 1470 10830(style)m 240 fnt82 1976 10833(option)m 2648(changes)s
-3473(the)s 3824(printing)s 4637(style;)s 5203(its)s 5482(v)s 6(alue)k
-6053(may)s 6522(be)s 220 fnt35 6807 10830(\207x)m 6(ed)k
-240 fnt82 7316 10833(\(\207x)m 3(ed-width)k 8555(font\),)s 220 fnt35
-0 10542(v)m 5(ar)k -6(ying)k 240 fnt82 777 10545(\(v)m 6(arying-width)k
-2284(font\),)s 2876(or)s 220 fnt35 3157 10542(symbol)m 240 fnt82
-3919 10545(\(v)m 6(arying-width)k 5426(font)s 5892(with)s 6396(mathematical)s
-7758(symbols)s 8629(used)s 0 10257(for)m 342(some)s 907(operators\).)s
-2043(Its)s 2336(def)s 2(ault)k 3061(v)s 6(alue)k
-3633(depends)s 4473(on)s 4774(the)s 5126(language,)s 6101(and)s
-6509(may)s 6979(be)s 7265(found)s 7886(in)s 8133(the)s
-8485(fourth)s 0 9969(column)m 775(of)s 1045(the)s 1392(table)s
-1911(at)s 2143(the)s 2490(start)s 2959(of)s 3229(this)s
-3624(chapter)s 13(.)k 4478(The)s 4905(e)s 3(xample)k
-5767(in)s 6009(the)s 6357(pre)s 6(vious)k 7225(section)s
-7958(w)s 2(as)k 8378(in)s 220 fnt35 8620 9966(\207x)m 6(ed)k
-240 fnt82 0 9681(style;)m 563(we)s 898(can)s 1287(switch)s
-1968(styles)s 2563(lik)s 2(e)k 2975(this:)s 220 fnt35
-480 9180(@CP)m 480 8892( style { v)m 5(ar)k -6(ying })k 480 8604({)m
-480 8316(#include <stdio)m 8(.h>)k 480 7740(treepr)m -3(int\(p\) /* pr)k -3(int tree p recursiv)k 5(ely */)k
-480 7452(str)m -3(uct tnode *p;)k 480 7164({)m 480 6876( if \(p != NULL\) {)m 480 6588( treepr)m -3(int\(p->left\);)k
-480 6300( pr)m -3(intf\("%4d %s\\n", p->count, p->w)k 2(ord\);)k 480 6012( treepr)m -3(int\(p->r)k -3(ight\);)k
-480 5724( })m 480 5436(})m 480 5148(})m 240 fnt82 0 4654(The)m
-428(result)s 1018(in)s 1261(this)s 1657(case)s 2124(will)s
-2550(be)s 480 4198(#)m 240 fnt83 600 4200(include)m 240 fnt82
-1357 4198(<)m 240 fnt83 1486 4200(stdio)m 240 fnt82 1944 4198(.)m
-240 fnt83 1988 4200(h)m 240 fnt82 2103 4198(>)m 240 fnt83
-480 3624(tr)m 8(eeprint)k 240 fnt82 1312 3622(\()m 240 fnt83
-1385 3624(p)m 240 fnt82 1498 3622(\))m 2046(/*)s 2276(print)s
-2787(tree)s 3200(p)s 3373(recursi)s 6(v)k 3(ely)k
-4479(*/)s 240 fnt84 480 3333(struct)m 240 fnt83 1136 3336(tnode)m
-240 fnt82 1721 3280(*)m 240 fnt83 1825 3336(p)m 240 fnt82
-1938 3334(;)m 480 3046({)m 240 fnt84 960 2757(if)m 240 fnt82
-1178 2758(\()m 240 fnt83 1251 2760(p)m 240 fnt82 1424 2758(!=)m
-240 fnt83 1691 2760(NULL)m 240 fnt82 2290 2758(\))m 2418({)s
-240 fnt83 1440 2472(tr)m 8(eeprint)k 240 fnt82 2272 2470(\()m
-240 fnt83 2345 2472(p)m 240 fnt82 2458 2470(->)m 240 fnt83
-2666 2472(left)m 240 fnt82 2974 2470(\);)m 240 fnt83 1440 2184(printf)m
-240 fnt82 2006 2182(\()m 240 fnt83 2079 2184("%4d)m 2684(%s\\n")s
-240 fnt82 3264 2182(,)m 240 fnt83 3371 2184(p)m 240 fnt82
-3484 2182(->)m 240 fnt83 3692 2184(count)m 240 fnt82 4228 2182(,)m
-240 fnt83 4335 2184(p)m 240 fnt82 4448 2182(->)m 240 fnt83
-4656 2184(wor)m 8(d)k 240 fnt82 5147 2182(\);)m 240 fnt83
-1440 1896(tr)m 8(eeprint)k 240 fnt82 2272 1894(\()m 240 fnt83
-2345 1896(p)m 240 fnt82 2458 1894(->)m 240 fnt83 2666 1896(right)m
-240 fnt82 3135 1894(\);)m 960 1606(})m 480 1318(})m 0 824(If)m
-230(we)s 565(use)s 220 fnt35 940 821(style { symbol })m 240 fnt82
-2466 824(we)m 2801(get)s 3153(this:)s
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 5 7
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Italic
-%%+ font Times-Bold
-%%+ font Symbol
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-240 fnt83 0 13843(1.3.)m 454(Changing)s 1454(the)s 1799(appear)s 3(ance)k
-2980(of)s 3261(a)s 3436(pr)s 10(o)k 2(gr)k 3(am)k
-240 fnt84 8953 13840(5)m 240 fnt82 480 13203(#)m 240 fnt83
-600 13205(include)m 240 fnt78 1357 13197(<)m 240 fnt83 1482 13205(stdio)m
-240 fnt82 1940 13203(.)m 240 fnt83 1984 13205(h)m 240 fnt78
-2099 13197(>)m 240 fnt83 480 12629(tr)m 8(eeprint)k 240 fnt82
-1312 12627(\()m 240 fnt83 1385 12629(p)m 240 fnt82 1498 12627(\))m
-2046(/*)s 2276(print)s 2787(tree)s 3200(p)s 3373(recursi)s 6(v)k 3(ely)k
-4479(*/)s 240 fnt84 480 12338(struct)m 240 fnt83 1136 12341(tnode)m
-240 fnt82 1721 12285(*)m 240 fnt83 1825 12341(p)m 240 fnt82
-1938 12339(;)m 480 12051({)m 240 fnt84 960 11762(if)m 240 fnt82
-1178 11763(\()m 240 fnt83 1251 11765(p)m 240 fnt78 1424 11757(\271)m
-240 fnt83 1613 11765(NULL)m 240 fnt82 2212 11763(\))m 2340({)s
-240 fnt83 1440 11477(tr)m 8(eeprint)k 240 fnt82 2272 11475(\()m
-240 fnt83 2345 11477(p)m 240 fnt78 2458 11469(\256)m 240 fnt83
-2688 11477(left)m 240 fnt82 2996 11475(\);)m 240 fnt83 1440 11189(printf)m
-240 fnt82 2006 11187(\()m 240 fnt83 2079 11189("%4d)m 2684(%s\\n")s
-240 fnt82 3264 11187(,)m 240 fnt83 3371 11189(p)m 240 fnt78
-3484 11181(\256)m 240 fnt83 3714 11189(count)m 240 fnt82 4250 11187(,)m
-240 fnt83 4357 11189(p)m 240 fnt78 4470 11181(\256)m 240 fnt83
-4700 11189(wor)m 8(d)k 240 fnt82 5191 11187(\);)m 240 fnt83
-1440 10901(tr)m 8(eeprint)k 240 fnt82 2272 10899(\()m 240 fnt83
-2345 10901(p)m 240 fnt78 2458 10893(\256)m 240 fnt83 2688 10901(right)m
-240 fnt82 3157 10899(\);)m 960 10611(})m 480 10323(})m 0 9829(with)m
-482(mathematical)s 1823(symbols)s 2672(replacing)s 3614(some)s 4175(of)s
-4446(the)s 4794(operators.)s 480 9455(The)m 220 fnt35 901 9452(@CP)m
-240 fnt82 1419 9455(,)m 220 fnt35 1519 9452(@Eiff)m 6(el)k
-240 fnt82 2261 9455(etc.)m 2636(symbols)s 3478(ha)s 4(v)k 3(e)k
-3972(additional)s 4976(options)s 5725(which)s 6360(allo)s 6(w)k
-6932(a)s 7091(\207ner)s 7582(control)s 8307(o)s 3(v)k 3(er)k
-8778(the)s 0 9167(style.)m 615(Here)s 1135(the)s 3(y)k
-1598(all)s 1891(are,)s 2289(with)s 2771(their)s 3268(def)s 2(ault)k
-3989(v)s 6(alues:)k 220 fnt35 480 8666(@CP [ or @Eiff)m 6(el, @Blue)k 3(, etc.)k 13( ])k
-480 8378( style { \207x)m 6(ed })k 480 8090( n)m 2(umbered { No })k 480 7802( f)m 6(ont { Cour)k -3(ier })k
-480 7514( siz)m 3(e { -1.0p })k 480 7226( line { 1.0vx })m 480 6938( tabin { 8 })m 480 6650( tabout { 8s })m
-480 6362( identi\207ers { Base })m 480 6074( k)m 4(e)k 4(yw)k 2(ords { Base })k
-480 5786( oper)m 2(ators { Base })k 480 5498( n)m 2(umbers { Base })k 480 5210( str)m -3(ings { Base })k
-480 4922( comments { Base })m 480 4634({)m 480 4346( ...)m 480 4058(})m 240 fnt82
-0 3564(W)m 19(e)k 387(are)s 753(already)s 1529(f)s 2(amiliar)k
-2360(with)s 220 fnt35 2861 3561(style)m 240 fnt82 3304 3564(.)m
-3487(After)s 4069(that)s 4506(comes)s 220 fnt35 5187 3561(n)m 2(umbered)k
-240 fnt82 6161 3564(,)m 6287(whose)s 6974(v)s 6(alue)k
-7561(may)s 8046(be)s 220 fnt35 8347 3561(No)m 240 fnt82
-8699 3564(\(the)m 0 3276(def)m 2(ault\),)k 220 fnt35 842 3273(Y)m 30(es)k
-240 fnt82 1183 3276(,)m 1285(or)s 1538(a)s 1699(number)s 9(,)k
-2522(and)s 2921(which)s 3557(determines)s 4651(whether)s 5475(or)s
-5729(not)s 6089(line)s 6498(numbers)s 7367(are)s 7709(to)s
-7942(be)s 8219(added)s 8843(an)s 0 2988(if)m 217(so)s
-482(the)s 829(v)s 6(alue)k 1397(of)s 1667(the)s
-2014(\207rst)s 2444(one.)s 2954(Ne)s 3(xt)k 3475(we)s
-3809(ha)s 4(v)k 3(e)k 220 fnt35 4309 2985(f)m 6(ont)k
-240 fnt82 4665 2988(,)m 4772(which)s 5413(determines)s 6511(the)s
-6858(font)s 7303(f)s 2(amily)k 7977(to)s 8215(use,)s
-220 fnt35 8640 2985(siz)m 3(e)k 240 fnt82 9019 2988(,)m
-0 2700(the)m 347(font)s 791(size)s 1217(to)s 1455(use,)s
-1880(and)s 220 fnt35 2283 2697(line)m 240 fnt82 2615 2700(,)m
-2721(the)s 3068(inter)s 4(-line)k 3992(spacing.)s 4886(The)s
-5313(def)s 2(ault)k 6033(v)s 6(alue)k 6600(for)s
-220 fnt35 6937 2697(siz)m 3(e)k 240 fnt82 7375 2700(asks)m
-7837(for)s 8174(one)s 8574(point)s 0 2412(smaller)m 765(than)s
-1238(in)s 1485(the)s 1837(surrounding)s 3051(document;)s 4111(this)s
-4511(w)s 2(as)k 4936(done)s 5462(to)s 5705(compensate)s
-6894(for)s 7236(Courier')s 13(s)k 8180(relati)s 6(v)k 3(ely)k
-0 2124(lar)m 4(ge)k 529(appearance)s 1660(compared)s 2661(to)s
-2900(other)s 3451(fonts)s 3980(of)s 4251(the)s 4599(same)s
-5146(nominal)s 5985(size.)s 480 1750(The)m 220 fnt35 919 1747(tabin)m
-240 fnt82 1451 1750(and)m 220 fnt35 1866 1747(tabout)m 240 fnt82
-2543 1750(options)m 3310(are)s 3668(the)s 4027(subject)s 4775(of)s
-5057(Section)s 5842(1.5.)s 6317(After)s 6891(them)s 7440(come)s
-8025(six)s 8370(options)s 0 1462(gi)m 6(ving)k 701(the)s
-1091(particular)s 2107(font)s 2594(f)s 2(aces)k 3175(in)s
-3461(which)s 4145(to)s 4426(print)s 4979(identi\207ers,)s 6083(k)s 2(e)k 3(yw)k 2(ords,)k
-7156(operators,)s 8195(numbers,)s 0 1174(strings,)m 741(and)s 1141(comments.)s
-220 fnt35 2285 1171(Base)m 240 fnt82 2833 1174(means)m 3492(the)s
-3836(basic)s 4377(f)s 2(ace;)k 4880(other)s 5428(commonly)s
-6502(a)s 4(v)k 6(ailable)k 7407(choices)s 8171(are)s
-220 fnt35 8514 1171(Slope)m 240 fnt82 0 886(and)m 220 fnt35
-415 883(Bold)m 240 fnt82 841 886(.)m 1016(These)s 1654(options)s
-2421(may)s 2898(all)s 3202(be)s 3495(set)s 3831(to)s
-4081(dif)s 6(ferent)k 4967(f)s 2(aces)k 5517(if)s
-5745(desired.)s 6610(The)s 7049(def)s 2(ault)k 7781(v)s 6(alues)k
-8449(sho)s 6(wn)k 0 598(are)m 347(correct)s 1069(for)s
-220 fnt35 1407 595(style { \207x)m 6(ed })k 240 fnt82 2696 598(only;)m
-3234(the)s 3582(other)s 4133(styles)s 4728(ha)s 4(v)k 3(e)k
-5229(other)s 5780(def)s 2(aults)k 6585(\(Section)s 7438(1.4\).)s
-
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 6 8
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-240 fnt84 0 13840(6)m 240 fnt83 5981 13843(Chapter)m 6831(1.)s
-7105(Computer)s 8128(Pr)s 10(o)k 2(gr)k 3(ams)k
-240 fnt84 0 13203(1.4.)m 471(Changing)s 1525(the)s 1899(appearance)s
-3138(of)s 3410(all)s 3717(pr)s 4(ograms)k 4764(simultaneously)s
-240 fnt82 480 12726(W)m 19(e)k 853(ha)s 4(v)k 3(e)k
-1358(just)s 1767(seen)s 2253(that)s 2675(the)s 220 fnt35
-3027 12723(@CP)m 240 fnt82 3545 12726(,)m 220 fnt35 3656 12723(@Eiff)m 6(el)k
-240 fnt82 4409 12726(etc.)m 4795(symbols)s 5648(ha)s 4(v)k 3(e)k
-6153(man)s 3(y)k 6740(options)s 7500(for)s 7842(changing)s
-8778(the)s 0 12438(appearance)m 1130(of)s 1399(the)s 1746(program)s
-2614(te)s 3(xt.)k 3131(Ho)s 6(we)k 6(v)k 3(er)k 9(,)k
-4090(most)s 4613(people)s 5306(w)s 2(ould)k 5959(not)s
-6323(w)s 2(ant)k 6845(to)s 7082(ha)s 4(v)k 3(e)k
-7582(a)s 7746(dif)s 6(ferent)k 8619(style)s 0 12150(for)m
-333(e)s 6(v)k 3(ery)k 903(program)s 1768(te)s 3(xt)k
-2177(in)s 2415(their)s 2906(document;)s 3957(the)s 3(y)k
-4414(w)s 2(ant)k 4931(to)s 5165(de\207ne)s 5800(the)s
-6143(style)s 6644(once)s 7147(at)s 7373(the)s 7716(start,)s
-8227(and)s 8625(ha)s 4(v)k 3(e)k 0 11862(all)m
-281(their)s 765(program)s 1622(te)s 3(xts)k 2109(come)s
-2670(out)s 3023(in)s 3254(that)s 3659(style)s 4153(without)s
-4932(laboriously)s 6049(setting)s 6726(options)s 7470(on)s 7754(e)s 6(v)k 3(ery)k
-8317(symbol.)s 0 11574(Y)m 26(ou)k 442(do)s 735(this)s
-1131(by)s 1425(cop)s 2(ying)k 2248(the)s 2596(setup)s
-3154(\207le)s 3515(and)s 3919(changing)s 4850(it.)s 480 11200(F)m 3(or)k
-882(general)s 1653(information)s 2852(about)s 3457(ho)s 6(w)k
-3932(to)s 4184(mak)s 2(e)k 4770(your)s 5282(o)s 6(wn)k
-5759(setup)s 6331(\207le,)s 6756(consult)s 7521(Section)s 8308(??.)s
-8698(The)s 0 10912(options)m 775(that)s 1212(determine)s 2242(the)s
-2609(def)s 2(ault)k 3349(v)s 6(alues)k 4024(are)s
-4390(in)s 4652(the)s 220 fnt35 5019 10909(@Use)m 240 fnt82
-5703 10912(clause)m 6375(which)s 7036(occupies)s 7943(most)s 8487(of)s
-8778(the)s 0 10624(setup)m 558(\207le.)s 1027(Here)s 1547(is)s
-1757(part)s 2188(of)s 2459(the)s 220 fnt35 2807 10621(@Use)m
-240 fnt82 3472 10624(clause)m 4125(from)s 220 fnt35 4649 10621(cpr)m -3(int)k
-240 fnt82 5184 10624(:)m 220 fnt35 612 10083(@Use { @CPSetup)m 612 9795( #)m
-1034(pipe)s 3565({)s 4675(})s 612 9507( #)m 1034(n)s 2(umbered)k
-3565({)s 3690(No)s 4675(})s 612 9219( #)m 1034(style)s
-3565({)s 3690(\207x)s 6(ed)k 4675(})s 612 8643( #)m
-1034(\207x)s 6(edf)k 6(ont)k 3565({)s 3690(Cour)s -3(ier)k
-4675(})s 612 8355( #)m 1034(\207x)s 6(edsiz)k 3(e)k
-3565({)s 3690(-1.0p)s 4675(})s 612 8067( #)m 1034(\207x)s 6(edline)k
-3565({)s 3690(1.0vx)s 4675(})s 612 7779( #)m 1034(\207x)s 6(edtabin)k
-3565({)s 3690(8)s 4675(})s 612 7491( #)m 1034(\207x)s 6(edtabout)k
-3565({)s 3690(8s)s 4675(})s 612 6915( #)m 1034(\207x)s 6(edidenti\207ers)k
-3565({)s 3690(Base)s 4675(})s 612 6627( #)m 1034(\207x)s 6(edk)k 4(e)k 4(yw)k 2(ords)k
-3565({)s 3690(Base)s 4675(})s 612 6339( #)m 1034(\207x)s 6(edoper)k 2(ators)k
-3565({)s 3690(Base)s 4675(})s 612 6051( #)m 1034(\207x)s 6(edn)k 2(umbers)k
-3565({)s 3690(Base)s 4675(})s 612 5763( #)m 1034(\207x)s 6(edstr)k -3(ings)k
-3565({)s 3690(Base)s 4675(})s 612 5475( #)m 1034(\207x)s 6(edcomments)k
-3565({)s 3690(Base)s 4675(})s 612 5187( #)m 1034(\207x)s 6(edlinen)k 2(umbers)k
-3565({)s 3690(Base)s 4675(})s 612 4611( #)m 1034(\207x)s 6(edidenti\207ersf)k 6(or)k -5(mat)k
-3565({)s 3690(@Body)s 4675(})s 612 4323( #)m 1034(\207x)s 6(edk)k 4(e)k 4(yw)k 2(ordsf)k 6(or)k -5(mat)k
-3565({)s 3690(@Body)s 4675(})s 612 4035( #)m 1034(\207x)s 6(edoper)k 2(atorsf)k 6(or)k -5(mat)k
-3565({)s 3690(@Body)s 4675(})s 612 3747( #)m 1034(\207x)s 6(edn)k 2(umbersf)k 6(or)k -5(mat)k
-3565({)s 3690(@Body)s 4675(})s 612 3459( #)m 1034(\207x)s 6(edstr)k -3(ingsf)k 6(or)k -5(mat)k
-3565({)s 3690(@Body)s 4675(})s 612 3171( #)m 1034(\207x)s 6(edcommentsf)k 6(or)k -5(mat)k
-3565({)s 3690(@Body)s 4675(})s 612 2883( #)m 1034(\207x)s 6(edlinen)k 2(umbersf)k 6(or)k -5(mat)k
-3565({)s 3690(@Body)s 4675(})s 612 2307(...)m 612 1731(})m
-240 fnt82 0 1193(The)m 220 fnt35 448 1190(pipe)m 240 fnt82
-934 1193(option)m 1623(will)s 2069(be)s 2371(e)s 3(xplained)k
-3376(in)s 3639(Section)s 4434(1.9.)s 4918(The)s 5366(options)s
-6142(whose)s 6830(name)s 7424(be)s 3(gins)k 8117(with)s
-220 fnt35 8620 1190(\207x)m 6(ed)k 240 fnt82 0 905(apply)m
-600(only)s 1094(when)s 220 fnt35 1685 902(style)m 240 fnt82
-2202 905(is)m 220 fnt35 2427 902(\207x)m 6(ed)k 240 fnt82
-2873 905(;)m 2999(there)s 3547(are)s 3908(corresponding)s 5344(options,)s
-6171(not)s 6551(sho)s 6(wn,)k 7293(which)s 7949(apply)s
-8550(when)s 220 fnt35 0 614(style)m 240 fnt82 503 617(is)m
-220 fnt35 713 614(v)m 5(ar)k -6(ying)k 240 fnt82
-1469 617(and)m 220 fnt35 1873 614(symbol)m 240 fnt82 2554 617(.)m
-480 243(W)m 19(e)k 849(can)s 1238(see)s 1599(in)s
-1841(this)s 2237(e)s 3(xtract)k 2943(that)s 3360(the)s
-3708(def)s 2(ault)k 4429(v)s 6(alue)k 4996(of)s
-220 fnt35 5267 240(style)m 240 fnt82 5770 243(is)m 220 fnt35
-5979 240(\207x)m 6(ed)k 240 fnt82 6425 243(,)m 6532(and)s
-6936(of)s 220 fnt35 7206 240(n)m 2(umbers)k 240 fnt82
-8111 243(is)m 220 fnt35 8321 240(No)m 240 fnt82 8594 243(.)m
-8757(W)s 19(e)k
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 7 9
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Italic
-%%+ font Times-Bold
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-240 fnt83 0 13843(1.4.)m 454(Changing)s 1454(the)s 1799(appear)s 3(ance)k
-2980(of)s 3261(all)s 3573(pr)s 10(o)k 2(gr)k 3(ams)k
-4545(simultaneously)s 240 fnt84 8951 13840(7)m 240 fnt82 0 13205(can)m
-396(also)s 842(see)s 1211(the)s 1567(def)s 2(ault)k
-2296(font)s 2749(f)s 2(amily)k 15(,)k 3470(font)s
-3923(f)s 2(ace,)k 4433(font)s 4886(size,)s 5372(line)s
-5794(spacing,)s 6640(and)s 7052(tab)s 7405(settings)s 8194(when)s
-8778(the)s 0 12917(style)m 502(is)s 220 fnt35 706 12914(\207x)m 6(ed)k
-240 fnt82 1152 12917(.)m 1311(The)s 1733(font)s 2173(f)s 2(amily)k
-2842(name)s 3411(for)s 220 fnt35 3743 12914(\207x)m 6(ed)k
-240 fnt82 4244 12917(style)m 4745(is)s 220 fnt35 4950 12914(Cour)m -3(ier)k
-240 fnt82 5671 12917(,)m 5772(b)s 4(ut)k 6129(for)s
-6461(the)s 6804(other)s 7349(styles)s 7939(\(not)s 8378(sho)s 6(wn\))k
-0 12629(it)m 188(is)s 393(empty)s 15(.)k 1135(This)s
-1606(causes)s 2276(the)s 220 fnt35 2619 12626(\207x)m 6(ed)k
-240 fnt82 3120 12629(style)m 3622(to)s 3856(al)s 2(w)k 2(ays)k
-4563(switch)s 5239(to)s 5473(Courier)s 9(,)k 6296(and)s
-6695(the)s 7038(other)s 7584(styles)s 8174(to)s 8408(use)s
-8778(the)s 0 12341(same)m 547(font)s 992(f)s 2(amily)k
-1667(as)s 1917(in)s 2160(the)s 2508(surrounding)s 3718(document.)s
-480 11967(The)m 895(options)s 1637(from)s 220 fnt35 2147 11964(\207x)m 6(edidenti\207ers)k
-240 fnt82 3582 11967(to)m 220 fnt35 3807 11964(\207x)m 6(edlinen)k 2(umbers)k
-240 fnt82 5497 11967(allo)m 6(w)k 6062(you)s 6463(to)s
-6688(set)s 6999(the)s 7334(font)s 7765(f)s 2(ace)k
-8202(to)s 8427(use)s 8788(for)s 0 11679(each)m 481(of)s
-738(these)s 1270(parts)s 1771(of)s 2027(your)s 2512(program.)s
-3471(People)s 4164(who)s 4616(w)s 2(ant)k 5124(\207x)s 3(ed-width)k
-6267(fonts)s 6781(do)s 7060(not)s 7411(usually)s 8142(w)s 2(ant)k
-8650(v)s 3(ery)k 0 11391(e)m 3(xciting)k 813(font)s
-1251(f)s 2(aces)k 1783(either)s 9(,)k 2417(so)s
-2676(the)s 3017(def)s 2(ault)k 3731(v)s 6(alues)k
-4380(abo)s 3(v)k 3(e)k 4995(are)s 5335(all)s
-220 fnt35 5621 11388(Base)m 240 fnt82 6113 11391(,)m 6213(b)s 4(ut)k
-6568(for)s 6899(the)s 220 fnt35 7240 11388(v)m 5(ar)k -6(ying)k
-240 fnt82 7989 11391(and)m 220 fnt35 8385 11388(symbol)m 240 fnt82
-0 11103(styles,)m 657(the)s 1011(def)s 2(ault)k 1738(identi\207er)s
-2667(f)s 2(ace)k 3124(is)s 220 fnt35 3340 11100(Slope)m
-240 fnt82 3892 11103(,)m 4006(the)s 4360(def)s 2(ault)k
-5087(k)s 2(e)k 3(yw)k 2(ord)k 5982(f)s 2(ace)k
-6440(is)s 220 fnt35 6656 11100(Bold)m 240 fnt82 7082 11103(,)m
-7195(and)s 7606(so)s 7878(on.)s 8288(Y)s 26(ou)k
-8737(can)s 0 10815(actually)m 818(gi)s 6(v)k 3(e)k
-1286(a)s 1460(f)s 2(amily)k 2144(name)s 2726(before)s
-3401(the)s 3757(f)s 2(ace)k 4217(name)s 4800(in)s
-5051(these)s 5607(options,)s 6427(allo)s 6(wing)k 7320(you)s
-7743(to)s 7991(switch)s 8681(font)s 0 10527(f)m 2(amilies)k
-817(for)s 1155(dif)s 6(ferent)k 2030(parts)s 2545(of)s
-2816(the)s 3164(program)s 4034(if)s 4251(you)s 4666(wish.)s
-480 10153(The)m 220 fnt35 900 10150(\207x)m 6(edidenti\207ersf)k 6(or)k -5(mat)k
-240 fnt82 2964 10153(option)m 3624(allo)s 6(ws)k 4284(you)s
-4690(to)s 4920(mak)s 2(e)k 5483(a)s 5641(more)s
-6179(radical)s 6874(change)s 7599(to)s 7829(the)s 8168(format)s
-8855(of)s 0 9865(identi\207ers)m 997(than)s 1456(just)s 1851(the)s
-2190(font.)s 2729(W)s 9(ithin)k 3431(this)s 3817(option,)s
-220 fnt35 4527 9862(@Body)m 240 fnt82 5298 9865(stands)m 5937(for)s
-6266(the)s 6604(identi\207er)s 7516(being)s 8091(formatted,)s 0 9577(and)m
-404(by)s 698(applying)s 1589(Lout)s 2101(symbols)s 2950(to)s
-3189(it,)s 3428(you)s 3843(apply)s 4429(them)s 4967(to)s
-5206(e)s 6(v)k 3(ery)k 5782(identi\207er)s 13(.)k
-6795(F)s 3(or)k 7184(e)s 3(xample,)k 220 fnt35
-480 9076(\207x)m 6(edidenti\207ersf)k 6(or)k -5(mat { red @Colour @Body })k 240 fnt82
-0 8549(will)m 444(cause)s 1049(identi\207ers)s 2073(to)s 2330(be)s
-2630(printed)s 3383(red.)s 153 fnt82 3732 8638(1)m 240 fnt82
-3930 8549(If)m 4178(you)s 4611(do)s 4922(use)s 5315(e)s 3(xotic)k
-5967(formats,)s 6821(remember)s 7867(that)s 8303(in)s 8565(some)s
-0 8261(programming)m 1347(languages,)s 2403(comments)s 3428(and)s 3824(e)s 6(v)k 3(en)k
-4316(strings)s 4995(may)s 5453(occup)s 2(y)k 6188(more)s
-6727(than)s 7188(one)s 7581(line:)s 220 fnt35 8097 8258(@Bo)m 6(x)k
-240 fnt82 8690 8261(,)m 8788(for)s 0 7973(e)m 3(xample,)k
-914(will)s 1340(gi)s 6(v)k 3(e)k 1799(a)s
-1965(logical)s 2670(b)s 4(ut)k 3032(probably)s 3937(unw)s 2(anted)k
-4924(result)s 5514(when)s 6090(formatting)s 7151(a)s 7317(multi-line)s
-8314(string.)s 480 7599(As)m 795(al)s 2(w)k 2(ays)k
-1504(with)s 1983(setup)s 2539(\207les,)s 3041(to)s 3278(change)s
-4009(a)s 4173(def)s 2(ault)k 4892(v)s 6(alue,)k
-5508(delete)s 6132(the)s 6477(preceding)s 220 fnt35 7471 7596(#)m
-240 fnt82 7645 7599(and)m 8047(change)s 8778(the)s 0 7311(part)m
-432(between)s 1288(braces.)s 2064(F)s 3(or)k 2455(e)s 3(xample,)k
-3371(suppose)s 4200(you)s 4617(are)s 4966(happ)s 2(y)k
-5606(with)s 220 fnt35 6090 7308(\207x)m 6(ed)k 240 fnt82
-6597 7311(e)m 3(xcept)k 7280(that)s 7700(you)s 8117(w)s 2(ant)k
-8642(bold)s 0 7023(k)m 2(e)k 3(yw)k 2(ords.)k
-1088(Then)s 1637(one)s 2039(line)s 2453(needs)s 3049(to)s
-3288(be)s 3570(changed,)s 4475(to)s 220 fnt35 480 6524(\207x)m 6(edk)k 4(e)k 4(yw)k 2(ords { Bold })k
-240 fnt82 0 6026(Or)m 307(suppose)s 1130(you)s 1540(lik)s 2(e)k
-220 fnt35 1947 6023(v)m 5(ar)k -6(ying)k 240 fnt82
-2698 6026(as)m 2943(it)s 3130(stands,)s 3830(b)s 4(ut)k
-4187(w)s 2(ould)k 4836(lik)s 2(e)k 5243(it)s
-5430(to)s 5664(be)s 5941(the)s 6284(def)s 2(ault)k
-7000(style)s 7502(rather)s 8113(than)s 220 fnt35 8576 6023(\207x)m 6(ed)k
-240 fnt82 9022 6026(.)m 0 5738(Ag)m 1(ain,)k 691(only)s
-1171(one)s 1573(line)s 1987(needs)s 2583(to)s 2822(be)s
-3104(changed,)s 4009(to)s 220 fnt35 4248 5735(style { v)m 5(ar)k -6(ying })k
-240 fnt82 5727 5738(.)m 480 5364(It)m 708(is)s 942(probably)s
-1871(not)s 2261(a)s 2451(good)s 3013(idea)s 3495(to)s
-3758(change)s 4516(the)s 4888(def)s 2(ault)k 5633(v)s 6(alue)k
-6225(of)s 220 fnt35 6520 5361(n)m 2(umbered)k 240 fnt82
-7578 5364(to)m 220 fnt35 7841 5361(Y)m 30(es)k 240 fnt82
-8182 5364(,)m 8313(because)s 0 5076(small)m 572(fragments)s 1578(of)s
-1848(code)s 2356(within)s 3024(paragraphs)s 4123(will)s 4549(then)s
-5018(get)s 5369(line)s 5783(numbers)s 6658(as)s 6907(well)s
-7373(as)s 7623(lar)s 4(ge)k 8151(displayed)s 0 4788(programs.)m
-1078(If)s 1319(you)s 1746(do)s 2050(ha)s 4(v)k 3(e)k
-2562(man)s 3(y)k 3157(lar)s 4(ge)k 3697(numbered)s
-4723(programs)s 5689(as)s 5950(well)s 6427(as)s 6689(small)s
-7272(fragments,)s 8345(a)s 8523(better)s 0 4500(approach)m 934(w)s 2(ould)k
-1589(be)s 1871(to)s 2110(place)s 220 fnt35 480 3999(impor)m -8(t @CPSetup)k
-480 3711(macro @NCP { @CP n)m 2(umbered { )k 19(Y)k 30(es } })k 240 fnt82
-0 3217(\(or)m 336(the)s 681(equi)s 6(v)k 6(alent)k
-1723(for)s 2058(your)s 2555(language\))s 3544(in)s 3785(your)s
-220 fnt35 4281 3214(m)m 3(ydefs)k 240 fnt82 5037 3217(\207le,)m
-5446(so)s 5710(that)s 6125(you)s 6538(can)s 6924(type)s
-220 fnt35 7390 3214(@NCP)m 240 fnt82 8123 3217(instead)m 8855(of)s
-220 fnt35 0 2926(@CP n)m 2(umbered { )k 19(Y)k 30(es })k
-240 fnt82 2223 2929(.)m 480 2555(The)m 905(setup)s 1460(\207les)s
-1906(for)s 2241(the)s 2586(other)s 3134(languages)s 4139(are)s
-4483(identical)s 5357(to)s 5593(this)s 5986(one,)s 6436(e)s 3(xcept)k
-7114(that)s 7529(the)s 7874(symbol)s 8630(after)s 220 fnt35
-0 2264(@Use)m 240 fnt82 666 2267(is)m 878(dif)s 6(ferent,)k
-1801(and)s 2207(some)s 2770(of)s 3042(the)s 3392(def)s 2(ault)k
-4114(v)s 6(alues)k 4772(may)s 5240(be)s 5523(dif)s 6(ferent.)k
-6504(Changing)s 7490(an)s 7775(option)s 8446(af)s 6(fects)k
-0 1979(only)m 480(the)s 828(language)s 1749(of)s 2020(that)s
-2438(setup)s 2997(\207le;)s 3414(if)s 3632(you)s 4047(ha)s 4(v)k 3(e)k
-4548(multiple)s 5401(languages)s 6409(you)s 6824(can)s 7214(ha)s 4(v)k 3(e)k
-7715(multiple)s 8568(setup)s 1134 0 0 0 240 288 60 0 1457 LoutGr2
-0 0 moveto xsize 0 lineto stroke
-grestore
-
-grestore
-122 fnt82 0 1262(1)m 172 fnt35
-56 1191(@Colour)m 192 fnt82 779 1192(is)m 945(not)s 1235(a)s
-1365(Lout)s 1773(primiti)s 4(v)k 2(e)k 2510(lik)s 1(e,)k
-2879(say)s 12(,)k 172 fnt35 3206 1191(@F)m 5(ont)k
-192 fnt82 3714 1192(;)m 3801(it)s 3952(is)s 4118(de\207ned)s
-4726(when)s 5184(you)s 5514(write)s 172 fnt35 5948 1191(@SysInclude { doc })m
-192 fnt82 7528 1192(or)m 7733(the)s 8009(equi)s 4(v)k 4(alent)k
-8844(for)s 0 962(the)m 279(other)s 720(document)s 1524(types.)s
-2060(This)s 2441(is)s 2609(true)s 2952(of)s 3168(quite)s
-3596(a)s 3729(fe)s 4(w)k 4055(generally)s 4811(useful)s
-5322(symbols,)s 6047(including)s 172 fnt35 6814 961(@Bo)m 5(x)k
-192 fnt82 7325 962(and)m 172 fnt35 7649 961(@I)m 192 fnt82
-7855 962(.)m 7987(If)s 8170(you)s 8502(w)s 1(ant)k
-8922(to)s 0 732(use)m 300(these)s 738(symbols)s 1417(here,)s
-1832(you)s 2164(must)s 2583(include)s 3192(your)s 3591(setup)s
-4038(\207le)s 192 fnt83 4327 733(after)m 172 fnt35 4740 731(@SysInclude { doc })m
-192 fnt82 6322 732(or)m 6529(whate)s 4(v)k 2(er)k 7(,)k
-7303(the)s 7582(re)s 4(v)k 2(erse)k 8172(of)s
-8388(the)s 8666(usual)s 0 502(arrangement,)m 1044(so)s 1260(that)s
-1597(the)s 2(y)k 1972(are)s 2253(de\207ned)s 2866(before)s
-3402(Lout)s 3814(reads)s 4261(your)s 4663(setup)s 5112(\207le.)s
-5490(This)s 5873(re)s 4(v)k 2(ersal)k 6518(is)s
-6689(carried)s 7268(out)s 7564(automatically)s 8653(when)s 0 272(formatting)m
-841(programs)s 1594(independently)s 2715(of)s 2921(an)s 2(y)k
-3230(document,)s 4063(so)s 4266(you)s 4588(can)s 4891(use)s
-5181(these)s 5609(symbols)s 6279(in)s 6464(a)s 6587(setup)s
-7025(\207le)s 7304(gi)s 4(v)k 2(en)k 7760(by)s
-7987(a)s 172 fnt35 8110 271(-S)m 192 fnt82 8311 272(command)m
-0 42(line)m 332(\210ag.)s
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 8 10
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-240 fnt84 0 13840(8)m 240 fnt83 5981 13843(Chapter)m 6831(1.)s
-7105(Computer)s 8128(Pr)s 10(o)k 2(gr)k 3(ams)k
-240 fnt82 0 13205(\207les)m 449(and)s 853(change)s 1587(their)s
-2084(options)s 2840(quite)s 3374(independently)s 4784(of)s 5055(each)s
-5550(other)s 13(.)k 240 fnt84 0 12412(1.5.)m 471(Dealing)s
-1311(with)s 1817(tab)s 2201(characters)s 3330(in)s 3585(pr)s 4(ograms)k
-240 fnt82 480 11935(T)m 19(ab)k 896(characters)s 1924(pro)s 3(vide)k
-2718(a)s 2894(con)s 9(v)k 3(enient)k 4002(w)s 2(ay)k
-4463(to)s 4712(indent)s 5380(and)s 5794(align)s 6339(parts)s
-6864(of)s 7145(computer)s 8119(programs.)s 0 11647(W)m 9(ith)k
-526(care,)s 1030(this)s 1426(alignment)s 2442(can)s 2831(be)s
-3113(preserv)s 3(ed)k 4097(in)s 4340(the)s 4688(\207nal)s
-5168(print)s 5679(e)s 6(v)k 3(en)k 6179(with)s
-6661(v)s 6(arying-width)k 8067(fonts.)s 480 11273(The)m 896(distance)s
-1723(between)s 2565(tw)s 2(o)k 2962(tab)s 3295(stops)s
-3826(in)s 4056(the)s 4392(program)s 5250(te)s 3(xt)k
-5653(is)s 5850(by)s 6132(def)s 2(ault)k 6841(tak)s 2(en)k
-7401(to)s 7628(be)s 7898(8)s 8052(characters,)s 0 10985(which)m
-642(is)s 852(standard)s 1720(for)s 2058(Unix.)s 2701(This)s
-3177(can)s 3566(be)s 3848(changed)s 4704(with)s 5186(the)s
-220 fnt35 5534 10982(tabin)m 240 fnt82 6055 10985(option.)m 6831(F)s 3(or)k
-7220(e)s 3(xample,)k 220 fnt35 480 10484(@CP tabin { 4 })m 240 fnt82
-0 9990(informs)m 789(Lout)s 1296(that)s 1709(tab)s 2049(stops)s
-2587(occur)s 3173(e)s 6(v)k 3(ery)k 3744(4)s
-3913(characters)s 4926(in)s 5164(the)s 5507(program)s 6372(te)s 3(xt.)k
-6886(All)s 7241(the)s 7584(symbols)s 8428(\()s 220 fnt35
-8501 9987(@CP)m 240 fnt82 9019 9990(,)m 220 fnt35 0 9699(@Eiff)m 6(el)k
-240 fnt82 689 9702(,)m 785(etc.\))s 1240(and)s 1633(their)s
-2118(setup)s 2665(\207les)s 3103(ha)s 4(v)k 3(e)k
-3593(this)s 3977(option)s 4635(and)s 5028(the)s 5364(ne)s 3(xt;)k
-5874(b)s 4(ut)k 6225(to)s 6453(sa)s 4(v)k 3(e)k
-6915(repetition)s 7876(we)s 8200(will)s 8614(stick)s 0 9414(with)m
-482(C)s 694(for)s 1032(the)s 1380(rest)s 1784(of)s
-2055(this)s 2451(section.)s 480 9040(The)m 916(distance)s 1764(between)s
-2627(tw)s 2(o)k 3046(tab)s 3399(stops)s 3951(on)s
-4257(the)s 4614(printed)s 5357(page)s 5874(is)s 6093(quite)s
-6636(a)s 6810(dif)s 6(ferent)k 7694(thing,)s 8302(and)s
-8715(it)s 8916(is)s 0 8752(determined)m 1133(by)s 1427(the)s
-1775(v)s 6(alue)k 2343(of)s 2614(the)s 220 fnt35
-2962 8749(tabout)m 240 fnt82 3628 8752(option,)m 4347(which)s 4989(must)s
-5514(be)s 5796(a)s 5962(Lout)s 6474(length.)s 7236(F)s 3(or)k
-7625(e)s 3(xample,)k 220 fnt35 480 8251(@CP tabout { 0.5i })m 240 fnt82
-0 7757(requests)m 857(that)s 1298(tab)s 1666(stops)s 2232(be)s
-2537(placed)s 3243(at)s 3498(half-inch)s 4440(interv)s 6(als.)k
-5443(In)s 5722(other)s 6297(w)s 2(ords,)k 7010(a)s
-7199(distance)s 8061(of)s 8355(one)s 8781(tab)s 0 7469(stop)m
-474(in)s 739(the)s 1109(program)s 2001(te)s 3(xt)k
-2439(will)s 2887(be)s 3191(equi)s 6(v)k 6(alent)k
-4257(to)s 4519(a)s 4707(distance)s 5568(of)s 5861(half)s
-6326(an)s 6632(inch)s 7123(on)s 7442(the)s 7812(printed)s
-8570(page.)s 0 7181(F)m 3(or)k 389(e)s 3(xample,)k
-220 fnt35 480 6680(@CP style { v)m 5(ar)k -6(ying } tabout { 3f } n)k 2(umbered { )k 19(Y)k 30(es })k
-240 fnt82 0 6181(might)m 659(produce)s 1527(the)s 1916(follo)s 6(wing,)k
-2989(where)s 3670(tab)s 4056(characters)s 5116(in)s 5400(the)s
-5789(program)s 6700(te)s 3(xt)k 7157(ha)s 4(v)k 3(e)k
-7699(been)s 8249(used)s 8788(for)s 0 5893(indenting)m 957(and)s
-1361(also)s 1799(to)s 2038(align)s 2573(the)s 2921(comments:)s
-480 5388(1)m 240 fnt84 1200 5387(struct)m 240 fnt83 1856 5390(tnode)m
-240 fnt82 2441 5388({)m 4080(/*)s 4310(the)s 4658(basic)s
-5202(node)s 5724(*/)s 480 5100(2)m 240 fnt84 1920 5099(char)m
-240 fnt82 2443 5046(*)m 240 fnt83 2547 5102(wor)m 8(d)k
-240 fnt82 3038 5100(;)m 4080(/*)s 4310(points)s 4946(to)s
-5185(the)s 5533(te)s 3(xt)k 5948(*/)s 480 4812(3)m
-240 fnt84 1920 4811(int)m 240 fnt83 2258 4814(count)m 240 fnt82
-2794 4812(;)m 4080(/*)s 4310(number)s 5101(of)s 5372(occurrences)s
-6564(*/)s 480 4524(4)m 240 fnt84 1920 4523(struct)m 240 fnt83
-2576 4526(tnode)m 240 fnt82 3161 4470(*)m 240 fnt83 3265 4526(left)m
-240 fnt82 3573 4524(;)m 4080(/*)s 4310(left)s 4687(child)s
-5223(*/)s 480 4236(5)m 240 fnt84 1920 4235(struct)m 240 fnt83
-2576 4238(tnode)m 240 fnt82 3161 4182(*)m 240 fnt83 3265 4238(right)m
-240 fnt82 3734 4236(;)m 4080(/*)s 4310(right)s 4821(child)s
-5357(*/)s 480 3948(6)m 1200(};)s 0 3454(W)m 19(e')k 12(v)k 3(e)k
-672(used)s 220 fnt35 1183 3451(n)m 2(umbered { )k 19(Y)k 30(es })k
-240 fnt82 2891 3454(to)m 3144(demonstrate)s 4381(that)s 4813(the)s
-5174(features)s 5994(for)s 6345(dealing)s 7116(with)s 7611(tabs)s
-8061(w)s 2(ork)k 8626(e)s 6(v)k 3(en)k
-0 3166(with)m 471(line)s 873(numbers.)s 1850(The)s 2266(v)s 6(alue)k
-220 fnt35 2823 3163(3f)m 240 fnt82 3051 3166(means)m 3702(three)s
-4223(times)s 4780(the)s 5116(current)s 5841(font)s 6274(size,)s
-6741(and)s 7133(it)s 7314(is)s 7512(the)s 7849(def)s 2(ault)k
-8558(v)s 6(alue)k 0 2878(of)m 220 fnt35 273 2875(tabout)m
-240 fnt82 942 2878(for)m 1282(the)s 220 fnt35 1633 2875(v)m 5(ar)k -6(ying)k
-240 fnt82 2391 2878(and)m 220 fnt35 2798 2875(symbol)m 240 fnt82
-3541 2878(styles)m 4139(\(Section)s 4994(1.4\).)s 5540(In)s 5798(a)s
-5967(12)s 6263(point)s 6818(font)s 7265(this)s 7664(is)s
-7876(36)s 8172(points,)s 8867(or)s 0 2590(half)m 443(an)s
-726(inch.)s 480 2216(If)m 220 fnt35 710 2213(tabout)m 240 fnt82
-1376 2216(is)m 1586(too)s 1945(small,)s 2569(there)s 3102(is)s
-3312(a)s 3478(danger)s 4189(that)s 4607(the)s 4955(alignment)s
-5971(might)s 6589(f)s 2(ail.)k 7068(F)s 3(or)k
-7457(e)s 3(xample,)k 220 fnt35 480 1715(@CP style { v)m 5(ar)k -6(ying } tabout { 0.2i })k
-240 fnt82 0 1216(produces)m
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 9 11
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Italic
-%%+ font Times-Bold
-%%+ font Courier
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Courier
-/Courierfnt29 vec2 /Courier LoutRecode
-/fnt29 { /Courierfnt29 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-240 fnt83 0 13843(1.5.)m 454(Dealing)s 1279(with)s 1746(tab)s
-2106(c)s 3(har)k 3(acter)k 2(s)k 3176(in)s
-3416(pr)s 10(o)k 2(gr)k 3(ams)k 240 fnt84
-8952 13840(9)m 480 13202(struct)m 240 fnt83 1136 13205(tnode)m 240 fnt82
-1721 13203({)m 1805(/*)s 2035(the)s 2383(basic)s 2927(node)s
-3449(*/)s 240 fnt84 768 12914(char)m 240 fnt82 1291 12861(*)m
-240 fnt83 1395 12917(wor)m 8(d)k 240 fnt82 1886 12915(;)m
-1938(/*)s 2168(points)s 2804(to)s 3043(the)s 3391(te)s 3(xt)k
-3806(*/)s 240 fnt84 768 12626(int)m 240 fnt83 1106 12629(count)m
-240 fnt82 1642 12627(;)m 1694(/*)s 1924(number)s 2715(of)s
-2986(occurrences)s 4178(*/)s 240 fnt84 768 12338(struct)m 240 fnt83
-1424 12341(tnode)m 240 fnt82 2009 12285(*)m 240 fnt83 2113 12341(left)m
-240 fnt82 2421 12339(;)m 2473(/*)s 2703(left)s 3080(child)s
-3616(*/)s 240 fnt84 768 12050(struct)m 240 fnt83 1424 12053(tnode)m
-240 fnt82 2009 11997(*)m 240 fnt83 2113 12053(right)m 240 fnt82
-2582 12051(;)m 2634(/*)s 2864(right)s 3375(child)s 3911(*/)s
-480 11763(};)m 0 11269(gi)m 6(v)k 3(en)k 590(the)s
-948(same)s 1505(C)s 1727(te)s 3(xt)k 2153(as)s
-2413(the)s 2771(pre)s 6(vious)k 3650(e)s 3(xample.)k
-4632(The)s 5070(problem)s 5937(here)s 6414(is)s 6634(that)s
-7063(we)s 7408(are)s 7765(asking)s 8453(for)s 220 fnt29
-8802 11277(/*)m 240 fnt82 71 10981(to)m 321(appear)s 1029(four)s
-1498(tab)s 1854(stops)s 2408(or)s 2678(0.8)s 3036(inches)s
-3709(from)s 4244(the)s 4603(left)s 4991(edge,)s 5561(and)s
-5976(yet)s 6339(the)s 6698(material)s 7545(to)s 7795(its)s
-8082(left)s 8470(on)s 8778(the)s 0 10693(line)m 419(is)s
-634(wider)s 1244(than)s 1718(this.)s 2232(This)s 2714(causes)s
-220 fnt29 3394 10701(/*)m 240 fnt82 3861 10693(to)m 4105(be)s
-4393(shifted)s 5106(further)s 5820(to)s 6065(the)s 6418(right)s
-6934(than)s 7409(e)s 3(xpected,)k 8368(and)s 8778(the)s
-0 10405(alignment)m 1016(is)s 1226(lost.)s 1735(The)s 2163(only)s
-2643(solution)s 3471(is)s 3681(to)s 3920(increase)s 220 fnt35
-4758 10402(tabout)m 240 fnt82 5364 10405(.)m 480 10031(When)m 1108(typesetting)s
-2208(computer)s 3169(program)s 4038(te)s 3(xts)k 4535(independently)s
-5943(of)s 6213(an)s 3(y)k 6608(document,)s 7657(there)s
-8189(are)s 220 fnt35 8534 10028(-t)m 240 fnt82 8722 10031(and)m
-220 fnt35 0 9740(-T)m 240 fnt82 289 9743(options)m 1070(to)s
-1335(the)s 220 fnt35 1708 9740(prg2lout)m 240 fnt82 2581 9743(program)m
-3477(equi)s 6(v)k 6(alent)k 4546(to)s 220 fnt35
-4811 9740(tabin)m 240 fnt82 5357 9743(and)m 220 fnt35 5786 9740(tabout)m
-240 fnt82 6478 9743(respecti)m 6(v)k 3(ely)k 15(.)k
-7797(F)s 3(or)k 8212(e)s 3(xample,)k 220 fnt35
-0 9452(-T0.5i)m 240 fnt82 606 9455(produces)m 1521(a)s 1687(half-inch)s
-2606(tab)s 2951(width.)s 240 fnt84 0 8662(1.6.)m 471(Dealing)s
-1311(with)s 1817(f)s 6(ormfeed)k 2794(characters)s 3923(in)s
-4178(pr)s 4(ograms)k 240 fnt82 480 8185(The)m 900(formfeed)s
-1824(\(Control-L\))s 2978(character)s 3904(is)s 4105(traditionally)s 5317(tak)s 2(en)k
-5881(to)s 6112(be)s 6385(a)s 6542(request)s 7283(to)s
-7514(start)s 7975(a)s 8132(ne)s 6(w)k 8570(page.)s
-0 7897(This)m 476(is)s 686(e)s 3(xplicitly)k 1639(recognized)s
-2746(by)s 3040(the)s 3388(formal)s 4079(de\207nition)s 5054(of)s
-5325(the)s 5673(C)s 5885(language)s 6805(and)s 7209(man)s 3(y)k
-7792(others,)s 8484(which)s 0 7609(treat)m 486(this)s 886(character)s
-1823(as)s 2077(white)s 2667(space)s 3258(from)s 3785(a)s
-3955(language)s 4878(point)s 5434(of)s 5708(vie)s 6(w)k 15(,)k
-6263(with)s 6748(the)s 7100(understanding)s 8512(that)s 8934(it)s
-0 7321(will)m 426(cause)s 1013(a)s 1179(page)s 1687(break)s
-2279(when)s 2855(printed.)s 480 6947(There)m 1086(are)s 1426(no)s
-220 fnt35 1712 6944(prg2lout)m 240 fnt82 2553 6947(options)m 3302(for)s
-3633(dealing)s 4383(with)s 4858(formfeed)s 5784(characters.)s 6908(The)s 3(y)k
-7444(will)s 7863(be)s 8137(con)s 9(v)k 3(erted)k
-0 6659(into)m 220 fnt35 425 6656(@NP)m 240 fnt82 1003 6659(\(ne)m 6(w)k
-1529(page\))s 2109(symbols,)s 3014(causing)s 3798(a)s 3964(ne)s 6(w)k
-4411(page)s 4919(or)s 5178(column)s 5953(to)s 6192(be)s
-6474(be)s 3(gun)k 7114(in)s 7357(the)s 7705(printing.)s
-480 6285(Whether)m 1386(formfeed)s 2342(characters)s 3383(end)s 3810(their)s
-4330(line)s 4767(or)s 5050(not)s 5439(is)s 5672(a)s
-5861(problem.)s 6845(Consider)s 7792(this)s 8212(e)s 3(xample,)k
-0 5997(where)m 220 fnt35 640 5994(^L)m 240 fnt82 921 5997(stands)m
-1570(for)s 1908(one)s 2310(formfeed)s 3243(character:)s 220 fnt35
-480 5549(abc)m 480 5261(def^Lghi)m 480 4973(jhk)m 240 fnt82 0 4476(Ho)m 6(w)k
-532(man)s 3(y)k 1134(lines)s 1654(does)s 2163(this)s
-2577(e)s 3(xample)k 3459(contain?)s 4401(Y)s 26(our)k
-4945(te)s 3(xt)k 5379(editor)s 6014(w)s 2(ould)k
-6688(probably)s 7611(say)s 8003(`three',)s 8764(b)s 4(ut)k
-0 4188(when)m 571(you)s 980(print)s 1486(it)s 1672(you)s
-2081(will)s 2502(see)s 2857(four)s 13(.)k 3400(It)s
-3600(is)s 3804(not)s 4164(desirable)s 5077(to)s 5310(ha)s 4(v)k 3(e)k
-5805(printed)s 6535(programs)s 7483(\(especially)s 8565(those)s 0 3900(with)m
-465(line)s 861(numbers)s 1718(attached\))s 2624(disagreeing)s 3761(with)s
-4225(te)s 3(xt)k 4623(editors)s 5306(about)s 5880(line)s
-6276(numbers.)s 7246(The)s 7656(solution)s 8466(adopt)s 8998(-)s
-0 3612(ed)m 297(by)s 220 fnt35 604 3609(prg2lout)m 240 fnt82
-1466 3612(to)m 1718(this)s 2128(problem)s 2998(is)s 3222(to)s
-3474(treat)s 3971(the)s 4332(formfeed)s 5279(character)s 6226(as)s
-6490(including)s 7460(a)s 7640(ne)s 6(wline,)k 8511(b)s 4(ut)k
-8887(to)s 0 3324(assign)m 647(the)s 987(same)s 1526(line)s
-1932(number)s 2715(to)s 2946(both)s 3421(parts)s 3928(of)s
-4191(the)s 4531(original)s 5321(line)s 5727(\(the)s 6146(parts)s
-6653(before)s 7311(and)s 7707(after)s 8195(the)s 8534(form)s
-8998(-)s 0 3036(feed\).)m 664(If)s 905(the)s 1264(part)s
-1705(after)s 2212(the)s 2571(formfeed)s 3514(is)s 3735(empty)s
-4398(\(that)s 4905(is,)s 5182(if)s 5410(the)s 5768(formfeed)s
-6712(character)s 7657(is)s 7878(immediately)s 0 2748(follo)m 6(wed)k
-913(by)s 1219(a)s 1397(ne)s 6(wline)k 2216(or)s
-2487(another)s 3276(formfeed\),)s 4349(and)s 4765(if)s 4994(the)s
-5354(formfeed)s 6299(is)s 6521(not)s 6899(inside)s 7538(an)s 3(y)k
-7947(le)s 3(xical)k 8647(unit,)s 0 2460(then)m 469(the)s
-817(empty)s 1469(line)s 1883(after)s 2379(the)s 2727(formfeed)s
-3660(will)s 4086(not)s 4452(be)s 4734(printed)s 5469(at)s
-5701(all.)s 480 2086(The)m 901(most)s 1419(common)s 2307(case)s
-2767(is)s 2970(that)s 3381(of)s 3645(a)s 3804(formfeed)s
-4729(character)s 9(,)k 5694(outside)s 6434(an)s 3(y)k
-6824(le)s 3(xical)k 7505(unit,)s 7977(on)s 8267(a)s
-8426(line)s 8832(by)s 0 1798(itself.)m 640(Let')s 13(s)k
-1168(see)s 1529(what)s 2054(this)s 2450(rule)s 2877(produces)s
-3792(in)s 4035(the)s 4383(follo)s 6(wing)k 5360(e)s 3(xample)k
-6223(of)s 6494(this)s 6890(case:)s 220 fnt35 480 1301(abc)m
-480 1013(def)m 480 725(^L)m 480 437(ghi)m
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 10 12
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-240 fnt84 0 13840(10)m 240 fnt83 5981 13843(Chapter)m 6831(1.)s
-7105(Computer)s 8128(Pr)s 10(o)k 2(gr)k 3(ams)k
-240 fnt82 0 13205(There)m 615(will)s 1043(be)s 1328(one)s
-1732(blank)s 2327(line)s 2744(numbered)s 3761(3)s 3927(at)s
-4162(the)s 4512(end)s 4918(of)s 5192(the)s 5542(\207rst)s
-5975(page,)s 6537(and)s 6943(a)s 7111(line)s 7528(numbered)s
-8545(4)s 8722(and)s 0 12917(containing)m 220 fnt35 1065 12914(ghi)m
-240 fnt82 1405 12917(at)m 1639(the)s 1989(start)s 2461(of)s
-2734(the)s 3084(ne)s 3(xt)k 3555(page.)s 4173(The)s
-4603(blank)s 5198(line)s 5614(is)s 5826(a)s 5994(necessity)s 15(,)k
-6964(at)s 7198(least)s 7697(when)s 8275(lines)s 8779(are)s
-0 12629(being)m 596(numbered,)s 1671(because)s 2496(we)s 2842(w)s 2(ant)k
-3377(the)s 3736(last)s 4139(line)s 4564(in)s 4819(the)s
-5178(e)s 3(xample)k 6053(to)s 6303(be)s 6597(numbered)s
-7623(4)s 7809(to)s 8059(agree)s 8644(with)s 0 12341(te)m 3(xt)k
-414(editors,)s 1169(b)s 4(ut)k 1529(we)s 1862(don')s 4(t)k
-2422(w)s 2(ant)k 2943(the)s 3289(line)s 3701(numbers)s
-4575(on)s 4870(our)s 5247(print)s 5756(to)s 5994(skip)s
-6444(from)s 6966(2)s 7138(on)s 7434(the)s 7780(\207rst)s
-8209(page)s 8715(to)s 8952(4)s 0 12053(on)m 297(the)s
-644(second,)s 1415(because)s 2227(that)s 2644(w)s 2(ould)k
-3298(mak)s 2(e)k 3869(readers)s 4609(anxious)s 5404(about)s
-5995(the)s 6342(apparently)s 7404(missing)s 8200(line)s 8613(3.)s
-8896(If)s 0 11765(you)m 415(don')s 4(t)k 976(w)s 2(ant)k
-1499(that)s 1917(empty)s 2569(line,)s 3034(mo)s 3(v)k 3(e)k
-3616(the)s 3964(formfeed)s 4897(character)s 5831(to)s 6070(the)s
-6418(end)s 6822(of)s 7093(the)s 7441(preceding)s 8437(line.)s
-240 fnt84 0 10972(1.7.)m 471(Embedding)s 1710(Lout)s 2262(commands)s
-3419(within)s 4125(pr)s 4(ogram)k 5081(comments)s 240 fnt82
-480 10495(It)m 712(is)s 949(possible)s 1817(to)s 2083(embed)s
-2806(Lout)s 3346(te)s 3(xt)k 3788(inside)s 4442(program)s
-5340(comments.)s 6514(Ho)s 6(w)k 7055(this)s 7479(is)s
-7716(done)s 8265(could)s 8883(in)s 0 10207(principle)m 916(v)s 6(ary)k
-1401(from)s 1936(language)s 2868(to)s 3118(language,)s 4101(b)s 4(ut)k
-4474(in)s 4729(e)s 6(v)k 3(ery)k 5317(language)s
-6248(supported)s 7262(so)s 7539(f)s 2(ar)k 7873(it)s
-8076(is)s 8298(done)s 8832(by)s 0 9919(starting)m 757(of)s 6(f)k
-1089(the)s 1424(comment)s 2362(with)s 2831(an)s 220 fnt35
-3102 9916(@)m 240 fnt82 3341 9919(character)m 13(.)k 4353(If)s
-4571(the)s 4906(language)s 5814(has)s 6172(se)s 6(v)k 3(eral)k
-6881(w)s 2(ays)k 7410(to)s 7636(get)s 7976(a)s
-8129(comment,)s 0 9631(this)m 408(will)s 847(w)s 2(ork)k
-1411(e)s 6(v)k 3(ery)k 2000(w)s 2(ay)k 15(.)k
-2559(The)s 3000(entire)s 3612(comment)s 4575(after)s 5083(the)s
-220 fnt35 5444 9628(@)m 240 fnt82 5708 9631(character)m 6655(should)s
-7365(then)s 7847(be)s 8142(Lout)s 8667(te)s 3(xt.)k
-0 9343(F)m 3(or)k 389(e)s 3(xample,)k 1303(to)s
-1542(force)s 2088(Lout)s 2600(to)s 2839(start)s 3309(a)s
-3475(ne)s 6(w)k 3922(page)s 4430(at)s 4662(some)s
-5223(point)s 5775(within)s 6443(a)s 6609(C)s 6821(program,)s
-7738(place)s 220 fnt35 480 8842(/*@ @NP */)m 240 fnt82 0 8387(at)m
-234(that)s 655(point.)s 1314(\(In)s 1652(this)s 2051(case)s
-2521(you)s 2939(can)s 3331(also)s 3772(simply)s 4480(include)s
-5243(a)s 5412(formfeed)s 6348(character)s 9(,)k 7323(control-L,)s
-8335(without)s 0 8099(an)m 3(y)k 414(comment;)s 1433(see)s
-1811(Section)s 2602(1.6)s 2972(for)s 3328(more)s 3892(on)s
-4206(this.\))s 4816(Or)s 9(,)k 5183(to)s 5439(mak)s 2(e)k
-6029(a)s 6212(heading)s 7040(in)s 7300(an)s 7600(Eif)s 6(fel)k
-8209(program,)s 0 7811(do)m 293(this:)s 220 fnt35 480 7360(--@ @Displa)m 6(y @Heading { treepr)k -3(int })k
-240 fnt82 0 6861(\(Eif)m 6(fel)k 658(comments)s 1680(be)s 3(gin)k
-2254(with)s 220 fnt35 2724 6858(--)m 240 fnt82 2909 6861(and)m
-3300(end)s 3692(at)s 3912(the)s 4248(end)s 4640(of)s
-4899(the)s 5234(line.\))s 5828(Other)s 6420(possible)s 7248(uses)s
-7699(for)s 8025(this)s 8408(feature)s 0 6573(include)m 760(inde)s 3(x)k
-1344(entries)s 2031(and)s 2435(mar)s 4(gin)k 3165(notes.)s
-3834(Incredible)s 4858(as)s 5108(it)s 5300(may)s 5766(seem,)s
-6364(you)s 6779(can)s 7168(e)s 6(v)k 3(en)k
-7668(write)s 220 fnt35 480 6072(/*@ @CD @Heading { Function @CP { treepr)m -3(int\(\) } } */)k 240 fnt82
-0 5573(with)m 500(a)s 220 fnt35 684 5570(@CP)m 240 fnt82
-1280 5573(symbol)m 2058(and)s 2481(some)s 3060(C)s 3290(code)s
-3816(inside)s 4462(the)s 4828(Lout)s 5358(code)s 5884(inside)s
-6530(the)s 6896(C)s 7126(code.)s 7760(Y)s 26(ou)k
-8221(probably)s 0 5285(can')m 4(t)k 566(go)s 892(further)s 9(,)k
-1673(ho)s 6(we)k 6(v)k 3(er)k 9(,)k
-2613(at)s 2879(least)s 3409(not)s 3808(in)s 4085(C,)s
-4385(since)s 4966(that)s 5417(w)s 2(ould)k 6105(require)s
-6871(a)s 7070(C)s 7316(comment)s 8299(inside)s 8960(a)s
-0 4997(C)m 212(comment.)s 240 fnt84 0 4253(1.8.)m 471(Embedding)s
-1710(pr)s 4(ogram)k 2666(text)s 3110(within)s 3816(pr)s 4(ogram)k
-4772(comments)s 240 fnt82 480 3776(The)m 902(standard)s 1763(reference)s
-2699(for)s 3030(the)s 3371(Eif)s 6(fel)k 3955(language)s
-4869([1)s 5043(])s 5154(speci\207es)s 6021(that)s 6432(identi\207ers)s
-7431(within)s 8092(comments)s 0 3488(may)m 466(or)s 725(should)s
-1422(be)s 1704(enclosed)s 2599(in)s 2842(`)s 2963(and)s
-3367(')s 3479(so)s 3745(that)s 4163(the)s 3(y)k
-4626(may)s 5092(be)s 5374(noticed)s 6136(and)s 6540(printed)s
-7275(in)s 7518(an)s 7801(italic)s 8330(font:)s 220 fnt35
-480 2987(@ID @Eiff)m 6(el {)k 480 2699(deposit\(amount:)m 11( REAL\) is)k 480 2411( -- deposit )m 13(`amount')k 15( dollars)k
-480 2123(})m 240 fnt82 0 1629(produces)m 240 fnt83 480 1126(deposit)m
-240 fnt82 1175 1124(\()m 240 fnt83 1248 1126(amount)m 240 fnt82
-1971 1124(:)m 240 fnt83 2077 1126(REAL)m 240 fnt82 2648 1124(\))m
-240 fnt84 2776 1123(is)m 240 fnt82 1200 836(--)m 1407(deposit)s
-240 fnt83 2158 838(amount)m 240 fnt82 2941 836(dollars)m 0 333(This)m
-463(has)s 819(been)s 1315(generalized)s 2460(in)s 2690(Lout:)s
-3294(arbitrary)s 4156(te)s 3(xt)k 4557(within)s 5212(an)s
-5481(Eif)s 6(fel)k 6059(comment)s 6995(between)s 7836(`)s
-7943(and)s 8334(')s 8432(will)s 8844(be)s
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 11 13
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Italic
-%%+ font Times-Bold
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-240 fnt83 0 13843(1.8.)m 454(Embedding)s 1599(pr)s 10(o)k 2(gr)k 3(am)k
-2479(te)s 4(xt)k 2883(within)s 3535(pr)s 10(o)k 2(gr)k 3(am)k
-4415(comments)s 240 fnt84 8839 13840(11)m 240 fnt82 0 13205(treated)m
-707(as)s 957(Eif)s 6(fel)k 1548(te)s 3(xt)k
-1963(and)s 2367(printed)s 3102(accordingly)s 15(.)k 4380(Some)s
-4981(other)s 5532(languages)s 6540(may)s 7006(also)s 7444(of)s 6(fer)k
-7961(this)s 8358(feature:)s 0 12917(see)m 377(the)s 742(\207fth)s
-1214(column)s 2006(of)s 2294(the)s 2659(table)s 3195(at)s
-3444(the)s 3809(start)s 4296(of)s 4584(this)s 4997(chapter)s 13(.)k
-5867(In)s 6140(principle)s 7062(the)s 7427(precise)s 8176(means)s
-8855(of)s 0 12629(getting)m 707(it)s 889(could)s 1469(v)s 6(ary)k
-1932(from)s 2445(language)s 3355(to)s 3584(language,)s 4545(b)s 4(ut)k
-4897(the)s 5234(languages)s 6232(a)s 4(v)k 6(ailable)k
-7130(at)s 7352(the)s 7690(moment)s 8523(either)s 0 12341(do)m
-293(not)s 659(ha)s 4(v)k 3(e)k 1160(it)s
-1352(at)s 1584(all,)s 1929(or)s 2188(else)s 2615(the)s 3(y)k
-3078(use)s 3453(`)s 3574(and)s 3978(')s 4090(lik)s 2(e)k
-4502(Eif)s 6(fel.)k 480 11967(On)m 847(the)s 1213(subject)s
-1967(of)s 2256(Eif)s 6(fel,)k 2917(the)s 3282(Eif)s 6(fel)k
-3891(reference)s 4852([1)s 5026(])s 5161(has)s 5549(some)s
-6128(quite)s 6679(detailed)s 7511(style)s 8036(guidelines,)s 0 11679(and)m
-436(these)s 1016(ha)s 4(v)k 3(e)k 1550(been)s
-2091(closely)s 2855(follo)s 6(wed)k 3790(in)s 4066(the)s
-4446(implementation)s 6036(of)s 6340(the)s 220 fnt35 6720 11676(@Eiff)m 6(el)k
-240 fnt82 7502 11679(symbol.)m 8404(In)s 8693(par)s 8998(-)s
-0 11391(ticular)m 9(,)k 220 fnt35 744 11388(@Eiff)m 6(el)k
-240 fnt82 1531 11391(prints)m 2164(dots)s 2651(lar)s 4(ger)k
-3301(than)s 3808(usual)s 4406(when)s 5019(the)s 3(y)k
-5520(denote)s 6252(feature)s 7007(calls,)s 7589(as)s 7877(the)s
-8263(e)s 3(xample)k 240 fnt83 0 11105(account)m 336 fnt82
-762 11095(.)m 240 fnt83 835 11105(deposit)m 240 fnt82 1530 11103(\(20\))m
-1977(sho)s 6(ws.)k 240 fnt84 0 10314(1.9.)m 471(Reading)s
-1378(and)s 1819(selecting)s 2750(pr)s 4(ogram)k 3706(text)s
-4150(fr)s 4(om)k 4706(separate)s 5625(\207les)s 240 fnt82
-480 9837(W)m 19(e)k 852(ha)s 4(v)k 3(e)k
-1356(said)s 1802(that)s 2223(program)s 3096(te)s 3(xt)k
-3514(within)s 220 fnt35 4186 9834(@CP { ...)m 13( })k 240 fnt82
-5266 9837(and)m 5673(the)s 6024(other)s 6578(symbols)s 7430(is)s
-7643(passed)s 8343(directly)s 0 9549(to)m 220 fnt35 272 9546(prg2lout)m
-240 fnt82 1153 9549(for)m 1525(analysis.)s 2492(Ho)s 6(we)k 6(v)k 3(er)k 9(,)k
-3485(there)s 4052(is)s 4295(an)s 4611(e)s 3(xception.)k
-5736(The)s 6197(program)s 7100(te)s 3(xt)k 7549(may)s
-8048(contain)s 8843(an)s 220 fnt35 0 9258(@Include)m 240 fnt82
-985 9261(or)m 220 fnt35 1248 9258(@SysInclude)m 240 fnt82 2599 9261(command,)m
-3654(which,)s 4349(as)s 4603(for)s 4945(the)s 220 fnt35
-5296 9258(@V)m 17(erbatim)k 240 fnt82 6429 9261(symbol)m 7192(\(Section)s
-8049(??\),)s 8451(causes)s 0 8973(Lout)m 512(to)s 751(tak)s 2(e)k
-1203(the)s 1551(program)s 2421(te)s 3(xt)k 2836(from)s
-3360(a)s 3526(\207le:)s 220 fnt35 480 8472(@Eiff)m 6(el)k
-480 8184({)m 480 7896( @Include { "/usr/staff/jeff/Eiff)m 6(el/hash.e" })k 480 7608(})m 240 fnt82
-0 7114(The)m 421(included)s 1296(\207le)s 1649(is)s 1852(not)s
-2211(e)s 3(xamined)k 3188(for)s 3519(balanced)s 4419(braces)s
-5073(or)s 220 fnt35 5325 7111(@End)m 240 fnt82 5978 7114(or)m
-220 fnt35 6230 7111(@Include)m 240 fnt82 7152 7114(;)m 7257(it)s
-7441(is)s 7644(treated)s 8343(entirely)s 0 6826(v)m 3(erbatim)k
-895(and)s 1288(passed)s 1973(straight)s 2738(on)s 3024(to)s
-220 fnt35 3252 6823(prg2lout)m 240 fnt82 4040 6826(.)m 4193(There)s
-4795(may)s 5250(be)s 5521(se)s 6(v)k 3(eral)k
-220 fnt35 6232 6823(@Include)m 240 fnt82 7203 6826(commands,)m 8336(and)s
-8729(an)s 3(y)k 0 6538(amount)m 778(of)s 1049(program)s
-1919(te)s 3(xt)k 2334(as)s 2584(well,)s 3102(within)s
-220 fnt35 3770 6535(@CP { ...)m 13( })k 240 fnt82 4847 6538(and)m
-5251(the)s 5599(rest.)s 480 6164(When)m 1109(including)s 2066(\207les)s
-2515(in)s 2758(this)s 3153(w)s 2(ay)k 3604(it)s
-3796(often)s 4344(happens)s 5179(that)s 5597(only)s 6077(part)s
-6508(of)s 6778(an)s 7061(actual)s 7686(program)s 8556(\207le)s
-8916(is)s 0 5876(w)m 2(anted)k 753(for)s 1098(display)s 15(.)k
-1945(Rather)s 2649(than)s 3125(placing)s 3888(the)s 4243(w)s 2(anted)k
-4997(part)s 5435(in)s 5685(a)s 5857(separate)s 6702(\207le,)s
-7121(which)s 7770(is)s 7987(error)s 4(-prone)k 0 5588(and)m
-404(tedious)s 1147(when)s 1724(the)s 2073(program)s 2944(is)s
-3154(changing,)s 4140(Unix)s 4675(users)s 5218(can)s 5608(use)s
-5984(the)s 220 fnt35 6332 5585(pipe)m 240 fnt82 6799 5588(option)m
-7469(to)s 7709(pipe)s 8178(the)s 8527(entire)s 0 5300(\207le)m
-369(through)s 1180(an)s 1472(arbitrary)s 2355(sequence)s 3297(of)s
-3577(Unix)s 4119(commands,)s 5272(which)s 5923(may)s 6397(be)s
-6688(used)s 7194(to)s 7441(mak)s 2(e)k 8022(the)s
-8379(w)s 2(anted)k 0 5012(selection)m 906(before)s 1572(the)s
-1920(program)s 2790(te)s 3(xt)k 3205(is)s 3415(passed)s
-4111(to)s 220 fnt35 4350 5009(prg2lout)m 240 fnt82 5138 5012(.)m
-480 4638(F)m 3(or)k 868(e)s 3(xample,)k 1780(suppose)s
-2606(that)s 3022(all)s 3313(your)s 3810(Eif)s 6(fel)k
-4399(routines)s 5218(be)s 3(gin)k 5802(with)s 6282(the)s
-6628(routine)s 7359(name)s 7931(one)s 8331(tab)s 8674(stop)s
-0 4350(from)m 524(the)s 872(left)s 1249(mar)s 4(gin)k
-1979(and)s 2383(end)s 2787(at)s 3019(the)s 3367(\207rst)s
-3798(follo)s 6(wing)k 240 fnt84 4775 4349(end)m 240 fnt82
-5202 4350(indented)m 6084(tw)s 2(o)k 6494(tab)s 6839(stops.)s
-7495(Then)s 220 fnt35 480 3849(@Eiff)m 6(el)k 480 3561( pipe { "sed -n /^.inser)m -8(t/,/^..end/p" })k
-480 3273({)m 480 2985( @Include { "/usr/staff/jeff/Eiff)m 6(el/hash.e" })k 480 2697(})m 240 fnt82
-0 2203(will)m 417(select)s 1010(just)s 1406(the)s 240 fnt83
-1744 2205(insert)m 240 fnt82 2342 2203(routine)m 3066(from)s 3580(the)s
-220 fnt35 3918 2200(hash.e)m 240 fnt82 4620 2203(\207le.)m 5079(Assuming)s
-6094(that)s 6502(your)s 6991(program)s 7852(te)s 3(xt)k
-8257(has)s 8617(been)s 0 1915(laid)m 413(out)s 775(in)s
-1014(a)s 1176(disciplined)s 2279(manner)s 9(,)k 3090(e)s 6(v)k 3(ery)k
-3663(line)s 4073(of)s 4340(the)s 4684(selection)s 5586(will)s
-6008(be)s 3(gin)k 6591(with)s 7069(a)s 7231(tab)s
-7572(character)s 8502(that)s 8916(is)s 0 1627(not)m 366(w)s 2(anted)k
-1113(in)s 1356(this)s 1752(display)s 15(,)k 2535(so)s
-2801(an)s 3084(e)s 6(v)k 3(en)k 3584(better)s
-4187(pipe)s 4655(is)s
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 12 14
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-240 fnt84 0 13840(12)m 240 fnt83 5981 13843(Chapter)m 6831(1.)s
-7105(Computer)s 8128(Pr)s 10(o)k 2(gr)k 3(ams)k
-220 fnt35 480 13207(@Eiff)m 6(el)k 480 12919( pipe { "sed -n /^.inser)m -8(t/,/^..end/p | cut -c2-" })k
-480 12631({)m 480 12343( @Include { "/usr/staff/jeff/Eiff)m 6(el/hash.e" })k 480 12055(})m 240 fnt82
-0 11561(since)m 584(it)s 813(cuts)s 1286(a)s 3(w)k 2(ay)k
-1878(the)s 2263(unw)s 2(anted)k 3287(tab)s 3670(characters.)s
-4838(Unfortunately)s 15(,)k 6308(we)s 6680(can')s 4(t)k
-7251(sho)s 6(w)k 7842(the)s 8227(result)s 8855(of)s
-0 11273(this)m 430(on)s 761(an)s 1078(actual)s 1737(e)s 3(xample,)k
-2685(since)s 3266(that)s 3718(w)s 2(ould)k 4407(pre)s 6(v)k 3(ent)k
-5209(this)s 5639(manual)s 6432(from)s 6990(being)s 7609(formatted)s
-8629(on)s 8960(a)s 0 10985(non-Unix)m 973(system.)s 240 fnt84
-0 10193(1.10.)m 591(Err)s 4(or)k 1243(messages)s 240 fnt82
-480 9716(In)m 739(order)s 1307(to)s 1550(understand)s 2662(the)s
-3013(error)s 3540(messages)s 4498(produced)s 5451(by)s 5749(program)s
-6622(printing,)s 7490(it)s 7686(is)s 7900(necessary)s 8887(to)s
-0 9428(understand)m 1113(that)s 1536(Lout')s 13(s)k 2203(\207rst)s
-2639(step)s 3082(when)s 3663(gi)s 6(v)k 3(en)k
-4248(a)s 4419(program)s 5294(te)s 3(xt)k 5714(is)s
-5929(to)s 6173(pass)s 6641(it)s 6838(to)s 7082(the)s
-7435(separate)s 220 fnt35 8278 9425(prg2lout)m 240 fnt82 0 9140(program)m
-917(for)s 1303(analysis.)s 2285(This)s 2809(separate)s 3695(program)s
-4613(is)s 4871(the)s 5266(source)s 5994(of)s 6313(most)s
-6886(of)s 7205(the)s 7601(error)s 8172(messages)s 0 8852(associated)m
-1040(with)s 1522(program)s 2392(printing.)s 480 8478(The)m 220 fnt35
-907 8475(prg2lout)m 240 fnt82 1753 8478(program)m 2622(is)s 2830(quite)s
-3362(happ)s 2(y)k 3999(to)s 4236(format)s 4931(a)s
-5095(fragment)s 6015(of)s 6285(a)s 6449(computer)s 7411(program:)s
-8385(there)s 8916(is)s 0 8190(no)m 278(need)s 773(to)s
-997(supply)s 1675(a)s 1826(complete)s 2743(routine,)s 3512(or)s
-3756(a)s 3907(complete)s 4824(statement,)s 5831(or)s 6075(an)s 3(y)k
-6457(such)s 6938(thing.)s 7579(Ho)s 6(we)k 6(v)k 3(er)k 9(,)k
-8524(it)s 8700(will)s 0 7902(complain)m 944(if)s 1157(you)s
-1568(supply)s 2258(only)s 2734(a)s 2896(fragment)s 3815(of)s
-4082(one)s 4480(le)s 3(xical)k 5164(unit,)s 5640(such)s
-6132(as)s 6378(a)s 6541(comment)s 7487(or)s 7742(string)s
-8335(without)s 0 7614(its)m 276(terminating)s 1431(delimiter)s 13(.)k
-2444(It)s 2650(will)s 3077(also)s 3515(complain)s 4463(if)s
-4681(there)s 5215(is)s 5426(a)s 5592(character)s 6527(that)s
-6946(cannot)s 7645(be)s 7928(classi\207ed)s 8876(as)s 0 7326(part)m
-432(of)s 705(an)s 990(identi\207er)s 9(,)k 1952(number)s 9(,)k
-2782(etc.)s 3166(according)s 4164(to)s 4405(the)s 4754(rules)s
-5271(of)s 5544(the)s 5894(language)s 6815(as)s 7067(the)s 3(y)k
-7532(ha)s 4(v)k 3(e)k 8035(been)s 8546(gi)s 6(v)k 3(en)k
-0 7038(to)m 220 fnt35 259 7035(prg2lout)m 240 fnt82 1127 7038(by)m
-1442(the)s 1810(implementer)s 13(.)k 3189(Irrespecti)s 6(v)k 3(e)k
-4382(of)s 4673(the)s 5042(language)s 5982(rules,)s 220 fnt35
-6574 7035(prg2lout)m 240 fnt82 7442 7038(al)m 2(w)k 2(ays)k
-8174(interprets)s 0 6750(spaces,)m 731(tabs,)s 1223(ne)s 6(wlines,)k
-2174(and)s 2578(formfeed)s 3511(characters)s 4529(in)s 4772(the)s
-5120(usual)s 5680(w)s 2(ay)k 15(.)k 480 6376(If)m
-738(an)s 1050(error)s 1601(message)s 2496(is)s 2735(generated)s
-3750(by)s 220 fnt35 4073 6373(prg2lout)m 240 fnt82 4861 6376(,)m
-4996(it)s 5217(will)s 5672(contain)s 6461(a)s 6656(line)s
-7098(and)s 7531(column)s 8335(number)s 0 6088(counting)m 891(from)s
-1415(the)s 1763(start)s 2233(of)s 2504(the)s 2852(program)s
-3722(te)s 3(xt)k 4137(in)s 9(v)k 4(olv)k 3(ed.)k
-5123(Lout)s 5635(will)s 6061(precede)s 6860(this)s 7256(error)s
-7779(message)s 8644(with)s 0 5800(a)m 175(\207le)s 545(name,)s
-1179(line)s 1602(number)s 9(,)k 2441(and)s 2854(column)s
-3638(number)s 4438(pointing)s 5298(to)s 5547(the)s 5904(Lout)s
-6425(symbol)s 7194(\()s 220 fnt35 7267 5797(@CP)m 240 fnt82
-7785 5800(,)m 220 fnt35 7901 5797(@Eiff)m 6(el)k 240 fnt82
-8660 5800(etc.\))m 0 5512(whose)m 668(program)s 1538(te)s 3(xt)k
-1953(caused)s 2662(the)s 3010(error)s 3533(message,)s 4450(lik)s 2(e)k
-4862(this:)s 220 fnt35 480 5012(lout \207le "prg_tabs" \(from "prg" line 96, from "all" line 46\):)m 480 4724( 56,23:)m 11( prg2lout 2,1:)k 11( prog)k 2(r)k 2(am te)k 6(xt ended within comment)k
-240 fnt82 0 4225(This)m 476(is)s 686(an)s 970(actual)s
-1595(message)s 2462(produced)s 3411(when)s 3988(formatting)s 5049(this)s
-5445(chapter)s 13(.)k 6300(The)s 6728(program)s 7599(te)s 3(xt)k
-8014(in)s 8258(question)s 0 3937(has)m 369(only)s 848(one)s
-1249(line,)s 1713(containing)s 2775(an)s 3057(incomplete)s 4174(comment,)s
-5169(so)s 5434(when)s 220 fnt35 6009 3934(prg2lout)m 240 fnt82
-6856 3937(tried)m 7350(to)s 7588(start)s 8057(the)s 8403(second)s
-0 3649(line)m 408(and)s 805(found)s 1416(nothing,)s 2248(it)s
-2434(complained)s 3601(as)s 3845(sho)s 6(wn.)k 4622(In)s
-4872(general,)s 5675(then,)s 6188(you)s 6596(ha)s 4(v)k 3(e)k
-7091(to)s 7323(add)s 220 fnt35 7721 3646(prg2lout)m 240 fnt82
-8509 3649(')m 13(s)k 8712(line)s 0 3361(number)m 791(to)s
-1030(Lout')s 13(s)k 1692(line)s 2106(number)s 9(,)k
-2935(and)s 3339(use)s 3714(some)s 4275(initiati)s 6(v)k 3(e,)k
-5221(to)s 5460(\207nd)s 5891(the)s 6239(precise)s 6971(point)s
-7523(of)s 7794(the)s 8142(problem.)s 240 fnt84 0 2569(1.11.)m
-591(Notes)s 1216(on)s 1525(P)s 4(erl)k 2000(and)s
-2441(P)s 4(od)k 240 fnt82 480 2137(The)m 923(Perl)s
-1378(programming)s 2749(language)s 153 fnt82 3609 2226(1)m 240 fnt82
-3744 2137(is)m 3970(quite)s 4520(a)s 4702(dif\207cult)s 5533(one)s
-5951(for)s 6305(the)s 220 fnt35 6668 2134(prg2lout)m 240 fnt82
-7532 2137(program)m 8418(to)s 8673(deal)s 0 1849(with,)m 526(and)s
-924(our)s 1297(boast)s 1855(that)s 2267(programs)s 3215(can)s
-3598(be)s 3873(included)s 4749(with)s 5225(`absolutely)s 6335(no)s
-6621(modi\207cations')s 8029(is)s 8233(not)s 8592(quite)s 0 1561(true)m
-427(for)s 765(Perl.)s 480 1187(Here)m 992(is)s 1194(the)s
-1534(complete)s 2458(list)s 2801(of)s 3064(problem)s 3913(areas.)s
-4559(In)s 4807(most)s 5324(cases)s 5871(their)s 6360(ef)s 6(fect)k
-6948(is)s 7150(to)s 7381(get)s 7725(the)s 8065(formatting)s
-0 899(wrong)m 675(o)s 3(v)k 3(er)k 1164(a)s
-1341(short)s 1889(re)s 3(gion,)k 2615(which)s 3267(is)s
-3488(not)s 3864(perhaps)s 4670(so)s 4946(disastrous;)s 6025(and)s
-6439(it)s 6642(should)s 7349(be)s 7642(easy)s 8131(to)s
-8381(modify)s 1134 0 0 0 240 288 60 0 307 LoutGr2
-0 0 moveto xsize 0 lineto stroke
-grestore
-
-grestore
-122 fnt82 0 112(1)m 192 fnt82 58 42(My)m
-368(thanks)s 909(to)s 1101(Mark)s 1563(Summer\207eld)s 2598(for)s
-2868(help)s 3241(with)s 3627(Perl)s 3978(and)s 4302(Pod.)s
-
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 13 15
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Italic
-%%+ font Times-Bold
-%%+ font Courier
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Courier
-/Courierfnt29 vec2 /Courier LoutRecode
-/fnt29 { /Courierfnt29 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-240 fnt83 0 13843(1.11.)m 574(Notes)s 1174(on)s 1468(P)s 19(erl)k
-1920(and)s 2346(P)s 19(od)k 240 fnt84 8833 13840(13)m
-240 fnt82 0 13249(your)m 507(Perl)s 955(program)s 1834(without)s
-2634(changing)s 3574(its)s 3859(meaning,)s 4799(to)s 5046(w)s 2(ork)k
-5606(around)s 6338(these)s 6894(problems.)s 7957(After)s 8529(all,)s
-8883(in)s 0 12961(Perl)m 439(there)s 972(is)s 1182(al)s 2(w)k 2(ays)k
-1893(more)s 2440(than)s 2909(one)s 3311(w)s 2(ay)k
-3762(to)s 4001(do)s 4294(it.)s 0 12456(1.)m 240 fnt83
-480 12458(Her)m 8(e-documents)k 240 fnt82 2108 12456(such)m 2604(as)s
-960 12004(<<"EOF")m 960 11716(These lines will be read as though)m 960 11428(enclosed in double quotes)m 960 11140(EOF)m 480 10686(will)m
-893(be)s 1162(handled)s 1964(correctly)s 2853(only)s 3320(if)s
-3523(the)s 3858(string)s 4442(appearing)s 5424(immediately)s 6659(after)s
-7142(the)s 220 fnt29 7476 10694(<<)m 240 fnt82 7787 10686(operator)m
-8629(\(that)s 480 10398(is,)m 748(the)s 1098(string)s 1697(used)s
-2197(to)s 2438(terminate)s 3397(the)s 3747(here-document\))s 5312(is)s
-5524(one)s 5928(of)s 220 fnt29 6201 10406(EOF)m 240 fnt82
-6597 10398(,)m 220 fnt29 6707 10406(EOT)m 240 fnt82 7103 10398(,)m
-220 fnt29 7212 10406(END)m 240 fnt82 7608 10398(,)m 7717(and)s
-8123(the)s 8474(empty)s 480 10110(string,)m 1116(all)s 1393(optionally)s
-2401(enclosed)s 3281(in)s 3508(quotes)s 4168(of)s 4424(an)s 3(y)k
-4805(of)s 5060(the)s 5392(three)s 5910(kinds.)s 6577(If)s
-6791(this)s 7172(condition)s 8117(is)s 8311(not)s 8661(met,)s
-480 9822(then)m 942(the)s 1283(here-document)s 2770(will)s 3189(be)s
-3464(treated)s 4163(as)s 4406(Perl)s 4838(program)s 5701(te)s 3(xt.)k
-6213(If)s 6435(the)s 6776(condition)s 7730(is)s 7933(met,)s
-8391(there)s 8916(is)s 480 9534(still)m 885(another)s 1655(problem:)s
-2610(the)s 220 fnt29 2951 9542(<<)m 240 fnt82 3268 9534(symbol)m
-4020(and)s 4417(e)s 6(v)k 3(erything)k 5476(after)s
-5965(it)s 6150(on)s 6439(the)s 6780(same)s 7320(line)s
-7726(will)s 8145(be)s 8419(treated)s 480 9246(\(incorrectly\))m 1715(as)s
-1958(a)s 2117(string.)s 2819(The)s 3240(w)s 2(orst)k
-3822(consequence)s 5095(of)s 5359(this)s 5748(is)s 5952(that)s
-6363(stack)s 2(ed)k 7129(here-documents)s 8700(will)s 480 8958(not)m
-846(be)s 1128(printed)s 1863(properly)s 15(.)k 0 8455(2.)m
-480(When)s 220 fnt35 1118 8452(prg2lout)m 240 fnt82 1976 8455(is)m
-2196(scanning)s 3110(the)s 3468(program)s 4347(te)s 3(xt)k
-4772(looking)s 5567(for)s 5915(the)s 6273(be)s 3(ginning)k
-7290(of)s 7571(a)s 7747(le)s 3(xical)k 8445(unit,)s
-8934(it)s 480 8167(may)m 939(come)s 1505(upon)s 2034(a)s
-220 fnt35 2192 8164(/)m 240 fnt82 2309 8167(character)m 9(,)k
-3273(and)s 3669(this)s 240 fnt83 4057 8169(initial)m 220 fnt35
-4680 8164(/)m 240 fnt82 4796 8167(\(not)m 5233(subsequent)s 6349(ones)s
-6832(in)s 7067(the)s 7407(same)s 7946(le)s 3(xical)k
-8626(unit\))s 480 7879(it)m 691(\207nds)s 1227(dif\207cult)s 2062(to)s
-2320(interpret,)s 3254(since)s 3820(it)s 4031(may)s 4517(be)s
-4818(the)s 5185(be)s 3(ginning)k 6212(of)s 6502(a)s
-6687(re)s 3(gular)k 7439(e)s 3(xpression,)k 8585(to)s
-8844(be)s 480 7591(formatted)m 1460(lik)s 2(e)k 1865(a)s
-2024(string,)s 2668(or)s 2920(it)s 3105(may)s 3564(be)s
-3839(a)s 3998(complete)s 4923(le)s 3(xical)k 5604(unit)s
-6029(denoting)s 6913(di)s 6(vision.)k 7835(The)s 8256(program)s
-480 7303(chooses)m 1308(the)s 1675(re)s 3(gular)k 2427(e)s 3(xpression)k
-3524(\(or)s 3881(equi)s 6(v)k 6(alently)k 15(,)k
-5162(string\))s 5853(interpretation)s 7216(if)s 7452(the)s 220 fnt35
-7819 7300(/)m 240 fnt82 7962 7303(character)m 8916(is)s 480 7015(immediately)m
-1714(preceded)s 2620(by)s 220 fnt35 2900 7012(q)m 240 fnt82
-3009 7015(,)m 220 fnt35 3101 7012(qq)m 240 fnt82 3332 7015(,)m
-220 fnt35 3424 7012(qx)m 240 fnt82 3654 7015(,)m 220 fnt35
-3747 7012(qw)m 240 fnt82 4025 7015(,)m 220 fnt35 4117 7012(qr)m
-240 fnt82 4312 7015(,)m 220 fnt35 4405 7012(m)m 240 fnt82
-4574 7015(,)m 220 fnt35 4666 7012(s)m 240 fnt82 4769 7015(,)m
-220 fnt35 4861 7012(y)m 240 fnt82 4969 7015(,)m 5062(or)s
-220 fnt35 5306 7012(tr)m 240 fnt82 5440 7015(.)m 5590(It)s
-5780(also)s 6203(chooses)s 6998(the)s 7331(re)s 3(gular)k
-8049(e)s 3(xpression)k 480 6727(interpretation)m 1818(if)s 2029(the)s
-220 fnt35 2371 6724(/)m 240 fnt82 2489 6727(character)m 3417(appears)s
-4192(at)s 4418(the)s 4760(start)s 5225(of)s 5490(a)s
-5650(line,)s 6109(or)s 6362(if)s 6573(it)s 6759(is)s
-6963(immediately)s 8205(preceded)s 480 6439(by)m 787(zero,)s 1319(one,)s
-1786(or)s 2059(tw)s 2(o)k 2482(space)s 3083(or)s
-3356(tab)s 3715(characters,)s 4802(which)s 5458(are)s 5819(themselv)s 3(es)k
-6943(immediately)s 8205(preceded)s 480 6151(by)m 784(a)s 961(complete)s
-1903(le)s 3(xical)k 2602(unit)s 3044(which)s 3697(is)s
-3918(one)s 4330(of)s 220 fnt35 4612 6148(\()m 240 fnt82
-4678 6151(,)m 220 fnt35 4795 6148(=)m 240 fnt82 4915 6151(,)m
-220 fnt35 5033 6148(=~)m 240 fnt82 5276 6151(,)m 220 fnt35
-5393 6148(!~)m 240 fnt82 5569 6151(,)m 220 fnt35 5687 6148(split)m
-240 fnt82 6072 6151(,)m 220 fnt35 6190 6148(if)m 240 fnt82
-6296 6151(,)m 220 fnt35 6413 6148(and)m 240 fnt82 6767 6151(,)m
-220 fnt35 6885 6148(&&)m 240 fnt82 7173 6151(,)m 220 fnt35
-7290 6148(or)m 240 fnt82 7485 6151(,)m 220 fnt35 7603 6148(||)m
-240 fnt82 7697 6151(,)m 220 fnt35 7814 6148(not)m 240 fnt82
-8115 6151(,)m 220 fnt35 8233 6148(!)m 240 fnt82 8274 6151(,)m
-220 fnt35 8392 6148(unless)m 240 fnt82 9019 6151(,)m 220 fnt35
-480 5860(f)m 6(or)k 240 fnt82 730 5863(,)m 220 fnt35
-849 5860(f)m 6(oreach)k 240 fnt82 1561 5863(,)m 1681(and)s
-220 fnt35 2098 5860(while)m 240 fnt82 2588 5863(.)m 2765(Otherwise)s
-3816(it)s 4021(chooses)s 4843(the)s 5204(di)s 6(vision)k
-6039(interpretation.)s 7502(In)s 7771(the)s 8132(rare)s 8571(cases)s
-480 5575(where)m 1120(this)s 1517(rule)s 1945(f)s 2(ails,)k
-2460(you)s 2876(can)s 3266(force)s 220 fnt35 3812 5572(prg2lout)m
-240 fnt82 4661 5575(to)m 4901(choose)s 5622(the)s 5971(re)s 3(gular)k
-6705(e)s 3(xpression)k 7783(interpretation)s 480 5287(by)m 777(placing)s
-1537(an)s 220 fnt35 1823 5284(m)m 240 fnt82 2055 5287(in)m
-2301(front)s 2829(of)s 3103(the)s 3454(initial)s 220 fnt35
-4068 5284(/)m 240 fnt82 4195 5287(\(this)m 4673(does)s 5167(not)s
-5536(change)s 6273(the)s 6624(meaning)s 7504(of)s 7778(the)s
-8130(program\),)s 480 4999(and)m 910(you)s 1352(can)s 1768(force)s
-2341(the)s 2716(di)s 6(vision)k 3565(interpretation)s 4935(by)s
-5256(placing)s 6040(at)s 6299(least)s 6823(three)s 7383(spaces)s
-8085(before)s 8778(the)s 220 fnt35 480 4708(/)m 240 fnt82
-604 4711(character)m 13(.)k 0 4253(3.)m 480(Substitution)s 1701(e)s 3(xpressions,)k
-2930(e)s 6(v)k 3(en)k 3439(such)s 3943(le)s 3(xically)k
-4825(comple)s 3(x)k 5710(ones)s 6208(as)s 220 fnt29
-6467 4261(s{{@D}}[{@I}])m 240 fnt82 8183 4253(,)m 8299(are)s 8655(han)s
-8998(-)s 480 3965(dled)m 942(correctly)s 15(.)k 1931(Ho)s 6(we)k 6(v)k 3(er)k 9(,)k
-220 fnt35 2883 3962(prg2lout)m 240 fnt82 3723 3965(does)m 4205(not)s
-4563(understand)s 5663(that)s 6073(the)s 6413(letters)s 220 fnt35
-7038 3962(gimosx)m 240 fnt82 7783 3965(in)m 8018(an)s 3(y)k
-8406(combi)s 8998(-)s 480 3677(nation)m 1135(appearing)s 2131(immediately)s
-3378(after)s 3874(a)s 4040(substitution)s 5212(e)s 3(xpression)k
-6289(are)s 6636(part)s 7066(of)s 7337(it;)s 7581(it)s
-7772(treats)s 8339(them)s 8876(as)s 480 3389(the)m 825(start)s
-1291(of)s 1558(a)s 1721(ne)s 6(w)k 2164(le)s 3(xical)k
-2848(unit.)s 3380(This)s 3853(ne)s 6(w)k 4296(unit)s
-4724(will)s 5147(usually)s 5888(be)s 6166(tak)s 2(en)k
-6735(to)s 6971(be)s 7249(an)s 7528(identi\207er)s 9(,)k
-8484(which)s 480 3101(is)m 690(harmless)s 1590(enough,)s 2403(b)s 4(ut)k
-2765(occasionally)s 4014(it)s 4206(is)s 4416(tak)s 2(en)k
-4989(to)s 5228(be)s 5510(something)s 6560(else.)s 7095(F)s 3(or)k
-7484(e)s 3(xample,)k 8398(in)s 220 fnt35 960 2600(s///s;)m
-240 fnt82 480 2117(the)m 838(trailing)s 220 fnt35 1591 2114(s)m
-240 fnt82 1765 2117(will)m 2201(be)s 2494(mistak)s 2(en)k
-3423(for)s 3771(the)s 4130(start)s 4611(of)s 4892(a)s
-5069(ne)s 6(w)k 5527(substitution)s 6710(e)s 3(xpression,)k
-7848(with)s 220 fnt35 8341 2114(;)m 240 fnt82 8454 2117(delim)m
-8998(-)s 480 1829(iting)m 976(the)s 1329(\207rst)s 1766(pattern.)s
-2598(This)s 3080(particular)s 4059(e)s 3(xample)k 4927(can)s
-5322(be)s 5609(\207x)s 3(ed)k 6149(by)s 6448(inserting)s
-7342(a)s 7514(space)s 8106(before)s 8778(the)s 480 1541(semicolon.)m
-0 1088(Further)m 763(w)s 2(ork)k 1314(may)s 1780(eliminate)s
-2724(some)s 3285(of)s 3556(these)s 4103(problems.)s 480 714(The)m
-953(Pod)s 1429(language)s 2394(is)s 2650(used)s 3192(by)s
-3531(Perl)s 4015(programmers)s 5386(for)s 5769(creating)s 6636(documentation,)s
-8210(and)s 8660(may)s 0 426(be)m 313(found)s 961(within)s
-1660(Perl)s 2131(programs)s 3116(or)s 3406(standing)s 4301(alone.)s
-5015(Lout)s 5558(supports)s 6451(both)s 6965(arrangements)s 8335(without)s
-0 138(an)m 3(y)k 418(special)s 1157(action)s 1819(by)s
-2134(the)s 2503(user)s 13(.)k 3073(At)s 3393(the)s
-3762(be)s 3(ginning)k 4792(of)s 5084(the)s 220 fnt35
-5453 135(per)m -3(l)k 240 fnt82 5888 138(setup)m 6467(line,)s
-6953(the)s 7322(follo)s 6(wing)k 8320(line)s 8756(has)s
-
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 14 16
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-240 fnt84 0 13840(14)m 240 fnt83 5981 13843(Chapter)m 6831(1.)s
-7105(Computer)s 8128(Pr)s 10(o)k 2(gr)k 3(ams)k
-240 fnt82 0 13205(been)m 509(placed:)s 220 fnt35 480 12704(@SysInclude { pod })m
-240 fnt82 0 12206(Thus,)m 576(asking)s 1244(for)s 1571(Perl)s
-2000(al)s 2(w)k 2(ays)k 2700(gi)s 6(v)k 3(es)k
-3237(you)s 3641(Pod)s 4062(as)s 4301(well.)s 4866(If)s
-5085(you)s 5490(are)s 5826(using)s 6388(your)s 6876(o)s 6(wn)k
-7330(setup)s 7877(\207les)s 8316(for)s 8643(both)s 0 11918(languages,)m
-1068(it)s 1265(is)s 1480(probably)s 2390(better)s 2998(to)s
-3242(break)s 3839(this)s 4240(connection)s 5352(by)s 5651(deleting)s
-6479(this)s 6880(line)s 7299(from)s 7828(your)s 8332(cop)s 2(y)k
-8855(of)s 0 11630(the)m 220 fnt35 348 11627(per)m -3(l)k
-240 fnt82 762 11630(setup)m 1320(\207le)s 1681(and)s 2085(placing)s
-220 fnt35 480 11129(@Include { m)m 3(ypod })k 480 10841(@Include { m)m 3(yper)k -3(l })k
-240 fnt82 0 10343(at)m 232(the)s 580(start)s 1050(of)s
-1321(your)s 1820(document)s 2824(in)s 3067(the)s 3415(usual)s
-3975(w)s 2(ay)k 15(.)k 480 9969(Because)m 1341(Pod)s
-1781(is)s 2000(a)s 2174(documentation)s 3662(language)s 4591(rather)s
-5215(than)s 5693(a)s 5868(programming)s 7231(language,)s 8211(the)s
-8568(setup)s 0 9681(\207le)m 363(options)s 1121(listed)s 1699(in)s
-1944(Section)s 2720(1.4)s 3077(do)s 3372(not)s 3740(really)s
-4340(apply)s 15(.)k 5023(So)s 5331(for)s 5672(Pod)s
-6105(only)s 6587(these)s 7137(ha)s 4(v)k 3(e)k
-7640(been)s 8152(discarded)s 0 9393(and)m 435(replaced)s 1333(by)s
-1658(a)s 1855(completely)s 3002(dif)s 6(ferent)k 3908(set)s
-4264(of)s 4566(options,)s 5409(controlling)s 6542(such)s 7069(things)s
-7736(as)s 8017(the)s 8396(size)s 8855(of)s 0 9105(headings)m
-902(and)s 1306(the)s 1654(g)s 1(aps)k 2143(between)s
-2997(list)s 3348(items,)s 3972(which)s 4614(you)s 5029(can)s
-5418(\207nd)s 5849(documented)s 7077(in)s 7320(the)s 220 fnt35
-7668 9102(pod)m 240 fnt82 8082 9105(setup)m 8640(\207le.)s 480 8731(If)m
-710(you)s 1126(ask)s 1506(for)s 1845(line)s 2259(numbers)s
-3135(on)s 3432(a)s 3599(Pod)s 4030(program,)s 4948(or)s
-5207(on)s 5505(a)s 5671(Perl)s 6111(program)s 6981(that)s
-7400(contains)s 8248(Pod,)s 8729(an)s 3(y)k 0 8443(te)m 3(xt)k
-432(blocks)s 1126(in)s 1387(the)s 1753(Pod)s 2202(that)s
-2638(w)s 2(ould)k 3311(otherwise)s 4313(ha)s 4(v)k 3(e)k
-4832(appeared)s 5771(as)s 6039(\207lled)s 6606(paragraphs)s 7724(will)s
-8168(come)s 8760(out)s 0 8155(with)m 484(the)s 834(line)s
-1250(breaks)s 1927(in)s 2172(the)s 2522(source)s 3204(respected,)s
-4215(and)s 4621(lines)s 5125(numbered)s 6142(accordingly)s 15(.)k
-7422(Because)s 220 fnt35 8278 8152(prg2lout)m 240 fnt82 0 7867(attaches)m
-814(line)s 1222(numbers)s 2090(before)s 2750(Lout)s 3255(breaks)s
-3924(paragraphs,)s 5074(it)s 5259(is)s 5463(not)s 5822(possible)s
-6656(to)s 6889(numnber)s 7793(the)s 8135(lines)s 8630(after)s
-0 7579(paragraph)m 1013(breaking.)s 480 7205(Owing)m 1185(to)s 1423(problems)s
-2363(behind)s 3072(the)s 3419(scenes,)s 4150(if)s 4366(a)s
-4531(Pod)s 4961(inclusion)s 5894(in)s 6137(a)s 6302(Perl)s
-6740(program)s 7609(has)s 7978(unbalanced)s 0 6917(braces,)m 220 fnt35
-714 6914(prg2lout)m 240 fnt82 1559 6917(is)m 1766(forced)s 2431(to)s
-2667(insert)s 3254(braces)s 3912(into)s 4334(the)s 4678(Pod)s
-5106(te)s 3(xt)k 5518(to)s 5754(mak)s 2(e)k
-6323(them)s 6858(balance.)s 7749(It)s 7951(will)s 8374(insert)s
-8960(a)s 0 6629(left)m 377(brace)s 950(directly)s 1734(before)s
-2400(an)s 3(y)k 2798(unbalanced)s 3946(right)s 4458(brace,)s
-5082(and)s 5487(it)s 5679(will)s 6106(insert)s 6696(right)s
-7208(braces)s 7869(at)s 8102(the)s 8450(end)s 8855(of)s
-0 6341(the)m 347(Pod)s 777(inclusion)s 1710(to)s 1948(balance)s
-2733(an)s 3(y)k 3129(preceding)s 4124(unbalanced)s 5271(left)s
-5646(braces.)s 6419(It)s 6623(will)s 7048(tell)s 7406(you)s
-7820(if)s 8036(it)s 8227(has)s 8596(to)s 8833(do)s
-0 6053(this.)m 509(This)s 985(problem)s 1842(does)s 2332(not)s
-2698(af\210ict)s 3314(Pod)s 3745(when)s 4321(used)s 4818(as)s
-5068(a)s 5234(separate)s 6072(language.)s
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 15 17
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Times-Italic
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-%%IncludeResource: font Times-Italic
-/Times-Italicfnt83 vec2 /Times-Italic LoutRecode
-/fnt83 { /Times-Italicfnt83 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-1 LoutMargSet
-grestore
-480 fnt84 0 12955(Refer)m 8(ences)k 240 fnt82 0 12358([1])m
-480(Bertrand)s 1374(Me)s 3(yer)k 13(.)k 240 fnt83
-2146 12360(Eif)m 4(fel:)k 2840(The)s 3252(Langua)s 2(g)k 2(e)k
-240 fnt82 4200 12358(.)m 4364(Prentice-Hall)s 5631(,)s 5738(1992)s
-6212(.)s 192 fnt84 4439 1(15)m
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Page: 16 18
-%%BeginPageSetup
-%%PageResources: font Times-Roman
-%%+ font Times-Bold
-%%+ font Helvetica
-/pgsave save def
-%%IncludeResource: font Times-Bold
-/Times-Boldfnt84 vec2 /Times-Bold LoutRecode
-/fnt84 { /Times-Boldfnt84 LoutFont } def
-0.0500 dup scale 10 setlinewidth
-%%EndPageSetup
-gsave
-0 0 translate
-240 fnt82 0.0 0.0 0.0 setrgbcolor 11900 16840 0 16840 240 288 60 LoutGraphic
-gsave
-LoutPageSet
-grestore
-gsave
-0 16840 translate
-0.0000 rotate
-9066 14006 0 14006 240 288 60 1417 -15423 LoutGr2
-0 LoutMargSet
-grestore
-480 fnt84 0 12962(Index)m 240 fnt82 0 12367(Blue)m 508(program)s
-1378(printing)s 2135(,)s 2242(1)s 0 12079(C)m 212(and)s
-616(C++)s 1099(program)s 1969(printing)s 2726(,)s 2833(1)s
-220 fnt35 0 11788(@CPSetup)m 240 fnt82 1099 11791(,)m 1206(6)s
-0 11503(Eif)m 6(fel)k 591(program)s 1461(printing)s 2218(,)s
-2325(1)s 0 11215(Perl)m 439(program)s 1309(printing)s 2066(,)s
-2173(1)s 0 10927(Pod)m 431(\(for)s 848(Perl\))s 1360(printing)s
-2117(,)s 2224(1)s 220 fnt35 0 10636(prg2lout)m 240 fnt82
-848 10639(\207lter)m 1358(program)s 2175(,)s 2282(1)s 0 10351(tab)m
-345(characters)s 1363(in)s 1606(programs)s 2507(,)s 2614(8)s
-192 fnt84 4439 2(16)m
-grestore
-
-grestore
-
-grestore
-
-pgsave restore
-showpage
-
-%%Trailer
-%%DocumentNeededResources: font Courier
-%%+ font Helvetica
-%%+ font Symbol
-%%+ font Times-Roman
-%%+ font Times-Italic
-%%+ font Times-Bold
-%%+ font Times-Italic
-%%DocumentSuppliedResources: procset LoutStartUp
-%%+ procset LoutTabPrependGraphic
-%%+ procset LoutTblPrependGraphic
-%%+ procset LoutFigPrependGraphic
-%%+ procset LoutGraphPrependGraphic
-%%+ procset LoutFigPrependGraphic
-%%+ procset LoutBasicSetup
-%%+ encoding vec2
-%%Pages: 18
-%%EOF
generated by cgit (git 2.34.1) at 2024-11-10 08:14:47 +0000