Graphics Plus/Graphics Plus.iso/general/procssng/ccs/ccs-11.lha/ccs-lib/lib/rast_w.c

C/C++ Source or Header | 1992-10-08 | 4.4 KB | 174 lines

/*    rast_w . c
#
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

This software is copyright (C) by the Lawrence Berkeley Laboratory.
Permission is granted to reproduce this software for non-commercial
purposes provided that this notice is left intact.

It is acknowledged that the U.S. Government has rights to this software
under Contract DE-AC03-765F00098 between the U.S.  Department of Energy
and the University of California.

This software is provided as a professional and academic contribution
for joint exchange. Thus, it is experimental, and is provided ``as is'',
with no warranties of any kind whatsoever, no support, no promise of
updates, or printed documentation. By using this software, you
acknowledge that the Lawrence Berkeley Laboratory and Regents of the
University of California shall have no liability with respect to the
infringement of other copyrights by any part of this software.

For further information about this notice, contact William Johnston,
Bld. 50B, Rm. 2239, Lawrence Berkeley Laboratory, Berkeley, CA, 94720.
([e-mail])

For further information about this software, contact:
    Jin Guojun
    Bld. 50B, Rm. 2275, Lawrence Berkeley Laboratory, Berkeley, CA, 94720.
    [e-mail]

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% AUTHOR:    Jin Guojun - LBL    12/1/1991
*/

#include "header.def"
#include "imagedef.h"

#define    cols    img->width
#define    rows    img->height

colormap_t*
create_pr_colormap()
{
register int    l = MaxColors;
colormap_t*    pr_cmap = (colormap_t*)ZALLOC(1, sizeof(colormap_t), "pr-map");
    pr_cmap->type = RMT_EQUAL_RGB;
    pr_cmap->length = l;
    pr_cmap->map[0] = (byte*)ZALLOC(l, 3, "0");
    pr_cmap->map[1] = pr_cmap->map[0] + l;
    pr_cmap->map[2] = pr_cmap->map[1] + l;
return    pr_cmap;
}

void
free_pr_colormap(colormap_t* pr_cmap)
{
if (pr_cmap)
    free(pr_cmap->map[0]),
    free(pr_cmap);
}

colormap_t*
set_pr_colormap(cmap_t*    rg_map[3], register int    colors)
{
colormap_t* pr_cmap = create_pr_colormap();

    memcpy(pr_cmap->map[0], rg_map[0], colors);
    memcpy(pr_cmap->map[1], rg_map[1], colors);
    memcpy(pr_cmap->map[2], rg_map[2], colors);
return    pr_cmap;
}

colormap_t*
set_gs_colormap()
{
colormap_t* pr_cmap = create_pr_colormap();
register int    i;
    for (i=0; i < MaxColors; ++i)
    pr_cmap->map[0][i] = pr_cmap->map[1][i] =
    pr_cmap->map[2][i] = i;
return    pr_cmap;
}

write_rast(U_IMAGE *img, bool alpha, int pr_t)
{
int    depth=8, linesize, pr_type=RT_BYTE_ENCODED, row, colw=cols;
colormap_t    *pr_cmap=NULL;
struct pixrect    *pr;
byte*    data;
register byte    *inbp, *obp;

    switch (img->color_form) {
    case CFM_ALPHA:
    case CFM_ILL:
    case CFM_ILC:
        depth = alpha ? 32 : 24;
        pr_type = RT_STANDARD;
        break;
    case CFM_SCF:
        if (!reg_cmap[0] && rle_dflt_hdr.ncmap)
            rlemap_to_regmap(reg_cmap, &rle_dflt_hdr),
            img->cmaplen = 1 << rle_dflt_hdr.cmaplen;
        pr_cmap = set_pr_colormap(reg_cmap, 1<<min_bits(img->cmaplen-1));
        break;
    case CFM_SGF:
#ifdef    PIXRECT_NEED_CMAP
        pr_cmap = set_gs_colormap();    /* for Sun pixrect lib    */
#endif
        break;
    case CFM_BITMAP:
            depth = 1;
        if (img->in_color == CFM_BITMAP)
            colw = (colw + 7) >> 3;
        break;
    default:prgmerr(-1, "format error %d", img->color_form);
    }

    if (pr_t)    pr_type = pr_t;

    message("create %d-bit Sun-Raster image\n", depth);

    if (!(pr=mem_create(cols, rows, depth)))
        return    prgmerr(0, "create new pixrect");
    data = pr->pr_data->md_image;
    linesize = pr->pr_data->md_linebytes;
    if (colw < cols)    depth = 8;    /* transfer by coping    */

    for (row=0, inbp=(byte*)img->src; row < rows; ++row) {
    register int    col=colw;
    obp = data;
    switch (depth) {
    case 1: {
    register int    bitcount = 7;
        for (*obp=col=0; col < cols; col++) {
        if (! inbp[col])
            *obp |= 1 << bitcount;
        if (--bitcount < 0) {
            *++obp = 0;
            bitcount = 7;
        }
        }
    }    break;
    case 8:
        memcpy(obp, inbp, col);    break;
    case 24:
    case 32:
        if (img->color_form==CFM_ILC)
            ilc_transfer(obp, inbp, colw, 3, Yes, depth>>3),
            inbp += colw << 1;
    else    {    /* ILL    */
    register byte    *g=inbp+colw, *b=g+colw;
        while (col--) {
            if (alpha)
                *obp++ = (*b | *g | *inbp) ? 255 : 0;
            *obp++ = *b++,
            *obp++ = *g++,
            *obp++ = *inbp++;
        }
        inbp = g;
    }    break;
    default:    return    prgmerr(-'n', "not implemented");
    }

    data += linesize;
    inbp += colw;
    }    /* end of for    */

    depth = pr_dump(pr, img->OUT_FP, pr_cmap, pr_type, 0);
    free_pr_colormap(pr_cmap);
    if (depth==PIX_ERR)
        return    prgmerr(0, "RAS writing error %d", depth);
return    depth;
}