5e87bd7c33
This commit includes several updates to the Python_OpenSource_DXF project: - The core script draw_table_from_template.py has been refactored for better logic and clarity. - New utility scripts such as diagnose_blocks.py, export_dxf.py, and plot_by_block_name.py have been added to enhance diagnostic and plotting capabilities. - The convert_dxf_to_pdf.py script was removed as its functionality is now covered by other modules. - README.md and .specstory documentation have been updated to reflect these changes.
157 lines
6.2 KiB
PostScript
157 lines
6.2 KiB
PostScript
% Copyright (C) 1989, 1990, 1991 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.
|
|
|
|
% This file provides a dummy 'statusdict' and 'serverdict',
|
|
% and a few of the other LaserWriter operators, for the benefit of
|
|
% PostScript programs that think they are running on a LaserWriter.
|
|
|
|
%
|
|
% ***********************************************************************
|
|
% * *
|
|
% * M M OOO DDDD III FFFFF III EEEEE DDDD *
|
|
% * MM MM O O D D I F I E D D *
|
|
% * M M M O O D D I F I E D D *
|
|
% * M M O O D D I FFF I EEE D D *
|
|
% * M M O O D D I F I E D D *
|
|
% * M M O O D D I F I E D D *
|
|
% * M M OOO DDDD III F III EEEEE DDDD *
|
|
% * *
|
|
% * *
|
|
% * FFFFF III L EEEEE *
|
|
% * F I L E *
|
|
% * F I L E *
|
|
% * FFF I L EEE *
|
|
% * F I L E *
|
|
% * F I L E *
|
|
% * F III LLLLL EEEEE *
|
|
% * *
|
|
% ***********************************************************************
|
|
%
|
|
% .-------------.
|
|
% | /\ |
|
|
% | / \ |
|
|
% | / /\ \ |
|
|
% | / / \ \ |
|
|
% | / / /\ \ \ |
|
|
% | / / / \ \ \|
|
|
% `-------------' (R)
|
|
% Autodesk, Inc.
|
|
% Tools For the Golden Age of Engineering
|
|
%
|
|
% In keeping with subparagraph 2a of the Gnu General Public License
|
|
% (Version 1, February 1989):
|
|
%
|
|
% 2. You may modify your copy or copies of the Program or any
|
|
% portion of it, and copy and distribute such modifications under
|
|
% the terms of Paragraph 1 above, provided that you also do the
|
|
% following:
|
|
%
|
|
% a) cause the modified files to carry prominent notices stating
|
|
% that you changed the files and the date of any change; and...
|
|
%
|
|
% the following is a summary of the changes to this file made by
|
|
% Autodesk, Inc. in August 1991 in order to adapt Ghostscript to run
|
|
% as an ADS application and thereby to perform rendering of
|
|
% PostScript files within AutoCAD.
|
|
%
|
|
% STATUSD.PS Renamed to be ACADPSD.PS
|
|
%
|
|
% ************************************************************************
|
|
|
|
systemdict begin
|
|
|
|
/letter {statusdict begin 0 setpagetype end} def
|
|
/note {statusdict begin 1 setpagetype end} def
|
|
/legal {} def
|
|
/a4 {} def % not in original Red Book,
|
|
% but apparently standard now
|
|
|
|
/statusdict 50 dict def
|
|
/serverdict 4 dict def
|
|
|
|
end
|
|
|
|
statusdict begin
|
|
|
|
/checkpassword {statusdict begin .password eq end} def
|
|
/defaulttimeouts {statusdict begin .timeouts aload pop end} def
|
|
%/dostartpage
|
|
/eescratch {pop 0} def
|
|
/idlefonts {statusdict begin mark .idlefonts aload pop end} def
|
|
/jobname () def
|
|
%/jobtimeout
|
|
/manualfeed false def
|
|
/manualfeedtimeout 60 def
|
|
/margins {statusdict begin .topmargin .leftmargin end} def
|
|
/pagecount {4711} def
|
|
/pagestackorder {false} def
|
|
%/pagetype
|
|
/prefeed false def
|
|
/printererror {pop pop} def
|
|
/printername {statusdict begin .printername exch copy end} def
|
|
/product (Ghostscript) def
|
|
/revision 20100 def
|
|
/sccbatch {pop 9600 0} def
|
|
/sccinteractive {pop 9600 0} def
|
|
/setdefaulttimeouts {statusdict begin .timeouts astore pop end} def
|
|
/setdostartpage {statusdict exch /dostartpage exch put} def
|
|
/seteescratch {pop pop} def
|
|
/setidlefonts {] statusdict exch /.idlefonts exch put} def
|
|
/setjobtimeout {statusdict exch /jobtimeout exch put} def
|
|
/setmargins
|
|
{statusdict begin /.lmargin exch def /.topmargin exch def end} def
|
|
/setpagetype {statusdict exch /pagetype exch put} def
|
|
/setpassword
|
|
{exch checkpassword
|
|
{statusdict exch /.password exch put true}
|
|
{pop false}
|
|
ifelse} def
|
|
/setprintername
|
|
{dup length string copy statusdict exch /printername exch put} def
|
|
/setsccbatch {pop pop pop} def
|
|
/setsccinteractive {pop pop pop} def
|
|
/waittimeout 300 def
|
|
|
|
/.password 0 def
|
|
/.timeouts [0 60 30] def
|
|
true setdostartpage
|
|
mark setidlefonts
|
|
0 setjobtimeout
|
|
0 0 setmargins
|
|
0 setpagetype
|
|
product setprintername
|
|
|
|
end % statusdict
|
|
|
|
% The following contents of serverdict are a complete guess,
|
|
% based on some observed LaserWriter boilerplate.
|
|
|
|
serverdict begin
|
|
|
|
/execjob { } def
|
|
% The Red Book implies that something like the following is
|
|
% an appropriate definition of exitserver.
|
|
/exitserver { clear stop } def
|
|
% However, this interacts badly with Ghostscript's present error handler,
|
|
% so we override it with the following less appropriate definition.
|
|
/exitserver { clear cleardictstack } def
|
|
/setrealdevice { } def
|
|
|
|
end % serverdict
|