🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: adobe.postscript.programming
Article #102

Re: problem caching EPS files with multiple forms

#102
From: Mike_Moening
Date: Fri, 24 Oct 2008 07:36
93 lines
2396 bytes
The postscript was cut off on 1st post. Here is the remainder:
---------------
  begin
       BeginEPSF
       EPSArray 0 get 0 1 put
       //AcquisitionProc 0 () /SubFileDecode filter
       cvx exec
       EndEPSF
  end
} bind def
currentdict end def % EPSForm-Circle
EPSForm-Circle /EPSArray get
readdata
%%BeginDocument: (Circle.eps)
50 50 3 0 360 arc closepath stroke
%%EndDocument
% $$EPS_EOD_Marker$$
%%EndResource

% setup 2nd circle form resource
%%BeginResource: form EPSForm-Circle2
/EPSForm-Circle2
10 dict begin
/FormType 1 def
/BBox [0 0 100 100] def
/Matrix [1 0 0 1 0 0] def
/EPSArray 3 array def
/AcquisitionProc {
   EPSArray dup 0 get dup 0 get
   dup 3 1 roll
   1 add 0 exch put
   get
} bind def
/PaintProc {
  begin
       BeginEPSF
       EPSArray 0 get 0 1 put
       //AcquisitionProc 0 () /SubFileDecode filter
       cvx exec
       EndEPSF
  end
} bind def
currentdict end def % EPSForm-Circle2
EPSForm-Circle2 /EPSArray get
readdata
%%BeginDocument: (Circle2.eps)
50 50 3 0 360 arc closepath stroke
%%EndDocument
% $$EPS_EOD_Marker$$
%%EndResource

%%EndSetup
%%Page: 1 1

%%BeginPageSetup
/pgsave save def
%%EndPageSetup

% Draw left eyeball using Circle form
gsave
-350 100 translate
10.0 10.0 scale
EPSForm-Circle execform
grestore

% Draw right eyeball using Circle form
gsave
-100 100 translate
10.0 10.0 scale
EPSForm-Circle execform
grestore

% Draw nose using Circle form
gsave
-225 -500 translate
10.0 20.0 scale
EPSForm-Circle execform
grestore

% Draw mouth using Circle 2 form.
gsave
-720 -200 translate
20.0 10.0 scale
EPSForm-Circle2 execform
grestore

showpage
 /pgsave load restore
%%PageTrailer

end % userdict
end % forms_ops
%%EOF
Technical Details
Message-ID: <59b6d561.0@webcrossing.la2eafNXanI>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!goblin2!goblin.stu.neva.ru!news4us.nl!webcrossing
References: <59b6d561.-1@webcrossing.la2eafNXanI>

Show Full Headers
Complete Article Headers
X-Google-Thread: 10c61a,2b80b6b760c12862
X-Google-Attributes: gid10c61a,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
From: Mike_Moening@adobeforums.com
Newsgroups: adobe.postscript.programming
Subject: Re: problem caching EPS files with multiple forms
Message-ID: <59b6d561.0@webcrossing.la2eafNXanI>
Date: Fri, 24 Oct 2008 00:36:15 -0700
References: <59b6d561.-1@webcrossing.la2eafNXanI>
Lines: 93
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!goblin2!goblin.stu.neva.ru!news4us.nl!webcrossing