From 3aa0ae7a5f7be1a292254d93f18c704eca442dd5 Mon Sep 17 00:00:00 2001
From: "Y. Wang" <yw05@forksworld.de>
Date: Mon, 15 Nov 2021 13:42:32 +0100
Subject: Add manual

---
 assets/manual/acceleration-distance.ps | 64 ++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 assets/manual/acceleration-distance.ps

(limited to 'assets/manual/acceleration-distance.ps')

diff --git a/assets/manual/acceleration-distance.ps b/assets/manual/acceleration-distance.ps
new file mode 100644
index 0000000..56fe8b8
--- /dev/null
+++ b/assets/manual/acceleration-distance.ps
@@ -0,0 +1,64 @@
+%!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
-- 
cgit v1.2.3