Path: csiph.com!x330-a1.tempe.blueboxinc.net!usenet.pasdenom.info!weretis.net!feeder4.news.weretis.net!news.mixmin.net!news2.arglkargh.de!news.visyn.net!visyn.net!not-for-mail
From: "Mark T. B. Carroll" <mtbc@bcs.org>
Newsgroups: comp.lang.postscript
Subject: Re: Need minimum/tutorial Postscript code
Date: Mon, 09 Jan 2012 12:44:12 -0500
Organization: none
Lines: 39
Message-ID: <87sjjobwk3.fsf@ixod.org>
References: <4fa36c55-6006-43fc-bb03-3347d4d644a1@k10g2000yqk.googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: hoshi.visyn.net otvfcZaC+qURIBikUGrtt0fUqtuP9zwb2E549KrFhqM=
X-Complaints-To: abuse@open-news-network.org
NNTP-Posting-Date: Mon, 9 Jan 2012 17:44:12 +0000 (UTC)
X-User-ID: 3L5w7Q0c0k36Ty2EFS2/2DNbZkjhxjprqwO9BAtcwPU=
Cancel-Lock: sha1:4BiqtZEORng9Q8yzLgLALWZt1KU=
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.3 (gnu/linux)
Xref: x330-a1.tempe.blueboxinc.net comp.lang.postscript:550

Ramon F Herrera <ramon@conexus.net> writes:

> Again, all I need is to display 10 horizontal lines and 10 vertical
> lines.

I'm not sure if this is quite what you need, but how about something
like,

/in { 72 mul } def

/size 10 def          % can change this
/width 8.5 in def     % can change this
/margin 0.5 in def    % can change this

/makelines
{
  0 1 size
  {
      unit mul dup
      0 moveto
      extent lineto
  }
  for
} def

/size size 1 sub def
/extent width margin 2 mul sub def
/unit extent size div def

1 setlinecap

newpath
margin dup translate makelines
[ 0 1 1 0 0 0 ] concat makelines
stroke
showpage


-- Mark