mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-15 15:57:13 +00:00
320 lines
7.4 KiB
C
320 lines
7.4 KiB
C
/* $Id: imagefile.c,v 1.2 1999/01/03 02:07:07 sybalsky Exp $ (C) Copyright Venue, All Rights
|
|
* Reserved */
|
|
static char *id = "$Id: imagefile.c,v 1.2 1999/01/03 02:07:07 sybalsky Exp $ Copyright (C) Venue";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/* The contents of this file are proprietary information */
|
|
/* belonging to Venue, and are provided to you under license. */
|
|
/* They may not be further distributed or disclosed to third */
|
|
/* parties without the specific permission of Venue. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <stdio.h>
|
|
#include <pixrect/pixrect_hs.h>
|
|
|
|
#define NOT_IMAGEFILE 0
|
|
#define TYPE_SUNRASTER 1
|
|
#define TYPE_PBM 2
|
|
#define TYPE_PPM 3
|
|
|
|
struct image_info {
|
|
int depth;
|
|
int width;
|
|
int height;
|
|
};
|
|
|
|
struct rgb {
|
|
unsigned char r;
|
|
unsigned char g;
|
|
unsigned char b;
|
|
};
|
|
|
|
Pixrect *PPM_to_Pixrect(), *PBM_to_Pixrect(), *SunRaster_to_Pixrect();
|
|
|
|
#define MAX_BUFF_SIZE 1024
|
|
static char buff[MAX_BUFF_SIZE];
|
|
|
|
int Pixrect_to_File(pix, name) Pixrect *pix;
|
|
char *name;
|
|
{
|
|
FILE *file;
|
|
int err = 0;
|
|
|
|
switch (pix->pr_depth) {
|
|
case 1:
|
|
file = fopen(name, "w");
|
|
err = Pixrect_to_PBM(file, pix);
|
|
fclose(file);
|
|
break;
|
|
case 32:
|
|
file = fopen(name, "w");
|
|
err = Pixrect_to_PPM(file, pix);
|
|
fclose(file);
|
|
break;
|
|
case 8:
|
|
break;
|
|
defaults:
|
|
break;
|
|
} /* end switch( pix->depth ) */
|
|
|
|
return (err);
|
|
} /* end Pixrect_to_File */
|
|
|
|
Pixrect *File_to_Pixrect(name) char *name;
|
|
{
|
|
FILE *file;
|
|
Pixrect *pix;
|
|
int type;
|
|
|
|
file = fopen(name, "r");
|
|
|
|
type = image_file_type(file);
|
|
|
|
switch (type) {
|
|
case TYPE_SUNRASTER: pix = SunRaster_to_Pixrect(file); break;
|
|
case TYPE_PBM: pix = PBM_to_Pixrect(file); break;
|
|
case TYPE_PPM:
|
|
pix = PPM_to_Pixrect(file);
|
|
break;
|
|
defaults:
|
|
break;
|
|
} /* end switch */
|
|
|
|
fclose(file);
|
|
|
|
return (pix);
|
|
|
|
} /* end File_to_Pixrect */
|
|
|
|
#define magic_number_PBM "P4"
|
|
#define magic_number_PPM "P6"
|
|
|
|
Pixrect_to_PPM(file, pix) FILE *file;
|
|
Pixrect *pix;
|
|
{
|
|
struct image_info info;
|
|
|
|
info.width = pix->pr_width;
|
|
info.height = pix->pr_height;
|
|
info.depth = pix->pr_depth;
|
|
write_PPM_header(file, &info);
|
|
|
|
write_raw_PPM(file, mpr_d(pix)->md_image, pix->pr_width, pix->pr_height);
|
|
|
|
} /* end Pixrect_to_PPM */
|
|
|
|
Pixrect *PPM_to_Pixrect(file) FILE *file;
|
|
{
|
|
Pixrect *pix;
|
|
struct image_info info;
|
|
|
|
read_PPM_header(file, &info);
|
|
pix = mem_create(info.width, info.height, 32);
|
|
read_raw_PPM(file, mpr_d(pix)->md_image, info.width, info.height);
|
|
|
|
return (pix);
|
|
} /* PPM_to_Pixrect */
|
|
|
|
Pixrect_to_PBM(file, pix) FILE *file;
|
|
Pixrect *pix;
|
|
{
|
|
struct image_info info;
|
|
|
|
info.width = pix->pr_width;
|
|
info.height = pix->pr_height;
|
|
info.depth = pix->pr_depth;
|
|
write_PBM_header(file, &info);
|
|
|
|
write_raw_PBM(file, mpr_d(pix)->md_image, pix->pr_width, pix->pr_height);
|
|
|
|
} /* end Pixrect_to_PBM */
|
|
|
|
Pixrect *PBM_to_Pixrect(file) FILE *file;
|
|
{
|
|
Pixrect *pix;
|
|
struct image_info info;
|
|
|
|
read_PPM_header(file, &info);
|
|
pix = mem_create(info.width, info.height, 32);
|
|
read_raw_PPM(file, mpr_d(pix)->md_image, info.width, info.height);
|
|
|
|
return (pix);
|
|
|
|
} /* end PBM_to_Pixrect */
|
|
|
|
Pixrect *SunRaster_to_Pixrect(file) FILE *file;
|
|
{
|
|
Pixrect *pix;
|
|
colormap_t cmap;
|
|
|
|
cmap.type = RMT_NONE;
|
|
|
|
pix = pr_load(file, &cmap);
|
|
|
|
return (pix);
|
|
} /* end SunRaster_to_Pixrect */
|
|
|
|
write_raw_PBM(file, data, width, height) FILE *file;
|
|
unsigned char *data;
|
|
int width, height;
|
|
{
|
|
int i, n, flg, len;
|
|
|
|
n = ((width + 15) / 16) * 2; /* bytes per line */
|
|
flg = (width % 16) / 8; /* PBM is byts alignment */
|
|
for (i = 0; i < height; i++, data += n) {
|
|
len = fwrite(data, sizeof(data), (n - (flg ? 1 : 0)), file);
|
|
} /* end for( i ) */
|
|
} /* end write_PBM_data */
|
|
|
|
read_raw_PBM(file, data, width, height) FILE *file;
|
|
char *data;
|
|
int width, height;
|
|
{
|
|
int n, i, flg, len;
|
|
|
|
n = ((width + 15) / 16) * 2; /* bytes per line */
|
|
flg = (width % 16) / 8; /* PBM is byts alignment */
|
|
for (i = 0; i < height; i++, data += n) {
|
|
len = fread(data, sizeof(data), (n - (flg ? 1 : 0)), file);
|
|
} /* end for( i ) */
|
|
} /* end read_raw_PBM */
|
|
|
|
write_raw_PPM(file, data, width, height) FILE *file;
|
|
unsigned char *data;
|
|
int width, height;
|
|
{
|
|
struct rgb color24;
|
|
int i, j, len;
|
|
|
|
for (i = 0; i < height; i++) {
|
|
for (j = 0; j < width; j++, ((union fbunit *)data)++) {
|
|
color24.r = ((union fbunit *)data)->channel.R;
|
|
color24.g = ((union fbunit *)data)->channel.G;
|
|
color24.b = ((union fbunit *)data)->channel.B;
|
|
len = fwrite(&color24, sizeof(color24), 1, file);
|
|
} /* end for( j ) */
|
|
} /* end for( i ) */
|
|
} /* end write_raw_PPM */
|
|
|
|
read_raw_PPM(file, data, width, height) FILE *file;
|
|
unsigned char *data;
|
|
int width, height;
|
|
{
|
|
struct rgb color24;
|
|
int i, j, len;
|
|
|
|
for (i = 0; i < height; i++) {
|
|
for (j = 0; j < width; j++, ((union fbunit *)data)++) {
|
|
len = fread((char *)(&color24), sizeof(color24), 1, file);
|
|
((union fbunit *)data)->channel.R = color24.r;
|
|
((union fbunit *)data)->channel.G = color24.g;
|
|
((union fbunit *)data)->channel.B = color24.b;
|
|
} /* end for( j ) */
|
|
} /* end for( i ) */
|
|
} /* endi read_raw_PPM */
|
|
|
|
int image_file_type(file) FILE *file;
|
|
{
|
|
int c, file_type;
|
|
|
|
if ((c = getc(file)) == -1) return (NOT_IMAGEFILE);
|
|
|
|
switch (c) {
|
|
case 'Y': /* may be Sun Raster format */ file_type = TYPE_SUNRASTER; break;
|
|
case 'P': {
|
|
if ((c = getc(file)) == -1) return (NOT_IMAGEFILE);
|
|
if (c == '4')
|
|
file_type = TYPE_PBM;
|
|
else if (c == '6')
|
|
file_type = TYPE_PPM;
|
|
else
|
|
file_type = NOT_IMAGEFILE;
|
|
} /* end case P */
|
|
break;
|
|
defaults:
|
|
file_type = NOT_IMAGEFILE;
|
|
break;
|
|
} /* end switch( c ) */
|
|
|
|
rewind(file);
|
|
|
|
return (file_type);
|
|
} /* end image_file_type */
|
|
|
|
read_PBM_header(file, info) FILE *file;
|
|
struct image_info *info;
|
|
{
|
|
int err;
|
|
|
|
err = skip_line(file);
|
|
if (err == 0) return (err);
|
|
|
|
err = read_available_line(file, buff);
|
|
if (err == 0) return (err);
|
|
err = sscanf(buff, "%d %d", &(info->width), &(info->height));
|
|
if (err == 0) return (err);
|
|
|
|
return (err);
|
|
|
|
} /* end read_PBM_header */
|
|
|
|
write_PBM_header(file, info) FILE *file;
|
|
struct image_info *info;
|
|
{
|
|
fprintf(file, "P4\n");
|
|
fprintf(file, "%d %d\n", info->width, info->height);
|
|
} /* write_PBM_header */
|
|
|
|
read_PPM_header(file, info) FILE *file;
|
|
struct image_info *info;
|
|
{
|
|
int err;
|
|
|
|
err = skip_line(file);
|
|
if (err == 0) return (err);
|
|
|
|
err = read_available_line(file, buff);
|
|
if (err == 0) return (err);
|
|
err = sscanf(buff, "%d %d", &(info->width), &(info->height));
|
|
if (err == 0) return (err);
|
|
|
|
err = skip_line(file);
|
|
|
|
return (err);
|
|
|
|
} /* read_PPM_header */
|
|
|
|
write_PPM_header(file, info) FILE *file;
|
|
struct image_info *info;
|
|
{
|
|
fprintf(file, "P6\n");
|
|
fprintf(file, "%d %d\n", info->width, info->height);
|
|
fprintf(file, "255\n");
|
|
} /* end write_PPM_header */
|
|
|
|
int skip_line(file) FILE *file;
|
|
{
|
|
char *err;
|
|
char buff[MAX_BUFF_SIZE];
|
|
|
|
err = fgets(buff, (int)MAX_BUFF_SIZE, file);
|
|
return ((int)err);
|
|
} /* end skip_line */
|
|
|
|
int read_available_line(file, buff) FILE *file;
|
|
char *buff;
|
|
{
|
|
char *err;
|
|
err = fgets(buff, MAX_BUFF_SIZE, file);
|
|
while ((err != 0) && (buff[0] == '#')) { err = fgets(buff, MAX_BUFF_SIZE, file); } /* end while */
|
|
return ((int)err);
|
|
} /* end read_available_line */
|