summaryrefslogtreecommitdiff
path: root/doc/eudas/abb.1-1
diff options
context:
space:
mode:
Diffstat (limited to 'doc/eudas/abb.1-1')
-rw-r--r--doc/eudas/abb.1-194
1 files changed, 0 insertions, 94 deletions
diff --git a/doc/eudas/abb.1-1 b/doc/eudas/abb.1-1
deleted file mode 100644
index 06c27fd..0000000
--- a/doc/eudas/abb.1-1
+++ /dev/null
@@ -1,94 +0,0 @@
-init dgs;
-window (0.0, 0.0, 13.5, 7.1); (*viewport (0.0,0.0,13.5,7.1); *)
-scale (1.0,1.0,0.0,0.0);
-(*clear pixels;*)
-
-karteikasten (1.0, 3.5, "Kartei A", "Wegner", "Herbert");
-karteikasten (5.0, 0.5, "Kartei B", "Regmann", "Karin");
-
-LET myname = "abb.1-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);
-(*
-pause (10000);
-*)
-PROC karteikasten (REAL CONST x, y, TEXT CONST name, t name, t vorname) :
-
- move (x - 0.1, y);
- draw (x + 3.6, y);
- draw (x + 3.6, y + 1.0);
- draw (x - 0.1, y + 1.0);
- draw (x - 0.1, y);
-
- move (x + 0.1, y + 1.1);
- draw (x + 0.5, y + 1.5);
- move (x + 0.1, y + 1.1);
- draw (x + 3.6, y + 1.1);
- move (x - 0.1, y + 1.0);
- draw (x + 0.5, y + 1.6);
-
- move (x + 3.6, y);
- draw (x + 5.2, y + 1.6);
- draw (x + 5.2, y + 2.6);
- draw (x + 3.6, y + 1.0);
- move (x + 3.6, y + 1.1); draw (x + 5.0, y + 2.5);
- move (x + 5.2, y + 2.6); draw (x + 5.0, y + 2.6);
-
- move (x + 0.5, y + 1.1);
- draw (x + 0.5, y + 2.5);
- draw (x + 4.0, y + 2.5);
- draw (x + 4.0, y + 1.5);
- move (x + 0.5, y + 2.5);
- draw (x + 1.5, y + 3.5);
- draw (x + 5.0, y + 3.5);
- draw (x + 5.0, y + 2.5);
- move (x + 5.0, y + 3.5);
- draw (x + 4.0, y + 2.5);
- REAL VAR x off := 0.1;
- WHILE x off < 1.0 REP
- move (x + 0.5 + xoff, y + 2.5 + x off);
- draw (x + 4.0 + xoff, y + 2.5 + xoff);
- draw (x + 4.0 + xoff, y + 1.5 + xoff);
- x off INCR 0.1
- END REP;
- font size (0.5);
- font expansion (1.5);
- move (x + 0.5, y + 0.2); draw (name);
- font size (0.25);
- move (x + 0.7, y + 2.10); draw ("Name");
- move (x + 0.7, y + 1.65); draw ("Vorname");
- move (x + 0.7, y + 1.20); draw ("Strasse");
- move (x + 2.1, y + 2.10); draw (": " + t name);
- move (x + 2.1, y + 1.65); draw (": " + t vorname);
- move (x + 2.1, y + 1.20); draw (":");
-
-END PROC karteikasten;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-