%!PS-Adobe-3.0 EPSF-3.0 %%Title: /home/rmorton/TRSOLINSTALL/805-8056/figures/a5_2basiccmds.fig221.epsi %%Creator: IslandDraw for rmorton %%CreationDate: Tue Oct 6 14:22:07 1998 %%Pages: 1 %%BoundingBox: 321 626 453 659 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%EndComments %%BeginPreview: 167 42 1 42 % 00000000000000000000000000000007fffffffffc % 00000000000000000000000000000007fffffffffd % 0000000000000000000000000000000401f8000000 % 000000000000000000000000000000040e06000001 % 000000000000000000000000000000043001804000 % 1f000100001090000010000000000004400041b000 % 110000000038900001000000000000040001ce0e30 % 109c4539c028978e73979e000000000400013041d0 % 10a2696620289cd9891cd1000000000491013e0f90 % 10be2943e04c985039185100ffffff0508f1200090 % 10a02942007c9850c9185100ffffff050509200090 % 11223146204498d18918d100000000051001200091 % 1e1c1139c082978efd979100000000050a65200090 % 000000000000000000000000000000050295200090 % 000000000000000000000000000000057fff200090 % 000000000000000000000000000000055001200090 % 000000000000000000000000000000055801200090 % 000000000000000000000000000000054001200090 % 00000000000000000000000000000004c3ff200090 % 000000000000000000000000000000044fff000110 % 000000000000000000000000000000044fff800120 % 000000000000000000000000000000044f7fd00021 % 000000000000000000000000000000044e3fc80240 % 000000000000000000000000000000044f7fe40480 % 000000000000000000000000000000044ffbe20901 % 0000000000000000000000000000000443f1f84200 % 000000000000000000000000000000047ffffe0f00 % 000000000000000000000000000000052b52a1bb00 % 00000000000000000000000000000006d4ad63d500 % 000000000000000000000000000000042bffdd2a00 % 0000000000000000000000000000000454ad6ad601 % 0000000000000000000000000000000514ad4af020 % 000000000000000000000000000000048b52b54001 % 0000000000000000000000000000000604ad4b8488 % 00000000000000000000000000000004c3ffff1020 % 0000000000000000000000000000000521fffc2b50 % 00000000000000000000000000000006d1ed4ad4a8 % 00000000000000000000000000000007fc7ffffff8 % 00000000000000000000000000000007fe3ffffff8 % 00000000000000000000000000000007febffffff8 % 00000000000000000000000000000007ff3ffffff8 % 000000000000000000000000000000040000000000 %%EndPreview save /d_sv_obj exch def userdict /IslandDrawDict 300 dict dup begin put /bdef {bind def} bind def /E {exch} bdef /FF {findfont} bdef /MF {makefont} bdef /RO {rotate} bdef /SC {scale} bdef /SF {setfont} bdef /SG {setgray} bdef /TR {translate} bdef /bp {lj lw rgb} bdef /bpbw {lj lw setgray} bdef /c {curveto} bdef /cl {closepath} bdef /fi {eofill} bdef /g {setgray} bdef /gr {grestore} bdef /gs {gsave} bdef /l {lineto} bdef /lj {setlinejoin} bdef /lw {setlinewidth} bdef /m {moveto} bdef /n {newpath} bdef /nx {/x E def} bdef /r {rmoveto} bdef /rl {rlineto} bdef /rgb {setrgbcolor} bdef /s {show} bdef /sd {setdash} bdef /sp {x 0 rmoveto} bdef /ss {currentpoint pop E m} bdef /st {stroke} bdef %% pattern stuff /BPSIDE 32 def %% pixels per pattern side /PATFREQ 3.0 def %% pattern pixels per mm /dp_mat [PATFREQ 0 0 PATFREQ 0 0] def /dp_pw BPSIDE def %% pattern pixel width /dp_ph BPSIDE def %% pattern pixel height /dp_w dp_pw PATFREQ div def %% pattern mm width /dp_h dp_ph PATFREQ div def %% pattern mm height /savemat matrix def /topmat matrix def /patmat matrix def %% catch nocurrentpoint error for: pathbbox /ncpoint errordict /nocurrentpoint get def errordict begin /nocurrentpoint { dup /pathbbox load eq {pop 0 0 1 1} {ncpoint} ifelse } bdef end /ar { %% sa ea sx sy rot tx ty matrix currentmatrix 8 1 roll TR RO SC n 0 0 1 5 3 roll arc setmatrix } bdef /arn { %% sa ea sx sy rot tx ty TR RO SC matrix currentmatrix 8 1 roll n 0 0 1 5 3 roll arcn setmatrix } bdef /el { %% sx sy rot tx ty matrix currentmatrix 6 1 roll TR RO SC n 0 0 1 0 360 arc setmatrix cl } bdef /image_raster { %% sw sh sd dw dh xs ys TR SC /sd E def /sh E def /sw E def /imagebuf sw sd mul 7 add 8 idiv string def sw sh sd [sw 0 0 sh 0 0] { currentfile imagebuf readhexstring pop} image } bdef /imagemask_raster { TR SC /sh E def /sw E def /imagebuf sw 7 add 8 idiv string def sw sh false [sw 0 0 sh 0 0] {currentfile imagebuf readhexstring pop} imagemask } bdef /dither_color_raster { % bool sw sh sd dw dh xs ys TR SC /sd E def /sh E def /sw E def sd 8 eq and { /imagebuf 3 string def /grayval 1 string def sw sh sd [sw 0 0 sh 0 0] { currentfile imagebuf readhexstring pop pop imagebuf 0 get 0.299 mul imagebuf 1 get 0.587 mul add imagebuf 2 get 0.114 mul add cvi grayval exch 0 exch put grayval } image } { /imagebuf sw 3 mul sd mul 7 add 8 idiv string def sh { currentfile imagebuf readhexstring pop pop } repeat } ifelse } bdef /image_color_raster { % bool sw sh sd dw dh xs ys /colorimage where not { dither_color_raster } { pop TR SC /sd E def /sh E def /sw E def pop /imagebuf sw 3 mul sd mul 7 add 8 idiv string def sw sh sd [sw 0 0 sh 0 0] { currentfile imagebuf readhexstring pop} false 3 colorimage } ifelse } bdef /patpath { /inv E def topmat setmatrix pathbbox %% get lo - hi indecies /hy E dp_h div floor cvi def /hx E dp_w div floor cvi def /ly E dp_h div floor cvi def /lx E dp_w div floor cvi def lx 1 hx { dp_w mul ly 1 hy { dp_h mul E dup 3 1 roll E patmat currentmatrix pop TR dp_pw dp_ph inv dp_mat dp_proc imagemask patmat setmatrix } for pop } for } bdef % setpattern brush of patterns instead of gray /setpattern { /blue E def /green E def /red E def /freq E def /bwidth E def /bpside E def /bstring E def /onbits 0 def /offbits 0 def freq 0 {/y E def /x E def /xindex x 1 add 2 div bpside mul cvi def /yindex y 1 add 2 div bpside mul cvi def bstring yindex bwidth mul xindex 8 idiv add get not 1 7 xindex 8 mod sub bitshift and 0 ne {/onbits onbits 1 add def 1} {/offbits offbits 1 add def 0} ifelse } setscreen {} settransfer systemdict /setcmykcolor known { /fact 1 onbits offbits onbits add div sub def 1 red sub fact mul 1 green sub fact mul 1 blue sub fact mul 0 setcmykcolor } { offbits offbits onbits add div setgray} ifelse } bdef /dmatrix matrix def /dpi 72 0 dmatrix defaultmatrix dtransform dup mul E dup mul add sqrt def /B {gs bp st gr} bdef %% brush: gr lw lj /Bbw {gs bpbw st gr} bdef %% brush: gr lw lj /F {gs rgb eofill gr} bdef %% fill: gr /Fbw {gs setgray eofill gr} bdef %% fill: gr /PB {gs lj lw setpattern st gr} bdef /PF {gs eoclip patpath gr} bdef /BB {gs rgb lj lw strokepath clip patpath gr} bdef /xdef {exch def} bdef /clip_region { /ht xdef /wd xdef /bm xdef /lm xdef newpath lm bm moveto 0 ht rlineto wd 0 rlineto 0 ht neg rlineto closepath clip } bdef %! Island text prolog Version 3.1 %% %%BeginProlog /reencode_small_dict 12 dict def /ReencodeSmall { reencode_small_dict begin /new_codes_and_names exch def /new_font_name exch def /base_font_name exch def /base_font_dict base_font_name findfont def /newfont base_font_dict maxlength dict def base_font_dict { exch dup /FID ne { dup /Encoding eq { exch dup length array copy newfont 3 1 roll put } { exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall newfont /FontName new_font_name put new_codes_and_names aload pop new_codes_and_names length 2 idiv { newfont /Encoding get 3 1 roll put } repeat new_font_name newfont definefont pop end %reencode_small_dict } def /extended_Zapf [ 8#223 /a89 8#224 /a90 8#225 /a93 8#226 /a94 8#227 /a91 8#230 /a92 8#231 /a205 8#232 /a85 8#233 /a206 8#234 /a86 8#235 /a87 8#236 /a88 8#237 /a95 8#240 /a96 ] def /extended_Standard [ 29 /thorn 30 /yacute 31 /divide 128 /Acircumflex 129 /Adieresis 130 /Agrave 131 /Aring 132 /Atilde 133 /Ccedilla 134 /Eacute 135 /Ecircumflex 136 /Edieresis 137 /Egrave 138 /Iacute 139 /Icircumflex 140 /Idieresis 141 /Igrave 142 /Ntilde 143 /Oacute 144 /Ocircumflex 145 /Odieresis 146 /Ograve 147 /Otilde 148 /Scaron 149 /Uacute 150 /Ucircumflex 151 /Udieresis 152 /Ugrave 153 /Ydieresis 154 /Zcaron 155 /aacute 156 /acircumflex 157 /adieresis 158 /agrave 159 /aring 160 /atilde 161 /exclamdown 162 /cent 163 /sterling 164 /fraction 165 /yen 166 /florin 167 /section 168 /currency 169 /quotesingle 170 /quotedblleft 171 /guillemotleft 172 /guilsinglleft 173 /guilsinglright 174 /fi 175 /fl 176 /plusminus 177 /endash 178 /dagger 179 /daggerdbl 180 /periodcentered 181 /twosuperior 182 /paragraph 183 /bullet 184 /quotesinglbase 185 /quotedblbase 186 /quotedblright 187 /guillemotright 188 /ellipsis 189 /perthousand 190 /threesuperior 191 /questiondown 192 /mu 193 /grave 194 /acute 195 /circumflex 196 /tilde 197 /macron 198 /breve 199 /dotaccent 200 /dieresis 201 /onesuperior 202 /ring 203 /cedilla 204 /onequarter 205 /hungarumlaut 206 /ogonek 207 /caron 208 /emdash 209 /ccedilla 210 /copyright 211 /eacute 212 /ecircumflex 213 /edieresis 214 /egrave 215 /iacute 216 /icircumflex 217 /idieresis 218 /igrave 219 /logicalnot 220 /minus 221 /ntilde 222 /oacute 223 /ocircumflex 224 /odieresis 225 /AE 226 /onehalf 227 /ordfeminine 228 /ograve 229 /otilde 230 /registered 231 /scaron 232 /Lslash 233 /Oslash 234 /OE 235 /ordmasculine 236 /trademark 237 /uacute 238 /ucircumflex 239 /udieresis 240 /ugrave 241 /ae 242 /ydieresis 243 /zcaron 244 /Aacute 245 /dotlessi 246 /threequarters 247 /Eth 248 /lslash 249 /oslash 250 /oe 251 /germandbls 252 /multiply 253 /Yacute 254 /Thorn 255 /eth ] def /extended_Symbol [ ] def /extend_font { % stack: fontname newfontname exch dup (ZapfDingbats) eq { cvn exch cvn extended_Zapf ReencodeSmall } { dup (Symbol) eq { cvn exch cvn extended_Symbol ReencodeSmall } { cvn exch cvn extended_Standard ReencodeSmall } ifelse } ifelse } bind def /extend_font_name { % stack: font_name_string dup length 1 add string /extended_font_name exch def extended_font_name 0 (_) putinterval extended_font_name 1 3 -1 roll putinterval extended_font_name } bind def /gf { /f exch def f cvn where { f exch begin cvn load exec setfont end } { f 0 f length 8 sub getinterval dup /localfont exch extend_font_name def localfont extend_font localfont findfont /xsz f f length 4 sub 4 getinterval cvi def /ysz f f length 8 sub 4 getinterval cvi def [ xsz 0 0 ysz neg 0 0 ] makefont dup f cvn exch def setfont } ifelse } bind def /gfns { /f exch def f cvn where { f exch begin cvn load exec setfont end } { f 0 f length 8 sub getinterval cvn findfont /xsz f f length 4 sub 4 getinterval cvi def /ysz f f length 8 sub 4 getinterval cvi def [ xsz 0 0 ysz neg 0 0 ] makefont dup f cvn exch def setfont } ifelse } bind def /ul { % space drop thickness gs currentpoint currentlinewidth currentpoint n m 6 -3 roll lw 0 exch r 0 rl st lw m gr } bind def /nxtab { currentpoint pop 1000.0 mul cvi tab mod tab exch sub 1000.0 div 0 rmoveto } bind def /nx { /x exch def } bind def 0. nx %%EndProlog gsave 2.83465 -2.83465 scale 0 -279.4 translate topmat currentmatrix pop gsave n -2.822 16.581 m 213.08 16.581 l 213.08 245.18 l -2.822 245.18 l -2.822 16.581 l cl eoclip gsave n 22.578 46.214 m 187.68 46.214 l 187.68 57.856 l 22.578 57.856 l 22.578 46.214 l cl eoclip gsave n 22.578 41.981 m 187.68 41.981 l 187.68 219.78 l 22.578 219.78 l 22.578 41.981 l cl eoclip n 139.7 49.036 m 144.64 49.036 l gsave 0 0 0 0.352 0 B grestore grestore n 113.95 48.331 m 144.99 48.331 l 144.99 52.211 l 113.95 52.211 l 113.95 48.331 l cl 1 1 1 F n savemat currentmatrix pop [1 -0 -0 1 113.922 50.289] concat 25.4 1440 div 1.000000 mul dup scale 0 0 m /tab 283.00 1000.0 mul cvi def 0 0 m 0 ss (Helvetica01800180) gf 0.00 0.00 0.00 rgb (Device Allocation) s savemat setmatrix n 148.44 58.325 m 148.44 46.738 l 160.03 46.738 l 160.03 58.325 l cl gsave eoclip savemat currentmatrix pop [ 11.587 0 0 11.587 148.438 46.738 ] concat 1 1 1 setrgbcolor fill 0 0 0 setrgbcolor 48 48 1 1 0 0 imagemask_raster 0000000000007FFFFFFFFFFF7FE03FFFFFFD7F1FC7FFFFFD7CFFF9FF3FFD7BFFFEFCCFFD 77FFF8E3F1E577FFFB1F3E156FEFFBFCCFF56EF7FB03F0355F787B7FFFB55FB7BB7FFFB5 5EEFDB7FFFB55F5CEB7FFFB55FDB6B7FFFB55FDB6B7FFFB55800037FFFB55AFFFB7FFFB5 5A7FFB7FFFB55BFFFB7FFFB56BC0037FFFB56B80737FFFB5730023BFFF757B0021BFFF6D 7B0400DFFEED7B0E00EFFDDD7B040077FBBD7B00303BF77D7B80301CCEFD7BC0780F3DFD 78000003F07D5D55557CC57D22AAAA782A7D755000C554FD7AAAAA2AA9FD3D55555553FD 5EAAAAAA8FED6F5555553FFD37AAAAA8FBB96BC00001EEED5DE0000755552AF0AAAAAAA9 007800000001003C00000001001E00000001000A000000010006000000017FFFFFFFFFFF savemat setmatrix grestore n 140.41 49.389 m 146.75 49.389 l n 140.41 49.389 m 146.75 49.389 l gsave 0 0 0 0.352 0 B grestore grestore grestore userdict /#copies 1 put grestore %%Trailer %%DocumentNeededResources: font Courier Helvetica-Bold Times-Roman Times-Bold Helvetica %%DocumentSuppliedResources: end d_sv_obj restore