🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: adobe.postscript.programming
Article #291

How to get a free page size?

#291
From: geointelligence
Date: Sat, 28 Jun 2008 05:18
46 lines
2085 bytes
In next example the page's size is A4. I want change it to
100cm*100cm. I tried many methods, but could not do it. Who can tell
me a right way? Please modify the example complete code.

%!PS-Adobe-2.0
%%Title: Blue Book Program 3, on page 137
%%Creator: Adobe Systems Incorporated
%%CreationDate: Thu Dec 28 13:17:45 PST 1989
%%EndComments

/ellipsedict 8 dict def
ellipsedict /mtrx matrix put
/ellipse
	{ ellipsedict begin
	  /endangle exch def
	  /startangle exch def
	  /yrad exch def
	  /xrad exch def
	  /y exch def
	  /x exch def

	  /savematrix mtrx currentmatrix def
	  x y translate
	  xrad yrad scale
	  0 0 1 startangle endangle arc
	  savematrix setmatrix
	  end
	} def

newpath
  144 400 72 144 0 360 ellipse
stroke

newpath
  400 400 144 36 0 360 ellipse
fill

newpath
  300 180 144 72 30 150 ellipse
stroke

newpath
  480 150 30 50 270 90 ellipse
fill

showpage
Technical Details
Message-ID: <1a6688bc-c172-4aca-8935-386ee06e6073@f24g2000prh.googlegroups.com>
Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews.google.com!f24g2000prh.googlegroups.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: 10c61a,f8c910f098e05404,start
X-Google-Attributes: gid10c61a,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!postnews.google.com!f24g2000prh.googlegroups.com!not-for-mail
From: geointelligence@yahoo.com.cn
Newsgroups: adobe.postscript.programming
Subject: How to get a free page size?
Date: Fri, 27 Jun 2008 22:18:42 -0700 (PDT)
Organization: http://groups.google.com
Lines: 46
Message-ID: <1a6688bc-c172-4aca-8935-386ee06e6073@f24g2000prh.googlegroups.com>
NNTP-Posting-Host: 123.116.150.63
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: posting.google.com 1214630323 9378 127.0.0.1 (28 Jun 2008 05:18:43 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sat, 28 Jun 2008 05:18:43 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: f24g2000prh.googlegroups.com; posting-host=123.116.150.63; 
 posting-account=729pNAoAAABSTJNohJT8zx_vjN7q1Nd0
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET 
 CLR 2.0.50727; MAXTHON 2.0),gzip(gfe),gzip(gfe)