home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / d / desklib / !DeskSrc / FN / Libraries / Clear / c / Save < prev   
Encoding:
Text File  |  1996-05-13  |  1.9 KB  |  66 lines
  1. /*
  2.     ####             #    #     # #
  3.     #   #            #    #       #          The FreeWare C library for 
  4.     #   #  ##   ###  #  # #     # ###             RISC OS machines
  5.     #   # #  # #     # #  #     # #  #   ___________________________________
  6.     #   # ####  ###  ##   #     # #  #                                      
  7.     #   # #        # # #  #     # #  #    Please refer to the accompanying
  8.     ####   ### ####  #  # ##### # ###    documentation for conditions of use
  9.     ________________________________________________________________________
  10.  
  11.     File:    Clear.c.Save
  12.     Author:  Copyright © 1993 Jason Howat
  13.     Version: 1.00 (16 Dec 1993)
  14.     Purpose: Save a Clear file to disk.
  15. */
  16.  
  17.  
  18. #include <string.h>
  19.  
  20. #include "Desk.Clear.h"
  21. #include "Desk.File.h"
  22. #include "Desk.Wimp.h"
  23.  
  24.  
  25. void Desk_Clear_Save(Desk_clear_picture *picture, char *filename)
  26. {
  27.   Desk_file_handle   out;
  28.   unsigned      colours,
  29.                 entry;
  30.   unsigned      Desk_bitmap_size;
  31.   Desk_palette_entry *palette;
  32.  
  33.  
  34.   if((out = Desk_File_Open(filename, Desk_file_WRITE)) == 0)
  35.     return;
  36.  
  37.   Desk_File_SetType(filename, 0x690);
  38.  
  39.   Desk_File_WriteBytes(out, picture->creator, strlen(picture->creator) + 1);
  40.  
  41.   Desk_File_Write32(out, picture->creatorversion);
  42.   Desk_File_Write32(out, picture->width);
  43.   Desk_File_Write32(out, picture->height);
  44.   Desk_File_Write32(out, picture->bpp);
  45.  
  46.   if(picture->bpp <= 8)
  47.   {
  48.     colours = 1 << picture->bpp;
  49.     palette = picture->palette;
  50.     for(entry = 0 ; entry < colours ; entry++)
  51.     {
  52.       Desk_File_Write8(out, palette[entry].data.red);
  53.       Desk_File_Write8(out, palette[entry].data.green);
  54.       Desk_File_Write8(out, palette[entry].data.blue);
  55.     }
  56.  
  57.     Desk_bitmap_size = picture->width * picture->height;
  58.   }
  59.   else
  60.     Desk_bitmap_size = 3 * picture->width * picture->height;
  61.  
  62.   Desk_File_WriteBytes(out, picture->bitmap, Desk_bitmap_size);
  63.  
  64.   Desk_File_Close(out);
  65. }
  66.