*-----------------------------------------------------------------------
*     Copyright (C) 2000-2022 GFD Dennou Club. All rights reserved.
*-----------------------------------------------------------------------
      PROGRAM SGTCLR

      PARAMETER (NP=5,NT=10)
      PARAMETER (DD=0.07,DS=0.003)
      PARAMETER (DX=DD+DS*2,DY=1.0/NT)

      REAL      XBOX(NP),YBOX(NP)
      CHARACTER CHR*5

      DATA      XBOX/ 0.0, 1.0, 1.0, 0.0, 0.0/
      DATA      YBOX/ 0.0, 0.0, 1.0, 1.0, 0.0/


      WRITE(*,*) ' WORKSTATION ID (I) ? ; '
      CALL SGPWSN
      READ(*,*) IW

      CALL GLISET('MAXMSG',300)

      CALL SGOPN(IW)

      CALL SGIGET('IBGCLI',IBGCLI)
      CALL SGLSET('LFULL',.TRUE.)
      CALL SGLSET('LSOFTF',.FALSE.)
      CALL SGISET('INDEX',1)
      CALL SLRAT(0.85,1.0)
      CALL SLMGN(0.0,0.0,0.05,0.1)
      CALL SLSTTL('TEST OF SGTONE','T',0.0,-0.5,0.025,1)

      CALL SGFRM
      CALL SGSWND(0.0,1.0,0.0,1.0)
      CALL SGSTRN(1)
      DO 20 J=0,9
        DO 10 I=0,9
          X1=DX*I+DS+(1-DX*NT)/2
          X2=X1+DD
          Y1=DY*(9-J)+DS
          Y2=Y1+DD
          ICLR=I+J*10
          LEVEL=ICLR*1000+999
          IF (ICLR.EQ.0) ICLR=IBGCLI
          LEVELZ=ICLR*1000+999
          CALL SGSVPT(X1,X2,Y1,Y2)
          CALL SGSTRF
          WRITE(CHR,'(I5)') LEVEL
          CALL SGTNZU(NP,XBOX,YBOX,LEVELZ)
          CALL SGPLZU(NP,XBOX,YBOX,1,1)
          CALL SGTXZV(X2,Y2+(DY-DD)/2,CHR,0.01,0,1,1)
   10   CONTINUE
   20 CONTINUE

      CALL SGCLS

      END
