home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / PIEDEMO.FOR < prev    next >
Encoding:
Text File  |  1989-11-21  |  1.1 KB  |  44 lines
  1.       !!! program pies
  2.  
  3.  
  4.       INCLUDE 'STDHDR.FOR'
  5.       INCLUDE 'GRAFTYPE.FOR'
  6.  
  7.       REAL xdata(0:maxr), rr
  8.       INTEGER i,j
  9.       CHARACTER * 80 titles(0:maxgroup)
  10.       RECORD /GroupInfoRec/ piecolors(0:maxgroup)
  11.       RECORD /explodeRec/ explode(0:maxgroup)
  12.  
  13.       CALL InitSEGraphics(-1, 'c:\FOR\LIB\*.FON')
  14.       CALL Random(rr)
  15.       DO j = 0, 1
  16.         DO i = 0, 5
  17.           CALL Random(rr)
  18.           xdata(i) = rr*10.0
  19.           explode(i).percent = 0.0
  20.           piecolors(i).groupcolor = i + 1
  21.           piecolors(i).grouphatch = i + 1
  22.           IF (i .eq. 2) THEN
  23.             explode(i).explodetrue = .true.
  24.             explode(i).percent = 0.30
  25.           ELSE
  26.             explode(i).explodetrue = .false.
  27.           END IF
  28.         END DO
  29.         titles(0) = 'JAN'
  30.         titles(1) = 'FEB'
  31.         titles(2) = 'MAR'
  32.         titles(3) = 'APR'
  33.         titles(4) = 'MAY'
  34.         titles(5) = 'JUN'
  35.  
  36.         CALL SetCurrentWindow(2)
  37.         CALL Piechart(xdata,5, piecolors,titles,j,.TRUE.,.TRUE.,explode)
  38.         read(*,*)
  39.  
  40.         CALL ClearWindow
  41.  
  42.       END DO
  43.       CALL CloseSEGraphics
  44.       END