/
Drawcurs.f
executable file
·51 lines (41 loc) · 1.52 KB
/
Drawcurs.f
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
subroutine drawcurs
c******************************************************************************
c This subroutine draws an arrow and writes the user x- and y-positions
c of the cursor upon a click
c******************************************************************************
include 'Pstuff.com'
integer ichr
c call sm_graphics
c if (whichwin .eq. '1of1') then
c call sm_window (1,1,1,1,1,1)
c elseif (whichwin .eq. '2of2') then
c call sm_defvar ('y_gutter','0.0')
c call sm_window (1,2,1,1,1,1)
c endif
c call sm_curs (xplotpos,yplotpos,ichr)
c
c
c call sm_relocate (xplotpos,yplotpos-0.10*(yhi-ylo))
c call sm_draw (xplotpos,yplotpos)
c call sm_draw (xplotpos-0.01*(xhi-xlo),yplotpos-0.03*(yhi-ylo))
c call sm_relocate (xplotpos,yplotpos)
c call sm_draw (xplotpos+0.01*(xhi-xlo),yplotpos-0.03*(yhi-ylo))
c call writenumber (xplotpos)
c call sm_expand (0.6)
c call sm_relocate (xplotpos,yplotpos-0.11*(yhi-ylo))
c call sm_putlabel (5,array)
c call writenumber (yplotpos)
c if (whichwin(4:4) .eq. '1') then
c call sm_relocate (xplotpos,yplotpos-0.15*(yhi-ylo))
c elseif (whichwin(4:4) .eq. '2') then
c call sm_relocate (xplotpos,yplotpos-0.18*(yhi-ylo))
c elseif (whichwin(4:4) .eq. '3') then
c call sm_relocate (xplotpos,yplotpos-0.21*(yhi-ylo))
c endif
c call sm_putlabel (5,array)
c
c
c call sm_gflush
c call sm_alpha
return
end