home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d033 / screendump.lha / ScreenDump / ScreenDump.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-09-01  |  12.2 KB  |  544 lines
  1. /**************************************************************************
  2. *  ScreenDump.c --  Dump RastPort of highest screen/window to printer
  3. *                    by Carolyn Scheppner  CBM  02/86
  4. *
  5. * Linkage information:
  6. * FROM     LStartup.obj, ScreenDump.o
  7. * TO       ScreenDump
  8. * LIBRARY  LC.lib, Amiga.lib
  9. ***************************************************************************/
  10.  
  11. #include <exec/types.h>
  12. #include <exec/memory.h>
  13. #include <libraries/dos.h>
  14. #include <graphics/gfxbase.h>
  15. #include <graphics/rastport.h>
  16. #include <graphics/gfx.h>
  17. #include <graphics/view.h>
  18.  
  19. #include <intuition/intuition.h>
  20. #include <intuition/intuitionbase.h>
  21.  
  22. #include <devices/printer.h>
  23. #include <lattice/stdio.h>
  24.  
  25. struct IntuitionBase *IntuitionBase;
  26. struct GfxBase       *GfxBase;
  27.  
  28. struct Window   *firstWindow, *nextWindow, *highWindow;
  29. struct Screen   *firstScreen, *nextScreen, *highScreen;
  30.  
  31. struct ViewPort *viewPort;
  32. struct RastPort *rastPort;
  33. struct ColorMap *colorMap;
  34.  
  35. SHORT  topEdge;
  36.  
  37. BOOL   Borderless, WindowPrint, Relative, pOpened;
  38. int    dLeft, dRight, dTop, dBottom;   /* default border adjustments */
  39. int    bLeft, bRight, bTop, bBottom;   /* current border adjustments */
  40. int    srcX, srcY, srcWidth, srcHeight;
  41. int    destCols, destRows, special;
  42. int    openError, dumpError, multiplier, i;
  43. char   sbuf[80], ch;
  44.  
  45. struct MsgPort   *printerPort;
  46.  
  47. union  printerIO {
  48.     struct IOStdReq    ios;
  49.     struct IODRPReq    iodrp;
  50.     struct IOPrtCmdReq iopc;
  51. };
  52.  
  53. union printerIO  *request;
  54.  
  55.  
  56. /* main */
  57.  
  58. main()
  59. {
  60.     if ((IntuitionBase =
  61.         (struct IntuitionBase *)OpenLibrary("intuition.library",0))==NULL)
  62.         cleanexit("Can't open Intuition.\n");
  63.  
  64.     if ((GfxBase =
  65.         (struct GfxBase *)OpenLibrary("graphics.library",0))==NULL)
  66.         cleanexit("Can't open Graphics.\nn");
  67.  
  68.  
  69.     /* Printer stuff */
  70.     pOpened = FALSE;
  71.     printerPort = (struct MsgPort *)CreatePort("myPrtPort",0);
  72.     if(printerPort == NULL)  cleanexit("Can't open printer port.\n");
  73.  
  74.     request = (union printerIO *)CreateExtIO(printerPort,
  75.     sizeof(union printerIO));
  76.     if(request == NULL)  cleanexit("Can't allocate ExtIO.\n");
  77.  
  78.     openError = OpenPrinter(request);
  79.     if(openError)  cleanexit("Can't open printer.\n");
  80.     pOpened = TRUE;
  81.     /* */
  82.  
  83.     printf("\n>> SCREENDUMP <<       C. Scheppner     CBM  02/86\n");
  84.     printf("\nDefault settings: Full Image, Relative Size Output\n");
  85.  
  86.     WindowPrint = FALSE;
  87.     Borderless  = FALSE;
  88.     Relative   = TRUE;
  89.     dLeft   = 2;                  /* defaults for Borderless option */
  90.     dRight  = 2;
  91.     dTop    = 10;
  92.     dBottom = 10;
  93.     multiplier = 125;             /* default for Relative calculation */
  94.  
  95.     newImage();        /* get pointers to rastport, etc */
  96.  
  97.     do {
  98.         printf("\nSELECT: <P>rint, <I>mageOpts, <O>utputOpts,");
  99.         printf(" <N>ewImage or <Q>uit ? ");
  100.         getLch();
  101.         if (ch =='p')       doPrint();
  102.         else if (ch =='i')  doImOpts();
  103.         else if (ch =='o')  doOutOpts();
  104.         else if (ch =='n')  newImage();
  105.     }
  106.     while (ch != 'q');
  107.  
  108.     cleanup();
  109. }
  110.  
  111. /*--------------------------------------------------------------------*/
  112.  
  113. newImage()
  114. {
  115.     printf("\nNEW IMAGE: <W>indow or <S>creen ? ");
  116.     getLch();
  117.     if (ch =='w')
  118.     {
  119.         WindowPrint = TRUE;
  120.         printf("\nMove Screens so Windows's Screen is highest.\n");
  121.         printf("Move Windows so Window to print is highest.\n");
  122.     }
  123.     else if (ch =='s')
  124.     {
  125.         WindowPrint = FALSE;
  126.         printf("\nMove Screens so Screen to print is highest.\n");
  127.     }
  128.     ch = NULL;
  129.  
  130.     printf("\nClick here and press <RET> when ready: ");
  131.     getLch();
  132.  
  133.     getPointers();
  134. }
  135.  
  136.  
  137. getPointers()
  138. {
  139.     Forbid();
  140.     firstScreen  = IntuitionBase->FirstScreen;
  141.     topEdge = 400;
  142.     nextScreen = highScreen = firstScreen;
  143.     while( nextScreen != NULL )
  144.     {
  145.         if(nextScreen->TopEdge < topEdge)
  146.         {
  147.             topEdge = nextScreen->TopEdge;
  148.             highScreen = nextScreen;
  149.         }
  150.         nextScreen = nextScreen->NextScreen;
  151.     }
  152.  
  153.     if(WindowPrint)
  154.     {
  155.         firstWindow = highScreen->FirstWindow;
  156.         topEdge = 400;
  157.         nextWindow = highWindow = firstWindow;
  158.         while( nextWindow != NULL )
  159.         {
  160.             if(nextWindow->TopEdge < topEdge)
  161.             {
  162.                 topEdge = nextWindow->TopEdge;
  163.                 highWindow = nextWindow;
  164.             }
  165.             nextWindow = nextWindow->NextWindow;
  166.         }
  167.     }
  168.     Permit();
  169.  
  170.     viewPort = &(highScreen->ViewPort);
  171.     colorMap = viewPort->ColorMap;
  172.     rastPort = &(highScreen->RastPort);
  173.  
  174.     getCoords();
  175. }
  176.  
  177.  
  178. getCoords()
  179. {
  180.     if(WindowPrint)   /* if Borderless == FALSE, b variables = 0 */
  181.     {
  182.         srcX = highWindow->LeftEdge + bLeft;
  183.         srcY = highWindow->TopEdge + bTop;
  184.         srcWidth  = highWindow->Width -bLeft - bRight;
  185.         srcHeight = highWindow->Height -bTop - bBottom;
  186.     }
  187.     else      /* screen print */
  188.     {
  189.         srcX = bLeft;
  190.         srcY = bTop;
  191.         srcWidth  = viewPort->DWidth -bLeft - bRight;
  192.         srcHeight = viewPort->DHeight - bTop - bBottom;
  193.     }
  194.     if (Relative == TRUE)
  195.     {
  196.         doRelativeSize();
  197.     }
  198. }
  199.  
  200.  
  201. doImOpts()
  202. {
  203.     printf("\nIMAGE OPTS: <F>ull, <B>orderless, or <O>ther ? ");
  204.     getLch();
  205.     if (ch == 'f')
  206.     {
  207.         Borderless = FALSE;
  208.         bLeft = bRight = bTop = bBottom = 0;
  209.         getCoords();
  210.     }
  211.     else if (ch == 'b')
  212.     {
  213.         Borderless = TRUE;
  214.  
  215.         printf("\nBORDERS: Change default borders <Y> or <N> ? ");
  216.         getLch();
  217.         if (ch == 'y')
  218.         {
  219.             printf("\nBORDER ADJUSTMENTS: Enter new value or press <RET>\n");
  220.             dLeft   = promptInt("Left",dLeft);
  221.             dRight  = promptInt("Right",dRight);
  222.             dTop    = promptInt("Top",dTop);
  223.             dBottom = promptInt("Bottom",dBottom);
  224.         }
  225.         bLeft   = dLeft;
  226.         bRight  = dRight;
  227.         bTop    = dTop;
  228.         bBottom = dBottom;
  229.         getCoords();
  230.         ch = NULL;
  231.     }
  232.     else if (ch == 'o')
  233.     {
  234.         otherImOpts();
  235.     }
  236.     ch = NULL;
  237. }   
  238.  
  239.  
  240. otherImOpts()
  241. {
  242.     printf("\nOTHER IMAGE OPTIONS:\n");
  243.     printf(" CURRENT OPTIONS: ");
  244.     if (!Borderless) printf("Full ");
  245.     else printf("Borderless ");
  246.     if (!WindowPrint) printf("Screen\n");
  247.     else printf("Window\n");
  248.  
  249.     printf("\nCURRENT VALUES: Enter new value or press <RET>\n");
  250.     srcX = promptInt("SrcX",srcX);
  251.     srcY = promptInt("SrcY",srcY);
  252.     srcWidth  = promptInt("SrcWidth",srcWidth);
  253.     srcHeight = promptInt("SrcHeight",srcHeight);
  254. }
  255.  
  256.  
  257. doOutOpts()
  258. {
  259.     printf("\nOUTPUT OPTS: <S>mall, <M>edium, <L>arge,");
  260.     printf(" <R>elative or <O>ther ? ");
  261.     getLch();
  262.  
  263.     if (ch == 's')
  264.     {
  265.         Relative = FALSE;
  266.         special  = SPECIAL_FRACCOLS|SPECIAL_ASPECT;
  267.         destCols = 0x55555555;    /* 1/3 size */
  268.         destRows = 0;
  269.     }
  270.     else if (ch == 'm')
  271.     {
  272.         Relative = FALSE;
  273.         special  = SPECIAL_FRACCOLS|SPECIAL_ASPECT;
  274.         destCols = 0xaaaaaaaa;    /* 2/3 size */
  275.         destRows = 0;
  276.     }
  277.     else if (ch == 'l')
  278.     {
  279.         Relative = FALSE;
  280.         special  = SPECIAL_FULLCOLS|SPECIAL_ASPECT;
  281.         destCols = 0;
  282.         destRows = 0;
  283.     }
  284.     else if (ch == 'r')
  285.     {
  286.         askMultiplier();
  287.         doRelativeSize();
  288.     }
  289.     else if (ch == 'o')
  290.     {
  291.         otherOutOpts();
  292.     }
  293.     ch = NULL;
  294. }   
  295.  
  296.  
  297. askMultiplier()
  298. {
  299.     printf("\nRELATIVE: Change default multiplier <Y> or <N> ? ");
  300.     getLch();
  301.     if (ch == 'y')
  302.     {
  303.         printf("\nMULTIPLIER: Enter new value or press <RET>\n");
  304.         multiplier = promptInt("Multiplier",multiplier);
  305.     }
  306.     ch = NULL;
  307. }
  308.  
  309.  
  310. doRelativeSize()
  311. {
  312.     Relative = TRUE;
  313.     special  = SPECIAL_ASPECT|SPECIAL_MILCOLS;
  314.     destCols = (int) srcWidth * multiplier / 10;
  315.     if ((viewPort->Modes & HIRES) == NULL) destCols = destCols * 2;
  316.     destRows = 0;
  317. }
  318.  
  319.  
  320. otherOutOpts()
  321. {
  322.     printf("\nSpecial Flags Available:\n");
  323.     printf(" MILCOLS   0x001   DestCols specified in 1/1000 inch\n");
  324.     printf(" MILROWS   0x002   DestRows specified in 1/1000 inch\n");
  325.     printf(" FULLCOLS  0x004   Make DestCols maximum possible\n");
  326.     printf(" FULLROWS  0x008   Make DestRows maximum possible\n");
  327.     printf(" FRACCOLS  0x010   DestCols is fraction of FULLCOLS\n");
  328.     printf(" FRACROWS  0x020   DestRows is fraction of FULLROWS\n");
  329.     printf(" ASPECT    0x080   Ensure correct aspect ratio\n");
  330.     printf(" DENSITY1  0x100   Lowest Res\n");
  331.     printf(" DENSITY2  0x200   Next Res\n");
  332.     printf(" DENSITY3  0x400   Next Res\n");
  333.     printf(" DENSITY4  0x800   Highest Res\n");
  334.     printf(" MASK      0xF00   Mask out density bits\n");
  335.  
  336.     printf("\nCURRENT VALUES: Enter new value or press <RET>\n");
  337.     destCols = promptInt("DestCols",destCols);
  338.     destRows = promptInt("DestRows",destRows);
  339.     special  = promptInt("Special",special);
  340. }
  341.  
  342.  
  343. promptInt(stp,value)   /* Prompt for and input new value */
  344. char   *stp;
  345. int    value;
  346. {
  347.     printf(" %s = %ld  [ Hex 0x%lx ]   New value ? ",stp,value,value);
  348.     value = getInt(value);
  349.     return(value);
  350. }
  351.  
  352. getLch()     /* ch = input char converted to lower case or NULL */
  353. {
  354.     gets(&sbuf[0]);
  355.     if ((ch=(sbuf[0])) != NULL)  ch = ch|0x20;
  356. }
  357.  
  358. getInt(value)         /* Get decimal or hex (0xnnnn) value */
  359. int value;            /* If none entered, return previous  */
  360. {
  361.     int count;
  362.  
  363.     gets(&sbuf[0]);
  364.     if (sbuf[0] != NULL)
  365.     {
  366.         if ((sbuf[1]|0x20) =='x') count = stch_i(&sbuf[2],&value);
  367.         else count = stcd_i(&sbuf[0],&value);
  368.     }
  369.     return(value);
  370. }
  371.  
  372.  
  373.  
  374. doPrint()
  375. {
  376.     printf("\nPrinting will start in 10 seconds.\n");
  377.     printf(" ( Time to hide this window, etc. )\n\n");
  378.     for(i=0;i<10*60;i++) WaitTOF();  /* 10 second delay */
  379.  
  380.     /* Printer stuff */
  381.     dumpError = DumpRPort( request,
  382.     rastPort,
  383.     colorMap,
  384.     viewPort->Modes,
  385.     srcX,                       /* RastPort offsets */
  386.     srcY,
  387.     srcWidth,                   /* origin sizes  */
  388.     srcHeight,
  389.     destCols,                   /* printed sizes */
  390.     destRows,
  391.     special );                  /* io_Special */
  392.  
  393.     if (dumpError)  printf("\n Can't Dump. PDERR = %ld\n",dumpError);
  394. }
  395.  
  396.  
  397. cleanexit(errMsg)
  398. char *errMsg;
  399. {
  400.     printf(errMsg);
  401.     cleanup();
  402.     exit(-1);
  403. }
  404.  
  405. cleanup()
  406. {
  407.     pcleanup();
  408.     if (IntuitionBase)     CloseLibrary(IntuitionBase);
  409.     if (GfxBase)           CloseLibrary(GfxBase);
  410. }
  411.  
  412. pcleanup()
  413. {
  414.     if (pOpened)           ClosePrinter(request);
  415.     if (printerPort)       DeletePort(printerPort);
  416.     if (request)           DeleteExtIO(request);
  417. }
  418.  
  419.  
  420. /************************************************************************/
  421. /* printersupport.c rtns  for example page 3-202  1.1 Rom Kernel manual */
  422. /************************************************************************/
  423.  
  424. #include        "exec/types.h"
  425. #include        "exec/nodes.h"
  426. #include        "exec/lists.h"
  427. #include        "exec/ports.h"
  428. #include        "exec/tasks.h"
  429. #include        "exec/io.h"
  430. #include        "devices/printer.h"
  431.  
  432.  
  433. /*  This union is defined above in my main
  434.     If you are compiling these rtns separately,
  435.      uncomment this union definition
  436.  
  437. union printerIO {
  438.        struct IOStdReq ios;
  439.        struct IODRPReq iodrp;
  440.        struct IOPrtCmdReq iopc;
  441.        };
  442. */
  443.  
  444.  
  445. /* OPEN THE PRINTER */
  446. int
  447. OpenPrinter(request)
  448. union printerIO *request;
  449. {
  450.     return(OpenDevice("printer.device",0,request,0));
  451. }
  452.  
  453.  
  454. /* CLOSE THE PRINTER */
  455. int
  456. ClosePrinter(request)
  457. union printerIO *request;
  458. {
  459.     CloseDevice(request);
  460.     return(0);
  461. }
  462.  
  463.  
  464. /* Send a NULL terminated string to the printer
  465.  * Assumes printer device is open and printerMsg
  466.  * is correctly initialized.  Watches for embedded
  467.  * "escape-sequences" and handles them as defined.
  468.  */
  469.  
  470. int
  471. PrintString(request,string)
  472. union printerIO *request;
  473. char *string;
  474. {
  475.     request->ios.io_Command = CMD_WRITE;
  476.     request->ios.io_Data = (APTR)string;
  477.     request->ios.io_Length = -1;
  478.     /* if -1, the printer assumes it has been given
  479.         * a null terminated string.
  480.         */
  481.     return(DoIO(request));
  482. }
  483.  
  484.  
  485. /* Send RAW character stream to the printer directly,
  486.  * avoid "escape-sequence" parsing by the device.
  487.  */
  488. int
  489. PrintRaw(request,buffer,count)
  490. union printerIO *request;  /* a properly initialized request block */
  491. char *buffer;              /* where is the output stream of characters */
  492. int count;                 /* how many characters to output */
  493. {
  494.     /* queue a printer raw write */
  495.     request->ios.io_Command = PRD_RAWWRITE;
  496.     request->ios.io_Data = (APTR)buffer;
  497.     request->ios.io_Length = count;
  498.  
  499.     return(DoIO(request));
  500. }
  501.  
  502.  
  503. /* Send Printer Command */
  504. int
  505. PrintCommand(request,command, p0, p1, p2, p3)
  506. union printerIO *request;
  507. int command, p0, p1, p2, p3;    /* command and its parameters */
  508. {
  509.     /* queue a printer command */
  510.     request->iopc.io_Command = PRD_PRTCOMMAND;
  511.     request->iopc.io_PrtCommand = command;
  512.     request->iopc.io_Parm0 = p0;
  513.     request->iopc.io_Parm1 = p1;
  514.     request->iopc.io_Parm2 = p2;
  515.     request->iopc.io_Parm3 = p3;
  516.     return(DoIO(request));
  517. }
  518.  
  519.  
  520. /* Dump RastPort */
  521. int
  522. DumpRPort(request,rastPort, colorMap, modes, sx,sy, sw,sh, dc,dr, s)
  523. union printerIO *request;
  524. struct RastPort *rastPort;
  525. struct ColorMap *colorMap;
  526. ULONG modes;
  527. UWORD sx, sy, sw, sh;
  528. LONG dc, dr;
  529. UWORD s;
  530. {
  531.     request->iodrp.io_Command = PRD_DUMPRPORT;
  532.     request->iodrp.io_RastPort = rastPort;
  533.     request->iodrp.io_ColorMap = colorMap;
  534.     request->iodrp.io_Modes = modes;
  535.     request->iodrp.io_SrcX = sx;
  536.     request->iodrp.io_SrcY = sy;
  537.     request->iodrp.io_SrcWidth = sw;
  538.     request->iodrp.io_SrcHeight = sh;
  539.     request->iodrp.io_DestCols = dc;
  540.     request->iodrp.io_DestRows = dr;
  541.     request->iodrp.io_Special = s;
  542.     return(DoIO(request));
  543. }
  544.