Article View: adobe.postscript.programming
Article #102Re: problem caching EPS files with multiple forms
From: Mike_Moening
Date: Fri, 24 Oct 2008 07:36
Date: Fri, 24 Oct 2008 07:36
93 lines
2396 bytes
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!webcrossingReferences:
<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