tclclass-static.eps

NS-2.28的802.11e协议扩展源代码

%!
%%BoundingBox: 54 649 367 737
%%Title: tclclass-static
%%CreationDate: Wed Sep  3 14:55:35 1997
%%Creator: Tgif-2.16-p12 by William Chia-Wei Cheng ([e-mail])

/tgifdict 36 dict def
tgifdict begin

/tgifarrowtipdict 8 dict def
tgifarrowtipdict /mtrx matrix put

/tgifarrowtip
 { tgifarrowtipdict begin
      /dy exch def
      /dx exch def
      /h exch def
      /w exch def
      /y exch def
      /x exch def
      /savematrix mtrx currentmatrix def
      x y translate
      dy dx atan rotate
      0 0 moveto
      w neg h lineto
      w neg h neg lineto
      savematrix setmatrix
   end
 } def

/tgifpatdict 10 dict def

/tgifpatbyte
 { currentdict /retstr get exch
   pat i cellsz mod get put
 } def

/tgifpatproc
 { 0 1 widthlim {tgifpatbyte} for retstr
   /i i 1 add def
 } def

/tgifpatfill
 { tgifpatdict begin
      /h exch def
      /w exch def
      /lty exch def
      /ltx exch def
      /cellsz exch def
      /pat exch def

      /widthlim w cellsz div cvi 1 sub def
      /retstr widthlim 1 add string def
      /i 0 def

      ltx lty translate
      w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
      ltx neg lty neg translate
   end
 } def

/pat3 <8000000008000000> def
/pat4 <8800000022000000> def
/pat5 <8800220088002200> def
/pat6 <8822882288228822> def
/pat7 <aa55aa55aa55aa55> def
/pat8 <77dd77dd77dd77dd> def
/pat9 <77ffddff77ffddff> def
/pat10 <77ffffff77ffffff> def
/pat11 <7fffffff7fffffff> def
/pat12 <8040200002040800> def
/pat13 <40a00000040a0000> def
/pat14 <ff888888ff888888> def
/pat15 <ff808080ff080808> def
/pat16 <f87422478f172271> def
/pat17 <038448300c020101> def
/pat18 <081c22c180010204> def
/pat19 <8080413e080814e3> def
/pat20 <8040201008040201> def
/pat21 <8844221188442211> def
/pat22 <77bbddee77bbddee> def
/pat23 <c1e070381c0e0783> def
/pat24 <7fbfdfeff7fbfdfe> def
/pat25 <3e1f8fc7e3f1f87c> def
/pat26 <0102040810204080> def
/pat27 <1122448811224488> def
/pat28 <eeddbb77eeddbb77> def
/pat29 <83070e1c3870e0c1> def
/pat30 <fefdfbf7efdfbf7f> def
/pat31 <7cf8f1e3c78f1f3e> def

end

%%PageBoundingBox: 54 649 367 737
tgifdict begin
/tgifsavedpage save def

1 setmiterlimit
1 setlinewidth

0 setgray

72 0 mul 72 11.00 mul translate
72 128 div 100 mul 100 div dup neg scale

gsave

% TEXT
0 setgray
/Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
   gsave
      122 149 moveto (Object constructor) show
      122 172 moveto () show
      122 195 moveto (invoke TclClass) show
      122 218 moveto (constructor) show
   grestore

% BOX
0 setgray
gsave
   1.415 setmiterlimit
   2 setlinewidth
   newpath
      100 100 moveto 300 100 lineto 300 250 lineto 100 250 lineto
   closepath stroke
   1 setlinewidth
   1 setmiterlimit
grestore

% TEXT
0 setgray
/Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
   gsave
      457 147 moveto (TclClass constructor) show
      457 170 moveto () show
      457 193 moveto (build list of TclClass) show
      457 216 moveto (instances) show
   grestore

% BOX
0 setgray
gsave
   1.415 setmiterlimit
   2 setlinewidth
   newpath
      451 100 moveto 651 100 lineto 651 250 lineto 451 250 lineto
   closepath stroke
   1 setlinewidth
   1 setmiterlimit
grestore

% POLY/OPEN-SPLINE
0 setgray
gsave
   7 setlinewidth
   newpath
      300 200 moveto
      380 200 lineto
      380 140 lineto
      0 70 atan dup cos 22 mul 450 exch sub
      exch sin 22 mul 140 exch sub lineto
   stroke
   1 setlinewidth
grestore
gsave
   newpath
      450 140 22 9 70 0 tgifarrowtip
   1 setgray closepath fill
   0 setgray
   newpath
      450 140 22 9 70 0 tgifarrowtip
   closepath fill
grestore

% POLY/OPEN-SPLINE
0 setgray
gsave
   7 setlinewidth
   newpath
      450 230 moveto
      0 -150 atan dup cos 22 mul 300 exch sub
      exch sin 22 mul 230 exch sub lineto
   1 setgray stroke
   1 setlinewidth
   0 setgray
   7 setlinewidth
   newpath
      450 230 moveto
      0 -150 atan dup cos 22 mul 300 exch sub
      exch sin 22 mul 230 exch sub lineto
   flattenpath strokepath clip newpath
   pat8 8 296 216 160 24 tgifpatfill
   1 setlinewidth
grestore
gsave
   newpath
      300 230 22 9 -150 0 tgifarrowtip
   1 setgray closepath fill
   0 setgray
   newpath
      300 230 22 9 -150 0 tgifarrowtip
   closepath eoclip newpath
   pat8 8 296 216 32 24 tgifpatfill
grestore

grestore
tgifsavedpage restore
end
%MatchingCreationDate: Wed Sep  3 14:55:35 1997