mirror of
https://github.com/Interlisp/maiko.git
synced 2026-03-03 18:06:23 +00:00
376 lines
7.4 KiB
C
Executable File
376 lines
7.4 KiB
C
Executable File
/* $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 */
|