home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / LASER / BFONT513.ZIP / HPLAJETS.BFC < prev    next >
Encoding:
Text File  |  1989-02-03  |  11.2 KB  |  326 lines
  1. n,"HP LaserJet Standard"; {for BitFont 5.0 and up}
  2. t:cn="(c) Copyright 1988, 1989 Bruce J. Patin, 12-26-88, 02-03-89";
  3.  
  4. {initialize BitFont specific variables}
  5.   a: aa=1;      {allow adjacent dots. Only necessary to disallow for certain wire matrix printers.}
  6.   x: df=1;      {init data format to 1, Laser/CRT}
  7.   x: xd=1;      {single horizontal density}
  8.   x: yd=1;      {single vertical density}
  9. {you could also initialize the color variables in here, if desired}
  10.  
  11. {declare and initialize the HP Character Descriptor variables:}
  12.   x: zf=4;{byte 0: Descriptor Format, must be 4 for LaserJet}
  13.   x: zx=0;{byte 1: Continuation, not supported by HP or BitFont}
  14.   x: zs=14;{byte 2: Descriptor Size, must be 14 for LaserJet}
  15.   x: cl=1;{byte 3: Class, bit data format, is 1 for LaserJet}
  16.   x: or=0;{byte 4: Orientation, 0 = portrait, 1=landscape}
  17.   {byte 5 is reserved, should be set to 0}
  18.   x: lo=0;{byte 6,7: offset left edge of char to left edge of font cell}
  19.           {landscape fonts will have negative values here}
  20.   x: to=40;{byte 8,9: offset top of character to baseline}
  21.   x: cw=30;{byte 10,11: character width, at 300 dots per inch, 30 is 1/10 inch}
  22.   x: ch=50;{byte 12,13: character height, 50 dots is 6 lines per inch}
  23.   x: ep=120,"Delta-X (quarter dots)"; {byte 14,15: distance from reference point to next character's}
  24.  
  25. {declare and initialize the HP Font Descriptor variables}
  26.   {note that values outside the ranges given here will usually result
  27.    in the HP printer rejecting the downloaded font.}
  28.   a: fd=26,"Font Descriptor size"; {byte 0,1: 26 is the minimum, 64 is max}
  29.                                    {HP printers ignore beyond 26 so far.}
  30.   a:z2=0;   {byte 2 is reserved, should be set to 0}
  31.   a: ft=1,"Font Type";{byte 3: 0 for 7-bit codes, 1 for 8-bit codes}
  32.   a:z4=0; {bytes 4,5 reserved, set to 0}
  33.   a: bl=40;{byte 6,7: distance from top edge of font cell to baseline}
  34.      {baseline position may range from 0 to font cell height minus 1}
  35.   a: fw=30;{byte 8,9: font cell width, must be from 1 to 255}
  36.   a: fh=50;{byte 10,11: font cell height, must be from 1 to 255}
  37.   a: oo=0;{byte 12: font orientation, 0=portrait, 1=landscape}
  38.      {each character orientation must match or character is rejected}
  39.   a: ks=0,"Spacing (0=fixed,1=prop)";{byte 13}
  40.   a: ss=21,"Symbol Set";{byte 14,15: 21 is ANSI US ASCII}
  41.   a: pt=120,"Pitch (quarter dots)";{byte 16,17}
  42.   a: jh=200,"Height (quarter dots)";{byte 18,19}
  43.   a: xh=0;{xHeight (quarter dots) byte 20,21, ignored by LaserJet}
  44.   a: wt=0;{Width Type byte 22, ignored by LaserJet}
  45.   a: st=0,"Style";{byte 23, 0=upright, 1=italics, 2=oblique}
  46.   a: sw=0,"Stroke Weight";{byte 24}
  47.   a: tf=0,"Typeface";{byte 25}
  48.   {variables beyond this are currently ignored by HP printers.}
  49.   {may be safest to ignore them also and set font descriptor size to 26}
  50.   {some font developers have not followed the format beyond this point}
  51.   a: sl=0;{Slant,  byte 26}
  52.   a: sf=0;{Serif Style,  byte 27}
  53.   a:z8=0;{28,29 reserved, set to 0}
  54.   a: ud=-7;{Underline Distance (dots),  byte 30}
  55.   a: uh=3;{Underline Height (dots),  byte 31, LaserJet is always 3}
  56.   a: th=200;{Text Height (quarter dots),  byte 32,33}
  57.   a: tw=120;{Text Width (quarter dots),  byte 34,35}
  58.   a: fc=32;{First Code,  byte 36,37}
  59.   a: lc=255;{Last Code,  byte 38,39}
  60.   a: pe=0;{Pitch Extended (1024ths dot),  byte 40}
  61.   a: he=0;{Height Extended (1024ths dot),  byte 41}
  62.   a:z3=0;{bytes 42,43 reserved, set to 0}
  63.   a:z7=0;{for bytes 44-45, in case they are not 0 in original font}
  64.   a: fm=1;{bytes 44-47 font number, always 1 for LaserJet softfonts}
  65.   t: fn="................";{Font Name (16 chars),  bytes 48-63}
  66. {this is the end of the currently standard font descriptor}
  67.   t:ex="";{any extended area between font descriptor and escape length.}
  68.  
  69. a: d8=0;   {d8=0 during font save to file, d8=1 for downloading}
  70. e; {end initialization section.}
  71. a: zt=0; {will get no font trailer message if not loading entire font}
  72.  
  73. Ki1,"Load entire font."; {start input entire font.}
  74. Ki2,"Load font descriptor only.";
  75.  
  76.  {a little re-initialization first}
  77.   a:z2=0;
  78.   a:z4=0;
  79.   a:z8=0;
  80.   a:z3=0;
  81.   a:z7=0;
  82.   a:fm=1;
  83.   t: fn="................";
  84.   t:ex="";
  85.  
  86. a: zt=1; {used to suppress no font trailer message}
  87. #:**, "Loading Font Descriptor ";
  88.   L 2;
  89.   u: za;
  90.   j 2: za,ne,$1b; {look for esc}
  91.   u: zb;
  92.   j 2: zb,ne,$29; {look for ) }
  93.   u: zc;
  94.   j 2: zc,ne,$73;  {look for s }
  95.   d: zl;      {escape sequence main data length}
  96.   u: zz;      {throw away term char}
  97.   w: fd,"Font Descriptor size";      {font descriptor size}
  98. z 6:fd-2;     {skip to end when length of font descriptor is reached}
  99.   u: z2;      {reserved}
  100.   u: ft,"Font type";
  101.   w: z4;      {reserved}
  102.   w: bl; {Baseline Distance (dots)}
  103.   w: fw; {Cell Width (dots)}
  104.   w: fh; {Cell Height (dots)}
  105.   a:aw=fw; a:ah=fh; a:bw=fw; a:bh=fh; {resize parms, for convenience}
  106.   u: oo; {font overall orientation}
  107.   u: ks,"Spacing (0=fixed,1=prop)";
  108.   w: ss,"Symbol Set";
  109.   w: pt,"Pitch (quarter dots)";
  110.   w: jh,"Height (quarter dots)";
  111.   w: xh;{reserved, was xHeight (quarter dots)}
  112.   s: wt,"Width Type";
  113.   u: st,"Style";
  114.   s: sw,"Stroke Weight";
  115.   u: tf,"Typeface";
  116.   u: sl,"Slant";{0 is normal}
  117.   u: sf,"Serif Style";
  118.   w: z8;      {reserved}
  119.   s: ud,"Underline Distance (dots)";
  120.   u: uh,"Underline Height (dots)";
  121.   w: th,"Text Height (quarter dots)";
  122.   w: tw,"Text Width (quarter dots)";
  123.   w: fc,"First Code";
  124.   w: lc,"Last Code";
  125.   u: pe,"Pitch Extended (1024ths dot)";
  126.   u: he,"Height Extended (1024ths dot)";
  127.   w: z3;      {reserved}
  128.   w: z7;      {reserved, or high order of font number}
  129.   w: fm;      {font number, always set to 1 for softfonts}
  130.   q: fn,,16,"Font Name";
  131. L 6;{ end of standard font descriptor}
  132.   r;{reset length limit, just in case there is a bug}
  133. z 7:zl-fd; {set length limit to what's left of escape sequence data length}
  134.   q: ex,,,"Extended area"; {allowed to terminate by next escape}
  135. L 7;{ end of font descriptor load}
  136.   r;{reset length limit}
  137. Ei2; {end of font descriptor}
  138.   L 8;
  139. j 12:fp,ge,fs;
  140.   u: zz;
  141.   j 8: zz,ne,$1b; {look for esc}
  142.   u: zz;
  143.   j 8: zz,ne,$2a; {look for * }
  144.   u: zz;
  145.   j 8: zz,ne,$63;  {look for c }
  146.   d: cc;      {decimal code of character}
  147.   u: zz;      {throw away term char}
  148. L1; {label 1 to indicate start of character.}
  149. $ : cc,"Loading code (hex) ";
  150.   L 11;
  151.   u: zz;
  152.   j 11: zz,ne,$1b; {look for esc}
  153.   u: zz;
  154.   j 11: zz,ne,$28; {look for ( }
  155.   u: zz;
  156.   j 11: zz,ne,$73;  {look for c }
  157.   d: zl;      {length of character descriptor and data}
  158.   u: zz;      {throw away term char}
  159.   u: zf;      {format of descriptor}
  160.   u: zx;      {continuation}
  161.   u: zs;      {descriptor size}
  162. z 19:zs-1;
  163.   u: cl;      {class ( data format)}
  164.   u: or;  {Character Orientation}
  165.   u: zz;  {reserved}
  166.   i: lo;  {left offset}
  167.   i: to;  {top offset}
  168.   w: cw;  {character width}
  169.   w: ch;  {character height}
  170.   i: ep;  {endpoint}
  171. L 19; R;
  172.   a: xl=zl-zs-2; {actual datalength}
  173. j 31: zx,ne,0;
  174.   g:0,xl; {character data}
  175.   a: xc=xl;
  176. L 31;
  177. j 32: zx,ne,1;
  178.   g:xc,xl; {character data}
  179.   a: xc=0;
  180. L 32;
  181. Ei4,1; {end character search, character loaded.}
  182.   j 8;        {go get next char}
  183. L 12;
  184. #:**,"Font loaded.";
  185. Ei1,2,0; {end entire font.}
  186.  
  187. Ki4,"Load current character only."; {start search for an input character.}
  188.   z 10:fs-fp;
  189.   L 9;
  190.   u: zz;
  191.   j 9: zz,ne,$1b; {look for esc}
  192.   u: zz;
  193.   j 9: zz,ne,$2a; {look for * }
  194.   u: zz;
  195.   j 9: zz,ne,$63;  {look for c }
  196.   d: zc;      {decimal code of character}
  197. $: zc,"Encountered code (hex): ";
  198. #: fp,"At file position: ";
  199.   u: zz;      {throw away term char}
  200. j 14: zc,eq,cc;
  201.   L 13;
  202.   u: zz;
  203.   j 13: zz,ne,$1b; {look for esc}
  204.   u: zz;
  205.   j 13: zz,ne,$28; {look for ( }
  206.   u: zz;
  207.   j 13: zz,ne,$73;  {look for c }
  208.   d: zl;      {length of character descriptor and data}
  209.   u: zz;      {throw away term char}
  210.   p: fp + zl - 1; {position file past this character}
  211.   j 9: zc,ne,cc;  {looking for current code}
  212. L 14;
  213. # : cc,"Found code (dec)";
  214.   j 1;           {found, go get it}
  215.   L 10;       {char not found}
  216. Eo4; {end character search program (unsuccessful search)}
  217.  
  218. Ko1,"Save entire font."; {start output entire font.}
  219. Ko2,"Save font descriptor only.";
  220. L 88; {for download}
  221. #:**, "Sending Font Descriptor ";
  222.   u:$1b;
  223.   u:$29;
  224.   u:$73;
  225.   d:fd+ex;      {escape sequence main data length}
  226.   y:"W";      {term char}
  227. z 46:fd;   {set length limit}
  228.   w: fd;      {font descriptor size}
  229.   u: z2;      {reserved}
  230.   u: ft;       {font type}
  231.   w: z4;      {reserved}
  232.   w: bl;     {Baseline Distance (dots)}
  233.   w: fw; {Cell Width (dots)}
  234.   w: fh; {Cell Height (dots)}
  235.   u: oo; {Orientation (0=portrt,1=landscp)}
  236.   u: ks; {Spacing (0=fixed,1=prop)}
  237.   w: ss; {Symbol Set for ss esc seq val = 1024, term char = A, ss=32769dec}
  238.   w: pt; {Pitch (quarter dots)}
  239.   w: jh; {Height (quarter dots)}
  240.   w: xh; {xHeight (quarter dots)}
  241.   s: wt; {Width Type}
  242.   u: st; {Style}
  243.   s: sw; {Stroke Weight}
  244.   u: tf; {Typeface}
  245.   u:sl;  {Slant}
  246.   u: sf; {Serif Style}
  247.   w: z8;      {reserved}
  248.   s: ud; {Underline Distance (dots)}
  249.   u: uh; {Underline Height (dots)}
  250.   w: th; {Text Height (quarter dots)}
  251.   w: tw; {Text Width (quarter dots)}
  252.   w: fc;{First Code,  byte 36,37}
  253.   w: lc;{Last Code,  byte 38,39}
  254.   u: pe;  {Pitch Extended (1024ths dot)}
  255.   u: he;  {Height Extended (1024ths dot)}
  256.   w: z3;      {reserved}
  257.   w: z7;      {high order word of font number}
  258.   w: fm;      {font number, always 1 for laserjet softfonts}
  259. j 61:fn,lt,16; {don't do next line if font name is less than 16}
  260.   q: fn,0,16; {Font Name, should be 16 characters, truncated if more}
  261. j 46;
  262. L 61; {routine if fn is less than 16 and needs padding}
  263.   t: ef="                "; {16 blanks, in case part needed for fname}
  264.   a: el=16-fn;{calculate number of trailing blanks needed}
  265.   q: fn;      {font name}
  266.   q: ef,0,el; {add trailing blanks to make 16}
  267. L 46; {end font descriptor output}
  268.   r; {reset length limit}
  269.   q: ex; {extended area, if any}
  270. Eo2; {end output font descriptor.}
  271. a:cc=0;  {start with first possible code, zero}
  272. c;       {select first valid code}
  273. j 57;        {bypass first code check}
  274. L 55;
  275.   c;  {select first valid code}
  276. j 59:cc,eq,0;  {go to 59 if no more valid codes}
  277. L 57;
  278. Ko4,"Append current character to output file.",A; {start output character}
  279. $ :cc,"Sending code (hex): ";
  280.   u:$1b;
  281.   u:$2a;
  282.   u:$63;
  283.   d: cc;      {decimal code of character}
  284.   u:$45;      {term char}
  285.   u:$1b;
  286.   u:$28;
  287.   u:$73;
  288.   d: dl+16;      {length of character descriptor and data}
  289.   y:"W";      {term char}
  290.   u:zf;     {format of descriptor}
  291.   u:zx;     {continuation}
  292.   u:zs;       {descriptor size}
  293.   u:cl;       {class ( data format)}
  294.   u:or;     {Character Orientation}
  295.   u:0;  {reserved}
  296.   i: lo;  {left offset}
  297.   i: to;  {top offset}
  298.   w: cw;  {character width}
  299.   w: ch;  {character height}
  300.   i: ep;  {endpoint}
  301.   g;   {character data}
  302. Eo4; {end output character.}
  303. a:cc=cc+1;
  304. j 55;
  305. L 59;   {end}
  306. j 89:d8,eq,1; {go finish download if downloading}
  307. Eo1; {end output entire font.}
  308. KP; {start download}
  309.   a:d8=1;  {downloading indicator}
  310. #a:id," Enter a font ID number (0 to 32767): ";
  311.   u:$1b;
  312.   u:$2a;
  313.   u:$63;
  314.   d:id;
  315.   u:$44;
  316. j 88;         {go save font to the printer}
  317. L 89; {now make it primary}
  318.   a:d8=0; {turn off download indicator}
  319.   u:$1b;
  320.   u:$28;
  321. #:id," Font loaded as primary with ID: ";
  322.   d:id;
  323.   u:$58;
  324. EP; {end download}
  325. .
  326.