# -----------------------------------------------------------
#
#     Programm fuer die Ausgabe der Hoehenkoten im Schnitt
#
#     Achim Piller, 13.12.1995
#
# -----------------------------------------------------------
#
#          +2.75
#          ----------     --+
#          \ /              |30
#           v             --+
#           neu_p
#
# -----------------------------------------------------------

# -----------------------------------------------------------
# Variablenbelegung -----------------------------------------
# -----------------------------------------------------------
# Integervariablen
  name(i2,"anzkot");       anzkot = 5;
  name(i3,"xmasst");       xmasst = 50;
  name(i4,"txt_c");         txt_c = 1;

# Realvariablen
  name(r1,"bez_h");        bez_h = 276;
  name(r2,"txt_h");        txt_h = 3.5;
  name(r3,"diff_h");
  name(r4,"neu_h");

# Punktvariablen
  name(p1,"bez_p");
  name(p2,"neu_p");


# -----------------------------------------------------------
# Hauptprogramm ---------------------------------------------
# -----------------------------------------------------------
writeln("");
write("Geben Sie den Punkt fuer die Bezugskote vor!");
read(bez_p);

newmask("Hoehenkoten");
maskinfo(5,1,   "Tragen Sie hier die Hoehe der Bezugskote ein");
fillmask(-5,3,  " Bezugskote (z.B. 276):",bez_h,6);
fillmask(-5,4,  "          Anzahl Koten:",anzkot,6);
fillmask(-5,6,  "            Maszstab 1:",xmasst,6);
fillmask(-5,7,  "        Texthoehe [mm]:",txt_h,6);
fillmask(-5,8,  "             Textfarbe:",txt_c,6);
domask();

writeln("");
write("Geben Sie nun die gewuenschten Koten an !");

for i1 = 1 to anzkot do
begin
  writeln("Kotenpunkt");
  read(neu_p);
  diff_h = neu_p.y - bez_p.y;

  # Block/Zelle KOTE1 in Bibliothek KOTE
  insert("KOTE1","KOTE",neu_p,1.0,1.0,0.0);

  gst_justify(1);
  gst_height(txt_h * xmasst / 10.0);
  gst_rotation(0);
  neu_h = bez_h;
  neu_h = neu_h + diff_h;
  neu_p.y = neu_p.y + 30.0;
  text(neu_p,neu_h);
end

END.