Path: utzoo!attcan!uunet!cs.utexas.edu!usc!ucsd!ucbvax!UMIX.CC.UMICH.EDU!krowitz%richter
From: krowitz%richter@UMIX.CC.UMICH.EDU (David Krowitz)
Newsgroups: comp.sys.apollo
Subject: Re:  PostScript File from gmr2D
Message-ID: <9005301324.AA02637@richter.mit.edu>
Date: 30 May 90 13:24:32 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 102

The Postscript files generated by GMR (both 2D and 3D) reference a number of 
macros which are defined in the file /sys/gmr2d/macros.ps (on my SR10.2 system).
These macros are in the SR9.7 GMR manual in some obscure location which tells
you that they must be added as a prefix to your Postscript file. Why Apollo
didn't simply have GMR generate a file with the necessary header is a mystery.
I've been poking through my network as I've been reading my mail looking for
a SR9.7 version of the macro file, and I haven't found one. Apollo may not
have put one on the release tapes ... the SR10.2 file is included below for
the benefit of those SR9.7 users.


== Dave


============================================ cut here ===========================

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% procedure ANCHOR_TEXT
%     when called, font, path.x, path.y, up.x, up.y, size 
%     and a string of text are on the stack
/anchor_text
{             
% code for implementing stroke text could replace the show command
% use arguments on the stack to compute font scale and text direction
/Times-Roman findfont 
setfont
show  
clear 
} def


% procedure BOX_TEXT
%     when called, font, path.x, path.y, up.x, up.y 
%     and a string of text are on the stack
/box_text
{             
% code for implementing stroke text could replace the show command
% use arguments on the stack to compute font scale and text direction
/Times-Roman findfont 
setfont
show 
clear  
} def


% procedure COLOR
%     when called, color id is on the stack
/color 
% setting the rgb or hsb according to the color id could replace the next line
{ 0 eq { 1 setgray } { 0 setgray } ifelse 
} def
 

% procedure PATTERN_FILL
%     when called, a current path has been created and and a current color set.
/pattern_fill
{
%     code to do a pattern fill could replace the next line.
eofill
} def


% procedure SET_FILL_BG_VAL
%     when called, fill background value is on the stack
/set_fill_bg_val
{
% currently a no-op, just pops the value
pop
} def
         

% procedure SET_FILL_PATTERN
%     when pattern (32 4-byte integers) is on the stack 
/set_fill_pattern
{    
% currently a no-op, just clears the stack
clear
} def


% procedure SET_TEXT_BG_VAL
%     when called, text background value is on the stack
/set_text_bg_val
{
% currently a no-op, just pops the value
pop
} def


% procedure UDP
%     when called, primitive id, number of points,
%     number of arguments, point array and argument array
%     are on the stack.
/udp                                      
{
% currently a no-op, just clears the stack
clear
} def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%