home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / MISC / STK100.ZIP / STKSRC.COM / SPR_FIO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-10-20  |  3.7 KB  |  132 lines
  1. /**********************************************************************
  2. * spr_fio.c
  3. * 
  4. * The functions for reading sprites from a file.
  5. **********************************************************************
  6.                     This file is part of
  7.  
  8.           STK -- The sprite toolkit -- version 1.0
  9.  
  10.               Copyright (C) Jari Karjala 1990
  11.  
  12. The sprite toolkit (STK) is a FreeWare toolkit for creating high
  13. resolution sprite graphics with PCompatible hardware. This toolkit 
  14. is provided as is without any warranty or such thing. See the file
  15. COPYING for further information.
  16.  
  17. **********************************************************************/
  18.  
  19. #include <stdio.h>
  20. #include <string.h>
  21. #include <alloc.h>
  22.  
  23. #include "sprP.h"
  24. #include "spr.h"
  25.  
  26. /**********************************************************************
  27. * Reads the width and height form the given sprite map file.
  28. * Check the format ID, too.
  29. * 
  30. * Return: 0 if no errors, negative otherwise
  31. **********************************************************************/
  32. int static read_width_height(FILE *fp, WORD *w, WORD *h)
  33. {
  34.     char buf[80], buf2[80];
  35.     int ok;
  36.  
  37.     ok = 0;
  38.     while ((fgets(buf, sizeof(buf), fp)!=NULL) && buf[0]!='#')
  39.         if (strncmp(buf, "/* SMP", 5)==0)
  40.             ok = 1;
  41.         
  42.     if (!ok)            /** no identifier -> not a valid sprite bitmap **/
  43.         return -1;
  44.     
  45.     if (buf[0]!='#')
  46.         return -2;
  47.     if (sscanf(buf, "%s %s %d\n", buf2, buf2, w)!=3)
  48.         return -3;
  49.  
  50.     while ((fgets(buf, sizeof(buf), fp)!=NULL) && buf[0]!='#')
  51.         ;    
  52.     if (buf[0]!='#')
  53.         return -4;
  54.     if (sscanf(buf, "%s %s %d\n", buf2, buf2, h)!=3)
  55.         return -5;
  56.     
  57.     return 0;
  58. }
  59.  
  60. /**********************************************************************
  61. * Read a bitmap of w x h bits from the given file.
  62. * Return: 0 if no errors, negative otherwise
  63. **********************************************************************/
  64. int static read_map(FILE *fp, WORD w, WORD h, BITMAP bmp)
  65. {
  66.     int c,x,y;
  67.     
  68.     while ((c=fgetc(fp))!=EOF && c!='{')
  69.         ;
  70.     
  71.     if (c!='{')
  72.         return -1;
  73.  
  74.     for (y=0; y<h; y++)
  75.         for (x=0; x<w; x+=8) {
  76.             if (fscanf(fp, "%x", bmp)!=1)     /* get one hex byte */
  77.                 return -2;
  78.             bmp++;
  79.             c = fgetc(fp);                    /* remove ',' */
  80.         }
  81.         
  82.     return 0;
  83.     
  84. }
  85.  
  86. /**********************************************************************
  87. * Create a sprite from the given SMP file.
  88. *
  89. * smpfile   The sprite bitmap file name.
  90. * res       The number of steps wanted per 8 bit interval in horizontal
  91. *           direction (1,2,4,8). For example, the value 8 gives one
  92. *           pixel resolution in X-direction.
  93. * ID        The user supplied ID for the sprite (not obligatory)
  94. *
  95. * Return: the newly created sprite or NULL if file not found, read
  96. *         error or out-of-memory
  97. **********************************************************************/
  98. SPRITE spr_fio_read_smp(char *smpfile, BYTE res, WORD ID)
  99. {
  100.     SPRITE spr;
  101.     FILE *fp;
  102.     BITMAP shape, mask;
  103.     WORD w,h,size;
  104.  
  105.     if ((fp=fopen(smpfile, "r"))==NULL)
  106.         return NULL;
  107.  
  108.     if (read_width_height(fp, &w, &h) < 0)
  109.         return NULL;
  110.  
  111.     if (w&7)
  112.         size = h*((w>>3) + 1);    /* not exact byte boundary, round up */
  113.     else
  114.         size = h*(w>>3);
  115.     
  116.     if ((shape=(BITMAP)malloc(size*2))==NULL)
  117.         return NULL;
  118.     mask = shape+size;
  119.     
  120.     if (read_map(fp, w, h, shape) < 0)
  121.         return NULL;
  122.     if (read_map(fp, w, h, mask) < 0)
  123.         return NULL;
  124.  
  125.     fclose(fp);
  126.     
  127.     spr = spr_create(w, h, shape, mask, res, ID);
  128.     free(shape);
  129.     
  130.     return spr;
  131. }
  132.