; interactive
; permits to choose columns interactively on a 2D by clicking on the data-set
;
;see also : rowint 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 ('col :'//$pointx[1])
;   print ('col :'//$pointx[1]//' '//itop($pointx[1],2,2)//'ppm')
   col ($pointx[1])
   goto loop
=end
refmacro 0 exit
