home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / GROUPDEM.FOR < prev    next >
Encoding:
Text File  |  1990-02-07  |  3.6 KB  |  117 lines
  1.       INCLUDE 'STDHDR.FOR'
  2.       INCLUDE 'GRAFTYPE.FOR'
  3.  
  4.       INTEGER  wc,k,i
  5.       REAL rand
  6.       REAL xdata(0:maxv)
  7.       RECORD /GroupInfoRec/ fill(0: maxgroup)
  8.       RECORD /GroupInfoRec/ Legendfill(0:MaxLegends)
  9.       REAL GroupData(0:maxgroup, 0:maxv)
  10.       CHARACTER * 80 XStrings(0:maxgroup)
  11.       CHARACTER * 80 legendstrings(0:20)
  12.       LOGICAL BW
  13.  
  14.  
  15.       CALL InitSEGraphics(-1, 'C:\FOR\LIB\*.FON')
  16.       DO i = 0, 4
  17.         DO k = 0, 11
  18.           xdata(k) =  Real(k)+1
  19.           CALL Random(rand)
  20.           GroupData(i,k) = 75.0 * rand
  21.        END DO
  22.       END DO
  23.       DO i = 0, 4
  24.         fill(i).groupcolor = i+1
  25.         fill(i).grouphatch = i+1
  26.         Legendfill(i).groupcolor = i+1
  27.         Legendfill(i).grouphatch = i+1
  28.       END DO
  29.       CALL BlackAndWhite(Bw)
  30.       LegendStrings(0) = 'Monday'
  31.       LegendStrings(1) = 'Tuesday'
  32.       LegendStrings(2) = 'Wednesday'
  33.       LegendStrings(3) = 'Thursday'
  34.       LegendStrings(4) = 'Friday'
  35.       CALL SetPercentWindow( 0.05,0.90,0.95,0.99,3)
  36.  
  37.  
  38.       DO wc = 1, 2
  39.         CALL SetCurrentWindow(wc)
  40.         CALL ClearWindow
  41.         CALL SetAxesType(0, 0)
  42.         CALL ScalePlotArea(0.0, 0.0, 5.5, 300.0)
  43.         CALL SetXYIntercepts(0.0, 0.0)
  44.         XStrings(0) = 'Lisa'
  45.         XStrings(1) = 'Rick'
  46.         XStrings(2) = 'Amy'
  47.         XStrings(3) = 'Rich'
  48.         XStrings(4) = 'Flo'
  49.         CALL SelectColor(1)
  50.         CALL DrawXAxis(1.0, 0)
  51.         CALL LabelXAxWithStrings(1, XStrings, 5, 0)
  52.         CALL DrawYAxis(20.0, 0)
  53.         CALL LabelYAxis(5, 0)
  54.         CALL GroupPlotData(xdata, GroupData, 10, 5, 0, 0.75, fill)
  55.         CALL SetTextStyleXX(0, 0, 16,18)
  56.         CALL TitleWindow('Ratologist Studies')
  57.         CALL SetTextStyleXX(0, 0, 10, 12)
  58.         CALL TitleXAxis('Ratologist')
  59.         CALL TitleYAxis('# Rats/wk.')
  60.         READ (*,*)
  61.         CALL ClearWindow
  62.  
  63.          CALL SetCurrentWindow(wc)
  64.          CALL ClearWindow
  65.  
  66.          IF (.NOT. BW) CALL SetViewBackground(15)
  67.          CALL SetAxesType(0, 0)
  68.          CALL ScalePlotArea(0.0, 0.0, 5.5, 300.0)
  69.          CALL SetXYIntercepts(0.0, 0.0)
  70.          CALL GroupPlotData(xdata, GroupData, 10, 5, 1, 0.75, fill)
  71.          CALL SelectColor(1)
  72.          CALL DrawXAxis(1.0, 0)
  73.          CALL LabelXAxWithStrings(1, XStrings, 5, 0)
  74.          CALL SelectColor(1)
  75.          CALL DrawYAxis(20.0, 0)
  76.          CALL DrawGridY(5)
  77.          CALL LabelYAxis(5, 0)
  78.          CALL TitleWindow('Ratologist Studies')
  79.          CALL TitleXAxis('Ratologist')
  80.          CALL TitleYAxis('# Rats/wk.')
  81.          IF (wc .EQ. 1) THEN
  82.            CALL SetCurrentWindow(3)
  83.            CALL BorderCurrentWindow (5)
  84.            CALL StringLegends(LegendStrings, Legendfill, 5, 1)
  85.          END IF
  86.          READ (*,*)
  87.          CALL ClearWindow
  88.  
  89.  
  90.          CALL SetCurrentWindow(wc)
  91.          CALL ClearWindow
  92.          IF (.NOT. BW) CALL SetViewBackground(15)
  93.          CALL ScalePlotArea(0.0, 0.0, 5.5, 100.0)
  94.          CALL SetXYIntercepts(0.0, 0.0)
  95.          CALL SelectColor(1)
  96.          CALL DrawXAxis(1.0, 0)
  97.          CALL LabelXAxWithStrings(1, XStrings, 5, 0)
  98.          CALL SelectColor(1)
  99.          CALL DrawYAxis(10.0, 0)
  100.          CALL LabelYAxis(2, 0)
  101.          CALL TitleXAxis('Ratologist')
  102.          CALL TitleYAxis('# Rats/wk.')
  103.          CALL TitleWindow('Ratologist Studies')
  104.          CALL GroupPlotData(xdata, GroupData, 10, 5, 2, 0.75, fill)
  105.          IF (wc .EQ. 1) THEN
  106.            CALL SetCurrentWindow(3)
  107.            CALL BorderCurrentWindow(5)
  108.            CALL StringLegends(LegendStrings, Legendfill, 5, 0)
  109.          END IF
  110.          READ (*,*)
  111.          CALL ClearWindow
  112.       END DO
  113.       CALL CloseSEGraphics
  114.  
  115.  
  116.       END
  117.