开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
tclobject-cmd.eps
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：11k
源码类别：

通讯编程

开发平台：

Visual C++

tclobject-cmd.eps：源码内容
  1. %!
  2. %%BoundingBox: 15 554 614 793
  3. %%Title: tclobject-cmd
  4. %%CreationDate: Tue Sep  9 17:38:46 1997
  5. %%Creator: Tgif-2.16-p12 by William Chia-Wei Cheng (william@cs.UCLA.edu)
  7. /tgifdict 37 dict def
  8. tgifdict begin
  10. /tgifarrowtipdict 8 dict def
  11. tgifarrowtipdict /mtrx matrix put
  13. /tgifarrowtip
  14.  { tgifarrowtipdict begin
  15.       /dy exch def
  16.       /dx exch def
  17.       /h exch def
  18.       /w exch def
  19.       /y exch def
  20.       /x exch def
  21.       /savematrix mtrx currentmatrix def
  22.       x y translate
  23.       dy dx atan rotate
  24.       0 0 moveto
  25.       w neg h lineto
  26.       w neg h neg lineto
  27.       savematrix setmatrix
  28.    end
  29.  } def
  31. /tgifpatdict 10 dict def
  33. /tgifpatbyte
  34.  { currentdict /retstr get exch
  35.    pat i cellsz mod get put
  36.  } def
  38. /tgifpatproc
  39.  { 0 1 widthlim {tgifpatbyte} for retstr
  40.    /i i 1 add def
  41.  } def
  43. /tgifpatfill
  44.  { tgifpatdict begin
  45.       /h exch def
  46.       /w exch def
  47.       /lty exch def
  48.       /ltx exch def
  49.       /cellsz exch def
  50.       /pat exch def
  52.       /widthlim w cellsz div cvi 1 sub def
  53.       /retstr widthlim 1 add string def
  54.       /i 0 def
  56.       ltx lty translate
  57.       w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
  58.       ltx neg lty neg translate
  59.    end
  60.  } def
  62. /pat3 <8000000008000000> def
  63. /pat4 <8800000022000000> def
  64. /pat5 <8800220088002200> def
  65. /pat6 <8822882288228822> def
  66. /pat7 <aa55aa55aa55aa55> def
  67. /pat8 <77dd77dd77dd77dd> def
  68. /pat9 <77ffddff77ffddff> def
  69. /pat10 <77ffffff77ffffff> def
  70. /pat11 <7fffffff7fffffff> def
  71. /pat12 <8040200002040800> def
  72. /pat13 <40a00000040a0000> def
  73. /pat14 <ff888888ff888888> def
  74. /pat15 <ff808080ff080808> def
  75. /pat16 <f87422478f172271> def
  76. /pat17 <038448300c020101> def
  77. /pat18 <081c22c180010204> def
  78. /pat19 <8080413e080814e3> def
  79. /pat20 <8040201008040201> def
  80. /pat21 <8844221188442211> def
  81. /pat22 <77bbddee77bbddee> def
  82. /pat23 <c1e070381c0e0783> def
  83. /pat24 <7fbfdfeff7fbfdfe> def
  84. /pat25 <3e1f8fc7e3f1f87c> def
  85. /pat26 <0102040810204080> def
  86. /pat27 <1122448811224488> def
  87. /pat28 <eeddbb77eeddbb77> def
  88. /pat29 <83070e1c3870e0c1> def
  89. /pat30 <fefdfbf7efdfbf7f> def
  90. /pat31 <7cf8f1e3c78f1f3e> def
  92. /tgifcentertext { dup stringwidth pop 2 div neg 0 rmoveto } def
  94. end
  96. %%PageBoundingBox: 15 554 614 793
  97. tgifdict begin
  98. /tgifsavedpage save def
  100. 1 setmiterlimit
  101. 1 setlinewidth
  103. 0 setgray
  105. 72 0 mul 72 11.00 mul translate
  106. 72 128 div 100 mul 100 div dup neg scale
  108. gsave
  110. % POLYGON/CLOSED-SPLINE
  111. 0.184 0.310 0.310 setrgbcolor
  112. newpath
  113.    690 180 moveto
  114.    690 0 lineto
  115.    890 0 lineto
  116.    890 180 lineto
  117.    1090 180 lineto
  118.    1090 410 lineto
  119.    490 410 lineto
  120.    490 180 lineto
  121. closepath
  122. gsave
  123.    1 setgray eofill
  124. grestore
  125. gsave
  126.    eoclip newpath
  127.    pat7 8 488 -8 608 424 tgifpatfill
  128. grestore
  129. gsave
  130.    1 setgray stroke 0 setgray
  131. grestore
  132. gsave
  133.    [2 2] 0 setdash
  134.    flattenpath strokepath clip newpath
  135.    pat7 8 488 -8 608 424 tgifpatfill
  136. grestore
  138. % POLYGON/CLOSED-SPLINE
  139. 0 setgray
  140. newpath
  141.    680 190 moveto
  142.    680 10 lineto
  143.    880 10 lineto
  144.    880 190 lineto
  145.    1080 190 lineto
  146.    1080 420 lineto
  147.    480 420 lineto
  148.    480 190 lineto
  149. closepath
  150. gsave
  151.    1 setgray eofill
  152. grestore
  153. gsave
  154.    [2 2] 0 setdash
  155.    stroke
  156. grestore
  158. % BOX
  159. 0.184 0.310 0.310 setrgbcolor
  160. gsave
  161.    newpath
  162.    710 40 moveto 860 40 lineto 860 140 lineto 710 140 lineto
  163.    closepath 1 setgray fill
  164.    0.184 0.310 0.310 setrgbcolor
  165.    newpath
  166.       710 40 moveto 860 40 lineto 860 140 lineto 710 140 lineto
  167.    closepath eoclip newpath
  168.    pat7 8 704 32 160 112 tgifpatfill
  169. grestore
  171. % BOX
  172. 0 setgray
  173. newpath
  174.    700 50 moveto 850 50 lineto 850 150 lineto 700 150 lineto
  175. closepath 1 setgray fill
  176.    0 setgray
  177. gsave
  178.    1.415 setmiterlimit
  179.    3 setlinewidth
  180.    newpath
  181.       700 50 moveto 850 50 lineto 850 150 lineto 700 150 lineto
  182.    closepath stroke
  183.    1 setlinewidth
  184.    1 setmiterlimit
  185. grestore
  187. % BOX
  188. 0.184 0.310 0.310 setrgbcolor
  189. gsave
  190.    newpath
  191.    910 290 moveto 1060 290 lineto 1060 390 lineto 910 390 lineto
  192.    closepath 1 setgray fill
  193.    0.184 0.310 0.310 setrgbcolor
  194.    newpath
  195.       910 290 moveto 1060 290 lineto 1060 390 lineto 910 390 lineto
  196.    closepath eoclip newpath
  197.    pat7 8 904 288 160 104 tgifpatfill
  198. grestore
  200. % BOX
  201. 0 setgray
  202. newpath
  203.    900 300 moveto 1050 300 lineto 1050 400 lineto 900 400 lineto
  204. closepath 1 setgray fill
  205.    0 setgray
  206. gsave
  207.    1.415 setmiterlimit
  208.    3 setlinewidth
  209.    newpath
  210.       900 300 moveto 1050 300 lineto 1050 400 lineto 900 400 lineto
  211.    closepath stroke
  212.    1 setlinewidth
  213.    1 setmiterlimit
  214. grestore
  216. % BOX
  217. 0.184 0.310 0.310 setrgbcolor
  218. gsave
  219.    newpath
  220.    510 290 moveto 660 290 lineto 660 390 lineto 510 390 lineto
  221.    closepath 1 setgray fill
  222.    0.184 0.310 0.310 setrgbcolor
  223.    newpath
  224.       510 290 moveto 660 290 lineto 660 390 lineto 510 390 lineto
  225.    closepath eoclip newpath
  226.    pat7 8 504 288 160 104 tgifpatfill
  227. grestore
  229. % BOX
  230. 0 setgray
  231. newpath
  232.    500 300 moveto 650 300 lineto 650 400 lineto 500 400 lineto
  233. closepath 1 setgray fill
  234.    0 setgray
  235. gsave
  236.    1.415 setmiterlimit
  237.    3 setlinewidth
  238.    newpath
  239.       500 300 moveto 650 300 lineto 650 400 lineto 500 400 lineto
  240.    closepath stroke
  241.    1 setlinewidth
  242.    1 setmiterlimit
  243. grestore
  245. % POLYGON/CLOSED-SPLINE
  246. 0.184 0.310 0.310 setrgbcolor
  247. newpath
  248.    703 224 moveto
  249.    778 174 lineto
  250.    854 224 lineto
  251.    778 274 lineto
  252. closepath
  253. gsave
  254.    1 setgray eofill
  255. grestore
  256. gsave
  257.    eoclip newpath
  258.    pat7 8 696 168 160 112 tgifpatfill
  259. grestore
  261. % POLYGON/CLOSED-SPLINE
  262. 0 setgray
  263. newpath
  264.    700 230 moveto
  265.    775 180 lineto
  266.    851 230 lineto
  267.    775 280 lineto
  268. closepath
  269. gsave
  270.    1 setgray eofill
  271. grestore
  272. gsave
  273.    3 setlinewidth
  274.    stroke
  275. grestore
  277. % TEXT
  278. 0 setgray
  279. /Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
  280.    gsave
  281.       780 91 moveto (TclObject::         ) tgifcentertext show
  282.       780 114 moveto (      command()) tgifcentertext show
  283.    grestore
  285. % TEXT
  286. 0 setgray
  287. /Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
  288.    gsave
  289.       777 223 moveto (match) tgifcentertext show
  290.       777 246 moveto ("distance?") tgifcentertext show
  291.    grestore
  293. % TEXT
  294. 0 setgray
  295. /NewCenturySchlbk-Bold findfont [24 0 0 -24 0 0] makefont setfont
  296.    gsave
  297.       691 223 moveto (Y) tgifcentertext show
  298.    grestore
  300. % TEXT
  301. 0 setgray
  302. /NewCenturySchlbk-Bold findfont [24 0 0 -24 0 0] makefont setfont
  303.    gsave
  304.       864 223 moveto (N) tgifcentertext show
  305.    grestore
  307. % TEXT
  308. 0 setgray
  309. /Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
  310.    gsave
  311.       575 346 moveto (process ) tgifcentertext show
  312.       575 369 moveto (and return) tgifcentertext show
  313.    grestore
  315. % TEXT
  316. 0 setgray
  317. /Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
  318.    gsave
  319.       975 335 moveto (invoke parent's) tgifcentertext show
  320.       975 358 moveto (command()) tgifcentertext show
  321.       975 381 moveto (method) tgifcentertext show
  322.    grestore
  324. % POLY/OPEN-SPLINE
  325. 0 setgray
  326. gsave
  327.    3 setlinewidth
  328.    newpath
  329.       775 150 moveto
  330.       31 0 atan dup cos 12 mul 775 exch sub
  331.       exch sin 12 mul 181 exch sub lineto
  332.    stroke
  333.    1 setlinewidth
  334. grestore
  335. gsave
  336.    newpath
  337.       775 181 12 5 0 31 tgifarrowtip
  338.    1 setgray closepath fill
  339.    0 setgray
  340.    newpath
  341.       775 181 12 5 0 31 tgifarrowtip
  342.    closepath fill
  343. grestore
  345. % POLY/OPEN-SPLINE
  346. 0 setgray
  347. gsave
  348.    3 setlinewidth
  349.    newpath
  350.       700 230 moveto
  351.       575 230 lineto
  352.       69 0 atan dup cos 12 mul 575 exch sub
  353.       exch sin 12 mul 299 exch sub lineto
  354.    stroke
  355.    1 setlinewidth
  356. grestore
  357. gsave
  358.    newpath
  359.       575 299 12 5 0 69 tgifarrowtip
  360.    1 setgray closepath fill
  361.    0 setgray
  362.    newpath
  363.       575 299 12 5 0 69 tgifarrowtip
  364.    closepath fill
  365. grestore
  367. % POLY/OPEN-SPLINE
  368. 0 setgray
  369. gsave
  370.    3 setlinewidth
  371.    newpath
  372.       850 230 moveto
  373.       975 230 lineto
  374.       69 0 atan dup cos 12 mul 975 exch sub
  375.       exch sin 12 mul 299 exch sub lineto
  376.    stroke
  377.    1 setlinewidth
  378. grestore
  379. gsave
  380.    newpath
  381.       975 299 12 5 0 69 tgifarrowtip
  382.    1 setgray closepath fill
  383.    0 setgray
  384.    newpath
  385.       975 299 12 5 0 69 tgifarrowtip
  386.    closepath fill
  387. grestore
  389. % RCBOX
  390. 0 setgray
  391. newpath
  392.    184 50 moveto
  393.    200 50 200 150 16 arcto 4 {pop} repeat
  394.    200 134 lineto
  395.    200 150 50 150 16 arcto 4 {pop} repeat
  396.    66 150 lineto
  397.    50 150 50 50 16 arcto 4 {pop} repeat
  398.    50 66 lineto
  399.    50 50 200 50 16 arcto 4 {pop} repeat
  400. closepath 1 setgray fill
  401.    0 setgray
  402. gsave
  403.    3 setlinewidth
  404.    newpath
  405.       184 50 moveto
  406.       200 50 200 150 16 arcto 4 {pop} repeat
  407.       200 134 lineto
  408.       200 150 50 150 16 arcto 4 {pop} repeat
  409.       66 150 lineto
  410.       50 150 50 50 16 arcto 4 {pop} repeat
  411.       50 66 lineto
  412.       50 50 200 50 16 arcto 4 {pop} repeat
  413.    closepath stroke
  414.    1 setlinewidth
  415. grestore
  417. % RCBOX
  418. 0 setgray
  419. newpath
  420.    483 50 moveto
  421.    499 50 499 150 16 arcto 4 {pop} repeat
  422.    499 134 lineto
  423.    499 150 349 150 16 arcto 4 {pop} repeat
  424.    365 150 lineto
  425.    349 150 349 50 16 arcto 4 {pop} repeat
  426.    349 66 lineto
  427.    349 50 499 50 16 arcto 4 {pop} repeat
  428. closepath 1 setgray fill
  429.    0 setgray
  430. gsave
  431.    3 setlinewidth
  432.    newpath
  433.       483 50 moveto
  434.       499 50 499 150 16 arcto 4 {pop} repeat
  435.       499 134 lineto
  436.       499 150 349 150 16 arcto 4 {pop} repeat
  437.       365 150 lineto
  438.       349 150 349 50 16 arcto 4 {pop} repeat
  439.       349 66 lineto
  440.       349 50 499 50 16 arcto 4 {pop} repeat
  441.    closepath stroke
  442.    1 setlinewidth
  443. grestore
  445. % TEXT
  446. 0 setgray
  447. /Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
  448.    gsave
  449.       125 107 moveto ($srm distance?) tgifcentertext show
  450.    grestore
  452. % TEXT
  453. 0 setgray
  454. /Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
  455.    gsave
  456.       267 93 moveto (No such) tgifcentertext show
  457.       267 116 moveto (procedure) tgifcentertext show
  458.    grestore
  460. % TEXT
  461. 0 setgray
  462. /Helvetica-Bold findfont [20 0 0 -20 0 0] makefont setfont
  463.    gsave
  464.       424 75 moveto (TclObject::        ) tgifcentertext show
  465.       424 92 moveto (        unknown{}) tgifcentertext show
  466.       424 109 moveto () tgifcentertext show
  467.       424 126 moveto ($srm cmd        ) tgifcentertext show
  468.       424 143 moveto (         distance?) tgifcentertext show
  469.    grestore
  471. % POLY/OPEN-SPLINE
  472. 0 setgray
  473. gsave
  474.    3 setlinewidth
  475.    newpath
  476.       201 100 moveto
  477.       0 147 atan dup cos 12 mul 348 exch sub
  478.       exch sin 12 mul 100 exch sub lineto
  479.    stroke
  480.    1 setlinewidth
  481. grestore
  482. gsave
  483.    newpath
  484.       348 100 12 5 147 0 tgifarrowtip
  485.    1 setgray closepath fill
  486.    0 setgray
  487.    newpath
  488.       348 100 12 5 147 0 tgifarrowtip
  489.    closepath fill
  490. grestore
  492. % POLY/OPEN-SPLINE
  493. 0 setgray
  494. gsave
  495.    3 setlinewidth
  496.    newpath
  497.       500 100 moveto
  498.       0 200 atan dup cos 12 mul 700 exch sub
  499.       exch sin 12 mul 100 exch sub lineto
  500.    stroke
  501.    1 setlinewidth
  502. grestore
  503. gsave
  504.    newpath
  505.       700 100 12 5 200 0 tgifarrowtip
  506.    1 setgray closepath fill
  507.    0 setgray
  508.    newpath
  509.       700 100 12 5 200 0 tgifarrowtip
  510.    closepath fill
  511. grestore
  513. % RCBOX
  514. 0 setgray
  515. gsave
  516.    [2 2] 0 setdash
  517.    newpath
  518.       504 20 moveto
  519.       520 20 520 170 16 arcto 4 {pop} repeat
  520.       520 154 lineto
  521.       520 170 30 170 16 arcto 4 {pop} repeat
  522.       46 170 lineto
  523.       30 170 30 20 16 arcto 4 {pop} repeat
  524.       30 36 lineto
  525.       30 20 520 20 16 arcto 4 {pop} repeat
  526.    closepath stroke
  527.    [] 0 setdash
  528. grestore
  530. % TEXT
  531. 0 setgray
  532. /Helvetica findfont [20 0 0 -20 0 0] makefont setfont
  533.    gsave
  534.       738 30 moveto (C++ methods) tgifcentertext show
  535.    grestore
  537. % TEXT
  538. 0 setgray
  539. /Helvetica findfont [20 0 0 -20 0 0] makefont setfont
  540.    gsave
  541.       144 40 moveto (OTcl instance procedures?) tgifcentertext show
  542.    grestore
  544. grestore
  545. tgifsavedpage restore
  546. end
  547. %MatchingCreationDate: Tue Sep  9 17:38:46 1997