diff options
Diffstat (limited to 'doc/eudas/abb.1-1')
-rw-r--r-- | doc/eudas/abb.1-1 | 94 |
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; - - - - - - - - - - - - - - - - - - - - - - - - |