getsun.c File Reference

#include <stdio.h>
#include <math.h>
#include <sys/file.h>
#include <suntool/sunview.h>
#include <suntool/canvas.h>
#include "rle.h"

Include dependency graph for getsun.c:

Go to the source code of this file.

Macros
#define	DMAP(v, x, y)   (modN[v]>dm16[x][y] ? divN[v] + 1 : divN[v])

Functions
void	get_pic ()
void	create_window ()
void	init_color ()
void	map_rgb_to_bw ()
void	map_scanline ()
void	put_scanline ()
void	main (int argc, char **argv)
void	get_pic (FILE *infile, char *infname, char *cmdname)
void	create_window (int width, int height, char *name)
void	map_scanline (rgb, int n, int s, int y,*line)
void	put_scanline (unsigned char *scan, int width, int x, int y)
void	map_rgb_to_bw (rle_pixel *red_row, rle_pixel *green_row, rle_pixel *blue_row, rle_pixel *bw_row, rle_pixel **map, int rowlen)

Variables
static char	rcsid [] = "$Header: /l/spencer/src/urt/get/RCS/getsun.c,v 3.0.1.2 1992/04/30 14:05:10 spencer Exp $"
int	dm16 [16][16]
rle_pixel **	in_cmap
int	modN [256]
int	divN [256]
int	bwflag = 0
int	levels = 0
int	levelsq
int	levelsc
double	disp_gam = 2.5
double	img_gam = 1.0
int	iflag = 0
int	nscan
int	nrow
int	nbyte
int	dbg = 0
unsigned char *	buffer
Frame	frame
Canvas	canvas
Pixwin *	pw

Macro Definition Documentation

#define DMAP	(		v,
			x,
			y
	)		(modN[v]>dm16[x][y] ? divN[v] + 1 : divN[v])

Definition at line 357 of file getsun.c.

Function Documentation

void create_window

(

)

void create_window	(	int	width,
		int	height,
		char *	name
	)

Definition at line 315 of file getsun.c.

{
    char buf[BUFSIZ];

    sprintf(buf,"\"%s\": %d X %d",
        name, height, width);
    frame = window_create(0, FRAME, 
        FRAME_SHOW_LABEL, TRUE,
        FRAME_LABEL, buf,
        FRAME_NO_CONFIRM, TRUE,
        0);
    canvas = window_create(frame, CANVAS,
        WIN_HEIGHT, height,
        WIN_WIDTH, width,
        0);
    window_fit(frame);
    if ((pw = canvas_pixwin(canvas)) == NULL) {
        perror("Cannot create pixwin");
        exit( 1 );
    }
    if (pw->pw_pixrect->pr_depth == 1) bwflag=2;
}

void get_pic

(

)

void get_pic	(	FILE *	infile,
		char *	infname,
		char *	cmdname
	)

Definition at line 185 of file getsun.c.

{
    register int    i,
                    y;
    int         ncolors;
    unsigned char  *scan[3];
    rle_hdr hdr;

    /*
     * Read setup info from file. 
     */
    hdr = *rle_hdr_init( (rle_hdr *)NULL );
    rle_names( &hdr, cmdname, infname, 0 );

    hdr.rle_file = infile;
    rle_get_setup_ok(&hdr, NULL, NULL);

    if ( dbg )
    rle_debug( 1 );

    /* We're only interested in R, G, & B */
    RLE_CLR_BIT(hdr, RLE_ALPHA);
    for (i = 3; i < hdr.ncolors; i++)
    RLE_CLR_BIT(hdr, i);
    ncolors = hdr.ncolors > 3 ? 3 : hdr.ncolors;

    /*
     * Compute image size and allocate storage. 
     */
    nrow = (hdr.xmax - hdr.xmin + 1);
    nscan = (hdr.ymax - hdr.ymin + 1);

    /*
     * Get a window of the right size.
     */
    create_window(nrow, nscan, infname);

    if ( bwflag == 2 )
    nbyte = ((nrow + 15) / 16) * 2; /* 1 bit display */
    else
    nbyte = ((nrow + 1) / 2) * 2;

    buffer = (unsigned char *) malloc(nbyte * nscan);
    RLE_CHECK_ALLOC( hdr.cmd, buffer, "image memory" );

    /*
     * Set up for rle_getrow.  Pretend image x origin is 0. 
     */
    for (i = 0; i < 3; i++)
    scan[i] = (unsigned char *) malloc(nrow);
    RLE_CHECK_ALLOC( hdr.cmd, scan[0]&&scan[1]&&scan[2], "input scan memory" );
    hdr.xmax -= hdr.xmin;
    hdr.xmin = 0;

    /* If no image gamma on command line, check comments in file */
    if ( ! iflag )
    {
    char * v;
    if ( (v = rle_getcom( "image_gamma", &hdr )) != NULL )
    {
        img_gam = atof( v );
        /* Protect against bogus information */
        if ( img_gam == 0.0 )
        img_gam = 1.0;
        else
        img_gam = 1.0 / img_gam;
    }
    else if ( (v = rle_getcom( "display_gamma", &hdr )) != NULL )
    {
        img_gam = atof( v );
        /* Protect */
        if ( img_gam == 0.0 )
        img_gam = 1.0;
    }
    }

    /*
     * Set up the color map. 
     */
    /* Input map, at least 3 channels */
    in_cmap = buildmap( &hdr, 3, img_gam, 1.0 );

    init_color();

    /*
     * For each scan line, dither it and display. 
     */
    while ((y = rle_getrow(&hdr, scan)) <= hdr.ymax)
    {
    if ( bwflag && ncolors > 1 )
    {
        map_rgb_to_bw( scan[0], scan[1], scan[ncolors - 1], scan[0],
               in_cmap, nrow );
        /* Note: map_scanline only uses channel 0 for B&W */
    }
    else if ( bwflag )
        for ( i = 0; i < nrow; i++ )
        scan[0][i] = in_cmap[0][scan[0][i]];
    else
        for (i = 2; i >= ncolors; i--)
        bcopy(scan[0], scan[i], nrow);
    map_scanline(scan, nrow, 1, y,
             &buffer[(hdr.ymax - y) * nbyte]);
    put_scanline(&buffer[(hdr.ymax - y) * nbyte], nrow, 0,
             hdr.ymax - y );
    }
    /*
     * Free temp storage 
     */
    for (i = 0; i < 3; i++)
    free(scan[i]);
}

void init_color

(

)

Definition at line 477 of file getsun.c.

References bwdithermap(), bwflag, disp_gam, dithermap(), divN, dm16, levels, levelsc, levelsq, make_square(), and modN.

{
    register int i; 
    int rgbmap[256][3], bwmap[256]; 
    unsigned char colormap[3][256];
    char buf[12];

    if ( !bwflag )
    {
    /* 
     * Figure out how many color map entries we can get
     */
    if ( levels == 0 )
        levels = 5;     /* default starting point */

    levelsq = levels * levels;
    levelsc = levelsq * levels;
    
    dithermap( levels, disp_gam, rgbmap, divN, modN, dm16 );
    
    /* 
    * Copy the color map entries into something that sunwindows
        * can work with.
    */
    for(i = 0; i < levelsc; i++) {
        colormap[0][i] = (u_char)rgbmap[i][0]&0xff;
        colormap[1][i] = (u_char)rgbmap[i][1]&0xff;
        colormap[2][i] = (u_char)rgbmap[i][2]&0xff;
    }
    sprintf(buf,"getsun.c%1d",levels);
    pw_setcmsname(pw, buf);
    pw_putcolormap(pw, 0, 4<<levels,colormap[0],colormap[1],colormap[2]);
    return;
    }

    /* Get a B&W color map (gray scale) */
    if ( bwflag == 1 )
    {
    if ( levels == 0 )
        levels = 5;
    levelsq = levels * levels;
    levelsc = levelsq * levels;
    bwdithermap( levels, disp_gam, bwmap, divN, modN, dm16 );

    /* 
    * Copy the color map entries into something that sunwindows
        * can work with.
    */
        for ( i = 0; i < levelsc; i++ )
        {
        colormap[0][i] = (u_char)bwmap[i]&0xff;
        colormap[1][i] = (u_char)bwmap[i]&0xff;
        colormap[2][i] = (u_char)bwmap[i]&0xff;
        }
    sprintf(buf,"getsun.g%1d",levels);
    pw_setcmsname(pw, buf);
    pw_putcolormap(pw, 0,4<<levels, colormap[0],colormap[1],colormap[2]);
    return;
    }

    /* If b&w 1-bit display, just use two colors */
    if ( bwflag == 2 )
    {
    /* All we care about, really, is the magic square */
    make_square( 255.0, divN, modN, dm16 );
    levels = levelsc = 2;
    return;
    }
}

Here is the call graph for this function:

void main	(	int	argc,
		char **	argv
	)

Definition at line 125 of file getsun.c.

{
    CONST_DECL char *infname = NULL;
    FILE * infile;
    int gflag = 0;
    int forkflg = 0;

    if ( scanargs( argc, argv,
           "% Ww%- D%- f%- l%-levels!d Ii%-gamma!F g%-gamma!F file%s",
           &bwflag, &dbg, &forkflg,
           &levels, &levels,
           &iflag, &img_gam,
           &gflag, &disp_gam,
           &infname ) == 0 )
    exit( 1 );

    
    if ( levels != 0 && (levels > 6 || levels < 2)) {
        fprintf(stderr,"Level must be in the range [2,6]; %d is invalid!\n", levels);
        exit( 1 );
    }
    if ( iflag == 1 )       /* -i */
        img_gam = 1.0 / img_gam;
    
        infile = rle_open_f("getsun", infname, "r");
        if ( infile == stdin )
        infname = "Standard Input";

    if ( !forkflg && fork() != 0 )
        exit(0);
        get_pic( infile, infname);
        if ( infname != NULL)  fclose( infile);

        if ( !forkflg )
    {
        fclose(stdin);      /* Close stdio to release rshd. */
        fclose(stdout);
        fclose(stderr);
    }

    window_main_loop(frame);
    exit(0);
}

void map_rgb_to_bw

(

)

void map_rgb_to_bw	(	rle_pixel *	red_row,
		rle_pixel *	green_row,
		rle_pixel *	blue_row,
		rle_pixel *	bw_row,
		rle_pixel **	map,
		int	rowlen
	)

Definition at line 447 of file getsun.c.

{
    register int x, bw;

    for (x=0; x<rowlen; x++)
    {
    /* 68000 won't store float > 127 into byte? */
    /* HP compiler blows it */
    bw = .35*map[0][red_row[x]] + .55*map[1][green_row[x]] +
        .10*map[2][blue_row[x]];
    bw_row[x] = bw;
    }
}

void map_scanline

(

)

void map_scanline	(	rgb	,
		int	n,
		int	s,
		int	y,
		*	line
	)

Definition at line 359 of file getsun.c.

{
    register int i, col, row;

    if ( !bwflag )
    {
    register unsigned char *r, *g, *b;
    for ( row = y % 16, col = 0, i = 0, r = rgb[0], g = rgb[1], b = rgb[2];
          i < n; i++, r+=s, g+=s, b+=s, col = ((col + 1) & 15) )
        line[i] = DMAP(in_cmap[0][*r], col, row) +
                  DMAP(in_cmap[1][*g], col, row) * levels +
                  DMAP(in_cmap[2][*b], col, row) * levelsq;
    }
    else if ( bwflag == 1 ) /* gray scale display */
    {
    register unsigned char *r;

    for ( row = y % 16, col = 0, i = 0, r = rgb[0];
          i < n; i++, r+=s, col = ((col + 1) & 15) )
        line[i] = DMAP(*r, col, row);
    }
    else            /* bitmap display */
    {
    register unsigned short *l = (unsigned short *)line;
    register unsigned char * r;

    for ( row = y % 16, col = 0, i = 0, r = rgb[0], *l = 0;
          i < n; r+=s, col = ((col + 1) & 15) )
    {
        *l |= (*r > dm16[col][row] ? 0 : 1) << (15-(i % 16));
        if ( (++i % 16) == 0 )
        *++l = 0;
    }
    }
}

void put_scanline

(

)

void put_scanline	(	unsigned char *	scan,
		int	width,
		int	x,
		int	y
	)

Definition at line 412 of file getsun.c.

{
    Pixrect *pix;
    
    if ((pix = mem_point(width,1,pw->pw_pixrect->pr_depth,scan)) == NULL) {
        perror("Unable to allocate pixrect");
        exit( 1 );
    }
    
    pw_write(pw, x, y, width, 1, PIX_SRC, pix, 0, 0);
    free(pix);
}

Variable Documentation

unsigned char* buffer

Definition at line 87 of file getsun.c.

int bwflag = 0

Definition at line 65 of file getsun.c.

Canvas canvas

Definition at line 90 of file getsun.c.

int dbg = 0

Definition at line 85 of file getsun.c.

double disp_gam = 2.5

Definition at line 78 of file getsun.c.

int divN[256]

Definition at line 64 of file getsun.c.

int dm16[16][16]

Definition at line 58 of file getsun.c.

Frame frame

Definition at line 89 of file getsun.c.

int iflag = 0

Definition at line 80 of file getsun.c.

double img_gam = 1.0

Definition at line 79 of file getsun.c.

rle_pixel** in_cmap

Definition at line 63 of file getsun.c.

int levels = 0

Definition at line 73 of file getsun.c.

int levelsc

Definition at line 73 of file getsun.c.

int levelsq

Definition at line 73 of file getsun.c.

int modN[256]

Definition at line 64 of file getsun.c.

int nbyte

Definition at line 83 of file getsun.c.

int nrow

Definition at line 82 of file getsun.c.

int nscan

Definition at line 82 of file getsun.c.

Pixwin* pw

Definition at line 91 of file getsun.c.

char rcsid[] = "$Header: /l/spencer/src/urt/get/RCS/getsun.c,v 3.0.1.2 1992/04/30 14:05:10 spencer Exp $"

static

Definition at line 40 of file getsun.c.