diff options
Diffstat (limited to 'assets/manual/acceleration-distance.ps')
-rw-r--r-- | assets/manual/acceleration-distance.ps | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/assets/manual/acceleration-distance.ps b/assets/manual/acceleration-distance.ps deleted file mode 100644 index 56fe8b8..0000000 --- a/assets/manual/acceleration-distance.ps +++ /dev/null @@ -1,64 +0,0 @@ -%!PS - -/Courier 12 selectfont -1 setlinewidth - -/pagewidth 595 def -/pageheight 842 def -/entrywidth 25 def -/entryheight 15 def -/nrows 25 def -/ncols 22 def - -/dupsecond { - exch dup 3 1 roll -} def - -/duptwo { - dupsecond dupsecond -} def - -/movetorc { - exch entrywidth mul pagewidth entrywidth ncols mul sub 2 idiv add - exch entryheight mul pageheight entryheight nrows mul sub 2 idiv add pageheight exch sub - moveto -} def - -/integer-string { - dup abs 1 add log floor 2 add cvi string cvs -} def - -/showint { - integer-string show -} def - -/get-acceleration { - 2 mul 3 1 roll dup mul exch dup mul sub exch div ceiling cvi -} def - -<< /PageSize [pagewidth pageheight]>> setpagedevice - -[ -10 -3 -2 -0.5 0.5 1 1.5 ] -{ - dup 0 eq - { pop } - { - -1 1 21 { - dup 0 exch newpath movetorc -1 -4 rmoveto 22 entrywidth mul 0 rlineto closepath stroke - 1 add 0 movetorc -1 11 rmoveto 0 -22 entryheight mul rlineto closepath stroke - } for - newpath 22 21 movetorc -1 -4 rmoveto 0 -3 entryheight mul rlineto -22 entrywidth mul 0 rlineto 0 3 entryheight mul rlineto closepath stroke - 0 1 20 { - dup dup 1 add 0 movetorc showint - dup dup 1 add 0 exch movetorc showint - 0 1 20 { - dupsecond duptwo 1 add exch 1 add exch movetorc 3 index get-acceleration 0 dupsecond lt {showint} {pop} ifelse - } for - pop - } for - 0 22 movetorc (Acc. =) show 2 22 movetorc 5 string cvs show - 0 23 movetorc (The horizontal axis stands for the current speed.) show - 0 24 movetorc (The vertical axis stands for the target speed.) show - showpage - } ifelse -} forall |