home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / mathstud / ginput.m < prev    next >
Encoding:
Text File  |  1995-05-19  |  379 b   |  18 lines
  1. function [x,y,button]=ginput(np,sc)
  2. %[x,y,button]=ginput(np,sc)
  3. %obtain graphic input from the user (A wrapper for the built-in _ginput)
  4.  
  5. %       S.Halevy 7/31/92
  6. %       Copyright (c) 1992 by the MathWizards
  7.  
  8. if nargin==1
  9.    t1=_ginput(np);
  10. elseif nargin>=2
  11.    t1=_ginput(np,sc);
  12. else
  13.    error('no input arguments')
  14. end
  15. x=t1(1,:)';
  16. y=t1(2,:)';
  17. button=t1(3,:)';
  18.