aboutsummaryrefslogtreecommitdiff
path: root/src/gui.f
blob: 06759bc196f80700031715ce6029cd1450baa920 (plain)
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64


      SUBROUTINE GUIBOX(K, X1,X2,Y1,Y2, COLOR, LABEL)
      CHARACTER*(*) COLOR, LABEL
C----------------------------------------------------------
C     Plots a GUI-button box with label string.
C     Places the box coordinates into the COM_GUI 
C     arrays associated with the button index K.  
C     FUNCTION LGUI can then determine if a cursor 
C     falls within box K.
C----------------------------------------------------------
      COMMON /COM_GUI/ XGUI(2,20), YGUI(2,20)
C
      IF(K.LT.1 .OR. K.GT.20) RETURN
C
      CALL GETORIGIN(XORG,YORG)
      CALL GETFACTORS(XSCALE,YSCALE)
C
      CALL GETCOLOR(ICOL0)
      CALL NEWCOLORNAME(COLOR)
C
C---- set GUI window
      XGUI(1,K) = (X1 - XORG)/XSCALE
      XGUI(2,K) = (X2 - XORG)/XSCALE
      YGUI(1,K) = (Y1 - YORG)/YSCALE
      YGUI(2,K) = (Y2 - YORG)/YSCALE
C
C---- plot GUI window
      CALL PLOT(XGUI(1,K),YGUI(1,K),3)
      CALL PLOT(XGUI(2,K),YGUI(1,K),2)
      CALL PLOT(XGUI(2,K),YGUI(2,K),2)
      CALL PLOT(XGUI(1,K),YGUI(2,K),2)
      CALL PLOT(XGUI(1,K),YGUI(1,K),2)
C
      NL = LEN(LABEL)
      CHA = MIN( (XGUI(2,K)-XGUI(1,K))/FLOAT(NL+1), 
     &           (YGUI(2,K)-YGUI(1,K))/1.8  )
      XCA = 0.5*(XGUI(2,K)+XGUI(1,K)) - 0.5*CHA*FLOAT(NL) + 0.2*CHA
      YCA = 0.5*(YGUI(2,K)+YGUI(1,K)) - 0.6*CHA
      CALL PLCHAR(XCA,YCA,CHA,LABEL,0.0,NL)
C
      CALL NEWCOLOR(ICOL0)
      RETURN
      END ! GUIBOX



      LOGICAL FUNCTION LGUI(K,XC,YC)
C-----------------------------------------------
C     Returns T if location XC,YC falls within 
C     the GUI(K) window defined in GUIBOX.
C-----------------------------------------------
      COMMON /COM_GUI/ XGUI(2,20), YGUI(2,20)
C
      LGUI = .FALSE.
      IF(K.LT.1 .OR. K.GT.20) RETURN
C
      LGUI = XC .GT. XGUI(1,K) .AND. 
     &       XC .LE. XGUI(2,K) .AND.
     &       YC .GT. YGUI(1,K) .AND.
     &       YC .LE. YGUI(2,K)
C
      RETURN
      END ! LGUI