getmex.c File Reference

#include <stdio.h>
#include <math.h>
#include "gl.h"
#include "device.h"
#include "rle.h"

Include dependency graph for getmex.c:

Go to the source code of this file.

Macros
#define	MAX(i, j)    ( (i) > (j) ? (i) : (j) )
#define	MIN(i, j)    ( (i) < (j) ? (i) : (j) )
#define	levels   8 /* Compute 3 bits per channel. */
#define	DMAP(v, x)   (modN[v]>row_ptr[x] ? divN[v] + 1 : divN[v])

Functions
	main (argc, char **argv)
	get_pic (FILE *infile, char *infname, char cmdname)
	update_pic ()
	map_scanline (rgb, n, y, Colorindex *line)
	init_dither ()
float	getgamma ()
	makemap ()
FILE *	configopen ()
float	gammacorrect ()
float	ungammacorrect ()
	gammapcolor (strchr, int strchr r, int strchr g, int strchr b)
static	makegamtables ()
static	fixup (unsigned char *cptr)
	gamgetmcolor (strchr, unsigned short *r, unsigned short *g, unsigned short *b)
float	gammacorrect (float i, float gamma)
float	ungammacorrect (float i, float gamma)
	newgamma ()
	newgamtables ()
	readgamtables ()
	setgamma (float gam)
	getcolorbal (unsigned int *r, unsigned int *g, unsigned int *b)
	setcolorbal (int r, int g, int b)
FILE *	configopen (name, mode)

Variables
Colorindex	color_start = 512
Colorindex	bw_start = 128
long	window_number
int	x_size
int	y_size
int	dbg = 0
int	forkflg = 0
int	bwflag = 0
Colorindex *	image
int	modN [256]
int	divN [256]
int	dm16 [16][16]
static unsigned char	rgamtable [256]
static unsigned char	ggamtable [256]
static unsigned char	bgamtable [256]
static unsigned char	rungamtable [256]
static unsigned char	gungamtable [256]
static unsigned char	bungamtable [256]
static short	firsted

Macro Definition Documentation

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

#define levels   8 /* Compute 3 bits per channel. */

Definition at line 31 of file getmex.c.

#define MAX	(		i,
			j
	)		( (i) > (j) ? (i) : (j) )

Definition at line 18 of file getmex.c.

#define MIN	(		i,
			j
	)		( (i) < (j) ? (i) : (j) )

Definition at line 19 of file getmex.c.

Function Documentation

FILE * configopen

(

)

#include "math.h" #include "port.h" #include "gl.h" #include "stdio.h"

#include "stdio.h" #include "port.h" #include "gl.h"

FILE* configopen	(	name	,
		mode
	)

Definition at line 636 of file getmex.c.

{
    char homepath[100];
    FILE *f;
    char *cptr;

    cptr = (char *)getenv("HOME");
    if (!cptr)
    return 0;
    strcpy(homepath,cptr);
    strcat(homepath,"/");
    strcat(homepath,name);
    return fopen(homepath,mode);
}

static fixup ( unsigned char *  cptr )

static

Definition at line 469 of file getmex.c.

{
    register short i, lowval;

    for (i=256; i--; ) {
        if (*cptr == 0) 
            *cptr = lowval;
        else
            lowval = *cptr;
    }
}

gamgetmcolor	(	strchr	,
		unsigned short *	r,
		unsigned short *	g,
		unsigned short *	b
	)

Definition at line 482 of file getmex.c.

{
    static short firsted;
    unsigned short tr, tg, tb;

    if (!firsted) {
        readgamtables();
        firsted++;
    }
    getmcolor(index,&tr,&tg,&tb);
    *r = rungamtable[tr&0xff];
    *g = gungamtable[tg&0xff];
    *b = bungamtable[tb&0xff];
}

float gammacorrect

(

)

float gammacorrect	(	float	i,
		float	gamma
	)

Definition at line 499 of file getmex.c.

{
    return pow(i,1.0/gamma);
}

gammapcolor	(	strchr	,
		int strchr	r,
		int strchr	g,
		int strchr	b
	)

Definition at line 427 of file getmex.c.

{
    short i;

    if (!firsted) {
        readgamtables();
        firsted++;
    }
    r = rgamtable[r&0xff];
    g = ggamtable[g&0xff];
    b = bgamtable[b&0xff];
    mapcolor(index,r,g,b);
}

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

Definition at line 88 of file getmex.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;
    if ( ncolors == 1 ) bwflag = TRUE;

    /*
     * Compute image size and allocate storage for colormapped image. 
     */
    x_size = (hdr.xmax - hdr.xmin + 1);
    y_size = (hdr.ymax - hdr.ymin + 1);
    image = (Colorindex *) malloc(x_size * y_size * sizeof( Colorindex ));

    /*
     * Set up for rle_getrow.  Pretend image x origin is 0. 
     */
    for (i = 0; i < 3; i++)
    scan[i] = (unsigned char *) malloc(x_size);
    hdr.xmax -= hdr.xmin;
    hdr.xmin = 0;

    /* For each scan line, dither it into the image memory. */
    while ((y = rle_getrow(&hdr, scan)) <= hdr.ymax)
    {
    if ( bwflag && ncolors > 1 )
    {
        rgb_to_bw( scan[0], scan[1], scan[ncolors - 1], scan[0], x_size );
        /* Note: map_scanline only uses channel 0 for B&W */
    }

    map_scanline( scan, x_size, y,
              &image[(y - hdr.ymin) * x_size] );
    }

    /*
     * Free temp storage 
     */
    for (i = 0; i < 3; i++)
    free(scan[i]);

    /*
     * Get a window of the right size (user positions it with the mouse). 
     */
    if ( forkflg ) foreground();    /* Don`t fork. */
    maxsize( x_size, y_size );
    window_number = winopen( "getmex" );
    if ( infname ) wintitle( infname );

    makemap();              /* Initialize the Iris color map. */

    qdevice( REDRAW );
    qdevice( LEFTMOUSE );         /* Pan the image under mouse control. */
    qdevice( SETUPKEY );        /* Reset panning. */
    unqdevice( INPUTCHANGE );       /* We don`t pay attention to these. */

    /* There was a redraw event sent when the window was created,
     * but we weren`t listening for them yet.
     */
    qenter( REDRAW, window_number );
}

getcolorbal	(	unsigned int *	r,
		unsigned int *	g,
		unsigned int *	b
	)

Definition at line 598 of file getmex.c.

{
    FILE *cbfile;

    if ((cbfile = configopen(".cbal","r")) ) { 
        if (fscanf(cbfile,"%d %d %d\n",r,g,b) == 3) {
        if (*r>255)
        *r = 255;   
        if (*g>255)
        *g = 255;   
        if (*b>255)
        *b = 255;   
            fclose(cbfile);
            return;
        } else 
            fclose(cbfile);
    }
    *r = 255;
    *g = 255;
    *b = 255;
    return;
}

float getgamma

(

)

NOTE: This is the makemap program from /usr/people/gifts/mextools/tools, with the gamma and getset routines from /usr/people/gifts/mextools/portlib appended. The only modification is that it only does the part of the map required here, and expands the RGB map to 512 colors.#include "gl.h" #include "gl2/port.h"

savecolors and restorecolors

Definition at line 569 of file getmex.c.

{
    FILE *gamfile;
    float gam;

    if ((gamfile = configopen(".gamma","r")) )  {
        if (fscanf(gamfile,"%f\n",&gam) == 1) {
        fclose(gamfile);
        return gam;
    } else 
        fclose(gamfile);
    }
    return 2.2;
}

init_dither

(

)

Definition at line 346 of file getmex.c.

References divN, dm16, make_square(), and modN.

{
    int i, j, k, l, planes, pixels[216];
    unsigned int value;
    float N;

    make_square( 255.0 / (levels - 1), divN, modN, dm16 );
}

Here is the call graph for this function:

main	(	argc	,
		char **	argv
	)

Definition at line 59 of file getmex.c.

{
    int mapstart, mapflag = 0;
    char *infname = NULL;
    FILE * infile = stdin;

    /* Handle arguments. */
    if ( scanargs( argc, argv, "% f%- w%- D%- m%-mapstart!d file%s\n(\
\tDisplay a URT image dithered in the window system.\n\
\t-f\tKeep program in foreground\n\
\t-w\tDisplay in black and white instead of color.\n\
\t-m\tStarting point in colormap (uses 512 entries for color).\n\
\tLeft mouse pans image, setup key recenters.)",
    &forkflg, &bwflag, &dbg, &mapflag, &mapstart, &infname ) == 0 )
        exit( 1 );
    if ( mapflag )
    if ( bwflag ) bw_start = mapstart; else color_start = mapstart;
    infile = rle_open_f(cmd_name(argv), infname, "r");

    init_dither();      /* Set up the dither matrices. */
    /* Read image and make a window for it. */
    get_pic( infile, infname, cmd_name(argv) );
    update_pic();       /* Keep drawing the window. */
}

static makegamtables ( )

static

Definition at line 442 of file getmex.c.

References bgamtable, bungamtable, ggamtable, gungamtable, rgamtable, and rungamtable.

{
    register float gamval;
    register float val;
    register short i;
    int rbal, gbal, bbal; 

    gamval = getgamma();
    getcolorbal(&rbal,&gbal,&bbal);
    for (i=0; i<256; i++) {
        rgamtable[i] = 255*gammacorrect((rbal*i)/(255.0*255.0),gamval);
        ggamtable[i] = 255*gammacorrect((gbal*i)/(255.0*255.0),gamval);
        bgamtable[i] = 255*gammacorrect((bbal*i)/(255.0*255.0),gamval);
    }
    bzero(rungamtable,256);
    bzero(gungamtable,256);
    bzero(bungamtable,256);
    for (i=0; i<256; i++) {
        rungamtable[rgamtable[i]] = i;
        gungamtable[ggamtable[i]] = i;
        bungamtable[bgamtable[i]] = i;
    }
    fixup(rungamtable);
    fixup(gungamtable);
    fixup(bungamtable);
}

makemap

(

)

Position as specified, and only do it if showing a b&w image.

<

128>

<

but if more than 9 planes, make the map at 512, 512 colors long.

<

=>

512>

<

Definition at line 372 of file getmex.c.

References bwflag.

{
    register int i, j, v;
    register int r, g, b, w;
    int planes;

    planes = getplanes();

/* if there are more than 8 planes make a ramp at 128 */
    if (planes > 8  && bwflag  ) 
    for (i=0; i<128; i++) {
        gammapcolor(i+  bw_start ,i<<1,i<<1,i<<1);
    }

/* if there are more than 8 planes make an ordered color map at 256 */
    if (planes > 9  && ! bwflag  )  
    for (i=0; i<512; i++) {
        r = (i>>0) & 7;
        g = (i>>3) & 7;
        b = (i>>6) & 7;
        r = (255*r)/7;
        g = (255*g)/7;
        b = (255*b)/7;
        gammapcolor(i+  color_start ,r,g,b);
        }
}

map_scanline	(	rgb	,
		n	,
		y	,
		Colorindex *	line
	)

Definition at line 300 of file getmex.c.

{
    register int i, col;
    int row, *row_ptr;

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

    row = y % 16;
    row_ptr = dm16[ row ];         /* Cache ptr to row of dither array. */

    if ( !bwflag )          /* Color display. */
    {
    register unsigned char *r, *g, *b;
    for ( col = 0, i = 0, r = rgb[0], g = rgb[1], b = rgb[2];
          i < n; i++, r++, g++, b++, col = ((col + 1) & 15) )
    {
        /* Combine 3 3-bit colors into a 3/3/3 color map index. */
        line[i] = color_start + DMAP(*r, col) + (DMAP(*g, col)<<3) +
        (DMAP(*b, col)<<6);
    }
    }
    else                /* Gray scale display. */
    {
    register unsigned char *bw;

    for ( i = 0, bw = rgb[0]; i < n; i++, bw++ )
        line[i] = bw_start + (*bw>>1);
    }
}

newgamma

(

)

Definition at line 511 of file getmex.c.

References firsted.

{
    firsted = firsted = 0;
}

newgamtables

(

)

Definition at line 516 of file getmex.c.

References bgamtable, bungamtable, ggamtable, gungamtable, rgamtable, and rungamtable.

{
    FILE *outf;

    if ((outf = configopen(".gamtables","w")) == 0) {
    fprintf(stderr,"couldn't open .gamtables\n");
    return;
    }
    makegamtables();
    fwrite(rgamtable,256,1,outf);
    fwrite(ggamtable,256,1,outf);
    fwrite(bgamtable,256,1,outf);
    fwrite(rungamtable,256,1,outf);
    fwrite(gungamtable,256,1,outf);
    fwrite(bungamtable,256,1,outf);
    fclose(outf);
}

readgamtables

(

)

Definition at line 534 of file getmex.c.

References bgamtable, bungamtable, ggamtable, gungamtable, rgamtable, and rungamtable.

{
    FILE *inf;

    if ((inf = configopen(".gamtables","r")) == 0)  {
    newgamtables();
    if ((inf = configopen(".gamtables","r")) == 0)  {
        fprintf(stderr,"couldn't open .gamtables\n");
        return;
    }
    }
    fread(rgamtable,256,1,inf);
    fread(ggamtable,256,1,inf);
    fread(bgamtable,256,1,inf);
    fread(rungamtable,256,1,inf);
    fread(gungamtable,256,1,inf);
    fread(bungamtable,256,1,inf);
    fclose(inf);
}

setcolorbal	(	int	r,
		int	g,
		int	b
	)

Definition at line 622 of file getmex.c.

{
    FILE *cbfile;

    if ((cbfile = configopen(".cbal","w")) == 0) {
    fprintf(stderr,"couldn't open .cbal\n");
    return;
    }
    fprintf(cbfile,"%d %d %d\n",r,g,b);
    fclose(cbfile);
    newgamtables();
}

setgamma

(

float

gam

)

Definition at line 584 of file getmex.c.

{
    FILE *gamfile;

    if ((gamfile = configopen(".gamma","w")) == 0) {
    fprintf(stderr,"couldn't open .gamma\n");
    return;
    }
    fprintf(gamfile,"%f\n",gam);
    fclose(gamfile);
    newgamtables();
}

float ungammacorrect

(

)

float ungammacorrect	(	float	i,
		float	gamma
	)

Definition at line 505 of file getmex.c.

{
    return pow(i,gamma);
}

update_pic

(

)

Definition at line 173 of file getmex.c.

References x_size, and y_size.

{
    short data;
    long event;
    int window_x_size, window_y_size, window_x_origin, window_y_origin;
    int x_min, x_max, y_min, y_max, x_start, y_start, x_end, y_end, x_len;
    int x_origin, y_origin, new_x_center, new_y_center;
    int x_center, y_center, saved_x_center, saved_y_center;

    register int y;
    register Colorindex *y_ptr;

    /* Looking at the center, at first. */
    x_center = saved_x_center = x_size / 2;
    y_center = saved_y_center = y_size / 2;

    /* Redraw the window when necessary. */
    while ( TRUE )
    {
        event = qread( &data );
# ifdef DEBUG
    printf( "event %d, data %d\n", event, data );
#endif  
    switch ( event )
    {
        case REDRAW:
        winset( window_number );
        reshapeviewport();
        color( 22 );
        clear();

        /* Lower left corner of screen, in image coordinates.
         * (Keep the center of the image in the center of the window.)
         */
        getsize( &window_x_size, &window_y_size );
        x_min = x_center - window_x_size/2;
        x_max = x_min + (window_x_size-1);
        y_min = y_center - window_y_size/2;
        y_max = y_min + (window_y_size-1);

        /* Coordinate bounds have half a pixel added all around. */
        ortho2( x_min - .5, x_max + .5, y_min - .5, y_max + .5 );

        /* Draw just the part of the image in the window. */
        x_start = MAX( x_min, 0 );
        y_start = MAX( y_min, 0 );
        x_end = MIN( x_max, x_size-1 );
        y_end = MIN( y_max, y_size-1 );
        x_len = x_end - x_start + 1;

        /* Dump the scanlines.  Check once in a while for another
         * redraw event queued up, and quit early if one is seen.
         */
        for ( y = y_start, y_ptr = image + y_start*x_size + x_start;
              y <= y_end && (y%16 != 0 || qtest() != REDRAW);
              y++, y_ptr += x_size )
        {
            cmov2i( x_start, y );
            writepixels( x_len, y_ptr );
        }
        break;

        /* Setup key - Reset viewing to look at the center of the image.
         * Shift-Setup - Restores a saved view center.
         * Control-Setup - Saves the current view center for Shift-Setup.
         */
        case SETUPKEY:
        if ( data == 1 )    /* Ignore button up events. */
        {
            if ( getbutton(RIGHTSHIFTKEY) || getbutton(LEFTSHIFTKEY) )
            {
            x_center = saved_x_center;  /* Restore. */
            y_center = saved_y_center;
            qenter( REDRAW, window_number );
            }
            else if ( getbutton(CTRLKEY) )
            {
            saved_x_center = x_center;  /* Save. */
            saved_y_center = y_center;
            }
            else
            {
            x_center = x_size / 2;      /* Reset. */
            y_center = y_size / 2;
            qenter( REDRAW, window_number );
            }

        }
        break;

        /* Pan a point picked with the left mouse button to the center
         * of attention.  Beep if cursor is not on the image.
         */
        case LEFTMOUSE:
        if ( data == 1 )    /* Ignore button up events. */
        {
            getorigin( &x_origin, &y_origin );
            new_x_center = getvaluator( MOUSEX ) - x_origin + x_min;
            new_y_center = getvaluator( MOUSEY ) - y_origin + y_min;
            if ( new_x_center >= x_start &&
             new_x_center <= x_end &&
             new_y_center >= y_start &&
             new_y_center <= y_end )
            {
            x_center = new_x_center;
            y_center = new_y_center;
            qenter( REDRAW, window_number );
            }
            else
            ringbell();
        }
        break;
    }
    }
}

Variable Documentation

unsigned char bgamtable[256]

static

Definition at line 421 of file getmex.c.

Referenced by makegamtables(), newgamtables(), and readgamtables().

unsigned char bungamtable[256]

static

Definition at line 424 of file getmex.c.

Referenced by makegamtables(), newgamtables(), and readgamtables().

Colorindex bw_start = 128

Definition at line 23 of file getmex.c.

int bwflag = 0

Definition at line 28 of file getmex.c.

Colorindex color_start = 512

Definition at line 22 of file getmex.c.

int dbg = 0

Definition at line 26 of file getmex.c.

int divN[256]

Definition at line 32 of file getmex.c.

int dm16[16][16]

Definition at line 34 of file getmex.c.

short firsted

static

Definition at line 425 of file getmex.c.

Referenced by newgamma().

int forkflg = 0

Definition at line 27 of file getmex.c.

unsigned char ggamtable[256]

static

Definition at line 420 of file getmex.c.

Referenced by makegamtables(), newgamtables(), and readgamtables().

unsigned char gungamtable[256]

static

Definition at line 423 of file getmex.c.

Referenced by makegamtables(), newgamtables(), and readgamtables().

Colorindex* image

Definition at line 29 of file getmex.c.

int modN[256]

Definition at line 32 of file getmex.c.

unsigned char rgamtable[256]

static

Definition at line 419 of file getmex.c.

Referenced by makegamtables(), newgamtables(), and readgamtables().

unsigned char rungamtable[256]

static

Definition at line 422 of file getmex.c.

Referenced by makegamtables(), newgamtables(), and readgamtables().

long window_number

Definition at line 24 of file getmex.c.

int x_size

Definition at line 25 of file getmex.c.

Referenced by convertgreylevels(), and update_pic().

int y_size

Definition at line 25 of file getmex.c.

Referenced by convertgreylevels(), and update_pic().