!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure l-draw-vertical-line-at
  greg1\draw relo &1 user_ymin /user
  greg1\draw line &1 user_ymax /user
end procedure l-draw-vertical-line-at
!
begin procedure l-draw-horizontal-line-at
  greg1\draw relo user_xmin &1 /user
  greg1\draw line user_xmax &1 /user
end procedure l-draw-horizontal-line-at
!
begin procedure l-draw-rectangle-from
  greg1\draw relo &1%first &2%first /user
  greg1\draw line &1%last  &2%first /user
  greg1\draw line &1%last  &2%last  /user
  greg1\draw line &1%first &2%last  /user
  greg1\draw line &1%first &2%first /user
end procedure l-draw-rectangle-from
!
begin procedure l-draw-cross-at
  define double size
  let size 0.05*min(abs(user_xmax-user_xmin),abs(user_ymax-user_ymin))/sec
  greg1\draw relo &1-size &2 /user
  greg1\draw line &1+size &2 /user
  greg1\draw relo &1 &2-size /user
  greg1\draw line &1 &2+size /user
end procedure l-draw-cross-at
!
begin procedure l-draw-poly
  if exist(&1%xy) then
     greg2\polygon &1%xy /variable /plot
  endif
end procedure l-draw-poly
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
