%	Vector font base
%	Copyright (c) 1984,1985,1986, 1987 John S. Renner
%	All rights reserved.
%
%
%
%  the following variables must be defined
%  before inputting this file
%	   mode (the resolution:: e.g., islaprinter or isxerox, etc.)
%	   w0	(the width of the pen in "vec units")
%	   w1   (the height of the pen in "vec units")
%			(note that w0 == w1 for a circular pen)
%	   the type of pen to use (cpen, vpen, hpen)
%
pxlmode; tfmmode; fntmode;
islaprinter = 100;  % just names
isxerox = 2700;
issun = 500;

if mode = islaprinter:
	mag = 0.66;  %for DEC LA100 printer
else: if mode = isxerox:
	mag = 1.5;  %for Xerox X2700
else: if mode = issun:
	mag = .59;
fi; fi; fi;


ptsperinch=72.27;
spperinch=(65536.ptsperinch);
pixperinch=(200.mag);
pixpersp = (pixperinch / spperinch);
vecunit = 1; 		% just a name
vecmeasure = 16384;	% in scaled points  2^14 sp
ptsperpixel = (ptsperinch / pixperinch);
pixpervecunit = pixpersp.vecmeasure;
ptspervecunit = ptsperpixel.pixpervecunit;

hresolution pixperinch;
vresolution pixperinch;

%
% we allow only Odd sized diameters for vector pens
% to avoid the off-by-one-half-pixel  errors
%

tempa = w1.pixpervecunit;  % go from the user-specification
if tempa < 1 :		   % of pen size, to pixels
    new w1; w1 = 1;		   % taking care of underflow
else:
    new w1; w1 = 2*(round ((tempa - 1)/2)) + 1;
fi;

tempb = w0.pixpervecunit;
if tempb < 1 :
    new w0; w0 = 1;
else:
    new w0; w0 = 2*(round ((tempb - 1)/2)) + 1;
fi;

% pre-calculate some TeX information so that we can 
%     adjust it if necessary

ds = ((16 vecunit).ptspervecunit);   %the design size in points
if ds < 1.0 :
    new ds; ds = 1.0;
fi;

%-----------------Tex information---------------------
%	w0 is horizontal width
%	w1 is vertical height

magnification mag;
designsize ds;
fontidentifier "GRAPHIC-VECTORS";
codingscheme "ASCII";
maxht ((w1/2) + 16.vecunit.pixpervecunit);  %in pixels I think

texinfo 0,		%   -- but we'll use it for our own use
	0,		%   --and interpret them in our own way
(w0.ptsperpixel),	%   W0 the horizontal width
(w1.ptsperpixel),	%   W1 the vertical width
(16.vecunit.ptspervecunit),	%   Maxvectorlength
(16.vecunit.ptspervecunit),	%    "
	0;		%   empty


%
%  set the pen dimensions
%
eqtrace;
vpenht = round (w1);
hpenwd = round (w0);
if w1 > w0 :		% probably a vpen
	w8 = w1;
else:			%probably a hpen
	w8 = w0;
fi;
no eqtrace;


no penreset;		%  VERY IMPORTANT
no pagewarning;



subroutine vect (var dx)	
		(var dy):
x0 = 0;
y0 = 0;
if dx > 0 :
    x1 = (dx.pixpervecunit) + 1; % what's an extra pixel among friends?
else:
    x1 = (dx.pixpervecunit);
fi;

if dy > 0 :
   y1 = (dy.pixpervecunit) + 1;
else: if dy = 0 :
   y1 = (dy.pixpervecunit) + 0;
else : if dy < 0 :
   y1 = (dy.pixpervecunit) - 1;
fi; fi; fi;

w8 draw 0..1.



charcode 0;
charht (( 15.9688.vecunit).ptspervecunit);
chardp 0;
charwd ((  0.9981.vecunit).ptspervecunit);
call vect (  0.9981,  15.9688).



charcode 1;
charht (( 15.8764.vecunit).ptspervecunit);
chardp 0;
charwd ((  1.9846.vecunit).ptspervecunit);
call vect (  1.9846,  15.8764).



charcode 2;
charht (( 15.7260.vecunit).ptspervecunit);
chardp 0;
charwd ((  2.9486.vecunit).ptspervecunit);
call vect (  2.9486,  15.7260).



charcode 3;
charht (( 15.5223.vecunit).ptspervecunit);
chardp 0;
charwd ((  3.8806.vecunit).ptspervecunit);
call vect (  3.8806,  15.5223).



charcode 4;
charht (( 15.2717.vecunit).ptspervecunit);
chardp 0;
charwd ((  4.7724.vecunit).ptspervecunit);
call vect (  4.7724,  15.2717).



charcode 5;
charht (( 14.9813.vecunit).ptspervecunit);
chardp 0;
charwd ((  5.6180.vecunit).ptspervecunit);
call vect (  5.6180,  14.9813).



charcode 6;
charht (( 14.6585.vecunit).ptspervecunit);
chardp 0;
charwd ((  6.4131.vecunit).ptspervecunit);
call vect (  6.4131,  14.6585).



charcode 7;
charht (( 14.3108.vecunit).ptspervecunit);
chardp 0;
charwd ((  7.1554.vecunit).ptspervecunit);
call vect (  7.1554,  14.3108).



charcode 8;
charht (( 13.9452.vecunit).ptspervecunit);
chardp 0;
charwd ((  7.8442.vecunit).ptspervecunit);
call vect (  7.8442,  13.9452).



charcode 9;
charht (( 13.5680.vecunit).ptspervecunit);
chardp 0;
charwd ((  8.4800.vecunit).ptspervecunit);
call vect (  8.4800,  13.5680).



charcode 10;
charht (( 13.1847.vecunit).ptspervecunit);
chardp 0;
charwd ((  9.0645.vecunit).ptspervecunit);
call vect (  9.0645,  13.1847).



charcode 11;
charht (( 12.8000.vecunit).ptspervecunit);
chardp 0;
charwd ((  9.6000.vecunit).ptspervecunit);
call vect (  9.6000,  12.8000).



charcode 12;
charht (( 12.4178.vecunit).ptspervecunit);
chardp 0;
charwd (( 10.0895.vecunit).ptspervecunit);
call vect ( 10.0895,  12.4178).



charcode 13;
charht (( 12.0412.vecunit).ptspervecunit);
chardp 0;
charwd (( 10.5361.vecunit).ptspervecunit);
call vect ( 10.5361,  12.0412).



charcode 14;
charht (( 11.6726.vecunit).ptspervecunit);
chardp 0;
charwd (( 10.9431.vecunit).ptspervecunit);
call vect ( 10.9431,  11.6726).



charcode 15;
charht (( 11.3137.vecunit).ptspervecunit);
chardp 0;
charwd (( 11.3137.vecunit).ptspervecunit);
call vect ( 11.3137,  11.3137).



charcode 16;
charht (( 10.9431.vecunit).ptspervecunit);
chardp 0;
charwd (( 11.6726.vecunit).ptspervecunit);
call vect ( 11.6726,  10.9431).



charcode 17;
charht (( 10.5361.vecunit).ptspervecunit);
chardp 0;
charwd (( 12.0412.vecunit).ptspervecunit);
call vect ( 12.0412,  10.5361).



charcode 18;
charht (( 10.0895.vecunit).ptspervecunit);
chardp 0;
charwd (( 12.4178.vecunit).ptspervecunit);
call vect ( 12.4178,  10.0895).



charcode 19;
charht ((  9.6000.vecunit).ptspervecunit);
chardp 0;
charwd (( 12.8000.vecunit).ptspervecunit);
call vect ( 12.8000,   9.6000).



charcode 20;
charht ((  9.0645.vecunit).ptspervecunit);
chardp 0;
charwd (( 13.1847.vecunit).ptspervecunit);
call vect ( 13.1847,   9.0645).



charcode 21;
charht ((  8.4800.vecunit).ptspervecunit);
chardp 0;
charwd (( 13.5680.vecunit).ptspervecunit);
call vect ( 13.5680,   8.4800).



charcode 22;
charht ((  7.8442.vecunit).ptspervecunit);
chardp 0;
charwd (( 13.9452.vecunit).ptspervecunit);
call vect ( 13.9452,   7.8442).



charcode 23;
charht ((  7.1554.vecunit).ptspervecunit);
chardp 0;
charwd (( 14.3108.vecunit).ptspervecunit);
call vect ( 14.3108,   7.1554).



charcode 24;
charht ((  6.4131.vecunit).ptspervecunit);
chardp 0;
charwd (( 14.6585.vecunit).ptspervecunit);
call vect ( 14.6585,   6.4131).



charcode 25;
charht ((  5.6180.vecunit).ptspervecunit);
chardp 0;
charwd (( 14.9813.vecunit).ptspervecunit);
call vect ( 14.9813,   5.6180).



charcode 26;
charht ((  4.7724.vecunit).ptspervecunit);
chardp 0;
charwd (( 15.2717.vecunit).ptspervecunit);
call vect ( 15.2717,   4.7724).



charcode 27;
charht ((  3.8806.vecunit).ptspervecunit);
chardp 0;
charwd (( 15.5223.vecunit).ptspervecunit);
call vect ( 15.5223,   3.8806).



charcode 28;
charht ((  2.9486.vecunit).ptspervecunit);
chardp 0;
charwd (( 15.7260.vecunit).ptspervecunit);
call vect ( 15.7260,   2.9486).



charcode 29;
charht ((  1.9846.vecunit).ptspervecunit);
chardp 0;
charwd (( 15.8764.vecunit).ptspervecunit);
call vect ( 15.8764,   1.9846).



charcode 30;
charht ((  0.9981.vecunit).ptspervecunit);
chardp 0;
charwd (( 15.9688.vecunit).ptspervecunit);
call vect ( 15.9688,   0.9981).



charcode 31;
charht ((  0.0000.vecunit).ptspervecunit);
chardp 0;
charwd (( 16.0000.vecunit).ptspervecunit);
call vect ( 16.0000,   0.0000).



charcode 32;
charht 0;
chardp ((  0.9981.vecunit).ptspervecunit);
charwd (( 15.9688.vecunit).ptspervecunit);
call vect ( 15.9688,  -0.9981).



charcode 33;
charht 0;
chardp ((  1.9846.vecunit).ptspervecunit);
charwd (( 15.8764.vecunit).ptspervecunit);
call vect ( 15.8764,  -1.9846).



charcode 34;
charht 0;
chardp ((  2.9486.vecunit).ptspervecunit);
charwd (( 15.7260.vecunit).ptspervecunit);
call vect ( 15.7260,  -2.9486).



charcode 35;
charht 0;
chardp ((  3.8806.vecunit).ptspervecunit);
charwd (( 15.5223.vecunit).ptspervecunit);
call vect ( 15.5223,  -3.8806).



charcode 36;
charht 0;
chardp ((  4.7724.vecunit).ptspervecunit);
charwd (( 15.2717.vecunit).ptspervecunit);
call vect ( 15.2717,  -4.7724).



charcode 37;
charht 0;
chardp ((  5.6180.vecunit).ptspervecunit);
charwd (( 14.9813.vecunit).ptspervecunit);
call vect ( 14.9813,  -5.6180).



charcode 38;
charht 0;
chardp ((  6.4131.vecunit).ptspervecunit);
charwd (( 14.6585.vecunit).ptspervecunit);
call vect ( 14.6585,  -6.4131).



charcode 39;
charht 0;
chardp ((  7.1554.vecunit).ptspervecunit);
charwd (( 14.3108.vecunit).ptspervecunit);
call vect ( 14.3108,  -7.1554).



charcode 40;
charht 0;
chardp ((  7.8442.vecunit).ptspervecunit);
charwd (( 13.9452.vecunit).ptspervecunit);
call vect ( 13.9452,  -7.8442).



charcode 41;
charht 0;
chardp ((  8.4800.vecunit).ptspervecunit);
charwd (( 13.5680.vecunit).ptspervecunit);
call vect ( 13.5680,  -8.4800).



charcode 42;
charht 0;
chardp ((  9.0645.vecunit).ptspervecunit);
charwd (( 13.1847.vecunit).ptspervecunit);
call vect ( 13.1847,  -9.0645).



charcode 43;
charht 0;
chardp ((  9.6000.vecunit).ptspervecunit);
charwd (( 12.8000.vecunit).ptspervecunit);
call vect ( 12.8000,  -9.6000).



charcode 44;
charht 0;
chardp (( 10.0895.vecunit).ptspervecunit);
charwd (( 12.4178.vecunit).ptspervecunit);
call vect ( 12.4178, -10.0895).



charcode 45;
charht 0;
chardp (( 10.5361.vecunit).ptspervecunit);
charwd (( 12.0412.vecunit).ptspervecunit);
call vect ( 12.0412, -10.5361).



charcode 46;
charht 0;
chardp (( 10.9431.vecunit).ptspervecunit);
charwd (( 11.6726.vecunit).ptspervecunit);
call vect ( 11.6726, -10.9431).



charcode 47;
charht 0;
chardp (( 11.3137.vecunit).ptspervecunit);
charwd (( 11.3137.vecunit).ptspervecunit);
call vect ( 11.3137, -11.3137).



charcode 48;
charht 0;
chardp (( 11.6726.vecunit).ptspervecunit);
charwd (( 10.9431.vecunit).ptspervecunit);
call vect ( 10.9431, -11.6726).



charcode 49;
charht 0;
chardp (( 12.0412.vecunit).ptspervecunit);
charwd (( 10.5361.vecunit).ptspervecunit);
call vect ( 10.5361, -12.0412).



charcode 50;
charht 0;
chardp (( 12.4178.vecunit).ptspervecunit);
charwd (( 10.0895.vecunit).ptspervecunit);
call vect ( 10.0895, -12.4178).



charcode 51;
charht 0;
chardp (( 12.8000.vecunit).ptspervecunit);
charwd ((  9.6000.vecunit).ptspervecunit);
call vect (  9.6000, -12.8000).



charcode 52;
charht 0;
chardp (( 13.1847.vecunit).ptspervecunit);
charwd ((  9.0645.vecunit).ptspervecunit);
call vect (  9.0645, -13.1847).



charcode 53;
charht 0;
chardp (( 13.5680.vecunit).ptspervecunit);
charwd ((  8.4800.vecunit).ptspervecunit);
call vect (  8.4800, -13.5680).



charcode 54;
charht 0;
chardp (( 13.9452.vecunit).ptspervecunit);
charwd ((  7.8442.vecunit).ptspervecunit);
call vect (  7.8442, -13.9452).



charcode 55;
charht 0;
chardp (( 14.3108.vecunit).ptspervecunit);
charwd ((  7.1554.vecunit).ptspervecunit);
call vect (  7.1554, -14.3108).



charcode 56;
charht 0;
chardp (( 14.6585.vecunit).ptspervecunit);
charwd ((  6.4131.vecunit).ptspervecunit);
call vect (  6.4131, -14.6585).



charcode 57;
charht 0;
chardp (( 14.9813.vecunit).ptspervecunit);
charwd ((  5.6180.vecunit).ptspervecunit);
call vect (  5.6180, -14.9813).



charcode 58;
charht 0;
chardp (( 15.2717.vecunit).ptspervecunit);
charwd ((  4.7724.vecunit).ptspervecunit);
call vect (  4.7724, -15.2717).



charcode 59;
charht 0;
chardp (( 15.5223.vecunit).ptspervecunit);
charwd ((  3.8806.vecunit).ptspervecunit);
call vect (  3.8806, -15.5223).



charcode 60;
charht 0;
chardp (( 15.7260.vecunit).ptspervecunit);
charwd ((  2.9486.vecunit).ptspervecunit);
call vect (  2.9486, -15.7260).



charcode 61;
charht 0;
chardp (( 15.8764.vecunit).ptspervecunit);
charwd ((  1.9846.vecunit).ptspervecunit);
call vect (  1.9846, -15.8764).



charcode 62;
charht 0;
chardp (( 15.9688.vecunit).ptspervecunit);
charwd ((  0.9981.vecunit).ptspervecunit);
call vect (  0.9981, -15.9688).



charcode 63;
charht ((  8.0000.vecunit).ptspervecunit);
chardp 0;
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,   8.0000).



charcode 64;
charht ((  7.9382.vecunit).ptspervecunit);
chardp 0;
charwd ((  0.9923.vecunit).ptspervecunit);
call vect (  0.9923,   7.9382).



charcode 65;
charht ((  7.7611.vecunit).ptspervecunit);
chardp 0;
charwd ((  1.9403.vecunit).ptspervecunit);
call vect (  1.9403,   7.7611).



charcode 66;
charht ((  7.4906.vecunit).ptspervecunit);
chardp 0;
charwd ((  2.8090.vecunit).ptspervecunit);
call vect (  2.8090,   7.4906).



charcode 67;
charht ((  7.1554.vecunit).ptspervecunit);
chardp 0;
charwd ((  3.5777.vecunit).ptspervecunit);
call vect (  3.5777,   7.1554).



charcode 68;
charht ((  6.7840.vecunit).ptspervecunit);
chardp 0;
charwd ((  4.2400.vecunit).ptspervecunit);
call vect (  4.2400,   6.7840).



charcode 69;
charht ((  6.4000.vecunit).ptspervecunit);
chardp 0;
charwd ((  4.8000.vecunit).ptspervecunit);
call vect (  4.8000,   6.4000).



charcode 70;
charht ((  6.0206.vecunit).ptspervecunit);
chardp 0;
charwd ((  5.2680.vecunit).ptspervecunit);
call vect (  5.2680,   6.0206).



charcode 71;
charht ((  5.6569.vecunit).ptspervecunit);
chardp 0;
charwd ((  5.6569.vecunit).ptspervecunit);
call vect (  5.6569,   5.6569).



charcode 72;
charht ((  5.2680.vecunit).ptspervecunit);
chardp 0;
charwd ((  6.0206.vecunit).ptspervecunit);
call vect (  6.0206,   5.2680).



charcode 73;
charht ((  4.8000.vecunit).ptspervecunit);
chardp 0;
charwd ((  6.4000.vecunit).ptspervecunit);
call vect (  6.4000,   4.8000).



charcode 74;
charht ((  4.2400.vecunit).ptspervecunit);
chardp 0;
charwd ((  6.7840.vecunit).ptspervecunit);
call vect (  6.7840,   4.2400).



charcode 75;
charht ((  3.5777.vecunit).ptspervecunit);
chardp 0;
charwd ((  7.1554.vecunit).ptspervecunit);
call vect (  7.1554,   3.5777).



charcode 76;
charht ((  2.8090.vecunit).ptspervecunit);
chardp 0;
charwd ((  7.4906.vecunit).ptspervecunit);
call vect (  7.4906,   2.8090).



charcode 77;
charht ((  1.9403.vecunit).ptspervecunit);
chardp 0;
charwd ((  7.7611.vecunit).ptspervecunit);
call vect (  7.7611,   1.9403).



charcode 78;
charht ((  0.9923.vecunit).ptspervecunit);
chardp 0;
charwd ((  7.9382.vecunit).ptspervecunit);
call vect (  7.9382,   0.9923).



charcode 79;
charht ((  0.0000.vecunit).ptspervecunit);
chardp 0;
charwd ((  8.0000.vecunit).ptspervecunit);
call vect (  8.0000,   0.0000).



charcode 80;
charht 0;
chardp ((  0.9923.vecunit).ptspervecunit);
charwd ((  7.9382.vecunit).ptspervecunit);
call vect (  7.9382,  -0.9923).



charcode 81;
charht 0;
chardp ((  1.9403.vecunit).ptspervecunit);
charwd ((  7.7611.vecunit).ptspervecunit);
call vect (  7.7611,  -1.9403).



charcode 82;
charht 0;
chardp ((  2.8090.vecunit).ptspervecunit);
charwd ((  7.4906.vecunit).ptspervecunit);
call vect (  7.4906,  -2.8090).



charcode 83;
charht 0;
chardp ((  3.5777.vecunit).ptspervecunit);
charwd ((  7.1554.vecunit).ptspervecunit);
call vect (  7.1554,  -3.5777).



charcode 84;
charht 0;
chardp ((  4.2400.vecunit).ptspervecunit);
charwd ((  6.7840.vecunit).ptspervecunit);
call vect (  6.7840,  -4.2400).



charcode 85;
charht 0;
chardp ((  4.8000.vecunit).ptspervecunit);
charwd ((  6.4000.vecunit).ptspervecunit);
call vect (  6.4000,  -4.8000).



charcode 86;
charht 0;
chardp ((  5.2680.vecunit).ptspervecunit);
charwd ((  6.0206.vecunit).ptspervecunit);
call vect (  6.0206,  -5.2680).



charcode 87;
charht 0;
chardp ((  5.6569.vecunit).ptspervecunit);
charwd ((  5.6569.vecunit).ptspervecunit);
call vect (  5.6569,  -5.6569).



charcode 88;
charht 0;
chardp ((  6.0206.vecunit).ptspervecunit);
charwd ((  5.2680.vecunit).ptspervecunit);
call vect (  5.2680,  -6.0206).



charcode 89;
charht 0;
chardp ((  6.4000.vecunit).ptspervecunit);
charwd ((  4.8000.vecunit).ptspervecunit);
call vect (  4.8000,  -6.4000).



charcode 90;
charht 0;
chardp ((  6.7840.vecunit).ptspervecunit);
charwd ((  4.2400.vecunit).ptspervecunit);
call vect (  4.2400,  -6.7840).



charcode 91;
charht 0;
chardp ((  7.1554.vecunit).ptspervecunit);
charwd ((  3.5777.vecunit).ptspervecunit);
call vect (  3.5777,  -7.1554).



charcode 92;
charht 0;
chardp ((  7.4906.vecunit).ptspervecunit);
charwd ((  2.8090.vecunit).ptspervecunit);
call vect (  2.8090,  -7.4906).



charcode 93;
charht 0;
chardp ((  7.7611.vecunit).ptspervecunit);
charwd ((  1.9403.vecunit).ptspervecunit);
call vect (  1.9403,  -7.7611).



charcode 94;
charht 0;
chardp ((  7.9382.vecunit).ptspervecunit);
charwd ((  0.9923.vecunit).ptspervecunit);
call vect (  0.9923,  -7.9382).



charcode 95;
charht 0;
chardp ((  8.0000.vecunit).ptspervecunit);
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,  -8.0000).



charcode 96;
charht ((  4.0000.vecunit).ptspervecunit);
chardp 0;
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,   4.0000).



charcode 97;
charht ((  3.8806.vecunit).ptspervecunit);
chardp 0;
charwd ((  0.9701.vecunit).ptspervecunit);
call vect (  0.9701,   3.8806).



charcode 98;
charht ((  3.5777.vecunit).ptspervecunit);
chardp 0;
charwd ((  1.7889.vecunit).ptspervecunit);
call vect (  1.7889,   3.5777).



charcode 99;
charht ((  3.2000.vecunit).ptspervecunit);
chardp 0;
charwd ((  2.4000.vecunit).ptspervecunit);
call vect (  2.4000,   3.2000).



charcode 100;
charht ((  2.8284.vecunit).ptspervecunit);
chardp 0;
charwd ((  2.8284.vecunit).ptspervecunit);
call vect (  2.8284,   2.8284).



charcode 101;
charht ((  2.4000.vecunit).ptspervecunit);
chardp 0;
charwd ((  3.2000.vecunit).ptspervecunit);
call vect (  3.2000,   2.4000).



charcode 102;
charht ((  1.7889.vecunit).ptspervecunit);
chardp 0;
charwd ((  3.5777.vecunit).ptspervecunit);
call vect (  3.5777,   1.7889).



charcode 103;
charht ((  0.9701.vecunit).ptspervecunit);
chardp 0;
charwd ((  3.8806.vecunit).ptspervecunit);
call vect (  3.8806,   0.9701).



charcode 104;
charht ((  0.0000.vecunit).ptspervecunit);
chardp 0;
charwd ((  4.0000.vecunit).ptspervecunit);
call vect (  4.0000,   0.0000).



charcode 105;
charht 0;
chardp ((  0.9701.vecunit).ptspervecunit);
charwd ((  3.8806.vecunit).ptspervecunit);
call vect (  3.8806,  -0.9701).



charcode 106;
charht 0;
chardp ((  1.7889.vecunit).ptspervecunit);
charwd ((  3.5777.vecunit).ptspervecunit);
call vect (  3.5777,  -1.7889).



charcode 107;
charht 0;
chardp ((  2.4000.vecunit).ptspervecunit);
charwd ((  3.2000.vecunit).ptspervecunit);
call vect (  3.2000,  -2.4000).



charcode 108;
charht 0;
chardp ((  2.8284.vecunit).ptspervecunit);
charwd ((  2.8284.vecunit).ptspervecunit);
call vect (  2.8284,  -2.8284).



charcode 109;
charht 0;
chardp ((  3.2000.vecunit).ptspervecunit);
charwd ((  2.4000.vecunit).ptspervecunit);
call vect (  2.4000,  -3.2000).



charcode 110;
charht 0;
chardp ((  3.5777.vecunit).ptspervecunit);
charwd ((  1.7889.vecunit).ptspervecunit);
call vect (  1.7889,  -3.5777).



charcode 111;
charht 0;
chardp ((  3.8806.vecunit).ptspervecunit);
charwd ((  0.9701.vecunit).ptspervecunit);
call vect (  0.9701,  -3.8806).



charcode 112;
charht 0;
chardp ((  4.0000.vecunit).ptspervecunit);
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,  -4.0000).



charcode 113;
charht ((  2.0000.vecunit).ptspervecunit);
chardp 0;
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,   2.0000).



charcode 114;
charht ((  1.7889.vecunit).ptspervecunit);
chardp 0;
charwd ((  0.8944.vecunit).ptspervecunit);
call vect (  0.8944,   1.7889).



charcode 115;
charht ((  1.4142.vecunit).ptspervecunit);
chardp 0;
charwd ((  1.4142.vecunit).ptspervecunit);
call vect (  1.4142,   1.4142).



charcode 116;
charht ((  0.8944.vecunit).ptspervecunit);
chardp 0;
charwd ((  1.7889.vecunit).ptspervecunit);
call vect (  1.7889,   0.8944).



charcode 117;
charht ((  0.0000.vecunit).ptspervecunit);
chardp 0;
charwd ((  2.0000.vecunit).ptspervecunit);
call vect (  2.0000,   0.0000).



charcode 118;
charht 0;
chardp ((  0.8944.vecunit).ptspervecunit);
charwd ((  1.7889.vecunit).ptspervecunit);
call vect (  1.7889,  -0.8944).



charcode 119;
charht 0;
chardp ((  1.4142.vecunit).ptspervecunit);
charwd ((  1.4142.vecunit).ptspervecunit);
call vect (  1.4142,  -1.4142).



charcode 120;
charht 0;
chardp ((  1.7889.vecunit).ptspervecunit);
charwd ((  0.8944.vecunit).ptspervecunit);
call vect (  0.8944,  -1.7889).



charcode 121;
charht 0;
chardp ((  2.0000.vecunit).ptspervecunit);
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,  -2.0000).



charcode 122;
charht ((  1.0000.vecunit).ptspervecunit);
chardp 0;
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,   1.0000).



charcode 123;
charht ((  0.7071.vecunit).ptspervecunit);
chardp 0;
charwd ((  0.7071.vecunit).ptspervecunit);
call vect (  0.7071,   0.7071).



charcode 124;
charht ((  0.0000.vecunit).ptspervecunit);
chardp 0;
charwd ((  1.0000.vecunit).ptspervecunit);
call vect (  1.0000,   0.0000).



charcode 125;
charht 0;
chardp ((  0.7071.vecunit).ptspervecunit);
charwd ((  0.7071.vecunit).ptspervecunit);
call vect (  0.7071,  -0.7071).



charcode 126;
charht 0;
chardp ((  1.0000.vecunit).ptspervecunit);
charwd (( -0.0000.vecunit).ptspervecunit);
call vect ( -0.0000,  -1.0000).



charcode 127;
charht ((  0.0000.vecunit).ptspervecunit);
chardp 0;
charwd ((1.vecunit).ptspervecunit);
call vect (  0.0000,   0.0000).