search.ps

it is a source code from mathworks

psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
begin/SpecialSave save N gsave normalscale currentpoint TR
@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
1 startangle endangle arc savematrix setmatrix}N end

%%EndProcSet
TeXDict begin @defspecial

 /oval { 6 array currentmatrix [ 1 0 inclination sin inclination cos
div 1 0 0 ] concat /ysegmentlength ovalheight cornerradius 2 mul sub
def /xsegmentlength ovalwidth cornerradius 2 mul sub def cornerradius
dup dup 180 270 arc xsegmentlength 0 rlineto cornerradius xsegmentlength
add cornerradius dup 270 360 arc 0 ysegmentlength rlineto cornerradius
xsegmentlength add cornerradius ysegmentlength add cornerradius 0 90
arc xsegmentlength neg 0 rlineto cornerradius cornerradius ysegmentlength
add cornerradius 90 180 arc closepath setmatrix } def

 /sig { /colour exch def /linedash exch def /arg8 exch def /arg7 exch
def /arg6 exch def /arg5 exch def /arg4 exch def /arg3 exch def /arg2
exch def /arg1 exch def /triangle {0 1.03923 rmoveto -0.9 -1.55885
rlineto 1.8 0 rlineto closepath } bind def /dx arg3 arg1 sub 2 div
def /dy arg4 arg2 sub 2 div def /dist { dx dup mul dy dup mul add sqrt
} def /dsx { dx dist div } def /dsy { dy dist div } def /mx arg1 dx
add dsy sub def /my arg2 dy add dsx add def /dtx dsx dsy add 2 div
def /dty dsx dsy sub 2 div def /dx2 arg3 arg1 sub def /dy2 arg4 arg2
sub def colour setgray lwidth setlinewidth newpath arg1 arg2 moveto
linedash 0 setdash arg5 (h) eq { dx dy rlineto [] 0 setdash stroke
newpath [2 1] centerdash arg1 dx add arg2 dy add moveto dx dy rlineto
stroke } { arg3 arg4 lineto stroke } ifelse arg6 (+) eq { 0.14111 setlinewidth
[] 0 setdash newpath mx dtx sub my dty add moveto dtx 6 mul dty 6 mul
neg rlineto stroke } if newpath arg1 arg2 moveto arg7 (t) eq { [] 0
setdash 0.14111 setlinewidth newpath arg1 arg2 moveto triangle 1 setgray
fill colour setgray newpath arg1 arg2 moveto triangle stroke } { arg7
(c) eq { [] 0 setdash 0.14111 setlinewidth newpath arg1 arg2 .6 0 360
arc 1 setgray fill colour setgray arg1 arg2 .6 0 360 arc stroke } if
} ifelse newpath [] 0 setdash 0.14111 setlinewidth arg3 arg4 moveto
arg8 (t) eq { newpath arg3 arg4 moveto triangle 1 setgray fill colour
setgray newpath arg3 arg4 moveto triangle stroke } { arg8 (c) eq {
newpath arg3 arg4 .6 0 360 arc 1 setgray fill colour setgray arg3 arg4
.6 0 360 arc stroke } if } ifelse } def

 /gps { /colour exch def /arg6 exch def /arg5 exch def /arg4 exch def
/arg3 exch def /arg2 exch def /arg1 exch def /triangle {0 1.03923 rmoveto
-0.9 -1.55885 rlineto 1.8 0 rlineto closepath } bind def /dx arg3 arg1
sub def /dy arg4 arg2 sub def /phi dy dx atan def /dist { dx dup mul
dy dup mul add sqrt } def /wave { 1 2 3 -2 dist H div 0 rcurveto }
def /H { dist 4 div cvi } def colour setgray lwidth setlinewidth gsave
newpath arg1 arg2 translate phi rotate 1 1 H { 0 0 moveto wave stroke
dist H div 0 translate } for grestore newpath arg1 arg2 moveto arg5
(t) eq { [] 0 setdash 0.14111 setlinewidth newpath arg1 arg2 moveto
triangle 1 setgray fill colour setgray newpath arg1 arg2 moveto triangle
stroke } { arg5 (c) eq { [] 0 setdash 0.14111 setlinewidth newpath
arg1 arg2 .6 0 360 arc 1 setgray fill colour setgray arg1 arg2 .6 0
360 arc stroke } if } ifelse newpath [] 0 setdash 0.14111 setlinewidth
arg3 arg4 moveto arg6 (t) eq { newpath arg3 arg4 moveto triangle 1
setgray fill colour setgray newpath arg3 arg4 moveto triangle stroke
} { arg6 (c) eq { newpath arg3 arg4 .6 0 360 arc 1 setgray fill colour
setgray arg3 arg4 .6 0 360 arc stroke } if } ifelse } def

/picdict 50 dict def picdict begin /centerdash { /pattern exch def
/pathlen pathlength def /patternlength 0 def pattern { patternlength
add /patternlength exch def } forall pattern length 2 mod 0 ne { /patternlength
patternlength 2 mul def } if /first pattern 0 get def /last patternlength
first sub def /n pathlen last sub cvi patternlength idiv def /endpart
pathlen patternlength n mul sub last sub 2 div def /offset first endpart
sub def pattern offset setdash } def /pathlength { flattenpath /dist
0 def { /yfirst exch def /xfirst exch def /ymoveto yfirst def /xmoveto
xfirst def } { /ynext exch def /xnext exch def /dist dist ynext yfirst
sub dup mul xnext xfirst sub dup mul add sqrt add def /yfirst ynext
def /xfirst xnext def } {} { /ynext ymoveto def /xnext xmoveto def
/dist dist ynext yfirst sub dup mul xnext xfirst sub dup mul add sqrt
add def /yfirst ynext def /xfirst xnext def } pathforall dist } def
end
 
@fedspecial end
%%BeginFont: ZapfHumanist601BT-Roman
%!PS-AdobeFont-1.0: ZapfHumanist601BT-Roman 003.001
%%CreationDate: Mon Jun 22 16:07:13 1992
%%VMusage: 34587 37732   
% Bitstream Type 1 Font Program
% Copyright 1990-1992 as an unpublished work by Bitstream Inc., Cambridge, MA.
% All rights reserved.
% Confidential and proprietary to Bitstream Inc.
% U.S. GOVERNMENT RESTRICTED RIGHTS
% This software typeface product is provided with RESTRICTED RIGHTS. Use,
% duplication or disclosure by the Government is subject to restrictions
% as set forth in the license agreement and in FAR 52.227-19 (c) (2) (May, 1987),
% when applicable, or the applicable provisions of the DOD FAR supplement
% 252.227-7013 subdivision (a) (15) (April, 1988) or subdivision (a) (17)
% (April, 1988).  Contractor/manufacturer is Bitstream Inc.,
% 215 First Street, Cambridge, MA 02142.
% Bitstream is a registered trademark of Bitstream Inc.
11 dict begin
/FontInfo 9 dict dup begin
  /version (003.001) readonly def
  /Notice (Copyright 1990-1992 as an unpublished work by Bitstream Inc.  All rights reserved.  Confidential.) readonly def
  /FullName (Zapf Humanist 601) readonly def
  /FamilyName (Zapf Humanist 601) readonly def
  /Weight (Book) readonly def
  /ItalicAngle 0 def
  /isFixedPitch false def
  /UnderlinePosition -136 def
  /UnderlineThickness 47 def
end readonly def
/FontName /ZapfHumanist601BT-Roman def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding StandardEncoding def
/FontBBox {-167 -275 1095 963} readonly def
/UniqueXX 15530394 def
currentdict end
currentfile eexec
a2951840838a4133839ca9d22e2b99f2b61c767cd675080aacfcb24e19cd1336
739bb64994c56737090b4cec92c9945ff0745ef7ffc61bb0a9a3b849e7e98740
e56c0b5af787559cc6956ab31e33cf8553d55c0b0e818ef5ec6bf48162eac42e
7380ca921dae1c82b38fd6bcf2001abb5d001a56157094cfe27d8f4eac9693e8
8372d20358b47e0c3876558ebf757a1fbc5c1cddf62b3c57bf727ef1c4879422
c142a084d1c7462ac293e097fabe3a3ecfcd8271f259833bac7912707218ec9a
3063bf7385e02d8c1058ac06df00b33b8c018768b278010eb4dd5aa4beb60a07
15b8cbbe3e24350163ac8a47bd8a50b8cb2418930fe03fb2de3d1fcfdc386af2
f92e476b25e94627e8351e4a0a020b1372e85847ca05af7555285a159891a464
e28eb002729c99a430c9a6862e2406d432a9f0ff37314a163b3ce6082885c2bc
c514830685f1198ff06a9a12583c88ba7d5df7112a3761e7144def893168f8a9
3ae351e18639efbb66705e4b14c7500a6f80c9d962cf92a49dab8bc7a6b5ffd3
c55c60793efd95858000e88e2e3dda41358ceff8c5175c825fa25de060391da7
6a3861746723ea4cb8a5853a45d2822c03e69a9be2f0ba0725fe5b04aeafb5fa
3b4c7f53f88294ec08172fdb8d0b607eeb1dc45fc14a45dd088e0b1f4bdd8ce8
9f69776722416072305690cb71f8756ae8f04ad671aef012ebc84b1459f46bb0
8585beded18b6f1e4f247e56cff1e12778913b92e1325a3d430749e5877962ba
2c5fc332a91a87c3ccaaba8c201ac784b4e8d02389d117be69d7746e0fa6341c
d58c141946f8ac80b678f25c12a9d5b4c089928c63716da963ccb0f7d5f4365e
ed6f67f57d5043a5c7b0c9067e220704dd15cd8182bc158d67f0402db46736e0
78530097c6a41fca54daa8095200fad20dd0ea1c2c667a162415e74679baead3
90769054bd692784b3923c51176544f0120a43d0af99428404f67f5f98a22c7d
d4d4b1db4275a68115d22df4d8a1dcafcfbba42af9dc4399bd1dad83791f35f1
95aa97af6d1143694c0f94f3303c2b7999f15e91951a2d1002889e26eb09921f
1bb9f568aff246cb31562351eb269adb31e96bf6efb9999801a292d6ce5154ab
53add34c47f8b8c5fb03eae675c77a24d5c1b24064d4946e6291c0226e6ac6e3
549d88545074b9673f20afe5d3c43e8295cf925bd50f5c3da07b98d8b18b26d7
9afd73c2583c352cc3c41b77dae3daaeca2b8b7f8e81d158fae45cd5e719f169
d9e1333abc3335338d87d5b0283dc6afe07dee035e92c8aaf73e1043b1227e45
3461176303da28067de177faf0aacccd95b9b849addc24b5ec4a07bb82604a5c
1812469bbb08f0efec2667786fbe152c79aa6e16c11519b1fca9afcf4acd7b97
156c9b62945a91445971c6b1b36a392e13ad5248591652eb7696262ed3455a9c
9b4a66037c0daa0549e9cc83bef6255f75a6cc2528c0f838f7ebeec57062072e
052ca6f600609e68744ac66a811f77717547400cd6f574f03b3bd1878a15839b
d719815713af1a72662473856b9c095c6854ef7190fa852321ed53bccaa2f219
19f231a07b2a620bc70fdcdf768c82ac3400a3d3278980171529ff49d5c476b8
31a9cb4b9afd5234e00cf0100d8622f3966df7a5ce83767b39cf67050b732e3d
00c1970fd9763f351c363f08f66b13f61c2609719cce3365397782b5065a4e49
a9f4002f04e2f7ed898eee59a0146511d4fe976bfd7537d791a9e6e6da9eccd7
0eedc6ce916c2e6a20dc142553ce16868a49961804a05b235204dd0a7a2e8454
12659d9aab160f8152719db388bce852995cd07d8bd995d4e0739e94d38bc2ff
1d2d26278d7c39acbce63edf61c41435c21030e266b71cc8130d94d9e97e1ae4
ec2caeca85ad750bfcacf3d065cf5d99ce799e8a38bbad95f8ab62bfaf9310e5
d26b1147a1af5f63ad53bb650f4e34fb9176e31ebae8f6d2c9f436065c163785
ec99a781d5986fc0554da8dcfcfae8ba8c1c0738fcbdf1c97ea61fb387187a80
28be1b13600c719005421241937c2aae42f33c6e6ef1e5b43141b31a8242dc89
1e97966cf1c02624779d15c57f103de1e12b8c95ffc634ae239409aca1c0b0c0
07f4b465efc1d209627ba80518d6922c19c59a76f9a5a6ba550a98e02aa7e853
6c63853487b44a5c69718230c050e3f0382a5bc9ca5473cfe7dae7ada57c4c0d
2a8d2e9717b3305dd7d748bd7b3621b6aae5f47d870c05ce6920f90e32780b97
defad5f5c0103e36010722d0b3ba8b94a6cf6fd9bd0d0e9896b308b531023210
2f41682aff96491455c5dc49473ba7fcd1a173c101cde4c4bf843db796b16d2f
ca862b159a5eba3f5a6e55ab970c2e6deb0671ad6565470964a1a5ab3d78d734
b12b1ff58fccc15a0a29002341a7155469578e22ac8b4abbb046c29629cf68a9
c12df9f171aa7e2f6eebb87ba74747deacd80a4509206fade668beb9553727f7
5f6516febf80410a147191258ef4843c72aec6554565bf2d604b24fc885df0fe
1123cca42c94d5acf3e901b00325e2c40307b545e3d4c31b9c310c0ae002271f
2433edf69170f2e7d61b70979aa988a5713a2310c62b4786f48f46a68fc89299
92316a69ae2f8add28224b3e6bd384be13132d114270d942ef054b125cf5a9df
f572fa493c6427b0255a9175d5c727c72ce2cefa9ca33bf9215da047ea227c7e
0273a37fde2cf7c30623b49ebdaf29d1c55273458de4bf9aa6628de7539c5905
f4a99150648e74379203a2ce71633d36b0015c8687426fb741c6ef0e4609280d
f3655957f1d1dc301f172b8c9deb184ef510e7da5c5c9f874840feadd38f757c
dc95d61396e91a694c558a8efa9df9f23da0951d7dbd22de49536c29c12f35ec
f195094dd44e9b74b2f6d552d75756975b9101633d4034c946d421b421f9d30e
8784b08711d1c465c885aaf2a52eecdc61d165a73cebbf6973442d0a406fd351
ba0f03be5f59baa6b894daab1711f42d5f5c453bc9f55da3139175aaf15609ea
6ab0617d720bb1dd1f8b11bcfca47283fc00ed1ad4b59f7ac7ccb3d359237c96
37e58c1df330baf548768329e584a766c09e51303f4d3c9a8b76a99185071bef
ed36bdc9d1956d3a3b16c17cd2a3fd59a3c2a5efd9e39556be22b5e2e24cc014
92a582d6f89e236dff3eae8f83e9ed6ba0354a2d22180c69c076c2a7b7681edb
e92e972c648a1495f2c6ce1e8c0647fcfded335e3cad6afa0948db499b88f0a0
d4d15a6a6b47665f8b4021f92c884ad17b4e56f53e842b8aae5447ede0273f88
0a187c22dc9fa395e67fa02ede374524645a055d4cd34ca8576fc2715cfb7674
1d471da2687ebe46ec6241cdc347c58bf93cb1325f8f17221773eff7c1d475eb
0e328dc8291f78b1b57b6719e16914bbfbd9cb1c40de9fd6c385cfaa4c0472a7
8b7bfb798140d977299d20de733e7b5633e92e0e56177af35167f9c76d637858
0e7c61b45c92ea96dba36bcd09227391fcd0e10d278e053ed336e234860e96b0
a8193f54d6803fa70088b2d631923d229554360588234a1d4ae817cf64daffd2
e7bd1840d24ee8600e2ed8c864d460b69ea586e4ff3af5e825fd33e5e8d7ca2c
2d16012223e395eb2611ac0ee99d8aea54c6a5dc86aaa4448c2ce1dffba9969c
ceb0e35b9a56bcd4ed800a4384b516442a8528b5e2d0328654feaf64395419d4
95ecc09d6fa91909e96e0cb519aa0cc69a17b9fce5d1227720caffdd2225e7bd
8ac0c16818a46b3ce28a435e0c9f208221b5d555092236ce77bba7dc95db6f70
9de93e03b906ccc0006f6fbf5f0c07920b59fed48af479b5445561a4bc4c6b4b
6414486c20779dff54532bf47f39f7c72cf0a24468d333d041a51a202ed9fbb5
94504f8a4e4205dfdfba04e63297d7aa5d9bdc64cd2c70ea1b7677d61c8acb78
bd3241022978859d2fdcb3ec86d9d04375f5442b25f1fe4db0ac5f7ddf27e63a
80a275e894bae97686f24612162ccddaed2d480ec50290d043dc726feb070c35
e5e98c7ce436105105be083eb8ae6a222c2c77cf4f723a62b28f3dab6867b990
2056d631770387205c74f4de16472e332e06b9a1a0a4335fb25dfe9760685062
079cb564abd24a173c72817b20ad0823aa552b5ab556f8653bcf26ebadcf8a66
d6792ca0631c253da39a401d2068b82f2d09df5a36b1452fd561668720cf3f57
b900960c196659f4ddecf4c466dbf04d90cfbe27f2e7e91864628b6e7a84dc8d
7ee2bc8539ba028eae42478c45cf486f753fc5df34efe584dcd9e6148286758d
3f958734d7e54b191f2534b5a665b6b26c6f6537ab5120e73d57710b3aa99507
891d2e81be3177116e0612be47db1b83ad52de6580e85b593c5a001b6d131468
e98d00bf734d4c5c9a16a70088cf05aeecde7762c7d823acb9913c0ddcca121e
746d6794e535bd6eac386623a992a1b7ed5726dd390ab130f7cc3f8a5080937f
aaf7ca482550130b8eb40e4e95d346844fc56530a10d24365f09c7ab1075ae6c
fae4cc839ac66cb791d17f8417bcdf602e811a42f632ffdb45b10f000e8e9fa2
4352612326f62177fe85eba490476d18bdfe582d0d99620770eebe1a677e6162
7faf54967851becd804c56ef0b384314489dedb8c238f432c57498b6292c353f
9caafa46781ec0f2d86a1c2dffde2de112002e222f7427fe3d8c632e2c3edfdf