Web    Images    Groups    News    Froogle    more »   Advanced Groups Search   Preferences

Submitted-by: tl@hrz.uni-kassel.de
Posting-number: Volume 01, Issue 75
Archive-name: mmpapier/part01
Environment: PostScript
Keywords: grid

Hi PSFolks,

here is a Postscript File which produces a paper with a mm grid. In Germany 
we call this Millimeterpapier. It is very useful to draw exact figures. 
It wont be a big Problem to make a 1/10 in grid.

[ Warning, the lines are so close that it won't look right
  on lower dpi devices, such as X terminals and HP Laserjets.  -Jon]

... next time i'll post logarithmic and polarkoordinate paper

                                Thomas 

-- 
                   _ O""   Thomas (Landi) Landgraf
                  (_    |   tl@hrz.uni-kassel.de
                     -'_/  
                     X-                 FALCON030 && XJ550

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix@uunet.uu.net if you want that tool.
# Contents:  mmpapier.ps
# Wrapped by jgm@vegas on Fri Apr 30 00:52:41 1993
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo '          "shar: End of archive."'
if test -f 'mmpapier.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'mmpapier.ps'\"
else
  echo shar: Extracting \"'mmpapier.ps'\" \(679 characters\)
  sed "s/^X//" >'mmpapier.ps' <<'END_OF_FILE'
X%!
X/cm { 2.54 div 72 mul } bind def
X/cnty{ dup 280 le { dup hline 1 add cnty } if }  def
X/cntx{ dup 180 le { dup vline 1 add cntx } if }  def
X/thick 0.25  def % thickness of the thinnest line
X/divable { div dup truncate eq } def
X/tick{ dup 50 divable {-0.5}{0} ifelse exch} def
X/thickness { dup 10 divable { thick 3 mul }
X{ dup 5 divable { thick 2 mul } { thick } ifelse } 
Xifelse } def
X0.5 setgray % grayvalue of the lines
X/vline{ thickness setlinewidth tick cm 10 div 2.2 cm add 
X 0.8 cm moveto 0 exch neg 28 add cm rlineto stroke } def
X/hline{ thickness setlinewidth tick cm 10 div 28.8 
Xcm exch sub 20.2 cm exch moveto -18 add cm 0 rlineto stroke} def
X0 cntx
X0 cnty
Xshowpage
END_OF_FILE
  if test 679 -ne `wc -c <'mmpapier.ps'`; then
    echo shar: \"'mmpapier.ps'\" unpacked with wrong size!
  fi
  # end of 'mmpapier.ps'
fi
echo shar: End of archive.
exit 0