home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / SCRNDUMP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-01  |  2.2 KB  |  89 lines
  1.  
  2. # include <math.h>
  3. # include <stdlib.h>
  4. # include <stdio.h>
  5. # include <graph.h>
  6. # include "miscio.h"
  7. # include <string.h>
  8. # include "asyncxx.h"
  9. # include "worlddr.h"
  10. # include "segraph.h"
  11.  
  12.     float  xdata[100], ydata[100],xm,ym;
  13.      int prndr, res, orient,ioport,rr,wc,err,i;
  14.      char c;
  15.      int  n;
  16.  
  17. void main()
  18.  
  19.  
  20. {
  21.  
  22.   for (i = 0; i <= 50; i++ )
  23.   {
  24.     rr = i;
  25.     xdata[i] = (4.0*3.1415* (frandom()-0.5)) ;
  26.     ydata[i] =  1000.0 * sin(xdata[i]);
  27.   }
  28.  
  29.   SortDataX(xdata,ydata,50,0);
  30.   printf( "Enter Printer Drive 0-MX   1-LQ   2-Tosh  3-HPLJ 4-HPINK  5-FX  ");
  31.   scanf( "%d",&prndr );
  32.   printf("Input IO Port ");
  33.   scanf( "%d",&ioport );
  34.   printf("Input resolution " );
  35.   scanf( "%d", &res );
  36.   printf("Input xmult ");
  37.   scanf( "%f",&xm );
  38.   printf("Input ymult " );
  39.   scanf( "%f",&ym );
  40.   printf("Input orientatation 0-portrait 1-landscape " );
  41.   scanf( "%d",&orient );
  42.  
  43.  
  44.  
  45.  
  46. /****************************************************
  47.     - IF YOU WANT TO CONFIGURE FOR CGA 4 COLORS
  48.       CHOOSE InitSEGraphics(1);
  49.     - HERCULES SUPPORT IS NOW INCLUDED IN MICROSOFT
  50.       C VERSION 5.1.  IF YOU WANT TO USE THE
  51.       HERCULES DRIVER YOU MUST FIRST INSTALL
  52.       MSHERC.COM FROM DOS BY TYPING
  53.                   msherc<enter>
  54.       THEN IN YOUR MAIN PROGRAM CALL
  55.                   InitSEGraphics(12);
  56.     - REFER TO THE README.DOC FILE - PART 3
  57.       INCLUDED IN YOUR MICROSOFT C 5.1 COMPILER
  58.       FOR DETAILS ON ADDED HERCULES SUPPORT.
  59.  **************************************************/
  60.   InitSEGraphics(6);
  61.  
  62.     wc = 1;
  63.     SetCurrentWindow(wc);
  64.     ClearWindow();
  65.     SetAxesType(0,0);
  66.     SelectColor(7);
  67.     ScalePlotArea(0.0, 150.0, 99.0,300.0);
  68.     SetXYIntercepts(0.0,150.0);
  69.     AutoAxes(xdata,ydata,50,0);
  70.     DrawGrid(5);
  71.     SelectColor(4);
  72.     LinePlotData(xdata, ydata, 50, 1,0);
  73.     SelectColor(1);
  74.     TitleWindow("Hair Growth Study");
  75.     TitleXAxis("Before/After Injections");
  76.     TitleYAxis("Hair inches/wk.");
  77.     /* BE SURE YOU DO NOT CALL CLEARWINDOW BEFORE
  78.        YOU ATTEMPT A SCREEN DUMP                   */
  79.      if (ioport == 2){
  80.        open_com(0,9600,0,1,8, &err);
  81.      }
  82.  
  83.     ScreenDump(prndr,ioport,res,xm,ym,0,orient,0,&err);
  84.     ClearWindow();
  85.  
  86.     CloseSEGraphics();
  87.  
  88. }
  89.