slope calculator

[trains.git] / layout / slopeguide.ps

diff --git a/layout/slopeguide.ps b/layout/slopeguide.ps
deleted file mode 100644 (file)
index 865adfb..0000000
--- a/layout/slopeguide.ps
+++ /dev/null
@@ -1,86 +0,0 @@
-%!
-
-% 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 80 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 -1 moveto
-       0 +2 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
-
-showpage