; interactive
; permits to choose rows interactively on a 2D by clicking on the data-set
;
;see also : colint vertint planeint ph2dc ROW COL

if ($dim==1) error 'Works only in 2D'
refmacro 1
print "click on the data set, finish by pressing the third button of the mouse"
;alert "click on the data set, finish by pressing the third button of the mouse"
=loop
   monopoint
   if ($button==3) goto end
   print ('row :'//$pointy[1])
   row  ($pointy[1])
   goto loop
=end
refmacro 0 exit
