home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 580a.lha / hdf_utilities / src.LZH / src / paltohdf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-03  |  3.8 KB  |  155 lines
  1. /*****************************************************************************
  2. * 
  3. *              NCSA HDF version 3.10r5
  4. *                 October 24, 1991
  5. *
  6. * NCSA HDF Version 3.10r5 source code and documentation are in the public
  7. * domain.  Specifically, we give to the public domain all rights for future
  8. * licensing of the source code, all resale rights, and all publishing rights.
  9. * 
  10. * We ask, but do not require, that the following message be included in all
  11. * derived works:
  12. * 
  13. * Portions developed at the National Center for Supercomputing Applications at
  14. * the University of Illinois at Urbana-Champaign.
  15. * 
  16. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  17. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  18. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  19. * 
  20. *****************************************************************************/
  21. #ifdef RCSID
  22. static char RcsId[] = "@(#) $Revision: 3.2 $"
  23. #endif
  24. /*
  25. $Header: /pita/work/HDF/dev/RCS/src/paltohdf.c,v 3.2 1991/10/22 17:56:10 dilg beta $
  26.  
  27. $Log: paltohdf.c,v $
  28.  * Revision 3.2  1991/10/22  17:56:10  dilg
  29.  * 5
  30.  * HDF3.1r5
  31.  *
  32.  * New machine types added:
  33.  *
  34.  *         PC      - IBM PC (DOS)
  35.  *         WIN     - IBM PC (Microsoft Windows 3.0)
  36.  *         IBM6000 - IBM RS/6000 (AIX)
  37.  *         CONVEX  - Convex C-2 (Unix)
  38.  *
  39.  * Bugs fixed in:
  40.  *
  41.  *         scup32.f
  42.  *         cspck32.f
  43.  *         dfpFf.f
  44.  *         dfpF.c
  45.  *         dfsd.c
  46.  *
  47.  * New utility added:
  48.  *
  49.  *         ristosds.c - convert raster images to sds.
  50.  *
  51.  * Also:
  52.  *         All code for the library was modified to conform to the
  53.  *         ANSI C standard.
  54.  *
  55.  * Revision 3.1  1990/07/02  10:58:31  clow
  56.  * some cosmetic modifications
  57.  *
  58. */
  59. /*
  60. *  paltohdf.c
  61. *       Version: 1.0   date: August 1, 1989
  62. *       This utility converts a raw palette to hdf format 
  63. *       The incoming palette is assumed to have 768 bytes:
  64. *          256 red values, 256 greens, and 256 blues.
  65. *          The palette in the HDF file will have the RGB values
  66. *          interlaced: RGB RGB ... (This is standard HDF format.)
  67. *
  68. *  by Mike Folk
  69. *  first version of paltohdf:   8/01/89
  70. *
  71. *  This program is in the public domain
  72. */
  73.  
  74. #include <stdio.h>
  75. #include <hdf/df.h>
  76. #include <hdf/dfp.h>
  77.  
  78. unsigned char palspace[1024],
  79.             reds[256],
  80.             greens[256],
  81.             blues[256];
  82.  
  83.  
  84. #if defined __STDC__ || defined PC
  85. int main(int, char **);
  86. int palconv(char *, char *);
  87. #else
  88. int main();
  89. int palconv();
  90. #endif /* __STDC__ || PC */
  91.  
  92. #if defined __STDC__ || defined PC
  93. main(int argc, char *argv[]) 
  94. #else
  95. main(argc,argv) 
  96. int argc;
  97. char *argv[];
  98. #endif /* __STDC__ || PC */
  99. {
  100.     if (argc < 3) { 
  101.         puts("Usage:");
  102.         printf("   %s rawpalfile hdffile \n\n", argv[0]);
  103.         printf("%s,  version: 1.0   date: August 1, 1989\n\n",argv[0]);
  104.         printf("   This utility converts a raw palette to hdf format \n\n");
  105.         printf("   The incoming palette is assumed to have 768 bytes:\n");
  106.         printf("   256 red values, 256 greens, and 256 blues.\n\n");
  107.         printf("   The palette in the HDF file will have the RGB values\n");
  108.         printf("   interlaced: RGB RGB ... (This is standard HDF format.\n\n");
  109.         exit(1);
  110.     }
  111.  
  112.     palconv( argv[1], argv[2]);
  113. }
  114.  
  115. /*
  116.  *    palconv(palfile, outfile) sets the palette
  117.  */
  118.  
  119. #if defined __STDC__ || defined PC
  120. palconv(char *palfile, char *outfile)
  121. #else
  122. palconv( palfile,outfile)
  123. char *palfile, *outfile;
  124. #endif /* __STDC__ || PC */
  125. {
  126.     unsigned char *p;
  127.     FILE *fp;
  128.     int j,ret;
  129.  
  130.     fp = fopen(palfile,"r");
  131.     if (fp==NULL) {
  132.         printf(" Error opening palette file %s\n", palfile);
  133.         exit(1);
  134.     }
  135.     fread(reds,1,256,fp);
  136.     fread(greens,1,256,fp);
  137.     fread(blues,1,256,fp);
  138.     fclose(fp);
  139.  
  140.     p = palspace;
  141.     for (j=0; j<256; j++) {
  142.         *p++ = reds[j];
  143.         *p++ = greens[j];
  144.         *p++ = blues[j];
  145.     }
  146.  
  147.     ret = DFPaddpal(outfile, palspace);
  148.     if (ret < 0) {
  149.         printf(" Error: %d, in writing palette %s\n",ret, palfile);
  150.         exit(1);
  151.     }
  152.     return(0);
  153. }
  154.  
  155.