diff options
Diffstat (limited to 'Pointcurs.f')
| -rwxr-xr-x | Pointcurs.f | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/Pointcurs.f b/Pointcurs.f new file mode 100755 index 0000000..d4bb692 --- /dev/null +++ b/Pointcurs.f @@ -0,0 +1,27 @@ + + subroutine pointcurs +c****************************************************************************** +c This subroutine returns the cursor position upon a click +c****************************************************************************** + + include 'Pstuff.com' + integer ichr + + + call sm_graphics + if (whichwin .eq. '1of1') then + call sm_window (1,1,1,1,1,1) + elseif (whichwin .eq. '2of2') then + call sm_defvar ('y_gutter','0.0') + call sm_window (1,2,1,1,1,1) + endif + call sm_curs (xplotpos,yplotpos,ichr) + call sm_gflush + call sm_alpha + + + return + end + + + |