home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / POSTOGRF.ZIP / WRITELOG.INC < prev    next >
Encoding:
Text File  |  1989-09-19  |  7.3 KB  |  126 lines
  1. procedure WriteMitreLogo;
  2. begin
  3.    write(PrtFile,
  4. '%%BeginFont: MitreLogo', CR, LF,
  5. '%!PS-Adobe-1.0', CR, LF,
  6. '%%Creator: Fontographer', CR, LF,
  7. '%%Title: Download font: MitreLogo', CR, LF,
  8. '%%CreationDate: 4/10/87 8:59:48 AM', CR, LF,
  9. '%%Pages: 0', CR, LF,
  10. '%%', CR, LF,
  11. '%%EndComments', CR, LF,
  12. 'systemdict /currentpacking known{/SavPak currentpacking def true setpacking}if', CR, LF,
  13. 'userdict /AltRT3 known{}{/AltRT3 27 dict def AltRT3 begin /NL 0 def', CR, LF,
  14. '/Cache{NL 0 eq{setcachedevice}{6{pop}repeat}ifelse 0 0 moveto}def', CR, LF,
  15. '/SetWid{NL 0 eq{0 setcharwidth setgray}{pop setgray}ifelse 0 0 moveto}def', CR, LF,
  16. '/ShowInt{/NL NL 1 add def fd exch AltRT3 /BuildChar get exec grestore', CR, LF,
  17. '/NL NL 1 sub def}def /charStr(.)def /Strk 0 def /Sstrk{/Strk 1 def}def', CR, LF,
  18. '/Cfill{fd /PaintType get 0 eq{Strk 0 eq{exec}{gsave exec grestore', CR, LF,
  19. 'currentgray 0 ne{0 setgray}if stroke}ifelse}{pop stroke}ifelse}def', CR, LF,
  20. '/Fill{{fill}Cfill}def /Eofill{{eofill}Cfill}def /Cp{closepath 0 0 moveto}def', CR, LF,
  21. '/ShowExt{fd /EFN get exch get findfont setfont matrix currentmatrix exch', CR, LF,
  22. 'fd /InvMtx get concat 0 0 moveto charStr 0 3 -1 roll put', CR, LF,
  23. 'fd /PaintType get 0 ne Strk 0 ne or currentgray 0 ne or', CR, LF,
  24. '{charStr false charpath setmatrix Fill}{charStr show pop}ifelse grestore}def', CR, LF,
  25. '/BuildChar{AltRT3 begin /char exch def /fd exch def save /chnm fd /Encoding', CR, LF,
  26. 'get char get def fd /StrokeWidth get setlinewidth fd /CharDefs get dup chnm', CR, LF,
  27. 'known{chnm}{/.notdef}ifelse get newpath /Strk 0 def exec restore end}def end}ifelse', CR, LF,
  28. '/$MitreLogo 19 dict def $MitreLogo begin /PaintType 0 def /FontType 3 def', CR, LF,
  29. '/StrokeWidth 0 def  /FontBBox[0 0 1000 800]def %/UniqueID 4822621 def', CR, LF,
  30. '/FontMatrix[.001000 0 0 .001000 0 0]def /InvMtx[1000 0 0 1000 0 0]def', CR, LF,
  31. '/Encoding 256 array def /CharDefs 257 dict def /FontName (MitreLogo) def', CR, LF,
  32. '/BuildChar{AltRT3 /BuildChar get exec}def %/GrayFont 1 def', CR, LF,
  33. '/FontInfo 3 dict def FontInfo begin %/PreserveWidth 32 def', CR, LF,
  34. '/UnderlinePosition -133 def /UnderlineThickness 20 def end 0 1 255', CR, LF,
  35. '{Encoding exch /.notdef put}for CharDefs /.notdef{500 0 setcharwidth}put', CR, LF,
  36. 'Encoding 69 /E put', CR, LF,
  37. 'CharDefs /E {<91DD64213B82DD8DE0EE6464E9A3DC64EA6482D9EA57D564EA6469DAEA', CR, LF,
  38. '6EDB64EA6482D9EA5AD564EA6469DAEA71DB64EA6482D9EA25D464EAFCF5', CR, LF,
  39. '>{UCS}forall } put', CR, LF,
  40. 'Encoding 73 /I put', CR, LF,
  41. 'CharDefs /I {<6EDA64583BB6D98DE0EE6E64E996D964EA6464E0EA32D764EAFCF5', CR, LF,
  42. '>{UCS}forall } put', CR, LF,
  43. 'Encoding 77 /M put', CR, LF,
  44. 'CharDefs /M {<87E26439D73B8FE38DE0EE6464E996D964E0EA9BD964EAC3D964D3EAC3', CR, LF,
  45. 'D964DDEA9BD964EA96D964D0EA28D764EA0564DDEA0FD764D3EA50D764EA0FD764DDEA05', CR, LF,
  46. '64D3EAFC6469E9F5>{UCS}forall } put', CR, LF,
  47. 'Encoding 82 /R put', CR, LF,
  48. 'CharDefs /R {<64DE640E3BBADE8DE0EE97D9A5DEE96564ABD964AED964EBA2696BD93D', CR, LF,
  49. '68D905EB612225015FD705EB35D764EA6363EA6438D7EA90DA46D5EAB4D964EA22D686DB', CR, LF,
  50. 'EA65648FDA6A90DA88DAEB6478DA4FD682DA4ED682DAEB2CD564EA6464D0EA96D964EAFC', CR, LF,
  51. 'F5>{UCS}forall } put', CR, LF,
  52. 'Encoding 84 /T put', CR, LF,
  53. 'CharDefs /T {<96DD641C3BACDD8DE0EE64DDAADEE96482D9EA6464EA64D364EA6446D7', CR, LF,
  54. 'EAFCB0D964E994D964EA64AADEEA34D764EAFCF5>{UCS}forall } put', CR, LF,
  55. 'Encoding 101 /e put', CR, LF,
  56. 'CharDefs /e {<91DD64213B82DD8DE0EE6464E9A3DC64EA6482D9EA57D564EA6469DAEA', CR, LF,
  57. '6EDB64EA6482D9EA5AD564EA6469DAEA71DB64EA6482D9EA25D464EAFCF5', CR, LF,
  58. '>{UCS}forall } put', CR, LF,
  59. 'Encoding 105 /i put', CR, LF,
  60. 'CharDefs /i {<6EDA64583BB6D98DE0EE6E64E996D964EA6464E0EA32D764EAFCF5', CR, LF,
  61. '>{UCS}forall } put', CR, LF,
  62. 'Encoding 109 /m put', CR, LF,
  63. 'CharDefs /m {<87E26439D73B8FE38DE0EE6464E996D964E0EA9BD964EAC3D964D3EAC3', CR, LF,
  64. 'D964DDEA9BD964EA96D964D0EA28D764EA0564DDEA0FD764D3EA50D764EA0FD764DDEA05', CR, LF,
  65. '64D3EAFC6469E9F5>{UCS}forall } put', CR, LF,
  66. 'Encoding 114 /r put', CR, LF,
  67. 'CharDefs /r {<64DE640E3BBADE8DE0EE97D9A5DEE96564ABD964AED964EBA2696BD93D', CR, LF,
  68. '68D905EB612225015FD705EB35D764EA6363EA6438D7EA90DA46D5EAB4D964EA22D686DB', CR, LF,
  69. 'EA65648FDA6A90DA88DAEB6478DA4FD682DA4ED682DAEB2CD564EA6464D0EA96D964EAFC', CR, LF,
  70. 'F5>{UCS}forall } put', CR, LF,
  71. 'Encoding 116 /t put', CR, LF,
  72. 'CharDefs /t {<96DD641C3BACDD8DE0EE64DDAADEE96482D9EA6464EA64D364EA6446D7', CR, LF,
  73. 'EAFCB0D964E994D964EA64AADEEA34D764EAFCF5>{UCS}forall } put', CR, LF,
  74. 'Encoding 160 /dagger put', CR, LF,
  75. 'CharDefs /dagger {<96DD641C3BACDD8DE0EE64DDAADEE96482D9EA6464EA64D364EA', CR, LF,
  76. '6446D7EAFCB0D964E994D964EA64AADEEA34D764EAFCF5>{UCS}forall } put', CR, LF,
  77. 'Encoding 168 /registerserif put', CR, LF,
  78. 'CharDefs /registerserif {<64DE640E3BBADE8DE0EE97D9A5DEE96564ABD964AED964', CR, LF,
  79. 'EBA2696BD93D68D905EB612225015FD705EB35D764EA6363EA6438D7EA90DA46D5EAB4D9', CR, LF,
  80. '64EA22D686DBEA65648FDA6A90DA88DAEB6478DA4FD682DA4ED682DAEB2CD564EA6464D0', CR, LF,
  81. 'EA96D964EAFCF5>{UCS}forall } put', CR, LF,
  82. 'Encoding 171 /acute put', CR, LF,
  83. 'CharDefs /acute {<91DD64213B82DD8DE0EE6464E9A3DC64EA6482D9EA57D564EA6469', CR, LF,
  84. 'DAEA6EDB64EA6482D9EA5AD564EA6469DAEA71DB64EA6482D9EA25D464EAFCF5', CR, LF,
  85. '>{UCS}forall } put', CR, LF,
  86. 'Encoding 181 /mu put', CR, LF,
  87. 'CharDefs /mu {<87E26439D73B8FE38DE0EE6464E996D964E0EA9BD964EAC3D964D3EA', CR, LF,
  88. 'C3D964DDEA9BD964EA96D964D0EA28D764EA0564DDEA0FD764D3EA50D764EA0FD764DDEA', CR, LF,
  89. '0564D3EAFC6469E9F5>{UCS}forall } put', CR, LF,
  90. 'Encoding 228 /perthousand put', CR, LF,
  91. 'CharDefs /perthousand {<91DD64213B82DD8DE0EE6464E9A3DC64EA6482D9EA57D564', CR, LF,
  92. 'EA6469DAEA6EDB64EA6482D9EA5AD564EA6469DAEA71DB64EA6482D9EA25D464EAFCF5', CR, LF,
  93. '>{UCS}forall } put', CR, LF,
  94. 'Encoding 229 /Acircumflex put', CR, LF,
  95. 'CharDefs /Acircumflex {<64DE640E3BBADE8DE0EE97D9A5DEE96564ABD964AED964EB', CR, LF,
  96. 'A2696BD93D68D905EB612225015FD705EB35D764EA6363EA6438D7EA90DA46D5EAB4D964', CR, LF,
  97. 'EA22D686DBEA65648FDA6A90DA88DAEB6478DA4FD682DA4ED682DAEB2CD564EA6464D0EA', CR, LF,
  98. '96D964EAFCF5>{UCS}forall } put', CR, LF,
  99. 'Encoding 230 /Ecircumflex put', CR, LF,
  100. 'CharDefs /Ecircumflex {<96DD641C3BACDD8DE0EE64DDAADEE96482D9EA6464EA64D3', CR, LF,
  101. '64EA6446D7EAFCB0D964E994D964EA64AADEEA34D764EAFCF5>{UCS}forall } put', CR, LF,
  102. 'Encoding 233 /Egrave put', CR, LF,
  103. 'CharDefs /Egrave {<6EDA64583BB6D98DE0EE6E64E996D964EA6464E0EA32D764EAFC', CR, LF,
  104. 'F5>{UCS}forall } put', CR, LF,
  105. 'Encoding 247 /tilde put', CR, LF,
  106. 'CharDefs /tilde {<87E26439D73B8FE38DE0EE6464E996D964E0EA9BD964EAC3D964D3', CR, LF,
  107. 'EAC3D964DDEA9BD964EA96D964D0EA28D764EA0564DDEA0FD764D3EA50D764EA0FD764DD', CR, LF,
  108. 'EA0564D3EAFC6469E9F5>{UCS}forall } put', CR, LF,
  109. 'AltRT3 /UCS known {} {AltRT3 begin /UVec[{rmoveto}{rlineto}{rcurveto}', CR, LF,
  110. '{ShowExt}{]concat}{Cache}{setlinewidth}{ShowInt}{setlinecap}{setlinejoin}', CR, LF,
  111. '{gsave}{[}{Fill}{Eofill}{stroke}{SetWid}{100 mul add}{100 mul}', CR, LF,
  112. '{100 div}{Cp}{Sstrk}]def /UCS{dup 200 lt{100 sub}{dup 233 lt{216 sub', CR, LF,
  113. '100 mul add}{233 sub UVec exch get exec}ifelse}ifelse}def end}ifelse', CR, LF,
  114. '/EFN[]def', CR, LF,
  115. 'end systemdict /currentpacking known{SavPak setpacking}if', CR, LF,
  116. '/MitreLogo $MitreLogo definefont pop', CR, LF,
  117. '%%EndFont', CR, LF);
  118. end; {writeMitreLogo}
  119.  
  120. {%/font0 /MitreLogo findfont 20 scalefont def
  121. %font0 setfont
  122. %3 72 mul 5 72 mul moveto
  123. %(MITRE) show
  124. %showpage}
  125.  
  126.