home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / LINEDEM.FOR < prev    next >
Encoding:
Text File  |  1989-10-09  |  884 b   |  35 lines
  1.       INCLUDE 'STDHDR.FOR'
  2.       INTEGER n,  i
  3.       REAL xdata(0: maxr), ydata(0: maxr)
  4.       CHARACTER * 80 title
  5.  
  6.       n = 20
  7.       DO i = 0, n - 1
  8.        xdata(i) = REAL(i) +1
  9.        ydata(i) = xdata(i) ** 2
  10.       END DO
  11.  
  12.       CALL InitSEGraphics(-1, 'c:\FOR\LIB\*.FON')
  13.  
  14.       DO i = 1 , 6
  15.         CALL SetCurrentWindow(i)
  16.         CALL ClearWindow
  17.         CALL BorderCurrentWindow(6)
  18.         CALL SetAxesType(0, 0)
  19.         CALL setxyintercepts(0.0, 0.0)
  20.         CALL SelectColor(7)
  21.         CALL AutoAxes(xdata, ydata, n, 1)
  22.         CALL LinePlotData(xdata, ydata, n, 1, 1)
  23.         CALL SelectColor(15)
  24.         title = 'Y-axis title'
  25.         CALL titleyaxis(title)
  26.         title = 'X-axis title'
  27.         CALL titlexaxis(title)
  28.         title = 'Window Title'
  29.         CALL titlewindow(title)
  30.       END DO
  31.  
  32.        call CloseSEGraphics
  33.  
  34.       END
  35.