slope templates

diff --git a/layout/slopeguide.ps b/layout/slopeguide.ps
new file mode 100644 (file)
index 0000000..1faf711
--- /dev/null
+++ b/layout/slopeguide.ps
@@ -0,0 +1,84 @@
+%!
+
+% convert coordinates to mm
+% from bottom left corner of landscape
+72 25.4 div dup  scale
+90 rotate
+0 -210  translate
+
+0.05 setlinewidth
+
+/Times-Roman findfont 5 scalefont setfont
+
+10 10 moveto ($Id$) show
+
+15 30  translate
+
+/sbuf 10 string def
+/i2s { 10 sbuf cvrs } def
+
+/xmax 260 def
+/changein 160 def
+
+/title {
+    0 exch moveto
+    (0 to ) show
+    slope i2s show (% in ) show
+    changein i2s show
+    (mm) show
+} def
+
+/do {
+    /slope exch def
+
+    2 title
+    -9 title
+
+    0 1 xmax {
+       /x exch def
+       newpath
+       x 0 moveto
+       0 1 rlineto
+       stroke
+    } for
+
+    0 10 xmax {
+       /x exch def
+       newpath
+       x 0 moveto
+       0 -2.5 rlineto
+       stroke
+
+       x -4 moveto
+       x i2s show
+    } for
+
+    0 1 10 {
+       neg /y exch def
+       newpath
+       0 y moveto
+       xmax 0 rlineto
+       stroke
+    } for
+
+    /afterchange  slope changein 0.005 mul mul  def
+
+    0 0 moveto
+    0 0.5 changein {
+       /x exch def
+       /y  x changein div  dup mul  afterchange mul  def
+       x y lineto
+    } for
+    /y  xmax changein sub  slope 0.01 mul mul  afterchange add  def
+    xmax y lineto
+    stroke
+
+    newpath
+    changein 0 moveto
+    0 afterchange rlineto
+    stroke
+
+    0 22 translate
+} def
+
+0.5 0.5 4 { do } for