home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / SCRNDUMP.FOR < prev    next >
Encoding:
Text File  |  1990-02-20  |  1.9 KB  |  65 lines
  1. c      Must include MISCIOFI.FOR if output to LASERJET
  2. c       INCLUDE 'MISCIOFI.FOR'
  3.        INCLUDE 'STDHDR.FOR'
  4.  
  5.  
  6.        REAL xdata(0: maxv)
  7.        REAL ydata(0: maxv), rr
  8.        INTEGER i, prnerr
  9. C      ErrCode is used for Open_Com
  10. c       INTEGER * 2 errCode
  11.  
  12.        DO i = 0, 50
  13.          CALL Random(rr)
  14.          xdata(i) = (4.0 * pi * (rr - 0.5))
  15.          ydata(i) = 1000.0 * SIN(xdata(i))
  16.        END DO
  17.  
  18.        CALL SortDataX(xdata, ydata, 50, 0)
  19.  
  20.        CALL InitSEGraphics( -1, 'C:\FOR\LIB\*.FON')
  21.        CALL SetCurrentWindow(1)
  22.        CALL ClearWindow
  23.        CALL SetAxesType(0, 0)
  24.        CALL SelectColor(7)
  25.        CALL AutoAxes(xdata, ydata, 50, 0)
  26.        CALL SelectColor(5)
  27.        CALL LinePlotData(xdata, ydata, 50, 1, 0)
  28.        CALL SelectColor(1)
  29.        CALL TitleWindow('Hair Growth Study')
  30.        CALL TitleXAxis('Before/After Injections')
  31.        CALL TitleYAxis('Hair inches/wk.')
  32.  
  33.        CALL ClearWindow
  34.        CALL SelectColor(7)
  35.        CALL BorderCurrentWindow(15)
  36.        CALL AutoAxes(xdata, ydata, 50, 1)
  37.        CALL LinePlotData(xdata, ydata, 50, 2, 0)
  38.        CALL SelectColor(1)
  39.        CALL TitleWindow('Hair Growth Study')
  40.        CALL TitleXAxis('Before/After Injections')
  41.        CALL TitleYAxis('Hair inches/wk.')
  42.  
  43. ! BE SURE YOU DO NOT CALL CLEAR WINDOW BEFORE YOU ATTEMPT
  44. !  A SCREEN DUMP
  45.  
  46. ! ** Use this sequence of commands for ScreenDump to serial
  47. !    HP LaserJet
  48. !       CALL Open_Com ( 0,9600,0,1,8,48,errCode)
  49. !       CALL ScreenDump(3, 2, 2, 1.0, 1.0, 0,1, 0, prnerr)
  50.  
  51. ! ** Use this sequence of commands for ScreenDump to parallel
  52. !    HP LaserJet
  53. !      CALL ScreenDump(3, 0, 2, 1.0, 1.0, 0, 1,0, prnerr)
  54.  
  55. ! ** Use this sequence of commands for ScreenDump to parallel
  56. !    Epson FX
  57.       CALL ScreenDump(0, 0, 1, 1.5, 1.5, 0,1, 0, prnerr)
  58.  
  59.       READ (*,*)
  60.       CALL ClearWindow
  61.       CALL CloseSEGraphics
  62.  
  63.       END
  64.  
  65.