home *** CD-ROM | disk | FTP | other *** search
/ Encyclopedia of Graphics File Formats Companion / GFF_CD.ISO / software / os2 / gbm / src / gbmv / gbmv.c next >
Encoding:
C/C++ Source or Header  |  1994-04-28  |  12.8 KB  |  572 lines
  1. /*
  2.  
  3. GBMV.C  General Bitmap Viewer
  4.  
  5. */
  6.  
  7. /*...sincludes:0:*/
  8. #define    INCL_DOS
  9. #define    INCL_WIN
  10. #define    INCL_GPI
  11. #define    INCL_DEV
  12. #define    INCL_BITMAPFILEFORMAT
  13. #include <os2.h>
  14. #include <stdio.h>
  15. #include <stdlib.h>
  16. #include <stdarg.h>
  17. #include <string.h>
  18. #include <malloc.h>
  19. #include <memory.h>
  20. #include <io.h>
  21. #include <fcntl.h>
  22. #include <sys/types.h>
  23. #include <sys/stat.h>
  24. #include "standard.h"
  25. #include "gbm.h"
  26. #include "gbmerr.h"
  27. #include "gbmht.h"
  28. #include "gbmv.h"
  29.  
  30. /*...vgbmv\46\h:0:*/
  31. /*...e*/
  32. /*...spm gaps:0:*/
  33. /*
  34. Things you would expect PM to have, but find that it doesn't.
  35. */
  36.  
  37. /*...sError:0:*/
  38. static VOID Error(HWND hwnd, const CHAR *szFmt, ...)
  39.     {
  40.     va_list vars;
  41.     CHAR sz [256+1];
  42.  
  43.     va_start(vars, szFmt);
  44.     vsprintf(sz, szFmt, vars);
  45.     va_end(vars);
  46.     WinMessageBox(HWND_DESKTOP, hwnd, sz, NULL, 0, MB_OK | MB_ERROR | MB_MOVEABLE);
  47.     }
  48. /*...e*/
  49. /*...sFatal:0:*/
  50. static VOID Fatal(HWND hwnd, CHAR *sz)
  51.     {
  52.     Error(hwnd, sz);
  53.     exit(1);
  54.     }
  55. /*...e*/
  56. /*...sUsage:0:*/
  57. static VOID Usage(HWND hwnd)
  58.     {
  59.     Fatal(hwnd, "Usage: gbmv [-e] [-h] filename.ext{,opt}");
  60.     }
  61. /*...e*/
  62. /*...sWarning:0:*/
  63. static VOID Warning(HWND hwnd, const CHAR *szFmt, ...)
  64.     {
  65.     va_list vars;
  66.     CHAR sz [256+1];
  67.  
  68.     va_start(vars, szFmt);
  69.     vsprintf(sz, szFmt, vars);
  70.     va_end(vars);
  71.     WinMessageBox(HWND_DESKTOP, hwnd, sz, NULL, 0, MB_OK | MB_WARNING | MB_MOVEABLE);
  72.     }
  73. /*...e*/
  74. /*...e*/
  75. /*...smain:0:*/
  76. #define    WC_GBMV        "GbmViewerClass"
  77.  
  78. static HWND hwndFrame, hwndClient;
  79.  
  80. static HBITMAP hbmBmp;
  81. static LONG lColorBg, lColorFg;
  82.  
  83. /*...sLoadBitmap:0:*/
  84. static BOOL LoadBitmap(
  85.     HWND hwnd,
  86.     CHAR *szFn, CHAR *szOpt,
  87.     GBM *gbm, GBMRGB *gbmrgb, BYTE **ppbData
  88.     )
  89.     {
  90.     GBM_ERR rc;
  91.     int fd, ft;
  92.     ULONG cb;
  93.     USHORT usStride;
  94.  
  95.     if ( gbm_guess_filetype(szFn, &ft) != GBM_ERR_OK )
  96.         {
  97.         Warning(hwnd, "Can't deduce bitmap format from file extension: %s", szFn);
  98.         return ( FALSE );
  99.         }
  100.  
  101.     if ( (fd = open(szFn, O_RDONLY | O_BINARY)) == -1 )
  102.         {
  103.         Warning(hwnd, "Can't open file: %s", szFn);
  104.         return ( FALSE );
  105.         }
  106.  
  107.     if ( (rc = gbm_read_header(szFn, fd, ft, gbm, szOpt)) != GBM_ERR_OK )
  108.         {
  109.         close(fd);
  110.         Warning(hwnd, "Can't read file header of %s: %s", szFn, gbm_err(rc));
  111.         return ( FALSE );
  112.         }
  113.  
  114.     if ( (rc = gbm_read_palette(fd, ft, gbm, gbmrgb)) != GBM_ERR_OK )
  115.         {
  116.         close(fd);
  117.         Warning(hwnd, "Can't read file palette of %s: %s", szFn, gbm_err(rc));
  118.         return ( FALSE );
  119.         }
  120.  
  121.     usStride = ((gbm -> w * gbm -> bpp + 31)/32) * 4;
  122.     cb = gbm -> h * usStride;
  123.     if ( (*ppbData = malloc((int) cb)) == NULL )
  124.         {
  125.         close(fd);
  126.         Warning(hwnd, "Out of memory requesting %ld bytes", cb);
  127.         return ( FALSE );
  128.         }
  129.  
  130.     if ( (rc = gbm_read_data(fd, ft, gbm, *ppbData)) != GBM_ERR_OK )
  131.         {
  132.         free(*ppbData);
  133.         close(fd);
  134.         Warning(hwnd, "Can't read file data of %s: %s", szFn, gbm_err(rc));
  135.         return ( FALSE );
  136.         }
  137.  
  138.     close(fd);
  139.  
  140.     return ( TRUE );
  141.     }
  142. /*...e*/
  143. /*...sTo24Bit:0:*/
  144. static BOOL To24Bit(GBM *gbm, GBMRGB *gbmrgb, BYTE **ppbData)
  145.     {
  146.     int    stride = ((gbm -> w * gbm -> bpp + 31)/32) * 4;
  147.     int    new_stride = ((gbm -> w * 3 + 3) & ~3);
  148.     int    bytes, y;
  149.     byte    *pbDataNew;
  150.  
  151.     if ( gbm -> bpp == 24 )
  152.         return ( TRUE );
  153.  
  154.     bytes = new_stride * gbm -> h;
  155.     if ( (pbDataNew = malloc(bytes)) == NULL )
  156.         return ( FALSE );
  157.  
  158.     for ( y = 0; y < gbm -> h; y++ )
  159.         {
  160.         byte    *src = *ppbData + y * stride;
  161.         byte    *dest = pbDataNew + y * new_stride;
  162.         int    x;
  163.  
  164.         switch ( gbm -> bpp )
  165.             {
  166. /*...s1:24:*/
  167. case 1:
  168.     {
  169.     byte    c;
  170.  
  171.     for ( x = 0; x < gbm -> w; x++ )
  172.         {
  173.         if ( (x & 7) == 0 )
  174.             c = *src++;
  175.         else
  176.             c <<= 1;
  177.  
  178.         *dest++ = gbmrgb [(c & 0x80) != 0].b;
  179.         *dest++ = gbmrgb [(c & 0x80) != 0].g;
  180.         *dest++ = gbmrgb [(c & 0x80) != 0].r;
  181.         }
  182.     }
  183.     break;
  184. /*...e*/
  185. /*...s4:24:*/
  186. case 4:
  187.     for ( x = 0; x + 1 < gbm -> w; x += 2 )
  188.         {
  189.         byte    c = *src++;
  190.  
  191.         *dest++ = gbmrgb [c >> 4].b;
  192.         *dest++ = gbmrgb [c >> 4].g;
  193.         *dest++ = gbmrgb [c >> 4].r;
  194.         *dest++ = gbmrgb [c & 15].b;
  195.         *dest++ = gbmrgb [c & 15].g;
  196.         *dest++ = gbmrgb [c & 15].r;
  197.         }
  198.  
  199.     if ( x < gbm -> w )
  200.         {
  201.         byte    c = *src;
  202.  
  203.         *dest++ = gbmrgb [c >> 4].b;
  204.         *dest++ = gbmrgb [c >> 4].g;
  205.         *dest++ = gbmrgb [c >> 4].r;
  206.         }
  207.     break;
  208. /*...e*/
  209. /*...s8:24:*/
  210. case 8:
  211.     for ( x = 0; x < gbm -> w; x++ )
  212.         {
  213.         byte    c = *src++;
  214.  
  215.         *dest++ = gbmrgb [c].b;
  216.         *dest++ = gbmrgb [c].g;
  217.         *dest++ = gbmrgb [c].r;
  218.         }
  219.     break;
  220. /*...e*/
  221.             }
  222.         }
  223.     free(*ppbData);
  224.     *ppbData = pbDataNew;
  225.     gbm -> bpp = 24;
  226.  
  227.     return ( TRUE );
  228.     }
  229. /*...e*/
  230. /*...sMakeBitmap:0:*/
  231. static BOOL MakeBitmap(
  232.     HWND hwnd,
  233.     GBM *gbm, GBMRGB *gbmrgb, BYTE *pbData,
  234.     HBITMAP *phbm
  235.     )
  236.     {
  237.     HAB hab = WinQueryAnchorBlock(hwnd);
  238.     USHORT cRGB, usCol;
  239.     SIZEL sizl;
  240.     HDC hdc;
  241.     HPS hps;
  242.     struct
  243.         {
  244.         BITMAPINFOHEADER2 bmp2;
  245.         RGB2 argb2Color [0x100];
  246.         } bm;
  247.  
  248.     /* Got the data in memory, now make bitmap */
  249.  
  250.     memset(&bm, 0, sizeof(bm));
  251.  
  252.     bm.bmp2.cbFix     = sizeof(BITMAPINFOHEADER2);
  253.     bm.bmp2.cx        = gbm -> w;
  254.     bm.bmp2.cy        = gbm -> h;
  255.     bm.bmp2.cBitCount = gbm -> bpp;
  256.     bm.bmp2.cPlanes   = 1;
  257.  
  258.     cRGB = ( (1 << gbm -> bpp) & 0x1ff );
  259.         /* 1 -> 2, 4 -> 16, 8 -> 256, 24 -> 0 */
  260.  
  261.     for ( usCol = 0; usCol < cRGB; usCol++ )
  262.         {
  263.         bm.argb2Color [usCol].bRed   = gbmrgb [usCol].r;
  264.         bm.argb2Color [usCol].bGreen = gbmrgb [usCol].g;
  265.         bm.argb2Color [usCol].bBlue  = gbmrgb [usCol].b;
  266.         }
  267.  
  268.     if ( (hdc = DevOpenDC(hab, OD_MEMORY, "*", 0L, (PDEVOPENDATA) NULL, (HDC) NULL)) == (HDC) NULL )
  269.         {
  270.         Warning(hwnd, "DevOpenDC failure");
  271.         return ( FALSE );
  272.         }
  273.  
  274.     sizl.cx = bm.bmp2.cx;
  275.     sizl.cy = bm.bmp2.cy;
  276.     if ( (hps = GpiCreatePS(hab, hdc, &sizl, PU_PELS | GPIF_DEFAULT | GPIT_MICRO | GPIA_ASSOC)) == (HPS) NULL )
  277.         {
  278.         Warning(hwnd, "GpiCreatePS failure");
  279.         DevCloseDC(hdc);
  280.         return ( FALSE );
  281.         }
  282.  
  283.  
  284.     if ( cRGB == 2 )
  285. /*...shandle 1bpp case:16:*/
  286. /*
  287. 1bpp presentation spaces have a reset or background colour.
  288. They also have a contrast or foreground colour.
  289. When data is mapped into a 1bpp presentation space :-
  290. Data which is the reset colour, remains reset, and is stored as 0's.
  291. All other data becomes contrast, and is stored as 1's.
  292. The reset colour for 1bpp screen HPSs is white.
  293. I want 1's in the source data to become 1's in the HPS.
  294. We seem to have to reverse the ordering here to get the desired effect.
  295. */
  296.  
  297. {
  298. static RGB2 argb2Black = { 0x00, 0x00, 0x00 };
  299. static RGB2 argb2White = { 0xff, 0xff, 0xff };
  300. bm.argb2Color [0] = argb2Black; /* Contrast */
  301. bm.argb2Color [1] = argb2White; /* Reset */
  302. }
  303. /*...e*/
  304.  
  305.     if ( (*phbm = GpiCreateBitmap(hps, &(bm.bmp2), CBM_INIT, pbData, (BITMAPINFO2 *) &(bm.bmp2))) == (HBITMAP) NULL )
  306.         {
  307.         Warning(hwnd, "GpiCreateBitmap failure");
  308.         GpiDestroyPS(hps);
  309.         DevCloseDC(hdc);
  310.         return ( FALSE );
  311.         }
  312.  
  313.     GpiSetBitmap(hps, (HBITMAP) NULL);
  314.     GpiDestroyPS(hps);
  315.     DevCloseDC(hdc);
  316.  
  317.     return ( TRUE );
  318.     }
  319. /*...e*/
  320.  
  321. /*...sGbmVWndProc:0:*/
  322. MRESULT _System GbmVWndProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
  323.     {
  324.     switch ( (int) msg )
  325.         {
  326. /*...sWM_COMMAND \45\ menu command:16:*/
  327. case WM_COMMAND:
  328.     switch ( COMMANDMSG(&msg) -> cmd )
  329.         {
  330. /*...sMID_EXIT \45\ initiate shutdown of this app:32:*/
  331. case MID_EXIT:
  332.     WinPostMsg(hwnd, WM_QUIT, 0L, 0L);
  333.     break;
  334. /*...e*/
  335.         }
  336.     return ( (MRESULT) 0 );
  337. /*...e*/
  338. /*...sWM_PAINT   \45\ repaint client area:16:*/
  339. case WM_PAINT:
  340.     {
  341.     static SIZEL sizl = { 0, 0 };
  342.     HPS hps = WinBeginPaint(hwnd, (HPS) NULL, NULL);
  343.     HAB hab = WinQueryAnchorBlock(hwnd);
  344.     HDC hdcBmp = DevOpenDC(hab, OD_MEMORY, "*", 0L, (PDEVOPENDATA) NULL, (HDC) NULL);
  345.     HPS hpsBmp = GpiCreatePS(hab, hdcBmp, &sizl, PU_PELS | GPIF_DEFAULT | GPIT_MICRO | GPIA_ASSOC);
  346.     POINTL aptl [4];
  347.     RECTL rcl;
  348.     BITMAPINFOHEADER bmp;
  349.  
  350.     GpiQueryBitmapParameters(hbmBmp, &bmp);
  351.  
  352.     GpiSetBitmap(hpsBmp, hbmBmp);
  353.  
  354.     GpiSetBackColor(hps, GpiQueryColorIndex(hps, 0, lColorBg));
  355.     GpiSetColor    (hps, GpiQueryColorIndex(hps, 0, lColorFg));
  356.  
  357.     WinQueryWindowRect(hwnd, &rcl);
  358.     aptl [0].x = rcl.xLeft;
  359.     aptl [0].y = rcl.yBottom;
  360.     aptl [1].x = rcl.xRight;
  361.     aptl [1].y = rcl.yTop;
  362.     aptl [2].x = 0;
  363.     aptl [2].y = 0;
  364.     aptl [3].x = bmp.cx;
  365.     aptl [3].y = bmp.cy;
  366.     GpiBitBlt(hps, hpsBmp, 4L, aptl, ROP_SRCCOPY, BBO_IGNORE);
  367.  
  368.     GpiSetBitmap(hpsBmp, (HBITMAP) NULL);
  369.     GpiDestroyPS(hpsBmp);
  370.     DevCloseDC(hdcBmp);
  371.  
  372.     WinEndPaint(hps);
  373.     }
  374.     return ( (MRESULT) 0 );
  375. /*...e*/
  376.         }
  377.     return ( WinDefWindowProc(hwnd, msg, mp1, mp2) );
  378.     }
  379. /*...e*/
  380.  
  381. int main(int argc, CHAR *argv [])
  382.     {
  383.     HAB hab = WinInitialize(0);
  384.     HMQ hmq = WinCreateMsgQueue(hab, 0);/* 0 => default size for message Q   */
  385.     static ULONG flFrameFlags = FCF_TITLEBAR  | FCF_SYSMENU    |
  386.                     FCF_MINBUTTON | FCF_TASKLIST   |
  387.                     FCF_BORDER    | FCF_ACCELTABLE ;
  388.     QMSG qMsg;
  389.     CHAR sz [255+1], *szOpt;
  390.     GBM gbm;
  391.     GBMRGB gbmrgb [0x100];
  392.     BYTE *pbData;
  393.     BOOL fHalftone = FALSE, fErrdiff = FALSE, fOk;
  394.     int i;
  395.  
  396. /*...sprocess command line options:8:*/
  397. for ( i = 1; i < argc; i++ )
  398.     {
  399.     if ( argv [i][0] != '-' )
  400.         break;
  401.     switch ( argv [i][1] )
  402.         {
  403.         case 'e':    fErrdiff = TRUE;
  404.                 break;
  405.         case 'h':    fHalftone = TRUE;
  406.                 break;
  407.         default:    Usage(HWND_DESKTOP);
  408.                 break;
  409.         }
  410.     }
  411.  
  412. if ( fErrdiff && fHalftone )
  413.     Fatal(HWND_DESKTOP, "error-diffusion and halftoning can't both be done at once");
  414.  
  415. if ( i == argc )
  416.     Usage(HWND_DESKTOP);
  417. /*...e*/
  418.  
  419.     gbm_init();
  420.  
  421.     if ( (szOpt = strchr(argv [i], ',')) != NULL )
  422.         *szOpt++ = '\0';
  423.     else
  424.         szOpt = "";
  425.  
  426.     if ( LoadBitmap(HWND_DESKTOP, argv [i], szOpt, &gbm, gbmrgb, &pbData) )
  427.         {
  428.         HPS hps = WinGetPS(HWND_DESKTOP);
  429.         HDC hdc = GpiQueryDevice(hps);
  430.         LONG lPlanes, lBitCount;
  431.  
  432.         DevQueryCaps(hdc, CAPS_COLOR_PLANES  , 1L, &lPlanes  );
  433.         DevQueryCaps(hdc, CAPS_COLOR_BITCOUNT, 1L, &lBitCount);
  434.         WinReleasePS(hps);
  435.  
  436.         if ( fHalftone || fErrdiff )
  437.             fOk = To24Bit(&gbm, gbmrgb, &pbData);
  438.         else
  439.             fOk = TRUE;
  440.  
  441.         if ( fOk )
  442. /*...scan now go on to errordiffuse\47\halftone and display:24:*/
  443. {
  444. if ( fHalftone )
  445.     switch ( (int) lBitCount )
  446.         {
  447.         case 4:
  448.             gbm_ht_pal_VGA(gbmrgb);
  449.             gbm_ht_VGA_3x3(&gbm, pbData, pbData);
  450.             gbm.bpp = 4;
  451.             break;
  452.         case 8:
  453.             gbm_ht_pal_7R8G4B(gbmrgb);
  454.             gbm_ht_7R8G4B_2x2(&gbm, pbData, pbData);
  455.             gbm.bpp = 8;
  456.             break;
  457.         case 16:
  458.             gbm_ht_24_2x2(&gbm, pbData, pbData, 0xf8, 0xfc, 0xf8);
  459.             gbm.bpp = 24;
  460.             break;
  461.         }
  462. else if ( fErrdiff )
  463.     switch ( (int) lBitCount )
  464.         {
  465.         case 4:
  466.             gbm_errdiff_pal_VGA(gbmrgb);
  467.             gbm_errdiff_VGA(&gbm, pbData, pbData);
  468.             gbm.bpp = 4;
  469.             break;
  470.         case 8:
  471.             gbm_errdiff_pal_7R8G4B(gbmrgb);
  472.             gbm_errdiff_7R8G4B(&gbm, pbData, pbData);
  473.             gbm.bpp = 8;
  474.             break;
  475.         case 16:
  476.             if ( !gbm_errdiff_24(&gbm, pbData, pbData, 0xf8, 0xfc, 0xf8) )
  477.                 break;
  478.             gbm.bpp = 24;
  479.             break;
  480.         }
  481. fOk = MakeBitmap(HWND_DESKTOP, &gbm, gbmrgb, pbData, &hbmBmp);
  482. if ( gbm.bpp == 1 )
  483. /*...sremember Bg and Fg colours:32:*/
  484. {
  485. lColorBg = (gbmrgb [0].r << 16) + (gbmrgb [0].g << 8) + gbmrgb [0].b;
  486. lColorFg = (gbmrgb [1].r << 16) + (gbmrgb [1].g << 8) + gbmrgb [1].b;
  487. }
  488. /*...e*/
  489.  
  490. free(pbData);
  491. if ( fOk )
  492. /*...sall ok\44\ do PM windows etc\46\:32:*/
  493. {
  494. RECTL rcl;
  495. SHORT cxScreen, cyScreen, cxWindow, cyWindow;
  496. BITMAPINFOHEADER bmp;
  497.  
  498. WinRegisterClass(
  499.     hab,            /* Anchor block handle               */
  500.     WC_GBMV,        /* Window class name                 */
  501.     GbmVWndProc,        /* Responding procedure for class    */
  502.     CS_SIZEREDRAW,        /* Class style                       */
  503.     0);            /* Extra bytes to reserve for class  */
  504.  
  505. hwndFrame = WinCreateStdWindow(
  506.     HWND_DESKTOP,        /* Parent window handle              */
  507.     0L,            /* Style of frame window             */
  508.     &flFrameFlags,        /* Pointer to control data           */
  509.     WC_GBMV,        /* Client window class name          */
  510.     NULL,            /* Title bar text                    */
  511.     0L,            /* Style of client window            */
  512.     (HMODULE) NULL,        /* Module handle for resources       */
  513.     RID_STANDARD,        /* ID of resources                   */
  514.     &hwndClient);        /* Pointer to client window handle   */
  515.  
  516. strcpy(sz, argv [i]);
  517. if ( szOpt [0] )
  518.     {
  519.     strcat(sz, ",");
  520.     strcat(sz, szOpt);
  521.     }
  522. if ( fErrdiff )
  523.     strcat(sz, " -e");
  524. else if ( fHalftone )
  525.     strcat(sz, " -h");
  526. WinSetWindowText(hwndFrame, sz);
  527.  
  528. GpiQueryBitmapParameters(hbmBmp, &bmp);
  529.  
  530. rcl.xLeft   = 0L;
  531. rcl.xRight  = bmp.cx;
  532. rcl.yBottom = 0L;
  533. rcl.yTop    = bmp.cy;
  534. WinCalcFrameRect(hwndFrame, &rcl, FALSE);
  535.  
  536. cxWindow = (SHORT) (rcl.xRight - rcl.xLeft),
  537. cyWindow = (SHORT) (rcl.yTop - rcl.yBottom),
  538. cxScreen = (SHORT) WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN);
  539. cyScreen = (SHORT) WinQuerySysValue(HWND_DESKTOP, SV_CYSCREEN);
  540.  
  541. WinSetWindowPos(hwndFrame,
  542.         HWND_TOP,
  543.         (cxScreen - cxWindow) / 2,
  544.         (cyScreen - cyWindow) / 2,
  545.         cxWindow,
  546.         cyWindow,
  547.         SWP_MOVE | SWP_SIZE | SWP_ACTIVATE | SWP_SHOW);
  548.  
  549. while ( WinGetMsg(hab, &qMsg, (HWND) NULL, 0, 0) )
  550.     WinDispatchMsg(hab, &qMsg);
  551.  
  552. WinDestroyWindow(hwndFrame);
  553. }
  554. /*...e*/
  555. }
  556. /*...e*/
  557.         else
  558.             {
  559.             free(pbData);
  560.             Error(HWND_DESKTOP, "Out of memory");
  561.             }
  562.         }
  563.  
  564.     WinDestroyMsgQueue(hmq);
  565.     WinTerminate(hab);
  566.  
  567.     gbm_deinit();
  568.  
  569.     return ( 0 );
  570.     }
  571. /*...e*/
  572.