home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / PM301.ZIP / RESOURCE.ZIP / PM-CHAR.R < prev    next >
Encoding:
Text File  |  1993-08-27  |  6.8 KB  |  247 lines
  1. ##
  2. ##  Sample character translation resource file for
  3. ##  Pegasus Mail v3.0, SMTP translation and PostScript.
  4. ##  Copyright (c) 1993, David Harris, All Rights Reserved.
  5. ##
  6. ##  This file can be used to replace the default SMTP
  7. ##  translation table used by PMail on outgoing non-MIME
  8. ##  messages, and to customise the printing of international
  9. ##  character sets on PostScript printers.
  10. ##
  11. ##  It consists of three text resources: if you alter the
  12. ##  file, you MUST preserve all three resources, even if
  13. ##  you only want to make changes to one of them. The
  14. ##  definitions in this sample file duplicate PMail's
  15. ##  defaults for these resources so you can safely make
  16. ##  changes to only one or two.
  17. ##
  18. ##  Resource 0 in the file must be an SMTP translation table:
  19. ##  it consists of high-bit characters followed immediately
  20. ##  by the string of characters which PMail should use in
  21. ##  place of the character in outgoing messages. Spaces
  22. ##  delimit each entry.
  23. ##  
  24. ##  Resource 1 in the file must be the PostScript data for
  25. ##  a banner on a PS printer.
  26. ##
  27. ##  Resource 2 in the file must be the PostScript header
  28. ##  PMail should use before printing any job.
  29. ##
  30. ##  Warning!! You should ONLY attempt customisation of the
  31. ##  PostScript resources if you have a thorough knowledge
  32. ##  of PostScript.
  33. ##
  34. ##  To use this file, make any necessary changes to it and
  35. ##  compile it using the command "ResCom PM-CHAR.R". Copy
  36. ##  the resulting PM-CHAR.RSC file into either your home
  37. ##  mailbox if you want it to affect only you, or into the
  38. ##  same directory as PMAIL.EXE if you want it to affect all
  39. ##  users on the system.
  40.  
  41.  
  42. text smtp_table
  43.    {
  44.    "ÇC üue ée âa äae àa åa çc êe ëe èe ïi îi ìi ÄAE ÅA ",
  45.    "ÉE æee ÆAE ôo öoe òo ûu ùu ÿy ÖOE ÜUE ¢c £stlg ¥yen ",
  46.    "₧peseta ƒguilder áa íi óo úu ñn ÑN ªa ºo ¿? ⌐+ ¬+ ",
  47.    "½.5 ¼.25 ¡! «<< »>> │| ┤| ╡| ╢| ╖+ ╕+ ╣| ║| ╗+ ╝+ ",
  48.    "╜+ ╛+ ┐+ └+ ┴- ┬- ├| ─- ┼+ ╞| ╟| ╚+ ╔+ ╩- ╦- ╠| ═- ",
  49.    "╬+ ╧- ╨- ╤- ╥- ╙+ ╘+ ╒+ ╓+ ╫+ ╪+ ┘+ ┌+ αa ßss πpi ",
  50.    "ΣSigma σRho τTau ΘTheta ΩOmega δdelta φo εEpsilon ",
  51.    "≡= ±+/- ≥>= ≤<= ÷/ ∙o ·. √sqrt ⁿ^n ²^2"
  52.    };
  53.  
  54.  
  55. text ps_banner
  56.    {
  57.    "%!PS-Adobe-2.0\n",
  58.    "%%Creator:Pmail300\n",
  59.    "%%EndComments\n",
  60.    "save\n",
  61.    "newpath\n",
  62.    "144 425 moveto\n",
  63.    "0 162 rlineto\n",
  64.    "340 0 rlineto\n",
  65.    "0 -162 rlineto\n",
  66.    "closepath\n",
  67.    "1 setlinewidth\n",
  68.    "stroke\n",
  69.    "\n",
  70.    "/Helvetica-Bold findfont 24 scalefont setfont\n",
  71.    "240 605 moveto\n",
  72.    "(Banner Page) show\n",
  73.    "/Times-Italic findfont 18 scalefont setfont\n",
  74.    "265 630 moveto\n",
  75.    "(Mail Printout) show\n",
  76.    "180 540 moveto\n",
  77.    "(User:) show \n",
  78.    "180 504 moveto \n",
  79.    "(Date:) show\n",
  80.    "180 468 moveto \n",
  81.    "(From:) show\n",
  82.    "/Times-Roman findfont 18 scalefont setfont\n",
  83.    "240 540 moveto\n",
  84.    "(~u) show \n",
  85.    "240 504 moveto \n",
  86.    "(~d) show\n",
  87.    "240 468 moveto \n",
  88.    "(~f) show\n",
  89.    "showpage restore"
  90.    }
  91.  
  92.  
  93. text ps_header
  94.    {
  95.    "%!PS-Adobe-2.0\n",
  96.    "%%Creator:Pmail300\n",
  97.    "%%EndComments\n",
  98.    "/reencsmalldict 12 dict def\n",
  99.    "/ReEncodeSmall\n",
  100.    "  { reencsmalldict begin\n",
  101.    "    /newcodesandnames exch def\n",
  102.    "    /newfontname exch def\n",
  103.    "    /basefontname exch def\n",
  104.    "    /basefontdict basefontname findfont def\n",
  105.    "    /newfont basefontdict maxlength dict def\n",
  106.    "    basefontdict\n",
  107.    "      { exch dup /FID ne\n",
  108.    "        { dup /Encoding eq\n",
  109.    "          { exch dup length array copy\n",
  110.    "            newfont 3 1 roll put }\n",
  111.    "          { exch newfont 3 1 roll put }\n",
  112.    "          ifelse\n",
  113.    "        }\n",
  114.    "        { pop pop }\n",
  115.    "        ifelse\n",
  116.    "      } forall\n",
  117.    "    newfont /FontName newfontname put\n",
  118.    "    newcodesandnames aload pop\n",
  119.    "    newcodesandnames length 2 idiv\n",
  120.    "      { newfont /Encoding get 3 1 roll put }\n",
  121.    "      repeat\n",
  122.    "    newfontname newfont definefont pop\n",
  123.    "    end\n",
  124.    "  } def\n",
  125.    "\n",
  126.    "/pcvec [\n",
  127.    "  128 /Ccedilla\n",
  128.    "  129 /udieresis\n",
  129.    "  130 /eacute\n",
  130.    "  131 /acircumflex\n",
  131.    "  132 /adieresis\n",
  132.    "  133 /agrave\n",
  133.    "  134 /aring\n",
  134.    "  135 /ccedilla\n",
  135.    "  136 /ecircumflex\n",
  136.    "  137 /edieresis\n",
  137.    "  138 /egrave\n",
  138.    "  139 /idieresis\n",
  139.    "  140 /icircumflex\n",
  140.    "  141 /igrave\n",
  141.    "  142 /Adieresis\n",
  142.    "  143 /Aring\n",
  143.    "  144 /Eacute\n",
  144.    "  145 /ae\n",
  145.    "  146 /AE\n",
  146.    "  147 /ocircumflex\n",
  147.    "  148 /odieresis\n",
  148.    "  149 /ograve\n",
  149.    "  150 /ucircumflex\n",
  150.    "  151 /ugrave\n",
  151.    "  152 /ydieresis\n",
  152.    "  153 /Odieresis\n",
  153.    "  154 /Udieresis\n",
  154.    "  155 /cent\n",
  155.    "  156 /sterling\n",
  156.    "  157 /yen\n",
  157.    "  159 /florin\n",
  158.    "  160 /aacute\n",
  159.    "  161 /iacute\n",
  160.    "  162 /oacute\n",
  161.    "  163 /uacute\n",
  162.    "  164 /ntilde\n",
  163.    "  165 /Ntilde\n",
  164.    "  166 /ordfeminine\n",
  165.    "  167 /ordmasculine\n",
  166.    "  168 /questiondown\n",
  167.    "  173 /exclamdown\n",
  168.    "  174 /guillemotleft\n",
  169.    "  175 /guillemotright\n",
  170.    "  179 /bar\n",
  171.    "  180 /plus\n",
  172.    "  181 /plus\n",
  173.    "  182 /plus\n",
  174.    "  183 /plus\n",
  175.    "  184 /plus\n",
  176.    "  185 /plus\n",
  177.    "  186 /bar\n",
  178.    "  187 /plus\n",
  179.    "  188 /plus\n",
  180.    "  189 /plus\n",
  181.    "  190 /plus\n",
  182.    "  191 /plus\n",
  183.    "  192 /plus\n",
  184.    "  193 /plus\n",
  185.    "  194 /plus\n",
  186.    "  195 /plus\n",
  187.    "  196 /endash\n",
  188.    "  197 /plus\n",
  189.    "  198 /plus\n",
  190.    "  199 /plus\n",
  191.    "  200 /plus\n",
  192.    "  201 /plus\n",
  193.    "  202 /plus\n",
  194.    "  203 /plus\n",
  195.    "  204 /plus\n",
  196.    "  205 /endash\n",
  197.    "  206 /plus\n",
  198.    "  207 /plus\n",
  199.    "  208 /plus\n",
  200.    "  209 /plus\n",
  201.    "  210 /plus\n",
  202.    "  211 /plus\n",
  203.    "  212 /plus\n",
  204.    "  213 /plus\n",
  205.    "  214 /plus\n",
  206.    "  215 /plus\n",
  207.    "  216 /plus\n",
  208.    "  217 /plus\n",
  209.    "  218 /plus\n",
  210.    "  225 /germandbls\n",
  211.    "  240 /equal\n",
  212.    "  248 /ring\n",
  213.    "  249 /bullet\n",
  214.    "  250 /dotaccent\n",
  215.    "  ] def\n",
  216.    "\n",
  217.    "/leftmargin { 40 } bind def\n",
  218.    "/bot { 54 } bind def /top {  } bind def\n",
  219.    "/cw { 40 } bind def\n",
  220.    "/xtab\n",
  221.    "  {currentpoint exch dup cvi\n",
  222.    "  leftmargin cvi sub cvi\n",
  223.    "  cw cvi mod sub\n",
  224.    "  cw add\n",
  225.    "  exch moveto\n",
  226.    "  } bind def\n",
  227.    "/ptsize { ` } bind def /lead { ` } bind def\n",
  228.    "/F { findfont exch scalefont setfont } bind def\n",
  229.    "/newline {\n",
  230.    "  currentpoint exch pop lead sub\n",
  231.    "  dup bot lt {\n",
  232.    "    pop showpage restore save\n",
  233.    "    top\n",
  234.    "    } if\n",
  235.    "  leftmargin exch moveto\n",
  236.    "  } bind def\n",
  237.    "%%Endprolog\n",
  238.    "%%BeginSetup\n",
  239.    "/| /|-PC pcvec\n",
  240.    "   ReEncodeSmall\n",
  241.    "ptsize /|-PC F\n",
  242.    "save\n",
  243.    "leftmargin top moveto\n",
  244.    "%%EndSetup\n"
  245.    };
  246.  
  247.