lps_flagpage

<B>Digital的Unix操作系统VAX 4.2源码</B>

%!PS-Adobe-2.0
%%Title: PostScript Digital Logo Font, v1.0
%%Creator: Ned Batchelder
%%CreationDate: 6-Nov-87
%%DocumentFonts: Symbol
%%DocumentSuppliedFonts: DigitalLogo
%%EndComments
%
%		    DIGITAL INTERNAL USE ONLY
% 
% INTRODUCTION:
% This rendition of the Digital logo was prepared by Ned Batchelder using 
% Adobe Illustrator and hand manipulation of the resulting PostScript code.
% Photographic masters of the logo were obtained from David Comberg in the
% Graphic Design Group. Additional consultation was provided by Elliot
% Hendrickson, one of the original designers of the logo.
% 
% USE:
%
% This file defines a new PostScript font, called /DigitalLogo. It consists
% of four characters:
%
%    (d) is the entire Digital logo,
%    (u) is the Ultrix Logo,
%    (t) is a small trademark symbol,
%    (T) is a large trademark symbol.
%
% The font is designed so that the argument to scalefont is the height
% of the logo. There is no extra white space around the logo at all. The
% trademarks are designed to be shown right after the logo, and they
% align themselves. The only correct strings to show with this font are
% (d), (dt), (dT), (u), (ut), and (uT).
%
%
% There is an entry
% (named GapWidth) in the font dictionary which gives the unscaled width of
% the gap between the blocks. This distance is given because it is used as a
% unit to determine how much space to leave around the logo.
% 
% HISTORY:
% The logo was designed in 1957 by Elliot Hendrickson, who was then working
% as an independent designer. He was contracted by DEC to do a brochure, and
% DEC wanted a logo to accompany it. The logo up to then had been the letters
% DEC in blocks the shape of the plug-in cards that DEC had been producing.
% Elliot re-worked the logo, incorporating letters which were hand-drawn for 
% the purpose by Arthur Hover(?). The logo has been maintained since then in 
% conventional technology, ie, film masters. There was at least one reworking 
% of the logo at some point.
% 
% The masters I received had a number of interesting features. The boxes were
% not all the same width, and there seemed to be no logic to which boxes were
% wider. The 'g' was the narrowest, and the 'i' and 'l' were second widest.
% Also, the two 'i's were not exactly the same shape. On ten-inch masters,
% (one box to an 8=x11 sheet), the boxes were not rectangles, but were very
% slightly tapered in wierd ways. I assume that the tapering is the result of
% too many reproductions, but the difference in widths may have been
% deliberate at some time. Elliot reports that when he drew it, all boxes
% were the same width. I have retained the different widths in my version,
% since the experts I had at hand did not seem to think I should make them
% uniform.
% 
% Please feel free to use this logo, but keep in mind the following:
% 
% 1. This code is for INTERNAL USE ONLY.
% 2. I am not entirely happy with the final shapes of the letters, and am
% hoping to improve them. Please allow for future updates to this code.
% 3. Only use this logo within the guidelines of the Corporate Identity
% program. If you use this font precisely as is, you can't get in much
% trouble. Don't take the shapes and do strange things with them. 
% In particular, the Identity states that the logo is a one-color logo: The
% letters are actually holes in the blocks, through which the background can
% be seen. Do not modify this code so that the letters are always white.
% 
% Edit history:
% 
% 21-Sep-87 nmb	    Created as a standalone file with demo.
%  6-Nov-87 nmb	    Converted to font form.
%  2-Jan-88 thoms   Added Ultrix logo bound to "u" (Adrian Thoms, EUEG)
%      "             (borrowed from business card kit by Ichiri Fujiura)

%%BeginFont: DigitalLogo
11 dict begin

/FontInfo 3 dict def
FontInfo begin
    /Notice
(The Digital logo is a registered trademark of Digital Equipment Corporation.
The Ultrix logo is a registered trademark of Digital Equipment Corporation.
)
    def
    /FullName (Digital logo) def
    /version (1.0) def
    end

/FontType 3 def				% This is a user-defined font
/FontMatrix matrix def			% Use an identity transform
%/FontBBox [ 0 0 3.383 1 ] def		% Logo itself is biggest
/FontBBox [ 0 0 4.1111 1 ] def		% Ultrix logo is now biggest
/GapWidth .070 def			% The width of the gap between boxes

/Encoding 256 array def
0 1 255 { //Encoding exch /.notdef put } bind for

Encoding
dup (d) 0 get /DEC-logo put		% (d) gives digital logo
dup (t) 0 get /smalltrademark put	% (t) gives small trademark
dup (u) 0 get /ultrix put		% (u) gives Ultrix logo
    (T) 0 get /largetrademark put	% (T) gives large trademark

/Work 15 dict def			% for doing work in font.

/BuildChar {
    exch begin				% Use the font dictionary
	//Work begin
	    //Encoding exch get		% Look up the character name
	    load			% Pull out the procedure
	    exec			% Run it.
	    end				% Work
	end				% fontdict
    } bind def

Work begin

/.notdef {} def

%
% - `DEC-logo' -
%
% Images a DEC logo with the lower left corner at the current origin, with a
% height of one unit, in the current color.
% 

/m /moveto load def
/l /lineto load def
/c /curveto load def

/DEC-logo {
    3.383 0 0 0 3.383 1 setcachedevice
    {	% D
	% d counter
	.2930 .3513 m
	.2932 .3217 .2587 .2758 .2167 .2757 c
	.1719 .2759 .1280 .3165 .1280 .3977 c
	.1280 .4801 .1718 .5225 .2153 .5227 c
	.2587 .5225 .2932 .4760 .2930 .4407 c
	closepath
	% d outside
	.2953 .5787 m
	.2953 .7600 l
	.3843 .7600 l
	.3843 .1960 l
	.2923 .1960 l
	.2923 .2220 l
	.2848 .2144 .2531 .1813 .1990 .1813 c
	.1426 .1812 .0417 .2282 .0417 .3977 c
	.0417 .5414 .1171 .6157 .2067 .6157 c
	.2399 .6157 .2725 .6039 .2953 .5787 c
	closepath
	% d box
	.432 0.0 m
	.432 1.0 l
	.000 1.0 l
	.000 0.0 l
	closepath
	} exec
    {	% I
	% i box
	.927 0.0 m
	.927 1.0 l
	.502 1.0 l
	.502 0.0 l
	closepath
	% i body
	.6695 .196 m
	.6695 .600 l
	.7595 .600 l
	.7595 .196 l
	closepath
	% i dot
	.6695 .655 m
	.6695 .755 l
	.7595 .755 l
	.7595 .655 l
	closepath
	} exec
    {	% G
	% g counter
	1.2813 .4478 m
	1.2813 .4837 1.2409 .5208 1.2035 .5208 c
	1.1713 .5208 1.1215 .5003 1.1215 .4084 c
	1.1215 .3105 1.1827 .2962 1.2030 .2962 c
	1.2433 .2962 1.2813 .3239 1.2813 .3667 c
	closepath
	% g box
	0.997 1.0 m
	1.415 1.0 l
	1.415 0.0 l
	0.997 0.0 l
	closepath
	% g outside
	1.2822 .5609 m
	1.2729 .5742 1.2424 .6044 1.1988 .6044 c
	1.1311 .6043 1.0367 .5652 1.0367 .3955 c
	1.0368 .2617 1.1437 .2168 1.1876 .2168 c
	1.2350 .2167 1.2702 .2443 1.2798 .2547 c
	1.2798 .2126 l
	1.2798 .1815 1.2479 .1511 1.1945 .1511 c
	1.1485 .1512 1.1437 .1807 1.1437 .1953 c
	1.0497 .1953 l
	1.0497 .1486 1.0798 .0804 1.1888 .0803 c
	1.2864 .0803 1.3186 .1176 1.3325 .1316 c
	1.3442 .1434 1.3617 .1758 1.3617 .2017 c
	1.3617 .6 l
	1.2823 .6 l
	closepath
	} exec
    {	% I
	% i box
	1.910 0.0 m
	1.910 1.0 l
	1.485 1.0 l
	1.485 0.0 l
	closepath
	% i body
	1.6525 .196 m
	1.6525 .6 l
	1.7425 .6 l
	1.7425 .196 l
	closepath
	% i dot
	1.6525 .655 m
	1.6525 .755 l
	1.7425 .755 l
	1.7425 .655 l
	closepath
	} exec
    {	% T
	% t
	2.2128 .7525 m
	2.1305 .7525 l
	2.1305 .6071 l
	2.0874 .6071 l
	2.0874 .5396 l
	2.1305 .5396 l
	2.1305 .2852 l
	2.1305 .2367 2.1554 .1986 2.2248 .1987 c
	2.2573 .1987 2.2560 .1985 2.2842 .2034 c
	2.2842 .2874 l
	2.2658 .2842 2.2601 .2829 2.2511 .2832 c
	2.2338 .2837 2.2128 .2898 2.2128 .3206 c
	2.2128 .5395 l
	2.2780 .5395 l
	2.2780 .6071 l
	2.2128 .6071 l
	closepath
	% t box
	2.404 0.0 m
	1.980 0.0 l
	1.980 1.0 l
	2.404 1.0 l
	closepath
	} exec
    {	% A
	% a box
	2.474 0.0 m
	2.474 1.0 l
	2.888 1.0 l
	2.888 0.0 l
	closepath
	% a outside
	2.5439 .4728 m
	2.6210 .4728 l
	2.6210 .5138 2.6422 .5353 2.6826 .5353 c