|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T b
Length: 1410 (0x582)
Types: TextFile
Names: »btoi.ps«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦ff23ba0e6⟧ »./ghostscript-1.3.tar.Z«
└─⟦a24a58cd3⟧
└─⟦this⟧ »btoi.ps«
% Copyright (C) 1989 Aladdin Enterprises. All rights reserved.
% Distributed by Free Software Foundation, Inc.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License. A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities. It should be in a file named COPYING. Among other
% things, the copyright notice and this notice must be preserved on all
% copies.
% Convert a (fixed-pitch) bitmap font to outline form.
(uglyfont.bit) %%%%%% REPLACE THIS WITH THE FILE NAME
5 dict begin
1000 string /s exch def
(r) file /f exch def
(%stdout) (w) file /o exch def
f token pop /w exch def
f token pop /h exch def
w =only ( ) print h = (\n) print
{f token not {exit} if
=only ( ) print
f token pop w h s imagecharpath pop
(<) print o exch writehexstring (>\n) print flush
} loop
end
flush
quit