! Draws a box.

! AB DATERRA 1994-06-02.
! Thomas Hellner.

GLOBAL DRAWING MODULE m_box(
     VECTOR    pos1  > "Upper left corner";
     VECTOR    pos2  > "Lower right corner"
     );

BEGINMODULE

     lin_free(#10,pos1,vec(pos2.x,pos1.y));
     lin_free(#11,endp(#10),pos2);
     lin_free(#12,endp(#11),vec(pos1.x,pos2.y));
     lin_free(#13,endp(#12),pos1);

ENDMODULE