blob: fa467095443289bf8cc0a1a68ed86d6574ee4ced (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 == '1of1') then
call sm_window (1,1,1,1,1,1)
elseif (whichwin == '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
|
