Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.postscript > #550

Re: Need minimum/tutorial Postscript code

Show all headers | View raw

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

Back to comp.lang.postscript | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Need minimum/tutorial Postscript code Ramon F Herrera <ramon@conexus.net> - 2012-01-09 09:12 -0800
  Re: Need minimum/tutorial Postscript code "Mark T. B. Carroll" <mtbc@bcs.org> - 2012-01-09 12:44 -0500
    Re: Need minimum/tutorial Postscript code Ramon F Herrera <ramon@conexus.net> - 2012-01-09 10:13 -0800
      Re: Need minimum/tutorial Postscript code Ramon F Herrera <ramon@conexus.net> - 2012-01-09 12:54 -0800

csiph-web