summaryrefslogtreecommitdiff
path: root/doc/eudas/abb.4-1
diff options
context:
space:
mode:
Diffstat (limited to 'doc/eudas/abb.4-1')
-rw-r--r--doc/eudas/abb.4-143
1 files changed, 0 insertions, 43 deletions
diff --git a/doc/eudas/abb.4-1 b/doc/eudas/abb.4-1
deleted file mode 100644
index 439e052..0000000
--- a/doc/eudas/abb.4-1
+++ /dev/null
@@ -1,43 +0,0 @@
-init dgs;
-window (0.0, 0.0, 13.5, 3.2); viewport (0.0,0.0,13.5,3.2);
-(* scale (2.0,2.0,0.0,0.0); *)
-(*clear pixels;*)
-
-font size (0.25);
-font expansion (1.5);
-
-INT VAR i;
-FOR i FROM 0 UPTO 4 REP
- move (2.0, real (i) * 0.5);
- draw (10.0, real (i) * 0.5);
- move (2.1, real (i) * 0.5 + 0.1);
- draw ("Feld " + code (code ("E") - i));
-END REP;
-move (2.0, 2.5);
-draw (10.0, 2.5);
-move (2.0, 2.5);
-draw (2.0, 0.0);
-move (3.5, 3.0);
-draw (10.0, 3.0);
-FOR i FROM 1 UPTO 4 REP
- move (2.0 + real (i) * 1.5, 3.0);
- draw (2.0 + real (i) * 1.5, 0.0);
- move (2.2 + real (i) * 1.5, 2.6);
- draw ("Satz " + text (i))
-END REP;
-move (9.5, 3.0);
-draw (9.5, 0.0);
-(*
-pause (1000);
-*)
-
-LET myname = "abb.4-1";
-save pixels (myname + ".p");
-FILE VAR f := sequential file (modify, myname + ".p");
-to line (f, 1); insert record (f);
-write record (f, "#linefeed (0.8)#");
-insert record (f); write record (f, myname);
-to eof (f); insert record (f); write record (f, myname);
-to line (f, 1);
-
-