!This file is part of VEL_demo, written by David Keyes
    !
    !This source file is free software: you can redistribute it and/or modify
    !it under the terms of the GNU General Public License as published by
    !the Free Software Foundation, either version 3 of the License, or
    !(at your option) any later version.
    !
    !This code is distributed in the hope that it will be useful,
    !but WITHOUT ANY WARRANTY; without even the implied warranty of
    !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    !GNU General Public License for more details.
    !
    !For terms of the GNU General Public license see <http://www.gnu.org/licenses/>.

MACRO MODULE dim_hor2();

STRING  sp*132, ep*132, dline*132;
REF part_id;

BEGINMODULE

loop:

  sp:=pos_mbs("1st point");
  IF sp <> "" THEN
    ep:=pos_mbs("2nd point");   
    dline:=pos_mbs("locate dimension");
    part_id:=add_mbs("part", "dim_hor1", sp, ep, dline, "0", "0", "0.5", "0");
    goto loop;
  ENDIF;

ENDMODULE