1 SUBROUTINE CLNINF(IOPT) 2 INCLUDE 'com_boutons.f' 3 INCLUDE 'com_options.f' 4Cfj CALL GSCOL(ICOLAX) 5Cfj CALL GSLW(IEPBOR) 6 CALL GSPAT(8) 7 CALL GSBND(XHELP,XDMA2,YDMI2,YDMIN) 8 CALL MY_GSAREA2B(XHELP,XDMA2,YDMI2,YDMIN) 9Cfj CALL GSMOVE(XHELP,YDMIN) 10Cfj CALL GSLINE(XHELP,YDMI2) 11Cfj CALL GSLINE(XDMA2,YDMI2) 12Cfj CALL GSLINE(XDMA2,YDMIN) 13 CALL GSLW(0) 14cnew 15 IX0 = IVRAIECOORD(XHELP) 16 IX1 = IVRAIECOORD(XDMAX) 17 PIXEL = (XDMAX-XHELP)/REAL(IABS(IX0-IX1)) 18 CALL GSCOL(7) 19 CALL GSMOVE(XHELP+PIXEL,YDMI2+PIXEL) 20 CALL GSLINE(XDMA2-PIXEL,YDMI2+PIXEL) 21 CALL GSLINE(XDMA2-PIXEL,YDMIN-PIXEL) 22 CALL GSCOL(15) 23 CALL GSLINE(XHELP+PIXEL,YDMIN-PIXEL) 24 CALL GSLINE(XHELP+PIXEL,YDMI2+PIXEL) 25cnew 26 IF (IOPT.GT.0) THEN 27 PIPI = PIXEL*2. 28 CALL GSBND(XHELP+PIPI,XDMA2-PIPI,YDMI2+PIPI,YDMIN-PIPI) 29 CALL GSLSS(IFONT7) 30 CALL ASFCOL(3) 31 YYY = YINFO-PIXEL 32 CALL GSCHAR2(XINFO,YYY,128,HBOUT(NBOUT+1+IOPT)) 33 IF (IOPT.GT.1) THEN 34 IF (ILANG.NE.0.AND.IOPT.GE.0) THEN 35 CALL ASFCOL(1) 36 IF (IOPT.EQ.2) THEN 37 LTOTO = 5 38 ELSE 39 LTOTO = 8 40 ENDIF 41 CALL GSCHAR2(XINFO,YYY,LTOTO,HBOUT(NBOUT+1+IOPT)) 42 ELSE 43 CALL ASFCOL(1) 44 CALL GSCHAR2(XINFO,YYY,18,HBOUT(NBOUT+1+IOPT)) 45 CALL ASFCOL(3) 46 CALL GSCHAR2(XINFO,YYY,8,HBOUT(NBOUT+1+IOPT)) 47 ENDIF 48 ENDIF 49 ENDIF 50 END 51C----------------------------------------------------------------------- 52 SUBROUTINE ECHELP(IB,IOPT) 53 INCLUDE 'com_boutons.f' 54 INCLUDE 'com_options.f' 55 CALL GSPAT(8) 56 CALL GSLSS(IFONT7) 57 PIPI = PIXEL*2. 58 CALL GSBND(XHELP+PIPI,XDMA2-PIPI,YDMI2+PIPI,YDMIN-PIPI) 59 YYY = YINFO-PIXEL 60 IF (IOPT.EQ.0) THEN 61 CALL ASFCOL(3) 62 CALL GSCHAR2(XINFO,YYY,128,HBOUT(IB)) 63 CALL ASFCOL(1) 64 CALL GSCHAR2(XINFO,YYY,1,HBOUT(IB)) 65 ELSE 66 CALL ASFCOL(1) 67 CALL GSCHAR2(XINFO,YYY,128,HBOUT(IB)) 68 ENDIF 69 CALL GSBND(XHELP,XDMAX,YDMIN,YDMIN) 70 END 71