saoimage-1.08/btnlib/tool/bitmap.c 666 21641 13 6160 4604207734 12204 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: Bitmap.c * Subroutine: btn_ByteToBitmap() returns: unsigned char * * Subroutine: btn_WriteBitmaps() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ #include #define ROW_WIDTH 12 /* * Subroutine: btn_ByteToBitmap * Purpose: given a Z image return a bitmap image */ unsigned char *btn_ByteToBitmap ( image, width, height, byte_width ) char *image; int width, height; int *byte_width; { unsigned char *bitmap, *map; int wdth, row; int line_bit, byte_end; unsigned char bit; char *btn_Alloc(); /* allocate the bitmap */ wdth = (width + 7) / 8; bitmap = (unsigned char *)btn_Alloc(wdth * height, 1, "bitmap"); /* make bitmap one row at a time */ for( row = 0; row < height; row++ ) { map = bitmap + (row * wdth); line_bit = 0; byte_end = 8; /* go through one line */ while( line_bit < width ) { bit = 1; if( byte_end > width ) byte_end = width; /* go through one byte */ while( line_bit < byte_end ) { if( *image != 0 ) *map |= bit; image++; line_bit++; bit = bit << 1; } /* advance to next byte */ byte_end += 8; map++; } } /* set byte width and return bitmap */ *byte_width = wdth; return( bitmap ); } /* * Subroutine: btn_WriteBitmaps * Purpose: write bitmap as array declaration in the file */ void btn_WriteBitmaps ( file, title, ext, icon, mask, width, height, byte_width ) FILE *file; char *title; char *ext; unsigned char *icon; unsigned char *mask; int width, height; int byte_width; { int byte, row_end, map_end; (void)fprintf(file, "#define %s_%s_width %d\n", title, ext, width); (void)fprintf(file, "#define %s_%s_height %d\n", title, ext, height); (void)fprintf(file, "static char %s_%s_label[] = {\n", title, ext); map_end = byte_width * height; row_end = ROW_WIDTH; byte = 0; while( byte < map_end ) { (void)fprintf(file, " 0x%02x", icon[byte]); if( row_end > map_end ) row_end = map_end; while( ++byte < row_end ) (void)fprintf(file, ", 0x%02x", icon[byte]); if( byte == map_end ) (void)fprintf(file, " };\n"); else (void)fprintf(file,",\n"); row_end += ROW_WIDTH; } if( mask != NULL ) { (void)fprintf(file, "static char %s_%s_mask[] = {\n", title, ext); row_end = ROW_WIDTH; byte = 0; while( byte < map_end ) { (void)fprintf(file, " 0x%02x", mask[byte]); if( row_end > map_end ) row_end = map_end; while( ++byte < row_end ) (void)fprintf(file, ", 0x%02x", mask[byte]); if( byte == map_end ) (void)fprintf(file, " };\n"); else (void)fprintf(file,",\n"); row_end += ROW_WIDTH; } } } saoimage-1.08/btnlib/tool/btnmenu.h 666 21641 13 5741 4616353315 12411 #ifndef lint static char SccsBtnMId[] = "%W% %G%"; #endif /* * Module: btnmenu.h * Project: PROS -- ROSAT RSDC * Purpose: Define structures for SAO button constructor * Typedefs: BtnSpec, BoxSpec, MenuSpec, PanelSpec, PanelAttach * Copyright: 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 20 March 1990 * {n} -- -- */ #include #include "../buttons.h" /* define OPTION_LIMIT and DATA_LIMIT */ typedef struct _BtnIcon { char *icon; char *mask; int width, height; } BtnIcon; typedef struct _BtnSpec { char *offo_text; /* off unoccupied text string */ int offo_tall; /* 1 to move chars down, else 0 */ char *ono_text; /* on unoccupied text string */ int ono_tall; /* 1 to move chars down, else 0 */ char *offi_text; /* off occupied text string */ int offi_tall; /* 1 to move chars down, else 0 */ char *oni_text; /* on occupied text string */ int oni_tall; /* 1 to move chars down, else 0 */ BtnIcon *offo_icon; /* off unoccupied icon (optional) */ BtnIcon *ono_icon; /* on unoccupied icon (optional) */ BtnIcon *offi_icon; /* off occupied icon (optional) */ BtnIcon *oni_icon; /* on occupied icon (optional) */ int orient; /* 0=level, 1=down, -1=up */ int option_cnt; /* number of response funcs given */ int code[OPTION_LIMIT]; /* response function codes */ int mask[OPTION_LIMIT]; /* event recognition masks */ int ref[OPTION_LIMIT]; /* event recognition references */ int data[DATA_LIMIT]; /* data returned when selected */ } BtnSpec; typedef struct _BoxSpec { char *title; /* declaration identifying name */ BoxGeometry geo; BtnSpec *btn; /* list of specs to define buttons */ } BoxSpec; typedef struct _PanelAttach { char *panel_title; /* identifying title of panel */ char *box_title; /* identifying title of box within panel */ int parent_index; /* index of panel's parent window */ int attach, join; /* flags for AttachSubMenu and JoinMenus */ int mask, reference; /* button function mask and reference */ int match_cnt; /* number of data items to match (0+) */ int data[DATA_LIMIT]; } PanelAttach; typedef struct _PanelSpec { char *title; /* title to identify this panel */ char *file_name; /* name of file for declarations */ int parent_index; /* index of window to hold panel */ int box_cnt; /* number of boxes defined */ BoxSpec *box; /* list of specs to define boxes */ PanelAttach *attach; /* attachment specs if submenu */ } PanelSpec; typedef struct _MenuSpec { char *file_name; /* name of file for main call */ int panel_cnt; /* number of boxes defined */ PanelSpec *panel; /* list of specs to define panels */ } MenuSpec; saoimage-1.08/btnlib/tool/mask.c 666 21641 13 3576 4613711172 11667 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mask.c (Image Mask) * Subroutine: btn_MakeLabelMask() returns: char * * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ /* * Subroutine: btn_MakeLabelMask * Purpose: make a mask that surrounds the given image * Note: mask extends 1 pixel in every direction beyond given image */ char *btn_MakeLabelMask ( icon, width, height ) char *icon; int width, height; { char *mask; char *icon_left, *icon_pix, *icon_right; char *mask_above, *mask_pix, *mask_below; char *above, *pix, *below; char *icon_next; int i, j; char *btn_Alloc(); /* allocate mask space */ mask = btn_Alloc(width*height, 1, "mask map"); height--; icon_next = icon; mask_pix = mask; mask_below = mask; for( i=0; i<=height; i++ ) { /* set up mask pointers for this line */ mask_above = mask_pix; mask_pix = mask_below; if( i < height ) mask_below += width; above = mask_above; pix = mask_pix; below = mask_below; /* set up icon pointers for this (next) line */ icon_pix = icon_next; icon_left = icon_pix; icon_right = icon_pix + 1; icon_next = icon_pix + width; for( j=0; j= icon_next ) icon_right--; above++; pix++; below++; } } return( mask ); } saoimage-1.08/btnlib/tool/inchars.h 666 21641 13 14311 4604207735 12402 struct bitfont intext[128] = { 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 0,14,0, "", 7,14,1,"\0\0\0\0\0\0\0\0\0\0\0\0\0\0", 4,14,1,"\0\6\6\6\6\6\6\6\0\6\6\0\0\0", 7,14,1,"\0\66\66\66\66\0\0\0\0\0\0\0\0\0", 12,14,2,"\0\0\140\6\140\6\60\3\374\7\230\1\230\1\376\3\314\0f\0f\0\0\0\0\0\0\0", 9,14,2,"\20\0\174\0\326\0\326\0\26\0\76\0x\0\320\0\326\0\326\0\174\0\20\0\0\0\0\0", 14,14,2,"\0\0\34\3\66\3\266\1\234\1\300\0\300\0\140\16\140\33\60\33\60\16\0\0\0\0\0\0", 11,14,2,"\0\0\70\0l\0l\0\50\0\70\0\174\3\306\1\306\0\346\1\274\3\0\0\0\0\0\0", 4,14,1,"\0\7\7\6\6\3\0\0\0\0\0\0\0\0", 6,14,1,"\0\30\14\14\6\6\6\6\6\6\14\14\30\0", 6,14,1,"\0\6\14\14\30\30\30\30\30\30\14\14\6\0", 7,14,1,"\10\52\34\34\52\10\0\0\0\0\0\0\0\0", 10,14,2,"\0\0\0\0\0\0\60\0\60\0\60\0\376\1\376\1\60\0\60\0\60\0\0\0\0\0\0\0", 4,14,1,"\0\0\0\0\0\0\0\0\0\6\6\4\4\2", 9,14,2,"\0\0\0\0\0\0\0\0\0\0\0\0\374\0\374\0\0\0\0\0\0\0\0\0\0\0\0\0", 4,14,1,"\0\0\0\0\0\0\0\0\0\6\6\0\0\0", 8,14,1,"\0\140\140\60\60\30\30\14\14\6\6\0\0\0", 9,14,2,"\0\0\70\0l\0\306\0\306\0\306\0\306\0\306\0\306\0l\0\70\0\0\0\0\0\0\0", 9,14,2,"\0\0\140\0p\0\174\0\140\0\140\0\140\0\140\0\140\0\140\0\140\0\0\0\0\0\0\0", 9,14,2,"\0\0\174\0\306\0\306\0\300\0\140\0\60\0\30\0\14\0\6\0\376\0\0\0\0\0\0\0", 9,14,2,"\0\0\174\0\306\0\306\0\300\0p\0\300\0\300\0\306\0\306\0\174\0\0\0\0\0\0\0", 9,14,2,"\0\0\140\0p\0x\0h\0l\0f\0f\0\376\0\140\0\140\0\0\0\0\0\0\0", 9,14,2,"\0\0\374\0\14\0\14\0\176\0\306\0\306\0\300\0\306\0\306\0\174\0\0\0\0\0\0\0", 9,14,2,"\0\0x\0\314\0\306\0\6\0\176\0\306\0\306\0\306\0\306\0\174\0\0\0\0\0\0\0", 9,14,2,"\0\0\376\0\300\0\140\0\60\0\60\0\30\0\30\0\14\0\14\0\14\0\0\0\0\0\0\0", 9,14,2,"\0\0\174\0\306\0\306\0\306\0\174\0\306\0\306\0\306\0\306\0\174\0\0\0\0\0\0\0", 9,14,2,"\0\0\174\0\306\0\306\0\306\0\306\0\374\0\300\0\306\0f\0\74\0\0\0\0\0\0\0", 4,14,1,"\0\0\0\0\6\6\0\0\0\6\6\0\0\0", 4,14,1,"\0\0\0\0\6\6\0\0\0\6\6\4\4\2", 8,14,1,"\0\140\60\30\14\6\6\14\30\60\140\0\0\0", 8,14,1,"\0\0\0\0\0\174\174\0\174\174\0\0\0\0", 8,14,1,"\0\6\14\30\60\140\140\60\30\14\6\0\0\0", 8,14,1,"\0\74ff\140\60\30\30\0\30\30\0\0\0", 14,14,2,"\0\0\370\7\14\14\346\31\66\33\66\33\66\33\66\13\346\6\14\20\370\17\0\0\0\0\0\0", 9,14,2,"\0\0\30\0\30\0\74\0\74\0\44\0f\0\176\0f\0\303\0\303\0\0\0\0\0\0\0", 8,14,1,"\0\37\63\63\63\77cccc\77\0\0\0", 9,14,2,"\0\0\174\0\306\0\303\0\3\0\3\0\3\0\303\0\303\0\306\0\174\0\0\0\0\0\0\0", 9,14,2,"\0\0\77\0c\0\303\0\303\0\303\0\303\0\303\0\303\0c\0\77\0\0\0\0\0\0\0", 8,14,1,"\0\177\3\3\3\77\3\3\3\3\177\0\0\0", 8,14,1,"\0\177\3\3\3\77\3\3\3\3\3\0\0\0", 10,14,2,"\0\0\374\0\206\1\203\1\3\0\3\0\343\1\203\1\203\1\306\1\274\1\0\0\0\0\0\0", 9,14,2,"\0\0\303\0\303\0\303\0\303\0\377\0\303\0\303\0\303\0\303\0\303\0\0\0\0\0\0\0", 3,14,1,"\0\3\3\3\3\3\3\3\3\3\3\0\0\0", 7,14,1,"\0\60\60\60\60\60\60\60\63\63\36\0\0\0", 9,14,2,"\0\0c\0\63\0\33\0\17\0\7\0\17\0\33\0\63\0c\0\303\0\0\0\0\0\0\0", 7,14,1,"\0\3\3\3\3\3\3\3\3\3\77\0\0\0", 12,14,2,"\0\0\7\7\7\7\217\7\217\7\333\6\333\6\333\6s\6s\6\43\6\0\0\0\0\0\0", 9,14,2,"\0\0\303\0\307\0\307\0\317\0\317\0\333\0\333\0\363\0\363\0\343\0\0\0\0\0\0\0", 10,14,2,"\0\0\174\0\306\0\203\1\203\1\203\1\203\1\203\1\203\1\306\0\174\0\0\0\0\0\0\0", 8,14,1,"\0\77cccc\77\3\3\3\3\0\0\0", 10,14,2,"\0\0\174\0\306\0\203\1\203\1\203\1\203\1\203\1\263\1\346\0\374\0\200\1\0\0\0\0", 9,14,2,"\0\0\177\0\303\0\303\0\303\0\177\0\303\0\303\0\303\0\303\0\303\0\0\0\0\0\0\0", 8,14,1,"\0\76cc\17\76xccc\76\0\0\0", 9,14,2,"\0\0\377\0\30\0\30\0\30\0\30\0\30\0\30\0\30\0\30\0\30\0\0\0\0\0\0\0", 9,14,2,"\0\0\303\0\303\0\303\0\303\0\303\0\303\0\303\0\303\0f\0\74\0\0\0\0\0\0\0", 9,14,2,"\0\0\303\0\303\0\303\0f\0f\0f\0\44\0\74\0\30\0\30\0\0\0\0\0\0\0", 14,14,2,"\0\0C\30C\30\346\14\346\14\346\14\364\5\274\7\34\7\30\3\30\3\0\0\0\0\0\0", 9,14,2,"\0\0\303\0\303\0f\0\74\0\30\0\30\0\74\0f\0\303\0\303\0\0\0\0\0\0\0", 9,14,2,"\0\0\303\0\303\0f\0f\0\74\0\30\0\30\0\30\0\30\0\30\0\0\0\0\0\0\0", 9,14,2,"\0\0\377\0\300\0\140\0\60\0\30\0\30\0\14\0\6\0\3\0\377\0\0\0\0\0\0\0", 7,14,1,"\0\76\6\6\6\6\6\6\6\6\6\6\6\76", 8,14,1,"\0\6\6\14\14\30\30\60\60\140\140\0\0\0", 7,14,1,"\0\76\60\60\60\60\60\60\60\60\60\60\60\76", 8,14,1,"\0\0\30\74\176Z\30\30\30\30\0\0\0\0", 10,14,2,"\0\0\0\0\0\0\30\0\14\0\376\1\376\1\14\0\30\0\0\0\0\0\0\0\0\0\0\0", 4,14,1,"\0\6\3\3\7\7\0\0\0\0\0\0\0\0", 8,14,1,"\0\0\0\0\36\63\60\76\63\63n\0\0\0", 8,14,1,"\0\3\3\3\77ccccc\77\0\0\0", 8,14,1,"\0\0\0\0\76c\3\3cc\76\0\0\0", 8,14,1,"\0\140\140\140\176ccccc\176\0\0\0", 8,14,1,"\0\0\0\0\76cc\177\3c\76\0\0\0", 6,14,1,"\0\34\6\6\37\6\6\6\6\6\6\0\0\0", 8,14,1,"\0\0\0\0\176ccccc\176\140c\76", 8,14,1,"\0\3\3\3\77cccccc\0\0\0", 3,14,1,"\0\3\3\0\3\3\3\3\3\3\3\0\0\0", 5,14,1,"\0\14\14\0\14\14\14\14\14\14\14\14\7\0", 8,14,1,"\0\3\3\3\63\33\17\17\33\63c\0\0\0", 3,14,1,"\0\3\3\3\3\3\3\3\3\3\3\0\0\0", 11,14,2,"\0\0\0\0\0\0\0\0\337\1\63\3\63\3\63\3\63\3\63\3\63\3\0\0\0\0\0\0", 8,14,1,"\0\0\0\0\77cccccc\0\0\0", 8,14,1,"\0\0\0\0\76ccccc\76\0\0\0", 8,14,1,"\0\0\0\0\77ccccc\77\3\3\3", 8,14,1,"\0\0\0\0\176ccccc\176\140\140\140", 6,14,1,"\0\0\0\0\37\33\3\3\3\3\3\0\0\0", 7,14,1,"\0\0\0\0\36\63\7\36\70\63\36\0\0\0", 6,14,1,"\0\0\6\6\37\6\6\6\6\6\34\0\0\0", 8,14,1,"\0\0\0\0cccccc\176\0\0\0", 9,14,2,"\0\0\0\0\0\0\0\0\303\0\303\0f\0f\0\44\0\74\0\30\0\0\0\0\0\0\0", 12,14,2,"\0\0\0\0\0\0\0\0\43\6\43\6v\3v\3\336\3\214\1\214\1\0\0\0\0\0\0", 7,14,1,"\0\0\0\0\63\63\36\14\36\63\63\0\0\0", 8,14,1,"\0\0\0\0ccf\66\64\74\30\30\33\16", 7,14,1,"\0\0\0\0\77\60\30\14\6\3\77\0\0\0", 8,14,1,"\0p\30\30\30\30\30\16\30\30\30\30\30p", 5,14,1,"\0\14\14\14\14\14\14\14\14\14\14\14\14\14", 8,14,1,"\0\16\30\30\30\30\30p\30\30\30\30\30\16", 10,14,2,"\0\0\0\0\0\0\0\0\0\0\230\1\374\0f\0\0\0\0\0\0\0\0\0\0\0\0\0", 0,14,0, ""}; saoimage-1.08/btnlib/tool/makefile 666 21641 13 1535 4613711567 12271 # # button maker tool # # Library to be linked for generating intialized structure declarations and # top level subroutines for a button panel. # Application create array of MenuSpec structures and call btn_SetupMenu() # to produce button structures and subroutines to manipulate the buttons # #CFLAGS = -c -g CFLAGS = -c -O .c.o: $(CC) $(CFLAGS) $*.c LIB = libbtool.a LIBS = ../libbtn.a SRCS = bitmap.c mask.c tool.c rotate.c \ text.o wrattach.c wrfeel.c wrlook.c OBJS = bitmap.o mask.o tool.o rotate.o \ text.o wrattach.o wrfeel.o wrlook.o lib: $(OBJS) ar cr $(LIB) $(OBJS) ranlib $(LIB) rm *.o lint: lint -b *.c clean: rm -f a.out core *.bak *~ \#* *.o tool.o: btnmenu.h ../buttons.h text.o: btnchars.h inchars.h outchars.h wrattach.o: btnmenu.h ../buttons.h wrfeel.o: btnmenu.h ../buttons.h wrlook.o: btnmenu.h ../buttons.h saoimage-1.08/btnlib/tool/outchars.h 666 21641 13 14047 4604207737 12613 struct bitfont outtext[128] = { 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 0,14,0,"", 6,14,1,"\0\0\0\0\0\0\0\0\0\0\0\0\0\0", 3,14,1,"\0\2\2\2\2\2\2\2\0\2\2\0\0\0", 5,14,1,"\0\12\12\12\12\0\0\0\0\0\0\0\0\0", 11,14,2,"\0\0\40\1\40\1\220\0\374\3\220\0H\0\376\1H\0\44\0\44\0\0\0\16\335\240\0", 9,14,2,"\20\0\174\0\222\0\22\0\22\0\174\0\220\0\220\0\222\0\222\0\174\0\20\0\0\0\0\0", 11,14,2,"\0\0\214\0\222\0R\0L\0\40\0\40\0\220\1P\2H\2\210\1\0\0\0\0\0\0", 10,14,2,"\0\0\70\0D\0D\0\50\0\30\0\224\0\242\0B\0\302\0\74\1\0\0\0\0\0\0", 4,14,1,"\0\6\4\4\2\0\0\0\0\0\0\0\0\0", 5,14,1,"\0\10\4\4\2\2\2\2\2\2\2\4\4\10", 5,14,1,"\0\2\4\4\10\10\10\10\10\10\10\4\4\2", 7,14,1,"\0\10\52\34\52\10\0\0\0\0\0\0\0\0", 9,14,2,"\0\0\0\0\0\0\20\0\20\0\20\0\376\0\20\0\20\0\20\0\0\0\0\0\0\0\0\0", 4,14,1,"\0\0\0\0\0\0\0\0\0\6\4\4\2\0", 8,14,1,"\0\0\0\0\0\0\176\0\0\0\0\0\0\0", 3,14,1,"\0\0\0\0\0\0\0\0\0\2\2\0\0\0", 7,14,1,"\0\40\40\20\20\10\10\4\4\2\2\0\0\0", 9,14,2,"\0\0\70\0D\0\202\0\202\0\202\0\202\0\202\0\202\0D\0\70\0\0\0\0\0\0\0", 9,14,2,"\0\0\40\0\60\0\54\0\40\0\40\0\40\0\40\0\40\0\40\0\40\0\0\0\0\0\0\0", 9,14,2,"\0\0x\0\204\0\204\0\200\0\100\0\40\0\20\0\10\0\4\0\376\0\0\0\0\0\0\0", 9,14,2,"\0\0\70\0D\0D\0\100\0\60\0\100\0\202\0\202\0D\0\70\0\0\0\0\0\0\0", 9,14,2,"\0\0\140\0P\0H\0H\0D\0B\0\376\0\100\0\100\0\100\0\0\0\0\0\0\0", 9,14,2,"\0\0\174\0\4\0\2\0\76\0B\0\200\0\200\0\200\0B\0\74\0\0\0\0\0\0\0", 9,14,2,"\0\0x\0\204\0\2\0\72\0F\0\202\0\202\0\202\0D\0\70\0\0\0\0\0\0\0", 9,14,2,"\0\0\376\0\200\0\200\0\100\0\40\0\20\0\20\0\10\0\10\0\10\0\0\0\0\0\0\0", 9,14,2,"\0\0\70\0D\0D\0D\0\70\0D\0\202\0\202\0D\0\70\0\0\0\0\0\0\0", 9,14,2,"\0\0\70\0D\0\202\0\202\0\202\0\304\0\270\0\200\0B\0\74\0\0\0\0\0\0\0", 3,14,1,"\0\0\0\0\2\2\0\0\0\2\2\0\0\0", 4,14,1,"\0\0\0\0\4\4\0\0\0\6\4\4\2\0", 7,14,1,"\0\40\20\10\4\2\2\4\10\20\40\0\0\0", 7,14,1,"\0\0\0\0\0\0\76\0\76\0\0\0\0\0", 7,14,1,"\0\2\4\10\20\40\40\20\10\4\2\0\0\0", 8,14,1,"\0\74BB\100\40\20\20\0\20\20\0\0\0", 12,14,2,"\0\0\360\0\14\3d\2\222\4\222\4\222\4\222\2d\1\14\0\360\3\0\0\0\0\0\0", 10,14,2,"\0\0\60\0\60\0H\0H\0H\0\204\0\374\0\204\0\2\1\2\1\0\0\0\0\0\0", 9,14,2,"\0\0\176\0\202\0\202\0\202\0\176\0\202\0\202\0\202\0\202\0\176\0\0\0\0\0\0\0", 11,14,2,"\0\0\360\0\14\1\4\2\2\2\2\0\2\0\2\2\4\2\14\1\360\0\0\0\0\0\0\0", 10,14,2,"\0\0\176\0\202\0\2\1\2\1\2\1\2\1\2\1\2\1\202\0\176\0\0\0\0\0\0\0", 9,14,2,"\0\0\376\0\2\0\2\0\2\0\176\0\2\0\2\0\2\0\2\0\376\0\0\0\0\0\0\0", 8,14,1,"\0\376\2\2\2\176\2\2\2\2\2\0\0\0", 11,14,2,"\0\0\360\0\14\1\4\2\2\2\2\0\342\3\2\2\4\2\14\3\360\2\0\0\0\0\0\0", 10,14,2,"\0\0\2\1\2\1\2\1\2\1\376\1\2\1\2\1\2\1\2\1\2\1\0\0\0\0\0\0", 3,14,1,"\0\2\2\2\2\2\2\2\2\2\2\0\0\0", 7,14,1,"\0\40\40\40\40\40\40\40\42\42\34\0\0\0", 9,14,2,"\0\0\202\0B\0\42\0\22\0\12\0\26\0\42\0B\0\202\0\2\1\0\0\0\0\0\0", 8,14,1,"\0\2\2\2\2\2\2\2\2\2\376\0\0\0", 12,14,2,"\0\0\6\6\6\6\12\5\12\5\12\5\222\4\222\4\222\4b\4b\4\0\0\0\0\0\0", 10,14,2,"\0\0\6\1\12\1\12\1\22\1\22\1\42\1\42\1B\1B\1\202\1\0\0\0\0\0\0", 12,14,2,"\0\0\360\0\14\3\4\2\2\4\2\4\2\4\2\4\4\2\14\3\360\0\0\0\0\0\0\0", 8,14,1,"\0\176\202\202\202\202\176\2\2\2\2\0\0\0", 12,14,2,"\0\0\360\0\14\3\4\2\2\4\2\4\2\4\2\4D\2\214\3\360\1\0\2\0\4\0\0", 9,14,2,"\0\0\176\0\202\0\202\0\202\0\176\0\202\0\202\0\202\0\202\0\202\0\0\0\0\0\0\0", 10,14,2,"\0\0\370\0\4\1\4\1\4\0\70\0\300\0\2\1\2\1\4\1\370\0\0\0\0\0\0\0", 11,14,2,"\0\0\376\3\40\0\40\0\40\0\40\0\40\0\40\0\40\0\40\0\40\0\0\0\0\0\0\0", 10,14,2,"\0\0\2\1\2\1\2\1\2\1\2\1\2\1\2\1\2\1\204\0x\0\0\0\0\0\0\0", 10,14,2,"\0\0\2\1\2\1\204\0\204\0\204\0H\0H\0H\0\60\0\60\0\0\0\0\0\0\0", 13,14,2,"\0\0B\10B\10\242\10\244\4\244\4\24\5\24\5\10\2\10\2\10\2\0\0\0\0\0\0", 11,14,2,"\0\0\4\1\4\1\210\0P\0\40\0P\0\210\0\210\0\4\1\2\2\0\0\0\0\0\0", 11,14,2,"\0\0\2\2\4\1\4\1\210\0P\0P\0\40\0\40\0\40\0\40\0\0\0\0\0\0\0", 10,14,2,"\0\0\376\1\0\1\200\0\100\0\40\0\20\0\10\0\4\0\2\0\376\1\0\0\0\0\0\0", 6,14,1,"\0\36\2\2\2\2\2\2\2\2\2\2\2\36", 7,14,1,"\0\2\2\4\4\10\10\20\20\40\40\0\0\0", 6,14,1,"\0\36\20\20\20\20\20\20\20\20\20\20\20\36", 7,14,1,"\0\0\0\0\10\34\52\10\10\10\10\0\0\0", 9,14,2,"\0\0\0\0\0\0\0\0\10\0\4\0\376\0\4\0\10\0\0\0\0\0\0\0\0\0\0\0", 4,14,1,"\0\4\2\2\6\0\0\0\0\0\0\0\0\0", 8,14,1,"\0\0\0\0\34\42\60\54\42\42\134\0\0\0", 8,14,1,"\0\2\2\2\32\46BBB\46\32\0\0\0", 8,14,1,"\0\0\0\0\70D\2\2\2D\70\0\0\0", 8,14,1,"\0\100\100\100XdBBBdX\0\0\0", 8,14,1,"\0\0\0\0\30\44B\176\2D\70\0\0\0", 6,14,1,"\0\30\4\4\36\4\4\4\4\4\4\0\0\0", 8,14,1,"\0\0\0\0XdBBBdX\100B\74", 8,14,1,"\0\2\2\2\72FBBBBB\0\0\0", 3,14,1,"\0\2\2\0\2\2\2\2\2\2\2\0\0\0", 4,14,1,"\0\4\4\0\4\4\4\4\4\4\4\4\3\0", 7,14,1,"\0\2\2\2\42\22\16\12\22\42B\0\0\0", 3,14,1,"\0\2\2\2\2\2\2\2\2\2\2\0\0\0", 11,14,2,"\0\0\0\0\0\0\0\0\232\1f\2\42\2\42\2\42\2\42\2\42\2\0\0\0\0\0\0", 8,14,1,"\0\0\0\0\72FBBBBB\0\0\0", 9,14,2,"\0\0\0\0\0\0\0\0\70\0D\0\202\0\202\0\202\0D\0\70\0\0\0\0\0\0\0", 8,14,1,"\0\0\0\0\32\46BBB\46\32\2\2\2", 8,14,1,"\0\0\0\0XdBBBdX\100\100\100", 6,14,1,"\0\0\0\0\32\6\2\2\2\2\2\0\0\0", 8,14,1,"\0\0\0\0\74B\2\74\100B\74\0\0\0", 6,14,1,"\0\0\4\4\36\4\4\4\4\4\30\0\0\0", 8,14,1,"\0\0\0\0BBBBBb\134\0\0\0", 9,14,2,"\0\0\0\0\0\0\0\0\202\0\202\0D\0D\0\50\0\50\0\20\0\0\0\0\0\0\0", 11,14,2,"\0\0\0\0\0\0\0\0\42\2\42\2T\1T\1T\1\210\0\210\0\0\0\0\0\0\0", 7,14,1,"\0\0\0\0\42\42\24\10\24\42\42\0\0\0", 9,14,2,"\0\0\0\0\0\0\0\0\202\0\202\0D\0D\0\50\0\50\0\20\0\20\0\22\0\14\0", 7,14,1,"\0\0\0\0\76\40\20\10\4\2\76\0\0\0", 8,14,1,"\0p\10\10\10\10\10\6\10\10\10\10\10p", 4,14,1,"\0\4\4\4\4\4\4\4\4\4\4\4\4\0", 8,14,1,"\0\16\20\20\20\20\20\140\20\20\20\20\20\16", 8,14,1,"\0\0\0\0\0L\62\0\0\0\0\0\0\0", 0,14,0,""}; saoimage-1.08/btnlib/tool/wrlook.c 666 21641 13 20040 4616365323 12260 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: wrlook.c (Write Look) * Subroutine: btn_WriteButtonLook() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ #include #include #include "btnmenu.h" /* * Subroutine: btn_WriteButtonLook * Purpose: Create and write data declarations for drawing a button * Called by: btn_SetupButton() in PanelTool.c * Uses: btn_WriteLabelTextPhase(), btn_WriteLabelIconPhase() * Method: Use icon if given, else use text to label button. If text is * not given for offi, make same as for offo. If text is not * given for "on" make same as corresponding "off". If * corresponding "on" and "off" are the same, re-use same data * declarations. */ void btn_WriteButtonLook ( file, title, btn ) FILE *file; char *title; BtnSpec *btn; { char *offo_ext, *ono_ext, *offi_ext, *oni_ext; static void btn_WriteLabelTextPhase(), btn_WriteLabelIconPhase(); /* set up missing text pointers (and note accompanying size adjustment) */ if( btn->ono_text == NULL ) { btn->ono_text = btn->offo_text; btn->ono_tall = btn->offo_tall; } if( btn->offi_text == NULL ) { btn->offi_text = btn->offo_text; btn->offi_tall = btn->offo_tall; } if( btn->oni_text == NULL ) { btn->oni_text = btn->offi_text; btn->oni_tall = btn->offi_tall; } /* create extensions for name of declaration and check coordination */ offo_ext = "offo"; ono_ext = "ono"; if( btn->offo_icon == NULL ) { btn_WriteLabelTextPhase(file, title, offo_ext, btn->offo_text, btn->offo_tall, btn->orient, 0); if( btn->ono_icon == NULL ) { if( strcmp(btn->offo_text, btn->ono_text) == 0 ) ono_ext = offo_ext; else btn_WriteLabelTextPhase(file, title, ono_ext, btn->ono_text, btn->ono_tall, btn->orient, 0); } else { btn_WriteLabelIconPhase(file, title, ono_ext, btn->ono_icon); } } else { btn_WriteLabelIconPhase(file, title, offo_ext, btn->offo_icon); if( btn->ono_icon != NULL ) { if( btn->offo_icon == btn->ono_icon ) ono_ext = offo_ext; else btn_WriteLabelIconPhase(file, title, ono_ext, btn->ono_icon); } else { btn_WriteLabelTextPhase(file, title, ono_ext, btn->ono_text, btn->ono_tall, btn->orient, 0); } } offi_ext = "offi"; oni_ext = "oni"; if( btn->offi_icon == NULL ) { btn_WriteLabelTextPhase(file, title, offi_ext, btn->offi_text, btn->offi_tall, btn->orient, 1); if( btn->oni_icon == NULL ) { if( strcmp(btn->offi_text, btn->oni_text) == 0 ) oni_ext = offi_ext; else btn_WriteLabelTextPhase(file, title, oni_ext, btn->oni_text, btn->oni_tall, btn->orient, 1); } else { btn_WriteLabelIconPhase(file, title, oni_ext, btn->oni_icon); } } else { btn_WriteLabelIconPhase(file, title, offi_ext, btn->offi_icon); if( btn->oni_icon != NULL ) { if( btn->offi_icon == btn->oni_icon ) oni_ext = offi_ext; else btn_WriteLabelIconPhase(file, title, oni_ext, btn->oni_icon); } else { btn_WriteLabelTextPhase(file, title, oni_ext, btn->oni_text, btn->oni_tall, btn->orient, 1); } } (void)fprintf(file, "static ButtonLook %s_look = {\n", title); (void)fprintf(file, " &%s_%s, NULL, &%s_%s, NULL,\n", title, offo_ext, title, ono_ext); (void)fprintf(file, " &%s_%s, NULL, &%s_%s, NULL };\n", title, offi_ext, title, oni_ext); } /* * Subroutine: btn_WriteLabelIconPhase * Purpose: Write out array declarations for one button phase * Called by: btn_WriteButtonLook() above * Uses: btn_WriteBitmaps() in Bitmap.c * Uses: btn_WriteButtonLabel() */ static void btn_WriteLabelIconPhase ( file, title, ext, icon ) FILE *file; char *title, *ext; BtnIcon *icon; { int byte_width; void btn_WriteBitmaps(); static void btn_WriteButtonLabel(); byte_width = (icon->width + 7) / 8; btn_WriteBitmaps(file, title, ext, icon->icon, icon->mask, icon->width, icon->height, byte_width); btn_WriteButtonLabel(file, title, ext, byte_width, 0, 0); } /* * Subroutine: btn_WriteLabelTextPhase * Purpose: Write out array declarations for one button phase * Called by: btn_WriteTextLabel() above * Uses: btn_MakeTextImage(), btn_ByteToBitmap(), btn_MakeLabelMask() * Uses: btn_WriteBitmaps(), btn_WriteTextBreaks() * Uses: btn_WriteButtonLabel() * Note: tall moves label center up a row if tall letters w/o g or y * Note: tall removes lowest 2 lines, don't use with "y" or "g" */ static void btn_WriteLabelTextPhase ( file, title, ext, text, tall, sign, in ) FILE *file; char *title, *ext; char *text; /* string to turn into button label */ int tall; /* reduce height of icon by 2 (if tall letters) */ int sign; /* 0=level, 1=down, -1=up */ int in; /* 0=out, 1=in */ { int width, height; int byte_width; int xclip, yclip; int cnt; int breaklist[64]; char *image, *shadow; unsigned char *icon, *mask; char *btn_MakeTextImage(), *btn_MakeLabelMask(); unsigned char *btn_ByteToBitmap(); void btn_WriteBitmaps(); static void btn_WriteTextBreaks(), btn_WriteButtonLabel(); image = btn_MakeTextImage(text, &width, &height, breaklist, &cnt, sign, in); icon = btn_ByteToBitmap(image, width, height, &byte_width); shadow = btn_MakeLabelMask(image, width, height); mask = btn_ByteToBitmap(shadow, width, height, &byte_width); free(image); free(shadow); if( tall && (sign == 0) ) height -= 2; btn_WriteBitmaps(file, title, ext, icon, mask, width, height, byte_width); btn_WriteTextBreaks(file, title, ext, cnt, breaklist, &xclip, &yclip, sign); btn_WriteButtonLabel(file, title, ext, byte_width, xclip, yclip); free(icon); free(mask); } /* number of 3 character digits per row of text file */ #define FIRST_ROW 8 #define ROW_WIDTH 15 /* * Subroutine: btn_WriteTextBreaks * Purpose: Write and array of the pixel offsets to each break between * characters in a label text string * Called by: btn_WriteLabelPhase() above */ static void btn_WriteTextBreaks ( file, title, ext, cnt, breaklist, xclip, yclip, sign ) FILE *file; char *title; char *ext; int cnt; int *breaklist; int *xclip, *yclip; int sign; { int i, row_end; if( sign == 0 ) { *xclip = cnt; *yclip = 0; } else if( sign >0 ) { *xclip = 0; *yclip = cnt; } else { *xclip = 0; *yclip = -cnt; } (void)fprintf(file, "static int %s_%s_breaks[] = {", title, ext); row_end = FIRST_ROW; i=0; while( i < cnt ) { if( row_end > cnt ) row_end = cnt; while( i < row_end ) { (void)fprintf(file, " %d", breaklist[i]); if( ++i < cnt ) (void)fprintf(file, ","); } if( row_end < cnt ) { row_end += ROW_WIDTH; if( row_end > cnt ) row_end = cnt; (void)fprintf(file, "\n "); } else (void)fprintf(file, " };\n"); } } /* * Subroutine: btn_WriteButtonLabel * Purpose: Write a ButtonLabel declaration referring to icons and lists * just declared above * Called by: btn_WriteLabelPhase() above */ static void btn_WriteButtonLabel ( file, title, ext, byte_width, xclip, yclip ) FILE *file; char *title; char *ext; int byte_width; int xclip, yclip; { (void)fprintf(file,"static ButtonLabel %s_%s = {\n", title, ext); (void)fprintf(file," (unsigned char *)%s_%s_label,", title, ext); (void)fprintf(file," (unsigned char *)%s_%s_mask,\n", title, ext); (void)fprintf(file," %s_%s_width, %s_%s_height,\n", title, ext, title, ext); (void)fprintf(file," 0.5, 0.5, 0, 0, /* placement */\n"); if( (xclip == 0) && (yclip == 0) ) (void)fprintf(file," %1d, 0, 0, NULL };\n", byte_width); else (void)fprintf(file," %1d, %1d, %1d, %s_%s_breaks };\n", byte_width, xclip, yclip, title, ext); } saoimage-1.08/btnlib/tool/tool.c 666 21641 13 17131 4616347773 11740 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: tool.c (Panel Tool) * Purpose: Use passed array of arrays of structures to create a single * subroutine call to assemble a button menu widget and a * single subroutine call to resize all panels. * Subroutine: btn_SetupMenu() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ #include #include #include "btnmenu.h" /* * Subroutine: btn_SetupMenu * Purpose: Main routine to print C code to assemble and resize * a complete button menu widget */ void btn_SetupMenu ( menu ) MenuSpec *menu; { FILE *file; int i, j, k; int max; void btn_SetupPanel(); void btn_WriteMenuAttach(); /* create the include files */ for( i=0; ipanel_cnt; i++ ) { btn_SetupPanel(&menu->panel[i], i); } /* open the file and declare the includes */ file = fopen(menu->file_name, "w"); (void)fprintf(file, "\n#include \n"); (void)fprintf(file, "#include \n"); (void)fprintf(file, "#include \"../btnlib/buttons.h\"\n\n"); for( i=0; ipanel_cnt; i++ ) { (void)fprintf(file, "#include \"%s\"\n", menu->panel[i].file_name); } /* declare the buttonbox arrays */ (void)fprintf(file, "\n"); for( i=0; ipanel_cnt; i++ ) { (void)fprintf(file, "ButtonBox %s[%d];\n", menu->panel[i].title, menu->panel[i].box_cnt); } /* create the main call to make all panels */ (void)fprintf(file, "\nButtonBox CreateMenu"); (void)fprintf(file, " ( parent, gc, visual, background )\n"); (void)fprintf(file, " BoxParent *parent;"); (void)fprintf(file, "\t\t/* i: array of parent window specs */\n"); (void)fprintf(file, " GC gc;\t\t\t/* i: optional, else 0 */\n"); (void)fprintf(file, " Visual *visual;\t\t/* i: optional, else 0 */\n"); (void)fprintf(file, " unsigned long background;"); (void)fprintf(file, "\t/* i: optional, else 0 */\n{\n"); for( i=0; ipanel_cnt; i++ ) { (void)fprintf(file," void Make%s();\n", menu->panel[i].title); } (void)fprintf(file,"\n"); for( i=0; ipanel_cnt; i++ ) { (void)fprintf(file, " Make%s(%s, parent, gc, visual, background);\n", menu->panel[i].title, menu->panel[i].title); } btn_WriteMenuAttach (file, menu); (void)fprintf(file, " return( %s[0] );\n", menu->panel[0].title); (void)fprintf(file, "}\n\n"); /* create the resize subroutine */ (void)fprintf(file, "void ResizeMenu( parent, flags )\n"); (void)fprintf(file, " BoxParent *parent;"); (void)fprintf(file, "\t\t/* i: array of parent window specs */\n"); (void)fprintf(file, " int *flags;"); (void)fprintf(file, "\t\t/* i: array of window-changed flags */\n{\n"); /* how many window panel specifiers are expected? */ for( max=0, i=0; ipanel_cnt; i++ ) { if( menu->panel[i].parent_index > max ) max = menu->panel[i].parent_index; } (void)fprintf(file,"\n"); for( j=0; j<=max; j++ ) { /* is this panel actually used */ for( i=0; (ipanel_cnt) && (j!=menu->panel[i].parent_index); i++ ); if( ipanel_cnt) { (void)fprintf(file, " if( flags[%d] ) {\n", i); for( i=0; ipanel_cnt; i++ ) { if( menu->panel[i].parent_index == j ) { for( k=0; kpanel[i].box_cnt; k++ ) { (void)fprintf(file, " ResizeBox(%s[%d], &parent[%d]);\n", menu->panel[i].title, k, menu->panel[i].parent_index); } } } (void)fprintf(file, " }\n"); } } (void)fprintf(file, "}\n"); fclose(file); } /* * Subroutine: btn_SetupPanel * Purpose: Define all box structures for a single menu panel and create * a C subroutine to make it at runtime * Uses: btn_SetupBox(), btn_DoJoin() below; */ static void btn_SetupPanel ( panel ) PanelSpec *panel; { FILE *file; int index, i; void btn_SetupBox(), btn_DoJoin(); index = 1; file = fopen(panel->file_name, "w"); (void)fprintf(file, "\n\n"); /* print the filled record structures */ for( i=0; ibox_cnt; i++ ) { btn_SetupBox(file, &panel->box[i], index); index += panel->box[i].geo.btn_cnt; } /* create the subroutines to make this panel */ (void)fprintf(file, "void Make%s", panel->title); (void)fprintf(file, " ( box, parent, gc, visual, background )\n"); (void)fprintf(file, " BoxParent *parent;\n"); (void)fprintf(file, " ButtonBox box[%d];\n", panel->box_cnt); (void)fprintf(file, " GC gc;\n"); (void)fprintf(file, " Visual *visual;\n"); (void)fprintf(file, " unsigned long background;\n{\n"); for( i=0; ibox_cnt; i++ ) { (void)fprintf(file," box[%d] = MakeButtonBox", i); (void)fprintf (file,"(&parent[%d], gc, visual, background,\n", panel->parent_index); (void)fprintf(file,"\t\t\t &%s_geo, %s, 0);\n", panel->box[i].title, panel->box[i].title); } btn_DoJoin(file, panel->box_cnt); (void)fprintf(file, "}\n"); fclose(file); } /* * Subroutine: btn_DoJoin * Purpose: Print lines in C subroutine to call JoinMenus for all * combinations of boxes in a menu panel * Method: Combines all lower boxes with highest index, then recurses * with next highest index. */ static void btn_DoJoin ( file, cnt ) FILE *file; int cnt; { int i; if( cnt <= 1 ) return; cnt--; for( i=0; igeo.btn_cnt; i++ ) { btn_SetupButton(file, box->title, &box->btn[i], index + i); } /* write record declaration after declaring all the parts */ (void)fprintf(file, "static ButtonSpec %s[] = {\n", box->title); for( i=0; igeo.btn_cnt; ) { (void)fprintf(file, " { &%s%d_look, &%s%d_feel }", box->title, index + i, box->title, index + i); if( ++i < box->geo.btn_cnt ) (void)fprintf(file, ",\n"); else (void)fprintf(file, " };\n"); } (void)fprintf(file, "static BoxGeometry %s_geo = \n ", box->title); (void)fprintf(file, "{ %d, %d, %d, %d, %7f, %7f, %7f, %7f, %d, %d };\n\n", box->geo.panel_index, box->geo.btn_cnt, box->geo.box_cols, box->geo.box_rows, box->geo.parent_cols, box->geo.parent_rows, box->geo.box_col_x, box->geo.box_row_y, box->geo.off_inverse, box->geo.on_inverse); } /* * Subroutine: btn_SetupButton * Purpose: Create all data structure declarations needed for a button * Uses: btn_WriteButtonLook() in WriteLook.c * Uses: btn_WriteButtonFeel() in WriteFeel.c * Called by: btn_SetupBox() above */ static void btn_SetupButton ( file, title, button, index ) FILE *file; char *title; BtnSpec *button; int index; { char btn_title[80]; void btn_WriteButtonLook(), btn_WriteButtonFeel(); (void)sprintf(btn_title, "%s%d", title, index); (void)fprintf(file,"/* %s button: %s */\n", button->offo_text, btn_title); btn_WriteButtonLook(file, btn_title, button); btn_WriteButtonFeel(file, btn_title, button); } saoimage-1.08/btnlib/tool/wrfeel.c 666 21641 13 6061 4613710576 12217 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: wrfeel.c (Write Feel) * Subroutine: btn_WriteButtonFeel() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ #include #include "btnmenu.h" /* * Subroutine: btn_WriteButtonFeel * Purpose: write structure declaraation to describe button behavior */ void btn_WriteButtonFeel ( file, title, button ) FILE *file; char *title; BtnSpec *button; { int cnt; static void btn_WriteCodeLine(), btn_WriteHexLine(), btn_WriteDataLine(); for( cnt=0; (cnt < OPTION_LIMIT) && (button->mask[cnt] != 0); cnt++ ); (void)fprintf(file, "static ButtonFeel %s_feel = {\n", title); (void)fprintf(file, " \"%s\", %d,\n", title, cnt); btn_WriteCodeLine(file, title, button->code, cnt); btn_WriteHexLine(file, button->mask, cnt); btn_WriteHexLine(file, button->ref, cnt); btn_WriteDataLine(file, button->data, DATA_LIMIT); } /* * Subroutine: btn_WriteCodeLine */ static void btn_WriteCodeLine ( file, title, code, cnt ) FILE *file; char *title; int *code; int cnt; { int i; static void btn_StampCode(); (void)fprintf(file, " { "); i=0; while( i < cnt ) { btn_StampCode(file, title, code[i]); if( ++i < cnt ) (void)fprintf(file, ", "); } (void)fprintf(file, " },\n"); } /* * Subroutine: btn_WriteHexLine */ static void btn_WriteHexLine ( file, val, cnt ) FILE *file; int *val; int cnt; { int i; (void)fprintf(file, " {"); i=0; while( i < cnt ) { (void)fprintf(file, " 0x%04x", val[i]); if( ++i < cnt ) (void)fprintf(file, ","); } (void)fprintf(file, " },\n"); } /* * Subroutine: btn_WriteDataLine */ static void btn_WriteDataLine ( file, data, cnt ) FILE *file; int *data; int cnt; { int i; (void)fprintf(file, " {"); i=0; while( i < cnt ) { (void)fprintf(file, " %d", data[i]); if( ++i < cnt ) (void)fprintf(file, ","); } (void)fprintf(file, " } };\n"); } /* * Subroutine: btn_StampCode */ static void btn_StampCode ( file, title, code ) FILE *file; char *title; int code; { char *stamp; switch( code ) { case BTNNoOp: stamp = "NoOp"; break; case BTNFlash: stamp = "Flash"; break; case BTNOneShot: stamp = "OneShot"; break; case BTNToggle: stamp = "Toggle"; break; case BTNWhile: stamp = "While"; break; case BTNCoWhile: stamp = "CoWhile"; break; case BTNMode: stamp = "Mode"; break; case BTNCoMode: stamp = "CoMode"; break; default: (void)fprintf(stderr,"Unknown BTN response code: %d in %s\n",code,title); exit(0); } (void)fprintf(file, "BTN%s", stamp); } saoimage-1.08/btnlib/tool/btnchars.h 666 21641 13 1370 4613710162 12531 #ifndef lint static char SccsBtnCId[] = "%W% %G%"; #endif /* * Module: btnchars.h * Project: PROS -- ROSAT RSDC * Purpose: Define structures character bitmaps, and include character sets * Copyright: 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 20 March 1990 * {n} -- -- */ struct bitfont { int width; int height; int byte_width; char *bits; }; #include "outchars.h" #include "inchars.h" saoimage-1.08/btnlib/tool/rotate.c 666 21641 13 2702 4613710353 12220 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rotate.c (Rotate Pixmap Image) * Subroutine: btn_RotateImage() returns: char * * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ /* * Subroutine: btn_RotateImage * Purpose: given a Z image, rotate it 90 degrees according to the sign * Returns: rotated copy of given image */ char *btn_RotateImage ( image, width, height, sign ) char *image; int *width, *height; int sign; { char *rimage; char *flip, *img; int i, j, inc; int wdth, hght; int offset; char *btn_Alloc(); wdth = *width; hght = *height; offset = wdth * hght; rimage = btn_Alloc(offset, 1, "rotated image"); flip = rimage; offset -= wdth; if( sign > 0 ) inc = -wdth; else inc = wdth; for( i=0; i 0 ) img = (image + i) + offset; else img = image + (wdth - i) - 1; for( j=0; j -- -- */ #include #include "btnmenu.h" /* * Subroutine: btn_WriteMenuAttach * Purpose: write code to create menu attachments */ void btn_WriteMenuAttach ( file, menu ) FILE *file; MenuSpec *menu; { int i; static void btn_WritePanelAttach(); for( i=0; ipanel_cnt; i++ ) { if( menu->panel[i].attach != NULL ) { btn_WritePanelAttach (file, &menu->panel[i], menu); } } } /* * Subroutine: btn_WritePanelAttach */ static void btn_WritePanelAttach ( file, panel, menu ) FILE *file; PanelSpec *panel; MenuSpec *menu; { char *pnlname; int pnum, boxnum, btnnum; int i; PanelAttach *attach; static int btn_FindAttachButton(); attach = panel->attach; if( btn_FindAttachButton(attach, menu, &pnum, &boxnum, &btnnum) ) { for( i=0; ibox_cnt; i++ ) { if( attach->attach ) { (void)fprintf(file," AttachSubmenu(%s[%d],", panel->title, i); (void)fprintf(file," %s[%d], %d, 0x%x, 0x%x);\n", attach->panel_title, boxnum, btnnum, attach->mask, attach->reference); } if( attach->join ) { (void)fprintf(file," JoinMenus(%s[%d], %s[%d]);\n", panel->title, i, attach->panel_title, boxnum); } } } } /* * Subroutine: btn_FindAttaachButton * Purpose: get parameters to identify button of attachment */ static int btn_FindAttachButton ( attach, menu, panel_num, box_num, btn_num ) PanelAttach *attach; MenuSpec *menu; int *panel_num, *box_num, *btn_num; { int pl, bx, bn; int i; PanelSpec *panel; BtnSpec *btn; /* check for reasonableness */ if( (attach->match_cnt <= 0) || (attach->match_cnt > DATA_LIMIT) ) { (void)fprintf(stderr,"bad menu attachment specification:"); (void)fprintf(stderr,"%s %s\n",attach->panel_title, attach->box_title); exit(0); } /* find the attachment point */ for( pl=0; plpanel_cnt; pl++ ) { /* match the panel parent for the panel */ if( (attach->parent_index == menu->panel[pl].parent_index) && (strcmp(attach->panel_title, menu->panel[pl].title) == 0) ) { panel = &menu->panel[pl]; for( bx=0; bxbox_cnt; bx++ ) { /* match the box title for the box */ if( strcmp(panel->box[bx].title, attach->box_title) == 0 ) { for( bn=0; bnbox[bx].geo.btn_cnt; bn++ ) { /* match the data for the button */ btn = &panel->box[bx].btn[bn]; for( i=0; (imatch_cnt) && (attach->data[i] == btn->data[i]); i++ ); if( i >= attach->match_cnt ) { *panel_num = pl; *box_num = bx; *btn_num = bn; return( 1 ); } } } } } } (void)fprintf(stderr,"WARNING: could not find attach button:"); (void)fprintf(stderr,"%s %s\n", attach->panel_title, attach->box_title); return( 0 ); } saoimage-1.08/btnlib/tool/text.c 666 21641 13 10166 4613711077 11735 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: text.c (Text Image) * Subroutine: btn_MakeTextImage() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 24 March 1990 * {n} -- -- */ #include #include #include "btnchars.h" btn_InitTool () { /* do nothing (dummy for compatability) */ } /* * Subroutine: btn_MakeTextImage * Purpose: given a string, return a Z image of the word(s), and some info * Note: unoccupied and unoccupied refers to highlighting when pointer * is on the button, or somewhere else */ char *btn_MakeTextImage ( title, width, height, breaklist, breakcnt, sign, in ) char *title; /* i: the label string */ int *width, *height; /* o: width and height of image */ int *breaklist; /* o: array of x offsets of right char edges */ int *breakcnt; /* o: number of chars */ int sign; /* i: sign is code for rotation */ int in; /* i: flag for occupied or unoccupied font */ { struct bitfont *textfont; char *image; char *btn_RotateImage(), *btn_Alloc(); static int btn_ListTextBreaks(); static void btn_MakeZImage(); /* set font for occupation state */ if( in ) textfont = intext; else textfont = outtext; /* set list of lengths to breaks between letters */ *breakcnt = btn_ListTextBreaks(title, textfont, breaklist); /* determine size of full text label */ *width = breaklist[*breakcnt - 1]; *height = textfont->height; image = btn_Alloc(*width * *height, 1, "text image"); /* create the label image (use Z image, it's easier to rotate) */ btn_MakeZImage(title, *breakcnt, textfont, breaklist, *width, *height, image); /* rotate if desired */ if( sign != 0 ) image = btn_RotateImage(image, *width, *height, sign); return( image ); } /* * Subroutine: btn_ListTextBreaks * Purpose: create list of x offsets of breaks between letter in label */ static int btn_ListTextBreaks ( title, textfont, breaklist ) char *title; struct bitfont *textfont; int *breaklist; { unsigned char *alpha; int len, cnt, i; cnt = strlen(title); alpha = (unsigned char *)title; len = 0; for( i=0; ibits; if( height == alpha->height ) { image += x; ycnt = height; } else { if( height > alpha->height ) { ycnt = alpha->height; /* character is taller than the image */ form += (height - ycnt) * alpha->byte_width; } else { /* character is shorter than image */ ycnt = height; image += ((alpha->height - height) * width) + x; } } for( y=0; ybyte_width; byte++ ) { for( bit=0; bit<8; bit++ ) { mask = 1 << bit; if( *form & mask ) *image_char = 1; ++image_char; } ++form; } image += width; } } saoimage-1.08/btnlib/tool/libbtool.a 666 21641 13 70062 4616366575 12572 ! __.SYMDEF 641330562 186 30 100644 304 ` `tt$¶7 ÒFüW"`"n""‰RºžY¤³bªÈ_btn_ByteToBitmap_btn_WriteBitmaps_btn_MakeLabelMask_btn_SetupMenu_btn_RotateImage_outtext_btn_InitTool_btn_MakeTextImage_intext_btn_WriteMenuAttach_btn_WriteButtonFeel_btn_WriteButtonLookbitmap.o 641330516 186 30 100644 1541 ` ÀÀHÔã¿ `€6€‘:  ‘: ¤@’” @’ ª ¨ €¥ª@¢¦€%ª@¸ €§®€¬ €¥€€º ¬€§6€€§ÚN€ "€»/`à À   ÿà-À»/`º`ÿ¸ ° €§&¿ÿôÚN€§¬ ¿ÿè®à¨ €¥¿ÿߪ@ä&ÀÇà‘èã¿ î \˜’`”@–’`”–@˜’`”@–Р`@’¬º €§@€%® ÔÀ’`@€¥À€ º`®€§@6€ €§@ÔÀ’`@º`€§@&¿ÿúÔÀ€§@2€€’`’`@®à €§@&¿ÿàÔÀ€€/’`–”@º €§@€&® Ô’`@€¥À$€º`®º`€§@6€ €§@Ô’`@º`€§@&¿ÿúÔ€§@2€€’`’`@®à €§@&¿ÿßÔÇàè%W% %G%bitmap#define %s_%s_width %d #define %s_%s_height %d static char %s_%s_label[] = { 0x%02x, 0x%02x }; , static char %s_%s_mask[] = { 0x%02x, 0x%02x }; , $†ÿÿÿÜ,Ð0 Ð4†ÿÿÿÌ× ×†ÿÿþðï ï,†ÿÿþÔ48 D†ÿÿþ¼P†ÿÿþ°p't 'x†ÿÿþˆ 0¤ 0¨†ÿÿþXÈ>Ì9Ø 9Ü >ä†ÿÿþA A†ÿÿýð,_0 _4†ÿÿýÌ`hd hh†ÿÿý˜ˆvŒq˜ qœ v¤†ÿÿý\À ô0;DI_SccsId_btn_ByteToBitmap_btn_WriteBitmaps_btn_Alloc_fprintf.mul mask.o 641330520 186 30 100644 479 `  00ã¿ @’” @’  ¢& ¤ €¤€ª¨€4¦€¤€´€¦¨® º´`€¥À¬°¸¶€!ª@ìM€€2€ ’ ØN€ 2€’ ÞN€€"€ ¬’ Ò/@” Ô/– Ö.À¬°´ €¦€*€®à´& ®à€¥Àº`¸ ¿ÿã¶à¤ €¤€$¿ÿÑ€¤€Çà‘è%W% %G%mask map†ÿÿÿø   †ÿÿÿè */_SccsId_btn_Alloc_btn_MakeLabelMask.mul tool.o 641330527 186 30 100644 5614 ` øÈ´Œã¿ Ð º €§@€ ¸ Ð ’@Ð º`€§@¿ÿù¸ Ð@’`¶’`@’`@’`@Ò º €§@ €¸ Ô ”€Ô ’`@Ò º`€§@ ¿ÿö¸ ’`@Ø ¸ €§ €º Ô Ô€Ö ’`–ÀÖà @Ø ¸ €§ ¿ÿôº`’`@’`@’`@’`@’`@’`@’`@’`@â º €§@€ ¸ Ô Ô€’`@â º`€§@¿ÿ÷¸ ’`@æ ¸ €§€º Ô Ô€Ö ’`ÖÀ@æ ¸ €§¿ÿõº`’@Ô Ô€’`@’`@’`@’`@’`@’`@’`@Ð ¸ €§® €º Ò ’@Ò`€¢@$€Ð î ®ÀîàÐ ¸ €§¿ÿôº`’`@² €¦@4€Là º €§@€ ¸ â ¢@â`€¦@"€è à º`€§@¿ÿ÷¸ è €§@6€4²`’`”@ê ´ €¦€€%¸ ì ¬€ì €¥€2€ê Ô º ”€Ô  €§@ 6€ê Ô –Ô€Ø ˜Ø ’`@Ô º`”€Ô  €§@ &¿ÿòÔ ê ´ €¦€¿ÿ߸ ’`@²`€¦@$¿ÿºà ’`@@Çàèã¿ Ð @’`¶’`@Ð ¸ €§º €´ Ò ”’@@bÒ ¸ ’@Ò` Ð º`H€§¿ÿô´€ Ô’`@’`@’`@Ô ’`@’`@’`@’`@Ø ¸ €§ €º ”’`@Ô ’`@Ô Ô€Ö ’`ÖÀ@Ø ¸ €§ ¿ÿëº`HÒ @ ’`@@Çàèã¿ €¦`4€º Çàè²&`€§@6¿ÿú€¦`”’`–@¿ÿ÷º`ã¿xÐ` º €§@€ ¸ Ô`@Ò@”€–€@KÐ` º`€§@¿ÿ÷¸ Ô@’`@Ò` º €§@ €Ô@Ø@š€’`– @Ö` º`€§@ 6€€’`’`@Ò` €§@ ¿ÿêÔ@’`@Ø`Ú`Ø# \Ú# `Þ` à`$Þ# dà# hà`(â`,à# lâ# pâ`0ä`4â# tä# xä`8ä# |æ`<’`æ# €Ô`Ö` Ø`Ú`@Çàèã¿Pº¿°’`”@–Ô€’`@–’@”’@”Çàè%W% %G%%W% %G%%W% %G%w #include #include #include "../btnlib/buttons.h" #include "%s" ButtonBox %s[%d]; ButtonBox CreateMenu ( parent, gc, visual, background ) BoxParent *parent; /* i: array of parent window specs */ GC gc; /* i: optional, else 0 */ Visual *visual; /* i: optional, else 0 */ unsigned long background; /* i: optional, else 0 */ { void Make%s(); Make%s(%s, parent, gc, visual, background); return( %s[0] ); } void ResizeMenu( parent, flags ) BoxParent *parent; /* i: array of parent window specs */ int *flags; /* i: array of window-changed flags */ { if( flags[%d] ) { ResizeBox(%s[%d], &parent[%d]); } } w void Make%s ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[%d]; GC gc; Visual *visual; unsigned long background; { box[%d] = MakeButtonBox(&parent[%d], gc, visual, background, &%s_geo, %s, 0); } JoinMenus (box[%d], box[%d]); static ButtonSpec %s[] = { { &%s%d_look, &%s%d_feel }, }; static BoxGeometry %s_geo = { %d, %d, %d, %d, %7f, %7f, %7f, %7f, %d, %d }; %s%d/* %s button: %s */ @ D†ÿÿÿ¼H  P"T "X †ÿÿÿ¨`7d 7h †ÿÿÿ˜pNt Nx †ÿÿÿˆ˜o¤ o¨ †ÿÿÿXÄ~È ~Ì †ÿÿÿ4ì€ø € †ÿÿþü “$ “( †ÿÿþØ0©4 ©8 †ÿÿþÈ@ÎD ÎH †ÿÿþ¸PæT æX †ÿÿþ¨` d h †ÿÿþ˜p 8t 8x †ÿÿþˆ€ i„ iˆ †ÿÿþx ˆ” ˆ˜ †ÿÿþh¸ ¦À ¦Ä †ÿÿþ<à ¸ä ¸è †ÿÿþ º º †ÿÿýä<†ÿÿýÄH éP éT †ÿÿý¬\ ý` ýd †ÿÿýœl p t †ÿÿýŒ| #€ #„ †ÿÿý|Œ ; ;” †ÿÿýlœ d  d¤ †ÿÿý\¬ u° u´ †ÿÿýL  ¡ ¡ †ÿÿüì( â| £€ £ˆ †ÿÿüxè ¸ô ¸ø †ÿÿü0 Ý4 Ý8 †ÿÿûÈP âT âX †ÿÿû¨` †ÿÿû x å|†ÿÿû„€ åˆ çŒ ç †ÿÿûpì êð êô †ÿÿû ü ö ö †ÿÿúü    †ÿÿúì  9$ 9( †ÿÿúØ0 R4 R8 †ÿÿúÈ@ _D _H †ÿÿú¸P uT uX †ÿÿú¨x —| —€ †ÿÿú€Œ ± ±” †ÿÿúl  ج Ø´ †ÿÿúLÜ îà îä †ÿÿúì †ÿÿú( ñ, ñ4 †ÿÿùÌŒ  ” †ÿÿùl¸ .¼ .Ä †ÿÿù<Ü Nà Kì Kð Nø †ÿÿù S S †ÿÿøèd sp sˆ †ÿÿøx  ¥¤ ¥°†ÿÿøP¼ ªÀ ªÈ †ÿÿø8؆ÿÿø(è†ÿÿø.CøKDYbnz˜ü¤p´½˜Î_btn_WriteMenuAttach_btn_WriteButtonLook_btn_WriteButtonFeel_SccsId_btn_SetupBox_sprintf_SccsBtnhId_SccsBtnMId_fopen_btn_SetupMenu_fclose_btn_DoJoin_btn_SetupPanel_fprintf_btn_SetupButtonrotate.o 641330530 186 30 100644 475 ` ð <<ã¿ ò' Hô' L èò€@’º” @’ €¦'@€¢€® ®ª ¬ €¥€ª@¤€ª@€€¸º€º@º%ºº'`´ €¦€6€ ¬ ÚO@´ €¦€Ú/º@¿ÿû¸ ¬ €¥€¿ÿêª@Þ Lè#À@ò$Çà‘è%W% %G%rotated image†ÿÿÿä(, 4†ÿÿÿÌà†ÿÿÿ  ð"3_free_SccsId_btn_Alloc.mul_btn_RotateImage text.o 641330536 186 30 100644 12394 ` ` œ Ãà 㿠Р\€"€€®`® ”’@%Ð'Ö–"à—*àÖÀ Ö&@ààà&€Ð@@Ò€” @’ ¬ì# \ÒØ@Ú€”@!–€€Ò@Ô€–@¬Çà‘èã¿ @¶° ¸€¦€ º ÔÀ° •* Ô@ €¦º@ ú&€¿ÿù´ Çà‘èã¿ ê \¬° €¦€® Ð €˜‘* €–”@ ’îÀ° €¦¿ÿõ¶àÇàèã¿ î Ð €¦À2€Ò ¸€¨€¦À $€Ð è Ò @&À€®À’@"¸¨ª €¥@€Ö ¬ €¥€ €²¶ âMÀ˜ ™+™+ ™; €Œ@ "€¶à¦ æ.@¶à€¦à¿ÿô²`Ö ¬ €¥€ ¿ÿî®àª`€¥@¿ÿå¸Çàè%W% %G%%W% %G%                                                                                  üHþH$$Ý |’|’’|Œ’RL PHˆ8DD(”¢BÂ<**þ~ 8D‚‚‚‚‚‚D8 0, x„„€@ þ8DD@0@‚‚D8`PHHDBþ@@@|>B€€€B<x„:F‚‚‚D8þ€€@ 8DDD8D‚‚D88D‚‚‚ĸ€B<  >>  >pp`L26666``0ü˜˜þÌff|ÖÖ>xÐÖÖ|6¶œÀÀ``008ll(8|ÆÆæ¼    **000þþ000üü``00 8lÆÆÆÆÆÆl8`p|```````|ÆÆÀ`0 þ|ÆÆÀpÀÀÆÆ|`pxhlffþ``ü ~ÆÆÀÆÆ|xÌÆ~ÆÆÆÆ|þÀ`00 |ÆÆÆ|ÆÆÆÆ||ÆÆÆÆüÀÆf<`0  0`|||| 0``0 cc>xccc>ÿÃÃÃÃÃÃÃÃf<ÃÃÃfff$<CCæ æ æ ô¼ÃÃf<<fÃÃÃÃff<ÿÀ`0 ÿ>> 00``>00000000000><~Z þþ 30>33n?ccccc?>ccc>```~ccccc~>ccc>~ccccc~`c>?cccccc 33cß333333?cccccc>ccccc>?ccccc?~ccccc~```383cccccc~ÃÃff$<##vvÞŒŒ33 33ccf64<?0 ?pp p˜üftext imagex x$ x( x` †ÿÿÿ h"fl "fp†ÿÿÿ´ †ÿÿÿLÌ †ÿÿÿ4¨ †ÿÿþX¼ †ÿÿþD$x4yDzT{d|t}„~”¤€´Ä‚Ôƒä„ô…†‡$ˆ4‰DŠT‹dŒt„Ž”¤´‘Ä’Ô“ä”ô•–—$˜4§D¶TÅdâtÿ„”9¤H´WÄfÔuä’ô¡°¿$Î4ëDT%dBt_„|”™¤¶´ÓÄðÔÿäô,;$J4gD„T¡d¾tÛ„ø”¤$´AÄPÔ_ä|ô‹¨Å$â4ñDT+dHte„‚”Ÿ¤¼´ÙÄöÔä"ô1@O$l4{DŠT™d¨t·„Ɣդä´óÄÔä ô/L[$x4‡D–T¥d´tÃ„Ò”ï¤ ´Ä8ÔGäVôetƒ$„4…D†T‡dˆt‰„Š”‹¤Œ´ÄŽÔäô‘ ’ “ $” 4• D– T— d˜ t™ „š ”› ¤œ ´ Äž ÔŸ ä  ô¡ ¢ £ $¤ 4³ D TÑ dî t „( ”E ¤T ´c Är Ô äž ô­ Ê Ù $è 4 D" T? d\ ty „– ”³ ¤Ð ´í Ä Ô ä( ô7 F U $d 4 Dž T­ dÊ tç „ö ” ¤" ´? ÄN Ô] äz ô‰ ¦ à $à 4ï D T) d8 tU „r ” ¤¬ ´É Äæ Ô  ä  ô ! 0 ?$ \4 kD zT ‰d ˜t §„ ¶” Ť Ô´ ãÄ òÔ!ä!ô!!<!K$!Z4!iD!xT!‡d!–t!¥„!´”!Ѥ!î´!ýÄ" Ô"ä"*ô"9"H"ex `#l/:pI\ xdtȈ•¦_outtext_SccsId_btn_InitTool_SccsBtnCId_btn_Alloc_add_one_alpha_btn_MakeTextImage_intext_btn_MakeZImage_btn_ListTextBreaks_strlen.mul_btn_RotateImagewrattach.o 641330542 186 30 100644 1710 ` `Øx\ã¿ Ð`¸ €§€º Ò`’@Ò`€ "€Ð`Ò`”’@@ Ð`¸ €§¿ÿòº`Çàèã¿ú`”¿ü–¿ø˜¿ô@1’€€,Ð` ´ €¦€€'Ò` € "€Ö`Ô@’`–@Ô`Ö¿øØ¿ôÔ# \Ô@Ú`’`@Ö`€ "€ Ð` Ô@Ø@Ú¿ø’`–@Ð` ´ €¦€&¿ÿÞÒ` Çàèã¿ ò' Hô' Lö' Pø' TÐ €$€Ò €¢`$€ä H¶ ’`@ÔÖ ’`@@ ä H¢ Ø ª €¤@ €Y¦ Ú š@Ú`Ò €¢@ 2€NØ Ò Ò@@Ѐ2€GØ ì ¨ ¬€Ú  ® €¥ 6€?ؠРÐ@Ò €2€3Ú  Р´ Ð ² €¦€6€+Ú  ú ¶ º@ú`@Ö º@€¦À ¸€ º`€ØÚ@€£ 2€ Þ Ö ¶à€¦À ¸ ¿ÿ÷º`Þ €¦À&€ Рà L¶ â$РPè"Ò T€ ô"@´ Ð ²`€¦€&¿ÿÛú Ú  ¨ €¥ ¿ÿÆ®àHØ ¢`€¤@ ¿ÿ«¦à¶ ’`@ÔÖ @’`¶ Çà‘è%W% %G%%W% %G%%W% %G% AttachSubmenu(%s[%d], %s[%d], %d, 0x%x, 0x%x); JoinMenus(%s[%d], %s[%d]); bad menu attachment specification:%s %s WARNING: could not find attach button:%s %s ´ˆ¸ ˆÀ†ÿÿÿ@à ä  è†ÿÿÿ » »†ÿÿþè\ˆ(pˆ(t‹(xÙ| Ù€†ÿÿþ€ü” ü˜†ÿÿþh  †ÿÿþ`è†ÿÿþ$†ÿÿýÜ ˆ($‹((, 0†ÿÿüÐD*H†ÿÿü¸L *`!x-l9`O<ekt|‚_btn_WriteMenuAttach_SccsId_SccsBtnhId_SccsBtnMId_btn_WritePanelAttach_btn_FindAttachButton__iob_fprintf_strcmp_exitwrfeel.o 641330548 186 30 100644 2249 ` 脨㿠¶ P¸º Ô€ "€º`€§`¿ÿú¸ ’`”@’`”@–” 8’@–’@*”’ h@&”’ €@A” Çàèã¿ ’`@º €§@6€Ô€’@Qº`€§@€´ ’`@€§@&¿ÿôÔ€’`@Çàèã¿ ’`@º €§@6€Ô@’`@º`€§@€²`’`@€§@&¿ÿóÔ@’`@Çàèã¿ ’`@º €§@6€Ô@’`@º`€§@€²`’`@€§@&¿ÿóÔ@’`@Çàèã¿ €¦ €'‘. ’`Р€ ´ €´`€´ €´à€´ €´`€´à!€ ´  ’`–@”@ ’`”@Çàè%W% %G%%W% %G%%W% %G%static ButtonFeel %s_feel = { "%s", %d, { , }, { 0x%04x, }, { %d, } }; NoOpFlashOneShotToggleWhileCoWhileModeCoModeUnknown BTN response code: %d in %s BTN%s(0(4 (< †ÿÿÿÄDGH GT †ÿÿÿ¬¬T° T´ †ÿÿÿLÈ\ìYð Yô †ÿÿÿ \  \ †ÿÿþð$a( a, †ÿÿþÔ@oHeL eP †ÿÿþ°hml mp †ÿÿþ„oˆ oŒ †ÿÿþt t¤ t¨ †ÿÿþX¼~ÄxÈ xÌ †ÿÿþ4ä|è |ì †ÿÿþ~ ~ †ÿÿýø(<, <<\@hDtH€LŒP˜T¤X°\…d …hŠp Št| €˜ˆ ˜ŒŸ” Ÿ˜¥  ¥¤­¬ ­°²¸ ²¼¹Àˆ(Ä‹(È ¹Ð †ÿÿý0Ø †ÿÿý(àÞä Þì †ÿÿý!- 9 KZœm¨€†•_btn_WriteButtonFeel_SccsId_SccsBtnhId_SccsBtnMId_btn_WriteHexLine_btn_StampCode_btn_WriteDataLine_btn_WriteCodeLine__iob_fprintf_exit wrlook.o 641330555 186 30 100644 3403 ` ˜ ´H㿠Р€2€Ö Ò€Ò& Ô Ô&  Ö € 2€Þ Ø€Ø& Ú Ú& Þ €2€è  à à& â â& è  '€%ºà€$¶ À# \րؠڠ0”’@·ê $€2€Ö $Ѐ@Ò €"€!ºÀ# \Ö Ø  Ú 0”’@¥€Ø (”’@„€Ø (Ö  ”’@}ì $€"€*À# \Р Ò $€¢ 2€Ö $ºØ (€ ¸à€6® š Ú# \Ö Ø Ú 0”’@~Þ ,€2€#Ö ,Р@Ò €2€  €0¸”’@S¿ÿáØ (Ö Ø  Ú 0”’@e¿ÿØØ (à# \Ö Ø Ú 0”’@[€”’@:€Ö (”’@3â ,€"€%¨ ä (æ ,€¤€2€Ö ,¸’`”@’`”–˜@š’`”–˜@šÇàè”’@¿ÿæè# \Ö Ø Ú 0”’@¿ÿÜ㿘Òà’‚`<€Öà ’`Öà “:`º ú# `Ö# \ÖÀØàÚà’”@’”–˜ @—š Çàèã¾€Ò \®¾øÒ# \’¿ü–”¿ø˜¾ô@šÒ¿üÔ¿ø¶@–¾ðÒ¿üÔ¿ø¬@Ò¿üÔ¿øª@–¾ð¨@@€"€ ؾð€2€Ø¾ðÔ¿ø”" Ô'¿øؾðÖ¿øÚ¿üÖ# \Ø# `˜–”’@Ö¾ôš¾èÚ# \ú# `š¾ì’”˜@Ö¾ðؾìÚ¾è’@O”@@Çàèã¿ ì `î \€2€€ö'@€ À%À$€ À'@€ö%ÀÀ'@Ð%À–”’`@º €§@´ €,²€¦€$€€§@´€§@6€€¦€Ô@’`@º`€§@€²`’`@€§@&¿ÿóÔ@€¦€6€ ´ €¦€$€´€’`’`@€§@&¿ÿÙ€¦€Çàèã¿ ’`”@–’`”@–’`”@–’`”–˜@š’`@€2€ €2€ ’`”@€ ’`š˜–”@ô# \Çàè%W% %G%%W% %G%%W% %G%offoonooffionistatic ButtonLook %s_look = { &%s_%s, NULL, &%s_%s, NULL, &%s_%s, NULL, &%s_%s, NULL }; static int %s_%s_breaks[] = { %d, }; static ButtonLabel %s_%s = { (unsigned char *)%s_%s_label, (unsigned char *)%s_%s_mask, %s_%s_width, %s_%s_height, 0.5, 0.5, 0, 0, /* placement */ %1d, 0, 0, NULL }; %1d, %1d, %1d, %s_%s_breaks }; hÅpÀt Å| À´†ÿÿÿLHÎPÉT Î\ ɘ†ÿÿþhÒ,ÒlÒp Òx †ÿÿýˆ€ñ„ ñ˜ †ÿÿýh ¤ ¸ †ÿÿýHÜÒÒH †ÿÿü¸˜ †ÿÿüh°†ÿÿüPÄ †ÿÿü<܆ÿÿü$è†ÿÿüð†ÿÿü@ †ÿÿûÀŒ†ÿÿût”†ÿÿûlì1ð 1ô †ÿÿû 0O4 O8 †ÿÿúÈPST SX †ÿÿú¨tX„UŒU˜ Uœ X¤ †ÿÿú\Ä]È ]Ô †ÿÿú,Ü{à {ì †ÿÿúô›ø › †ÿÿùü º º$ †ÿÿùÜ,Ø0 Ø4 †ÿÿùÌDPTýX ý` †ÿÿù p ˆ †ÿÿùx ¤4˜<Utn°z¤†˜ªÀÀÓæï÷_free_btn_WriteButtonLook_btn_WriteTextBreaks_SccsId_btn_WriteLabelIconPhase_btn_WriteLabelTextPhase_SccsBtnhId_SccsBtnMId_btn_ByteToBitmap_btn_WriteBitmaps_btn_WriteButtonLabel_btn_MakeTextImage_btn_MakeLabelMask_fprintf_strcmp saoimage-1.08/btnlib/event.c 666 21641 13 42576 4614135463 11127 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: event.c (Event Control) * Project: PROS -- ROSAT RSDC * Purpose: Field buttonbox events * Subroutines: ButtonEvent() returns: int * Subroutines: static btn_Event() returns: int * Subroutines: ButtonControl() returns: int * Subroutines: static btn_Control() returns: int * Subroutine: ButtonSelectMask returns: int * Xlib calls: XNextEvent(), XPutBackEvent(), XPending() * Xlib calls: ConnectionNumber (macro) * UNIX calls: Select() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 21 March 1989 * {1} Jay Travisano (STScI) VMS,IMTOOL changes 10 Nov 1989 * {n} -- -- */ #include /* define stderr, NULL */ #include #include "buttons.h" #define MOUSESTATE (Button1Mask | Button2Mask | Button3Mask) /* STATIC VARIABLES FOR USING UNIX SELECT TO DETECT NON-WINDOW EVENTS */ static int select_flag, x_mask[2], select_mask[2]; static int select_size=0; /* * Subroutine: ButtonEvent * Purpose: Determine if the given event belongs to the button * box hierarchy * Returns: 1 if yes this is a button event, 0 if no * Called by: Application program * Uses: btn_Event() below * Xlib calls: none * Post-state: takes no action * Method: Check the event's window to see if it is one of ours. First * check this box and the branches of active submenus. * Then check on each of this boxes co-horts and do the same * with their active submenus. * Note: Must be called with a buttonbox at the base of the menu tree */ int ButtonEvent ( buttonbox, event ) ButtonBox buttonbox; /* i: top handle for button menu group */ XEvent *event; /* i: pointer to filled event record */ { int i; /* l: loop counter */ static int btn_Event(); /* is the event in the primary buttonbox (or its sub-menus) */ if( btn_Event(buttonbox, event) != 0 ) { return( 1 ); } else { /* is the event in a co-menu of the primary buttonbox .. */ /* .. (or one of their sub-menus) */ for( i = 0; i < buttonbox->co_menu_count; i++ ) { if( btn_Event(buttonbox->co_menu[i], event) != 0 ) return( 1 ); } } /* none or the above */ return( 0 ); } /* * Subroutine: btn_Event * Purpose: Determine if the given event belongs to this button box * or a buttonbox in its branches of active submenus. * Returns: 1 if yes this is a button event, 0 if no * Called by: ButtonEvent() above, ButtonControl(), btn_Control() below * Xlib calls: none * Post-state: takes no action * Method: Check this buttonbox, then recurse on each active submenu * and co-submenus. */ static int btn_Event ( buttonbox, event ) ButtonBox buttonbox; /* i: top handle for button menu tree */ XEvent *event; /* i: pointer to filled event record */ { int i; /* l: loop counter */ /* go through our window list to find a match */ for( i = 0; i < buttonbox->window_count; i++ ) if( event->xany.window == buttonbox->window_list[i] ) return( 1 ); /* no?, do we have any submenus?, if yes, try them by recursion */ if( buttonbox->submenu_count != 0 ) for( i = 0; i < buttonbox->submenu_count; i++ ) if( btn_Event(buttonbox->submenu[i], event) != 0 ) return( 1 ); /* no?, do we have any cosubmenus?, if yes, try them by recursion */ if( buttonbox->cosubmenu_count != 0 ) for( i = 0; i < buttonbox->cosubmenu_count; i++ ) if( btn_Event(buttonbox->cosubmenu[i], event) != 0 ) return( 1 ); return( 0 ); } /* * Subroutine: ButtonControl * Purpose: Check the event for belonging to the button menu or one of its * submenus, and handle button respons appropriately. Return * code with a button selection event, or the first event which * belongs to the application. * Returns: 1 if returns with button selection (response points at data), * 0 if X event in "event" is not for this button group * -1 if a non-X event is indicated by UNIX select * Called by: Application program * Uses: btn_Event() above, btn_Control() below * Xlib calls: XPutBackEvent() * Pre-state: An event already in the passed event structure * Post-state: Pointer pointed at by response is set to point at the selected * button's data field on a button response event * Post-state: If status == 1, event will contain either a ButtonPressed or * ButtonReleased for one of the buttons. * If status == 0 event will be an event for the application * If status == -1, event will be of no interest to application * Method: Loop until we have an event which does not belong to any * buttonbox (must be for application) or a button selection is * made. In each loop, use btn_Event for a quick check to * seek ownership of the event. When claimed, call btn_Control * to actually field the event. If btn_Control does not call for * returning, btn_Control will have returned with a new event * and the loop can continue. If nobody claims the current * event, we must return. * Then check on each of this boxes co-horts and do the same * with their active submenus. * Note: Must be called with a buttonbox at the base of the menu tree */ int ButtonControl ( buttonbox, event, response ) ButtonBox buttonbox; /* i: top handle for button menu group */ XEvent *event; /* i: pointer to filled event record */ int **response; /* o: ptr to button data ptr set on response */ { int status; /* o: reason for return code (-1,0,1) */ int not_found; /* l: event search status */ int i; /* l: loop counter */ static int btn_Event(); static int btn_Control(); status = 1; *response = NULL; while( 1 ) { not_found = 1; /* is the event in the primary buttonbox (or its sub-menus) */ if( btn_Event(buttonbox, event) != 0 ) { status = btn_Control(buttonbox, event, response); not_found = 0; } else { /* is the event in a co-menu (or one of their sub-menus) */ for( i = 0; i < buttonbox->co_menu_count; i++ ) { if( btn_Event(buttonbox->co_menu[i], event) != 0 ) { status = btn_Control(buttonbox->co_menu[i], event, response); not_found = 0; break; } } } /* if current event is nobody's or there is a response, return */ if( not_found || (status != 0) ) { /* if it was fielded but the status is 0, it's a new unclaimed event */ /* if new event is not to be fetched by ButtonControl, do this: if( status == 0 ) XPutBackEvent (event->xany.display, event); */ return( status ); } } } /* * Subroutine: btn_Control * Purpose: Field events until one is not of this button box tree, or * a reportable button event occurs. * Returns: 1 on button response (response points at data), * 0 if X event not claimed, * -1 on non-X event indicated by UNIX select * Called by: ButtonControl() above * Uses: btn_Event() above, btn_Control() recurses * Uses: btn_PutImage(), btn_DrawButton() in DrawButton.c * Uses: btn_PushButton() in PushButton.c * Xlib calls: XNextEvent(), XPending() * UNIX calls: Select() * Pre-state: An event already in the passed event structure * Post-state: Pointer pointed at by response is set to point at the selected * button's data field on a button response event * Post-state: Possibly a different event in the passed event structure: * either a ButtonPressed or ButtonReleased for one of the * buttons, or an event which must be fielded by the application. * Method: Loop until we have an event which does not belong to any * buttonbox (must be for application) or a button selection is * made. In each loop, check btn_Event to see if it belongs to * this button box, if not, recurse on submenus and cosubmenus * until one fields it. If still not, return NULL, else (it * was fielded) get the next event and loop again. */ static int btn_Control ( buttonbox, event, response ) ButtonBox buttonbox; /* i: top handle for button menu tree */ XEvent *event; /* i: pointer to filled event record */ int **response; /* o: ptr to button data ptr set on response */ { int status; /* o: reason for return code (-1,0,1) */ int i; /* l: loop counter */ int virgin; /* l: flag that 1st event was never fielded */ int not_claimed; /* l: flag that current event was not fielded */ int type; /* l: temp for button response type */ int id; /* l: temp for button id */ int mask[2]; /* l: temp store for select mask (select changes it) */ static int btn_Event(); int btn_PushButton(); void btn_PutImage(), btn_DrawButton(), btn_ReleaseButton(); /* indicate that this is the passed event */ virgin = 1; while( 1 ) { not_claimed = 1; status = 1; /* see if this event belongs to this buttonbox */ for( i = 0; i <= buttonbox->btn_cnt; i++ ) { if( event->xany.window == buttonbox->window_list[i] ) { not_claimed = 0; break; } } /* if this was an event for an active button, field it */ if( i < buttonbox->btn_cnt ) { switch( event->type ) { case EnterNotify: /* indicate occupation of this button */ buttonbox->buttons[i].occupied = 1; /* display this button as occupied */ if( buttonbox->buttons[i].highlight == 0 ) btn_PutImage(&buttonbox->buttons[i], OFF_IN); else btn_PutImage(&buttonbox->buttons[i], ON_IN); break; case LeaveNotify: /* if button is down, ignore, we will get another after release */ if( event->xcrossing.state & MOUSESTATE ) break; /* unindicate occupation of this button */ buttonbox->buttons[i].occupied = 0; /* display this button as unoccupied */ if( buttonbox->buttons[i].highlight == 0 ) btn_PutImage(&buttonbox->buttons[i], OFF_OUT); else btn_PutImage(&buttonbox->buttons[i], ON_OUT); break; case ButtonPress: /* if mouse buttons are down, don't respond */ if( event->xbutton.state & MOUSESTATE ) break; /* if missed a release (for unknown reason) too late now */ if( buttonbox->down_mouse_btn >=0 ) buttonbox->down_mouse_btn = -1; /* call the routine to handle the buttonbox response */ if( btn_PushButton(buttonbox, i, event->xbutton.button, event->xbutton.state, 1) ) { /* report selection's data to calling routine (if not NO_OP) */ *response = buttonbox->buttons[i].feel->data; return( 1 ); } break; case ButtonRelease: /* we only care about the release of a known button */ if( event->xbutton.button != buttonbox->down_mouse_btn ) break; id = buttonbox->down_btn; type = buttonbox->buttons[id].feel->function[buttonbox->down_btn_func]; /* call the routine to handle most of the buttonbox response */ btn_ReleaseButton(buttonbox, type, id); if( type == BTNCoWhile ) { /* for a BTNCoWhile report release (already drawn correctly) */ *response = buttonbox->buttons[id].feel->data; return( 1 ); } else if( (type == BTNWhile) || (type == BTNOneShot) ) { /* for a BTNWhile or BTNOneShot draw button */ btn_DrawButton(&buttonbox->buttons[id]); /* for a BTNWhile report release */ if( type == BTNWhile ) { *response = buttonbox->buttons[id].feel->data; return( 1 ); } } break; case Expose: /* on an expose window event, redraw the button */ btn_DrawButton(&buttonbox->buttons[i]); break; default: /* server might send other events, but we are not interested */ break; } } /* if event is not accounted for and there are submenus, try them */ if( not_claimed && (buttonbox->submenu_count != 0) ) { /* is it one of their events */ for( i = 0; i < buttonbox->submenu_count; i++ ) { /* chance of success small, so do a rapid search first */ if( btn_Event(buttonbox->submenu[i], event) != 0 ) { /* if yes, pass the torch (recurse through submenu) */ if( (status = btn_Control(buttonbox->submenu[i], event, response)) != 0 ) /* got a selection, pass it on */ return( status ); not_claimed = 0; break; } } } /* if event is not accounted for and there are submenus, try them */ if( not_claimed && (buttonbox->cosubmenu_count != 0) ) { /* is it one of their events */ for( i = 0; i < buttonbox->cosubmenu_count; i++ ) { /* chance of success small, so do a rapid search first */ if( btn_Event(buttonbox->cosubmenu[i], event) != 0 ) { /* if yes, pass the torch (recurse through cosubmenu) */ if( (status = btn_Control(buttonbox->cosubmenu[i], event, response)) != 0 ) /* got a selection, pass it on */ return( status ); not_claimed = 0; break; } } } /* if this event was not claimed, return status 0 */ if( not_claimed ) { /* (Debug check) if we were called with someone else's event, shame! */ if( virgin != 0 ) { (void)fprintf(stderr, "WARNING: buttonbox called with unexpected event.\n"); (void)fprintf(stderr, " event window= %x, event type = %x\n", event->xany.window, event->type); } return( 0 ); } /* if no btn_Control call has fetched next event (event fielded here) */ if( status != 0 ) { /* get next event */ if( select_flag ) { /* if events may be non-X UNIX events, don't block on XNextEvent */ if( XPending(buttonbox->display) ) { /* if an event is already pending, get it as X event */ XNextEvent(buttonbox->display, event); } else { #ifndef VMS /* block on UNIX select (returns on X or other events) */ /* set mask to screen events */ mask[0] = select_mask[0]; mask[1] = select_mask[1]; if( select(select_size, mask, (int *)0, (int *)0, (struct timeval *)0) <0 ) perror("select error"); /* both masks have only one bit, look for match */ if( (mask[0] & x_mask[0]) || (mask[1] & x_mask[1]) ) { /* if event was X event, get it and loop */ XNextEvent(buttonbox->display, event); } else { /* if event was not X event, return special status code */ return( -1 ); } #else return( -1 ); #endif } } else { /* if only X events are expected, block waiting for next then loop */ #if VMS && IMTOOL if( ! XPending (buttonbox->display) ) return( -1 ); #endif XNextEvent(buttonbox->display, event); } } /* note that this is no longer the passed event */ virgin = 0; } /* while( 1 ) loop */ } #ifndef VMS /* * Subroutine: ButtonSelectMask * Purpose: Set a UNIX select mask for event detecting by ButtonControl. * Returns: 1 if select flag was set, 0 if select flag could not be set * Called by: Application * Xlib calls: ConnectionNumber (macro) * Pre-state: Application has set mask that is passed * Post-state: Static variables accesible to ButtonControl are set * Exception: Display file descriptors are legal under newer UNIX's but not * accomodated here. * Notes: UNIX select blocks until an event (usually a pending message) * matching a select mask bit occurs. XNextEvent() calls select * with only its display connection message bit. It does not * return on other events. By doing our own select and only * calling XNextEvent when we know that it has an event for * select, we avoid this problem. When a non-X event is detected, * ButtonControl returns control to the application with a -1 * status flag. Select bits are cleared by reading from the * flagging file descriptor or closing it. */ int ButtonSelectMask ( display, setmask, size, set ) Display *display; /* i: display connection for X events */ int *setmask; /* i: array of mask ints set for other events */ int size; /* i: number of bits used for select mask */ int set; /* i: 1=set mask, else clear mask */ { int xchan; /* l: file descriptor for X display (the bit offset) */ /* if setting select mask for first time, install X server's mask */ if( select_size == 0 ) { xchan = ConnectionNumber(display); if( xchan < 32 ) { x_mask[0] = (1 << xchan); x_mask[1] = 0; select_size = 32; } else { x_mask[0] = 0; x_mask[1] = (1 << (xchan - 32)); /* set number of bits for file descriptors to that of system */ /* select_size = getdtablesize(); * hardwire it since SYSV systems lack a call to know */ select_size = 64; } select_mask[0] = x_mask[0]; select_mask[1] = x_mask[1]; } if( set ) { select_mask[0] |= setmask[0]; if( size > 32 ) { select_mask[1] |= setmask[1]; if( select_size < size ) select_size = size; } } else { if( (setmask[0] != 0) && (setmask[0] != x_mask[0]) ) select_mask[0] &= (~(setmask[0])); if( (size > 32) && (setmask[1] != 0) && ((setmask[1] != x_mask[1])) ) select_mask[1] &= (~(setmask[1])); } if( (select_mask[0] != x_mask[0]) || (select_mask[1] != x_mask[1]) ) select_flag = 1; else select_flag = 0; return( select_flag ); } #endif saoimage-1.08/btnlib/borders.h 666 21641 13 12506 4616372710 11441 #ifndef lint static char SccsDefId[] = "%W% %G%"; #endif /* Module: borders.h * Purpose: Define the default button border patterns * Defines: defBorders * Xlib calls: none * Note: Set by MakeButtonBox() * Note: Used by btn_MakeBdrBitmap() in border.c to put border pattern * on buttons. Included by create.c where assignments are made. * Copyright: 1989, 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 21 March 1989 * {1} MVH map expanded to 4x32 covering 4 corners 26 March 1990 * {n} -- -- */ /* * Data: off_out_button_bits * Purpose: 32x32 bit border pattern * for button in off state, not occupied by pointer * Note: compatable with X11 bitmap tool */ #define off_out_button_width 32 #define off_out_button_height 32 static char off_out_button_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0x07, 0xf8, 0xff, 0xff, 0x1f, 0x3c, 0x00, 0x00, 0x3c, 0x0c, 0x00, 0x00, 0x30, 0x0e, 0x00, 0x00, 0x70, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x0e, 0x00, 0x00, 0x70, 0x0c, 0x00, 0x00, 0x30, 0x3c, 0x00, 0x00, 0x3c, 0xf8, 0xff, 0xff, 0x1f, 0xe0, 0xff, 0xff, 0x07, 0x00, 0x00, 0x00, 0x00}; /* * Data: off_in_button_bits * Purpose: 32x32 bit border pattern * for button in off state, occupied by pointer * Note: compatable with X11 bitmap tool */ #define off_in_button_width 32 #define off_in_button_height 32 static char off_in_button_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0x07, 0xf8, 0xff, 0xff, 0x1f, 0x3c, 0x00, 0x00, 0x3c, 0x8c, 0xff, 0xff, 0x31, 0xee, 0xff, 0xff, 0x77, 0xe6, 0x00, 0x00, 0x67, 0x76, 0x00, 0x00, 0x6e, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x76, 0x00, 0x00, 0x6e, 0xe6, 0x00, 0x00, 0x67, 0xee, 0xff, 0xff, 0x77, 0x8c, 0xff, 0xff, 0x31, 0x3c, 0x00, 0x00, 0x3c, 0xf8, 0xff, 0xff, 0x1f, 0xe0, 0xff, 0xff, 0x07, 0x00, 0x00, 0x00, 0x00}; /* * Data: on_out_button_bits * Purpose: 32x32 bit border pattern * for button in on state, not occupied by pointer * Note: compatable with X11 bitmap tool */ #define on_out_button_width 32 #define on_out_button_height 32 static char on_out_button_bits[] = { 0x0f, 0x00, 0x00, 0xf0, 0xe3, 0xff, 0xff, 0xc7, 0xf9, 0xff, 0xff, 0x9f, 0x3d, 0x00, 0x00, 0xbc, 0x0c, 0x00, 0x00, 0x30, 0x0e, 0x00, 0x00, 0x70, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x06, 0x00, 0x00, 0x60, 0x0e, 0x00, 0x00, 0x70, 0x0c, 0x00, 0x00, 0x30, 0x3d, 0x00, 0x00, 0xbc, 0xf9, 0xff, 0xff, 0x9f, 0xe3, 0xff, 0xff, 0xc7, 0x0f, 0x00, 0x00, 0xf0}; /* * Data: on_in_button_bits * Purpose: 32x32 bit border pattern * for button in on state, occupied by pointer * Note: compatable with X11 bitmap tool */ #define on_in_button_width 32 #define on_in_button_height 32 static char on_in_button_bits[] = { 0x0f, 0x00, 0x00, 0xf0, 0xe3, 0xff, 0xff, 0xc7, 0xf9, 0xff, 0xff, 0x9f, 0x3d, 0x00, 0x00, 0xbc, 0x8c, 0xff, 0xff, 0x31, 0xee, 0xff, 0xff, 0x77, 0xe6, 0x00, 0x00, 0x67, 0x76, 0x00, 0x00, 0x6e, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x36, 0x00, 0x00, 0x6c, 0x76, 0x00, 0x00, 0x6e, 0xe6, 0x00, 0x00, 0x67, 0xee, 0xff, 0xff, 0x77, 0x8c, 0xff, 0xff, 0x31, 0x3d, 0x00, 0x00, 0xbc, 0xf9, 0xff, 0xff, 0x9f, 0xe3, 0xff, 0xff, 0xc7, 0x0f, 0x00, 0x00, 0xf0}; /* * Data: defBorders * Purpose: Default border patterns for four states of button * Note: Used by MakeButtonBox in MakeBox.c * Note: ButtonBorders defined in Buttons.h */ static BorderPatterns defBorders = { (unsigned char *)off_out_button_bits, (unsigned char *)off_in_button_bits, (unsigned char *)on_out_button_bits, (unsigned char *)on_in_button_bits }; saoimage-1.08/btnlib/image.c 666 21641 13 30171 5046630503 11047 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: image.c (Make XImage) * Project: PROS -- ROSAT RSDC * Purpose: Stencil label icons onto blank (or prepared) button border * bitmaps and install as XImage's in the button record * Subroutines: btn_MakeXImages() returns: void * Subroutines: static btn_AddLabel() returns: void * Subroutines: static btn_LabelX() returns: int * Subroutines: static btn_LabelY() returns: int * Xlib calls: XCreateImage() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 18 March 1989 * {n} -- -- */ #include /* define NULL */ #include #include "buttons.h" /* * Subroutine: btn_MakeXImages * Purpose: Create XImage bitmaps for four states of a button * Returns: void * Called by: btn_LabelButtons() in MakeBox.c * Uses: btn_Alloc() in BtnAlloc.c * Uses: btn_AddLabel() below; * Xlib calls: XCreateImage() with XYBitmap constant. * Pre-state: four model bitmaps with the border pattern installed * Post-state: off_out, off_in, on_out, on_in XImage's set in button record. * Exception: Only labels present are installed. */ void btn_MakeXImages ( button, width, height, byte_width, visual, off_out, off_in, on_out, on_in, mapsz, off, on, motf ) ButtonRecord *button; /* i: main structure describing button */ int width; /* i: width in pixels of button */ int height; /* i: height in pixels of button */ int byte_width; /* i: width in bytes of the button bitmap */ Visual *visual; /* i: visual for XCreateImage() */ unsigned char *off_out; /* i: filled bitmap with only border pattern */ unsigned char *off_in; /* i: filled bitmap with only border pattern */ unsigned char *on_out; /* i: filled bitmap with only border pattern */ unsigned char *on_in; /* i: filled bitmap with only border pattern */ int mapsz; /* i: size of button bitmap in bytes */ int off, on; /* i: reverse video when in on or off state */ int motf; /* i: don't use occupied labels */ { unsigned char *data; /* l: pointer to bitmap currently processing */ XImage *ximage; char *btn_Alloc(); static void btn_AddLabel(); #ifdef ALLIANT extern int nbutton; #endif /* put the dimensions in the button record */ button->width = (unsigned int)width; button->height = (unsigned int)height; /* make bitmap for unoccupied off state */ data = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button bitmap"); bcopy((char *)off_out, (char *)data, mapsz); if( button->look->off_out_1 != NULL ) btn_AddLabel(button->look->off_out_1, width, height, byte_width, data, off); if( button->look->off_out_2 != NULL ) btn_AddLabel(button->look->off_out_2, width, height, byte_width, data, off); ximage = XCreateImage (button->display, visual, (unsigned int)1, XYBitmap, 0, (char *)data, (unsigned int)width, (unsigned int)height, 8, byte_width); /* set for "bitmap" standard order */ ximage->byte_order = LSBFirst; ximage->bitmap_bit_order = LSBFirst; button->image[OFF_OUT] = ximage; /* make bitmap for occupied off state */ data = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button bitmap"); bcopy((char *)off_in, (char *)data, mapsz); if( motf ) { if( button->look->off_out_1 != NULL ) btn_AddLabel(button->look->off_out_1, width, height, byte_width, data, off); if( button->look->off_out_2 != NULL ) btn_AddLabel(button->look->off_out_2, width, height, byte_width, data, off); } else { if( button->look->off_in_1 != NULL ) btn_AddLabel(button->look->off_in_1, width, height, byte_width, data, off); if( button->look->off_in_2 != NULL ) btn_AddLabel(button->look->off_in_2, width, height, byte_width, data, off); } ximage = XCreateImage (button->display, visual, (unsigned int)1, XYBitmap, 0, (char *)data, (unsigned int)width, (unsigned int)height, 8, byte_width); /* set for "bitmap" standard order */ ximage->byte_order = LSBFirst; ximage->bitmap_bit_order = LSBFirst; button->image[OFF_IN] = ximage; /* make bitmap for unoccupied on state */ data = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button bitmap"); bcopy((char *)on_out, (char *)data, mapsz); if( motf > 1 ) { if( button->look->on_in_1 != NULL ) btn_AddLabel(button->look->on_in_1, width, height, byte_width, data, on); if( button->look->on_in_2 != NULL ) btn_AddLabel(button->look->on_in_2, width, height, byte_width, data, on); } else { if( button->look->on_out_1 != NULL ) btn_AddLabel(button->look->on_out_1, width, height, byte_width, data, on); if( button->look->on_out_2 != NULL ) btn_AddLabel(button->look->on_out_2, width, height, byte_width, data, on); } ximage = XCreateImage (button->display, visual, (unsigned int)1, XYBitmap, 0, (char *)data, (unsigned int)width, (unsigned int)height, 8, byte_width); /* set for "bitmap" standard order */ ximage->byte_order = LSBFirst; ximage->bitmap_bit_order = LSBFirst; button->image[ON_OUT] = ximage; /* make bitmap for occupied on state */ data = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button bitmap"); bcopy((char *)on_in, (char *)data, mapsz); if( motf == 1 ) { if( button->look->on_out_1 != NULL ) btn_AddLabel(button->look->on_out_1, width, height, byte_width, data, on); if( button->look->on_out_2 != NULL ) btn_AddLabel(button->look->on_out_2, width, height, byte_width, data, on); } else { if( button->look->on_in_1 != NULL ) btn_AddLabel(button->look->on_in_1, width, height, byte_width, data, on); if( button->look->on_in_2 != NULL ) btn_AddLabel(button->look->on_in_2, width, height, byte_width, data, on); } ximage = XCreateImage (button->display, visual, (unsigned int)1, XYBitmap, 0, (char *)data, (unsigned int)width, (unsigned int)height, 8, byte_width); /* set for "bitmap" standard order */ ximage->byte_order = LSBFirst; ximage->bitmap_bit_order = LSBFirst; button->image[ON_IN] = ximage; #ifdef ALLIANT button->id[OFF_OUT] = nbutton++; button->id[OFF_IN] = nbutton++; button->id[ON_OUT] = nbutton++; button->id[ON_IN] = nbutton++; #endif } /* * Subroutine: btn_AddLabel * Purpose: Add the label icon to a button's bitmap. * Returns: void * Called by: btn_CreateButtons() * Uses: btn_StencilLabel() in StencilLbl.c * Uses: btn_LabelX() or btn_LabelY() below * Xlib calls: none * Pre-state: bitmap already contains border pattern * Post-state: bitmap has label stenciled on * Exception: Label is not stenciled if one dimension would be zero. * Method: Get basic alignment parameters and call btn_StencilLabel(); */ static void btn_AddLabel ( label, width, height, byte_width, bitmap, inverse ) ButtonLabel *label; /* i: record of label bitmap to stencil in */ int width; /* i: width in pixels of button */ int height; /* i: height in pixels of button */ int byte_width; /* i: width in bytes of the button bitmap */ unsigned char *bitmap; int inverse; /* i: invert the bits for reverse video look */ { int src_x, src_y; /* l: coords of start of stencil in src (label) */ int dst_x, dst_y; /* l: coords of start of stencil in dst (button) */ int xwdth; /* l: width (cols) to stencil */ int yhght; /* l: number of lines (rows) to stencil */ static int btn_LabelX(), btn_LabelY(); void btn_StencilLabel(); if( ((xwdth = btn_LabelX(label, width, &src_x, &dst_x)) > 0) && ((yhght = btn_LabelY(label, height, &src_y, &dst_y)) > 0) ) { btn_StencilLabel(label->label, label->mask, bitmap, label->bytes_per_line, byte_width, src_x, src_y, dst_x, dst_y, xwdth, yhght, inverse); } } /* * Subroutine: btn_LabelX * Purpose: Determine width and x coordinates to copy label onto the button * Returns: width to copy * Called by: btn_AddLabel() above * Uses: nothing * Xlib calls: none * Pre-state: label structure with * Post-state: dst bitmap has label stenciled on * Method: If there is enough room, the entire label is copied. If not, * the x_clip value indicates what to cut off. If x_clip=0, the * same amount is removed from both sides. If x_clip!=0, use * the breaks array to select a specific break point (usually * representing the breaks between characters). If x_clip>0 * cut from the left, if x_clip<0 cut from the left. * The postition within the button is determined by x_ratio: * 0 is at the left, .5 in the middle, 1 at the right, and then * offset x_offset pixels. This has no meaning when cutting was * needed, as the label will fill the entire width. */ static int btn_LabelX ( label, width, lbl_x, btn_x ) ButtonLabel *label; int width; int *lbl_x; int *btn_x; { int xwdth; /* if full label height fits */ if( width >= label->width ) { *lbl_x = 0; xwdth = label->width; /* else label must be clipped to fit */ } else { /* clip symmetrically on both ends, use button's width */ if( label->x_clip == 0 ) { *lbl_x = (label->width - width) / 2; *btn_x = 0; return( width ); /* clip at given quanta */ } else { /* find the appropriate length */ int stop; stop = label->x_clip; if( stop < 0 ) stop = -stop; while( ((--stop) >= 0) && (label->breaks[stop] > width) ); if( stop < 0 ) return( 0 ); else xwdth = label->breaks[stop]; /* set the appropriate starting offset */ if( label->x_clip > 0 ) *lbl_x = 0; else *lbl_x = label->width - xwdth; } } /* determine where to start in button (first ideal, then adjest if needed) */ *btn_x = ((width - xwdth) * label->x_ratio) + label->x_offset; if( *btn_x < 0 ) { *btn_x = 0; } else if( *btn_x > (width - xwdth) ) { *btn_x = width - xwdth; } return( xwdth ); } /* * Subroutine: btn_LabelY * Purpose: Determine height and y coordinates to copy label onto button * Returns: height to copy * Called by: btn_AddLabal() above * Uses: nothing * Xlib calls: none * Pre-state: label structure with * Post-state: dst bitmap has label stenciled on * Method: If there is enough room, the entire label is copied. If not, * the y_clip value indicates what to cut off. If y_clip=0, the * same amount is removed from both sides. If y_clip!=0, use * the breaks array to select a specific break point (usually * representing the breaks between characters). If y_clip>0 * cut from the left, if y_clip<0 cut from the left. * The postition within the button is determined by y_ratio: * 0 is at the left, .5 in the middle, 1 at the right, and then * offset y_offset pixels. This has no meaning when cutting was * needed, as the label will fill the entire height. */ static int btn_LabelY ( label, height, lbl_y, btn_y ) ButtonLabel *label; int height; int *lbl_y; int *btn_y; { int yhght; /* if full label height fits */ if( height >= label->height ) { *lbl_y = 0; yhght = label->height; /* else label must be clipped to fit */ } else { /* clip symmetrically on both ends, use button's height */ if( label->y_clip == 0 ) { *lbl_y = (label->height - height) / 2; *btn_y = 0; return( height ); /* clip at given quanta */ } else { /* find the appropriate length */ int stop; stop = label->y_clip; if( stop < 0 ) stop = -stop; while( ((--stop) >= 0) && (label->breaks[stop] > height) ); if( stop < 0 ) return( 0 ); else yhght = label->breaks[stop]; /* set the appropriate starting offset */ if( label->y_clip > 0 ) *lbl_y = 0; else *lbl_y = label->height - yhght; } } /* determine where to start in button (first ideal, then adjest if needed) */ *btn_y = ((height - yhght) * label->y_ratio) + label->y_offset; if( *btn_y < 0 ) { *btn_y = 0; } else if( *btn_y > (height - yhght) ) { *btn_y = height - yhght; } return( yhght ); } saoimage-1.08/btnlib/draw.c 666 21641 13 14707 5030507145 10727 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: draw.c (Draw Button) * Project: PROS -- ROSAT RSDC * Purpose: Draw buttons to server under various circumstances * Subroutine: btn_DrawButton() returns: void * Subroutine: btn_PutImage() returns: void * Subroutine: btn_DelightButtons() returns: void * Subroutine: static btn_DimButtons() returns: void * Subroutine: btn_RelightButtons() returns: void * Subroutine: static btn_LightButtons() returns: void * Xlib calls: XPutImage() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 March 1989 * {1} Rick Schumeyer (Naval Research Lab) 8 May 1991 * Fixed button problem on Alliant. The buttons do not display correctly on * the Alliant in the XYBitmap format. If the -button option is given, I copy * each button image from XYBitmap to ZPixmap, and display the ZPixmap. The * variable bad_buttons is set in ../cmdparse.c. * {n} -- -- */ #include #include /* needed for Buttons.h */ #include "buttons.h" #ifdef ALLIANT /* If bad_buttons=0, then draw XYBitmap (normal). If bad_buttons=1, then draw * ZPixmap. bad_buttons will be set to 1 if -button is given on command line. */ int bad_buttons=0; XImage *zimage[250]; int nbutton=0; int init_button=1; /* =1 if buttons need to be initialized */ int button_first=1; void put_z_image(); #endif /* * Subroutine: btn_DrawButton * Purpose: Draw button according to its status * Returns: void * Called by: * Uses: btn_PutImage() below * Xlib calls: none */ void btn_DrawButton ( button ) ButtonRecord *button; { void btn_PutImage(); if( button->highlight ) { if( button->occupied ) btn_PutImage(button, ON_IN); else btn_PutImage(button, ON_OUT); } else { if( button->occupied ) btn_PutImage(button, OFF_IN); else btn_PutImage(button, OFF_OUT); } return; } /* * Subroutine: btn_PutImage * Purpose: Draw button in given phase * Returns: void * Called by: btn_DrawButton() above * Xlib calls: XPutImage() * Pre-state: XImages for button and a GC must have been prepared before */ void btn_PutImage ( button, phase ) ButtonRecord *button; int phase; { #ifdef ALLIANT if (bad_buttons) put_z_image(button, phase); else #endif XPutImage(button->display, button->wndwID, button->gc, button->image[phase], 0, 0, 0, 0, button->width, button->height); } /* * Subroutine: btn_DelightButtons * Purpose: Make all highlighted buttons at this level of submenu * unhighlighted (used with While and Co-mode buttons to supress * some buttons while highlighting a specific one) * Returns: void * Uses: btn_DimButtons() below * Called by: * Xlib calls: none * Method: Dim this box and all co-menu boxes */ void btn_DelightButtons ( buttonbox ) ButtonBox buttonbox; { int i; static void btn_DimButtons(); btn_DimButtons(buttonbox); for( i=0; i < buttonbox->co_menu_count; i++ ) { btn_DimButtons(buttonbox->co_menu[i]); } } /* * Subroutine: btn_DimButtons * Purpose: Make all highlighted buttons in this box unhighlighted except * the one presently being selected (used with While and Co-mode * buttons to supress all but selected button) * Returns: void * Called by: btn_DelightButtons() above * Uses: btn_PutImage() above * Xlib calls: none * Method: Unhighlight any buttons currently highlighted, except the one * presently being pressed */ static void btn_DimButtons ( buttonbox ) ButtonBox buttonbox; { int i; void btn_PutImage(); for( i = 0; i < buttonbox->btn_cnt; i++ ) { if( (buttonbox->buttons[i].highlight) && (buttonbox->down_btn != i) ) { buttonbox->buttons[i].highlight = 0; btn_PutImage(&buttonbox->buttons[i], OFF_OUT); } } } /* * Subroutine: btn_RelightButtons * Purpose: Make all selected buttons at this level of submenu highlighted * (used to restore default condition after btn_DelightButtons()) * Returns: void * Called by: * Uses: btn_LightButtons() below * Xlib calls: none */ void btn_RelightButtons ( buttonbox ) ButtonBox buttonbox; { int i; static void btn_LightButtons(); btn_LightButtons(buttonbox); for( i=0; i < buttonbox->co_menu_count; i++ ) { btn_LightButtons(buttonbox->co_menu[i] ); } } /* * Subroutine: btn_LightButtons * Purpose: Make all select buttons in this box highlighted (used to * restore default condition after btn_DimButtons()) * Returns: void * Called by: btn_RelightButtons() above * Uses: btn_PutImage() above * Xlib calls: none */ static void btn_LightButtons ( buttonbox ) ButtonBox buttonbox; { int i; void btn_PutImage(); for( i = 0; i < buttonbox->btn_cnt; i++ ) { if( buttonbox->buttons[i].selected ) { buttonbox->buttons[i].highlight = 1; if( buttonbox->buttons[i].occupied ) btn_PutImage(&buttonbox->buttons[i], ON_IN); else btn_PutImage(&buttonbox->buttons[i], ON_OUT); } } } #ifdef ALLIANT /* * Subroutine: put_z_image */ void put_z_image(button, phase) ButtonRecord *button; int phase; { char *d; int i,j,l; void init_z_image(); if (init_button) init_z_image(); if (zimage[button->id[phase]]==NULL) { d = (char *)malloc(button->width*button->height); zimage[button->id[phase]] = XCreateImage (button->display, DefaultVisual(button->display,0), 8, ZPixmap, 0, d, button->width, button->height, 8, 0); for (i=0;iheight;i++) for (j=0;jwidth;j++){ l = XGetPixel(button->image[phase],j,i); XPutPixel(zimage[button->id[phase]],j,i, (l?BlackPixel(button->display,0): WhitePixel(button->display,0))); } } XPutImage(button->display, button->wndwID, button->gc, zimage[button->id[phase]], 0, 0, 0, 0, button->width, button->height); } /* * Subroutine: init_z_image */ void init_z_image() { int i; for (i=0; i<250; i++) { if ((zimage[i] != NULL)&&(!button_first)) XDestroyImage(zimage[i]); zimage[i]=NULL; } nbutton=0; init_button=0; button_first=0; } #endif saoimage-1.08/btnlib/util.c 666 21641 13 2764 4613706434 10737 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: util.c (Utility Functions) * Project: PROS -- ROSAT RSDC * Purpose: A calloc with error checking that every library needs * Subroutines: btn_Alloc() returns: char * * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 18 March 1989 * {n} -- -- */ #include /* define stderr, NULL */ /* * Subroutine: btn_Alloc * Purpose: calloc with printf'less error message and exit for failure * Returns: char pointer to allocated and cleared space * Called by: MakeButtonBox(), btn_LabelButtons() in MakeBtnBox.c * Called by: btn_MakeXImages() in MakeXImage.c * Xlib calls: none * Post-state: space allocated on aligned boundary and zeroed * Note: printf does malloc so don't use it to report a malloc failure */ static char *errnote = " allocation failure\n"; char *btn_Alloc ( count, size, errmess ) int count; unsigned int size; char *errmess; { char *space; char *calloc(); if( (space = (char *)calloc((unsigned)count, size)) == NULL ) { fputs(errmess, stderr); fputs(errnote, stderr); exit( 0 ); } return( space ); } saoimage-1.08/btnlib/create.c 666 21641 13 31526 4616375152 11245 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: create.c (Make Box) * Project: PROS -- ROSAT RSDC * Purpose: Create a complete (unconnected) buttonbox in the given window * Subroutines: MakeButtonBox() returns: ButtonBox * Subroutines: static btn_MakeWindows() returns: void * Subroutines: btn_LabelButtons() returns: void * Subroutines: SetTAEButtonLook() returns: void * Xlib calls: XMakeSimpleWindow(), XSelectInput(), XMapSubwindows() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 21 March 1989 * {1} Jay Travisano (STScI) VMS,IMTOOL changes 10 Nov 1989 * {n} -- -- */ #include /* define stderr */ #include /* define Xlib types and calls */ #include "buttons.h" /* 16x16 (2 bytes * 16) bitmaps with default corner patterns of border */ #include "borders.h" /* static BorderPatterns defBorders */ #include "motf.h" static int motf_look = 0; /* if set, buttons harmonize better w/ motif */ #if VMS && IMTOOL extern void XZ_ast(); extern int XZ_efn; #endif static GC def_gc = NULL; /* * Subroutine: MakeButtonBox * Purpose: Do everything necessary to make a new buttonbox * Returns: ButtonBox handle for the new buttonbox * Called by: Application program * Uses: btn_Alloc() in BtnAlloc.c * Uses: btn_CreateWindows(), btn_LabelButtons() below * Xlib calls: XCreateSimpleWindow(), XMapSubwindows() * Xlib calls: DefaultScreen, DefaultGC, DefaultVisual, DefaultDepth * Post-state: No buttons are in on state and no submenus are attached * Method: Make a subwindow exactly covering parent window. Fill it with * subwindows as buttons, create drawing stuff for each button * Note: Buttonboxes must later be combined into menus and panels * Note: Call TouchButton to activate buttons and submenus when ready */ ButtonBox MakeButtonBox ( parent, gc, visual, background, geo, defs, borders ) BoxParent *parent; /* i: Parent window info */ GC gc; /* i: graphics context for drawing labels */ Visual *visual; /* i: visual for XCreateImage() */ unsigned long background; /* i: window background pixel value */ BoxGeometry *geo; /* i: button arrangement and count info */ ButtonSpec defs[]; /* i: Button descriptors */ BorderPatterns *borders; /* i: optional non-default border look */ { ButtonBox buttonbox; /* o: handle for buttonbox record */ unsigned int width, height; /* l: dimensions of parent window */ Display *display; /* l: X server */ int screen; /* l: screen number for default stuff */ int btn_wdth, btn_hght; /* l: dimensions of all buttons */ int x, y; /* l: coordinates of box in parent */ int i; /* l: loop counter */ char *btn_Alloc(); static void btn_CreateWindows(); void btn_LabelButtons(), btn_Dimensions(); /* allocate the space for the new record */ buttonbox = (ButtonBox) btn_Alloc(1, sizeof(struct _ButtonBox), "Buttonbox"); /* put server connection display and screen details in the record */ display = parent->display; buttonbox->display = display; buttonbox->parentID = parent->wndwID; screen = DefaultScreen(display); if( gc == NULL ) { /* use default buttonlib gc (create if not yet in existence */ if( def_gc == NULL ) { def_gc = XCreateGC(display, parent->wndwID, 0, NULL); XSetState(display, def_gc, 1, 0, GXcopy, 1); } gc = def_gc; } if( visual != (Visual *)0 ) buttonbox->visual = visual; else buttonbox->visual = DefaultVisual(display, screen); /* get the basic box and button dimensions */ btn_Dimensions(parent, geo, &btn_wdth, &btn_hght, &x, &y, &width, &height); /* create a buttonbox subwindow (it gets no events) */ buttonbox->wndwID = XCreateSimpleWindow(display, parent->wndwID, x, y, width, height, (unsigned int)0, (unsigned long)0, background); buttonbox->parent_width = parent->width; buttonbox->parent_height = parent->height; i = geo->box_rows * geo->box_cols; /* check counts */ if( geo->btn_cnt > i ) { (void)fprintf(stderr, "WARNING: More labels than buttons: %s %d\n", defs[0].feel->title, geo->btn_cnt); geo->btn_cnt = i; } buttonbox->geometry = geo; buttonbox->btn_cnt = geo->btn_cnt; /* create space for the button records */ buttonbox->buttons = (ButtonRecord *) btn_Alloc(buttonbox->btn_cnt, sizeof(ButtonRecord), "Buttons"); /* create space for a list of window id's (last one is this window) */ buttonbox->window_list = (Window *) btn_Alloc(buttonbox->btn_cnt + 1, sizeof(Window *), "Button list"); buttonbox->window_list[buttonbox->btn_cnt] = buttonbox->wndwID; buttonbox->window_count = buttonbox->btn_cnt + 1; /* set pointers for user specified (and default) look and feel */ if( borders != NULL ) buttonbox->borders = borders; else { if( motf_look ) buttonbox->borders = &motfBorders; else buttonbox->borders = &defBorders; } for( i = 0; i < buttonbox->btn_cnt; i++ ) { buttonbox->buttons[i].look = defs[i].look; buttonbox->buttons[i].feel = defs[i].feel; } /* initially no mouse buttons are down */ buttonbox->down_btn = -1; buttonbox->down_mouse_btn = -1; buttonbox->mode_btn = -1; buttonbox->co_mode_btn = -1; /* create button subwindows and fill associated records */ btn_CreateWindows (buttonbox, gc, btn_wdth, btn_hght); /* create XImage bitmaps for button visuals */ btn_LabelButtons(buttonbox, btn_wdth, btn_hght, geo->off_inverse, geo->on_inverse); /* make the buttons mapped (but not yet the box itself) */ XMapSubwindows(display, buttonbox->wndwID); return( buttonbox ); } /* * Subroutine: btn_Dimensions * Purpose: Set six dimensions used to create box and its buttons * Returns: void * Called by: MakeButtonbox() above, ResizeBox() in ResizeBox.c * Xlib calls: none * Post-state: 6 integer params are set * Method: Dimensions of buttons are to fill window area with full * arrangement. Adjustment is made to center within excess, if * any. X and Y position the box'x subset arrangement and * width and height are the subset's dimensions. */ void btn_Dimensions ( parent, geo, btn_wdth, btn_hght, x, y, width, height ) BoxParent *parent; /* i: Parent window info */ BoxGeometry *geo; /* i: arrangement and count info */ int *btn_wdth, *btn_hght; /* o: dimensions of each buttons */ int *x, *y; /* o: coordinates of box in parent */ unsigned int *width, *height; /* o: dimensions of box subwindow */ { int xx, yy; *btn_wdth = (int)((double)(parent->xwdth) / geo->parent_cols); *btn_hght = (int)((double)(parent->yhght) / geo->parent_rows); *width = geo->box_cols * *btn_wdth; *height = geo->box_rows * *btn_hght; /* offset centers buttons when fit is not perfect */ /* parent x + box x + 1/2 box's slop */ xx = parent->x + (int)(geo->box_col_x * (double)(parent->xwdth)) + (((int)((double)(parent->xwdth) * ((double)(geo->box_cols) / geo->parent_cols)) + 1 - *width) / 2); yy = parent->y + (int)(geo->box_row_y * (double)(parent->yhght)) + (((int)((double)(parent->yhght) * ((double)(geo->box_rows) / geo->parent_rows)) - *height) / 2); if( xx < 0 ) *x = 0; else *x = xx; if( yy < 0 ) *y = 0; else *y = yy; } /* * Subroutine: btn_CreateWindows * Purpose: Create a subwindow for each button and set its events * Returns: void * Called by: MakeButtonBox() above * Xlib calls: XCreateSimpleWindow(), XSelectInput() * Pre-state: surrounding window created for perfect fit * Post-state: Buttonbox has window and display filled for all buttons, * and window_list is filled. * Method: All buttons are the same size, and arranged according to * ButtonBox rows and cols specifications. * Note: Each button is a borderless window. */ static void btn_CreateWindows( buttonbox, gc, btn_wdth, btn_hght ) ButtonBox buttonbox; /* i: handle of buttonbox record */ GC gc; /* i: graphics context for drawing labels */ int btn_wdth, btn_hght; /* i: dimensions of each buttons */ { int x, y; int j, i; int btn; unsigned long background; Display *display; Window wndwID; BoxGeometry *geo; btn = 0; display = buttonbox->display; wndwID = buttonbox->wndwID; background = buttonbox->background; geo = buttonbox->geometry; for( j = 0; j < geo->box_rows; j++ ) { for( i = 0; i < geo->box_cols; i++ ) { x = btn_wdth * i; y = btn_hght * j; buttonbox->buttons[btn].display = display; buttonbox->buttons[btn].gc = gc; buttonbox->buttons[btn].wndwID = XCreateSimpleWindow (display, wndwID, x, y, btn_wdth, btn_hght, (unsigned int)0, (unsigned long)0, background); if( (buttonbox->buttons[btn].feel->nfunctions >0) && (buttonbox->buttons[btn].feel->function[0] != BTNNoOp) ) { #if VMS && IMTOOL XSelectAsyncInput(display, buttonbox->buttons[btn].wndwID, ButtonReleaseMask | ButtonPressMask | EnterWindowMask | LeaveWindowMask | ExposureMask, XZ_ast, XZ_efn); #endif XSelectInput(display, buttonbox->buttons[btn].wndwID, ButtonReleaseMask | ButtonPressMask | EnterWindowMask | LeaveWindowMask | ExposureMask); /* no_op buttons have no events, but are mapped */ } else { #if VMS && IMTOOL XSelectAsyncInput(display, buttonbox->buttons[btn].wndwID, ExposureMask | ButtonPressMask | ButtonReleaseMask, XZ_ast, XZ_efn); #endif XSelectInput(display, buttonbox->buttons[btn].wndwID, ExposureMask | ButtonPressMask | ButtonReleaseMask); } /* put the window id in the buttonbox's check event list */ buttonbox->window_list[btn] = buttonbox->buttons[btn].wndwID; if( ++btn >= buttonbox->btn_cnt ) return; } } } /* * Subroutine: btn_LabelButtons * Purpose: Create XImages for all states of all buttons. * Returns: void * Called by: MakeButtonBox() above, ResizeBox() in ResizeBox.c * Uses: btn_Alloc() in BtnAlloc.c * Uses: btn_MakeBtdBitmap() in MakeBtnBdr.c * Uses: btn_MakeXImages() in MakeXImage.c * Xlib calls: none * Post-state: box record has XImages filled for all buttons * Method: Creates basic pattern for button minus label which is used as * the starting point for adding labels to make each button. */ void btn_LabelButtons ( buttonbox, btn_wdth, btn_hght, off, on ) ButtonBox buttonbox; /* i: structure for boxed group of buttons */ int btn_wdth, btn_hght; /* i: dimensions of each button */ int off, on; /* i: flag set if off or on has invert bits */ { int byte_width; /* l: width in bytes of the button bitmap */ int mapsz; /* l: size of button bitmap in bytes */ int btn_cnt; /* l: number of buttons specificied */ int i; /* l: loop counter */ Visual *visual; /* l: visual for XCreateImage() */ unsigned char *off_out; /* l: filled bitmap with only border pattern */ unsigned char *off_in; /* l: filled bitmap with only border pattern */ unsigned char *on_out; /* l: filled bitmap with only border pattern */ unsigned char *on_in; /* l: filled bitmap with only border pattern */ char *btn_Alloc(); void btn_MakeBdrBitmap(), btn_MakeXImages(); /* calculate number of bytes in one line and in whole bitmap */ byte_width = (btn_wdth + 7) / 8; mapsz = btn_hght * byte_width; /* allocate space for patterns (initially empty) */ off_out = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button border"); off_in = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button border"); on_out = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button border"); on_in = (unsigned char *)btn_Alloc(mapsz, sizeof(char), "button border"); /* if border patterns were given, fill the border in */ if( buttonbox->borders != NULL ) { btn_MakeBdrBitmap(off_out, btn_wdth, btn_hght, byte_width, buttonbox->borders->off_out, off); btn_MakeBdrBitmap(off_in, btn_wdth, btn_hght, byte_width, buttonbox->borders->off_in, off); btn_MakeBdrBitmap(on_out, btn_wdth, btn_hght, byte_width, buttonbox->borders->on_out, on); btn_MakeBdrBitmap(on_in, btn_wdth, btn_hght, byte_width, buttonbox->borders->on_in, on); } visual = buttonbox->visual; btn_cnt = buttonbox->btn_cnt; for( i = 0; i < btn_cnt; i++ ) { btn_MakeXImages(&(buttonbox->buttons[i]), btn_wdth, btn_hght, byte_width, visual, off_out, off_in, on_out, on_in, mapsz, off, on, motf_look); } /* free the patterns */ free((char *)off_out); free((char *)off_in); free((char *)on_out); free((char *)on_in); } /* * Subroutine: SetTAEButtonLook * Purpose: set flag prior to execution of any code to make buttons * look more like TAE (or monochrome motif) buttons */ void SetTAEButtonLook ( status ) int status; { motf_look = status; } saoimage-1.08/btnlib/motf.h 666 21641 13 12454 4616377575 10766 #ifndef lint static char SccsMId[] = "%W% %G%"; #endif /* Module: motf.h * Purpose: Define the TAE-like button border patterns * Defines: motfBorders * Xlib calls: none * Note: Set by MakeButtonBox() * Note: Used by btn_MakeBdrBitmap() in border.c to put border pattern * on buttons. Included by create.c where assignments are made. * Copyright: 1989, 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 21 March 1989 * {1} MVH map expanded to 4x32 covering 4 corners 26 March 1990 * {n} -- -- */ /* * Data: off_out_button_bits * Purpose: 32x32 bit border pattern * for button in off state, not occupied by pointer * Note: compatable with X11 bitmap tool */ #define off_out_m_width 32 #define off_out_m_height 32 static char off_out_m_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xfe, 0xff, 0xff, 0x7f, 0x02, 0x00, 0x00, 0x60, 0x02, 0x00, 0x00, 0x70, 0xf2, 0xff, 0xff, 0x7f, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0x12, 0x00, 0x00, 0x78, 0xf2, 0xff, 0xff, 0x7f, 0xfa, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00}; /* * Data: off_in_button_bits * Purpose: 32x32 bit border pattern * for button in off state, occupied by pointer * Note: compatable with X11 bitmap tool */ #define off_in_m_width 32 #define off_in_m_height 32 static char off_in_m_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xfe, 0xff, 0xff, 0x7f, 0x02, 0x00, 0x00, 0x60, 0xfa, 0xff, 0xff, 0x7f, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0x0a, 0x00, 0x00, 0x70, 0xfa, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00}; /* * Data: on_out_button_bits * Purpose: 32x32 bit border pattern * for button in on state, not occupied by pointer * Note: compatable with X11 bitmap tool */ #define on_out_m_width 32 #define on_out_m_height 32 static char on_out_m_bits[] = { 0xff, 0xff, 0xff, 0xff, 0x01, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0xa0, 0x01, 0x00, 0x00, 0xb0, 0xf1, 0xff, 0xff, 0xbf, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0x11, 0x00, 0x00, 0xb8, 0xf1, 0xff, 0xff, 0xbf, 0xf9, 0xff, 0xff, 0xbf, 0xfd, 0xff, 0xff, 0xbf, 0x01, 0x00, 0x00, 0x80, 0xff, 0xff, 0xff, 0xff}; /* * Data: on_in_button_bits * Purpose: 32x32 bit border pattern * for button in on state, occupied by pointer * Note: compatable with X11 bitmap tool */ #define on_in_m_width 32 #define on_in_m_height 32 static char on_in_m_bits[] = { 0xff, 0xff, 0xff, 0xff, 0x01, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0xa0, 0xf9, 0xff, 0xff, 0xbf, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0x09, 0x00, 0x00, 0xb0, 0xf9, 0xff, 0xff, 0xbf, 0xfd, 0xff, 0xff, 0xbf, 0x01, 0x00, 0x00, 0x80, 0xff, 0xff, 0xff, 0xff}; /* * Data: motfBorders * Purpose: TAE-like border patterns for four states of button * Note: Used by MakeButtonBox in create.c * Note: ButtonBorders defined in buttons.h */ static BorderPatterns motfBorders = { (unsigned char *)off_out_m_bits, (unsigned char *)off_in_m_bits, (unsigned char *)on_out_m_bits, (unsigned char *)on_in_m_bits }; saoimage-1.08/btnlib/makefile 666 21641 13 2207 5016771117 11304 # makefile for SAOimage btnlib # # This version is a generic makefile, as opposed to the several editions for # various machines that reside in the parent directory. This file is intended # to be driven from one of these parent makefiles which have knowledge about # machine dependencies. On many systems, however, this file can be run as a # standalone makefile, i.e., if one were to type "make" in this directory, # the library would build. It is preferable to build btnlib as part of the # make procedure in the parent SAOimage directory. CFLAGS = -c -O LINT = lint RANLIB = ranlib RM = rm -f .c.o: $(CC) $(CFLAGS) $*.c SRCS = buttons.h borders.h \ attach.c draw.c event.c border.c \ create.c label.c image.c mount.c \ press.c remote.c resize.c util.c OBJS = attach.o draw.o event.o border.o \ create.o label.o image.o mount.o \ press.o remote.o resize.o util.o LIB = libbtn.a XLIBH = /usr/include/X11/Xlib.h all: $(LIB) $(OBJS): buttons.h $(XLIBH) create.o : borders.h motf.h $(LIB): $(OBJS) ar cr $(LIB) $(OBJS) $(RANLIB) $(LIB) > /dev/null $(RM) *.o lint: $(LINT) *.c clean: $(RM) a.out core *.bak *~ \#* *.o saoimage-1.08/btnlib/make.com 666 21641 13 3722 4623075626 11231 $!------------------------------------------------------------------------- $! $! MAKE.COM - Build SAOimage Button library $! $! Parameters: $! P1 null Compile and update all sources $! xxx Source module - compile and update library $! P2 options CC compiler options $! $!------------------------------------------------------------------------- $ $ $ gosub BUILD_SETUP $ $ if p1 .eqs. "" then goto BUILD_ALL $ $ gosub COMPILE_MODULE $ exit $ $ $BUILD_SETUP: $ $ set noon $ $ define/nolog c$include [-.hfiles],decw$include,sys$library $ define/nolog vaxc$include c$include $ define/nolog X11 decw$include $ define/nolog sys sys$library $ $ compile := cc/define=(IMTOOL)/nodebug/optimize $ libname := libbtn.olb $ makefile:= make.lst $ $ return $ $ $COMPILE_MODULE: $ $ p1 = p1 - ".C" $ compile 'p1' 'p2' 'make_options' $ library/log 'libname' 'p1' $ $ return $ $ $BUILD_ALL: $ $ if f$search(libname) .eqs. "" then library/create 'libname' $ $ open/read make_input 'makefile' $ $ReadLoop: $ read/end=ReadEOF/err=CLEANUP make_input line $ first = f$extract(0,1,line) $ if first .nes. "!" .and. first .nes. "#" $ then $ make_options = f$extract(f$locate("/",line),f$length(line),line) $ $ p1 = f$edit(line,"UPCASE") - ".C" - make_options $ p1s = p1 + ".C" $ p1o = p1 + ".OBJ" $ if f$search(p1s) .eqs. "" $ then $ write sys$output p1s + " not found!" $ goto ReadLoop $ endif $ if f$search(p1o) .eqs. "" then goto Recompile $ $ srcdate = f$file_attributes(p1s,"RDT") $ objdate = f$file_attributes(p1o,"RDT") $ bin_srcdate = f$cvtime(srcdate) $ bin_objdate = f$cvtime(objdate) $ $ if bin_srcdate .les. bin_objdate $ then $ write sys$output "Up-to-date... " + p1 $ goto ReadLoop $ endif $Recompile: $ write sys$output "Compiling... " + p1 $ $ p1 = p1 - ".C" $ compile 'p1' 'p2' 'make_options' $ library/log 'libname' 'p1' $ $ endif $ goto ReadLoop $ $ReadEOF: $ close make_input $ exit $ $ $CLEANUP: $ if f$logical("MAKE_INPUT") .nes. "" then close make_input $ exit saoimage-1.08/btnlib/make.lst 666 21641 13 214 4613706305 11220 ATTACH.C UTIL.C DRAW.C EVENT.C BORDER.C CREATE.C LABEL.C /OPTIMIZE=NODISJOINT IMAGE.C MOUNT.C PRESS.C REMOTE.C RESIZE.C saoimage-1.08/btnlib/buttons.h 666 21641 13 16366 5046630103 11476 #ifndef lint static char SccsBtnhId[] = "%W% %G%"; #endif /* * Module: buttons.h * Project: PROS -- ROSAT RSDC * Purpose: Define structures for SAO button toolkit * Typedefs: ButtonLabel, ButtonLook, ButtonFeel, ButtonSpec * Typedefs: BoxGeometry, BoxParent, BorderPatterns * Typedefs: ButtonRecord, ButtonBox * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 21 March 1989 * {n} -- -- */ #define SUBMENU_LIMIT 5 #define OPTION_LIMIT 6 #define DATA_LIMIT 4 /* option and data limit should be both even or odd */ #define OFF_OUT 0 #define OFF_IN 1 #define ON_OUT 2 #define ON_IN 3 /* BUTTON FUNCTION CODES */ #define BTNNoOp 0x00 /* makes no report, does not highlight */ #define BTNFlash 0x01 /* reports selection event, flashed when pressed */ #define BTNOneShot 0x02 /* reports selection event, lighted while pressed */ #define BTNToggle 0x03 /* alternates on and off with selection events */ #define BTNWhile 0x04 /* reports selection and release events */ #define BTNCoWhile 0x05 /* same as While, unlights others while pressed */ #define BTNMode 0x06 /* ganged radio button, can have submenus */ #define BTNCoMode 0x07 /* same as Mode, gangs with others in same menu */ /* Detail of mouse button pressed event to distinguish among possible modes */ /* detail = (xbutton.button << 16) | (xbutton.state & 0xffff); */ #define BTNDetail(a,b) (((a) << 16) | ((b) & 0xffff)) typedef struct _ButtonLabel { unsigned char *label; /* byte bitmap of label pattern */ unsigned char *mask; /* byte bitmap mask to stencil label */ int width, height; /* dimensions in pixels of label and mask */ float x_ratio; /* placement as fraction of button width */ float y_ratio; /* placement as fraction of button height */ int x_offset; /* offset from label center for positioning */ int y_offset; /* offset from label center for positioning */ int bytes_per_line; /* number of chars in bitmap line (allows padding) */ int x_clip; /* 0=even, <0 clip from left, >0 clip from right */ int y_clip; /* 0=even, <0 clip from top, >0 clip from bottom */ int *breaks; /* array of clip offsets for one axis */ } ButtonLabel; /* BUTTON INFORMATION PASSED TO BUTTON CREATION ROUTINE */ typedef struct _ButtonLook { ButtonLabel *off_out_1; /* label and params for off & unoccupied */ ButtonLabel *off_out_2; /* 2nd label allows 2 parts placed as sized */ ButtonLabel *on_out_1; /* label and params for on & unoccupied */ ButtonLabel *on_out_2; /* 2nd label allows 2 parts placed as sized */ ButtonLabel *off_in_1; /* label and params for off & occupied */ ButtonLabel *off_in_2; /* 2nd label allows 2 parts placed as sized */ ButtonLabel *on_in_1; /* label and params for on & occupied */ ButtonLabel *on_in_2; /* 2nd label allows 2 parts placed as sized */ } ButtonLook; typedef struct _ButtonFeel { char *title; /* name of button for reference */ int nfunctions; /* number of response options given */ /* functional type (for each mouse button response) */ int function[OPTION_LIMIT]; /* function identifiers */ /* test to identify and/or verify response */ /* (((xbutton.button<<16)|(xbutton.state&0xffff))&mask)==reference */ int mask[OPTION_LIMIT]; /* function masks */ int reference[OPTION_LIMIT]; /* function references */ /* user supplied data to be returned when selected */ int data[DATA_LIMIT]; /* data returned when selected */ } ButtonFeel; typedef struct _ButtonSpec { ButtonLook *look; ButtonFeel *feel; } ButtonSpec; typedef struct _BoxGeometry { int panel_index; /* index of parent panel window */ int btn_cnt; /* number of defined button */ int box_cols, box_rows; /* geometric arrangement of box */ double parent_cols, parent_rows; /* geometric arrangement of panel */ double box_col_x, box_row_y; /* panel index of first box button */ int off_inverse, on_inverse; /* flag for state to use inverse video */ } BoxGeometry; typedef struct _BoxParent { Window wndwID; Display *display; int x, y; int width, height; int xwdth, yhght; } BoxParent; typedef struct _BorderPatterns { unsigned char *off_out; /* bitmaps of 32x32 button borders */ unsigned char *off_in; /* To create border patterns of buttons */ unsigned char *on_out; unsigned char *on_in; } BorderPatterns; typedef struct _ButtonRecord { Display *display; /* X server connection */ Window wndwID; /* window handle */ GC gc; /* graphics context for XPutImage() */ unsigned int width; /* dimensions of button */ unsigned int height; XImage *image[4]; /* bitmaps to draw for each phase */ ButtonLook *look; /* appearance specifications */ ButtonFeel *feel; /* interaction specifications */ int selected; /* status booleans */ int highlight; int occupied; int submenu_count[OPTION_LIMIT]; /* number of button's submenu boxes */ int *submenu[OPTION_LIMIT][SUBMENU_LIMIT]; /* list of submenu boxes */ #ifdef ALLIANT int id[4]; #endif } ButtonRecord; typedef struct _ButtonBox { Display *display; /* X server connection */ Window wndwID; /* window ID of box enclosing window */ Window parentID; /* ID of window of which wndwID is subwindow */ int parent_width, parent_height; /* references for resize check */ Visual *visual; /* X11 Visual to create bitmap XImages */ unsigned long background; /* window background pixel value */ BoxGeometry *geometry; /* button arrangement and count info */ int btn_cnt; /* number of actual buttons */ ButtonRecord *buttons; /* array of button records */ BorderPatterns *borders; /* corner patterns to make button border */ int mode_btn; /* currently active "mode" button */ int mode_btn_func; /* response function of active mode */ int co_mode_btn; /* currently active "comode" button */ int co_mode_func; /* response function of active comode */ int down_btn; /* button currently being selected */ int down_btn_func; /* response function of selected button */ int down_mouse_btn; /* mouse button used to make selection */ int window_count; /* number of windows which might get events */ Window *window_list; /* list of their ID's */ struct _ButtonBox *parentmenu; /* parent if this is a submenu */ int submenu_count; /* number of active mode submenus */ int cosubmenu_count; /* number of active comode submenus */ int co_menu_count; /* number of co-equal menus */ struct _ButtonBox *submenu[SUBMENU_LIMIT]; /* list of active submenus */ struct _ButtonBox *cosubmenu[SUBMENU_LIMIT]; /* list of active cosubmenus */ struct _ButtonBox *co_menu[SUBMENU_LIMIT]; /* list of co-equal menus */ } *ButtonBox; /* Define application callable subroutines */ ButtonBox MakeButtonBox(); void AttachSubmenu(); void JoinMenu(); void MountButtonMenu(); void ResizeButtons(); void ResizeBox(); void SetTAEButtonLook(); int ButtonEvent(); int ButtonControl(); int PushButton(); int TouchButton(); int ReleaseButton(); int SetToggleButton(); int ButtonNumber(); int ButtonStatus(); int EnableButton(); int DisableButton(); saoimage-1.08/btnlib/readme 666 21641 13 3756 4526312624 10775 ButtonBox This is a simple Button Panel widget. Notable features are: A) The buttons have four visible states (occupied-by-pointer/not-occupied combined with on/off). B) Buttons can be given different functions (one-shot, radio-buttons, toggle buttons, help-about-this-button, etc). One button may have several different response functions (within logic) depending on the pointer button and event state. The conditions under which a button selection occurs are application selectable with button and state masks for each response. C) Buttons can interact with each other in different ways (radio button being an obvius example). D) Buttons can have submenus of buttons which appear when the parent button is selected (similar to 'pull-down-menus' in function but different in that they appear in an existing window, and remain until replaced). Submenus can be cascaded (submenus of submenu buttons, ...). E) All calls are Xlib calls. The design minimizes server interactions for efficient operation, even over a network. F) Buttons are pre-processed with data structures largely filled at compile time to reduce start-up time and eliminate any reliance on server font resources at run-time. (The pre-processor is in the tool sub-directory). (My preferred font is X10's helv12 which is different from that provided with X11 - both X10 and X11 pre-processing is available). G) The button appearance is specifiable (copied from a sample bit-map of its border pattern). It can be made runtime selectable to match the user's preferred "look-and-feel". H) Buttons are run-time sized (and resized) to fit their windows. When the text label must be clipped to fit a small button, characters are dropped and the remaining text is centered. I) Text labels can be rotated in the pre-processor, allowing vertical text labels. J) The interface can accept UNIX socket masks to return on non-X11 UNIX select signals. The organization of the code is outlined in ROADMAP. saoimage-1.08/btnlib/attach.c 666 21641 13 11145 4613701564 11236 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: attach.c (Attach Box) * Project: PROS -- ROSAT RSDC * Purpose: Attach boxes to buttons as submenus and boxes to boxes comenus * Subroutines: AttachSubmenu() returns: void * Subroutines: JoinMenu() returns: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 March 1989 * {n} -- -- */ #include /* define stderr */ #include /* define Xlib types and calls (needed by Buttons.h) */ #include "buttons.h" /* * Subroutine: AttachSubmenu * Purpose: Attach a buttonbox as a submenu to a button * Returns: void * Called by: Application program * Xlib calls: none * Method: Identify btn's function which matches mask and reference, and * set pointer in that functions submenu array. * Note: Subbuttonbox(es) are drawn and activated when the button is * selected and dumped when the button is unselected * Note: Bitmask codes indicate which button option is intended */ void AttachSubmenu ( subbox, masterbox, btn, mask, reference ) ButtonBox subbox; /* i: box being attached */ ButtonBox masterbox; /* i: box with button recieving submenu */ int btn; /* i: index of button to which to attach */ int mask; /* i: mask of button's submenu function */ int reference; /* i: reference of button's submenu function */ { ButtonRecord *button; /* l: pointer to record of object button */ ButtonFeel *feel; /* l: pointer to button's feel parameters */ int fnum; /* l: index of response function */ int i; /* l: loop counter */ /* is the button index in error? */ if( (btn < 0) || (btn >= masterbox->btn_cnt) ) { (void)fprintf(stderr, "WARNING: attaching to invalid-button: %d\n", btn); return; } /* isolate the object button's ButtonRecord and ButtonFeel */ button = &masterbox->buttons[btn]; feel = button->feel; /* get the correct detail option index */ for( fnum = 0; fnum < feel->nfunctions; fnum++ ) if( (feel->mask[fnum] == mask) && (feel->reference[fnum] == reference) ) break; if( fnum >= feel->nfunctions ) { (void)fprintf (stderr, "WARNING: attaching submenu to non-existent option: %d %d\n", mask, reference); return; } /* can we accomodate any more submenus? */ if( button->submenu_count[fnum] >= SUBMENU_LIMIT ) { (void)fprintf (stderr, "WARNING: attempt to attach too many submenus. %d\n", btn); return; } /* is it the kind of button that takes submenus? */ if( (feel->function[fnum] != BTNMode) && (feel->function[fnum] != BTNToggle) && (feel->function[fnum] != BTNCoMode) ) { (void)fprintf(stderr, "WARNING: attaching to non-mode button: %d\n", btn); } /* is it already attached? */ for( i=0; i < button->submenu_count[fnum]; i++ ) { if( (ButtonBox)button->submenu[fnum][i] == subbox ) { (void)fprintf(stderr, "NOTE: submenu already attached to button: %d\n", btn); return; } } /* set pointer to buttonbox (which was declared as int *) */ button->submenu[fnum][button->submenu_count[fnum]] = (int *)subbox; ++button->submenu_count[fnum]; } /* * Subroutine: JoinMenu * Purpose: Attach buttonboxes as co_menus to act as one buttonbox in the * cases of co_mode and while button actions. * Returns: void * Called by: Application program * Xlib calls: none * Method: Place box pointers in each other's co_menu lists. * Notea: Order of A and B is not important. */ void JoinMenus ( box_A, box_B ) ButtonBox box_A; /* i: first of pair being joined */ ButtonBox box_B; /* i: second of pair being joined */ { int i; /* l: loop counter */ /* can either box accomodate any more co_menus? */ if( (box_A->co_menu_count >= SUBMENU_LIMIT) || (box_B->co_menu_count >= SUBMENU_LIMIT) ) { (void)fprintf(stderr, "WARNING: attempt to join too many buttonboxes\n"); return; } /* are they already joined */ for( i=0; i < box_A->co_menu_count; i++ ) { if( box_A->co_menu[i] == box_B ) { (void)fprintf(stderr, "NOTE: submenus already joined\n"); return; } } /* set pointer to buttonbox (which was declared as int *) */ box_A->co_menu[box_A->co_menu_count] = box_B; box_B->co_menu[box_B->co_menu_count] = box_A; ++box_A->co_menu_count; ++box_B->co_menu_count; } saoimage-1.08/btnlib/label.c 666 21641 13 41702 4613702400 11041 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: label.c (Make Label) * Project: PROS -- ROSAT RSDC * Purpose: Stencil a label icon onto a blank (or prepared) button bitmap * Subroutines: btn_StencilLabel() returns: void * Subroutines: static btn_Stencil() returns: void * Subroutines: static btn_StencilAlligned() returns: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 18 March 1989 * {n} -- -- */ /* one byte bitmask for bits included at index and to the right */ static unsigned char rmask[8] = { 0xff,0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80 }; /* one byte bitmask for bits included at index and to the left */ static unsigned char lmask[8] = { 0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff }; /* * Subroutine: btn_StencilLabel * Purpose: Stencil src through msk onto dst * Returns: void * Called by: btn_AddLabel() * Uses: btn_Stencil() or btn_StencilAlligned() below * Xlib calls: none * Pre-state: dst bitmap already contains border pattern * Post-state: dst bitmap has label stenciled on * Method: Determine alignment parameters and call an appropriate * routine to do the stenciling. * Note: src and msk are assumed to be matching bitmaps. * Note: For each byte, bit 0 (0x01) appears on the left. * Note: For each byte, bit 7 (0x80) appears on the right. */ void btn_StencilLabel ( src, msk, dst, src_byte_width, dst_byte_width, src_x, src_y, dst_x, dst_y, width, height, inverse ) unsigned char *src; /* i: ptr to first byte of pattern */ unsigned char *msk; /* i: ptr to same byte as src, but in msk */ unsigned char *dst; /* i: ptr to first byte of destination */ int src_byte_width; /* i: width in bytes of the src bitmap */ int dst_byte_width; /* i: width in bytes of the dst bitmap */ int src_x, src_y; /* i: coords of start of stencil in src */ int dst_x, dst_y; /* i: coords of start of stencil in dst */ int width; /* i: width (cols) to stencil */ int height; /* i: number of lines (rows) to stencil */ int inverse; /* i: invert the bits for reverse video look */ { int byte_offset; /* l: byte offset of 1st src byte */ int first_src_bit; /* l: index of 1st src bit in 1st src byte */ int first_dst_bit; /* l: index of 1st dst bit in 1st dst byte */ int last_src_bit; /* l: index of last src bit in last src byte */ int last_dst_bit; /* l: index of last dst bit in last dst byte */ int rshift; /* l: shift to align 1st src byte with dst */ int lshift; /* l: shift to align 2nt src byte with dst */ unsigned char *last_dst; /* l: ptr to last byte used in first line */ int first_mask; /* l: bit mask, with coded sign (see above) */ int last_mask; /* l: bit mask, with coded sign (see above) */ static void btn_Stencil(), btn_StencilInv(); static void btn_StencilAlligned(),btn_StencilAllignedInv(); /* advance src and msk to their first used bytes */ byte_offset = (src_y * src_byte_width) + (src_x / 8); src += byte_offset; msk += byte_offset; /* advance dst to its first used line */ dst += dst_y * dst_byte_width; /* determine byte ptr to last used byte in first used dst row */ last_dst = dst + (dst_x + width - 1) / 8; /* advance dst to its first used byte */ dst += dst_x / 8; /* determine bit indexes of first and last bits in their bytes */ first_src_bit = src_x & 0x0007; first_dst_bit = dst_x & 0x0007; last_dst_bit = (dst_x + width - 1) & 0x0007; last_src_bit = (src_x + width - 1) & 0x0007; /* get appropriate mask for bits used in first dst byte */ first_mask = (int)rmask[first_dst_bit]; /* get appropriate mask and compensations for bits used in last dst byte */ if( dst == last_dst ) { first_mask &= (int)lmask[last_dst_bit]; last_mask = 0; } else if( last_dst_bit == 7 ) { last_mask = 0; ++last_dst; } else { last_mask = (int)lmask[last_dst_bit]; } /* test bit alignment between dst and src */ if( first_src_bit == first_dst_bit ) { /* call routine for perfect allignment stenciling */ if( inverse ) btn_StencilAllignedInv(src, msk, dst, last_dst, first_mask, last_mask, src_byte_width, dst_byte_width, height); else btn_StencilAlligned(src, msk, dst, last_dst, first_mask, last_mask, src_byte_width, dst_byte_width, height); } else { /* determine rshift and lshift from bit offsets */ lshift = first_dst_bit - first_src_bit; rshift = 8 - lshift; /* encode handling of first and last bytes */ if( first_dst_bit > first_src_bit ) first_mask = -first_mask; if( last_dst_bit < last_src_bit ) last_mask = -last_mask; /* call routine for imperfect allignment stenciling */ if( inverse ) btn_StencilInv(src, msk, dst, last_dst, first_mask, last_mask, rshift, lshift, src_byte_width, dst_byte_width, height); else btn_Stencil(src, msk, dst, last_dst, first_mask, last_mask, rshift, lshift, src_byte_width, dst_byte_width, height); } } /* * Subroutine: btn_Stencil(Inv) * Purpose: Stencil src through msk onto dst with imperfect byte alignment. * Parameters: See argument declarations and note the following. * Parameter: first_mask: a one byte bitmask passed as an int * note: first_mask is negated if first_dst_bit > first_src_bit. * Parameter: last_mask: a one byte bitmask passed as an int * note: last_mask is negated if last_dst_bit < last_src_bit. * note: last_mask = 0 if there is no need to do a last byte. * Returns: void * Called by: btn_StencilLabel() above * Xlib calls: none * Pre-state: dst bitmap already contains border pattern * Post-state: dst bitmap has label stenciled on * Exception: Src and dst bytes must not allign (bit offsets must differ). * Method: Basic stencil operation is (dst & ^mask) | (src & mask). * Operation to make dst aligned byte from 2 src bytes is: * (src1 >> rshift) | (src2 << lshift). * Special masks are applied at beginning and end in case less * than a full byte is to be stenciled. If no special masking * is needed for a last byte, last_dst covers it and last_mask=0; * Note: src and msk are assumed to be matching bitmaps. * Note: For each byte, bit 0 (0x01) appears on the left. * Note: For each byte, bit 7 (0x80) appears on the right. * Note: ~*s >> rshift does not work on SPARK and MIPS, use (0xff - *s) */ static void btn_Stencil ( src, msk, dst, last_dst, first_mask, last_mask, rshift, lshift, src_byte_width, dst_byte_width, height ) unsigned char *src; /* i: ptr to first byte used of pattern */ unsigned char *msk; /* i: ptr to same byte as src, but in msk */ unsigned char *dst; /* i: ptr to first byte used of destination */ unsigned char *last_dst; /* i: ptr to last byte used in first line */ int first_mask; /* i: bit mask, with coded sign (see above) */ int last_mask; /* i: bit mask, with coded sign (see above) */ int rshift; /* i: shift to align 1st src byte with dst */ int lshift; /* i: shift to align 2nt src byte with dst */ int src_byte_width; /* i: width in bytes of the src bitmap */ int dst_byte_width; /* i: width in bytes of the dst bitmap */ int height; /* i: number of line (rows) to stencil */ { unsigned char mask, val; /* l: composite mask and source val */ register unsigned char *s, *m, *d; unsigned char ff = 0xff; /* -1 for ~ operation */ /* loop and decrement height as a row counter */ while( --height >= 0 ) { s = src; m = msk; d = dst; /* handle the first (maybe partial) dst byte */ if( first_mask < 0 ) { mask = (*m << lshift) & (unsigned char)(-first_mask); *d = (*d & (ff - mask)) | ((*s << lshift) & mask); } else { mask = (*m >> rshift); m++; mask |= (*m << lshift); mask &= (unsigned char)first_mask; val = (*s >> rshift); s++; val |= (*s << lshift); *d = (*d & (ff - mask)) | (val & mask); } /* handle middle (full) dst bytes */ while( ++d < last_dst ) { mask = (*m >> rshift); m++; mask |= (*m << lshift); val = (*s >> rshift); s++; val |= (*s << lshift); *d = (*d & (ff - mask)) | (val & mask); } /* handle last (maybe partial) dst byte */ if( last_mask < 0 ) { mask = (*m >> rshift) & (unsigned char)(-last_mask); *d = (*d & (ff - mask)) | ((*s >> rshift) & mask); } else if( last_mask > 0 ) { mask = (*m >> rshift); m++; mask |= (*m << lshift); mask &= (unsigned char)last_mask; val = (*s >> rshift); s++; val |= (*s << lshift); *d = (*d & (ff - mask)) | (val & mask); } /* advance to next line */ src += src_byte_width; msk += src_byte_width; dst += dst_byte_width; last_dst += dst_byte_width; } } static void btn_StencilInv ( src, msk, dst, last_dst, first_mask, last_mask, rshift, lshift, src_byte_width, dst_byte_width, height ) unsigned char *src; /* i: ptr to first byte used of pattern */ unsigned char *msk; /* i: ptr to same byte as src, but in msk */ unsigned char *dst; /* i: ptr to first byte used of destination */ unsigned char *last_dst; /* i: ptr to last byte used in first line */ int first_mask; /* i: bit mask, with coded sign (see above) */ int last_mask; /* i: bit mask, with coded sign (see above) */ int rshift; /* i: shift to align 1st src byte with dst */ int lshift; /* i: shift to align 2nt src byte with dst */ int src_byte_width; /* i: width in bytes of the src bitmap */ int dst_byte_width; /* i: width in bytes of the dst bitmap */ int height; /* i: number of line (rows) to stencil */ { unsigned char mask, val; /* l: composite mask and source val */ register unsigned char *s, *m, *d; unsigned char ff = 0xff; /* -1 for ~ operation */ /* loop and decrement height as a row counter */ while( --height >= 0 ) { s = src; m = msk; d = dst; /* handle the first (maybe partial) dst byte */ if( first_mask < 0 ) { mask = (*m << lshift) & (unsigned char)(-first_mask); *d = (*d & (ff - mask)) | (((ff - *s) << lshift) & mask); } else { mask = (*m >> rshift); m++; mask |= (*m << lshift); mask &= (unsigned char)first_mask; val = ((ff - *s) >> rshift); s++; val |= ((ff - *s) << lshift); *d = (*d & (ff - mask)) | (val & mask); } /* handle middle (full) dst bytes */ while( ++d < last_dst ) { mask = (*m >> rshift); m++; mask |= (*m << lshift); val = ((ff - *s) >> rshift); s++; val |= ((ff - *s) << lshift); *d = (*d & (ff - mask)) | (val & mask); } /* handle last (maybe partial) dst byte */ if( last_mask < 0 ) { mask = (*m >> rshift) & (unsigned char)(-last_mask); *d = (*d & (ff - mask)) | (((ff - *s) >> rshift) & mask); } else if( last_mask > 0 ) { mask = (*m >> rshift); m++; mask |= (*m << lshift); mask &= (unsigned char)last_mask; val = ((ff - *s) >> rshift); s++; val |= ((ff - *s) << lshift); *d = (*d & (ff - mask)) | (val & mask); } /* advance to next line */ src += src_byte_width; msk += src_byte_width; dst += dst_byte_width; last_dst += dst_byte_width; } } /* * Subroutine: btn_StencilAlligned(Inv) * Purpose: Stencil src through msk onto dst with perfect byte alignment. * Returns: void * Called by: btn_StencilLabel() above * Xlib calls: none * Pre-state: dst bitmap already contains border pattern * Post-state: dst bitmap has label stenciled on * Exception: Src and dst bytes must allign (bit for bit). * Method: Basic stencil operation is (dst & ~mask) | (src & mask). * Special masks are applied at beginning and end in case less * than a full byte is to be stenciled. If no special masking * is needed for a last byte, last_dst covers it and last_mask=0; * Note: src and msk are assumed to be matching bitmaps. * Note: For each byte, bit 0 (0x01) appears on the left. * Note: For each byte, bit 7 (0x80) appears on the right. * Note: ~*s >> rshift does not work on SPARK and MIPS, use (0xff - *s) */ static void btn_StencilAlligned ( src, msk, dst, last_dst, first_mask, last_mask, src_byte_width, dst_byte_width, height, inverse ) unsigned char *src; /* i: ptr to first byte used of pattern */ unsigned char *msk; /* i: ptr to same byte as src, but in msk */ unsigned char *dst; /* i: ptr to first byte used of destination */ unsigned char *last_dst; /* i: ptr to last byte used in first line */ int first_mask; /* i: bit mask, with coded sign (see above) */ int last_mask; /* i: bit mask, with coded sign (see above) */ int src_byte_width; /* i: width in bytes of the src bitmap */ int dst_byte_width; /* i: width in bytes of the dst bitmap */ int height; /* i: number of line (rows) to stencil */ { unsigned char mask; /* l: composite mask for use on end bytes */ register unsigned char *s, *m, *d; unsigned char ff = 0xff; /* -1 for ~ operation */ /* loop and decrement height as a row counter */ while( --height >= 0 ) { s = src; m = msk; d = dst; /* do first byte, use mask in case it is not a full byte */ mask = (unsigned char)first_mask & *m; *d = (*d & (ff - mask)) | (*s & mask); /* do middle (full) bytes */ while( ++d < last_dst ) { ++m; ++s; *d = (*d & (ff - *m)) | (*s & *m); } /* if there is a partial last byte, do it */ if( last_mask ) { ++m; mask = (unsigned char)last_mask & *m; ++s; *d = (*d & (ff - mask)) | (*s & mask); } /* advance to next line */ src += src_byte_width; msk += src_byte_width; dst += dst_byte_width; last_dst += dst_byte_width; } } static void btn_StencilAllignedInv ( src, msk, dst, last_dst, first_mask, last_mask, src_byte_width, dst_byte_width, height, inverse ) unsigned char *src; /* i: ptr to first byte used of pattern */ unsigned char *msk; /* i: ptr to same byte as src, but in msk */ unsigned char *dst; /* i: ptr to first byte used of destination */ unsigned char *last_dst; /* i: ptr to last byte used in first line */ int first_mask; /* i: bit mask, with coded sign (see above) */ int last_mask; /* i: bit mask, with coded sign (see above) */ int src_byte_width; /* i: width in bytes of the src bitmap */ int dst_byte_width; /* i: width in bytes of the dst bitmap */ int height; /* i: number of line (rows) to stencil */ { unsigned char mask; /* l: composite mask for use on end bytes */ register unsigned char *s, *m, *d; unsigned char ff = 0xff; /* -1 for ~ operation */ /* loop and decrement height as a row counter */ while( --height >= 0 ) { s = src; m = msk; d = dst; /* do first byte, use mask in case it is not a full byte */ mask = (unsigned char)first_mask & *m; *d = (*d & (ff - mask)) | ((ff - *s) & mask); /* do middle (full) bytes */ while( ++d < last_dst ) { ++m; ++s; *d = (*d & (ff - *m)) | ((ff - *s) & *m); } /* if there is a partial last byte, do it */ if( last_mask ) { ++m; mask = (unsigned char)last_mask & *m; ++s; *d = (*d & (ff - mask)) | ((ff - *s) & mask); } /* advance to next line */ src += src_byte_width; msk += src_byte_width; dst += dst_byte_width; last_dst += dst_byte_width; } } #ifdef DEBUG pchar ( buf, wid, ht ) char *buf; int wid, ht; { int i, j; (void)printf("\n"); for( i=0; i -- -- */ #include /* define stderr */ #include /* needed for Buttons.h */ #include "buttons.h" /* * Subroutine: MountButtonMenu * Purpose: User call to initially display the button-panels * Returns: void * Called by: Application program * Uses: btn_MapButtonbox() * Xlib calls: none * Note: This routine moves latterally to cover co-menus */ void MountButtonMenu ( buttonbox ) ButtonBox buttonbox; { int i; static void btn_MapButtonbox(); btn_MapButtonbox(buttonbox); for( i = 0; i < buttonbox->co_menu_count; i++ ) btn_MapButtonbox(buttonbox->co_menu[i]); } /* * Subroutine: btn_MapButtonbox * Purpose: Make the buttonbox and its current submenus visible * Returns: void * Called by: MountButtonbox() above * Called by: btn_ReplaceSubmenus(), btn_ReplaceCosubmenus() below * Uses: recursion * Xlib calls: XMapWindow * Method: Map the buttonbox and recurse on its submenus. */ static void btn_MapButtonbox ( buttonbox ) ButtonBox buttonbox; { int i; if( buttonbox != NULL ) { /* map this button box */ XMapWindow(buttonbox->display, buttonbox->wndwID); /* mount the submenu(s) */ for( i = 0; i < buttonbox->cosubmenu_count; i++ ) btn_MapButtonbox(buttonbox->cosubmenu[i]); for( i = 0; i < buttonbox->submenu_count; i++ ) btn_MapButtonbox(buttonbox->submenu[i]); } } /* * Subroutine: btn_UnmapButtonbox * Purpose: Make the buttonbox window vanish * Returns: void * Called by: btn_ReplaceSubmenus(), btn_ReplaceCosubmenus() below * Uses: recursion * Xlib calls: XUnmapWindow * Method: Unmap the buttonbox and recurse on its submenus. */ static void btn_UnmapButtonbox ( buttonbox ) ButtonBox buttonbox; { int i; if( buttonbox != NULL ) { /* unmap this set of buttons */ XUnmapWindow(buttonbox->display, buttonbox->wndwID); /* clear the submenu(s) */ for( i = 0; i < buttonbox->cosubmenu_count; i++ ) btn_UnmapButtonbox(buttonbox->cosubmenu[i]); for( i = 0; i < buttonbox->submenu_count; i++ ) btn_UnmapButtonbox(buttonbox->submenu[i]); } } /* * Subroutine: btn_ReplaceSubmenus * Purpose: Change the currently active submenus from those from before to * those of the identified button. * Returns: void * Called by: btn_PushButton() in PushButton.c * Uses: btn_MapButtonbox(), btn_UnmapButtonbox() above. * Xlib calls: none * Method: Unmap the current submenus, link to buttonbox active list and * map submenus of new button. * Note: Unmapping submenus is harmless if they were not mapped. */ void btn_ReplaceSubmenus ( buttonbox, btn, op_num, mapping ) ButtonBox buttonbox; int btn; int op_num; int mapping; /* i: switch allows suppression of mapping */ { int i; static void btn_UnmapButtonbox(), btn_MapButtonbox(); /* clear out the old submenus */ for( i=0; i < buttonbox->submenu_count; i++ ) btn_UnmapButtonbox(buttonbox->submenu[i]); /* install the new submenus */ for( i=0; i < buttonbox->buttons[btn].submenu_count[op_num]; i++ ) { /* put submenus in list of active submenus */ buttonbox->submenu[i] = (ButtonBox)buttonbox->buttons[btn].submenu[op_num][i]; /* identify master to submenu */ buttonbox->submenu[i]->parentmenu = buttonbox; /* display the new submenus */ if( mapping ) btn_MapButtonbox(buttonbox->submenu[i]); } /* update the count of active submenus */ buttonbox->submenu_count = buttonbox->buttons[btn].submenu_count[op_num]; } /* * Subroutine: btn_ReplaceCosubmenus * Purpose: Change the currently active cosubmenus from those from before * to those of the identified button. * Returns: void * Called by: btn_PushButton() in PushButton.c * Uses: btn_MapButtonbox(), btn_UnmapButtonbox() above. * Xlib calls: none * Method: Unmap the current cosubmenus, link to buttonbox active list and * map cosubmenus of new button. * Note: Requires search through co-menus * Note: Unmapping cosubmenus is harmless if they were not mapped. */ void btn_ReplaceCosubmenus ( buttonbox, btn, op_num, mapping ) ButtonBox buttonbox; int btn; int op_num; int mapping; /* i: switch allows suppression of mapping */ { int i, j; static void btn_UnmapButtonbox(), btn_MapButtonbox(); /* check to see if we have the co-mode submenus */ if( buttonbox->cosubmenu_count > 0 ) { /* clear out the old cosubmenus */ for( i=0; i < buttonbox->cosubmenu_count; i++ ) btn_UnmapButtonbox(buttonbox->cosubmenu[i]); } else { /* clear any co-mode submenus in our co_menus */ for( j = 0; j < buttonbox->co_menu_count; j++ ) { if( buttonbox->co_menu[j]->cosubmenu_count > 0 ) { /* clear out the old cosubmenus */ for( i=0; i < buttonbox->co_menu[j]->cosubmenu_count; i++ ) btn_UnmapButtonbox(buttonbox->co_menu[j]->cosubmenu[i]); buttonbox->co_menu[j]->cosubmenu_count = 0; } } } /* install the new cosubmenus */ for( i=0; i < buttonbox->buttons[btn].submenu_count[op_num]; i++ ) { /* put submenus in list of active submenus */ buttonbox->cosubmenu[i] = (ButtonBox)buttonbox->buttons[btn].submenu[op_num][i]; /* identify master to submenu */ buttonbox->cosubmenu[i]->parentmenu = buttonbox; /* display the new submenus */ if( mapping ) btn_MapButtonbox(buttonbox->cosubmenu[i]); } /* update the count of active submenus */ buttonbox->cosubmenu_count = buttonbox->buttons[btn].submenu_count[op_num]; } saoimage-1.08/btnlib/press.c 666 21641 13 22653 4613702734 11134 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: press.c (Push Button) * Project: PROS -- ROSAT RSDC * Purpose: Handle bookkeeping and visuals for pressing a button * Subroutines: btn_PushButton() returns: int * Subroutines: btn_ReleaseButton() returns: void * Xlib calls: XSync() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 March 1989 * {n} -- -- */ #include /* define stderr */ #include /* needed for Buttons.h */ #include "buttons.h" /* * Subroutine: btn_PushButton * Purpose: Handle buttonbox behavior in response to a mouse button being * pressed while the mouse cursor is in a buttonbox button * (or as if that was the case) * Returns: 1 if able to find button and button function, else 0 * Called by: btn_Control() in EventCtrl.c * Called by: TouchButton() in RemoteCtrl.c * Uses: btn_PutImage(), btn_DrawButton() in DrawButton.c * Uses: btn_DelightButtons() in DrawButton.c * Uses: btn_ReplaceSubmenus(), btn_ReplaceCosubmenus() in MountBox.c * Xlib calls: XSync() * Post-state: Records updated, submenus replaced, buttons highlighted * Method: * Note: detail=(event.xbutton.button<<16)|(event.xbutton.state&0xffff) * Note: event filtering to select a response is detail&mask==reference */ int btn_PushButton ( buttonbox, btn, mouse_btn, state, mapping ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ int mouse_btn; /* i: event.xbutton.button */ int state; /* i: event.xbutton.state */ int mapping; /* i: indicate whether to map submenus */ { ButtonRecord *button; /* l: pointer to record of pressed button */ ButtonFeel *feel; /* l: pointer to feel of pressed button */ int detail; /* l: composite of mouse_btn and state */ int fnum; /* l: index of accepting function mask/ref */ int type; /* l: response type of button/function */ void btn_PutImage(), btn_DrawButton(), btn_DelightButtons(); void btn_ReplaceSubmenus(), btn_ReplaceCosubmenus(); /* detail = (event.xbutton.button << 16) | (event.xbutton.state & 0xffff); */ detail = (mouse_btn << 16) | (state & 0xffff); button = &buttonbox->buttons[btn]; feel = button->feel; /* identify which button option it is */ for( fnum = 0; fnum < feel->nfunctions; ++fnum ) { if( (detail & feel->mask[fnum]) == feel->reference[fnum] ) break; } /* if no option matches, ignore and return */ if( fnum >= feel->nfunctions ) return( 0 ); /* flag this as our mouse button */ buttonbox->down_btn = btn; buttonbox->down_btn_func = fnum; buttonbox->down_mouse_btn = mouse_btn; /* what kind of button was it */ type = feel->function[fnum]; /* if selection is a BTNNoOp don't respond */ if( type == BTNNoOp ) return( 0 ); /* highlight this button (may be redone by toggle) */ button->highlight = 1; switch( type ) { case BTNMode: /* if selection affects the prior mode status */ /* unhighlight previous selection if there is one */ if( buttonbox->mode_btn >= 0 ) { buttonbox->buttons[buttonbox->mode_btn].selected = 0; buttonbox->buttons[buttonbox->mode_btn].highlight = 0; btn_PutImage (&buttonbox->buttons[buttonbox->mode_btn], OFF_OUT); /* if this is the mode's button, blink but be highlighted */ if( buttonbox->mode_btn == btn ) { button->highlight = 1; if( buttonbox->mode_btn_func == fnum ) { /* if this is the mode, don't change anything */ button->selected = 1; if( button->occupied == 1 ) btn_PutImage(button, ON_IN); else btn_PutImage(button, ON_OUT); XSync(buttonbox->display, 0); /* no change in mode occurs, so return */ return( 1 ); } } } /* indicate this selection */ button->selected = 1; buttonbox->mode_btn = btn; buttonbox->mode_btn_func = fnum; break; case BTNCoMode: /* if selection affects the prior CoMode status */ /* unhighlight previous selection if there is one */ if( buttonbox->co_mode_btn >= 0 ) { buttonbox->buttons[buttonbox->co_mode_btn].selected = 0; buttonbox->buttons[buttonbox->co_mode_btn].highlight = 0; btn_PutImage(&buttonbox->buttons[buttonbox->co_mode_btn], OFF_OUT); /* if this is the CoMode's button, blink but be highlighted */ if( buttonbox->co_mode_btn == btn ) { button->highlight = 1; if( buttonbox->co_mode_func == fnum ) { /* if this is the CoMode, don't change anything */ button->selected = 1; if( button->occupied == 1 ) btn_PutImage(button, ON_IN); else btn_PutImage(button, ON_OUT); XSync(buttonbox->display, 0); return( 1 ); } } } else { int co_btn; /* l: current co-mode button */ int i; /* l: loop counter */ for( i = 0; i < buttonbox->co_menu_count; i++ ) { /* look for the current CoMode button in other co_menus */ if( (co_btn = buttonbox->co_menu[i]->co_mode_btn) >= 0 ) { /* if this was the previous choice, unset it */ buttonbox->co_menu[i]->buttons[co_btn].selected = 0; buttonbox->co_menu[i]->buttons[co_btn].highlight = 0; btn_PutImage(&buttonbox->co_menu[i]->buttons[co_btn], OFF_OUT); buttonbox->co_menu[i]->co_mode_btn = -1; buttonbox->co_menu[i]->co_mode_func = 0; /* look no further */ break; } } } /* indicate this selection */ button->selected = 1; buttonbox->co_mode_btn = btn; buttonbox->co_mode_func = fnum; break; case BTNCoWhile: /* if selection is a temporary and exclusive CoWhile */ /* dim all other highlighted buttons (until mouse button released) */ btn_DelightButtons(buttonbox); break; case BTNToggle: /* toggle a Toggle button */ if( button->selected == 1 ) { /* if highlighted, unhighlight */ button->selected = 0; button->highlight = 0; } else { /* else highlight this button */ button->selected = 1; button->highlight = 1; } break; /* for BTNFlash, make button appear briefly in opposite highlighting */ case BTNFlash: /* unhighlight (or higlight) this button, mindful of status */ if (button->selected == 1) button->highlight = 0; break; case BTNOneShot: case BTNWhile: /* nothing more than highlighting for OneShot or While */ default: break; } /* draw highlighted (or unhighlighted) button */ btn_DrawButton(button); /* redraw buttons before any other processing */ XSync(buttonbox->display, 0); if( type == BTNFlash ) { /* unhighlight (or higlight) this button, mindful of status */ if( button->selected == 0 ) button->highlight = 0; else button->highlight = 1; /* draw highlighted (or unhighlighted) button */ btn_DrawButton(button); XSync(buttonbox->display, 0); } else if( type == BTNMode ) { /* install new submenu environment */ btn_ReplaceSubmenus(buttonbox, btn, fnum, mapping); } else if( type == BTNCoMode ) { /* install new cosubmenu environment */ btn_ReplaceCosubmenus(buttonbox, btn, fnum, mapping); } else if( (type == BTNToggle) && (button->submenu_count[fnum] > 0) ) { if( button->selected ) { btn_ReplaceSubmenus(buttonbox, btn, fnum, mapping); } else { detail = button->submenu_count[fnum]; button->submenu_count[fnum] = 0; btn_ReplaceSubmenus(buttonbox, btn, fnum, mapping); button->submenu_count[fnum] = detail; } } return( 1 ); } /* * Subroutine: btn_ReleaseButton * Purpose: Handle most of the buttonbox behavior in response to a mouse * button being released after being pressed * Returns: void * Called by: btn_Control() in EventCtrl.c * Called by: TouchButton() in RemoteCtrl.c * Uses: btn_PutImage(), btn_RelightButtons() in DrawButton.c * Xlib calls: XSync() * Post-state: Records updated, buttons rehighlighted * Method: * Note: Caller must redraw the released button */ void btn_ReleaseButton ( buttonbox, type, btn ) ButtonBox buttonbox; /* i: box which contains this button */ int type; int btn; /* i: button identifying index */ { ButtonRecord *button; /* l: pointer to record of pressed button */ void btn_PutImage(), btn_RelightButtons(); /* indicate that our mouse button is no longer down */ buttonbox->down_btn = -1; buttonbox->down_btn_func = -1; buttonbox->down_mouse_btn = -1; switch( type ) { /* don't take any special action for mode, toggle, or NoOp */ case BTNNoOp: case BTNFlash: case BTNToggle: case BTNMode: case BTNCoMode: return; /* for a BTNCoWhile, rehighlight previous mode and report */ case BTNCoWhile: /* unhighlight this button if it was not previously selected */ button = &buttonbox->buttons[btn]; if( button->selected == 0 ) { button->highlight = 0; if( button->occupied == 1 ) btn_PutImage(button, OFF_IN); else btn_PutImage(button, OFF_OUT); } /* highlight buttons that were earlier dimmed */ btn_RelightButtons (buttonbox); /* draw everything correctly before returning */ XSync(buttonbox->display, 0); break; case BTNOneShot: case BTNWhile: default: /* unhighlight this button, mindful of status */ if( buttonbox->buttons[btn].selected == 0 ) buttonbox->buttons[btn].highlight = 0; } } saoimage-1.08/btnlib/remote.c 666 21641 13 25444 4613703151 11266 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: remote.c (Remote Control) * Project: PROS -- ROSAT RSDC * Purpose: Simulate buttonbox event * Subroutine: PushButton() returns: int * Subroutine: TouchButton() returns: int * Subroutine: ReleaseButton() returns: int * Subroutine: SetToggleButton() returns: int * Subroutine: DisableButton() returns: int * Subroutine: EnableButton() returns: int * Subroutine: ButtonNumber() returns: int * Subroutine: ButtonStatus() returns: int * Xlib calls: XSelectInput() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 March 1989 * {1} Jay Travisano (STScI) VMS,IMTOOL changes 10 Nov 1989 * {n} -- -- */ #include /* get stderr */ #include /* needed by Buttons.h */ #include "buttons.h" #if VMS && IMTOOL extern void XZ_ast(); extern int XZ_efn; #endif /* * Subroutine: PushButton * Purpose: Handle buttonbox behavior to simulate a mouse button being * pressed while the mouse cursor is in a buttonbox button * Returns: 1 if able to find button and button function, else 0 * Called by: Application program * Uses: btn_PushButton() in PushButton.c * Xlib calls: none * Post-state: Records updated, submenus replaced, buttons highlighted * Note: detail=(event.xbutton.button<<16)|(event.xbutton.state&0xffff) * Note: event filtering to select a response is detail&mask==reference */ int PushButton ( buttonbox, btn, mouse_btn, state, mapping ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ int mouse_btn; /* i: mouse button: event.xbutton.button */ int state; /* i: modifier|button: event.xbutton.state */ int mapping; /* i: indicate whether to map submenus */ { int btn_PushButton(); /* is the button index in error? */ if( (btn < 0) || (btn >= buttonbox->btn_cnt) ) { (void)fprintf(stderr,"WARNING: pressed button not a button: %d\n", btn); return( 0 ); } return( btn_PushButton(buttonbox, btn, mouse_btn, state, mapping) ); } /* * Subroutine: TouchButton * Purpose: Do as if a mouse button is clicked and released in a button * Returns: 1 if able to find button and button function, else 0 * Called by: Application program * Uses: btn_PushButton() in PushButton.c, ReleaseButton() * Xlib calls: none * Post-state: Records updated, submenus replaced, buttons highlighted if * appropriate */ int TouchButton ( buttonbox, btn, mouse_btn, state, mapping ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ int mouse_btn; /* i: mouse button: event.xbutton.button */ int state; /* i: modifier|button: event.xbutton.state */ int mapping; /* i: indicate whether to map submenus */ { int btn_PushButton(); int ReleaseButton(); /* is the button index in error? */ if( (btn < 0) || (btn >= buttonbox->btn_cnt) ) { (void)fprintf(stderr,"WARNING: touched button not a button: %d\n", btn); return( 0 ); } if( btn_PushButton(buttonbox, btn, mouse_btn, state, mapping) == 0 ) return( 0 ); (void)ReleaseButton (buttonbox, btn); return( 1 ); } /* * Subroutine: ReleaseButton * Purpose: Do as if the mouse button which was down is released in a * button * Returns: 1 if able to find button and it was being pressed, else 0 * Called by: Application program * Uses: btn_ReleaseButton() in PushButton.c * Uses: btn_DrawButton() in DrawButton.c * Xlib calls: none * Post-state: Records updated and buttons highlighted if appropriate */ int ReleaseButton ( buttonbox, btn ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ { int type; /* l: response function type */ void btn_ReleaseButton(), btn_DrawButton(); /* is the button index in error? */ if( (btn < 0) || (btn >= buttonbox->btn_cnt) ) { (void)fprintf(stderr,"WARNING: released button not a button: %d\n", btn); return( 0 ); } if( btn != buttonbox->down_btn ) { (void)fprintf(stderr, "WARNING: releasing button which is not down\n"); return( 0 ); } type = buttonbox->buttons[btn].feel->function[buttonbox->down_btn_func]; /* do all the book-keeping chores (and handle BTNCoWhile) */ btn_ReleaseButton(buttonbox, type, btn); /* draw the button in its released state (if different) */ if( (type == BTNWhile) || (type == BTNOneShot) ) btn_DrawButton(&buttonbox->buttons[btn]); return( 1 ); } /* * Subroutine: SetToggleButton * Purpose: Set a toggle button to indicate the indicated state * Returns: 0 if unable to find button and its toggle function, 2 if it * changed state from what it was, else 1 * Called by: Application program * Uses: btn_PushButton() in PushButton.c, ReleaseButton() * Xlib calls: none * Post-state: Records updated and buttons (un)highlighted as appropriate */ int SetToggleButton ( buttonbox, btn, status ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ int status; /* i: 1 for on, 0 for off */ { int fnum; int TouchButton(), ReleaseButton(), btn_PushButton(); /* is the button index in error? */ if( (btn < 0) || (btn >= buttonbox->btn_cnt) ) { (void)fprintf(stderr,"WARNING: toggled button not a button: %d\n", btn); return( 0 ); } /* note which button option it is */ for( fnum = 0; fnum < buttonbox->buttons[btn].feel->nfunctions; ++fnum ) if( buttonbox->buttons[btn].feel->function[fnum] == BTNToggle ) break; if( fnum >= buttonbox->buttons[btn].feel->nfunctions ) { (void)fprintf(stderr,"WARNING: set-toggle on non-toggle button: %d\n",btn); return( 0 ); } if( status != buttonbox->buttons[btn].selected ) { int ref; /* touch button, mapping arg only applies to mode buttons */ ref = buttonbox->buttons[btn].feel->reference[fnum]; if( btn_PushButton(buttonbox, btn, ref >> 16, ref & 0xffff, 0) != 0 ) (void)ReleaseButton(buttonbox, btn); return( 2 ); } return( 1 ); } /* * Subroutine: DisableButton * Purpose: Render a button unchangeable (make its basic function NoOp) * Returns: 1 if able to find button, else 0 * Xlib calls: XSelectInput() * Called by: Application program * Note: If button is to change state, application should call * a different routine to do so before calling this one * Note: Highlighting state is unchanged, but occupation is undone * Note: Only affects function 0 (the primary function) */ int DisableButton ( buttonbox, btn ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ { void btn_DrawButton(); /* is the button index in error? */ if( (btn < 0) || (btn >= buttonbox->btn_cnt) ) { (void)fprintf(stderr,"WARNING: disable button not a button: %d\n", btn); return( 0 ); } if( buttonbox->buttons[btn].occupied ) { buttonbox->buttons[btn].occupied = 0; btn_DrawButton(&buttonbox->buttons[btn]); } #if VMS && IMTOOL XSelectAsyncInput(buttonbox->display, buttonbox->buttons[btn].wndwID, ExposureMask | ButtonPressMask | ButtonReleaseMask, XZ_ast, XZ_efn); #endif XSelectInput(buttonbox->display, buttonbox->buttons[btn].wndwID, ExposureMask | ButtonPressMask | ButtonReleaseMask); buttonbox->buttons[btn].feel->function[0] = BTNNoOp; return( 1 ); } /* * Subroutine: EnableButton * Purpose: Enable a button which was previously a NoOp * Returns: 1 if able to find button, else 0 * Xlib calls: XSelectInput() * Called by: Application program * Note: Application must know its new function * Note: Only affects function 0 (the primary function) */ int EnableButton ( buttonbox, btn, function ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ int function; /* i: code for function response type */ { /* is the button index in error? */ if( (btn < 0) || (btn >= buttonbox->btn_cnt) ) { (void)fprintf(stderr,"WARNING: enable button not a button: %d\n", btn); return( 0 ); } buttonbox->buttons[btn].feel->function[0] = function; if( buttonbox->buttons[btn].feel->nfunctions == 0 ) buttonbox->buttons[btn].feel->nfunctions = 1; #if VMS && IMTOOL XSelectAsyncInput(buttonbox->display, buttonbox->buttons[btn].wndwID, ButtonReleaseMask | ButtonPressMask | EnterWindowMask | LeaveWindowMask | ExposureMask, XZ_ast, XZ_efn); #endif XSelectInput(buttonbox->display, buttonbox->buttons[btn].wndwID, ButtonReleaseMask | ButtonPressMask | EnterWindowMask | LeaveWindowMask | ExposureMask); return( 1 ); } /* * Subroutine: ButtonStatus * Purpose: Return the on/off status of a button * Returns: -1 if button not found, 1 if button is currently selected (on), * 0 if button is currently not selected (off) * Called by: Application program * Xlib calls: none */ int ButtonStatus ( buttonbox, btn ) ButtonBox buttonbox; /* i: box which contains this button */ int btn; /* i: button identifying index */ { /* is the button index in error? */ if( (btn < 0) || (btn >= buttonbox->btn_cnt) ) { (void)fprintf(stderr,"WARNING: status button not a button: %d\n", btn); return( -1 ); } return( buttonbox->buttons[btn].selected ); } /* * Subroutine: ButtonNumber * Purpose: Given panel, a datum and its data array index, identify the * button index * Returns: Identifying index of button in this box, else -1. * Called by: Application program * Xlib calls: none * Method: Check given datum for each button, return index of first one * that matches; */ int ButtonNumber ( buttonbox, data_index, datum ) ButtonBox buttonbox; /* i: box which contains this button */ int data_index; /* i: index position in data field of datum */ int datum; /* i: datum to be located */ { int btn; /* i: button identifying index */ for( btn = 0; btn < buttonbox->btn_cnt; btn++ ) { if( buttonbox->buttons[btn].feel->data[data_index] == datum ) return( btn ); } (void)fprintf(stderr, "WARNING: button not found - index: %d, datum %d\n", data_index, datum); return (-1); } saoimage-1.08/btnlib/resize.c 666 21641 13 12176 4613705035 11275 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* * Module: resize.c (Resize Box) * Project: PROS -- ROSAT RSDC * Purpose: Resize boxes and buttons for parent resize * Subroutines: ResizeButtons() returns: void * Subroutines: static btn_ChkResize() returns: void * Subroutines: ResizeBox() returns: void * Xlib calls: XResizeWindow(), XDestroyImage(), XMoveResizeWindow() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 March 1989 * {n} -- -- */ #include #include "buttons.h" /* * Subroutine: ResizeButtons * Purpose: Resize all buttons affected by resize of parent window * Returns: void * Called by: Application program * Uses: btn_ChkResize() * Xlib calls: none * Post-state: All buttonboxes having given parent are resized to fill * Method: Call btn_ChkResize with this menu and then its co-menus. */ void ResizeButtons ( buttonbox, parent ) ButtonBox buttonbox; /* i: top handle for button menu group */ BoxParent *parent; /* i: record describing parent window */ { int i; /* l: loop counter */ static void btn_ChkResize(); /* check this buttonbox */ btn_ChkResize(buttonbox, parent); /* check co-buttonboxes */ for( i = 0; i < buttonbox->co_menu_count; i++ ) btn_ChkResize(buttonbox->co_menu[i], parent); } /* * Subroutine: btn_ChkResize * Purpose: Resize all buttons affected by resize of parent window in * this menu or any of the submenus of its buttons. * Returns: void * Called by: ButtonResize() * Uses: ResizeBox() below, btn_ChkResize()-recursive * Xlib calls: none * Post-state: All buttonboxes having given parent are resized to fill * Method: Check parentage of this box, then recurse on each submenu of * each button. */ static void btn_ChkResize ( buttonbox, parent ) ButtonBox buttonbox; /* i: top handle for button menu tree */ BoxParent *parent; /* i: record describing parent window */ { int btn; /* l: index of active button */ int op; /* l: index of button pressing modifier mask */ int i; /* l: index of button submenu */ /* go through our window list to find a match */ if( buttonbox->parentID == parent->wndwID ) ResizeBox(buttonbox, parent); /* continue search through buttons' submenus (for each button) */ for( btn = 0; btn < buttonbox->btn_cnt; btn++ ) { /* submenus can be specific to a selection option (for each op) */ for( op = 0; op < buttonbox->buttons[btn].feel->nfunctions; op++ ) { /* if a button has submenus, check them out */ if( buttonbox->buttons[btn].submenu_count[op] > 0 ) { /* for each submenu */ for( i = 0; i < buttonbox->buttons[btn].submenu_count[op]; i++ ) btn_ChkResize((ButtonBox)buttonbox->buttons[btn].submenu[op][i], parent); } } } } /* * Subroutine: ResizeBox * Purpose: Resize all buttons in this box to given dimensions. * Returns: void * Called by: btn_ChkResize() above, application program * Uses: btn_LabelButtons() in MakeBox.c * Xlib calls: XResizeWindow(), XDestroyImage(), XMoveResizeWindow() * Post-state: Buttonbox subwindow and buttons are resized to fill given size * Method: Adjust subwindow exactly covering parent window. Adjust * button subwindows, destroy and recreate drawing stuff for * each button. */ void ResizeBox ( buttonbox, parent ) ButtonBox buttonbox; /* i: handle for buttonbox record */ BoxParent *parent; /* i: record describing parent window */ { int btn_wdth, btn_hght; /* l: dimensions for each button in box */ int x, y; /* l: pixel coord of button */ unsigned int width, height; /* l: pixel size of overall box */ int i, j; /* l: column and row loop counters */ int btn; /* l: index of accessed button */ BoxGeometry *geo; /* l: buttonbox's geometry parameters */ void btn_Dimensions(), btn_LabelButtons(); if( (buttonbox->parent_width == parent->width) && (buttonbox->parent_height == parent->height) ) return; /* resize the buttonbox subwindow */ /* get the basic box and button dimensions */ geo = buttonbox->geometry; btn_Dimensions(parent, geo, &btn_wdth, &btn_hght, &x, &y, &width, &height); XMoveResizeWindow(parent->display, buttonbox->wndwID, x, y, width, height); btn = 0; for( j = 0; j < geo->box_rows; j++ ) { for( i = 0; i < geo->box_cols; i++ ) { if( btn < geo->btn_cnt ) { XDestroyImage(buttonbox->buttons[btn].image[OFF_OUT]); XDestroyImage(buttonbox->buttons[btn].image[ON_OUT]); XDestroyImage(buttonbox->buttons[btn].image[OFF_IN]); XDestroyImage(buttonbox->buttons[btn].image[ON_IN]); } x = btn_wdth * i; y = btn_hght * j; XMoveResizeWindow(parent->display, buttonbox->buttons[btn].wndwID, x, y, btn_wdth, btn_hght); btn++; } } /* create XImage bitmaps for button visuals */ btn_LabelButtons(buttonbox, btn_wdth, btn_hght, geo->off_inverse, geo->on_inverse); } saoimage-1.08/btnlib/libbtn.a 666 21641 13 65132 5317664402 11250 ! __.SYMDEF 725575943 114 30 100644 774 ` JJ b( b8 bL b` m  ŽÖ¡!ž³!žÃ!žÕ!žä4Æö?BHîHî-HîDN>WN>gWšvWš‚WšWšžWš¬Wš¹WšÊWšÙcÆècÆóh†þ_AttachSubmenu_JoinMenus_btn_PutImage_btn_DrawButton_btn_RelightButtons_btn_DelightButtons_ButtonEvent_ButtonSelectMask_ButtonControl_btn_MakeBdrBitmap_btn_LabelButtons_btn_Dimensions_SetTAEButtonLook_MakeButtonBox_btn_StencilLabel_btn_MakeXImages_btn_ReplaceSubmenus_MountButtonMenu_btn_ReplaceCosubmenus_btn_ReleaseButton_btn_PushButton_ReleaseButton_PushButton_ButtonNumber_ButtonStatus_EnableButton_TouchButton_SetToggleButton_DisableButton_ResizeButtons_ResizeBox_btn_Allocattach.o 725575889 114 30 100644 1500 ` ˆXHPã¿ €€¨ Ð` €¦€&€‘. ²`°@è“*  “*`ò`$ ª@ì`(² ® 8º  Р€¦@6€Ð Ð@€¢2€²`ÐÀ€¢"€Ð ²`º`¿ÿò®à€¦@&€ ¶`8´²`¶°@è».`¶ÀÐÀ€¢ &€¬ ²`°@躀Ð@€¢ "€‘.`Ð@€¢ "€ ‘.`ú@€§`"€‘.`’`”@‘.`“*  ®`P®Àº ÐÀ€§@6€ ».`ÐÀ€¢2€º`²`°@è¿ÿó®à`8º³.`“.`Ø@²@ ª`Pª@™+ ð%@ Ð@ Ð'`Çàèã¿ Ð \€¢ 6€Ð`\€¢ &€º ˆ° ²`@è¸ Ð \€§6€Ò \Ð@€¢2€¸ ° ²`@è¿ÿòº` ˆ“*`ò" Ò`\`ˆ“*`ð" Ð \ Ð& \Ð`\ Ð&`\Çàè%W% %G%%W% %G%WARNING: attaching to invalid-button: %d WARNING: attaching submenu to non-existent option: %d %d WARNING: attempt to attach too many submenus. %d WARNING: attaching to non-mode button: %d NOTE: submenu already attached to button: %d WARNING: attempt to join too many buttonboxes NOTE: submenus already joined ˆ(‹($ (  0†ÿÿÿаÊ´ ÊÀ†ÿÿÿ@àä ì†ÿÿÿ(6, 64†ÿÿþÌtax a€†ÿÿþ€Üðôˆ(ø‹(ü †ÿÿþ,¾0ˆ(4‹(8 ¾<†ÿÿýĈ ”'Ì28D_SccsId_SccsBtnhId_AttachSubmenu_JoinMenus__iob_fprintfdraw.o 725575892 114 30 100644 868 ` (l ã¿ Ð 0€€ Ð 4€"€² ² @ è@ è€"€² ² @è@èã¿À# \À# `Ð – Ð# dÒ ³.`Ò# hÖÀÒ Ô Ð˜ @š Çàèã¿ @Ð \¸ €§€ º ˆ@ Ð@Ð \¸ €§¿ÿûº`Çàèã¿ ¸ º Ð €§€Ð $Ð 0€"€¸ Ð <€¢"€ ¸ Ð $’ À" 0Ð $ÿÿǸ ¿ÿêº`ÈÇàèã¿ @Ð \¸ €§€ º ˆ@ Ð@Ð \¸ €§¿ÿûº`Çàèã¿ ¶ ¸ º Ð €§€Ð $Ð ,€"€¸ Ð $ö" 0Ð $Ð 4€€Ð $’ €’ ÿÿ“¸ ¿ÿåº`ÈÇàè%W% %G%%W% %G%Œ†ÿÿÿt(T%41˜CSàcTwœŒ_XPutImage_SccsId_btn_PutImage_SccsBtnhId_btn_LightButtons_btn_DrawButton_btn_DimButtons_btn_RelightButtons_btn_DelightButtonsevent.o 725575898 114 30 100644 3992 ` ¸ˆü8ã¿ @’€"€¸ ˆ€º º Ð \€§@6€ º Ð@ ’€"€º`€º ¿ÿô¸ Çà‘èã¿ ¸ º Ð H€§6€ Ð TÐ LÐÔ`€¢€2€¸ €*° ¿ÿôº`€"€Ð Xº `¸ Ð T€§6€ Ð XÐ@ÿÿå’€"€¸ €° ¿ÿôº`€"€° º t¸ Ð X€§6€ ° Ð@ÿÿÒ’€"€¸ €° ¿ÿôº`Çàèã¿ ® ¬ ˆÀ&€’ÿÿ€€ ¶ ”’@"®€¶ ¸º Ð \€§@6€€Ðÿÿ¯’€"€ º`»/`Ѐ”@’®€¶ ¿ÿî¸ €€€"¿ÿÛ’Çà‘è㿘  ¢?ÿ¤ ¦ ¨ª tô' L¬ `¸ º ´ ¶ Ð €§@4€ Ð Ð LÐÔ`€¢€2€º`¶ Ð €§@6€ €Ð@" €¢ €š‘* ’`Р¿ÿç¸ »/`‘/`º@‘* º@Ð $ä" 4Ð $Ð 0€€Ð $’ €’ @€t€Ð`@€Š'2€p€»/`‘/`º@‘* º@Ð $À" 4Ð $Ð 0€€Ð $’ €’ @€Y€Ð`0€Š'2€U€Ð D€6€â& DÔ`4Ö`0˜ ’@€"€H€»/`“/`º@ “*`ð $º@ °ð (° Pð% €º° Ð`4Ò D€¢ 2€7€î <‘-à“*  “*`¸ Ð $”Ð (ú @ »/`ú@’€§`2€ €§`ð $°ð (° Pð% €š° €€§`2€€Ð $@€§`2€€ð $°ð (° Pð% €‰° »/`“/`º@ “*`Ð $º@ @€"€€Ð T€"€€¸º Ð T€§@6€€ÐÿþÑ’€"€(º`»/`Ѐ”ÿÿ0’´2€f°¶ €"€ €Ð X€"€€¸º Ð X€§@6€€Ðÿþµ’€"€!º`»/`Ð@”ÿÿ’´€€H°¿ÿи ¶ €"€€€€ ! @’`Ô`Ö@’`@ €3° ¿ÿ׸ €-Ð €"€'Ð@Ѐ2€"Ð’`Ð`˜ Ð'¿øÒ`Ò'¿üÐ ’¿ø– @” €6€@Ò`пø€Š 2€ ÐÒ`пü€Š 2€Ð€°?ÿ@’¿þÓ¦ Çàèã¿ÀÐ €2€ €ð €¦ 6€  ±* ð" À" €  –à’ À"à°& “*@ @Ò"àÐ"`” Ð –àÐ"àÔ Ô"à€"€Ð@Ð@” Ò €¦  ’@€/Ò" ò`” Ò ’@Ò" Ð €¢6€&€"ô" €"€€¦  Ð@Ò`€¢ "€€¦  Ð@Òà’*@Ò"à€¦  $€Ð`€"€Ð`Ò`€¢ "€ò`Òà’*@Ò"àÐ Ò`€¢ 2€ Ð Ò`€¢ "€ €Ð"`À" 3ð`Çàè%W% %G%%W% %G%WARNING: buttonbox called with unexpected event. event window= %x, event type = %x select error /  /Œ¨ ¨¨”¬°ì´Ì¸(¼ìÀìÄìÈ̆ÿÿü脆ÿÿü|Ćÿÿü<X †ÿÿû¨œ †ÿÿûdä †ÿÿûðØôˆ(ø‹(ü†ÿÿú Ø   †ÿÿùì‹(0 @4 @D†ÿÿù¼X L\ LpÐx Є†ÿÿù|” D˜†ÿÿùh  D¤ D¸ H¼ HØ †ÿÿù(ôÐø Ð D  D$ D8 DTÐX D\ Ð` Dh Ll Lˆ L L´ÐÀ ÐÌ LÐÐØ Ðì Dð D L L L L, L4 H8 HD LL PP PX P\ L` Ld Dh Dt @x P| P€ H„ H @” @  @¤ @¨ @¬ @ D ¸!/Ä;ÐH @U Lbhmyð‹žL­½Í×ßåîû_x_mask_ButtonEvent_SccsId_btn_PutImage_SccsBtnhId_select_size_select_flag_select_mask_btn_Event_XNextEvent_ButtonSelectMask_btn_ReleaseButton_ButtonControl_btn_DrawButton_btn_PushButton_XPending_perror__iob_fprintf_btn_Control_selectborder.o 725575901 114 30 100644 1164 ` H `H㿘€¦  &€ €¤ “2 @¥: ’@& €¦` ´¬ ¦ € ®&`“: “2`@«: €¨`€¦`2€€¦`¬ ¨ €ª $€`&`€ª ª “2 @€¦`€©: “6`’@‘:`€” “6`’@‘:`” ¦ ¬"€€° |²€¸ š˜–”ì# `’æ# \@"€¥À"€ ¸ š˜–”ì# `’@æ# \¸ €§´&€®À°& ¿ÿæ²`®%À€¥À€ ”’@´&€€¥À*¿ÿû”Çàèã¿ ö' Pú' XÐ@¬`Ð.Ð`Ð. ò`€Ž`€"€Ö `€§ € º ¶ ® ÿ²`€¦@î.À¶¶à¿ÿûºÖ `Ô \Ø X’@ ê P€€€€ º ¶’ ÿÐÀ²`’"@€¦@Ò.À¶¶à¿ÿøºÇàèã¿À¬ €¦À€® öÀÚøØ@š @˜ š €¦ €,Ú.@ð €)ð.`º€§$€àÀÒÀà@ÚÞ@  '¡,ž À  À "à.@²`¶À€¸ ú@Ú @&À¡4Þ@ ž À  À"ºº`´ ¸¶ à.@€¦ &¿ÿÝ€§Çàè%W% %G%ÿþüøðàÀ€?(†ÿÿÿØp†ÿÿþXT\ T`\l \H \-T49JT\_SccsId_bcopy_lmask_btn_MakeBdrBitmap_rmask.mul_btn_MakeBdrLine_btn_RightBordercreate.o 725575907 114 30 100644 4844 ` 0ØŒ `ã¿€”  @’ œì ®ì%ÀЀª?ÿÐ%à€è „Ð €2€3Ò– ” @Ð" Ò ” – ˜ @š 3ò`€"€©- €ô%à“- Ô Œ¨ ”€Ô (Ô%à’¿è¿ì˜¿ôÐ# \”¿üÒ# `’š¿ð@p–¿øÀ# \À# `Ô¿ôÖ¿ðö# dÒØ¿ìÚ¿è@Ð%àÐ Ð%à ð ð%àÐ @Ò °Ð €¢$€ ø%àÔ`Ô€Ö ’`@ ð' ø%àÐ Ð%à Ðà ” @’ ÈÐ%à$Ðà ”  @’ Ð%àLÐà ÔàLÖà‘* Ö"€Ðà  Ð%àHæ \€"€€ æ%à(Ð €"€€  Ð%à(Ðà ´ €¦€€° Ðà$Ô@Ô" $Ðà$Ô`Ô" (Ðà ´ €¦€° È¿ÿôº`ê%à<ê%àD’ê%à,ê%à4Ô¿ü@gÖ¿øÖ 0Ø 4Ò¿üÔ¿ø@½Òà@Çà‘è㿘Á … É`Ë`… ‰Ä… " BÏ&€Ñ • Ù`Û`•¢‰Ì• *Ÿ Jß&ÀÐ`Ò€@î \Ð%ÀÐ` ÒÀ@ì `Ð%€á`¥ é`ë`¥¤‰Ô¥ 2ñ µ µ¦‰R» Zû# `Р`îàý  Å` Ç`$… ‰@ "‹ B‘2 Ë# dÚ dô Í` ‘ Õ`×`‘¢ Ê‘ (Ý ¡ ´€ ´†€¡¤ H§ Pç# `Р`ì€é ­ ñ`(ó`,±¦ V"‘2 · X÷# dò dð ²€²@€À'ô'€6€ò'@À'@Çàèã¿îâ à ä À'¿ü¬ Ò  пü€¢ €PÒ¿ü@¦‘- “*  “*`º «- ¸ Р€§6€>пü’@”Ð $’î"Ð $–ò" ˜À# \šÀ# `@à# dÒ $’@Ð"`Ð $Ð (Ð €€Ð $Ð (Ð €€Ð $ Ò €” < Ò ”  @¬ Ð LÒ $’@Ò`º`ÈÒ"Ð ª`€¥€€¿ÿ¸  ¿ÿ¯Ð'¿üÇàèã¿€`“: “2`@­: @’ª” @’ ¨” @’ ¦” @’ ¤” @’ ¢Ð (€"€#Ð Ø (šØ–”@’Ø (’Ø ”–@šØ (’Ø ”–@šØ (’Ø ”–@šÐ º Ð'¿üà €€® Ø¿üø# pš–ö# l”ê# h’º`â# dä# `æ# \Ð Ð# tÐ $@€§@¿ÿí®àÈ@@@°@èÃàÐ"`%W% %G%%W% %G%%W% %G%àÿÿøÿÿ<< 0p````````````````````p 0<<øÿÿàÿÿàÿÿøÿÿ<<Œÿÿ1îÿÿwægvn6l6l6l6l6l6l6l6l6l6l6l6l6l6l6l6lvnægîÿÿwŒÿÿ1<<øÿÿàÿÿðãÿÿÇùÿÿŸ=¼ 0p````````````````````p 0=¼ùÿÿŸãÿÿÇððãÿÿÇùÿÿŸ=¼Œÿÿ1îÿÿwægvn6l6l6l6l6l6l6l6l6l6l6l6l6l6l6l6lvnægîÿÿwŒÿÿ1=¼ùÿÿŸãÿÿÇð%W% %G%þÿÿ`pòÿÿxxxxxxxxxxxxxxxxxxxxxxòÿÿúÿÿþÿÿþÿÿþÿÿ`úÿÿ p p p p p p p p p p p p p p p p p p p p p p p púÿÿþÿÿþÿÿÿÿÿÿ€ °ñÿÿ¿¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸ñÿÿ¿ùÿÿ¿ýÿÿ¿€ÿÿÿÿÿÿÿÿ€ ùÿÿ¿ ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °ùÿÿ¿ýÿÿ¿€ÿÿÿÿButtonboxWARNING: More labels than buttons: %s %d ButtonsButton listbutton borderbutton borderbutton borderbutton border ˆ ˆ †ÿÿÿð< „@ „L „\†ÿÿÿ¤d „h „l „€†ÿÿÿ€ˆ „Œ „†ÿÿþø(†ÿÿþØHˆ(T ’X ’\†ÿÿþ¤`‹(p ¼| ¼€ †ÿÿþ€ Ä” Äœ †ÿÿþdÔ €à €ì Tð pø pü T †ÿÿýpì†ÿÿý†ÿÿý<†ÿÿûÄx†ÿÿûˆ´†ÿÿûL(†ÿÿúØ”†ÿÿúl  Ф Ь †ÿÿúT¸ Þ¼ ÞÄ †ÿÿú<Ð ìÔ ìÜ †ÿÿú$è úì úô †ÿÿú (†ÿÿùØH†ÿÿù¸h†ÿÿù˜ˆ†ÿÿùx¬ €à €ì †ÿÿù†ÿÿù†ÿÿøø†ÿÿøð†ÿÿøä$ €, €$T(Ô,T0Ô@ pD ðH pL ð  p%008TLÔ` pm<yx‹– dŸT´Ä ðÒ „Úí €  T ' p6 ðEZ`iÔ|$Ž«H¶»Ì_free_off_out_m_bits_XCreateGC_XSetState_SccsId_on_out_button_bits_off_in_button_bits_motfBorders_SccsBtnhId_btn_LabelButtons_btn_Alloc_SccsMId_off_out_button_bits_XMapSubwindows_on_in_m_bits_def_gc_btn_MakeBdrBitmap_btn_CreateWindows_motf_look_defBorders_btn_Dimensions_on_out_m_bits_off_in_m_bits_XCreateSimpleWindow__iob_fprintf_on_in_button_bits_SetTAEButtonLook_MakeButtonBox_XSelectInput_SccsDefId.mul_btn_MakeXImageslabel.o 725575912 114 30 100644 2624 ` ¸ l`㿈Р\@’•?`•2 ”€•:  ¨¦@Рd@’€ô `â h¤`¬€¬% “= “2`’@“:`° “> “2`º@º'`’@“:`º`² ú'¿ü €¦@´ î€€¬   Ð €º € ® À€¥ 2€° €º  ú €€¤€€à lРp€€ š˜–à# d”’ø# `@¥ö# \€3˜–à# d”’ø# `@Zö# \€(€¦€¢ ª&€€¢$@® пü€¥€&€º Рp€€š˜à# l–”ø# h’ö# dê# `@¤â# \€ ˜à# l–”ø# h’ö# dê# `@â# \Çàèã¿°ø/¿÷  à/¿ÿ ÿâ lè `ø' T¸ ¸ ÿø'¿ðê \Ð'¿ø¦ ÿò' H¤ú' X¢¤` €~РT¸€®€¬Ô¿ðÐ €Ú‘* ÿ›+@š @$ÀØ€˜ š €4Ú.€Ð €ú¿÷‘2’ ÿÐ  ¸ ‘*’@’ `ÿÐ º @‘2’ ÿÐ º`ÿ‘*’@’ `ÿ’ @º$ÀÔ €§” €”€ ¬ ® €Ô. Ð À®à‘2’ ÿÐ à‘*’@Ð €º `ÿ‘2’ ÿ¬ Ð  Ô‘*’@’ `ÿ’ @º$À” €”€ Ô/¸ €§*¿ÿéÐ À€€Ô¿øî Àì €¯5À® À ® àÿ­5€¬ €®$Àؘ ˜€Ø/$€Ð dú Àî à»7@¯-À® àÿº`ÿº@º`ÿпÿº@Ð €ì  ‘2 ÿ­-€ ÿº`ÿ º$ÀÔ” €”€Ô/Рd°¤€Ð h´€¿ÿƒ¶ÀÇàèã¿°ø/¿÷  à/¿ÿ ÿâ læ `ø' T¸ ¸ ÿø'¿ðè \Ð'¿øª ÿò' H¤ú' X¢¤` €†Ð T¸€®€¬Ô¿ðÐ €Þ‘* ž%@Ÿ+À ÿž À%@Ú€š @ž@€8Þ.€Ð €ú¿÷‘2’ ÿÐ  ¸ ‘*’@Ð ’ `ÿ%@‘2º @’ ÿÐ º`ÿ%@‘*’@’ `ÿ’ @º%@Ô €§” €”€ ¬ ® €Ô. Ð À®à‘2’ ÿÐ à‘*’@Ð €º `ÿ%@‘2’ ÿ¬ Ð  %@‘*’@’ `ÿ’ @º%@Ô” €”€ Ô/¸ €§*¿ÿçÐ À€€Ô¿øî Àì €¯5À® À ¬%@­5€® àÿ¬ €®%@Úš @š@€Ú/$€Ð dú Àî à»7@¯-À® àÿº`ÿº@º`ÿпÿº@Ð €ì  %@‘2¬%@­-€ ÿ ÿº`ÿ º%@Ô” €”€Ô/Рd°¤€Ð h´€¿ÿ{¶ÀÇàè㿸¸ ÿä `æ \ø'¿üè d¢  `ÿ¬ ÿú' X¨¥  €3Ò¿üÐ@Ø’ @’ `ÿ˜ ’%€ Ö€¸ – À ˜À €§º®€Ø.€º`Ð`®àÞ àÖ@Ú–%€ š @ ž Àž@Þ/¸ €§*¿ÿôº`€"€ ¶Àú`î ຠº`ÿ® Àº%€Ö– À–ÀÖ/¶À´€²@¿ÿΰÇàè㿸¸ ÿä `æ \ø'¿üè d¢  `ÿ¬ ÿú' X¨¥  €6Ò¿üÐ@Ú’ @’ `ÿš%€ š @ ’%€ Ø€¸ ˜ š €§º®€Ú.€®àÒ àº`Ð`Ø@Þ˜%€ ’%€ @ž À ÀÐ/¸ €§*¿ÿó®à€"€¶Àú`î ຠº`ÿ®%€® Àº%€Ø˜ ˜Ø/¶À´€²@¿ÿË°Çàè%W% %G%ÿþüøðàÀ€?ÿ†ÿÿÿø0†ÿÿÿЄÄŒ Ĥ̨ ÌÄÌÔ Ì¨¸!3Ì:ÄA<Qð^¨v|_btn_StencilAlligned_SccsId_btn_StencilLabel_lmask_rmask_btn_StencilInv_btn_Stencil_btn_StencilAllignedInv.mulimage.o 725575918 114 30 100644 2416 ` Pxüã¿æ lú' X¨è& ªê& î h” @’ ºÐ X’@”Ð $Ѐ€ Ð $šÐ˜–”@÷’Ð $Ð €"€  Ð $šÐ ˜–”@ê’ šÐ# d˜ ö# h– ” ê# `’è# \@ÐÀ" À" ” ’ Ð& @ºÐ \’@”â t€€Ð $Ѐ€ Ð $šÐ˜–”@Â’Ð $Ð €"€ Ð $€Ð Ð €€ Ð $šÐ ˜–”@¯’Ð $Ð €"€  Ð $Ð š˜–”@¢’ ì pÐ# dš˜ ö# h– ê# `” ’è# \@ÐÀ" À" ” ’ Ð& @ºÐ `’@”€¤`€Ð $Ð €€ Ð $šÐ ˜–”@z’Ð $Ð €"€ Ð $€Ð Ð €€ Ð $šÐ ˜–”@g’Ð $Ð €"€  Ð $Ð š˜–”@Z’ šÐ# d˜ – ö# h” ê# `’è# \@ÐÀ" À" ” ’ Ð& @ºÐ d’@”€¤`€Ð $Ð €€ Ð $šÐ ˜–”@3’Ð $Ð €"€ Ð $€Ð Ð €€ Ð $šÐ ˜–”@ ’Ð $Ð €"€  Ð $Ð š˜–”@’ šÐ# d˜ ö# h– ” ê# `è# \Ð@’À" À" Ð& Çàèã¿x”¿ü–¿ø’@²€’–¿ð@]”¿ô´€Ô¿ðÒ¿øÔ# dпôÒ# `Ú¿üÐ# \”˜ú# pô# lò# hÐÒ @Ö Çàè㿸Ð €¦@&€Ð $À&€€)ú €2€ ú $ð º°&•6 ”€•: Ô&€€2À&À€&€º º§`,€ €Ò ,‘/`Ò@€¢@4¿ÿúº§`€6€‘/`€!º ú ,ú@Ð $€$€Ð €À&€"Ð&€Á …  ²&@ò# @É @ Õ ¡‰B™  ¡ˆLŸ Fß&ÀÐÀ€6€ÐÀ€À&À€¢4€ò&ÀÇà‘è㿸Ð €¦@&€Ð (À&€€)ú €2€ ú (ð º°&•6 ”€•: Ô&€€2À&À€&€º º§`,€ €Ò ,‘/`Ò@€¢@4¿ÿúº§`€6€‘/`€!º ú ,ú@Ð (€$€Ð €À&€"Ð&€á ¥ 0²&@ò# @é @­ õ ­¥‰R¹ ­¥ˆ\¿ Vÿ&ÀÐÀ€6€ÐÀ€À&À€¢4€ò&ÀÇà‘è%W% %G%%W% %G%button bitmapbutton bitmapbutton bitmapbutton bitmap $  ,†ÿÿÿÔ@†ÿÿÿÀÔ†ÿÿÿ,Ü.è .ô†ÿÿÿ †ÿÿþøø†ÿÿþ<  <†ÿÿýè,†ÿÿýÔ†ÿÿüìJ( J4†ÿÿüÌH†ÿÿü¸0†ÿÿûÐĆÿÿû< L&-?JÔVìbp„_SccsId_btn_AddLabel_SccsBtnhId_bcopy_btn_StencilLabel_btn_Alloc_btn_LabelX_btn_LabelY_XCreateImage_btn_MakeXImagesmount.o 725575922 114 30 100644 1300 ` Àlã¿ @Ð \¸ €§€ º ˆ@ Ð@Ð \¸ €§¿ÿûº`Çàèã¿ €€Ð@Ò Ð X¸ €§€ º tÿÿôÐ@Ð X¸ €§¿ÿûº`Ð T¸ €§€ º `ÿÿèÐ@Ð T¸ €§¿ÿûº`Çàèã¿ €€Ð@Ò Ð X¸ €§€ º tÿÿôÐ@Ð X¸ €§¿ÿûº`Ð T¸ €§€ º `ÿÿèÐ@Ð T¸ €§¿ÿûº`Çàèã¿ Ð Tº €§@€ ¸ `ÿÿÙÐÐ Tº`€§@¿ÿû¸ ‘. «* ª‘.`“*  “*`¬ ® ©. º `¸ Ð $ 8Ѐ§6€³.`Ð $€ PÐÐ'@Ð@€ð" Pÿÿ”Ð@¸ ®à¿ÿëº`“.`²@ “*`Ô $²@ ”€” 8µ. Ô€Ô& TÇàèã¿ ò' Hô' LÐ X€$€ ´ ˆ¸ tº Ð X€§@6€&ê Lÿÿ–и ¿ÿùº`² Ð \€¦@6€ê LЀРX€$€²`Ѐº Ð X¸ €§@€ Ѐº` tÿÿ~ÐР¸ Ð X€§@¿ÿøЀÀ" X²`¿ÿä´ è H‘-`¯* ®‘- “*  “*`² ­-`´ º t¸ Ð $ 8Ѐ§6€©- Ð $€ PÐÐ'@Ð@€ð" Pÿÿ3Ð@¸ ´ ¿ÿëº`“- ¨ “*`Ô $¨ ”€” 8«-`Ô€Ô& XÇàè%W% %G%%W% %G%X†ÿÿÿ¨Ü†ÿÿÿ$LÀ!Ì-D?K\<sȇ˜_btn_ReplaceSubmenus_SccsId_SccsBtnhId_btn_MapButtonbox_XMapWindow_MountButtonMenu_btn_ReplaceCosubmenus_btn_UnmapButtonbox_XUnmapWindowpress.o 725575927 114 30 100644 2336 ` è„Èã¿ ?#ÿ¶À‘.`“*  “*`ô' L ø' TÖ $¦–À¬ ô (¯,à®ÀР¶ €¦À¸ 8º  € ª Ð@Ô À€¢ €Ð ¶à€¦Àº`¿ÿ÷¸ Р€¦À&€ò& <€ ¶ ö& @•.à æ& DÔ ® 2€%à€¶ €¢ ‘* €¼ê% 0’`Ð ÂÐ ,€&€6ê% ,Ð ,Ô $‘* “*  “*` ”€À" ,Ð ,Ô $‘* “*  “*` ”€À" 0Ð ,Ô $‘* “*  “*` €@’ Ð ,€¢2€ê% ,ê% 0Ð 0€¢€ê% ,Р4€¢ 2€’ ’ €@Ð@’ €»¶ ò& ,€uö& 0Ð 4€&€6¸ ˆÐ 4Ô $‘* “*  “*` ”€À" ,Ð 4Ô $‘* “*  “*` ”€À" 0Ð 4Ô $‘* “*  “*` €@’ Ð 4€¢2€;ê% ,ê% 0Ð 8€¢€6ê% ,Р4€¢ 2€’ ’ €@Ð@’ €€¶ º Ð \€§@6€"ê% ,ôô 4€&€ º`»/` ˆºµ. “. Ð@´€ “*`Ð $’€  À" ,Ð@Ð $ À" 0Ð@Ð $ @’ Ð@’?ÿÒ" 4ú@À'`8ê% ,ò& 4€ö& 8¿ÿÙ¸ @€Ð ,€¢ 2€ê% ,€À% ,€ê% 0Р,€¢ €À% 0@Ð@’ €¥à2€€¥àР,€2€ê% 0À% 0@Ð@’ €1¶ € è T–”’@€(¶ €¥à2€ €¥à–”’@€¶ 2€¶ ».à 8ºÐ@€$€¶ ì ,€"€ ø@–”’@€ ¶ –À'@”’@ø'@¶ Çà‘èã¿ º?ÿú& <€¦`‘.`ú& @€-ú& D’`Р€,‘. “*  “*`ú $ º@Ð`,€€ À'`0Ð`4€¢ 2€’ ’ €@@ð² @èµ. “. ´€ “*`Ð $’€  Ð ,€€ð $° À& 0Çàè%W% %G%%W% %G%àôä ôô´øÈü”È„ üˆ†ÿÿþxÔ†ÿÿþ,à †ÿÿþ t†ÿÿýŒÀ†ÿÿý@Ì †ÿÿý4P†ÿÿü°„ †ÿÿü|Ȇÿÿü8Ô †ÿÿü,ü†ÿÿü †ÿÿûø,†ÿÿûÔT†ÿÿû¬¤†ÿÿû\Ćÿÿû<ü 00¨0 ¨$8(0,0ˆ†ÿÿúx†ÿÿúp  †ÿÿú`è!/ô;ÜNeu…™­´_btn_ReplaceSubmenus_SccsId_btn_PutImage_SccsBtnhId_btn_ReleaseButton_btn_ReplaceCosubmenus_btn_DrawButton_btn_PushButton_btn_RelightButtons_btn_DelightButtons_XSyncremote.o 725575932 114 30 100644 3056 ` XÐÀ ã¿ €&€Ð €¦@€  ’`@”€² @èÇà‘èã¿ €&€Ð €¦@&€ ˜ ’`@”€² –”’@€2€’€² @² Çà‘èã¿ €&€Ð €¦@&€ Ð < ’`@”€$° €¦@"€ ‘.` @’`€° “*  “*`¸ Ð $”Ð (ú @ »/`ú@’€§`€€§`2€° ð $@° Çàèã¿ €&€Ð €¦@&€ ‘.` ’`@”€Mº “*  “*`¶ Ð $º Ð (¸ Ð €§@6€‘.`Ð $Ð ( Ѐ¢ "€ ‘.`Ð $º`Ð (¸ Ð €§@&¿ÿòÐ $‘.`“*  “*`¸ Ð $Ð (Ð €§@&€ Ð $ ’`@”€º Ð ,€¦€"€º Ö $»/`–ÀÖà(?–à8úÀ#ÿ–@•?`˜ @’€€’ÿÿtº Çà‘èã¿ €&€Ð €¦@&€ ³.` ’`@”€° ‘.`²@‘* ²@Ð $Ð 4€€Ð $À" 4Ð $@Ð $ Ò Ð@”  ð $°ð (À& ° Çàèã¿ €&€Ð €¦@&€ ³.` ’`@”€° ‘.`²@‘* ²@Ð $Ð (ô" Ð $Ð (Ð €€Ð $– Ð (Ö" Ð $ Ò Ð@” <° Çàèã¿ €&€Ð €¦@&€ ³.` ’`@”€ ²?ÿ“.`²@ “*`ð $²@ °ò ,Çà‘èã¿ Ð º €§@·.`€¸ Ð $Ð ( PЀ¢€Ð º`€§@¿ÿõ¸ È ’`–@”º?ÿÇà‘è%W% %G%%W% %G%WARNING: pressed button not a button: %d WARNING: touched button not a button: %d WARNING: released button not a button: %d WARNING: releasing button which is not down WARNING: toggled button not a button: %d WARNING: set-toggle on non-toggle button: %d WARNING: disable button not a button: %d WARNING: enable button not a button: %d WARNING: status button not a button: %d WARNING: button not found - index: %d, datum %d p p$ ˆ(( ‹(, p0†ÿÿÿÐ@ †ÿÿÿÀ\špšt ˆ(x ‹(| š€†ÿÿÿ€œ †ÿÿÿdØÄìÄð ˆ(ô ‹(ø Äü†ÿÿÿï ˆ( ‹($†ÿÿþÜ( ïh†ÿÿþ˜ˆ †ÿÿþx¨¼À ˆ(Ä ‹(È Ì†ÿÿþ4„Fˆ ˆ(Œ ‹( F”†ÿÿýlè †ÿÿýt0t4 ˆ(8 ‹(< t@†ÿÿüÀ„ †ÿÿü| †ÿÿü`Оäžè ˆ(ì ‹(ð žô†ÿÿü d†ÿÿûœ„ǘǜ ˆ(  ‹(¤ Ǩ†ÿÿûX,ð0 ˆ(4 ‹(8 ð@†ÿÿúÀÌX'd3ÜAxOÄ]Pj}œŽ­½ÃÌÜ_ReleaseButton_SccsId_PushButton_SccsBtnhId_ButtonNumber_ButtonStatus_EnableButton_TouchButton_btn_ReleaseButton_SetToggleButton_DisableButton_btn_DrawButton_btn_PushButton__iob_fprintf_XSelectInputresize.o 725575935 114 30 100644 1156 ` Ðxxã¿ @’Ð \¸ €§€ º ˆÐ@@ ’Ð \¸ €§¿ÿúº`Çàèã¿ Ð Ò@€¢ 2€¶ ’@9¶ ª Ð €¥@€1´ ® ¬ Ð $Ð (Ð €¥€6€&ª`Ð $ 8Ѐ$€¬ Ð $º  8и €§@6€¬ Ð $’ PÿÿÓÐÐ $º` 8и €§@&¿ÿóÐ $¬ ®à¿ÿ×´ ¿ÿ϶àÈÇàè㿀РÒ`€¢ 2€ô Ð Ò`€¢ €Uô ’¿è¿ì˜¿ô”¿üš¿ð–¿øÐ# \® Ò# `@’Ð`Ò Ô¿ôÖ¿ðØ¿ì@Ú¿è¶ Ð  €¥À6€7Ö 0‘.à“*  “*`º ¸ Р€§€+Р€¦À6€Ð¿üÐ $@Ð Ð $@Ð Ð $@Ð Ð $@Рпü@’Ð'¿ôпø@’Ð'¿ðÐ $Ö¿ðÒ Ð`Ô¿ôØ¿ü@Ú¿øº`ȸ ¿ÿÕ¶à¿ÿÉ®àØ 4Ô¿øÒ¿ü@Çàè%W% %G%%W% %G%¤†ÿÿþ\À†ÿÿþ@†ÿÿýä,†ÿÿýÔ<†ÿÿýÄL†ÿÿý´X †ÿÿý¨h †ÿÿý˜†ÿÿýp¼†ÿÿýDÐ*Ü6H[LjzL…Œ_ResizeButtons_SccsId_XDestroyImage_SccsBtnhId_btn_LabelButtons_XMoveResizeWindow_btn_ChkResize_btn_Dimensions_ResizeBox.mulutil.o 725575937 114 30 100644 408 ` H(Tl ã¿ @’°€ !’ @Ð @’ @ Çàè%W% %G% allocation failure †ÿÿÿøˆ(‹( †ÿÿÿà(T, T0†ÿÿÿÐ4‹(8†ÿÿÿÈ XH &T/5<_SccsId_fputs_btn_Alloc_calloc_errnote__iob_exitsaoimage-1.08/btnlib/border.c 666 21641 13 20565 4616372001 11246 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: MakeBorder.c * Purpose: Create bitmap with border pattern for drawing button. * Subroutines: btn_MakeBdrBitmap() returns: void * Subroutines: static btn_ReverseByte() returns: unsigned char * Subroutines: static RightBorder() returns: void * Xlib calls: none * Copyright: 1987, 1989, 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 December 1987 * {1} MVH X11 version, chars instead of shorts 16 March 1989 * {2} MVH form defines all 4 corners uniquely 26 March 1990 * {n} -- -- */ /* * Subroutine: btn_MakeBdrBitmap * Purpose: Fill a bitmap of an empty button with a border pattern made * from the given form. * Returns: void * Called by: btn_LabelButtons() in MakeBox.c * Uses: btn_ReverseByte(), btn_RightBorder() below * Xlib calls: none * Post-state: bitmap buffer allocated and filled * Method: Creates rectangular button bitmap (no symmetry assumed). The * pattern form is 32x32 with all 4 edges of button. * Note: For each byte, bit 0 (0x01) appears on the left. * Note: For each byte, bit 7 (0x80) appears on the right. */ void btn_MakeBdrBitmap ( buttonmap, width, height, byte_width, form, inverse ) unsigned char *buttonmap; /* i,o: pointer to bitmap of button */ int width, height; /* i: dimensions of button window (to cover) */ int byte_width; /* i: bytes in one line or row */ unsigned char *form; /* i: ptr to pattern form for entier button */ int inverse; /* i: flag to invert bits (reverse video) */ { unsigned char *top_line; /* l: ptr to line from top in buttonmap */ unsigned char *bottom_line; /* l: ptr to line from bottom in buttonmap */ unsigned char *top_form; /* l: ptr to current top row in form */ unsigned char *bottom_form; /* l: ptr to current bottom row in form */ int form_rows; /* l: number of rows of form to use */ int row; /* l: loop counter */ int right_form_byte; /* l: index of first right form byte to use */ int right_form_bit; /* l: bit in first right form byte to use */ int right_bdr_byte; /* l: index of first line byte for right bdr */ int right_bdr_bit; /* l: bit in first line byte for right bdr */ static unsigned char btn_ReverseByte(); static void btn_MakeBdrLine(); /* portion of pattern form used (clip overlap if button very small) */ /* middle overlap on odd size counted for height, omitted for width */ if( height >= 32 ) form_rows = 16; else form_rows = (height + 1) / 2; /* buttonmap byte index for first byte of top and bottom lines */ top_line = buttonmap; bottom_line = &buttonmap[(height - 1) * byte_width]; /* normal starting point in reverse form for right border work */ right_form_byte = 0; right_form_bit = 0; /* determine parameters form making right border */ if( width >= 32 ) { right_bdr_byte = (width - 16) / 8; right_bdr_bit = width & 0x0007; } else if( width == 31 ) { right_bdr_byte = 2; right_bdr_bit = 0; right_form_bit = 1; } else { if( width > 14 ) { right_bdr_byte = 1; right_bdr_bit = (width - 15) / 2; } else { right_bdr_byte = 0; right_bdr_bit = (width + 1) / 2; } if( width > 17 ) { right_form_bit = 16 - (width / 2); } else { right_form_byte = 1; right_form_bit = 8 - (width / 2); } } top_form = form; /* bottom line of 4 x 32 byte form */ bottom_form = form + 124; /* do top and bottom border patterns */ for( row=0; row> 4]; reverse += flip[byte & 0xf] << 4; return( reverse ); } #endif /* * Subroutine: btn_RightBorder * Purpose: Set the bits for the right border pattern * Returns: void * Called by: btn_MakeBdrBitmap() above * Uses: rmask[] and lmask[] below * Xlib calls: none * Post-state: bitmap buffer line right border bits set * Method: Given 2 byte pattern, byte and bit numbers, and bimtap byte * pointer and bit number, copy to end of 2nd pattern byte. * Note: bit 0 (0x01) appears to the left of bit 7 (0x80). */ /* mask of ones for bits included at index and to the right */ static unsigned char rmask[8] = { 0xff,0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80 }; /* mask of ones for bits included at index and to the left */ static unsigned char lmask[8] = { 0x00,0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f }; static void btn_RightBorder ( src, dst, src_byte, src_bit, dst_bit ) unsigned char *src; /* i: ptr to two reversed form pattern bytes */ unsigned char *dst; /* i: ptr to first map byte affected */ int src_byte; /* i: index of first form pattern byte used */ int src_bit; /* i: bit in first source byte (7 on left) */ int dst_bit; /* i: bit in dst (7 on left) */ { /* if there is perfect allignment, easy work and no shift */ if( src_bit == dst_bit ) { *dst = (*dst & lmask[dst_bit]) | (src[src_byte] & rmask[src_bit]); if( src_byte < 1 ) dst[1] = src[1]; return; } /* do segment by segment, advancing apropriate byte each time */ do { if( dst_bit > src_bit ) { *dst = (*dst & lmask[dst_bit]) | ((src[src_byte] & rmask[src_bit]) << (dst_bit - src_bit)); src_bit += (8-dst_bit); dst_bit = 0; dst++; } else { *dst = (*dst & lmask[dst_bit]) | ((src[src_byte] & rmask[src_bit]) >> (src_bit - dst_bit)); dst_bit += (8-src_bit); src_bit = 0; src_byte++; } } while( src_byte < 2 ); } saoimage-1.08/vms/bcopy.c 666 21641 13 2342 4527740021 10413 /** ** BCOPY.C -- Emulation of the Unix BSTRING(3) library routines for VMS. **/ #define MOVC_MAX 65535 /* BCOPY -- Copies length bytes from string b1 to string b2. * Overlapping strings are handled correctly. */ bcopy (b1, b2, length) char *b1, *b2; int length; { unsigned short len; while (length > 0) { len = (length < MOVC_MAX) ? length : MOVC_MAX; lib$movc3 (&len, b1, b2); length -= len; b1 += len; b2 += len; } } /* BCMP -- Compares byte string b1 against byte string b2, returning * zero if they are identical, non-zero otherwise. Both strings are * assumed to be length bytes long. */ bcmp (b1, b2, length) register char *b1, *b2; int length; { register int i; for (i = 0; i < length; i++) if (*b1++ != *b2++) return (-1); return (0); } /* BZERO -- Zero fill a buffer. */ bzero (b, length) char *b; int length; { unsigned short src_len = 0; unsigned short dst_len; char null = '\000'; while (length > 0) { dst_len = (length < MOVC_MAX) ? length : MOVC_MAX; lib$movc5 (&src_len, 0, &null, &dst_len, b); length -= dst_len; b += dst_len; } } saoimage-1.08/vms/make.com 666 21641 13 3477 4623075647 10576 $!------------------------------------------------------------------------- $! $! MAKE.COM - Build SAOimage VMS library $! $! Parameters: $! P1 null Compile and update all sources $! xxx Source module - compile and update library $! P2 options CC compiler options $! $!------------------------------------------------------------------------- $ $ $ gosub BUILD_SETUP $ $ if p1 .eqs. "" then goto BUILD_ALL $ $ gosub COMPILE_MODULE $ exit $ $ $BUILD_SETUP: $ $ set noon $ $ if f$logical("IRAFLIBC") .eqs. "" then iraf $ $ compile := cc/define=(nodebug)/debug/optimize $ libname := libvms.olb $ makefile:= make.lst $ $ return $ $ $COMPILE_MODULE: $ $ p1 = p1 - ".C" $ $ compile 'p1' 'p2' 'make_options' $ library/log 'libname' 'p1' $ $ return $ $ $BUILD_ALL: $ $ if f$search(libname) .eqs. "" then library/create 'libname' $ $ open/read make_input 'makefile' $ $ReadLoop: $ read/end=ReadEOF/err=CLEANUP make_input line $ first = f$extract(0,1,line) $ if first .nes. "!" .and. first .nes. "#" $ then $ make_options = f$extract(f$locate("/",line),f$length(line),line) $ $ p1 = f$edit(line,"UPCASE") - ".C" - make_options $ p1s = p1 + ".C" $ p1o = p1 + ".OBJ" $ if f$search(p1s) .eqs. "" $ then $ write sys$output p1s + " not found!" $ goto ReadLoop $ endif $ if f$search(p1o) .eqs. "" then goto Recompile $ $ srcdate = f$file_attributes(p1s,"RDT") $ objdate = f$file_attributes(p1o,"RDT") $ bin_srcdate = f$cvtime(srcdate) $ bin_objdate = f$cvtime(objdate) $ $ if bin_srcdate .les. bin_objdate $ then $ write sys$output "Up-to-date... " + p1 $ goto ReadLoop $ endif $Recompile: $ write sys$output "Compiling... " + p1 $ p1 = p1 - ".C" $ $ compile 'p1' 'p2' 'make_options' $ library/log 'libname' 'p1' $ $ endif $ goto ReadLoop $ $ReadEOF: $ close make_input $ exit $ $ $CLEANUP: $ if f$logical("MAKE_INPUT") .nes. "" then close make_input $ exit saoimage-1.08/vms/mkpkg 666 21641 13 374 4526506562 10163 # Make the ZFIOGD (binary graphics) device driver and install it in libsys. $checkout libsys.a lib$ $update libsys.a $checkin libsys.a lib$ $exit libsys.a: zfiogd.x zfiovi.c # Prototype VMS/Imtool driver @iism70 @iism75 ; saoimage-1.08/vms/ntohl.c 666 21641 13 462 4526506375 10417 /* NTOHL -- [MACHDEP] Convert a long integer in net format to host format. */ ntohl (lword) long lword; { register char *ip, *op; static long hostw, netw; netw = lword; ip = (char *)&netw; op = (char *)&hostw + 4; *--op = *ip++; *--op = *ip++; *--op = *ip++; *--op = *ip++; return (hostw); } saoimage-1.08/vms/setup.com 666 21641 13 1326 4527524643 11006 $!--------------------------------------------------------------------- $! $! SETUP.COM -- Setup for running SAOimage on VMS [user/site-specific] $! $!--------------------------------------------------------------------- $ $ define saodir j:[iraf.saoimage] $ $ saoimage :== $saodir:saoimage.exe -g +500+100 $ d_saoimage :== $saodir:d_saoimage.exe -g +500+100 $ $ make :== @make.com $ n :== 'emacs' -b saodir:vms.notes $ $ r_dispose :== - write sys$output """*** Postscript file "", ""<%s>"", "" can be printed ***""" $ $ if f$logical("DECW$DISPLAY") .eqs. "" $ then $ if p1 .eqs. "" then p1 = "ZIPPIE" $ set display/create/node='p1' $ endif $ show display $ $ exit saoimage-1.08/vms/ghstname.c 666 21641 13 376 4526506367 11106 gethostname (char *node, int nodelen) { char *p, tmp[32]; strcpy (tmp, getenv("SYS$NODE")); /* gets NODENAME:: */ if (p = strchr (tmp, ':')) /* chop off "::" */ *p = '\0'; strncpy (node, tmp, nodelen); node[nodelen] = '\0'; } saoimage-1.08/vms/zfiogd.x 666 21641 13 24336 4526506404 10641 # Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. include include # ZFIOGD -- FIO device driver for the interactive binary graphics devices. # This code is host system dependent (at least in part) as well as node # dependent, since the set of graphics devices available on a particular node # can vary greatly. The devices for which driver subroutines are linked # into this particular version of ZFIOGD are listed below. The individual # driver subroutines must be named explicitly in the case statements in # each generic driver subroutine. define DEVICES "|iism70|iism75|imtool|" define DELIMCH ',' define MAXDEV 8 define MAXBYTES 4000 # fifo transfer size, bytes define MAXTRYS 50 # fifo timeout define DELAY 10 # fifo i/o interval, msec define IISM70 1 # IIS Model 70 image display define IISM75 2 # IIS Model 75 image display define IMTOOL 3 # Sun IMTOOL display server define NDEVICES 3 ### VMS/IRAF Imtool implemenation. Use new ZFIOVI driver instead of ZFIOBF. define MAXBYTES 8192 # fifo transfer size, bytes define zopnbf zopnvi define zclsbf zclsvi define zardbf zardvi define zawrbf zawrvi define zawtbf zawtvi ### # ZOPNGD -- Open a binary graphics device. The format of the DEVINFO string # is "devname:osdev" (the KI will have already taken care of any node prefix # by the time we are called). procedure zopngd (devinfo, mode, chan) char devinfo[ARB] # PACKED device info string int mode # access mode int chan # receives assigned channel bool first_time pointer sp, info, devname, osdev, fname, pkfname, ip, op int dev, oschan1, oschan2, arg1, arg2, i int strdic(), ctoi(), gstrcpy() data first_time /true/ define err_ 91 int gd_dev[MAXDEV], gd_oschan1[MAXDEV], gd_oschan2[MAXDEV] int gd_status[MAXDEV], gd_arg1[MAXDEV], gd_arg2[MAXDEV] common /zgdcom/ gd_dev, gd_oschan1, gd_oschan2, gd_status, gd_arg1, gd_arg2 begin call smark (sp) call salloc (info, SZ_PATHNAME, TY_CHAR) call salloc (devname, SZ_FNAME, TY_CHAR) call salloc (osdev, SZ_FNAME, TY_CHAR) call salloc (fname, SZ_FNAME, TY_CHAR) call salloc (pkfname, SZ_FNAME, TY_CHAR) if (first_time) { do i = 1, MAXDEV gd_dev[i] = NULL first_time = false } # We are passed a packed string by FIO. call strupk (devinfo, Memc[info], SZ_PATHNAME) # Extract generic device name. op = devname for (ip=info; Memc[ip] != EOS && Memc[ip] != DELIMCH; ip=ip+1) { Memc[op] = Memc[ip] op = op + 1 } Memc[op] = EOS if (Memc[ip] == DELIMCH) ip = ip + 1 else goto err_ # Look up the generic device name in the device table. dev = strdic (Memc[devname], Memc[osdev], 0, DEVICES) if (dev <= 0) goto err_ # Get the OS device name. op = osdev for (; Memc[ip] != EOS && Memc[ip] != DELIMCH; ip=ip+1) { Memc[op] = Memc[ip] op = op + 1 } Memc[op] = EOS if (Memc[ip] == DELIMCH) ip = ip + 1 # Get optional integer arguments. if (ctoi (Memc, ip, arg1) <= 0) arg1 = 0 if (Memc[ip] == DELIMCH) ip = ip + 1 if (ctoi (Memc, ip, arg2) <= 0) arg2 = 0 # Allocate a slot in the GD device table for the device. We need this # to vector to the correct sub-driver when an i/o function is called. for (chan=1; chan <= MAXDEV; chan=chan+1) if (gd_dev[chan] == NULL) break if (chan > MAXDEV) goto err_ # Try to physically open the device. [ADD NEW DEVICES HERE]. switch (dev) { case IISM70: # Bidirectional i/o stream. call strpak (Memc[osdev], Memc[osdev], SZ_FNAME) call zopm70 (Memc[osdev], mode, oschan1) case IISM75: # Bidirectional i/o stream. call strpak (Memc[osdev], Memc[osdev], SZ_FNAME) call zopm75 (Memc[osdev], mode, oschan1) case IMTOOL: # Separate output (to device) and input (from device) streams. op = fname + gstrcpy (Memc[osdev], Memc[fname], SZ_FNAME) Memc[op+1] = EOS Memc[op] = 'o' call strpak (Memc[fname], Memc[pkfname], SZ_FNAME) call zopnbf (Memc[pkfname], WRITE_ONLY, oschan1) Memc[op] = 'i' call strpak (Memc[fname], Memc[pkfname], SZ_FNAME) call zopnbf (Memc[pkfname], READ_ONLY, oschan2) default: oschan1 = ERR } if (oschan1 == ERR) goto err_ gd_dev[chan] = dev gd_oschan1[chan] = oschan1 gd_oschan2[chan] = oschan2 gd_status[chan] = OK gd_arg1[chan] = arg1 gd_arg2[chan] = arg2 call sfree (sp) return err_ chan = ERR call sfree (sp) end # ZCLSGD -- Close a binary graphics device. procedure zclsgd (chan, status) int chan # channel assigned device int status # receives status of close int gd_dev[MAXDEV], gd_oschan1[MAXDEV], gd_oschan2[MAXDEV] int gd_status[MAXDEV], gd_arg1[MAXDEV], gd_arg2[MAXDEV] common /zgdcom/ gd_dev, gd_oschan1, gd_oschan2, gd_status, gd_arg1, gd_arg2 begin # [ADD NEW DEVICES HERE]. if (chan < 1 || chan > MAXDEV) { status = ERR return } switch (gd_dev[chan]) { case IISM70: call zclm70 (gd_oschan1[chan], status) case IISM75: call zclm75 (gd_oschan1[chan], status) case IMTOOL: call zclsbf (gd_oschan2[chan], status) call zclsbf (gd_oschan1[chan], status) default: status = ERR } gd_dev[chan] = NULL end # ZARDGD -- Read from a binary graphics device. procedure zardgd (chan, buf, maxbytes, offset) int chan # channel assigned device char buf[ARB] # buffer to be filled int maxbytes # max bytes to read long offset # file offset (function code else zero) int nread, nleft, ntries, n, op int gd_dev[MAXDEV], gd_oschan1[MAXDEV], gd_oschan2[MAXDEV] int gd_status[MAXDEV], gd_arg1[MAXDEV], gd_arg2[MAXDEV] common /zgdcom/ gd_dev, gd_oschan1, gd_oschan2, gd_status, gd_arg1, gd_arg2 begin gd_status[chan] = OK # [ADD NEW DEVICES HERE]. switch (gd_dev[chan]) { case IISM70: call zrdm70 (gd_oschan1[chan], buf, maxbytes, offset) case IISM75: call zrdm75 (gd_oschan1[chan], buf, maxbytes, offset) case IMTOOL: # Nothing special here, except that we can only move 4096 bytes at # a time through the pipe to the display server. Some provision # for timeout is necessary in the event that the sender dies during # the transfer. nread = 0 ntries = 0 op = 1 for (nleft=maxbytes; nleft > 0; ) { n = min (nleft, MAXBYTES) call zardbf (gd_oschan2[chan], buf[op], n, offset) call zawtbf (gd_oschan2[chan], n) if (n < 0) { nread = ERR break } nread = nread + n op = op + n / SZB_CHAR nleft = nleft - n if (n == 0) call zwmsec (DELAY) ntries = ntries + 1 if (ntries > MAXTRYS) { nread = ERR break } } gd_status[chan] = nread default: gd_status[chan] = ERR } end # ZAWRGD -- Write to a binary graphics device. procedure zawrgd (chan, buf, nbytes, offset) int chan # channel assigned device char buf[ARB] # buffer containing the data int nbytes # nbytes to be written long offset # file offset (function code else zero) int nwrote, nleft, ntries, n, ip int gd_dev[MAXDEV], gd_oschan1[MAXDEV], gd_oschan2[MAXDEV] int gd_status[MAXDEV], gd_arg1[MAXDEV], gd_arg2[MAXDEV] common /zgdcom/ gd_dev, gd_oschan1, gd_oschan2, gd_status, gd_arg1, gd_arg2 begin gd_status[chan] = OK # [ADD NEW DEVICES HERE]. switch (gd_dev[chan]) { case IISM70: call zwrm70 (gd_oschan1[chan], buf, nbytes, offset) case IISM75: call zwrm75 (gd_oschan1[chan], buf, nbytes, offset) case IMTOOL: # Nothing special here, except that we can only move 4096 bytes at # a time through the pipe to the display server. Some provision # for timeout is necessary to avoid an infinite loop in the event # that the receiver dies during the transmission. nwrote = 0 ntries = 0 ip = 1 for (nleft=nbytes; nleft > 0; ) { n = min (nleft, MAXBYTES) call zawrbf (gd_oschan1[chan], buf[ip], n, offset) call zawtbf (gd_oschan1[chan], n) if (n < 0) { nwrote = ERR break } ip = ip + n / SZB_CHAR nwrote = nwrote + n nleft = nleft - n if (n == 0) call zwmsec (DELAY) ntries = ntries + 1 if (ntries > MAXTRYS) { nwrote = ERR break } } gd_status[chan] = nwrote default: gd_status[chan] = ERR } end # ZAWTGD -- Wait for i/o to a binary graphics device. procedure zawtgd (chan, status) int chan # channel assigned device int status # receives nbytes transferred or ERR int gd_dev[MAXDEV], gd_oschan1[MAXDEV], gd_oschan2[MAXDEV] int gd_status[MAXDEV], gd_arg1[MAXDEV], gd_arg2[MAXDEV] common /zgdcom/ gd_dev, gd_oschan1, gd_oschan2, gd_status, gd_arg1, gd_arg2 begin if (gd_status[chan] == ERR) { status = ERR return } # [ADD NEW DEVICES HERE]. switch (gd_dev[chan]) { case IISM70: call zwtm70 (gd_oschan1[chan], status) case IISM75: call zwtm75 (gd_oschan1[chan], status) case IMTOOL: status = gd_status[chan] default: status = ERR } end # ZSTTGD -- Get the file status of a binary graphics device. procedure zsttgd (chan, what, lvalue) int chan # channel assigned device int what # status parameter being queried long lvalue # receives value of parameter int gd_dev[MAXDEV], gd_oschan1[MAXDEV], gd_oschan2[MAXDEV] int gd_status[MAXDEV], gd_arg1[MAXDEV], gd_arg2[MAXDEV] common /zgdcom/ gd_dev, gd_oschan1, gd_oschan2, gd_status, gd_arg1, gd_arg2 begin # [ADD NEW DEVICES HERE]. switch (gd_dev[chan]) { case IISM70: call zstm70 (gd_oschan1[chan], what, lvalue) case IISM75: call zstm75 (gd_oschan1[chan], what, lvalue) case IMTOOL: switch (what) { case FSTT_FILSIZE: lvalue = gd_arg1[chan] * gd_arg2[chan] * SZB_CHAR case FSTT_BLKSIZE: lvalue = gd_arg1[chan] * SZB_CHAR case FSTT_OPTBUFSIZE: lvalue = gd_arg1[chan] * SZB_CHAR case FSTT_MAXBUFSIZE: lvalue = 32768 default: lvalue = ERR } default: lvalue = ERR } end saoimage-1.08/vms/zfiovi.c 666 21641 13 35372 4623103317 10634 /* * ZFIOVI.C -- VMS Imtool driver. These interface routines are used by the * interactive binary graphics interface (ZFIOGD) and any image display * programs that support the Imtool protocol. * * Interface routines: * * zopnvi Open channel for VMS/IRAF-Imtool communication. * zclsvi Close channel. * zardvi Read from channel. * zawrvi Write to channel. * zawtvi Wait on read/write completion. * * Supplementary interface routines (not used by VMS/IRAF ZFIOGD): * * ZBufSize Returns maximum i/o transfer size. * ZPending Check if data is waiting to be read. * ZSelectAsyncInput Allow asynchronous i/o notification. * * NOTES * * For this prototype implementation, VMS mailboxes are used. A limit * of 8192 bytes per i/o operation is assumed by ZFIOGD and any image * display program that uses these routines (e.g., SAOimage). The i/o * is effectively synchronous given the behavior of VMS mailboxes. * * The supplementary interface routines are to support image display * programs which need to wait on window events and Imtool "pipe" i/o * simultaneously a la Unix select(). These functions are modelled * after similar ones in Xwindows (which may be VMS-dependent also). * * Since this will be linked into VMS/IRAF applications, the standard * C library functions are not used. Only VMS/IRAF-supported ones * and VMS system routines are referenced here. * * The mailbox device names are passed between the cooperating * processes via locks. This somewhat sneaky approach is used * so that GRPNAM privilege is not required for VMS/IRAF users. * This approach assumes that mailbox device names (_MBAnnnn:) * will fit into the 16-byte lock value block, which is not a * problem as of VMS V5.2. * * HISTORY * * Oct-1989 Jay Travisano Space Telescope Science Institute * Prototype implementation to support SAOimage with VMS/IRAF. */ #include /* Descriptor definitions */ #include /* Get device info definitions */ #include /* Get job/process info definitions */ #include /* Lock definitions */ #include /* I/O definitions */ #include /* System status definitions */ #include /* Get system info definitions */ #ifdef IMTOOL #define import_spp /* Import the IRAF SPP constants */ #include #else #define READ_ONLY 1 /* file access modes */ #define XERR (-1) #define XOK 0 #define XINT int #define XLONG long #endif #define SZ_MBX 8192 /* maximum transfer size */ #define SZ_MBXNAME 48 /* size of logical mailbox name */ #define SZ_USERNAME 12 /* VMS size limits */ #define SZ_NODENAME 15 #define SZ_LOCKNAME 31 #define SZ_LOCKVALBLK 16 #define VMS_OKAY(s) (s & 1) /* VMS status code checking */ #define VMS_ERROR(s) (!(s & 1)) #define SET_DESCRIPTOR(name,value,length) \ name.dsc$a_pointer = value; \ name.dsc$w_length = length; \ name.dsc$b_dtype = DSC$K_DTYPE_T; \ name.dsc$b_class = DSC$K_CLASS_S typedef struct dsc$descriptor_s DESC; struct io_status_block { short status; short count; long pid; }; typedef struct io_status_block IOSB; struct lock_status_block { short status; short reserved; long lkid; char valblk[SZ_LOCKVALBLK]; }; typedef struct lock_status_block LOCK; struct channel_info { short mbx_chan; IOSB iosb; int lockid; int qio_status; int io_pending; int (*ast)(); int ast_arg; }; typedef struct channel_info CHANNEL; #define NUM_CHANNELS 2 static CHANNEL channels[NUM_CHANNELS]; /* * ZOPNVI -- Open an IRAF-Imtool communication path using mailboxes. */ zopnvi (imtool_name, mode, chan) char *imtool_name; XINT *mode; XINT *chan; { char username[SZ_USERNAME+1]; DESC _username; char mbxname[SZ_MBXNAME+1]; DESC _mbxname; char devname[SZ_LOCKVALBLK]; DESC _devname; short len, ch; int stat, lockid, i; /* Generate mailbox logical name from Imtool name and username. */ SET_DESCRIPTOR (_username, username, sizeof(username)-1); lib$getjpi (&JPI$_USERNAME, 0, 0, 0, &_username, &len); username[len] = 0; while (username[--len] == ' ') /* trim trailing blanks */ username[len] = 0; strcat (strcat (strcpy (mbxname, imtool_name), "_"), username); /* Open or create the mailbox. First, enqueue a lock using the * mailbox logical name just formatted. If the mailbox already * exists, the lock value returned will contain the device name. * If not, we'll have to create the mailbox and update the lock * with the actual device name. Dequeue the lock on any error. */ if ((lockid = Enqueue_Lock (mbxname, devname)) == 0) { *chan = XERR; return; } if (devname[0] && strncmp (devname, "_MBA", 4) == 0) { /* Mailbox already exists; assign a channel to it. */ SET_DESCRIPTOR (_devname, devname, strlen(devname)); stat = sys$assign (&_devname, &ch, 0, 0); if VMS_ERROR(stat) { Dequeue_Lock (lockid); putmsg (devname, 0); putmsg ("ZFIOVI: Mailbox assign error", stat); *chan = XERR; return; } Update_Lock (lockid, 0); } else { /* Create the mailbox and update the lock with the * actual device name. */ int bufquo; if (*mode == READ_ONLY) bufquo = SZ_MBX * 2; else bufquo = SZ_MBX; SET_DESCRIPTOR (_mbxname, mbxname, strlen(mbxname)); stat = sys$crembx (0, &ch, SZ_MBX, bufquo, 0, 0, &_mbxname); if VMS_ERROR(stat) { Dequeue_Lock (lockid); putmsg (mbxname, 0); putmsg ("ZFIOVI: Mailbox creation error", stat); *chan = XERR; return; } SET_DESCRIPTOR (_devname, devname, sizeof(devname)); lib$getdvi (&DVI$_DEVNAM, &ch, 0, 0, &_devname, &len); devname[len] = 0; Update_Lock (lockid, devname); } #ifdef DEBUG /* Print logical and device names of mailbox. */ { char dbgmsg[80]; strcat (strcat (strcpy (dbgmsg, mbxname), " = "), devname); putmsg (dbgmsg, 0); } #endif /* Get a free channel structure and initialize. */ for (i = 0; i < NUM_CHANNELS; i++) if (channels[i].mbx_chan == 0) break; if (i == NUM_CHANNELS) { putmsg ("ZFIOVI: No channel structures available", 0); sys$dassgn (ch); Dequeue_Lock (lockid); *chan = XERR; } else { CHANNEL *c; c = &channels[i]; c->mbx_chan = ch; c->lockid = lockid; c->qio_status = 0; c->ast = 0; c->ast_arg = 0; if (*mode == READ_ONLY) { /* Check if there are messages waiting to be read. * This number is in the two low-order bytes of the * device-dependent longword. */ lib$getdvi (&DVI$_DEVDEPEND, &ch, 0, &c->io_pending); c->io_pending &= 0x0000FFFF; } else { c->io_pending = 0; } *chan = c; } } /* * ZCLSVI -- Close IRAF-Imtool connection. */ zclsvi (chan, status) XINT *chan; XINT *status; { CHANNEL *c; int stat; /* Deassign the mailbox channel, dequeue the associated lock, * and "free" the channel structure. */ c = *chan; stat = sys$dassgn (c->mbx_chan); if VMS_ERROR(stat) { putmsg ("ZFIOVI: Error deassigning mailbox channel", stat); *status = XERR; } else { *status = XOK; } Dequeue_Lock (c->lockid); c->mbx_chan = 0; } /* * ZARDVI -- Asynchronous read on IRAF-Imtool channel. */ zardvi (chan, buf, maxbytes, loffset) XINT *chan; char *buf; XINT *maxbytes; XLONG *loffset; /* ignored */ { CHANNEL *c; /* Post a read on the mailbox. */ c = *chan; c->qio_status = sys$qio (0, c->mbx_chan, IO$_READVBLK, &c->iosb, 0, 0, buf, *maxbytes, 0,0,0,0); } /* * ZAWRVI -- Asynchronous write to IRAF-Imtool channel. */ zawrvi (chan, buf, nbytes, loffset) XINT *chan; char *buf; XINT *nbytes; XLONG *loffset; /* ignored */ { CHANNEL *c; /* Write to the mailbox. */ c = *chan; c->qio_status = sys$qio (0, c->mbx_chan, IO$_WRITEVBLK | IO$M_NOW, &c->iosb, 0, 0, buf, *nbytes, 0,0,0,0); } /* * ZAWTVI -- Wait for asynchronous read/write to complete. */ zawtvi (chan, status) XINT *chan; XINT *status; { CHANNEL *c; /* Wait on i/o to complete. */ c = *chan; sys$synch (0, &c->iosb); if VMS_ERROR(c->qio_status) { putmsg ("ZFIOVI: QIO error", c->qio_status); *status = XERR; } else if (c->iosb.status == SS$_ENDOFFILE) { putmsg ("ZFIOVI: Unexpected EOF on mailbox", c->iosb.status); *status = 0; } else if VMS_ERROR(c->iosb.status) { putmsg ("ZFIOVI: Mailbox i/o error", c->iosb.status); *status = XERR; } else { *status = c->iosb.count; if (c->io_pending) c->io_pending--; } } /* * ZBufSize -- Return maximum i/o transfer size, in bytes. */ ZBufSize (CHANNEL *c) { return SZ_MBX; } /* * ZPending -- Return data pending count. */ ZPending (CHANNEL *c) { return c->io_pending; } /* * ZSelectAsyncInput -- Set up for asynchronous notification when i/o is * ready on a given channel. This must be reset by the application * _after_ it has read the data from the mailbox. */ ZSelectAsyncInput (CHANNEL *c, int (*ast)(), int ast_arg) { if (ast) Set_Attn_AST (c); c->ast = ast; c->ast_arg = ast_arg; } /* * Set_Attn_AST -- Set a write attention AST on the mailbox channel */ static Set_Attn_AST (CHANNEL *c) { int Attn_AST(); int stat; stat = sys$qiow (0, c->mbx_chan, IO$_SETMODE | IO$M_WRTATTN, &c->iosb, 0, 0, Attn_AST, c, 0,0,0,0); if VMS_ERROR(stat) putmsg ("ZFIOVI: Error setting write attn ast", stat); else if VMS_ERROR(c->iosb.status) putmsg ("ZFIOVI: Error setting write attn ast", c->iosb.status); } /* * Attn_AST -- Write attention AST routine. Increment the i/o pending * count and invoke the application's AST routine. */ static Attn_AST (CHANNEL *c) { c->io_pending++; if (c->ast) (* c->ast) (c->ast_arg); } /* * PUTMSG - Put an error message and/or an associated system error * string to SYS$OUTPUT. */ static putmsg (char *msg, int code) { DESC _msg; struct { short arg_count; short msg_options; int msg_code; } msgvec; if (msg) { SET_DESCRIPTOR (_msg, msg, strlen(msg)); lib$put_output (&_msg); } if (code) { msgvec.arg_count = 1; msgvec.msg_options = 0x0F; /* output full message */ msgvec.msg_code = code; sys$putmsg (&msgvec); } } /* * ENQUEUE_LOCK -- Enqueue an exclusive lock. Copies the value from the * lock status block. The function return value is the lock id for * subsequent lock operations, or zero if there was an error. * * Locks are cluster-wide by default, so the local node name is added * to the specified lock name. This will prevent conflicts in cases * where shared accounts are used in a VAX cluster environment. */ static int Enqueue_Lock (char *lockname, char *valblk) { int stat, sys$enqw(); short len; LOCK lblock; char nodename[SZ_NODENAME+1]; DESC _nodename; char resnam[SZ_LOCKNAME*2]; DESC _resnam; /* Generate the lock resource name of the form: lockname@nodename. * This string is truncated if necessary. */ SET_DESCRIPTOR (_nodename, nodename, sizeof(nodename)-1); lib$getsyi (&SYI$_NODENAME, 0, &_nodename, &len, 0, 0); nodename[len] = 0; strcat (strcat (strcpy (resnam, lockname), "@"), nodename); resnam[SZ_LOCKNAME] = 0; SET_DESCRIPTOR (_resnam, resnam, strlen(resnam)); /* Enqueue the lock. */ stat = sys$enqw ( 0, /* event flag */ LCK$K_EXMODE, /* lock mode */ &lblock, /* lock status block */ LCK$M_VALBLK, /* flags (get value block) */ &_resnam, /* resource name */ 0, /* parent id */ 0, /* AST address */ 0, /* AST parameter */ 0, /* Blocking AST */ 0, /* access mode */ 0 /* null argument */ ); if VMS_ERROR(stat) { putmsg ("ZFIOVI: Error enqueueing lock request", stat); return 0; } if VMS_ERROR(lblock.status) { putmsg ("ZFIOVI: Lock error from enqueue request", lblock.status); return 0; } if (valblk) lib$movc3 (&SZ_LOCKVALBLK, lblock.valblk, valblk); return lblock.lkid; } /* * UPDATE_LOCK -- Update a lock value block by converting it to null mode. * This keeps the lock and its value block around for other processes * to access later. */ static Update_Lock (int lockid, char *valblk) { int stat, sys$enqw(); int flags; LOCK lblock; lblock.lkid = lockid; flags = LCK$M_CONVERT; if (valblk) { flags |= LCK$M_VALBLK; lib$movc3 (&SZ_LOCKVALBLK, valblk, lblock.valblk); } /* Enqueue the lock (conversion). */ stat = sys$enqw ( 0, /* event flag */ LCK$K_NLMODE, /* lock mode */ &lblock, /* lock status block */ flags, /* flags */ 0, /* resource name */ 0, /* parent id */ 0, /* AST address */ 0, /* AST parameter */ 0, /* Blocking AST */ 0, /* access mode */ 0 /* null argument */ ); if VMS_ERROR(stat) putmsg ("ZFIOVI: Error enqueueing lock conversion request", stat); if VMS_ERROR(lblock.status) putmsg ("ZFIOVI: Lock error from conversion request", lblock.status); } /* * DEQUEUE_LOCK - Dequeue a lock. */ static Dequeue_Lock (int lockid) { int stat, sys$deq(); stat = sys$deq ( lockid, /* lock identification */ 0, /* value block */ 0, /* access mode */ 0 /* $DEQ options */ ); if VMS_ERROR(stat) putmsg ("ZFIOVI: Error dequeueing lock", stat); } #ifdef REQUIRES_GRPNAM_PRIVILEGE /** ** This is here for reference only. It's use has been superseded ** by the use of locks above. If GRPNAM privilege is assumed, ** this function is called before a call to SYS$CREMBX, whether ** or not the mailbox has already been created. **/ #include /* Logical name definitions */ #include /* Privilege mask definitions */ /* * SET_GROUP_TABLE -- Set logical so that mailbox logical name is put * into the group table. Note that we cannot use LIB$SET_LOGICAL here * (the easier approach) since this software will be run as part of a * VMS/IRAF subprocess which has no CLI associated with it. If the * process does not currently have GRPNAM privilege, issue a warning. * This will be more useful than getting a mailbox creation error. */ static set_group_table ( ) { $DESCRIPTOR (_name, "LNM$TEMPORARY_MAILBOX"); $DESCRIPTOR (_value, "LNM$GROUP"); $DESCRIPTOR (_table, "LNM$PROCESS_DIRECTORY"); struct item_list { short len; /* length of buffer */ short code; /* service-dependent option code */ char *buf; /* user buffer */ short *blen; /* return length for data in buf */ } itmlst[2]; int stat, curpriv; char fallback_msg[] = "Cannot set GROUP table for mailbox name; using JOB table"; lib$getjpi (&JPI$_CURPRIV, 0, 0, &curpriv, 0, 0); if (curpriv & PRV$M_GRPNAM) { itmlst[0].len = _value.dsc$w_length; itmlst[0].code = LNM$_STRING; itmlst[0].buf = _value.dsc$a_pointer; itmlst[0].blen = 0; itmlst[1].len = 0; itmlst[1].code = 0; stat = sys$crelnm (&LNM$M_NO_ALIAS, &_table, &_name, 0, itmlst); if VMS_ERROR(stat) putmsg (fallback_msg, stat); } else { putmsg (fallback_msg, 0); } } #endif saoimage-1.08/vms/readme.vms 666 21641 13 21113 5042627151 11135 ------------------------------------------------- Notes on building/running SAOimage on VMS (Jun91) ------------------------------------------------- These notes describe how to build and run this release of SAOimage on a VAX/VMS system. VMS/IRAF imtool usage is also discussed. -------- Building -------- DCL command procedures with input file lists are used to build SAOimage on VMS. They are designed to run on any VMS system with the DEC VAX C compiler and are not dependent on any special build software such as DEC MMS or IRAF mkpkg. A rudimentary Make-like strategy is used. In the top-level SAOimage source directory and the [.BTNLIB] and [.VMS] subdirectories, the following files perform the build: MAKE.COM DCL command procedure to compile local source files and insert them into an object library; top-level MAKE.COM also links the executable MAKE.LST input list of SAOimage source files To build SAOimage: 1. Verify the build options. These are set in the "/define=(...)" part of the "compile" command definition in each MAKE.COM file. The current options that can be changed on VMS: IFLAGS: image reading code to be built into SAOimage FITS - reads array files with FITS headers OIF - reads IRAF .imh/(.pix) files with detached headers IMTOOL - support imtool interactions with IRAF DEBUG - turn on various internal debug messages MFLAGS: machine or library specific code XV11R2 - Xlib not up to full XV11R3 standards (leave enabled for VMS) PSCRIPT - hard copy output to a PostScript printer (else no hardcopy) LSB - (least signif. byte) byte swap relative to FITS standard For example, if you do not want IRAF imtool support, change the "IMTOOL" to "NOIMTOOL" There is no need to define VMS or VAX; these are automatically defined by the VAX C compiler. 2. From the main directory of SAOimage source, execute the MAKE.COM procedure via @MAKE. (Running this as a subprocess or batch job with the output to a log file is advisable; it can take a while.) Note: If [.VMS]ZFIOVI.C will not build, compile it separately (without defining IMTOOL) or change ZFIOVI.C to !ZFIOVI.C in [.VMS]MAKE.LST and ignore the linker complaints. This source is currently used for IRAF imtool support only. To update VMS/IRAF (imtool support only): 1. Verify that the file IRAFDISK:[IRAF.VMS.GDEV...]ZFIOVI.C exists. Verify that the file IRAFDISK:[IRAF.VMS.GDEV]ZFIOGD.X references the routine "zopnvi". Note: The IRAF top-level directory may be different on your system. 2. If the above is verified, then VMS/IRAF already supports imtool, and there is no need to go further with this step. If not, then update VMS/IRAF and rebuild as follows: From [.VMS] subdirectory ... $ copy ZFIOGD.X IRAFDISK:[IRAF.VMS.GDEV] $ copy ZFIOVI.C IRAFDISK:[IRAF.VMS.GDEV] $ copy MKPKG. IRAFDISK:[IRAF.VMS.GDEV] In IRAFDISK:[IRAF.VMS.GDEV] ... $ mkpkg ! update the LIBSYS library Then, either - rebuild the VMS/IRAF shareable image - relink all of IRAF or - rebuild some executables without the shareable image: pkg/cl/ (for stdimage cursor) pkg/images/tv/display/ (for images.display task) noao/proto/ (for noao.imexamine and tvmark tasks) $ mkpkg -vz update ------------ Installation ------------ Install the SAOimage executable and the startup .COM file, along with the configuration file needed for communication with IRAF. If you intend to install the files in a system location, you must be logged in as SYSTEM. For our purposes here, let's assume you are going to put the files in SYS$LOCAL:[SAOIMAGE]. $ @[.vms]install SYS$LOCAL:[SAOIMAGE] # or wherever All of the "run-time" files (there are 4) are installed in the same place on VMS systems. You may wish to install the help information in a standard help library on your system: $ lib/help/log sys$help:localtools SYS$LOCAL:[SAOIMAGE]saoimage.hlp You may wish to set up a symbol that users can use to run the startup command procedure; global symbols such as this are often defined in SYS$MANAGER:SYLOGIN.COM. $ saosetup :== @SYS$LOCAL:[SAOIMAGE]saosetup The file SAOSETUP.COM performs the following setup functions for users: A foreign command needs to be defined to run the program from DCL with command line arguments a la C/Unix conventions, for example, $ saoimage :== $disk:[directory]saoimage.exe SAOSETUP makes this definition based on its own location. (SAOSETUP.COM and SAOIMAGE.EXE should be in the same directory.) If your site supports PostScript printer output, the R_DISPOSE foreign command should define a command which prints (and deletes) a PostScript file, for example, $ r_dispose :== print/delete/notify/queue=... "%s" There are several choices for the r_dispose symbol in SAOSETUP.COM; you should uncomment the relevant definition. Read the comments in SAOSETUP.COM for more information. Note that the "%s" string will be replaced with the filename by SAOimage. (It is in double quotes because the "s" must be lower case in SAOimage.) SAOSETUP also accepts a nodename argument that will be set up as a remote display. (If there is no command line argument, the local display is used.) There is no special setup for running under DECwindows. The standard "SET DISPLAY" command can be used to define which workstation will be used as the display. Alternatively, the "-d" option can be supplied as an argument to SAOimage, for example, $ saoimage -d mynode::0.0 imagefile.imh where "mynode" is replaced by the DECnet node name of the workstation. The command line options are documented in the User Manual [.DOC]MANUAL.TEX as well as the help page [.VMS]SAOIMAGE.HLP. -------- VMS/IRAF -------- Using SAOimage in imtool mode with VMS/IRAF is the same as on Sun or DECstation systems, except for the usual VMS/Unix differences in file names, etc. There may also be differences in the window environments and window managers (i.e., DECwindows vs various Unix X servers, etc). The imtool configuration file that is supplied with SAOimage is used by default. If users want to have custom frame buffer configurations, they should make a personal copy of the configuration file. (The default file is pointed to by the IMTOOLRC logical name after SAOSETUP is run, so users could `copy imtoolrc sys$login:.imtoolrc' to get a copy.) The custom imtoolrc file should be in the user's home directory (named SYS$LOGIN:.IMTOOLRC) or else the logical name IMTOOLRC should point to this file, for example, $ DEFINE IMTOOLRC DISK:[USER.IRAF]IMTOOL.RC A sample IMTOOLRC file is attached below, if one can't be found otherwise. SAOimage is started as an imtool server with $ saoimage +imtool OR $ spawn/nowait/in=nl: saoimage +imtool This is typically run in one window, while the IRAF CL is running in another. On the IRAF side, set stdimage to your favorite imtool configuration in the login.cl file (or interactively). The standard configurations are listed below in the sample IMTOOLRC file. Once SAOimage and IRAF are both running, the standard IRAF tv.display, noao.imexamine, and noao.tvmark tasks can be used to display and control the image display window supported by SAOimage. -------------------- Sample IMTOOLRC file -------------------- # IMTOOL -- Defined frame buffer configurations. Note that the given nframes # is only a starting point, and may be modified during execution, hence smaller # values are preferred. The configuration numbers may be given in any order, # but must be unique and in the range 1-64. NOTE - corresponding entries must # be present in the dev$graphcap file, for use with IRAF. # # Format: configno nframes width height 1 2 512 512 # imt1|imt512 2 2 800 800 # imt2|imt800 3 2 1024 1024 # imt3|imt1024 4 1 1600 1600 # imt4|imt1600 5 1 2048 2048 # imt5|imt2048 6 1 4096 4096 # imt6|imt4096 7 1 4096 1024 # imt7|imt4x1 8 1 1024 4096 # imt8|imt1x4 9 2 1144 880 # imt9|imtfs full screen (1152x900 minus frame) 10 2 1144 764 # imt10|imtfs35 full screen at 35mm film aspect ratio 11 2 128 128 # imt11|imt128 12 2 256 256 # imt12|imt256 # Some site specific formats for NOAO. 20 2 388 576 # imt20|imtgec GEC CCD detector format 21 1 3040 976 # imt21|imtkpca KPCA detector format (also 2D-Frutti) 22 1 128 1520 # imt22|imt2df1 2D-Frutti 23 1 256 1520 # imt23|imt2df2 2D-Frutti 24 1 512 1520 # imt24|imt2df5 2D-Frutti 25 1 960 1520 # imt25|imt2df9 2D-Frutti 26 1 512 800 # imt26|imtcryo Cryogenic Camera 27 1 348 800 # imt27|imtgcam Gold Camera 28 1 976 3040 # imt28|imt2df9x3 2D-Frutti saoimage-1.08/vms/make.lst 666 21641 13 44 4613715066 10540 BCOPY.C GHSTNAME.C NTOHL.C ZFIOVI.C saoimage-1.08/vms/install.com 666 21641 13 1446 5022767567 11324 $!============================================================================= $! INSTALL.COM -- Install SAOimage and configuration files. This file $! should be run from [...saoimage.vms]; it can find the files it needs! $!============================================================================= $ if p1 .eqs. "" then inquire/nopunc p1 "Installation directory: " $ if p1 .eqs. "" then exit $ saodestdir = p1 $! $ thisproc = f$environ("procedure") $ saovmsdir = f$parse(thisproc,,,"device") + f$parse(thisproc,,,"directory") $ saoimgdir = saovmsdir - ".VMS]" + "]" $! $ create/direc/log 'saodestdir' $ copy/log 'saoimgdir'saoimage.exe 'saodestdir' $ copy/log 'saovmsdir'saosetup.com 'saodestdir' $ copy/log 'saoimgdir'imtoolrc. 'saodestdir' $ copy/log 'saovmsdir'saoimage.hlp 'saodestdir' $ exit saoimage-1.08/vms/saoimage.hlp 666 21641 13 54126 5034414105 11447 1 SAOimage SAOimage is a utility for displaying astronomical images which runs under the X11 window environment. Image files can be read directly, or image data may be passed through a named pipe (Unix) or a mailbox (VMS) from IRAF display tasks. SAOimage provides a large selection of options for zooming, panning, scaling, color- ing, pixel readback, display blinking, and region specification. User interactions are generally performed with the mouse. The SAOimage desktop includes, a main image display window, a button menu panel, a display magnifier, a pan and zoom reference image, and a color bar. A color table graph window can be brought up by clicking on the color bar. 2 SYNOPSIS saoimage [ -display nodename:0.0 ] [ -geometry | -gd geometry ] [ -pros | +/-imtool | -fits | -dfits | -oif ] [ -u1 | -u2 | -i2 | -i4 | -r4 | -r8 [ width height ] ] [ -byteswap ] [ -skip bytes ] [ -upperleft | -lowerleft ] [ -one | -zero ] [ -rotate code ] [ -linear | -wrap [ wraps ] | -log [ exponent ] | -sqrt [ power ] | -histeq ] [ -min val ] [ -max val ] [ -rmin val ] [ -rmax val ] [ -scalebias scale bias ] [ -palette val ] [ -red | -green | -blue ] [ -vertgraph | -horizgraph ] [ +/-coord ] [ +/-magnifier ] [ -mag val ] [ -panboxav | -panboxsum | -panboxsample | -panboxmax ] [ -idev pipename ] [ -odev pipename ] [ -fbconfig filename ] [ +/-verbose ] [ -quiet ] [ -lprbuttons ] [ -mtf ] [ -bordercolor color ] [ filename | -name filename ] 2 OPTIONS -blue Set the color of all graphics to be blue. Some inexpensive systems use a monochrome monitor connected to one of the three color outputs on the computer. That color must be specified to make the graphics visible. -bordercolor colorname Specify the color of all subwindow borders. The color name must be a recognized X color (there are many). This is a style issue. -bc may be used instead of -bordercolor. -byteswap Switch the bytes order between big-endian and little-endian order. This may be needed where data has been copied from another machine or if there is some confusion about the FITS file format. This switch toggles the previous set- ting. -bswap may be used instead of -byteswap. +/-coord Set the coordinate tracking state initially on or off. In coordinate tracking, the coordinates of the mouse and value of the pixel under it are printed in the upper-left text area, above the main display window. +/-ct can be used instead of +/-coord. -display nodename:0.0 Specify the name of the X display server. This makes it possible to run the SAOimage program on a machine other than the one connected to your display screen, with no difference in appearance or use. By default, SAOimage gets the server name from the DISPLAY environment variable. See the xhost manual page for more details. The display server cannot be changed once SAOimage is running. -display may be abbreviated -d. -dfits Image file is a FITS file (see -fits), but in unexpected byteswapped order. The FITS standard is not swapped, but some naive VAX applications may swap it (see -bswap). -fbconfig filename Specify an alternate frame buffer configuration file for use with IRAF. By default, the file installed with SAOim- age (/usr/local/lib/imtoolrc) is used. -fits Image file is a FITS file. If the image filename ends in .fits, this switch is not necessary. Only T=SIMPLE array types are supported. The header BITPIX card must be 8 (unsigned byte), 16 (signed short), 32 (signed int), -32 (float), -64 (double), or -16 (unsigned short). (The last two are not recognized standards). IEEE floats are not converted if that is not the machine format. -gd geometry Specify the size of the image display subwindow and/or the screen position of SAOimage. The format is a standard X geometry statement. This switch works like -geometry, except that width and height (if given) are applied to the display subwindow. The overall SAOimage window is sized accordingly. -geometry geometry Specify the size and/or the screen position of SAOimage. The format is a standard X geometry statement. Both size and position may be specified, or only the size or the position. Width and height refer to the dimensions of SAOimage's desktop window (see -gd for sizing just the image display window). +x and +y refer to the upper left corner in screen coordinates. -x positions the right edge from the right edge of the screen. -y would positions the lower edge from the bottom of the screen. Width and height below a minimum size are defaulted to the minimum. Speci- fying the default minimum size (-geometry 0x0) also triggers SAOimage to use smaller dimensions for its inter- nal windows. Once SAOimage is running, use the window manager's normal size and move mechanisms to make adjust- ments to SAOimage's main window. -geometry may be abbrevi- ated -g. -green Set the color of all graphics to be green. See -blue. -histeq Set the scaling mode for histogram equalization. -horizgraph Use a horizontal auxiliary color graph window, with a color bar along the bottom. See -vertgraph. -hg can be used as a shorthand for -horizgraph. -i2 width height Image file is a signed short integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. -shortarray width height has the same function. -i4 width height Image file is a signed long integer array file of the given dimensions. If the file is square and has no added pad- ding, the dimensions are not necessary. -longarray width height has the same function. -idev pipename Specify the name of the named pipe used for listening. The default is /dev/imt1o, which is the default used by IRAF. See -odev. +/-imtool Open/close the named input pipe connection and wait for input from IRAF. When open, SAOimage emulates IRAF's imtool. IRAF's image loading and cursor read-back func- tions are supported. Unlike imtool, SAOimage has only one frame buffer; IRAF's frame buffer numbers are ignored. Listening on the pipe is possible even while reading image files directly. The connection may be opened, closed, or re-opened at any time. When supported, the default mode is commonly to start with the IRAF connection open. See -idev, -odev, and -pros. -linear Set the scaling mode to linear. -log [exponent for exponential curve] Set the scaling mode to log (exponential), and set the exponent for the curve function e sup n if given. -lowerleft First pixel in file represents the lower left of the image, assuming the lines of input run left to right on the screen. This is the IRAF standard and the SAOimage default. See -rotate, -upperleft, and -zero. -lowerleft may be abbreviated -ll. -lprbuttons Include the button menu in the hardcopy image (only on color workstations). The default on color workstations includes the area above the button panel, but excludes the buttons. -mag magnification Set the magnification factor of the magnifier. This factor relates the magnifier to the magnification of the display window. The default is 4; the magnifier magnifies the image to 4 times the magnification of the main display win- dow (but never less than zoom 1 of the original data). +/-magnifier Set the magnifier tracking state initially on or off. With magnifier tracking, the magnifier window is continuously updated to show a magnification of the image the image under the mouse. +/-mt can be used instead of +/- magnifier. -max [max val] Set the maximum for the image value range used to compute scaling. The default is to take the maximum from the image shown in the display window. -max with no value resets the default. If the maximum value in the displayed image is lower than the given maximum, the image's maximum vale is used for the scaling range. -min [min val] Set the minimum for the image value range used to compute scaling. The default is to take the minimum from the image shown in the display window. -min with no value resets the default. If the minimum value in the displayed image is higher than the given minimum, the image's minimum vale is used for the scaling range. -mtf Give the button panel a chiseled look popularized by HP's widget set. This appearance may contrast less with other applications being used at the same time. -name filename This switch is only needed if the filename starts with a number or might otherwise be recognized as a switch. -odev pipename Specify the name of the named pipe used for sending feed- back. The default is /dev/imt1i, which is the default used by IRAF. See -idev. -oif Image file is an IRAF image header file in OIF format. If the image filename ends in .imh, this switch is not neces- sary. IRAF STF and QPOE formats are not supported. Com- plex data cannot be handled. The data must have at least 2 dimensions. Only the first plane of multidimensional images is read. The data file is read directly by SAOimage (see -imtool and -pros). -one The file coordinate of the first pixel is (1,1). The real coordinates of the center of the first pixel are (1.0,1.0). This is the IRAF standard and the default for SAOimage. The second pixel is (2,1). See -zero. -palette number Specify the number of read/write color cells to reserve. On color workstations, SAOimage reserves color cells in the default colormap for its own use. SAOimage reserves as many color cells as it can get, up to the number given (the default is 200). If the number given is negative, SAOimage comes up in overlay mode, using 1/2 + 2 of the color cells for overlays and graphics. In verbose mode (see -verbose), SAOimage tells you how many cells it is able to use for display colors. This number can be re-entered at run-time, unless -palette 1 is given, in which case SAOimage stays in halftone mode. -p is an acceptable shorthand for -palette. -panboxav | -panboxsum | -panboxsamp | -panboxmax These switches select the kind of image reduction used to fit a picture of the entire image into the pan window. Each pixel is computed from a block of image pixels by averaging, summing, sampling, or taking the maximum. The default is to show the maximum from each block. When zoom- ing in the main display involves reduction, subsampling is always used. -pros Virtually identical to the +imtool switch. The difference occurs when the user writes the saved regions to a disk file. imtool emulation includes writing only an IRAF list file giving center coordinates only. With -pros, SAOimage's normal region descriptor file will be written in place of the simpler list file. One may switch between this mode and +imtool, or close the IRAF connection with -imtool. -quiet Disable verbose mode;-q may also be used. See -verbose. -r4 width height Image file is a real*4 array file of the given dimensions. If the file is square and has no added padding, the dimen- sions are not necessary. -floatarray width height has the same function. -r8 width height Image file is a real*8 array file of the given dimensions. If the file is square and has no added padding, the dimen- sions are not necessary. -doublearray width height has the same function. -red Set the color of all graphics to be red. See -blue. -rmax [max val] Set maximum value for reading from the image file. This value is used as the maximum value when images are pre- scaled to fit the 16 bit (signed short) working buffer. -rmin [min val] Set minimum value for reading from the image file. This value is used as the minimum value when images are pre- scaled to fit the 16 bit (signed short) working buffer. -rotate 1,2,or 3 Rotate the image 90, 180, or 270 degrees (respectively) before displaying it. Rotation is applied after conversion to a lower left coordinate system (-ll) if such conversion is also requested. This is useful for images when the CCD was not mounted North-up. -rot can be used as a shorthand for -rotate. -scalebias scale bias The data in the image file should be scaled and biased to get the true image value (TrueValue = (scale * FileValue) + bias). This cannot be used with the -fits image type (scale and bias are in the FITS header), nor with -imtool or -pros (they are passed by IRAF). -sb is a shorthand for -scalebias. -skip bytes Skip over the given number of bytes at the head of the file before reading data. This is used to skip header infor- mation or the first image if two images are stored in one file. -header and -sk are aliases for -skip. -sqrt [inverse of exponent for geometric curve] Set the scaling function to square root (geometric), and set the inverse of the exponent for the x sup {1/n} curve, if given. -u1 width height Image file is an unsigned byte array file of the given dimensions. If the file is square and has no added pad- ding, the dimensions are not necessary. -chararray width height has the same function. -u2 width height Image file is a unsigned short integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. -ushortarray width height has the same function. -upperleft First pixel in file represents the upper left of the image, assuming the lines of input run left to right on the screen (see -rotate and -lowerleft). This switch does not over- ride IRAF WCS image coordinates. -upperleft may be abbre- viated -ul. +/-verbose Set verbose mode on or off. In verbose mode, informative statements are printed to the terminal window when various actions are taken. The default mode is to be verbose. +/-v can be used instead of +/-verbose. -vertgraph Use a vertical auxiliary color graph window, with a color bar along the left side. See -horizgraph. -vg can be used as a shorthand for -vertgraph. -wrap [number of wraps within scaling range] Set the scaling mode to wrapped linear, and set the number of wraps for this mode, if given. -zero The file coordinate of the first pixel is (0,0). The real coordinates of the center of the first pixel are (0.5,0.5) which makes the very edge (0,0). This is the standard coordinate system for image displays, but not the default for SAOimage. The second pixel is indexed (1,0). See -one. 2 USAGE Refer to the SAOimage User Manual for detailed descriptions of all functions. Most control actions take place within the context of a mode. Modes are selected by clicking on menu buttons in the top row of the button panel. Each menu mode brings up its own submenu but- tons (the lower row in the button panel) for mode specific selec- tions. Actions and submodes are selected by clicking on buttons in the submenu row of the menu panel. The mouse controls specific functions in both the main display window and the pan/zoom window. In the main display window, the function of the mouse is determined by the mode and submode selections from the button menu. The function can also be recog- nized by the appearance of the mouse pointer icon. The button interface is designed to be user friendly. The user is encouraged to try any and all buttons to become familiar with their functions. To exit, use the QUIT button in the etc submenu (click on etc, then click on QUIT). 3 Reading images To read an image directly from a file, give its name anywhere on the command line. The -name switch is needed only when the image file name could be mistaken for a number or switch. SAOimage recognizes the .fits and .imh filename suffixes as belonging to FITS and IRAF OIF files. All other file types must be specified by an appropriate file type switch. Raw array file types must be specified by an array data type switch (-u1, -u2, -i2, -i4, -r4, -r8) followed by width and height dimensions. To skip over a file header, use the -sk switch followed by the number of bytes. This can also be used to skip over entire images, if more than one are stored in the same file. 3 Use with IRAF To emulate imtool and communicate with IRAF tasks, use either the -imtool or -pros switch. The two switches indicate which file format to use in recording saved cursors or regions. With -imtool, an IRAF list file containing only center coordinates is used (like that of imtool). With -pros, a file containing a full description of the saved cursors and their dimensions is used. The latter file can be read by tasks in the IRAF PROS spatial package for making image masks and performing image analyses. Both file types are ASCII and can be read and edited by the user. In either case, the file is not actually written until the user clicks on the write button in the region submenu. Both file types can be read back to reproduce the saved cursors. 3 New command input A new command line can be entered at any time, by selecting the new button in the etc submenu or striking the N key on the key- board. This allows the user to read in new images, change in and out of -imtool or pros mode, set new scaling parameters, or change the number of reserved display color cells. Most command line switches (except -d, -g, -gd, -red, -green, -blue, and -vertgraph) will be accepted at any time. When a new command line is requested, the previous command line is presented in an emacs-like popup editor for editing. Ctrl-N clears the previous line. Striking the RETURN key enters the line in the popup window as the new command. Ctrl-C returns with no action taken. 3 Using the mouse Most mouse interactions are based on mouse dragging (holding a button down while moving the mouse). The user should try clicking and/or dragging the mouse in each subwindow to become familiar with its functions. Modes selected in the button panel determine the response to the mouse buttons in the main display window. In Scale mode, the mouse buttons control blinking of displays (saved by clicking with the same mouse button in the blink sub- menu button). In Color mode, mouse dragging stretches and shifts the color map as per the contrast/bias, threshold/saturation, and gamma submenu selections. In the color graph window, color table vertexes may be added or moved by clicking or dragging with the LEFT (red), MIDDLE (green), or RIGHT (blue) mouse buttons. The graph will update continuously only if tracking is turned on. In Cursor mode, the mouse controls the size and locations of cur- sors. The rule is: LEFT button for position, MIDDLE button for size, and RIGHT button for angle or deletion (depending on the cursor). 3 Cursors For box and ellipse cursors, MIDDLE button sizing is restricted depending on whether dragging started on a side or near a corner. With the point cursor, the LEFT and MIDDLE buttons save the current mouse pointer position with a + or - indication, while the RIGHT button deletes saved points. For the polygon cursor, the MIDDLE button adds or moves a single vertex, while the RIGHT button will delete vertexes. The LEFT button moves the whole polygon. When annuli is set for a box, circle, or ellipse cursor, the MID- DLE button adds or resizes an annulus, while the RIGHT button deletes annuli. For manipulating cursors, the ovlay selection in the Color sub- menu, enables the cursor to track smoothly as an overlay graphic. The region submenu button brings up another submenu with selec- tions to display, review, and edit the saved regions, and read from or write to disk files. 3 Pan and zoom In Pan mode, and in the pan window (regardless of mode), the LEFT button selects the center of the image, while the MIDDLE button selects the edge of the display, zoomed from the given center. When either function is dragged, the rectangle in the pan window shows the area that would appear in the display when the button is released. 3 Keys In the cursor mode, the S and E keys, save the current cursor in a region list, while the D and DELETE keys can be used to forget a region. At any time, with the pointer in the display or pan windows, the T key prints a table of pixel values at the pointer position to stdout. The 4 arrow keys can be used for fine move- ment of the pointer in any window. The SHIFT and SHIFT LOCK keys will reverse the magnifier window, color graph window and coordi- nate tracking status. The N key summons the pop-up editor for new command input. The A key raises and redraws all of SAOimage's windows. 2 BUGS SAOimage does not allocate its own colormap and thus fails with static color (i.e. NeWS) window managers. X resource settings of a user's default preferences are not read. saoimage-1.08/vms/saosetup.com 666 21641 13 7351 5040624325 11502 $!============================================================================= $! SAOSETUP.COM -- Setup for running SAOimage on VMS [user/site-specific] $! $! This file should either be invoked for all users in the system-wide $! login procedure, or users should be told where it is or provided with $! a symbol with which to invoke it. The SAOIMAGE.HLP file should be $! incorporated in either the system HELPLIB.HLB, or, preferably, in $! a locally defined additional help library. $! $! Parameters: $! ----------- $! P1 = Name of node to display on (default = 0, the local node) $! P2 = Protocol for communicating with remote node (default = DECNET) $!============================================================================= $ echo = "write sys$output" $ thisuic = f$getjpi("","uic") $ thisnode = f$element(0,":",f$trnlnm("sys$node")) $! $! Determine installation directory path and set SAODIR logname. $! $ thisproc = f$environment("procedure") $ procdir = f$parse(thisproc,,,"device") + f$parse(thisproc,,,"directory") $ procnm = f$parse(thisproc,,,"name") $! $ define/nolog SAODIR 'procdir' $! $! Define SAOimage symbol and set some command line options. $! See section 1 in [.DOC]MANUAL.TEX for complete descriptions. $! $ SAOIMAGE :== $SAODIR:SAOIMAGE.EXE -G +500+100 -Q $! $! VMS SAOimage does not read the imtoolrc file from a default system $! location. On VMS, SAOimage relies on the existence of the logical $! name IMTOOLRC, which it reads from the user's process environment. $! Individual users may override this mechanism by placing a .IMTOOLRC $! in their SYS$LOGIN directory, or by assigning IMTOOLRC themselves. $! $ user_cf = "SYS$LOGIN:.IMTOOLRC" $ if f$search(user_cf) .nes. "" then define/nolog IMTOOLRC 'user_cf' $ if f$trnlnm("IMTOOLRC") .eqs. "" then define/nolog IMTOOLRC SAODIR:IMTOOLRC. $! $! SAOimage prints images to PostScript printers by executing a command $! R_DISPOSE, which is actually a global symbol. Here are some possible $! definitions for that symbol; select the best one. Please note that if $! do not have PostScript printing capabilities, you should probably disable $! the printing option when building SAOimage by setting NOPSCRPT in the $! MAKE.COM file. $! $! If you have a VMS-based PostScript printer: $! R_DISPOSE :== print/queue=postscript/delete "%s" $! $! If you have a Unix-like line printer system on your VMS machine: $! R_DISPOSE :== lpr -Plw1 -r "%s" $! $! If you have no way to print PostScript (the file is NOT deleted): $ R_DISPOSE :== 'echo' """Warning: PostScript file `%s' cannot be printed.""" $! $! Set display to local workstation node by default. The user may override $! by specifying a command line argument. $! $ defnode = thisnode $ usrnode = p1 $ deftrans = "DECNET" $ usrtrans = p2 $ display = f$trnlnm("DECW$DISPLAY") $! $ if display .eqs. "" .or. usrnode .nes. "" $ then $ if usrnode .eqs. "" $ then $ inquire/nopunct usrnode "Node for remote display [''defnode'] : " $ if usrnode .eqs. "" then usrnode = defnode $ if usrnode .eqs. thisnode then usrtrans = "LOCAL" $ endif $ if usrtrans .eqs. "" then usrtrans = deftrans $ if display .nes. "" $ then $ if f$getdvi(display,"ownuic") .eqs. thisuic $ then $ set display/noperm 'display' $ endif $ endif $ set display/create/node="''usrnode'"/transport='usrtrans' $ endif $! $! If you don't want all the following stuff regurgitated, exit now. $! $! exit $ echo "%", procnm, "-I-STATUS, SAOimage configured for display:" $ show display $ echo "-", procnm, "-I-MORE, reading IRAF config from ", f$parse("IMTOOLRC") $ if f$locate("Warning",R_DISPOSE) .lt. f$length(R_DISPOSE) $ then $ echo "-", procnm, "-I-MORE, printing images in PostScript format disabled" $ else $ echo "-", procnm, "-I-MORE, printing via `", R_DISPOSE, "'" $ endif $! $ exit saoimage-1.08/panel/main.c 666 21641 13 2032 4740432225 10512 #include #include "../btnlib/tool/btnmenu.h" /* structs */ #include "../hfiles/constant.h" #include "main.mnu" #include "color.mnu" #include "cursor.mnu" #include "scale.mnu" #include "pan.mnu" #include "etc.mnu" #include "region.mnu" #include "cmap.mnu" #include "mono.mnu" static PanelSpec MenuPanels[] = { { "MainPanel", "menumain.h", 0, 1, MainBoxes, NULL }, { "ColorPanel", "menuclr.h", 1, 1, ColorBoxes, &ColorAttach }, { "CursorPanel", "menucsr.h", 1, 2, CursorBoxes, &CursorAttach }, { "ScalePanel", "menuscl.h", 1, 1, ScaleBoxes, &ScaleAttach }, { "PanPanel", "menupan.h", 1, 1, PanBoxes, &PanAttach }, { "EtcPanel", "menuetc.h", 1, 1, EtcBoxes, &EtcAttach }, { "RegionPanel", "menurgn.h", 2, 1, RegionBoxes, &RegionAttach }, { "CmapPanel", "menucmap.h", 1, 1, CmapBoxes, &CmapAttach }, { "MonoPanel", "menumono.h", 3, 1, MonoBoxes, &MonoAttach } }; static MenuSpec Menu = { "makemenu.c", 9, MenuPanels }; /* * PanelTool main */ main(argc, argv) int argc; char **argv; { btn_SetupMenu( &Menu ); } saoimage-1.08/panel/pan.mnu 666 21641 13 2626 4740432210 10724 static BtnSpec PanA[] = { { "center", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ZOP, ZOP_Center } }, { "zoom 1", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ZOP, ZOP_ZPan1 } }, { "x4", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ZOP, ZOP_ZPan4 } }, { "x2", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ZOP, ZOP_ZPan2 } }, { "x1/2", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ZOP, ZOP_ZPan12 } }, { "x1/4", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ZOP, ZOP_ZPan14 } } }; BoxSpec PanBoxes[] = { { "PanA", { 0, 6, 6, 1, 6.0, 1.0, 0.0, 0.0, 0, 1 }, PanA } }; PanelAttach PanAttach = { "MainPanel", "MainA", 0, 1, 0, ControlMask, 0, 1, { ZOP } }; /* PanelSpec PanPanel = { "PanPanel", "menupan.h", 1, 2, PanBoxes, &PanAttach }; */ saoimage-1.08/panel/main.mnu 666 21641 13 2163 4740432210 11066 static BtnSpec MainA[] = { { "Scale", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { SOP, 0, 0 } }, { "Color", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { VOP, 0, 0 } }, { "Cursor", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, 0, 0 } }, { "Pan", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ZOP, 0, 0 } }, { "etc", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, 0, 0 } } }; static BoxSpec MainBoxes[] = { { "MainA", { 0, 5, 5, 1, 5.0, 1.0, 0.0, 0.0, 0, 1 }, MainA } }; /* PanelSpec MainPanel = { "MainPanel", "menumain.h", 0, 2, MainBoxes, NULL }; */ saoimage-1.08/panel/etc.mnu 666 21641 13 3257 4740432207 10730 static BtnSpec EtcA[] = { { "new", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, EOP_NewFile } }, { "track", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, EOP_Track } }, { "coord", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, EOP_TextTrack } }, { "verb", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, EOP_Verbose } }, { "print", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, #ifdef PSCRIPT { BTNOneShot, BTNCoWhile }, #else { BTNNoOp, BTNCoWhile }, #endif { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, EOP_Output, BOP_PostScript } }, { "raise", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, EOP_Raise } }, { "QUIT", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { EOP, EOP_Exit } } }; BoxSpec EtcBoxes[] = { { "EtcA", { 0, 7, 7, 1, 7.0, 1.0, 0.0, 0.0, 0, 1 }, EtcA } }; PanelAttach EtcAttach = { "MainPanel", "MainA", 0, 1, 0, ControlMask, 0, 1, { EOP } }; /* PanelSpec EtcPanel = { "EtcPanel", "menuetc.h", 1, 2, EtcBoxes, &EtcAttach }; */ saoimage-1.08/panel/cursor.mnu 666 21641 13 21026 4740432207 11504 #define poly_width 21 #define poly_height 11 static char poly_bits[] = { 0x00, 0x00, 0x00, 0x02, 0x02, 0x08, 0x06, 0x05, 0x0c, 0x8a, 0x08, 0x0a, 0x52, 0x10, 0x09, 0x22, 0xa0, 0x08, 0x02, 0x40, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00}; static char poly_mask_bits[] = { 0x07, 0x07, 0x1c, 0x8f, 0x0f, 0x1e, 0xdf, 0x1f, 0x1f, 0xff, 0xbf, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xfd, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f}; static char poly_bold_bits[] = { 0x00, 0x00, 0x00, 0x02, 0x02, 0x08, 0x06, 0x07, 0x0c, 0x8e, 0x0f, 0x0e, 0xde, 0x1d, 0x0f, 0xfe, 0xb8, 0x0f, 0x76, 0xf0, 0x0d, 0x06, 0xe0, 0x0c, 0xfe, 0xff, 0x0f, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00}; static BtnIcon poly = { poly_bits, poly_mask_bits, poly_width, poly_height }; static BtnIcon polyb = { poly_bold_bits, poly_mask_bits, poly_width, poly_height }; #define box_width 21 #define box_height 11 static char box_bits[] = { 0x00, 0x00, 0x00, 0xfe, 0xff, 0x0f, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00}; static char box_mask_bits[] = { 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0x0f, 0x00, 0x1e, 0x0f, 0x00, 0x1e, 0x0f, 0x00, 0x1e, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f}; static char box_bold_bits[] = { 0x00, 0x00, 0x00, 0xfe, 0xff, 0x0f, 0xfe, 0xff, 0x0f, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0xfe, 0xff, 0x0f, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00}; static BtnIcon box = { box_bits, box_mask_bits, box_width, box_height }; static BtnIcon boxb = { box_bold_bits, box_mask_bits, box_width, box_height }; #define circle_width 15 #define circle_height 15 static char circle_bits[] = { 0x00, 0x00, 0xe0, 0x03, 0x18, 0x0c, 0x04, 0x10, 0x04, 0x10, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x04, 0x10, 0x04, 0x10, 0x18, 0x0c, 0xe0, 0x03, 0x00, 0x00}; static char circle_mask_bits[] = { 0xf0, 0x07, 0xfc, 0x1f, 0xfe, 0x3f, 0xfe, 0x3f, 0x3f, 0x7e, 0x1f, 0x7c, 0x0f, 0x78, 0x0f, 0x78, 0x0f, 0x78, 0x1f, 0x7c, 0x3f, 0x7e, 0xfe, 0x3f, 0xfe, 0x3f, 0xfc, 0x1f, 0xf0, 0x07}; static char circle_bold_bits[] = { 0x00, 0x00, 0xe0, 0x03, 0xf8, 0x0f, 0x1c, 0x1c, 0x0c, 0x18, 0x06, 0x30, 0x06, 0x30, 0x06, 0x30, 0x06, 0x30, 0x06, 0x30, 0x0c, 0x18, 0x1c, 0x1c, 0xf8, 0x0f, 0xe0, 0x03, 0x00, 0x00}; static BtnIcon circ = { circle_bits, circle_mask_bits, circle_width, circle_height }; static BtnIcon circb = { circle_bold_bits, circle_mask_bits, circle_width, circle_height }; #define ell_width 23 #define ell_height 11 static char ell_bits[] = { 0x00, 0x00, 0x00, 0x80, 0xff, 0x00, 0x70, 0x00, 0x07, 0x0c, 0x00, 0x18, 0x02, 0x00, 0x20, 0x02, 0x00, 0x20, 0x02, 0x00, 0x20, 0x0c, 0x00, 0x18, 0x70, 0x00, 0x07, 0x80, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; static char ell_mask_bits[] = { 0xc0, 0xff, 0x01, 0xf8, 0xff, 0x0f, 0xfe, 0xff, 0x3f, 0xff, 0xff, 0x7f, 0xff, 0x80, 0x7f, 0x1f, 0x00, 0x7c, 0xff, 0x80, 0x7f, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0x3f, 0xf8, 0xff, 0x0f, 0xc0, 0xff, 0x01}; static char ell_bold_bits[] = { 0x00, 0x00, 0x00, 0x80, 0xff, 0x00, 0xf0, 0xff, 0x07, 0x7c, 0x00, 0x1f, 0x0e, 0x00, 0x38, 0x06, 0x00, 0x30, 0x0e, 0x00, 0x38, 0x7c, 0x00, 0x1f, 0xf0, 0xff, 0x07, 0x80, 0xff, 0x00, 0x00, 0x00, 0x00}; static BtnIcon ell = { ell_bits, ell_mask_bits, ell_width, ell_height }; static BtnIcon ellb = { ell_bold_bits, ell_mask_bits, ell_width, ell_height }; #define arr_width 16 #define arr_height 9 static char arr_bits[] = { 0x00, 0x00, 0x80, 0x01, 0x60, 0x00, 0x18, 0x00, 0xfe, 0x7f, 0x18, 0x00, 0x60, 0x00, 0x80, 0x01, 0x00, 0x00}; static char arr_mask_bits[] = { 0xc0, 0x03, 0xf0, 0x03, 0xfc, 0x03, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfc, 0x03, 0xf0, 0x03, 0xc0, 0x03}; static char arr_bold_bits[] = { 0x00, 0x00, 0x80, 0x01, 0xe0, 0x01, 0xf8, 0x00, 0xfe, 0x7f, 0xf8, 0x00, 0xe0, 0x01, 0x80, 0x01, 0x00, 0x00}; static BtnIcon arr = { arr_bits, arr_mask_bits, arr_width, arr_height }; static BtnIcon arrb = { arr_bold_bits, arr_mask_bits, arr_width, arr_height }; #define ortho_width 15 #define ortho_height 12 static char ortho_bits[] = { 0x00, 0x00, 0x38, 0x1c, 0x44, 0x22, 0x82, 0x22, 0x82, 0x22, 0x82, 0x1c, 0x82, 0x00, 0x82, 0x00, 0x82, 0x00, 0x44, 0x00, 0x38, 0x00, 0x00, 0x00}; static char ortho_mask_bits[] = { 0x7c, 0x3e, 0xfe, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xef, 0x7f, 0xef, 0x7f, 0xef, 0x3f, 0xef, 0x01, 0xff, 0x01, 0xff, 0x01, 0xfe, 0x00, 0x7c, 0x00}; static char ortho_bold_bits[] = { 0x00, 0x00, 0x38, 0x1c, 0x6c, 0x36, 0xc6, 0x36, 0xc6, 0x36, 0xc6, 0x1c, 0xc6, 0x00, 0xc6, 0x00, 0xc6, 0x00, 0x6c, 0x00, 0x38, 0x00, 0x00, 0x00}; static BtnIcon orth = { ortho_bits, ortho_mask_bits, ortho_width, ortho_height }; static BtnIcon orthb = { ortho_bold_bits, ortho_mask_bits, ortho_width, ortho_height }; #define pnt_width 6 #define pnt_height 6 static char pnt_bits[] = { 0x00, 0x00, 0x0c, 0x0c, 0x00, 0x00}; static char pnt_mask_bits[] = { 0x1e, 0x3f, 0x3f, 0x3f, 0x3f, 0x1e}; static char pnt_bold_bits[] = { 0x00, 0x0c, 0x1e, 0x1e, 0x0c, 0x00}; static BtnIcon pnt = { pnt_bits, pnt_mask_bits, pnt_width, pnt_height }; static BtnIcon pntb = { pnt_bold_bits, pnt_mask_bits, pnt_width, pnt_height }; #define ann_width 15 #define ann_height 15 static char ann_bits[] = { 0x00, 0x00, 0xfe, 0x3f, 0x02, 0x20, 0x02, 0x20, 0xf2, 0x27, 0x12, 0x24, 0x12, 0x24, 0x12, 0x24, 0x12, 0x24, 0x12, 0x24, 0xf2, 0x27, 0x02, 0x20, 0x02, 0x20, 0xfe, 0x3f, 0x00, 0x00}; static char ann_mask_bits[] = { 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x7f, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f}; static char ann_bold_bits[] = { 0x00, 0x00, 0xfe, 0x3f, 0xfe, 0x3f, 0x06, 0x30, 0xf6, 0x37, 0xf6, 0x37, 0x36, 0x36, 0x36, 0x36, 0x36, 0x36, 0xf6, 0x37, 0xf6, 0x37, 0x06, 0x30, 0xfe, 0x3f, 0xfe, 0x3f, 0x00, 0x00}; static BtnIcon ann = { ann_bits, ann_mask_bits, ann_width, ann_height }; static BtnIcon annb = { ann_bold_bits, ann_mask_bits, ann_width, ann_height }; static BtnSpec CursorA[] = { { "point", 0, NULL, 0, NULL, 0, NULL, 0, &pnt, &pnt, &pntb, &pntb, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Point } }, { "poly", 0, NULL, 0, NULL, 0, NULL, 0, &poly, &poly, &polyb, &polyb, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Polygon } }, { "circle", 0, NULL, 0, NULL, 0, NULL, 0, &circ, &circ, &circb, &circb, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Circle } }, { "ellipse", 0, NULL, 0, NULL, 0, NULL, 0, &ell, &ell, &ellb, &ellb, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Ellipse } }, { "box", 0, NULL, 0, NULL, 0, NULL, 0, &box, &box, &boxb, &boxb, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Box } }, { "ortho", 0, NULL, 0, NULL, 0, NULL, 0, &orth, &orth, &orthb, &orthb, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Orthogonal } }, { "annuli", 0, NULL, 0, NULL, 0, NULL, 0, &ann, &ann, &annb, &annb, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Annuli } }, { "arrow", 0, NULL, 0, NULL, 0, NULL, 0, &arr, &arr, &arrb, &arrb, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Arrow } }, { "abc", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { COP, COP_Text } } }; static BtnSpec CursorB[] = { { "region", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, 0 } } }; BoxSpec CursorBoxes[] = { { "CursorA", { 0, 9, 9, 1, 10.28571, 1.0, 0.0, 0.0, 0, 1 }, CursorA }, { "CursorB", { 0, 1, 1, 1, 8.0, 1.0, 0.875, 0.0, 0, 1 }, CursorB } }; PanelAttach CursorAttach = { "MainPanel", "MainA", 0, 1, 0, ControlMask, 0, 1, { COP } }; /* PanelSpec CursorPanel = { "CursorPanel", "menucsr.h", 1, 1, CursorBoxes, &CursorAttach }; */ saoimage-1.08/panel/color.mnu 666 21641 13 11650 4740432207 11307 /* #include "ColorIcon.def" */ /* Threshold/Saturation button icons */ #define thresat_width 32 #define thresat_height 16 static char thresat_bits[] = { 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x40, 0x1c, 0x00, 0x00, 0x20, 0x3e, 0x00, 0x00, 0x10, 0x49, 0x00, 0x00, 0x08, 0x08, 0x10, 0x00, 0x04, 0x00, 0x38, 0x00, 0x02, 0x08, 0x7c, 0x00, 0x01, 0x49, 0x92, 0x80, 0x00, 0x3e, 0x10, 0x40, 0x00, 0x1c, 0x00, 0x20, 0x00, 0x08, 0x10, 0x10, 0x00, 0x00, 0x92, 0x08, 0x00, 0x00, 0x7c, 0x04, 0x00, 0x00, 0x38, 0x02, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00 }; static char thresat_mask_bits[] = { 0x00, 0x00, 0xf0, 0x3f, 0x00, 0x00, 0xf8, 0x7f, 0x00, 0x00, 0xfc, 0xff, 0x38, 0x00, 0xfe, 0xff, 0x7c, 0x00, 0xff, 0xff, 0xfe, 0x80, 0xff, 0xff, 0xff, 0xc1, 0xdf, 0xff, 0xff, 0xe3, 0xcf, 0xff, 0xff, 0xf3, 0xc7, 0xff, 0xff, 0xfb, 0x83, 0xff, 0xff, 0xff, 0x01, 0x7f, 0xff, 0xff, 0x00, 0x3e, 0xff, 0x7f, 0x00, 0x1c, 0xff, 0x3f, 0x00, 0x00, 0xfe, 0x1f, 0x00, 0x00, 0xfc, 0x0f, 0x00, 0x00 }; #define thresat_bold_width 32 #define thresat_bold_height 16 static char thresat_bold_bits[] = { 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0xe0, 0x1c, 0x00, 0x00, 0x70, 0x3e, 0x00, 0x00, 0x38, 0x7f, 0x10, 0x00, 0x9c, 0xc9, 0x38, 0x00, 0x0e, 0x08, 0x7c, 0x00, 0x07, 0x08, 0xfe, 0x80, 0x83, 0xc9, 0x93, 0xc1, 0x01, 0x7f, 0x10, 0xe0, 0x00, 0x3e, 0x10, 0x70, 0x00, 0x1c, 0x93, 0x39, 0x00, 0x08, 0xfe, 0x1c, 0x00, 0x00, 0x7c, 0x0e, 0x00, 0x00, 0x38, 0x07, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00 }; static BtnIcon tso = { thresat_bits, thresat_mask_bits, thresat_width, thresat_height }; static BtnIcon tsi = { thresat_bold_bits, thresat_mask_bits, thresat_width, thresat_height }; /* Contrast/Bias button icons */ #define contbias_width 32 #define contbias_height 16 static char contbias_bits[] = { 0x00, 0x80, 0x80, 0x00, 0x10, 0xc0, 0x41, 0x00, 0x38, 0xe0, 0x23, 0x00, 0x7c, 0x90, 0x14, 0x00, 0x92, 0x80, 0x08, 0x00, 0x30, 0x80, 0x04, 0x00, 0x20, 0x00, 0x82, 0x01, 0x60, 0x00, 0x01, 0x03, 0xc0, 0x80, 0x00, 0x06, 0x80, 0x41, 0x00, 0x04, 0x00, 0x20, 0x01, 0x0c, 0x00, 0x10, 0x01, 0x49, 0x00, 0x28, 0x09, 0x3e, 0x00, 0xc4, 0x07, 0x1c, 0x00, 0x82, 0x03, 0x08, 0x00, 0x01, 0x01, 0x00 }; static char contbias_mask_bits[] = { 0x38, 0xe0, 0xf3, 0x03, 0x7c, 0xf0, 0xff, 0x03, 0xfe, 0xf8, 0xff, 0x01, 0xff, 0xfd, 0xff, 0x00, 0xff, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0x07, 0xff, 0xc3, 0xdf, 0x0f, 0xf8, 0xe3, 0xcf, 0x1f, 0xf8, 0xf3, 0xc7, 0x1f, 0xf0, 0xfb, 0xc3, 0xff, 0xe0, 0xff, 0xff, 0xff, 0xc0, 0xff, 0xff, 0xff, 0x00, 0xff, 0xbf, 0xff, 0x80, 0xff, 0x1f, 0x7f, 0xc0, 0xff, 0x0f, 0x3e, 0xc0, 0xcf, 0x07, 0x1c }; #define contbias_bold_width 32 #define contbias_bold_height 16 static char contbias_bold_bits[] = { 0x00, 0x80, 0xc0, 0x01, 0x10, 0xc0, 0xe1, 0x00, 0x38, 0xe0, 0x73, 0x00, 0x7c, 0xf0, 0x3f, 0x00, 0xfe, 0x98, 0x1c, 0x00, 0xba, 0x81, 0x8e, 0x01, 0x30, 0x00, 0x87, 0x03, 0x70, 0x80, 0x03, 0x07, 0xe0, 0xc0, 0x01, 0x0e, 0xc0, 0xe1, 0x00, 0x0c, 0x80, 0x71, 0x81, 0x5d, 0x00, 0x38, 0x19, 0x7f, 0x00, 0xfc, 0x0f, 0x3e, 0x00, 0xce, 0x07, 0x1c, 0x00, 0x87, 0x03, 0x08, 0x80, 0x03, 0x01, 0x00 }; static BtnIcon cbo = { contbias_bits, contbias_mask_bits, contbias_width, contbias_height }; static BtnIcon cbi = { contbias_bold_bits, contbias_mask_bits, contbias_width, contbias_height }; static BtnSpec ColorA[] = { { "mono", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { VOP, VOP_Halftone } }, { "ovlay", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { VOP, VOP_Overlay } }, { "contbias", 0, NULL, 0, NULL, 0, NULL, 0, &cbo, &cbo, &cbi, &cbi, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { VOP, VOP_ContBias } }, { "thresat", 0, NULL, 0, NULL, 0, NULL, 0, &tso, &tso, &tsi, &tsi, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { VOP, VOP_ThreshSat } }, { "gamma", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { VOP, VOP_gamma } }, { "invert", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { VOP, VOP_Invert } }, { "cmap", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, /* { BTNCoMode, BTNCoWhile }, */ { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, 0, 0 } } }; BoxSpec ColorBoxes[] = { { "ColorA", { 0, 7, 7, 1, 7.0, 1.0, 0.0, 0.0, 0, 1}, ColorA } }; PanelAttach ColorAttach = { "MainPanel", "MainA", 0, 1, 0, ControlMask, 0, 1, { VOP } }; /* PanelSpec ColorPanel = { "ColorPanel", "menuclr.h", 1, 3, ColorBoxes, &ColorAttach }; */ saoimage-1.08/panel/scale.mnu 666 21641 13 2644 4740432211 11236 static BtnSpec ScaleA[] = { { "linear", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { SOP, SOP_Linear } }, { "wrap", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { SOP, SOP_Wrap } }, { "log", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { SOP, SOP_Log } }, { "sqrt", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { SOP, SOP_Sqrt } }, { "histeq", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { SOP, SOP_HistEq } }, { "blink", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { SOP, SOP_Blink } } }; BoxSpec ScaleBoxes[] = { { "ScaleA", { 0, 6, 6, 1, 6.0, 1.0, 0.0, 0.0, 0, 1 }, ScaleA } }; PanelAttach ScaleAttach = { "MainPanel", "MainA", 0, 1, 0, ControlMask, 0, 1, { SOP } }; /* PanelSpec ScalePanel = { "ScalePanel", "menuscl.h", 1, 1, ScaleBoxes, &ScaleAttach }; */ saoimage-1.08/panel/makefile 666 21641 13 507 4740432241 11105 #CFLAGS = -c -O -DPSCRIPT CFLAGS = -g -DPSCRIPT LIBS = ../btnlib/tool/libbtool.a ../btnlib/libbtn.a all: main.o cc $(CFLAGS) main.o $(LIBS) -lX11 -o makepanel makepanel rm *.o makepanel main.o: main.mnu etc.mnu cmap.mnu color.mnu cursor.mnu pan.mnu region.mnu \ scale.mnu ../btnlib/buttons.h ../btnlib/tool/btnmenu.h saoimage-1.08/panel/cmap.mnu 666 21641 13 3441 4740432207 11070 static BtnSpec CmapA[] = { { "write", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Write } }, { "read", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Read } }, { "Gray", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Init_A } }, { "BB", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Init_B } }, { "HE", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Init_C } }, { "I8", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Init_D } }, { "A", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Init_E } }, { "B", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { MOP, MOP_Init_F } } }; BoxSpec CmapBoxes[] = { { "CmapA", { 0, 8, 8, 1, 9.333, 1.0, 0.0, 0.0, 0, 1 }, CmapA } }; PanelAttach CmapAttach = { "ColorPanel", "ColorA", 1, 1, 1, ControlMask, 0, 2, { MOP, 0 } }; /* PanelSpec CmapPanel = { "CmapPanel, "menucmap.h", 1, 1, CmapBoxes, &CmapAttach }; */ saoimage-1.08/panel/makemenu.c 666 21641 13 5350 4740432474 11404 #include #include #include "../btnlib/buttons.h" #include "menumain.h" #include "menuclr.h" #include "menucsr.h" #include "menuscl.h" #include "menupan.h" #include "menuetc.h" #include "menurgn.h" #include "menucmap.h" #include "menumono.h" ButtonBox MainPanel[1]; ButtonBox ColorPanel[1]; ButtonBox CursorPanel[2]; ButtonBox ScalePanel[1]; ButtonBox PanPanel[1]; ButtonBox EtcPanel[1]; ButtonBox RegionPanel[1]; ButtonBox CmapPanel[1]; ButtonBox MonoPanel[1]; ButtonBox CreateMenu ( parent, gc, visual, background ) BoxParent *parent; /* i: array of parent window specs */ GC gc; /* i: optional, else 0 */ Visual *visual; /* i: optional, else 0 */ unsigned long background; /* i: optional, else 0 */ { void MakeMainPanel(); void MakeColorPanel(); void MakeCursorPanel(); void MakeScalePanel(); void MakePanPanel(); void MakeEtcPanel(); void MakeRegionPanel(); void MakeCmapPanel(); void MakeMonoPanel(); MakeMainPanel(MainPanel, parent, gc, visual, background); MakeColorPanel(ColorPanel, parent, gc, visual, background); MakeCursorPanel(CursorPanel, parent, gc, visual, background); MakeScalePanel(ScalePanel, parent, gc, visual, background); MakePanPanel(PanPanel, parent, gc, visual, background); MakeEtcPanel(EtcPanel, parent, gc, visual, background); MakeRegionPanel(RegionPanel, parent, gc, visual, background); MakeCmapPanel(CmapPanel, parent, gc, visual, background); MakeMonoPanel(MonoPanel, parent, gc, visual, background); AttachSubmenu(ColorPanel[0], MainPanel[0], 1, 0x4, 0x0); AttachSubmenu(CursorPanel[0], MainPanel[0], 2, 0x4, 0x0); AttachSubmenu(CursorPanel[1], MainPanel[0], 2, 0x4, 0x0); AttachSubmenu(ScalePanel[0], MainPanel[0], 0, 0x4, 0x0); AttachSubmenu(PanPanel[0], MainPanel[0], 3, 0x4, 0x0); AttachSubmenu(EtcPanel[0], MainPanel[0], 4, 0x4, 0x0); AttachSubmenu(RegionPanel[0], CursorPanel[1], 0, 0x4, 0x0); AttachSubmenu(CmapPanel[0], ColorPanel[0], 6, 0x4, 0x0); JoinMenus(CmapPanel[0], ColorPanel[0]); AttachSubmenu(MonoPanel[0], ColorPanel[0], 0, 0x4, 0x0); return( MainPanel[0] ); } void ResizeMenu( parent, flags ) BoxParent *parent; /* i: array of parent window specs */ int *flags; /* i: array of window-changed flags */ { if( flags[0] ) { ResizeBox(MainPanel[0], &parent[0]); } if( flags[1] ) { ResizeBox(ColorPanel[0], &parent[1]); ResizeBox(CursorPanel[0], &parent[1]); ResizeBox(CursorPanel[1], &parent[1]); ResizeBox(ScalePanel[0], &parent[1]); ResizeBox(PanPanel[0], &parent[1]); ResizeBox(EtcPanel[0], &parent[1]); ResizeBox(CmapPanel[0], &parent[1]); } if( flags[6] ) { ResizeBox(RegionPanel[0], &parent[2]); } if( flags[8] ) { ResizeBox(MonoPanel[0], &parent[3]); } } saoimage-1.08/panel/menumain.h 666 21641 13 30703 4740432471 11435 /* Scale button: MainA1 */ #define MainA1_offo_width 37 #define MainA1_offo_height 12 static char MainA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x00, 0x00, 0x08, 0x00, 0x04, 0x01, 0x00, 0x08, 0x00, 0x04, 0x01, 0x00, 0x08, 0x00, 0x04, 0xe0, 0x70, 0x08, 0x03, 0x38, 0x10, 0x89, 0x88, 0x04, 0xc0, 0x08, 0xc0, 0x48, 0x08, 0x02, 0x09, 0xb0, 0xc8, 0x0f, 0x02, 0x09, 0x88, 0x48, 0x00, 0x04, 0x11, 0x89, 0x88, 0x08, 0xf8, 0xe0, 0x70, 0x09, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA1_offo_mask[] = { 0xfc, 0x01, 0x00, 0x1c, 0x00, 0xfe, 0x03, 0x00, 0x1c, 0x00, 0xfe, 0x03, 0x00, 0x1c, 0x00, 0x8e, 0xf3, 0xf9, 0x9c, 0x07, 0xfe, 0xfb, 0xff, 0xdd, 0x0f, 0xfe, 0xfd, 0xff, 0xfd, 0x1f, 0xff, 0xbf, 0xff, 0xfd, 0x1f, 0xe7, 0x1f, 0xfc, 0xfd, 0x1f, 0x8f, 0xbf, 0xff, 0xfd, 0x1f, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xfe, 0xfb, 0xff, 0xdf, 0x1f, 0xfc, 0xf1, 0xf9, 0x9f, 0x0f }; static int MainA1_offo_breaks[] = { 10, 18, 26, 29, 37 }; static ButtonLabel MainA1_offo = { (unsigned char *)MainA1_offo_label, (unsigned char *)MainA1_offo_mask, MainA1_offo_width, MainA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MainA1_offo_breaks }; #define MainA1_offi_width 35 #define MainA1_offi_height 12 static char MainA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x3e, 0x00, 0x00, 0x03, 0x00, 0x63, 0x00, 0x00, 0x03, 0x00, 0x63, 0x00, 0x00, 0x03, 0x00, 0x0f, 0x3e, 0x1e, 0xf3, 0x01, 0x3e, 0x63, 0x33, 0x1b, 0x03, 0x78, 0x03, 0x30, 0x1b, 0x03, 0x63, 0x03, 0x3e, 0xfb, 0x03, 0x63, 0x63, 0x33, 0x1b, 0x00, 0x63, 0x63, 0x33, 0x1b, 0x03, 0x3e, 0x3e, 0x6e, 0xf3, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA1_offi_mask[] = { 0x7f, 0x00, 0x80, 0x07, 0x00, 0xff, 0x00, 0x80, 0x07, 0x00, 0xff, 0x00, 0x80, 0x07, 0x00, 0xff, 0x7f, 0xbf, 0xff, 0x03, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xf7, 0xff, 0xff, 0x07, 0xff, 0xf7, 0xff, 0xff, 0x07, 0xf7, 0xf7, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0x7f, 0x7f, 0xff, 0xff, 0x03 }; static int MainA1_offi_breaks[] = { 8, 16, 24, 27, 35 }; static ButtonLabel MainA1_offi = { (unsigned char *)MainA1_offi_label, (unsigned char *)MainA1_offi_mask, MainA1_offi_width, MainA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MainA1_offi_breaks }; static ButtonLook MainA1_look = { &MainA1_offo, NULL, &MainA1_offo, NULL, &MainA1_offi, NULL, &MainA1_offi, NULL }; static ButtonFeel MainA1_feel = { "MainA1", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 7, 0, 0, 0 } }; /* Color button: MainA2 */ #define MainA2_offo_width 38 #define MainA2_offo_height 12 static char MainA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x00, 0x20, 0x00, 0x00, 0x0c, 0x01, 0x20, 0x00, 0x00, 0x04, 0x02, 0x20, 0x00, 0x00, 0x02, 0xc2, 0x21, 0x1c, 0x1a, 0x02, 0x20, 0x22, 0x22, 0x06, 0x02, 0x10, 0x24, 0x41, 0x02, 0x02, 0x12, 0x24, 0x41, 0x02, 0x04, 0x12, 0x24, 0x41, 0x02, 0x0c, 0x21, 0x22, 0x22, 0x02, 0xf0, 0xc0, 0x21, 0x1c, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA2_offo_mask[] = { 0xf8, 0x01, 0x70, 0x00, 0x00, 0xfe, 0x03, 0x70, 0x00, 0x00, 0xfe, 0x07, 0x70, 0x00, 0x00, 0x9f, 0xe7, 0x73, 0x3e, 0x3f, 0x0f, 0xf7, 0x77, 0x7f, 0x3f, 0x07, 0xff, 0xff, 0xff, 0x3f, 0x07, 0x7f, 0xff, 0xf7, 0x0f, 0x0f, 0x3f, 0xfe, 0xe3, 0x07, 0x9f, 0x7f, 0xff, 0xf7, 0x07, 0xfe, 0xff, 0xff, 0xff, 0x07, 0xfe, 0xf3, 0x77, 0x7f, 0x07, 0xf8, 0xe1, 0x73, 0x3e, 0x07 }; static int MainA2_offo_breaks[] = { 11, 20, 23, 32, 38 }; static ButtonLabel MainA2_offo = { (unsigned char *)MainA2_offo_label, (unsigned char *)MainA2_offo_mask, MainA2_offo_width, MainA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MainA2_offo_breaks }; #define MainA2_offi_width 34 #define MainA2_offi_height 12 static char MainA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x7c, 0x00, 0x06, 0x00, 0x00, 0xc6, 0x00, 0x06, 0x00, 0x00, 0xc3, 0x00, 0x06, 0x00, 0x00, 0x03, 0x7c, 0xe6, 0xf3, 0x01, 0x03, 0xc6, 0x36, 0xb6, 0x01, 0x03, 0xc6, 0x36, 0x36, 0x00, 0xc3, 0xc6, 0x36, 0x36, 0x00, 0xc3, 0xc6, 0x36, 0x36, 0x00, 0xc6, 0xc6, 0x36, 0x36, 0x00, 0x7c, 0x7c, 0xe6, 0x33, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA2_offi_mask[] = { 0xfe, 0x00, 0x0f, 0x00, 0x00, 0xff, 0x01, 0x0f, 0x00, 0x00, 0xff, 0x01, 0x0f, 0x00, 0x00, 0xef, 0xff, 0xff, 0xff, 0x03, 0xe7, 0xff, 0xff, 0xff, 0x03, 0x07, 0xff, 0xff, 0xff, 0x03, 0xe7, 0xef, 0x7f, 0xff, 0x03, 0xe7, 0xef, 0x7f, 0x7f, 0x00, 0xef, 0xef, 0x7f, 0x7f, 0x00, 0xff, 0xff, 0xff, 0x7f, 0x00, 0xff, 0xff, 0xff, 0x7f, 0x00, 0xfe, 0xfe, 0xff, 0x7f, 0x00 }; static int MainA2_offi_breaks[] = { 9, 17, 20, 28, 34 }; static ButtonLabel MainA2_offi = { (unsigned char *)MainA2_offi_label, (unsigned char *)MainA2_offi_mask, MainA2_offi_width, MainA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MainA2_offi_breaks }; static ButtonLook MainA2_look = { &MainA2_offo, NULL, &MainA2_offo, NULL, &MainA2_offi, NULL, &MainA2_offi, NULL }; static ButtonFeel MainA2_feel = { "MainA2", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 8, 0, 0, 0 } }; /* Cursor button: MainA3 */ #define MainA3_offo_width 48 #define MainA3_offo_height 12 static char MainA3_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x01, 0x00, 0x00, 0x00, 0x00, 0x04, 0x02, 0x00, 0x00, 0x00, 0x00, 0x02, 0x12, 0xd2, 0x78, 0x70, 0x68, 0x02, 0x10, 0x32, 0x84, 0x88, 0x18, 0x02, 0x10, 0x12, 0x04, 0x04, 0x09, 0x02, 0x12, 0x12, 0x78, 0x04, 0x09, 0x04, 0x12, 0x12, 0x80, 0x04, 0x09, 0x0c, 0x11, 0x13, 0x84, 0x88, 0x08, 0xf0, 0xe0, 0x12, 0x78, 0x70, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA3_offo_mask[] = { 0xf8, 0x01, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x03, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x07, 0x00, 0x00, 0x00, 0x00, 0x9f, 0x3f, 0xff, 0xfd, 0xf8, 0xfc, 0x0f, 0x3f, 0xff, 0xff, 0xfd, 0xfd, 0x07, 0x3f, 0xff, 0xff, 0xff, 0xff, 0x07, 0x3f, 0x7f, 0xfe, 0xdf, 0x3f, 0x0f, 0x3f, 0x3f, 0xfe, 0x8f, 0x1f, 0x9f, 0xbf, 0x3f, 0xfe, 0xdf, 0x1f, 0xfe, 0xff, 0x3f, 0xfe, 0xff, 0x1f, 0xfe, 0xfb, 0x3f, 0xfe, 0xfd, 0x1d, 0xf8, 0xf1, 0x3f, 0xfc, 0xf8, 0x1c }; static int MainA3_offo_breaks[] = { 11, 19, 25, 33, 42, 48 }; static ButtonLabel MainA3_offo = { (unsigned char *)MainA3_offo_label, (unsigned char *)MainA3_offo_mask, MainA3_offo_width, MainA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 6, 6, 0, MainA3_offo_breaks }; #define MainA3_offi_width 44 #define MainA3_offi_height 12 static char MainA3_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc6, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc3, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xc6, 0x3e, 0x8f, 0xcf, 0x07, 0x03, 0xc6, 0xb6, 0xd9, 0xd8, 0x06, 0x03, 0xc6, 0x86, 0xc3, 0xd8, 0x00, 0xc3, 0xc6, 0x06, 0xcf, 0xd8, 0x00, 0xc3, 0xc6, 0x06, 0xdc, 0xd8, 0x00, 0xc6, 0xc6, 0x86, 0xd9, 0xd8, 0x00, 0x7c, 0xfc, 0x06, 0x8f, 0xcf, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA3_offi_mask[] = { 0xfe, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0xef, 0xef, 0xff, 0xdf, 0xff, 0x0f, 0xe7, 0xef, 0xff, 0xff, 0xff, 0x0f, 0x07, 0xef, 0xff, 0xff, 0xff, 0x0f, 0xe7, 0xef, 0xff, 0xff, 0xfd, 0x0f, 0xe7, 0xef, 0xcf, 0xff, 0xfd, 0x01, 0xef, 0xef, 0xcf, 0xff, 0xfd, 0x01, 0xff, 0xff, 0xcf, 0xff, 0xff, 0x01, 0xff, 0xff, 0xcf, 0xff, 0xff, 0x01, 0xfe, 0xfe, 0x8f, 0xdf, 0xff, 0x01 }; static int MainA3_offi_breaks[] = { 9, 17, 23, 30, 38, 44 }; static ButtonLabel MainA3_offi = { (unsigned char *)MainA3_offi_label, (unsigned char *)MainA3_offi_mask, MainA3_offi_width, MainA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 6, 6, 0, MainA3_offi_breaks }; static ButtonLook MainA3_look = { &MainA3_offo, NULL, &MainA3_offo, NULL, &MainA3_offi, NULL, &MainA3_offi, NULL }; static ButtonFeel MainA3_feel = { "MainA3", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 0, 0, 0 } }; /* Pan button: MainA4 */ #define MainA4_offo_width 24 #define MainA4_offo_height 12 static char MainA4_offo_label[] = { 0x00, 0x00, 0x00, 0x7e, 0x00, 0x00, 0x82, 0x00, 0x00, 0x82, 0x00, 0x00, 0x82, 0x1c, 0x3a, 0x82, 0x22, 0x46, 0x7e, 0x30, 0x42, 0x02, 0x2c, 0x42, 0x02, 0x22, 0x42, 0x02, 0x22, 0x42, 0x02, 0x5c, 0x42, 0x00, 0x00, 0x00 }; static char MainA4_offo_mask[] = { 0xff, 0x00, 0x00, 0xff, 0x01, 0x00, 0xff, 0x01, 0x00, 0xc7, 0x3f, 0x7f, 0xc7, 0x7f, 0xff, 0xff, 0x7f, 0xff, 0xff, 0x7f, 0xef, 0xff, 0x7f, 0xe7, 0x07, 0x7f, 0xe7, 0x07, 0xff, 0xe7, 0x07, 0xff, 0xe7, 0x07, 0xfe, 0xe7 }; static int MainA4_offo_breaks[] = { 8, 16, 24 }; static ButtonLabel MainA4_offo = { (unsigned char *)MainA4_offo_label, (unsigned char *)MainA4_offo_mask, MainA4_offo_width, MainA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, MainA4_offo_breaks }; #define MainA4_offi_width 24 #define MainA4_offi_height 12 static char MainA4_offi_label[] = { 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x63, 0x00, 0x00, 0x63, 0x00, 0x00, 0x63, 0x1e, 0x3f, 0x63, 0x33, 0x63, 0x3f, 0x30, 0x63, 0x03, 0x3e, 0x63, 0x03, 0x33, 0x63, 0x03, 0x33, 0x63, 0x03, 0x6e, 0x63, 0x00, 0x00, 0x00 }; static char MainA4_offi_mask[] = { 0x7f, 0x00, 0x00, 0xff, 0x00, 0x00, 0xff, 0x00, 0x00, 0xf7, 0xbf, 0x7f, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf7, 0xff, 0xff, 0xf7, 0x87, 0xff, 0xf7, 0x87, 0xff, 0xf7, 0x87, 0xff, 0xf7, 0x07, 0xff, 0xf7 }; static int MainA4_offi_breaks[] = { 8, 16, 24 }; static ButtonLabel MainA4_offi = { (unsigned char *)MainA4_offi_label, (unsigned char *)MainA4_offi_mask, MainA4_offi_width, MainA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, MainA4_offi_breaks }; static ButtonLook MainA4_look = { &MainA4_offo, NULL, &MainA4_offo, NULL, &MainA4_offi, NULL, &MainA4_offi, NULL }; static ButtonFeel MainA4_feel = { "MainA4", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 10, 0, 0, 0 } }; /* etc button: MainA5 */ #define MainA5_offo_width 22 #define MainA5_offo_height 14 static char MainA5_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x04, 0x00, 0x18, 0x1e, 0x0e, 0x24, 0x04, 0x11, 0x42, 0x84, 0x00, 0x7e, 0x84, 0x00, 0x02, 0x84, 0x00, 0x44, 0x04, 0x11, 0x38, 0x18, 0x0e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA5_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x0e, 0x00, 0x3c, 0x3f, 0x1f, 0x7e, 0xbf, 0x3f, 0xff, 0xff, 0x3f, 0xff, 0xce, 0x3b, 0xff, 0xce, 0x01, 0xff, 0xce, 0x3b, 0xff, 0xfe, 0x3f, 0xfe, 0xbe, 0x3f, 0x7c, 0x3c, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int MainA5_offo_breaks[] = { 8, 14, 22 }; static ButtonLabel MainA5_offo = { (unsigned char *)MainA5_offo_label, (unsigned char *)MainA5_offo_mask, MainA5_offo_width, MainA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, MainA5_offo_breaks }; #define MainA5_offi_width 22 #define MainA5_offi_height 14 static char MainA5_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x06, 0x00, 0x3e, 0x9f, 0x0f, 0x63, 0xc6, 0x18, 0x63, 0xc6, 0x00, 0x7f, 0xc6, 0x00, 0x03, 0xc6, 0x18, 0x63, 0xc6, 0x18, 0x3e, 0x9c, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MainA5_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x0f, 0x00, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x3f, 0xff, 0xff, 0x3f, 0xff, 0xef, 0x3d, 0xff, 0xef, 0x3d, 0xff, 0xef, 0x3d, 0xff, 0xff, 0x3f, 0xff, 0xff, 0x3f, 0x7f, 0xfe, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int MainA5_offi_breaks[] = { 8, 14, 22 }; static ButtonLabel MainA5_offi = { (unsigned char *)MainA5_offi_label, (unsigned char *)MainA5_offi_mask, MainA5_offi_width, MainA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, MainA5_offi_breaks }; static ButtonLook MainA5_look = { &MainA5_offo, NULL, &MainA5_offo, NULL, &MainA5_offi, NULL, &MainA5_offi, NULL }; static ButtonFeel MainA5_feel = { "MainA5", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 0, 0, 0 } }; static ButtonSpec MainA[] = { { &MainA1_look, &MainA1_feel }, { &MainA2_look, &MainA2_feel }, { &MainA3_look, &MainA3_feel }, { &MainA4_look, &MainA4_feel }, { &MainA5_look, &MainA5_feel } }; static BoxGeometry MainA_geo = { 0, 5, 5, 1, 5.000000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakeMainPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[0], gc, visual, background, &MainA_geo, MainA, 0); } saoimage-1.08/panel/menuclr.h 666 21641 13 47771 4740432472 11307 /* mono button: ColorA1 */ #define ColorA1_offo_width 37 #define ColorA1_offo_height 14 static char ColorA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9a, 0xc1, 0xa1, 0x83, 0x03, 0x66, 0x22, 0x62, 0x44, 0x04, 0x22, 0x12, 0x24, 0x24, 0x08, 0x22, 0x12, 0x24, 0x24, 0x08, 0x22, 0x12, 0x24, 0x24, 0x08, 0x22, 0x22, 0x22, 0x44, 0x04, 0x22, 0xc2, 0x21, 0x84, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ColorA1_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xe3, 0xf3, 0xc7, 0x07, 0xff, 0xf7, 0xf7, 0xef, 0x0f, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xff, 0x7f, 0xff, 0xfe, 0x1e, 0x77, 0x3f, 0x7e, 0x7e, 0x1c, 0x77, 0x7f, 0x7f, 0xfe, 0x1e, 0x77, 0xff, 0x7f, 0xfe, 0x1f, 0x77, 0xf7, 0x77, 0xee, 0x0f, 0x77, 0xe7, 0x73, 0xce, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ColorA1_offo_breaks[] = { 11, 20, 28, 37 }; static ButtonLabel ColorA1_offo = { (unsigned char *)ColorA1_offo_label, (unsigned char *)ColorA1_offo_mask, ColorA1_offo_width, ColorA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, ColorA1_offo_breaks }; #define ColorA1_offi_width 35 #define ColorA1_offi_height 14 static char ColorA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xdf, 0xf1, 0xf9, 0xf1, 0x01, 0x33, 0x1b, 0x1b, 0x1b, 0x03, 0x33, 0x1b, 0x1b, 0x1b, 0x03, 0x33, 0x1b, 0x1b, 0x1b, 0x03, 0x33, 0x1b, 0x1b, 0x1b, 0x03, 0x33, 0x1b, 0x1b, 0x1b, 0x03, 0x33, 0xf3, 0x19, 0xf3, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ColorA1_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xfb, 0xff, 0xfb, 0x03, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xbf, 0xbf, 0xbf, 0x07, 0xff, 0xbf, 0xbf, 0xbf, 0x07, 0xff, 0xbf, 0xbf, 0xbf, 0x07, 0xff, 0xff, 0xbf, 0xff, 0x07, 0xff, 0xff, 0xbf, 0xff, 0x07, 0xff, 0xff, 0xbf, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ColorA1_offi_breaks[] = { 11, 19, 27, 35 }; static ButtonLabel ColorA1_offi = { (unsigned char *)ColorA1_offi_label, (unsigned char *)ColorA1_offi_mask, ColorA1_offi_width, ColorA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, ColorA1_offi_breaks }; static ButtonLook ColorA1_look = { &ColorA1_offo, NULL, &ColorA1_offo, NULL, &ColorA1_offi, NULL, &ColorA1_offi, NULL }; static ButtonFeel ColorA1_feel = { "ColorA1", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 8, 1, 0, 0 } }; /* ovlay button: ColorA2 */ #define ColorA2_offo_width 38 #define ColorA2_offo_height 14 static char ColorA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x38, 0x04, 0x89, 0x43, 0x10, 0x44, 0x04, 0x49, 0x44, 0x10, 0x82, 0x88, 0x08, 0x86, 0x08, 0x82, 0x88, 0x88, 0x85, 0x08, 0x82, 0x50, 0x48, 0x04, 0x05, 0x44, 0x50, 0x48, 0x04, 0x05, 0x38, 0x20, 0x88, 0x0b, 0x02, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x40, 0x02, 0x00, 0x00, 0x00, 0x80, 0x01 }; static char ColorA2_offo_mask[] = { 0x00, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x7c, 0x8e, 0xdf, 0xe7, 0x38, 0xfe, 0x8e, 0xff, 0xef, 0x38, 0xff, 0xdf, 0xff, 0xef, 0x3d, 0xef, 0xdf, 0xff, 0xef, 0x3d, 0xc7, 0xfd, 0xfd, 0xcf, 0x1f, 0xef, 0xfd, 0xfd, 0xcf, 0x1f, 0xff, 0xf9, 0xfc, 0x9f, 0x0f, 0xfe, 0xf8, 0xfc, 0x9f, 0x0f, 0x7c, 0x70, 0xdc, 0xff, 0x07, 0x00, 0x00, 0x00, 0xe0, 0x07, 0x00, 0x00, 0x00, 0xe0, 0x07 }; static int ColorA2_offo_breaks[] = { 9, 18, 21, 29, 38 }; static ButtonLabel ColorA2_offo = { (unsigned char *)ColorA2_offo_label, (unsigned char *)ColorA2_offo_mask, ColorA2_offo_width, ColorA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, ColorA2_offo_breaks }; #define ColorA2_offi_width 36 #define ColorA2_offi_height 14 static char ColorA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x3e, 0xc3, 0xe6, 0x31, 0x06, 0x63, 0xc3, 0x36, 0x33, 0x06, 0x63, 0x66, 0x06, 0x63, 0x06, 0x63, 0x66, 0xe6, 0x63, 0x03, 0x63, 0x24, 0x36, 0x43, 0x03, 0x63, 0x3c, 0x36, 0xc3, 0x03, 0x3e, 0x18, 0xe6, 0x86, 0x01, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x00, 0xb0, 0x01, 0x00, 0x00, 0x00, 0xe0, 0x00 }; static char ColorA2_offi_mask[] = { 0x00, 0x00, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0xff, 0xe7, 0xff, 0x7b, 0x0f, 0xff, 0xe7, 0xff, 0x7f, 0x0f, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xf7, 0xff, 0xff, 0xff, 0x0f, 0xf7, 0xff, 0xff, 0xf7, 0x0f, 0xf7, 0xff, 0xff, 0xf7, 0x07, 0xff, 0x7e, 0xff, 0xef, 0x07, 0xff, 0x7e, 0xff, 0xef, 0x07, 0x7f, 0x3c, 0xff, 0xff, 0x03, 0x00, 0x00, 0x00, 0xf8, 0x03, 0x00, 0x00, 0x00, 0xf8, 0x03 }; static int ColorA2_offi_breaks[] = { 8, 17, 20, 28, 36 }; static ButtonLabel ColorA2_offi = { (unsigned char *)ColorA2_offi_label, (unsigned char *)ColorA2_offi_mask, ColorA2_offi_width, ColorA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, ColorA2_offi_breaks }; static ButtonLook ColorA2_look = { &ColorA2_offo, NULL, &ColorA2_offo, NULL, &ColorA2_offi, NULL, &ColorA2_offi, NULL }; static ButtonFeel ColorA2_feel = { "ColorA2", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 8, 4, 0, 0 } }; /* contbias button: ColorA3 */ #define ColorA3_offo_width 32 #define ColorA3_offo_height 16 static char ColorA3_offo_label[] = { 0x00, 0x80, 0x80, 0x00, 0x10, 0xc0, 0x41, 0x00, 0x38, 0xe0, 0x23, 0x00, 0x7c, 0x90, 0x14, 0x00, 0x92, 0x80, 0x08, 0x00, 0x30, 0x80, 0x04, 0x00, 0x20, 0x00, 0x82, 0x01, 0x60, 0x00, 0x01, 0x03, 0xc0, 0x80, 0x00, 0x06, 0x80, 0x41, 0x00, 0x04, 0x00, 0x20, 0x01, 0x0c, 0x00, 0x10, 0x01, 0x49, 0x00, 0x28, 0x09, 0x3e, 0x00, 0xc4, 0x07, 0x1c, 0x00, 0x82, 0x03, 0x08, 0x00, 0x01, 0x01, 0x00 }; static char ColorA3_offo_mask[] = { 0x38, 0xe0, 0xf3, 0x03, 0x7c, 0xf0, 0xff, 0x03, 0xfe, 0xf8, 0xff, 0x01, 0xff, 0xfd, 0xff, 0x00, 0xff, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0x07, 0xff, 0xc3, 0xdf, 0x0f, 0xf8, 0xe3, 0xcf, 0x1f, 0xf8, 0xf3, 0xc7, 0x1f, 0xf0, 0xfb, 0xc3, 0xff, 0xe0, 0xff, 0xff, 0xff, 0xc0, 0xff, 0xff, 0xff, 0x00, 0xff, 0xbf, 0xff, 0x80, 0xff, 0x1f, 0x7f, 0xc0, 0xff, 0x0f, 0x3e, 0xc0, 0xcf, 0x07, 0x1c }; static ButtonLabel ColorA3_offo = { (unsigned char *)ColorA3_offo_label, (unsigned char *)ColorA3_offo_mask, ColorA3_offo_width, ColorA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 0, 0, NULL }; #define ColorA3_offi_width 32 #define ColorA3_offi_height 16 static char ColorA3_offi_label[] = { 0x00, 0x80, 0xc0, 0x01, 0x10, 0xc0, 0xe1, 0x00, 0x38, 0xe0, 0x73, 0x00, 0x7c, 0xf0, 0x3f, 0x00, 0xfe, 0x98, 0x1c, 0x00, 0xba, 0x81, 0x8e, 0x01, 0x30, 0x00, 0x87, 0x03, 0x70, 0x80, 0x03, 0x07, 0xe0, 0xc0, 0x01, 0x0e, 0xc0, 0xe1, 0x00, 0x0c, 0x80, 0x71, 0x81, 0x5d, 0x00, 0x38, 0x19, 0x7f, 0x00, 0xfc, 0x0f, 0x3e, 0x00, 0xce, 0x07, 0x1c, 0x00, 0x87, 0x03, 0x08, 0x80, 0x03, 0x01, 0x00 }; static char ColorA3_offi_mask[] = { 0x38, 0xe0, 0xf3, 0x03, 0x7c, 0xf0, 0xff, 0x03, 0xfe, 0xf8, 0xff, 0x01, 0xff, 0xfd, 0xff, 0x00, 0xff, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0x07, 0xff, 0xc3, 0xdf, 0x0f, 0xf8, 0xe3, 0xcf, 0x1f, 0xf8, 0xf3, 0xc7, 0x1f, 0xf0, 0xfb, 0xc3, 0xff, 0xe0, 0xff, 0xff, 0xff, 0xc0, 0xff, 0xff, 0xff, 0x00, 0xff, 0xbf, 0xff, 0x80, 0xff, 0x1f, 0x7f, 0xc0, 0xff, 0x0f, 0x3e, 0xc0, 0xcf, 0x07, 0x1c }; static ButtonLabel ColorA3_offi = { (unsigned char *)ColorA3_offi_label, (unsigned char *)ColorA3_offi_mask, ColorA3_offi_width, ColorA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 0, 0, NULL }; static ButtonLook ColorA3_look = { &ColorA3_offo, NULL, &ColorA3_offo, NULL, &ColorA3_offi, NULL, &ColorA3_offi, NULL }; static ButtonFeel ColorA3_feel = { "ColorA3", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 8, 4096, 0, 0 } }; /* thresat button: ColorA4 */ #define ColorA4_offo_width 32 #define ColorA4_offo_height 16 static char ColorA4_offo_label[] = { 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x40, 0x1c, 0x00, 0x00, 0x20, 0x3e, 0x00, 0x00, 0x10, 0x49, 0x00, 0x00, 0x08, 0x08, 0x10, 0x00, 0x04, 0x00, 0x38, 0x00, 0x02, 0x08, 0x7c, 0x00, 0x01, 0x49, 0x92, 0x80, 0x00, 0x3e, 0x10, 0x40, 0x00, 0x1c, 0x00, 0x20, 0x00, 0x08, 0x10, 0x10, 0x00, 0x00, 0x92, 0x08, 0x00, 0x00, 0x7c, 0x04, 0x00, 0x00, 0x38, 0x02, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00 }; static char ColorA4_offo_mask[] = { 0x00, 0x00, 0xf0, 0x3f, 0x00, 0x00, 0xf8, 0x7f, 0x00, 0x00, 0xfc, 0xff, 0x38, 0x00, 0xfe, 0xff, 0x7c, 0x00, 0xff, 0xff, 0xfe, 0x80, 0xff, 0xff, 0xff, 0xc1, 0xdf, 0xff, 0xff, 0xe3, 0xcf, 0xff, 0xff, 0xf3, 0xc7, 0xff, 0xff, 0xfb, 0x83, 0xff, 0xff, 0xff, 0x01, 0x7f, 0xff, 0xff, 0x00, 0x3e, 0xff, 0x7f, 0x00, 0x1c, 0xff, 0x3f, 0x00, 0x00, 0xfe, 0x1f, 0x00, 0x00, 0xfc, 0x0f, 0x00, 0x00 }; static ButtonLabel ColorA4_offo = { (unsigned char *)ColorA4_offo_label, (unsigned char *)ColorA4_offo_mask, ColorA4_offo_width, ColorA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 0, 0, NULL }; #define ColorA4_offi_width 32 #define ColorA4_offi_height 16 static char ColorA4_offi_label[] = { 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0xe0, 0x1c, 0x00, 0x00, 0x70, 0x3e, 0x00, 0x00, 0x38, 0x7f, 0x10, 0x00, 0x9c, 0xc9, 0x38, 0x00, 0x0e, 0x08, 0x7c, 0x00, 0x07, 0x08, 0xfe, 0x80, 0x83, 0xc9, 0x93, 0xc1, 0x01, 0x7f, 0x10, 0xe0, 0x00, 0x3e, 0x10, 0x70, 0x00, 0x1c, 0x93, 0x39, 0x00, 0x08, 0xfe, 0x1c, 0x00, 0x00, 0x7c, 0x0e, 0x00, 0x00, 0x38, 0x07, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00 }; static char ColorA4_offi_mask[] = { 0x00, 0x00, 0xf0, 0x3f, 0x00, 0x00, 0xf8, 0x7f, 0x00, 0x00, 0xfc, 0xff, 0x38, 0x00, 0xfe, 0xff, 0x7c, 0x00, 0xff, 0xff, 0xfe, 0x80, 0xff, 0xff, 0xff, 0xc1, 0xdf, 0xff, 0xff, 0xe3, 0xcf, 0xff, 0xff, 0xf3, 0xc7, 0xff, 0xff, 0xfb, 0x83, 0xff, 0xff, 0xff, 0x01, 0x7f, 0xff, 0xff, 0x00, 0x3e, 0xff, 0x7f, 0x00, 0x1c, 0xff, 0x3f, 0x00, 0x00, 0xfe, 0x1f, 0x00, 0x00, 0xfc, 0x0f, 0x00, 0x00 }; static ButtonLabel ColorA4_offi = { (unsigned char *)ColorA4_offi_label, (unsigned char *)ColorA4_offi_mask, ColorA4_offi_width, ColorA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 0, 0, NULL }; static ButtonLook ColorA4_look = { &ColorA4_offo, NULL, &ColorA4_offo, NULL, &ColorA4_offi, NULL, &ColorA4_offi, NULL }; static ButtonFeel ColorA4_feel = { "ColorA4", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 8, 8192, 0, 0 } }; /* gamma button: ColorA5 */ #define ColorA5_offo_width 46 #define ColorA5_offo_height 14 static char ColorA5_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x58, 0x1c, 0x9a, 0xd1, 0x0c, 0x07, 0x64, 0x22, 0x66, 0x32, 0x93, 0x08, 0x42, 0x30, 0x22, 0x12, 0x11, 0x0c, 0x42, 0x2c, 0x22, 0x12, 0x11, 0x0b, 0x42, 0x22, 0x22, 0x12, 0x91, 0x08, 0x64, 0x22, 0x22, 0x12, 0x91, 0x08, 0x58, 0x5c, 0x22, 0x12, 0x11, 0x17, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x42, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ColorA5_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x3e, 0xff, 0xfb, 0x9f, 0x0f, 0xfe, 0x7f, 0xff, 0xff, 0xff, 0x1f, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x1f, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x1f, 0xe7, 0x7f, 0x77, 0xbf, 0xfb, 0x1f, 0xff, 0x7f, 0x77, 0xbf, 0xfb, 0x1f, 0xff, 0xff, 0x77, 0xbf, 0xfb, 0x3f, 0xfe, 0xff, 0x77, 0xbf, 0xfb, 0x3f, 0xff, 0xfe, 0x77, 0xbf, 0xbb, 0x3f, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ColorA5_offo_breaks[] = { 8, 16, 27, 38, 46 }; static ButtonLabel ColorA5_offo = { (unsigned char *)ColorA5_offo_label, (unsigned char *)ColorA5_offo_mask, ColorA5_offo_width, ColorA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 6, 5, 0, ColorA5_offo_breaks }; #define ColorA5_offi_width 46 #define ColorA5_offi_height 14 static char ColorA5_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7e, 0x1e, 0xdf, 0xf9, 0x8e, 0x07, 0x63, 0x33, 0x33, 0x9b, 0xd9, 0x0c, 0x63, 0x30, 0x33, 0x9b, 0x19, 0x0c, 0x63, 0x3e, 0x33, 0x9b, 0x99, 0x0f, 0x63, 0x33, 0x33, 0x9b, 0xd9, 0x0c, 0x63, 0x33, 0x33, 0x9b, 0xd9, 0x0c, 0x7e, 0x6e, 0x33, 0x9b, 0x99, 0x1b, 0x60, 0x00, 0x00, 0x00, 0x00, 0x00, 0x63, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3e, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ColorA5_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xbf, 0xff, 0xff, 0xdf, 0x0f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xf7, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xf7, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xf7, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ColorA5_offi_breaks[] = { 8, 16, 27, 38, 46 }; static ButtonLabel ColorA5_offi = { (unsigned char *)ColorA5_offi_label, (unsigned char *)ColorA5_offi_mask, ColorA5_offi_width, ColorA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 6, 5, 0, ColorA5_offi_breaks }; static ButtonLook ColorA5_look = { &ColorA5_offo, NULL, &ColorA5_offo, NULL, &ColorA5_offi, NULL, &ColorA5_offi, NULL }; static ButtonFeel ColorA5_feel = { "ColorA5", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 8, 16384, 0, 0 } }; /* invert button: ColorA6 */ #define ColorA6_offo_width 40 #define ColorA6_offo_height 14 static char ColorA6_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x10, 0xd2, 0x11, 0x84, 0xa1, 0x79, 0x32, 0x12, 0x44, 0x62, 0x10, 0x12, 0x22, 0x22, 0x24, 0x10, 0x12, 0x22, 0xe2, 0x27, 0x10, 0x12, 0x42, 0x21, 0x20, 0x10, 0x12, 0x42, 0x41, 0x24, 0x10, 0x12, 0x82, 0x80, 0x23, 0x60, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ColorA6_offo_mask[] = { 0x07, 0x00, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x00, 0x38, 0x07, 0x00, 0x00, 0x00, 0x38, 0xff, 0x3b, 0xce, 0xf3, 0xff, 0xff, 0x3f, 0xee, 0xf7, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0x7f, 0xff, 0xff, 0x38, 0x3f, 0xf7, 0xf7, 0x7f, 0x38, 0x3f, 0xf7, 0xf7, 0x7f, 0x38, 0x3f, 0xe7, 0xf3, 0x7f, 0xf8, 0x3f, 0xe7, 0xe3, 0x7f, 0xf8, 0x3f, 0xc7, 0xc1, 0x77, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ColorA6_offo_breaks[] = { 3, 11, 20, 28, 34, 40 }; static ButtonLabel ColorA6_offo = { (unsigned char *)ColorA6_offo_label, (unsigned char *)ColorA6_offo_mask, ColorA6_offo_width, ColorA6_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 6, 0, ColorA6_offo_breaks }; #define ColorA6_offi_width 40 #define ColorA6_offi_height 14 static char ColorA6_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x18, 0xfb, 0x19, 0xe6, 0xf3, 0x7d, 0x1b, 0x1b, 0x36, 0xb6, 0x19, 0x1b, 0x33, 0x33, 0x36, 0x18, 0x1b, 0x33, 0xf3, 0x37, 0x18, 0x1b, 0x23, 0x31, 0x30, 0x18, 0x1b, 0xe3, 0x31, 0x36, 0x18, 0x1b, 0xc3, 0xe0, 0x33, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ColorA6_offi_mask[] = { 0x07, 0x00, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x00, 0x3c, 0x07, 0x00, 0x00, 0x00, 0x3c, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xbf, 0xff, 0xff, 0xff, 0x3f, 0xbf, 0xff, 0xff, 0x7f, 0x3c, 0xbf, 0xff, 0xff, 0x7f, 0x3c, 0xbf, 0xf7, 0xfb, 0x7f, 0xfc, 0xbf, 0xf7, 0xfb, 0x7f, 0xfc, 0xbf, 0xe7, 0xf1, 0x7f, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ColorA6_offi_breaks[] = { 3, 11, 20, 28, 34, 40 }; static ButtonLabel ColorA6_offi = { (unsigned char *)ColorA6_offi_label, (unsigned char *)ColorA6_offi_mask, ColorA6_offi_width, ColorA6_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 6, 0, ColorA6_offi_breaks }; static ButtonLook ColorA6_look = { &ColorA6_offo, NULL, &ColorA6_offo, NULL, &ColorA6_offi, NULL, &ColorA6_offi, NULL }; static ButtonFeel ColorA6_feel = { "ColorA6", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 8, 128, 0, 0 } }; /* cmap button: ColorA7 */ #define ColorA7_offo_width 35 #define ColorA7_offo_height 14 static char ColorA7_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x38, 0x9a, 0xe1, 0xd0, 0x00, 0x44, 0x66, 0x12, 0x31, 0x01, 0x02, 0x22, 0x82, 0x11, 0x02, 0x02, 0x22, 0x62, 0x11, 0x02, 0x02, 0x22, 0x12, 0x11, 0x02, 0x44, 0x22, 0x12, 0x31, 0x01, 0x38, 0x22, 0xe2, 0xd2, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00 }; static char ColorA7_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7c, 0xff, 0xf3, 0xf9, 0x01, 0xfe, 0xff, 0xff, 0xfb, 0x03, 0xff, 0xff, 0xff, 0xfb, 0x07, 0xef, 0xff, 0xff, 0xfb, 0x07, 0x07, 0x77, 0xff, 0x3b, 0x07, 0xef, 0x77, 0xff, 0xfb, 0x07, 0xff, 0x77, 0xff, 0xff, 0x07, 0xfe, 0x77, 0xff, 0xff, 0x03, 0x7c, 0x77, 0xf7, 0xff, 0x01, 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x00, 0x38, 0x00 }; static int ColorA7_offo_breaks[] = { 8, 19, 27, 35 }; static ButtonLabel ColorA7_offo = { (unsigned char *)ColorA7_offo_label, (unsigned char *)ColorA7_offo_mask, ColorA7_offo_width, ColorA7_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, ColorA7_offo_breaks }; #define ColorA7_offi_width 35 #define ColorA7_offi_height 14 static char ColorA7_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3e, 0xdf, 0xf1, 0xf8, 0x01, 0x63, 0x33, 0x9b, 0x19, 0x03, 0x03, 0x33, 0x83, 0x19, 0x03, 0x03, 0x33, 0xf3, 0x19, 0x03, 0x63, 0x33, 0x9b, 0x19, 0x03, 0x63, 0x33, 0x9b, 0x19, 0x03, 0x3e, 0x33, 0x73, 0xfb, 0x01, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00 }; static char ColorA7_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xff, 0xfb, 0xfd, 0x03, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xf7, 0xff, 0xff, 0xbf, 0x07, 0xf7, 0xff, 0xff, 0xbf, 0x07, 0xf7, 0xff, 0xff, 0xbf, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x03, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x00, 0x3c, 0x00 }; static int ColorA7_offi_breaks[] = { 8, 19, 27, 35 }; static ButtonLabel ColorA7_offi = { (unsigned char *)ColorA7_offi_label, (unsigned char *)ColorA7_offi_mask, ColorA7_offi_width, ColorA7_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, ColorA7_offi_breaks }; static ButtonLook ColorA7_look = { &ColorA7_offo, NULL, &ColorA7_offo, NULL, &ColorA7_offi, NULL, &ColorA7_offi, NULL }; static ButtonFeel ColorA7_feel = { "ColorA7", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 0, 0, 0 } }; static ButtonSpec ColorA[] = { { &ColorA1_look, &ColorA1_feel }, { &ColorA2_look, &ColorA2_feel }, { &ColorA3_look, &ColorA3_feel }, { &ColorA4_look, &ColorA4_feel }, { &ColorA5_look, &ColorA5_feel }, { &ColorA6_look, &ColorA6_feel }, { &ColorA7_look, &ColorA7_feel } }; static BoxGeometry ColorA_geo = { 0, 7, 7, 1, 7.000000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakeColorPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[1], gc, visual, background, &ColorA_geo, ColorA, 0); } saoimage-1.08/panel/menucsr.h 666 21641 13 46501 4740432472 11304 /* point button: CursorA1 */ #define CursorA1_offo_width 6 #define CursorA1_offo_height 6 static char CursorA1_offo_label[] = { 0x00, 0x00, 0x0c, 0x0c, 0x00, 0x00 }; static char CursorA1_offo_mask[] = { 0x1e, 0x3f, 0x3f, 0x3f, 0x3f, 0x1e }; static ButtonLabel CursorA1_offo = { (unsigned char *)CursorA1_offo_label, (unsigned char *)CursorA1_offo_mask, CursorA1_offo_width, CursorA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 1, 0, 0, NULL }; #define CursorA1_offi_width 6 #define CursorA1_offi_height 6 static char CursorA1_offi_label[] = { 0x00, 0x0c, 0x1e, 0x1e, 0x0c, 0x00 }; static char CursorA1_offi_mask[] = { 0x1e, 0x3f, 0x3f, 0x3f, 0x3f, 0x1e }; static ButtonLabel CursorA1_offi = { (unsigned char *)CursorA1_offi_label, (unsigned char *)CursorA1_offi_mask, CursorA1_offi_width, CursorA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 1, 0, 0, NULL }; static ButtonLook CursorA1_look = { &CursorA1_offo, NULL, &CursorA1_offo, NULL, &CursorA1_offi, NULL, &CursorA1_offi, NULL }; static ButtonFeel CursorA1_feel = { "CursorA1", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 256, 0, 0 } }; /* poly button: CursorA2 */ #define CursorA2_offo_width 21 #define CursorA2_offo_height 11 static char CursorA2_offo_label[] = { 0x00, 0x00, 0x00, 0x02, 0x02, 0x08, 0x06, 0x05, 0x0c, 0x8a, 0x08, 0x0a, 0x52, 0x10, 0x09, 0x22, 0xa0, 0x08, 0x02, 0x40, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00 }; static char CursorA2_offo_mask[] = { 0x07, 0x07, 0x1c, 0x8f, 0x0f, 0x1e, 0xdf, 0x1f, 0x1f, 0xff, 0xbf, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xfd, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f }; static ButtonLabel CursorA2_offo = { (unsigned char *)CursorA2_offo_label, (unsigned char *)CursorA2_offo_mask, CursorA2_offo_width, CursorA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 0, 0, NULL }; #define CursorA2_offi_width 21 #define CursorA2_offi_height 11 static char CursorA2_offi_label[] = { 0x00, 0x00, 0x00, 0x02, 0x02, 0x08, 0x06, 0x07, 0x0c, 0x8e, 0x0f, 0x0e, 0xde, 0x1d, 0x0f, 0xfe, 0xb8, 0x0f, 0x76, 0xf0, 0x0d, 0x06, 0xe0, 0x0c, 0xfe, 0xff, 0x0f, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00 }; static char CursorA2_offi_mask[] = { 0x07, 0x07, 0x1c, 0x8f, 0x0f, 0x1e, 0xdf, 0x1f, 0x1f, 0xff, 0xbf, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xfd, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f }; static ButtonLabel CursorA2_offi = { (unsigned char *)CursorA2_offi_label, (unsigned char *)CursorA2_offi_mask, CursorA2_offi_width, CursorA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 0, 0, NULL }; static ButtonLook CursorA2_look = { &CursorA2_offo, NULL, &CursorA2_offo, NULL, &CursorA2_offi, NULL, &CursorA2_offi, NULL }; static ButtonFeel CursorA2_feel = { "CursorA2", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 512, 0, 0 } }; /* circle button: CursorA3 */ #define CursorA3_offo_width 15 #define CursorA3_offo_height 15 static char CursorA3_offo_label[] = { 0x00, 0x00, 0xe0, 0x03, 0x18, 0x0c, 0x04, 0x10, 0x04, 0x10, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x04, 0x10, 0x04, 0x10, 0x18, 0x0c, 0xe0, 0x03, 0x00, 0x00 }; static char CursorA3_offo_mask[] = { 0xf0, 0x07, 0xfc, 0x1f, 0xfe, 0x3f, 0xfe, 0x3f, 0x3f, 0x7e, 0x1f, 0x7c, 0x0f, 0x78, 0x0f, 0x78, 0x0f, 0x78, 0x1f, 0x7c, 0x3f, 0x7e, 0xfe, 0x3f, 0xfe, 0x3f, 0xfc, 0x1f, 0xf0, 0x07 }; static ButtonLabel CursorA3_offo = { (unsigned char *)CursorA3_offo_label, (unsigned char *)CursorA3_offo_mask, CursorA3_offo_width, CursorA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; #define CursorA3_offi_width 15 #define CursorA3_offi_height 15 static char CursorA3_offi_label[] = { 0x00, 0x00, 0xe0, 0x03, 0xf8, 0x0f, 0x1c, 0x1c, 0x0c, 0x18, 0x06, 0x30, 0x06, 0x30, 0x06, 0x30, 0x06, 0x30, 0x06, 0x30, 0x0c, 0x18, 0x1c, 0x1c, 0xf8, 0x0f, 0xe0, 0x03, 0x00, 0x00 }; static char CursorA3_offi_mask[] = { 0xf0, 0x07, 0xfc, 0x1f, 0xfe, 0x3f, 0xfe, 0x3f, 0x3f, 0x7e, 0x1f, 0x7c, 0x0f, 0x78, 0x0f, 0x78, 0x0f, 0x78, 0x1f, 0x7c, 0x3f, 0x7e, 0xfe, 0x3f, 0xfe, 0x3f, 0xfc, 0x1f, 0xf0, 0x07 }; static ButtonLabel CursorA3_offi = { (unsigned char *)CursorA3_offi_label, (unsigned char *)CursorA3_offi_mask, CursorA3_offi_width, CursorA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; static ButtonLook CursorA3_look = { &CursorA3_offo, NULL, &CursorA3_offo, NULL, &CursorA3_offi, NULL, &CursorA3_offi, NULL }; static ButtonFeel CursorA3_feel = { "CursorA3", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 1024, 0, 0 } }; /* ellipse button: CursorA4 */ #define CursorA4_offo_width 23 #define CursorA4_offo_height 11 static char CursorA4_offo_label[] = { 0x00, 0x00, 0x00, 0x80, 0xff, 0x00, 0x70, 0x00, 0x07, 0x0c, 0x00, 0x18, 0x02, 0x00, 0x20, 0x02, 0x00, 0x20, 0x02, 0x00, 0x20, 0x0c, 0x00, 0x18, 0x70, 0x00, 0x07, 0x80, 0xff, 0x00, 0x00, 0x00, 0x00 }; static char CursorA4_offo_mask[] = { 0xc0, 0xff, 0x01, 0xf8, 0xff, 0x0f, 0xfe, 0xff, 0x3f, 0xff, 0xff, 0x7f, 0xff, 0x80, 0x7f, 0x1f, 0x00, 0x7c, 0xff, 0x80, 0x7f, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0x3f, 0xf8, 0xff, 0x0f, 0xc0, 0xff, 0x01 }; static ButtonLabel CursorA4_offo = { (unsigned char *)CursorA4_offo_label, (unsigned char *)CursorA4_offo_mask, CursorA4_offo_width, CursorA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 0, 0, NULL }; #define CursorA4_offi_width 23 #define CursorA4_offi_height 11 static char CursorA4_offi_label[] = { 0x00, 0x00, 0x00, 0x80, 0xff, 0x00, 0xf0, 0xff, 0x07, 0x7c, 0x00, 0x1f, 0x0e, 0x00, 0x38, 0x06, 0x00, 0x30, 0x0e, 0x00, 0x38, 0x7c, 0x00, 0x1f, 0xf0, 0xff, 0x07, 0x80, 0xff, 0x00, 0x00, 0x00, 0x00 }; static char CursorA4_offi_mask[] = { 0xc0, 0xff, 0x01, 0xf8, 0xff, 0x0f, 0xfe, 0xff, 0x3f, 0xff, 0xff, 0x7f, 0xff, 0x80, 0x7f, 0x1f, 0x00, 0x7c, 0xff, 0x80, 0x7f, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0x3f, 0xf8, 0xff, 0x0f, 0xc0, 0xff, 0x01 }; static ButtonLabel CursorA4_offi = { (unsigned char *)CursorA4_offi_label, (unsigned char *)CursorA4_offi_mask, CursorA4_offi_width, CursorA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 0, 0, NULL }; static ButtonLook CursorA4_look = { &CursorA4_offo, NULL, &CursorA4_offo, NULL, &CursorA4_offi, NULL, &CursorA4_offi, NULL }; static ButtonFeel CursorA4_feel = { "CursorA4", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 1280, 0, 0 } }; /* box button: CursorA5 */ #define CursorA5_offo_width 21 #define CursorA5_offo_height 11 static char CursorA5_offo_label[] = { 0x00, 0x00, 0x00, 0xfe, 0xff, 0x0f, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0x02, 0x00, 0x08, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00 }; static char CursorA5_offo_mask[] = { 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0x0f, 0x00, 0x1e, 0x0f, 0x00, 0x1e, 0x0f, 0x00, 0x1e, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f }; static ButtonLabel CursorA5_offo = { (unsigned char *)CursorA5_offo_label, (unsigned char *)CursorA5_offo_mask, CursorA5_offo_width, CursorA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 0, 0, NULL }; #define CursorA5_offi_width 21 #define CursorA5_offi_height 11 static char CursorA5_offi_label[] = { 0x00, 0x00, 0x00, 0xfe, 0xff, 0x0f, 0xfe, 0xff, 0x0f, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0x06, 0x00, 0x0c, 0xfe, 0xff, 0x0f, 0xfe, 0xff, 0x0f, 0x00, 0x00, 0x00 }; static char CursorA5_offi_mask[] = { 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0x0f, 0x00, 0x1e, 0x0f, 0x00, 0x1e, 0x0f, 0x00, 0x1e, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0x1f }; static ButtonLabel CursorA5_offi = { (unsigned char *)CursorA5_offi_label, (unsigned char *)CursorA5_offi_mask, CursorA5_offi_width, CursorA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 0, 0, NULL }; static ButtonLook CursorA5_look = { &CursorA5_offo, NULL, &CursorA5_offo, NULL, &CursorA5_offi, NULL, &CursorA5_offi, NULL }; static ButtonFeel CursorA5_feel = { "CursorA5", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 768, 0, 0 } }; /* ortho button: CursorA6 */ #define CursorA6_offo_width 15 #define CursorA6_offo_height 12 static char CursorA6_offo_label[] = { 0x00, 0x00, 0x38, 0x1c, 0x44, 0x22, 0x82, 0x22, 0x82, 0x22, 0x82, 0x1c, 0x82, 0x00, 0x82, 0x00, 0x82, 0x00, 0x44, 0x00, 0x38, 0x00, 0x00, 0x00 }; static char CursorA6_offo_mask[] = { 0x7c, 0x3e, 0xfe, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xef, 0x7f, 0xef, 0x7f, 0xef, 0x3f, 0xef, 0x01, 0xff, 0x01, 0xff, 0x01, 0xfe, 0x00, 0x7c, 0x00 }; static ButtonLabel CursorA6_offo = { (unsigned char *)CursorA6_offo_label, (unsigned char *)CursorA6_offo_mask, CursorA6_offo_width, CursorA6_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; #define CursorA6_offi_width 15 #define CursorA6_offi_height 12 static char CursorA6_offi_label[] = { 0x00, 0x00, 0x38, 0x1c, 0x6c, 0x36, 0xc6, 0x36, 0xc6, 0x36, 0xc6, 0x1c, 0xc6, 0x00, 0xc6, 0x00, 0xc6, 0x00, 0x6c, 0x00, 0x38, 0x00, 0x00, 0x00 }; static char CursorA6_offi_mask[] = { 0x7c, 0x3e, 0xfe, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xef, 0x7f, 0xef, 0x7f, 0xef, 0x3f, 0xef, 0x01, 0xff, 0x01, 0xff, 0x01, 0xfe, 0x00, 0x7c, 0x00 }; static ButtonLabel CursorA6_offi = { (unsigned char *)CursorA6_offi_label, (unsigned char *)CursorA6_offi_mask, CursorA6_offi_width, CursorA6_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; static ButtonLook CursorA6_look = { &CursorA6_offo, NULL, &CursorA6_offo, NULL, &CursorA6_offi, NULL, &CursorA6_offi, NULL }; static ButtonFeel CursorA6_feel = { "CursorA6", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 32768, 0, 0 } }; /* annuli button: CursorA7 */ #define CursorA7_offo_width 15 #define CursorA7_offo_height 15 static char CursorA7_offo_label[] = { 0x00, 0x00, 0xfe, 0x3f, 0x02, 0x20, 0x02, 0x20, 0xf2, 0x27, 0x12, 0x24, 0x12, 0x24, 0x12, 0x24, 0x12, 0x24, 0x12, 0x24, 0xf2, 0x27, 0x02, 0x20, 0x02, 0x20, 0xfe, 0x3f, 0x00, 0x00 }; static char CursorA7_offo_mask[] = { 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x7f, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f }; static ButtonLabel CursorA7_offo = { (unsigned char *)CursorA7_offo_label, (unsigned char *)CursorA7_offo_mask, CursorA7_offo_width, CursorA7_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; #define CursorA7_offi_width 15 #define CursorA7_offi_height 15 static char CursorA7_offi_label[] = { 0x00, 0x00, 0xfe, 0x3f, 0xfe, 0x3f, 0x06, 0x30, 0xf6, 0x37, 0xf6, 0x37, 0x36, 0x36, 0x36, 0x36, 0x36, 0x36, 0xf6, 0x37, 0xf6, 0x37, 0x06, 0x30, 0xfe, 0x3f, 0xfe, 0x3f, 0x00, 0x00 }; static char CursorA7_offi_mask[] = { 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x7f, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f }; static ButtonLabel CursorA7_offi = { (unsigned char *)CursorA7_offi_label, (unsigned char *)CursorA7_offi_mask, CursorA7_offi_width, CursorA7_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; static ButtonLook CursorA7_look = { &CursorA7_offo, NULL, &CursorA7_offo, NULL, &CursorA7_offi, NULL, &CursorA7_offi, NULL }; static ButtonFeel CursorA7_feel = { "CursorA7", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 4096, 0, 0 } }; /* arrow button: CursorA8 */ #define CursorA8_offo_width 16 #define CursorA8_offo_height 9 static char CursorA8_offo_label[] = { 0x00, 0x00, 0x80, 0x01, 0x60, 0x00, 0x18, 0x00, 0xfe, 0x7f, 0x18, 0x00, 0x60, 0x00, 0x80, 0x01, 0x00, 0x00 }; static char CursorA8_offo_mask[] = { 0xc0, 0x03, 0xf0, 0x03, 0xfc, 0x03, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfc, 0x03, 0xf0, 0x03, 0xc0, 0x03 }; static ButtonLabel CursorA8_offo = { (unsigned char *)CursorA8_offo_label, (unsigned char *)CursorA8_offo_mask, CursorA8_offo_width, CursorA8_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; #define CursorA8_offi_width 16 #define CursorA8_offi_height 9 static char CursorA8_offi_label[] = { 0x00, 0x00, 0x80, 0x01, 0xe0, 0x01, 0xf8, 0x00, 0xfe, 0x7f, 0xf8, 0x00, 0xe0, 0x01, 0x80, 0x01, 0x00, 0x00 }; static char CursorA8_offi_mask[] = { 0xc0, 0x03, 0xf0, 0x03, 0xfc, 0x03, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfc, 0x03, 0xf0, 0x03, 0xc0, 0x03 }; static ButtonLabel CursorA8_offi = { (unsigned char *)CursorA8_offi_label, (unsigned char *)CursorA8_offi_mask, CursorA8_offi_width, CursorA8_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 0, 0, NULL }; static ButtonLook CursorA8_look = { &CursorA8_offo, NULL, &CursorA8_offo, NULL, &CursorA8_offi, NULL, &CursorA8_offi, NULL }; static ButtonFeel CursorA8_feel = { "CursorA8", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 1536, 0, 0 } }; /* abc button: CursorA9 */ #define CursorA9_offo_width 24 #define CursorA9_offo_height 14 static char CursorA9_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x02, 0x00, 0x00, 0x02, 0x00, 0x1c, 0x1a, 0x38, 0x22, 0x26, 0x44, 0x30, 0x42, 0x02, 0x2c, 0x42, 0x02, 0x22, 0x42, 0x02, 0x22, 0x26, 0x44, 0x5c, 0x1a, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char CursorA9_offo_mask[] = { 0x00, 0x07, 0x00, 0x00, 0x07, 0x00, 0x00, 0x07, 0x00, 0x3e, 0x3f, 0x7c, 0x7f, 0x7f, 0xfe, 0x7f, 0xff, 0xff, 0x7f, 0xff, 0xef, 0x7f, 0xe7, 0x07, 0x7f, 0xff, 0xef, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xfe, 0xfe, 0x3f, 0x7c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int CursorA9_offo_breaks[] = { 8, 16, 24 }; static ButtonLabel CursorA9_offo = { (unsigned char *)CursorA9_offo_label, (unsigned char *)CursorA9_offo_mask, CursorA9_offo_width, CursorA9_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, CursorA9_offo_breaks }; #define CursorA9_offi_width 24 #define CursorA9_offi_height 14 static char CursorA9_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x03, 0x00, 0x00, 0x03, 0x00, 0x1e, 0x3f, 0x3e, 0x33, 0x63, 0x63, 0x30, 0x63, 0x03, 0x3e, 0x63, 0x03, 0x33, 0x63, 0x63, 0x33, 0x63, 0x63, 0x6e, 0x3f, 0x3e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char CursorA9_offi_mask[] = { 0x80, 0x07, 0x00, 0x80, 0x07, 0x00, 0x80, 0x07, 0x00, 0xbf, 0x7f, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf7, 0xf7, 0xff, 0xf7, 0xf7, 0xff, 0xf7, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int CursorA9_offi_breaks[] = { 8, 16, 24 }; static ButtonLabel CursorA9_offi = { (unsigned char *)CursorA9_offi_label, (unsigned char *)CursorA9_offi_mask, CursorA9_offi_width, CursorA9_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, CursorA9_offi_breaks }; static ButtonLook CursorA9_look = { &CursorA9_offo, NULL, &CursorA9_offo, NULL, &CursorA9_offi, NULL, &CursorA9_offi, NULL }; static ButtonFeel CursorA9_feel = { "CursorA9", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 2, 1792, 0, 0 } }; static ButtonSpec CursorA[] = { { &CursorA1_look, &CursorA1_feel }, { &CursorA2_look, &CursorA2_feel }, { &CursorA3_look, &CursorA3_feel }, { &CursorA4_look, &CursorA4_feel }, { &CursorA5_look, &CursorA5_feel }, { &CursorA6_look, &CursorA6_feel }, { &CursorA7_look, &CursorA7_feel }, { &CursorA8_look, &CursorA8_feel }, { &CursorA9_look, &CursorA9_feel } }; static BoxGeometry CursorA_geo = { 0, 9, 9, 1, 10.285710, 1.000000, 0.000000, 0.000000, 0, 1 }; /* region button: CursorB10 */ #define CursorB10_offo_width 42 #define CursorB10_offo_height 14 static char CursorB10_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1a, 0x06, 0x96, 0x70, 0xe8, 0x00, 0x06, 0x09, 0x99, 0x88, 0x18, 0x01, 0x82, 0x90, 0x90, 0x04, 0x09, 0x01, 0x82, 0x9f, 0x90, 0x04, 0x09, 0x01, 0x82, 0x80, 0x90, 0x04, 0x09, 0x01, 0x02, 0x11, 0x99, 0x88, 0x08, 0x01, 0x02, 0x0e, 0x96, 0x70, 0x08, 0x01, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x80, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x00 }; static char CursorB10_offo_mask[] = { 0x00, 0x00, 0xc0, 0x01, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x00, 0x00, 0x3f, 0x0f, 0xff, 0xf9, 0xfc, 0x01, 0xbf, 0x9f, 0xff, 0xfd, 0xfd, 0x03, 0xff, 0xff, 0xff, 0xff, 0xff, 0x03, 0xcf, 0xff, 0xff, 0xdf, 0xbf, 0x03, 0xc7, 0xff, 0xf9, 0x8f, 0x9f, 0x03, 0xc7, 0xff, 0xff, 0xdf, 0x9f, 0x03, 0xc7, 0xff, 0xff, 0xff, 0x9f, 0x03, 0x87, 0xbf, 0xff, 0xfd, 0x9d, 0x03, 0x07, 0xdf, 0xff, 0xf9, 0x9c, 0x03, 0x00, 0xc0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x3f, 0x00, 0x00, 0x00 }; static int CursorB10_offo_breaks[] = { 6, 14, 22, 25, 34, 42 }; static ButtonLabel CursorB10_offo = { (unsigned char *)CursorB10_offo_label, (unsigned char *)CursorB10_offo_mask, CursorB10_offo_width, CursorB10_offo_height, 0.5, 0.5, 0, 0, /* placement */ 6, 6, 0, CursorB10_offo_breaks }; #define CursorB10_offi_width 41 #define CursorB10_offi_height 14 static char CursorB10_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9f, 0x8f, 0xdf, 0x7c, 0x7e, 0x00, 0xdb, 0xd8, 0xd8, 0xc6, 0xc6, 0x00, 0xc3, 0xd8, 0xd8, 0xc6, 0xc6, 0x00, 0xc3, 0xdf, 0xd8, 0xc6, 0xc6, 0x00, 0xc3, 0xc0, 0xd8, 0xc6, 0xc6, 0x00, 0xc3, 0xd8, 0xd8, 0xc6, 0xc6, 0x00, 0x83, 0x8f, 0xdf, 0x7c, 0xc6, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x18, 0x00, 0x00, 0x00, 0x00, 0x80, 0x0f, 0x00, 0x00, 0x00 }; static char CursorB10_offi_mask[] = { 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0xff, 0xdf, 0xff, 0xff, 0xff, 0x00, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01, 0xff, 0xff, 0xfd, 0xef, 0xef, 0x01, 0xe7, 0xff, 0xfd, 0xef, 0xef, 0x01, 0xe7, 0xff, 0xfd, 0xef, 0xef, 0x01, 0xe7, 0xff, 0xff, 0xff, 0xef, 0x01, 0xe7, 0xff, 0xff, 0xff, 0xef, 0x01, 0xc7, 0xff, 0xff, 0xff, 0xef, 0x01, 0x00, 0xe0, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x3f, 0x00, 0x00, 0x00 }; static int CursorB10_offi_breaks[] = { 6, 14, 22, 25, 33, 41 }; static ButtonLabel CursorB10_offi = { (unsigned char *)CursorB10_offi_label, (unsigned char *)CursorB10_offi_mask, CursorB10_offi_width, CursorB10_offi_height, 0.5, 0.5, 0, 0, /* placement */ 6, 6, 0, CursorB10_offi_breaks }; static ButtonLook CursorB10_look = { &CursorB10_offo, NULL, &CursorB10_offo, NULL, &CursorB10_offi, NULL, &CursorB10_offi, NULL }; static ButtonFeel CursorB10_feel = { "CursorB10", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 0, 0, 0 } }; static ButtonSpec CursorB[] = { { &CursorB10_look, &CursorB10_feel } }; static BoxGeometry CursorB_geo = { 0, 1, 1, 1, 8.000000, 1.000000, 0.875000, 0.000000, 0, 1 }; void MakeCursorPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[2]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[1], gc, visual, background, &CursorA_geo, CursorA, 0); box[1] = MakeButtonBox(&parent[1], gc, visual, background, &CursorB_geo, CursorB, 0); JoinMenus (box[0], box[1]); } saoimage-1.08/panel/menuscl.h 666 21641 13 37765 4740432472 11312 /* linear button: ScaleA1 */ #define ScaleA1_offo_width 36 #define ScaleA1_offo_height 14 static char ScaleA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x12, 0x00, 0x00, 0x00, 0x00, 0x12, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x92, 0x0e, 0x06, 0x87, 0x06, 0x92, 0x11, 0x89, 0x88, 0x01, 0x92, 0x90, 0x10, 0x8c, 0x00, 0x92, 0x90, 0x1f, 0x8b, 0x00, 0x92, 0x90, 0x80, 0x88, 0x00, 0x92, 0x10, 0x91, 0x88, 0x00, 0x92, 0x10, 0x0e, 0x97, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ScaleA1_offo_mask[] = { 0x3f, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xff, 0x1f, 0x8f, 0xcf, 0x0f, 0xff, 0xbf, 0xdf, 0xdf, 0x0f, 0xff, 0xff, 0xff, 0xdf, 0x0f, 0xff, 0xfb, 0xff, 0xdf, 0x03, 0xff, 0xf9, 0xff, 0xdf, 0x01, 0xff, 0xf9, 0xff, 0xdf, 0x01, 0xff, 0xf9, 0xff, 0xff, 0x01, 0xff, 0xb9, 0xff, 0xff, 0x01, 0xff, 0x39, 0x9f, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ScaleA1_offo_breaks[] = { 3, 6, 14, 22, 30, 36 }; static ButtonLabel ScaleA1_offo = { (unsigned char *)ScaleA1_offo_label, (unsigned char *)ScaleA1_offo_mask, ScaleA1_offo_width, ScaleA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 6, 0, ScaleA1_offo_breaks }; #define ScaleA1_offi_width 36 #define ScaleA1_offi_height 14 static char ScaleA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x1b, 0x00, 0x00, 0x00, 0x00, 0x1b, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0xdb, 0x8f, 0x8f, 0xc7, 0x07, 0xdb, 0xd8, 0xd8, 0xcc, 0x06, 0xdb, 0xd8, 0x18, 0xcc, 0x00, 0xdb, 0xd8, 0x9f, 0xcf, 0x00, 0xdb, 0xd8, 0xc0, 0xcc, 0x00, 0xdb, 0xd8, 0xd8, 0xcc, 0x00, 0xdb, 0x98, 0x8f, 0xdb, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char ScaleA1_offi_mask[] = { 0x3f, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xff, 0xdf, 0xdf, 0xef, 0x0f, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xfd, 0xff, 0xff, 0x0f, 0xff, 0xfd, 0xff, 0xff, 0x01, 0xff, 0xfd, 0xff, 0xff, 0x01, 0xff, 0xfd, 0xff, 0xff, 0x01, 0xff, 0xfd, 0xff, 0xff, 0x01, 0xff, 0xfd, 0xdf, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int ScaleA1_offi_breaks[] = { 3, 6, 14, 22, 30, 36 }; static ButtonLabel ScaleA1_offi = { (unsigned char *)ScaleA1_offi_label, (unsigned char *)ScaleA1_offi_mask, ScaleA1_offi_width, ScaleA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 6, 0, ScaleA1_offi_breaks }; static ButtonLook ScaleA1_look = { &ScaleA1_offo, NULL, &ScaleA1_offo, NULL, &ScaleA1_offi, NULL, &ScaleA1_offi, NULL }; static ButtonFeel ScaleA1_feel = { "ScaleA1", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 7, 1, 0, 0 } }; /* wrap button: ScaleA2 */ #define ScaleA2_offo_width 33 #define ScaleA2_offo_height 14 static char ScaleA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x22, 0xd2, 0x38, 0x34, 0x00, 0x22, 0x32, 0x44, 0x4c, 0x00, 0x54, 0x11, 0x60, 0x84, 0x00, 0x54, 0x11, 0x58, 0x84, 0x00, 0x54, 0x11, 0x44, 0x84, 0x00, 0x88, 0x10, 0x44, 0x4c, 0x00, 0x88, 0x10, 0xb8, 0x34, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00 }; static char ScaleA2_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x77, 0xff, 0x7d, 0x7e, 0x00, 0x77, 0xff, 0xff, 0xfe, 0x00, 0xff, 0xff, 0xff, 0xfe, 0x01, 0xff, 0x7f, 0xfe, 0xfe, 0x01, 0xfe, 0x3b, 0xfe, 0xce, 0x01, 0xfe, 0x3b, 0xfe, 0xfe, 0x01, 0xfe, 0x3b, 0xfe, 0xff, 0x01, 0xdc, 0x39, 0xfe, 0xff, 0x00, 0xdc, 0x39, 0xfc, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00 }; static int ScaleA2_offo_breaks[] = { 11, 17, 25, 33 }; static ButtonLabel ScaleA2_offo = { (unsigned char *)ScaleA2_offo_label, (unsigned char *)ScaleA2_offo_mask, ScaleA2_offo_width, ScaleA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, ScaleA2_offo_breaks }; #define ScaleA2_offi_width 34 #define ScaleA2_offi_height 14 static char ScaleA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x23, 0xf6, 0x79, 0xfc, 0x00, 0x23, 0xb6, 0xcd, 0x8c, 0x01, 0x76, 0x33, 0xc0, 0x8c, 0x01, 0x76, 0x33, 0xf8, 0x8c, 0x01, 0xde, 0x33, 0xcc, 0x8c, 0x01, 0x8c, 0x31, 0xcc, 0x8c, 0x01, 0x8c, 0x31, 0xb8, 0xfd, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00 }; static char ScaleA2_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x77, 0xff, 0xff, 0xfe, 0x01, 0x77, 0xff, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0xdf, 0x03, 0xff, 0x7f, 0xfe, 0xdf, 0x03, 0xff, 0x7f, 0xfe, 0xdf, 0x03, 0xff, 0x7f, 0xfe, 0xff, 0x03, 0xde, 0x7b, 0xfe, 0xff, 0x03, 0xde, 0x7b, 0xfc, 0xff, 0x01, 0x00, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x00, 0x00, 0x1e, 0x00 }; static int ScaleA2_offi_breaks[] = { 12, 18, 26, 34 }; static ButtonLabel ScaleA2_offi = { (unsigned char *)ScaleA2_offi_label, (unsigned char *)ScaleA2_offi_mask, ScaleA2_offi_width, ScaleA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, ScaleA2_offi_breaks }; static ButtonLook ScaleA2_look = { &ScaleA2_offo, NULL, &ScaleA2_offo, NULL, &ScaleA2_offi, NULL, &ScaleA2_offi, NULL }; static ButtonFeel ScaleA2_feel = { "ScaleA2", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 7, 2, 0, 0 } }; /* log button: ScaleA3 */ #define ScaleA3_offo_width 20 #define ScaleA3_offo_height 14 static char ScaleA3_offo_label[] = { 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x02, 0x00, 0x00, 0x02, 0x00, 0x00, 0xc2, 0x81, 0x05, 0x22, 0x42, 0x06, 0x12, 0x24, 0x04, 0x12, 0x24, 0x04, 0x12, 0x24, 0x04, 0x22, 0x42, 0x06, 0xc2, 0x81, 0x05, 0x00, 0x00, 0x04, 0x00, 0x20, 0x04, 0x00, 0xc0, 0x03 }; static char ScaleA3_offo_mask[] = { 0x07, 0x00, 0x00, 0x07, 0x00, 0x00, 0x07, 0x00, 0x00, 0xe7, 0xc3, 0x0f, 0xf7, 0xe7, 0x0f, 0xff, 0xff, 0x0f, 0x7f, 0xff, 0x0f, 0x3f, 0x7e, 0x0e, 0x7f, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xf7, 0xe7, 0x0f, 0xe7, 0xf3, 0x0f, 0x00, 0xf0, 0x0f, 0x00, 0xf0, 0x0f }; static int ScaleA3_offo_breaks[] = { 3, 12, 20 }; static ButtonLabel ScaleA3_offo = { (unsigned char *)ScaleA3_offo_label, (unsigned char *)ScaleA3_offo_mask, ScaleA3_offo_width, ScaleA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, ScaleA3_offo_breaks }; #define ScaleA3_offi_width 19 #define ScaleA3_offi_height 14 static char ScaleA3_offi_label[] = { 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x03, 0x00, 0x00, 0x03, 0x00, 0x00, 0xf3, 0xf1, 0x03, 0x1b, 0x1b, 0x03, 0x1b, 0x1b, 0x03, 0x1b, 0x1b, 0x03, 0x1b, 0x1b, 0x03, 0x1b, 0x1b, 0x03, 0xf3, 0xf1, 0x03, 0x00, 0x00, 0x03, 0x00, 0x18, 0x03, 0x00, 0xf0, 0x01 }; static char ScaleA3_offi_mask[] = { 0x07, 0x00, 0x00, 0x07, 0x00, 0x00, 0x07, 0x00, 0x00, 0xff, 0xfb, 0x07, 0xff, 0xff, 0x07, 0xff, 0xff, 0x07, 0xbf, 0xbf, 0x07, 0xbf, 0xbf, 0x07, 0xbf, 0xbf, 0x07, 0xff, 0xff, 0x07, 0xff, 0xff, 0x07, 0xff, 0xff, 0x07, 0x00, 0xfc, 0x07, 0x00, 0xfc, 0x07 }; static int ScaleA3_offi_breaks[] = { 3, 11, 19 }; static ButtonLabel ScaleA3_offi = { (unsigned char *)ScaleA3_offi_label, (unsigned char *)ScaleA3_offi_mask, ScaleA3_offi_width, ScaleA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 3, 0, ScaleA3_offi_breaks }; static ButtonLook ScaleA3_look = { &ScaleA3_offo, NULL, &ScaleA3_offo, NULL, &ScaleA3_offi, NULL, &ScaleA3_offi, NULL }; static ButtonFeel ScaleA3_feel = { "ScaleA3", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 7, 4, 0, 0 } }; /* sqrt button: ScaleA4 */ #define ScaleA4_offo_width 28 #define ScaleA4_offo_height 14 static char ScaleA4_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x01, 0x3c, 0x58, 0x9a, 0x07, 0x42, 0x64, 0x06, 0x01, 0x02, 0x42, 0x02, 0x01, 0x3c, 0x42, 0x02, 0x01, 0x40, 0x42, 0x02, 0x01, 0x42, 0x64, 0x02, 0x01, 0x3c, 0x58, 0x02, 0x06, 0x00, 0x40, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00 }; static char ScaleA4_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x03, 0x00, 0x00, 0x80, 0x03, 0x7e, 0xfc, 0xff, 0x0f, 0xff, 0xfe, 0xff, 0x0f, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x8f, 0x03, 0xff, 0xe7, 0x87, 0x03, 0xff, 0xff, 0x87, 0x03, 0xff, 0xff, 0x87, 0x0f, 0xff, 0xfe, 0x87, 0x0f, 0x7e, 0xfc, 0x07, 0x0f, 0x00, 0xe0, 0x00, 0x00, 0x00, 0xe0, 0x00, 0x00 }; static int ScaleA4_offo_breaks[] = { 8, 16, 22, 28 }; static ButtonLabel ScaleA4_offo = { (unsigned char *)ScaleA4_offo_label, (unsigned char *)ScaleA4_offo_mask, ScaleA4_offo_width, ScaleA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, ScaleA4_offo_breaks }; #define ScaleA4_offi_width 27 #define ScaleA4_offi_height 14 static char ScaleA4_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x1e, 0xbf, 0xef, 0x03, 0xb3, 0xb1, 0xcd, 0x00, 0x87, 0xb1, 0xc1, 0x00, 0x9e, 0xb1, 0xc1, 0x00, 0xb8, 0xb1, 0xc1, 0x00, 0xb3, 0xb1, 0xc1, 0x00, 0x1e, 0xbf, 0x81, 0x03, 0x00, 0x30, 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x30, 0x00, 0x00 }; static char ScaleA4_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0xe0, 0x01, 0xbf, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0x07, 0xff, 0xfb, 0xff, 0x01, 0xff, 0xfb, 0xe3, 0x01, 0xff, 0xfb, 0xe3, 0x01, 0xff, 0xff, 0xe3, 0x07, 0xff, 0xff, 0xe3, 0x07, 0xbf, 0xff, 0xc3, 0x07, 0x00, 0x78, 0x00, 0x00, 0x00, 0x78, 0x00, 0x00 }; static int ScaleA4_offi_breaks[] = { 7, 15, 21, 27 }; static ButtonLabel ScaleA4_offi = { (unsigned char *)ScaleA4_offi_label, (unsigned char *)ScaleA4_offi_mask, ScaleA4_offi_width, ScaleA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, ScaleA4_offi_breaks }; static ButtonLook ScaleA4_look = { &ScaleA4_offo, NULL, &ScaleA4_offo, NULL, &ScaleA4_offi, NULL, &ScaleA4_offi, NULL }; static ButtonFeel ScaleA4_feel = { "ScaleA4", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 7, 3, 0, 0 } }; /* histeq button: ScaleA5 */ #define ScaleA5_offo_width 41 #define ScaleA5_offo_height 14 static char ScaleA5_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x02, 0x02, 0x20, 0x00, 0x00, 0x00, 0x02, 0x00, 0x20, 0x00, 0x00, 0x00, 0x3a, 0xe2, 0xf1, 0x30, 0xb0, 0x00, 0x46, 0x12, 0x22, 0x48, 0xc8, 0x00, 0x42, 0x12, 0x20, 0x84, 0x84, 0x00, 0x42, 0xe2, 0x21, 0xfc, 0x84, 0x00, 0x42, 0x02, 0x22, 0x04, 0x84, 0x00, 0x42, 0x12, 0x22, 0x88, 0xc8, 0x00, 0x42, 0xe2, 0xc1, 0x70, 0xb0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00 }; static char ScaleA5_offo_mask[] = { 0x07, 0x07, 0x00, 0x00, 0x00, 0x00, 0x07, 0x07, 0x70, 0x00, 0x00, 0x00, 0x07, 0x07, 0x70, 0x00, 0x00, 0x00, 0x7f, 0xf7, 0xfb, 0x79, 0xf8, 0x01, 0xff, 0xff, 0xff, 0xfd, 0xfc, 0x01, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01, 0xef, 0xff, 0x77, 0xfe, 0xff, 0x01, 0xe7, 0xff, 0x77, 0xfe, 0xcf, 0x01, 0xe7, 0xff, 0x77, 0xfe, 0xff, 0x01, 0xe7, 0xff, 0xf7, 0xff, 0xff, 0x01, 0xe7, 0xff, 0xf7, 0xfd, 0xfd, 0x01, 0xe7, 0xf7, 0xe3, 0xf9, 0xf8, 0x01, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01 }; static int ScaleA5_offo_breaks[] = { 8, 11, 19, 25, 33, 41 }; static ButtonLabel ScaleA5_offo = { (unsigned char *)ScaleA5_offo_label, (unsigned char *)ScaleA5_offo_mask, ScaleA5_offo_width, ScaleA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 6, 6, 0, ScaleA5_offo_breaks }; #define ScaleA5_offi_width 40 #define ScaleA5_offi_height 14 static char ScaleA5_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x03, 0x00, 0x00, 0x00, 0x03, 0x03, 0x18, 0x00, 0x00, 0x03, 0x00, 0x18, 0x00, 0x00, 0x3f, 0xf3, 0x7c, 0x3e, 0x7e, 0x63, 0x9b, 0x19, 0x63, 0x63, 0x63, 0x3b, 0x18, 0x63, 0x63, 0x63, 0xf3, 0x18, 0x7f, 0x63, 0x63, 0xc3, 0x19, 0x03, 0x63, 0x63, 0x9b, 0x19, 0x63, 0x63, 0x63, 0xf3, 0x70, 0x3e, 0x7e, 0x00, 0x00, 0x00, 0x00, 0x60, 0x00, 0x00, 0x00, 0x00, 0x60, 0x00, 0x00, 0x00, 0x00, 0x60 }; static char ScaleA5_offi_mask[] = { 0x87, 0x07, 0x00, 0x00, 0x00, 0x87, 0x07, 0x3c, 0x00, 0x00, 0x87, 0x07, 0x3c, 0x00, 0x00, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf7, 0xff, 0xbf, 0xff, 0xf7, 0xf7, 0xff, 0xbf, 0xff, 0xf7, 0xf7, 0xff, 0xbf, 0xff, 0xf7, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xf7, 0xff, 0xf9, 0x7f, 0xff, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x00, 0x00, 0x00, 0x00, 0xf0 }; static int ScaleA5_offi_breaks[] = { 8, 11, 18, 24, 32, 40 }; static ButtonLabel ScaleA5_offi = { (unsigned char *)ScaleA5_offi_label, (unsigned char *)ScaleA5_offi_mask, ScaleA5_offi_width, ScaleA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 6, 0, ScaleA5_offi_breaks }; static ButtonLook ScaleA5_look = { &ScaleA5_offo, NULL, &ScaleA5_offo, NULL, &ScaleA5_offi, NULL, &ScaleA5_offi, NULL }; static ButtonFeel ScaleA5_feel = { "ScaleA5", 2, { BTNMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 7, 5, 0, 0 } }; /* blink button: ScaleA6 */ #define ScaleA6_offo_width 29 #define ScaleA6_offo_height 12 static char ScaleA6_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x02, 0x12, 0x80, 0x00, 0x02, 0x12, 0x80, 0x00, 0x02, 0x02, 0x80, 0x00, 0x1a, 0x92, 0x8e, 0x08, 0x26, 0x92, 0x91, 0x04, 0x42, 0x92, 0x90, 0x03, 0x42, 0x92, 0x90, 0x02, 0x42, 0x92, 0x90, 0x04, 0x26, 0x92, 0x90, 0x08, 0x1a, 0x92, 0x90, 0x10, 0x00, 0x00, 0x00, 0x00 }; static char ScaleA6_offo_mask[] = { 0x07, 0x3f, 0xc0, 0x01, 0x07, 0x3f, 0xc0, 0x01, 0x07, 0x3f, 0xc0, 0x01, 0x3f, 0xff, 0xdf, 0x1d, 0x7f, 0xff, 0xff, 0x1f, 0xff, 0xff, 0xff, 0x1f, 0xff, 0xff, 0xfb, 0x0f, 0xe7, 0xff, 0xf9, 0x0f, 0xff, 0xff, 0xf9, 0x1f, 0xff, 0xff, 0xf9, 0x1f, 0x7f, 0xff, 0xf9, 0x1d, 0x3f, 0xff, 0xf9, 0x19 }; static int ScaleA6_offo_breaks[] = { 8, 11, 14, 22, 29 }; static ButtonLabel ScaleA6_offo = { (unsigned char *)ScaleA6_offo_label, (unsigned char *)ScaleA6_offo_mask, ScaleA6_offo_width, ScaleA6_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 5, 0, ScaleA6_offo_breaks }; #define ScaleA6_offi_width 30 #define ScaleA6_offi_height 12 static char ScaleA6_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x03, 0x1b, 0xc0, 0x00, 0x03, 0x1b, 0xc0, 0x00, 0x03, 0x03, 0xc0, 0x00, 0x3f, 0xdb, 0xcf, 0x0c, 0x63, 0xdb, 0xd8, 0x06, 0x63, 0xdb, 0xd8, 0x03, 0x63, 0xdb, 0xd8, 0x03, 0x63, 0xdb, 0xd8, 0x06, 0x63, 0xdb, 0xd8, 0x0c, 0x3f, 0xdb, 0xd8, 0x18, 0x00, 0x00, 0x00, 0x00 }; static char ScaleA6_offi_mask[] = { 0x87, 0x3f, 0xe0, 0x01, 0x87, 0x3f, 0xe0, 0x01, 0x87, 0x3f, 0xe0, 0x01, 0xff, 0xff, 0xff, 0x1f, 0xff, 0xff, 0xff, 0x1f, 0xff, 0xff, 0xff, 0x1f, 0xf7, 0xff, 0xfd, 0x0f, 0xf7, 0xff, 0xfd, 0x0f, 0xf7, 0xff, 0xfd, 0x1f, 0xff, 0xff, 0xfd, 0x3f, 0xff, 0xff, 0xfd, 0x3f, 0xff, 0xff, 0xfd, 0x3d }; static int ScaleA6_offi_breaks[] = { 8, 11, 14, 22, 30 }; static ButtonLabel ScaleA6_offi = { (unsigned char *)ScaleA6_offi_label, (unsigned char *)ScaleA6_offi_mask, ScaleA6_offi_width, ScaleA6_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 5, 0, ScaleA6_offi_breaks }; static ButtonLook ScaleA6_look = { &ScaleA6_offo, NULL, &ScaleA6_offo, NULL, &ScaleA6_offi, NULL, &ScaleA6_offi, NULL }; static ButtonFeel ScaleA6_feel = { "ScaleA6", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 7, 256, 0, 0 } }; static ButtonSpec ScaleA[] = { { &ScaleA1_look, &ScaleA1_feel }, { &ScaleA2_look, &ScaleA2_feel }, { &ScaleA3_look, &ScaleA3_feel }, { &ScaleA4_look, &ScaleA4_feel }, { &ScaleA5_look, &ScaleA5_feel }, { &ScaleA6_look, &ScaleA6_feel } }; static BoxGeometry ScaleA_geo = { 0, 6, 6, 1, 6.000000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakeScalePanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[1], gc, visual, background, &ScaleA_geo, ScaleA, 0); } saoimage-1.08/panel/menupan.h 666 21641 13 35750 4740432472 11277 /* center button: PanA1 */ #define PanA1_offo_width 44 #define PanA1_offo_height 14 static char PanA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x38, 0x18, 0x3a, 0x1e, 0x86, 0x06, 0x44, 0x24, 0x46, 0x04, 0x89, 0x01, 0x02, 0x42, 0x42, 0x84, 0x90, 0x00, 0x02, 0x7e, 0x42, 0x84, 0x9f, 0x00, 0x02, 0x02, 0x42, 0x84, 0x80, 0x00, 0x44, 0x44, 0x42, 0x04, 0x91, 0x00, 0x38, 0x38, 0x42, 0x18, 0x8e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char PanA1_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x7c, 0x3c, 0x7f, 0x3f, 0xcf, 0x0f, 0xfe, 0x7e, 0xff, 0xbf, 0xdf, 0x0f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xef, 0xff, 0xef, 0xce, 0xff, 0x03, 0x07, 0xff, 0xe7, 0xce, 0xff, 0x01, 0xef, 0xff, 0xe7, 0xce, 0xff, 0x01, 0xff, 0xff, 0xe7, 0xfe, 0xff, 0x01, 0xfe, 0xfe, 0xe7, 0xbe, 0xff, 0x01, 0x7c, 0x7c, 0xe7, 0x3c, 0xdf, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int PanA1_offo_breaks[] = { 8, 16, 24, 30, 38, 44 }; static ButtonLabel PanA1_offo = { (unsigned char *)PanA1_offo_label, (unsigned char *)PanA1_offo_mask, PanA1_offo_width, PanA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 6, 6, 0, PanA1_offo_breaks }; #define PanA1_offi_width 44 #define PanA1_offi_height 14 static char PanA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x3e, 0x3e, 0x3f, 0x9f, 0xcf, 0x07, 0x63, 0x63, 0x63, 0xc6, 0xd8, 0x06, 0x03, 0x63, 0x63, 0xc6, 0xd8, 0x00, 0x03, 0x7f, 0x63, 0xc6, 0xdf, 0x00, 0x63, 0x03, 0x63, 0xc6, 0xc0, 0x00, 0x63, 0x63, 0x63, 0xc6, 0xd8, 0x00, 0x3e, 0x3e, 0x63, 0x9c, 0xcf, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char PanA1_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x7f, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xf7, 0xff, 0xf7, 0xef, 0xff, 0x0f, 0xf7, 0xff, 0xf7, 0xef, 0xff, 0x01, 0xf7, 0xff, 0xf7, 0xef, 0xff, 0x01, 0xff, 0xff, 0xf7, 0xff, 0xff, 0x01, 0xff, 0xff, 0xf7, 0xff, 0xff, 0x01, 0x7f, 0xff, 0xf7, 0xfe, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int PanA1_offi_breaks[] = { 8, 16, 24, 30, 38, 44 }; static ButtonLabel PanA1_offi = { (unsigned char *)PanA1_offi_label, (unsigned char *)PanA1_offi_mask, PanA1_offi_width, PanA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 6, 6, 0, PanA1_offi_breaks }; static ButtonLook PanA1_look = { &PanA1_offo, NULL, &PanA1_offo, NULL, &PanA1_offi, NULL, &PanA1_offi, NULL }; static ButtonFeel PanA1_feel = { "PanA1", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 10, 256, 0, 0 } }; /* zoom 1 button: PanA2 */ #define PanA2_offo_width 51 #define PanA2_offo_height 14 static char PanA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xb0, 0x00, 0x3e, 0x1c, 0x38, 0x34, 0x03, 0x80, 0x00, 0x20, 0x22, 0x44, 0xcc, 0x04, 0x80, 0x00, 0x10, 0x41, 0x82, 0x44, 0x04, 0x80, 0x00, 0x08, 0x41, 0x82, 0x44, 0x04, 0x80, 0x00, 0x04, 0x41, 0x82, 0x44, 0x04, 0x80, 0x00, 0x02, 0x22, 0x44, 0x44, 0x04, 0x80, 0x00, 0x3e, 0x1c, 0x38, 0x44, 0x04, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char PanA2_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x01, 0x7f, 0x3e, 0x7c, 0xfe, 0x07, 0xf8, 0x01, 0x7f, 0x7f, 0xfe, 0xfe, 0x0f, 0xf8, 0x01, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xc0, 0x01, 0xfc, 0xf7, 0xef, 0xff, 0x0f, 0xc0, 0x01, 0xbe, 0xe3, 0xc7, 0xef, 0x0e, 0xc0, 0x01, 0x9f, 0xf7, 0xef, 0xef, 0x0e, 0xc0, 0x01, 0xff, 0xff, 0xff, 0xef, 0x0e, 0xc0, 0x01, 0x7f, 0x7f, 0xfe, 0xee, 0x0e, 0xc0, 0x01, 0x7f, 0x3e, 0x7c, 0xee, 0x0e, 0xc0, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int PanA2_offo_breaks[] = { 7, 16, 25, 36, 42, 51 }; static ButtonLabel PanA2_offo = { (unsigned char *)PanA2_offo_label, (unsigned char *)PanA2_offo_mask, PanA2_offo_width, PanA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 7, 6, 0, PanA2_offo_breaks }; #define PanA2_offi_width 50 #define PanA2_offi_height 14 static char PanA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x00, 0x3f, 0x1f, 0x9f, 0xef, 0x00, 0xc0, 0x00, 0xb0, 0xb1, 0xb1, 0x99, 0x01, 0xc0, 0x00, 0x98, 0xb1, 0xb1, 0x99, 0x01, 0xc0, 0x00, 0x8c, 0xb1, 0xb1, 0x99, 0x01, 0xc0, 0x00, 0x86, 0xb1, 0xb1, 0x99, 0x01, 0xc0, 0x00, 0x83, 0xb1, 0xb1, 0x99, 0x01, 0xc0, 0x00, 0x3f, 0x1f, 0x9f, 0x99, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char PanA2_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x01, 0xff, 0xbf, 0xff, 0xff, 0x01, 0xfc, 0x01, 0xff, 0xff, 0xff, 0xff, 0x03, 0xfc, 0x01, 0xff, 0xff, 0xff, 0xff, 0x03, 0xe0, 0x01, 0xfe, 0xfb, 0xfb, 0xff, 0x03, 0xe0, 0x01, 0xff, 0xfb, 0xfb, 0xff, 0x03, 0xe0, 0x01, 0xdf, 0xfb, 0xfb, 0xff, 0x03, 0xe0, 0x01, 0xff, 0xff, 0xff, 0xff, 0x03, 0xe0, 0x01, 0xff, 0xff, 0xff, 0xff, 0x03, 0xe0, 0x01, 0xff, 0xbf, 0xff, 0xff, 0x03, 0xe0, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int PanA2_offi_breaks[] = { 7, 15, 23, 34, 41, 50 }; static ButtonLabel PanA2_offi = { (unsigned char *)PanA2_offi_label, (unsigned char *)PanA2_offi_mask, PanA2_offi_width, PanA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 7, 6, 0, PanA2_offi_breaks }; static ButtonLook PanA2_look = { &PanA2_offo, NULL, &PanA2_offo, NULL, &PanA2_offi, NULL, &PanA2_offi, NULL }; static ButtonFeel PanA2_feel = { "PanA2", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 10, 1, 0, 0 } }; /* x4 button: PanA3 */ #define PanA3_offo_width 16 #define PanA3_offo_height 12 static char PanA3_offo_label[] = { 0x00, 0x00, 0x00, 0x30, 0x00, 0x28, 0x00, 0x24, 0x22, 0x24, 0x22, 0x22, 0x14, 0x21, 0x08, 0x7f, 0x14, 0x20, 0x22, 0x20, 0x22, 0x20, 0x00, 0x00 }; static char PanA3_offo_mask[] = { 0x00, 0x78, 0x00, 0x7c, 0x00, 0x7e, 0x77, 0x7e, 0x77, 0x7f, 0xff, 0x7f, 0xff, 0xff, 0xbe, 0xff, 0xff, 0xff, 0x7f, 0x70, 0x77, 0x70, 0x77, 0x70 }; static int PanA3_offo_breaks[] = { 7, 16 }; static ButtonLabel PanA3_offo = { (unsigned char *)PanA3_offo_label, (unsigned char *)PanA3_offo_mask, PanA3_offo_width, PanA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 2, 0, PanA3_offo_breaks }; #define PanA3_offi_width 16 #define PanA3_offi_height 12 static char PanA3_offi_label[] = { 0x00, 0x00, 0x00, 0x30, 0x00, 0x38, 0x00, 0x3c, 0x33, 0x34, 0x33, 0x36, 0x1e, 0x33, 0x0c, 0x33, 0x1e, 0x7f, 0x33, 0x30, 0x33, 0x30, 0x00, 0x00 }; static char PanA3_offi_mask[] = { 0x00, 0x78, 0x00, 0x7c, 0x00, 0x7e, 0x7f, 0x7e, 0x7f, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xbf, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0x78, 0x7f, 0x78 }; static int PanA3_offi_breaks[] = { 7, 16 }; static ButtonLabel PanA3_offi = { (unsigned char *)PanA3_offi_label, (unsigned char *)PanA3_offi_mask, PanA3_offi_width, PanA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 2, 0, PanA3_offi_breaks }; static ButtonLook PanA3_look = { &PanA3_offo, NULL, &PanA3_offo, NULL, &PanA3_offi, NULL, &PanA3_offi, NULL }; static ButtonFeel PanA3_feel = { "PanA3", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 10, 4, 0, 0 } }; /* x2 button: PanA4 */ #define PanA4_offo_width 16 #define PanA4_offo_height 12 static char PanA4_offo_label[] = { 0x00, 0x00, 0x00, 0x3c, 0x00, 0x42, 0x00, 0x42, 0x22, 0x40, 0x22, 0x20, 0x14, 0x10, 0x08, 0x08, 0x14, 0x04, 0x22, 0x02, 0x22, 0x7f, 0x00, 0x00 }; static char PanA4_offo_mask[] = { 0x00, 0x7e, 0x00, 0xff, 0x00, 0xff, 0x77, 0xe7, 0x77, 0xf7, 0x7f, 0xf8, 0x7f, 0x7c, 0x3e, 0x3e, 0x7f, 0x1f, 0xff, 0xff, 0xf7, 0xff, 0xf7, 0xff }; static int PanA4_offo_breaks[] = { 7, 16 }; static ButtonLabel PanA4_offo = { (unsigned char *)PanA4_offo_label, (unsigned char *)PanA4_offo_mask, PanA4_offo_width, PanA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 2, 0, PanA4_offo_breaks }; #define PanA4_offi_width 16 #define PanA4_offi_height 12 static char PanA4_offi_label[] = { 0x00, 0x00, 0x00, 0x3e, 0x00, 0x63, 0x00, 0x63, 0x33, 0x60, 0x33, 0x30, 0x1e, 0x18, 0x0c, 0x0c, 0x1e, 0x06, 0x33, 0x03, 0x33, 0x7f, 0x00, 0x00 }; static char PanA4_offi_mask[] = { 0x00, 0x7f, 0x80, 0xff, 0x80, 0xff, 0xff, 0xf7, 0xff, 0xff, 0x7f, 0xfc, 0x7f, 0x7e, 0x3f, 0x3f, 0xff, 0x1f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff }; static int PanA4_offi_breaks[] = { 7, 16 }; static ButtonLabel PanA4_offi = { (unsigned char *)PanA4_offi_label, (unsigned char *)PanA4_offi_mask, PanA4_offi_width, PanA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 2, 0, PanA4_offi_breaks }; static ButtonLook PanA4_look = { &PanA4_offo, NULL, &PanA4_offo, NULL, &PanA4_offi, NULL, &PanA4_offi, NULL }; static ButtonFeel PanA4_feel = { "PanA4", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 10, 2, 0, 0 } }; /* x1/2 button: PanA5 */ #define PanA5_offo_width 32 #define PanA5_offo_height 12 static char PanA5_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x20, 0x3c, 0x00, 0x18, 0x20, 0x42, 0x00, 0x16, 0x10, 0x42, 0x22, 0x10, 0x10, 0x40, 0x22, 0x10, 0x08, 0x20, 0x14, 0x10, 0x08, 0x10, 0x08, 0x10, 0x04, 0x08, 0x14, 0x10, 0x04, 0x04, 0x22, 0x10, 0x02, 0x02, 0x22, 0x10, 0x02, 0x7f, 0x00, 0x00, 0x00, 0x00 }; static char PanA5_offo_mask[] = { 0x00, 0x38, 0x70, 0x7e, 0x00, 0x3c, 0x70, 0xff, 0x00, 0x3f, 0x78, 0xff, 0x77, 0x3f, 0x78, 0xe7, 0x77, 0x3f, 0x3c, 0xf7, 0x7f, 0x38, 0x3c, 0xf8, 0x7f, 0x38, 0x1e, 0x7c, 0x3e, 0x38, 0x1e, 0x3e, 0x7f, 0x38, 0x0f, 0x1f, 0x7f, 0x38, 0x8f, 0xff, 0x77, 0x38, 0x87, 0xff, 0x77, 0x38, 0x87, 0xff }; static int PanA5_offo_breaks[] = { 7, 16, 23, 32 }; static ButtonLabel PanA5_offo = { (unsigned char *)PanA5_offo_label, (unsigned char *)PanA5_offo_mask, PanA5_offo_width, PanA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, PanA5_offo_breaks }; #define PanA5_offi_width 33 #define PanA5_offi_height 12 static char PanA5_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x60, 0x7c, 0x00, 0x00, 0x38, 0x60, 0xc6, 0x00, 0x00, 0x3e, 0x30, 0xc6, 0x00, 0x33, 0x30, 0x30, 0xc0, 0x00, 0x33, 0x30, 0x18, 0x60, 0x00, 0x1e, 0x30, 0x18, 0x30, 0x00, 0x0c, 0x30, 0x0c, 0x18, 0x00, 0x1e, 0x30, 0x0c, 0x0c, 0x00, 0x33, 0x30, 0x06, 0x06, 0x00, 0x33, 0x30, 0x06, 0xfe, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char PanA5_offi_mask[] = { 0x00, 0x78, 0xf0, 0xfe, 0x00, 0x00, 0x7c, 0xf0, 0xff, 0x01, 0x00, 0x7f, 0xf8, 0xff, 0x01, 0x7f, 0x7f, 0xf8, 0xef, 0x01, 0x7f, 0x7f, 0x7c, 0xff, 0x01, 0x7f, 0x78, 0x7c, 0xf8, 0x01, 0x7f, 0x78, 0x3e, 0xfc, 0x00, 0x3f, 0x78, 0x3e, 0x7e, 0x00, 0x7f, 0x78, 0x1f, 0x3f, 0x00, 0x7f, 0x78, 0x1f, 0xff, 0x01, 0x7f, 0x78, 0x0f, 0xff, 0x01, 0x7f, 0x78, 0x0f, 0xff, 0x01 }; static int PanA5_offi_breaks[] = { 7, 16, 24, 33 }; static ButtonLabel PanA5_offi = { (unsigned char *)PanA5_offi_label, (unsigned char *)PanA5_offi_mask, PanA5_offi_width, PanA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, PanA5_offi_breaks }; static ButtonLook PanA5_look = { &PanA5_offo, NULL, &PanA5_offo, NULL, &PanA5_offi, NULL, &PanA5_offi, NULL }; static ButtonFeel PanA5_feel = { "PanA5", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 10, 16, 0, 0 } }; /* x1/4 button: PanA6 */ #define PanA6_offo_width 32 #define PanA6_offo_height 12 static char PanA6_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x20, 0x30, 0x00, 0x18, 0x20, 0x28, 0x00, 0x16, 0x10, 0x24, 0x22, 0x10, 0x10, 0x24, 0x22, 0x10, 0x08, 0x22, 0x14, 0x10, 0x08, 0x21, 0x08, 0x10, 0x04, 0x7f, 0x14, 0x10, 0x04, 0x20, 0x22, 0x10, 0x02, 0x20, 0x22, 0x10, 0x02, 0x20, 0x00, 0x00, 0x00, 0x00 }; static char PanA6_offo_mask[] = { 0x00, 0x38, 0x70, 0x78, 0x00, 0x3c, 0x70, 0x7c, 0x00, 0x3f, 0x78, 0x7e, 0x77, 0x3f, 0x78, 0x7e, 0x77, 0x3f, 0x3c, 0x7f, 0x7f, 0x38, 0xbc, 0x7f, 0x7f, 0x38, 0x9e, 0xff, 0x3e, 0x38, 0x9e, 0xff, 0x7f, 0x38, 0x8f, 0xff, 0x7f, 0x38, 0x0f, 0x70, 0x77, 0x38, 0x07, 0x70, 0x77, 0x38, 0x07, 0x70 }; static int PanA6_offo_breaks[] = { 7, 16, 23, 32 }; static ButtonLabel PanA6_offo = { (unsigned char *)PanA6_offo_label, (unsigned char *)PanA6_offo_mask, PanA6_offo_width, PanA6_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, PanA6_offo_breaks }; #define PanA6_offi_width 33 #define PanA6_offi_height 12 static char PanA6_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x60, 0x60, 0x00, 0x00, 0x38, 0x60, 0x70, 0x00, 0x00, 0x3e, 0x30, 0x78, 0x00, 0x33, 0x30, 0x30, 0x68, 0x00, 0x33, 0x30, 0x18, 0x6c, 0x00, 0x1e, 0x30, 0x18, 0x66, 0x00, 0x0c, 0x30, 0x0c, 0x66, 0x00, 0x1e, 0x30, 0x0c, 0xfe, 0x00, 0x33, 0x30, 0x06, 0x60, 0x00, 0x33, 0x30, 0x06, 0x60, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char PanA6_offi_mask[] = { 0x00, 0x78, 0xf0, 0xf0, 0x00, 0x00, 0x7c, 0xf0, 0xf8, 0x00, 0x00, 0x7f, 0xf8, 0xfc, 0x00, 0x7f, 0x7f, 0xf8, 0xfc, 0x00, 0x7f, 0x7f, 0x7c, 0xfe, 0x00, 0x7f, 0x78, 0x7c, 0xff, 0x00, 0x7f, 0x78, 0x3e, 0xff, 0x00, 0x3f, 0x78, 0x3e, 0xff, 0x01, 0x7f, 0x78, 0x1f, 0xff, 0x01, 0x7f, 0x78, 0x1f, 0xff, 0x01, 0x7f, 0x78, 0x0f, 0xf0, 0x00, 0x7f, 0x78, 0x0f, 0xf0, 0x00 }; static int PanA6_offi_breaks[] = { 7, 16, 24, 33 }; static ButtonLabel PanA6_offi = { (unsigned char *)PanA6_offi_label, (unsigned char *)PanA6_offi_mask, PanA6_offi_width, PanA6_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, PanA6_offi_breaks }; static ButtonLook PanA6_look = { &PanA6_offo, NULL, &PanA6_offo, NULL, &PanA6_offi, NULL, &PanA6_offi, NULL }; static ButtonFeel PanA6_feel = { "PanA6", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 10, 32, 0, 0 } }; static ButtonSpec PanA[] = { { &PanA1_look, &PanA1_feel }, { &PanA2_look, &PanA2_feel }, { &PanA3_look, &PanA3_feel }, { &PanA4_look, &PanA4_feel }, { &PanA5_look, &PanA5_feel }, { &PanA6_look, &PanA6_feel } }; static BoxGeometry PanA_geo = { 0, 6, 6, 1, 6.000000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakePanPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[1], gc, visual, background, &PanA_geo, PanA, 0); } saoimage-1.08/panel/menuetc.h 666 21641 13 44304 4740432473 11270 /* new button: EtcA1 */ #define EtcA1_offo_width 27 #define EtcA1_offo_height 14 static char EtcA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3a, 0x18, 0x22, 0x02, 0x46, 0x24, 0x22, 0x02, 0x42, 0x42, 0x54, 0x01, 0x42, 0x7e, 0x54, 0x01, 0x42, 0x02, 0x54, 0x01, 0x42, 0x44, 0x88, 0x00, 0x42, 0x38, 0x88, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA1_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7f, 0x3c, 0x77, 0x07, 0xff, 0x7e, 0x77, 0x07, 0xff, 0xff, 0xff, 0x07, 0xef, 0xff, 0xff, 0x07, 0xe7, 0xff, 0xfe, 0x03, 0xe7, 0xff, 0xfe, 0x03, 0xe7, 0xff, 0xfe, 0x03, 0xe7, 0xfe, 0xdc, 0x01, 0xe7, 0x7c, 0xdc, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA1_offo_breaks[] = { 8, 16, 27 }; static ButtonLabel EtcA1_offo = { (unsigned char *)EtcA1_offo_label, (unsigned char *)EtcA1_offo_mask, EtcA1_offo_width, EtcA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 3, 0, EtcA1_offo_breaks }; #define EtcA1_offi_width 28 #define EtcA1_offi_height 14 static char EtcA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x3e, 0x23, 0x06, 0x63, 0x63, 0x23, 0x06, 0x63, 0x63, 0x76, 0x03, 0x63, 0x7f, 0x76, 0x03, 0x63, 0x03, 0xde, 0x03, 0x63, 0x63, 0x8c, 0x01, 0x63, 0x3e, 0x8c, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA1_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7f, 0xff, 0x77, 0x0f, 0xff, 0xff, 0x77, 0x0f, 0xff, 0xff, 0xff, 0x0f, 0xf7, 0xff, 0xff, 0x0f, 0xf7, 0xff, 0xff, 0x07, 0xf7, 0xff, 0xff, 0x07, 0xf7, 0xff, 0xff, 0x07, 0xf7, 0xff, 0xde, 0x03, 0xf7, 0x7f, 0xde, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA1_offi_breaks[] = { 8, 16, 28 }; static ButtonLabel EtcA1_offi = { (unsigned char *)EtcA1_offi_label, (unsigned char *)EtcA1_offi_mask, EtcA1_offi_width, EtcA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 3, 0, EtcA1_offi_breaks }; static ButtonLook EtcA1_look = { &EtcA1_offo, NULL, &EtcA1_offo, NULL, &EtcA1_offi, NULL, &EtcA1_offi, NULL }; static ButtonFeel EtcA1_feel = { "EtcA1", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 144, 0, 0 } }; /* track button: EtcA2 */ #define EtcA2_offo_width 35 #define EtcA2_offo_height 14 static char EtcA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x04, 0x00, 0x00, 0x20, 0x00, 0x04, 0x00, 0x00, 0x20, 0x00, 0x9e, 0xc6, 0x81, 0x23, 0x02, 0x84, 0x21, 0x42, 0x24, 0x01, 0x84, 0x00, 0x23, 0xe0, 0x00, 0x84, 0xc0, 0x22, 0xa0, 0x00, 0x84, 0x20, 0x22, 0x20, 0x01, 0x84, 0x20, 0x42, 0x24, 0x02, 0x98, 0xc0, 0x85, 0x23, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA2_offo_mask[] = { 0x00, 0x00, 0x00, 0x70, 0x00, 0x0e, 0x00, 0x00, 0x70, 0x00, 0x0e, 0x00, 0x00, 0x70, 0x00, 0xff, 0xef, 0xc3, 0x77, 0x07, 0xff, 0xff, 0xe7, 0xff, 0x07, 0xff, 0xff, 0xf7, 0xff, 0x07, 0xce, 0xf3, 0xf7, 0xfe, 0x03, 0xce, 0xf1, 0x77, 0xf0, 0x03, 0xce, 0xf1, 0xf7, 0xfe, 0x07, 0xfe, 0xf1, 0xff, 0xff, 0x07, 0xfe, 0xf1, 0xef, 0x7f, 0x07, 0xfc, 0xe1, 0xcf, 0x77, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA2_offo_breaks[] = { 6, 12, 20, 28, 35 }; static ButtonLabel EtcA2_offo = { (unsigned char *)EtcA2_offo_label, (unsigned char *)EtcA2_offo_mask, EtcA2_offo_width, EtcA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, EtcA2_offo_breaks }; #define EtcA2_offi_width 36 #define EtcA2_offi_height 14 static char EtcA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x00, 0x06, 0x00, 0x00, 0x30, 0x00, 0x06, 0x00, 0x00, 0x30, 0x00, 0xdf, 0xe7, 0xe1, 0x33, 0x03, 0xc6, 0x36, 0x33, 0xb6, 0x01, 0xc6, 0x00, 0x33, 0xf0, 0x00, 0xc6, 0xe0, 0x33, 0xf0, 0x00, 0xc6, 0x30, 0x33, 0xb6, 0x01, 0xc6, 0x30, 0x33, 0x36, 0x03, 0xdc, 0xe0, 0xe6, 0x33, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA2_offi_mask[] = { 0x00, 0x00, 0x00, 0x78, 0x00, 0x0f, 0x00, 0x00, 0x78, 0x00, 0x0f, 0x00, 0x00, 0x78, 0x00, 0xff, 0xff, 0xf3, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xef, 0xff, 0x7f, 0xff, 0x03, 0xef, 0xf9, 0x7f, 0xff, 0x03, 0xef, 0xf9, 0x7f, 0xff, 0x07, 0xff, 0xf9, 0xff, 0xff, 0x0f, 0xff, 0xf9, 0xff, 0xff, 0x0f, 0xfe, 0xf1, 0xff, 0x7f, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA2_offi_breaks[] = { 6, 12, 20, 28, 36 }; static ButtonLabel EtcA2_offi = { (unsigned char *)EtcA2_offi_label, (unsigned char *)EtcA2_offi_mask, EtcA2_offi_width, EtcA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, EtcA2_offi_breaks }; static ButtonLook EtcA2_look = { &EtcA2_offo, NULL, &EtcA2_offo, NULL, &EtcA2_offi, NULL, &EtcA2_offi, NULL }; static ButtonFeel EtcA2_feel = { "EtcA2", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 64, 0, 0 } }; /* coord button: EtcA3 */ #define EtcA3_offo_width 40 #define EtcA3_offo_height 14 static char EtcA3_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x40, 0x38, 0x38, 0x70, 0x68, 0x58, 0x44, 0x44, 0x88, 0x18, 0x64, 0x02, 0x82, 0x04, 0x09, 0x42, 0x02, 0x82, 0x04, 0x09, 0x42, 0x02, 0x82, 0x04, 0x09, 0x42, 0x44, 0x44, 0x88, 0x08, 0x64, 0x38, 0x38, 0x70, 0x08, 0x58, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA3_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0xe0, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x7c, 0x7c, 0xf8, 0xfc, 0xfc, 0xfe, 0xfe, 0xfc, 0xfd, 0xfe, 0xff, 0xff, 0xff, 0xff, 0xff, 0xef, 0xef, 0xdf, 0x3f, 0xff, 0x07, 0xc7, 0x8f, 0x1f, 0xe7, 0xef, 0xef, 0xdf, 0x1f, 0xff, 0xff, 0xff, 0xff, 0x1f, 0xff, 0xfe, 0xfe, 0xfc, 0x1d, 0xfe, 0x7c, 0x7c, 0xf8, 0x1c, 0xfc, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA3_offo_breaks[] = { 8, 17, 26, 32, 40 }; static ButtonLabel EtcA3_offo = { (unsigned char *)EtcA3_offo_label, (unsigned char *)EtcA3_offo_mask, EtcA3_offo_width, EtcA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, EtcA3_offo_breaks }; #define EtcA3_offi_width 38 #define EtcA3_offi_height 14 static char EtcA3_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x18, 0x3e, 0x3e, 0x3e, 0x9f, 0x1f, 0x63, 0x63, 0x63, 0xdb, 0x18, 0x03, 0x63, 0x63, 0xc3, 0x18, 0x03, 0x63, 0x63, 0xc3, 0x18, 0x63, 0x63, 0x63, 0xc3, 0x18, 0x63, 0x63, 0x63, 0xc3, 0x18, 0x3e, 0x3e, 0x3e, 0x83, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA3_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x00, 0x3c, 0x7f, 0x7f, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xf7, 0xf7, 0xf7, 0xff, 0x3d, 0xf7, 0xf7, 0xf7, 0xe7, 0x3d, 0xf7, 0xf7, 0xf7, 0xe7, 0x3d, 0xff, 0xff, 0xff, 0xe7, 0x3f, 0xff, 0xff, 0xff, 0xe7, 0x3f, 0x7f, 0x7f, 0xff, 0xc7, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA3_offi_breaks[] = { 8, 16, 24, 30, 38 }; static ButtonLabel EtcA3_offi = { (unsigned char *)EtcA3_offi_label, (unsigned char *)EtcA3_offi_mask, EtcA3_offi_width, EtcA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, EtcA3_offi_breaks }; static ButtonLook EtcA3_look = { &EtcA3_offo, NULL, &EtcA3_offo, NULL, &EtcA3_offi, NULL, &EtcA3_offi, NULL }; static ButtonFeel EtcA3_feel = { "EtcA3", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 96, 0, 0 } }; /* verb button: EtcA4 */ #define EtcA4_offo_width 31 #define EtcA4_offo_height 14 static char EtcA4_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x01, 0x82, 0x30, 0x34, 0x0d, 0x82, 0x48, 0x0c, 0x13, 0x44, 0x84, 0x04, 0x21, 0x44, 0xfc, 0x04, 0x21, 0x28, 0x04, 0x04, 0x21, 0x28, 0x88, 0x04, 0x13, 0x10, 0x70, 0x04, 0x0d, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA4_offo_mask[] = { 0x00, 0x00, 0x80, 0x03, 0x00, 0x00, 0x80, 0x03, 0x00, 0x00, 0x80, 0x03, 0xc7, 0x79, 0xfe, 0x1f, 0xc7, 0xfd, 0xfe, 0x3f, 0xef, 0xff, 0xff, 0x7f, 0xef, 0xff, 0x9f, 0x7f, 0xfe, 0xfe, 0x8f, 0x73, 0xfe, 0xfe, 0x8f, 0x7f, 0x7c, 0xfe, 0x8f, 0x7f, 0x7c, 0xfc, 0x8f, 0x3f, 0x38, 0xf8, 0x8e, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA4_offo_breaks[] = { 9, 17, 23, 31 }; static ButtonLabel EtcA4_offo = { (unsigned char *)EtcA4_offo_label, (unsigned char *)EtcA4_offo_mask, EtcA4_offo_width, EtcA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, EtcA4_offo_breaks }; #define EtcA4_offi_width 31 #define EtcA4_offi_height 14 static char EtcA4_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x80, 0x01, 0xc3, 0x7c, 0xbe, 0x1f, 0xc3, 0xc6, 0xb6, 0x31, 0x66, 0xc6, 0x86, 0x31, 0x66, 0xfe, 0x86, 0x31, 0x24, 0x06, 0x86, 0x31, 0x3c, 0xc6, 0x86, 0x31, 0x18, 0x7c, 0x86, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA4_offi_mask[] = { 0x00, 0x00, 0xc0, 0x03, 0x00, 0x00, 0xc0, 0x03, 0x00, 0x00, 0xc0, 0x03, 0xe7, 0xff, 0xff, 0x3f, 0xe7, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7b, 0xff, 0xff, 0xcf, 0x7b, 0xff, 0xff, 0xcf, 0x7b, 0x7e, 0xff, 0xcf, 0x7f, 0x7e, 0xff, 0xcf, 0x7f, 0x3c, 0xfe, 0xcf, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA4_offi_breaks[] = { 9, 17, 23, 31 }; static ButtonLabel EtcA4_offi = { (unsigned char *)EtcA4_offi_label, (unsigned char *)EtcA4_offi_mask, EtcA4_offi_width, EtcA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, EtcA4_offi_breaks }; static ButtonLook EtcA4_look = { &EtcA4_offo, NULL, &EtcA4_offo, NULL, &EtcA4_offi, NULL, &EtcA4_offi, NULL }; static ButtonFeel EtcA4_feel = { "EtcA4", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 16, 0, 0 } }; /* print button: EtcA5 */ #define EtcA5_offo_width 31 #define EtcA5_offo_height 14 static char EtcA5_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x80, 0x00, 0x08, 0x00, 0x00, 0x00, 0x08, 0x1a, 0x9a, 0x74, 0x3c, 0x26, 0x86, 0x8c, 0x08, 0x42, 0x82, 0x84, 0x08, 0x42, 0x82, 0x84, 0x08, 0x42, 0x82, 0x84, 0x08, 0x26, 0x82, 0x84, 0x08, 0x1a, 0x82, 0x84, 0x30, 0x02, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00 }; static char EtcA5_offo_mask[] = { 0x00, 0xc0, 0x01, 0x00, 0x00, 0xc0, 0x01, 0x1c, 0x00, 0xc0, 0x01, 0x1c, 0x3f, 0xff, 0xff, 0x7e, 0x7f, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xcf, 0xdf, 0x1d, 0xe7, 0xc7, 0xcf, 0x1d, 0xff, 0xc7, 0xcf, 0x1d, 0xff, 0xc7, 0xcf, 0x7d, 0x7f, 0xc7, 0xcf, 0x7d, 0x3f, 0xc7, 0xcf, 0x79, 0x07, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x00 }; static int EtcA5_offo_breaks[] = { 8, 14, 17, 25, 31 }; static ButtonLabel EtcA5_offo = { (unsigned char *)EtcA5_offo_label, (unsigned char *)EtcA5_offo_mask, EtcA5_offo_width, EtcA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 5, 0, EtcA5_offo_breaks }; #define EtcA5_offi_width 31 #define EtcA5_offi_height 14 static char EtcA5_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x0c, 0x3f, 0xdf, 0x7e, 0x3e, 0x63, 0xdb, 0xc6, 0x0c, 0x63, 0xc3, 0xc6, 0x0c, 0x63, 0xc3, 0xc6, 0x0c, 0x63, 0xc3, 0xc6, 0x0c, 0x63, 0xc3, 0xc6, 0x0c, 0x3f, 0xc3, 0xc6, 0x38, 0x03, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00 }; static char EtcA5_offi_mask[] = { 0x00, 0xe0, 0x01, 0x00, 0x00, 0xe0, 0x01, 0x1e, 0x00, 0xe0, 0x01, 0x1e, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0xf7, 0xff, 0xef, 0x1f, 0xf7, 0xe7, 0xef, 0x1f, 0xf7, 0xe7, 0xef, 0x1f, 0xff, 0xe7, 0xef, 0x7f, 0xff, 0xe7, 0xef, 0x7f, 0xff, 0xe7, 0xef, 0x7d, 0x07, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x00 }; static int EtcA5_offi_breaks[] = { 8, 14, 17, 25, 31 }; static ButtonLabel EtcA5_offi = { (unsigned char *)EtcA5_offi_label, (unsigned char *)EtcA5_offi_mask, EtcA5_offi_width, EtcA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 5, 0, EtcA5_offi_breaks }; static ButtonLook EtcA5_look = { &EtcA5_offo, NULL, &EtcA5_offo, NULL, &EtcA5_offi, NULL, &EtcA5_offi, NULL }; static ButtonFeel EtcA5_feel = { "EtcA5", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 128, 64, 0 } }; /* raise button: EtcA6 */ #define EtcA6_offo_width 33 #define EtcA6_offo_height 14 static char EtcA6_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1a, 0x87, 0x78, 0x30, 0x00, 0x86, 0x88, 0x84, 0x48, 0x00, 0x02, 0x8c, 0x04, 0x84, 0x00, 0x02, 0x8b, 0x78, 0xfc, 0x00, 0x82, 0x88, 0x80, 0x04, 0x00, 0x82, 0x88, 0x84, 0x88, 0x00, 0x02, 0x97, 0x78, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA6_offo_mask[] = { 0x00, 0xc0, 0x01, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x00, 0x00, 0x00, 0xc0, 0x01, 0x00, 0x00, 0xbf, 0xcf, 0xfd, 0x78, 0x00, 0xff, 0xdf, 0xff, 0xfd, 0x00, 0xff, 0xdf, 0xff, 0xff, 0x01, 0xcf, 0xdf, 0xff, 0xff, 0x01, 0xc7, 0xdf, 0xff, 0xff, 0x01, 0xc7, 0xdf, 0xff, 0xff, 0x01, 0xc7, 0xff, 0xff, 0xff, 0x01, 0xc7, 0xff, 0xff, 0xfd, 0x01, 0x87, 0xff, 0xfd, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA6_offo_breaks[] = { 6, 14, 17, 25, 33 }; static ButtonLabel EtcA6_offo = { (unsigned char *)EtcA6_offo_label, (unsigned char *)EtcA6_offo_mask, EtcA6_offo_width, EtcA6_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, EtcA6_offo_breaks }; #define EtcA6_offi_width 32 #define EtcA6_offi_height 14 static char EtcA6_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9f, 0xc7, 0x3c, 0x3e, 0xdb, 0xcc, 0x66, 0x63, 0x03, 0xcc, 0x0e, 0x63, 0x83, 0xcf, 0x3c, 0x7f, 0xc3, 0xcc, 0x70, 0x03, 0xc3, 0xcc, 0x66, 0x63, 0x83, 0xdb, 0x3c, 0x3e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char EtcA6_offi_mask[] = { 0x00, 0xe0, 0x01, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0xe0, 0x01, 0x00, 0xff, 0xef, 0x7f, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xe7, 0xff, 0xff, 0xff, 0xe7, 0xff, 0xff, 0xff, 0xe7, 0xff, 0xff, 0xff, 0xe7, 0xff, 0xff, 0xff, 0xc7, 0xff, 0x7f, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int EtcA6_offi_breaks[] = { 6, 14, 17, 24, 32 }; static ButtonLabel EtcA6_offi = { (unsigned char *)EtcA6_offi_label, (unsigned char *)EtcA6_offi_mask, EtcA6_offi_width, EtcA6_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 5, 0, EtcA6_offi_breaks }; static ButtonLook EtcA6_look = { &EtcA6_offo, NULL, &EtcA6_offo, NULL, &EtcA6_offi, NULL, &EtcA6_offi, NULL }; static ButtonFeel EtcA6_feel = { "EtcA6", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 32, 0, 0 } }; /* QUIT button: EtcA7 */ #define EtcA7_offo_width 36 #define EtcA7_offo_height 12 static char EtcA7_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x20, 0x90, 0xfc, 0x07, 0x0c, 0x23, 0x90, 0x40, 0x00, 0x04, 0x22, 0x90, 0x40, 0x00, 0x02, 0x24, 0x90, 0x40, 0x00, 0x02, 0x24, 0x90, 0x40, 0x00, 0x02, 0x24, 0x90, 0x40, 0x00, 0x02, 0x24, 0x90, 0x40, 0x00, 0x44, 0x22, 0x90, 0x40, 0x00, 0x8c, 0x43, 0x88, 0x40, 0x00, 0xf0, 0x81, 0x87, 0x40, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00 }; static char EtcA7_offo_mask[] = { 0xf8, 0x71, 0xf8, 0xff, 0x0f, 0xfe, 0x77, 0xf8, 0xff, 0x0f, 0xfe, 0x77, 0xf8, 0xff, 0x0f, 0x9f, 0x7f, 0xf8, 0xe1, 0x00, 0x0f, 0x7f, 0xf8, 0xe1, 0x00, 0x07, 0x7e, 0xf8, 0xe1, 0x00, 0x07, 0x7e, 0xf8, 0xe1, 0x00, 0xef, 0x7f, 0xf8, 0xe1, 0x00, 0xff, 0xff, 0xfc, 0xe1, 0x00, 0xfe, 0xf7, 0xff, 0xe1, 0x00, 0xfe, 0xe7, 0xdf, 0xe1, 0x00, 0xf8, 0xcf, 0xcf, 0xe1, 0x00 }; static int EtcA7_offo_breaks[] = { 12, 22, 25, 36 }; static ButtonLabel EtcA7_offo = { (unsigned char *)EtcA7_offo_label, (unsigned char *)EtcA7_offo_mask, EtcA7_offo_width, EtcA7_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, EtcA7_offo_breaks }; #define EtcA7_offi_width 31 #define EtcA7_offi_height 12 static char EtcA7_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x7c, 0x0c, 0xdb, 0x3f, 0xc6, 0x0c, 0x1b, 0x06, 0x83, 0x0d, 0x1b, 0x06, 0x83, 0x0d, 0x1b, 0x06, 0x83, 0x0d, 0x1b, 0x06, 0x83, 0x0d, 0x1b, 0x06, 0x83, 0x0d, 0x1b, 0x06, 0xb3, 0x0d, 0x1b, 0x06, 0xe6, 0x98, 0x19, 0x06, 0xfc, 0xf0, 0x18, 0x06, 0x80, 0x01, 0x00, 0x00 }; static char EtcA7_offi_mask[] = { 0xfe, 0x9e, 0xff, 0x7f, 0xff, 0x9f, 0xff, 0x7f, 0xff, 0x9f, 0xff, 0x7f, 0xef, 0x9f, 0x3f, 0x0f, 0xc7, 0x9f, 0x3f, 0x0f, 0xc7, 0x9f, 0x3f, 0x0f, 0xc7, 0x9f, 0x3f, 0x0f, 0xff, 0x9f, 0x3f, 0x0f, 0xff, 0xff, 0x3f, 0x0f, 0xff, 0xff, 0x3f, 0x0f, 0xff, 0xff, 0x3f, 0x0f, 0xfe, 0xfb, 0x3d, 0x0f }; static int EtcA7_offi_breaks[] = { 10, 19, 22, 31 }; static ButtonLabel EtcA7_offi = { (unsigned char *)EtcA7_offi_label, (unsigned char *)EtcA7_offi_mask, EtcA7_offi_width, EtcA7_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, EtcA7_offi_breaks }; static ButtonLook EtcA7_look = { &EtcA7_offo, NULL, &EtcA7_offo, NULL, &EtcA7_offi, NULL, &EtcA7_offi, NULL }; static ButtonFeel EtcA7_feel = { "EtcA7", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 3, 256, 0, 0 } }; static ButtonSpec EtcA[] = { { &EtcA1_look, &EtcA1_feel }, { &EtcA2_look, &EtcA2_feel }, { &EtcA3_look, &EtcA3_feel }, { &EtcA4_look, &EtcA4_feel }, { &EtcA5_look, &EtcA5_feel }, { &EtcA6_look, &EtcA6_feel }, { &EtcA7_look, &EtcA7_feel } }; static BoxGeometry EtcA_geo = { 0, 7, 7, 1, 7.000000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakeEtcPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[1], gc, visual, background, &EtcA_geo, EtcA, 0); } saoimage-1.08/panel/menurgn.h 666 21641 13 46112 4740432473 11302 /* view button: RegionA1 */ #define RegionA1_offo_width 31 #define RegionA1_offo_height 14 static char RegionA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x82, 0x84, 0x21, 0x22, 0x82, 0x44, 0x22, 0x22, 0x44, 0x24, 0x44, 0x15, 0x44, 0xe4, 0x47, 0x15, 0x28, 0x24, 0x40, 0x15, 0x28, 0x44, 0x84, 0x08, 0x10, 0x84, 0x83, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA1_offo_mask[] = { 0x00, 0x0e, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0xc7, 0xcf, 0x73, 0x77, 0xc7, 0xef, 0x77, 0x77, 0xef, 0xff, 0xff, 0x7f, 0xef, 0xff, 0xff, 0x7f, 0xfe, 0xfe, 0xef, 0x3f, 0xfe, 0xfe, 0xef, 0x3f, 0x7c, 0xfe, 0xef, 0x3f, 0x7c, 0xee, 0xcf, 0x1d, 0x38, 0xce, 0xc7, 0x1d, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA1_offo_breaks[] = { 9, 12, 20, 31 }; static ButtonLabel RegionA1_offo = { (unsigned char *)RegionA1_offo_label, (unsigned char *)RegionA1_offo_mask, RegionA1_offo_width, RegionA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, RegionA1_offo_breaks }; #define RegionA1_offi_width 32 #define RegionA1_offi_height 14 static char RegionA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc3, 0xe6, 0x33, 0x62, 0xc3, 0x36, 0x36, 0x62, 0x66, 0x36, 0x66, 0x37, 0x66, 0xf6, 0x67, 0x37, 0x24, 0x36, 0xe0, 0x3d, 0x3c, 0x36, 0xc6, 0x18, 0x18, 0xe6, 0xc3, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA1_offi_mask[] = { 0x00, 0x0f, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0xe7, 0xff, 0x7f, 0xf7, 0xe7, 0xff, 0x7f, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0x7e, 0xff, 0xff, 0x7f, 0x7e, 0xff, 0xef, 0x3d, 0x3c, 0xff, 0xe7, 0x3d, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA1_offi_breaks[] = { 9, 12, 20, 32 }; static ButtonLabel RegionA1_offi = { (unsigned char *)RegionA1_offi_label, (unsigned char *)RegionA1_offi_mask, RegionA1_offi_width, RegionA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, RegionA1_offi_breaks }; static ButtonLook RegionA1_look = { &RegionA1_offo, NULL, &RegionA1_offo, NULL, &RegionA1_offi, NULL, &RegionA1_offi, NULL }; static ButtonFeel RegionA1_feel = { "RegionA1", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 6, 0, 0 } }; /* label button: RegionA2 */ #define RegionA2_offo_width 30 #define RegionA2_offo_height 14 static char RegionA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x02, 0x10, 0x00, 0x10, 0x02, 0x10, 0x00, 0x10, 0x02, 0x10, 0x00, 0x10, 0xe2, 0xd0, 0xc0, 0x10, 0x12, 0x31, 0x21, 0x11, 0x82, 0x11, 0x12, 0x12, 0x62, 0x11, 0xf2, 0x13, 0x12, 0x11, 0x12, 0x10, 0x12, 0x31, 0x21, 0x12, 0xe2, 0xd2, 0xc0, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA2_offo_mask[] = { 0x07, 0x38, 0x00, 0x38, 0x07, 0x38, 0x00, 0x38, 0x07, 0x38, 0x00, 0x38, 0xf7, 0xf9, 0xe1, 0x39, 0xff, 0xfb, 0xf3, 0x3b, 0xff, 0xfb, 0xff, 0x3f, 0xff, 0xfb, 0xff, 0x3f, 0xff, 0x3b, 0xff, 0x3f, 0xff, 0xfb, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xf3, 0x3f, 0xf7, 0xff, 0xe1, 0x3b, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA2_offo_breaks[] = { 3, 11, 19, 27, 30 }; static ButtonLabel RegionA2_offo = { (unsigned char *)RegionA2_offo_label, (unsigned char *)RegionA2_offo_mask, RegionA2_offo_width, RegionA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 5, 0, RegionA2_offo_breaks }; #define RegionA2_offi_width 30 #define RegionA2_offi_height 14 static char RegionA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x03, 0x18, 0x00, 0x18, 0x03, 0x18, 0x00, 0x18, 0x03, 0x18, 0x00, 0x18, 0xf3, 0xf8, 0xf1, 0x19, 0x9b, 0x19, 0x1b, 0x1b, 0x83, 0x19, 0x1b, 0x1b, 0xf3, 0x19, 0xfb, 0x1b, 0x9b, 0x19, 0x1b, 0x18, 0x9b, 0x19, 0x1b, 0x1b, 0x73, 0xfb, 0xf1, 0x19, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA2_offi_mask[] = { 0x07, 0x3c, 0x00, 0x3c, 0x07, 0x3c, 0x00, 0x3c, 0x07, 0x3c, 0x00, 0x3c, 0xff, 0xfd, 0xfb, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xbf, 0xff, 0x3f, 0xff, 0xbf, 0xff, 0x3f, 0xff, 0xbf, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xfb, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA2_offi_breaks[] = { 3, 11, 19, 27, 30 }; static ButtonLabel RegionA2_offi = { (unsigned char *)RegionA2_offi_label, (unsigned char *)RegionA2_offi_mask, RegionA2_offi_width, RegionA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 5, 0, RegionA2_offi_breaks }; static ButtonLook RegionA2_look = { &RegionA2_offo, NULL, &RegionA2_offo, NULL, &RegionA2_offi, NULL, &RegionA2_offi, NULL }; static ButtonFeel RegionA2_feel = { "RegionA2", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 3, 0, 0 } }; /* cycle button: RegionA3 */ #define RegionA3_offo_width 36 #define RegionA3_offo_height 14 static char RegionA3_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x38, 0x82, 0x70, 0x84, 0x01, 0x44, 0x82, 0x88, 0x44, 0x02, 0x02, 0x44, 0x04, 0x24, 0x04, 0x02, 0x44, 0x04, 0xe4, 0x07, 0x02, 0x28, 0x04, 0x24, 0x00, 0x44, 0x28, 0x88, 0x44, 0x04, 0x38, 0x10, 0x70, 0x84, 0x03, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x12, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00 }; static char RegionA3_offo_mask[] = { 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x7c, 0xc7, 0xf9, 0xce, 0x03, 0xfe, 0xc7, 0xfd, 0xef, 0x07, 0xff, 0xef, 0xff, 0xff, 0x0f, 0xef, 0xef, 0xdf, 0xff, 0x0f, 0x07, 0xfe, 0x0e, 0xfe, 0x0f, 0xef, 0xfe, 0xde, 0xff, 0x0f, 0xff, 0x7c, 0xfe, 0xff, 0x0f, 0xfe, 0x7c, 0xfc, 0xef, 0x0f, 0x7c, 0x3f, 0xf8, 0xce, 0x07, 0x00, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x3f, 0x00, 0x00, 0x00 }; static int RegionA3_offo_breaks[] = { 8, 17, 25, 28, 36 }; static ButtonLabel RegionA3_offo = { (unsigned char *)RegionA3_offo_label, (unsigned char *)RegionA3_offo_mask, RegionA3_offo_width, RegionA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, RegionA3_offo_breaks }; #define RegionA3_offi_width 35 #define RegionA3_offi_height 14 static char RegionA3_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x3e, 0x63, 0x3e, 0xf3, 0x01, 0x63, 0x63, 0x63, 0x1b, 0x03, 0x03, 0x66, 0x03, 0x1b, 0x03, 0x03, 0x36, 0x03, 0xfb, 0x03, 0x63, 0x34, 0x63, 0x1b, 0x00, 0x63, 0x3c, 0x63, 0x1b, 0x03, 0x3e, 0x18, 0x3e, 0xf3, 0x01, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x1b, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00 }; static char RegionA3_offi_mask[] = { 0x00, 0x00, 0x80, 0x07, 0x00, 0x00, 0x00, 0x80, 0x07, 0x00, 0x00, 0x00, 0x80, 0x07, 0x00, 0xff, 0xf7, 0xff, 0xff, 0x03, 0xff, 0xf7, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xf7, 0xff, 0xf7, 0xff, 0x07, 0xf7, 0xff, 0xf7, 0xff, 0x07, 0xf7, 0xff, 0xf7, 0xff, 0x07, 0xff, 0xfe, 0xff, 0xff, 0x07, 0xff, 0xfe, 0xff, 0xff, 0x07, 0xff, 0x3f, 0xff, 0xff, 0x03, 0x80, 0x3f, 0x00, 0x00, 0x00, 0x80, 0x3f, 0x00, 0x00, 0x00 }; static int RegionA3_offi_breaks[] = { 8, 16, 24, 27, 35 }; static ButtonLabel RegionA3_offi = { (unsigned char *)RegionA3_offi_label, (unsigned char *)RegionA3_offi_mask, RegionA3_offi_width, RegionA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, RegionA3_offi_breaks }; static ButtonLook RegionA3_look = { &RegionA3_offo, NULL, &RegionA3_offo, NULL, &RegionA3_offi, NULL, &RegionA3_offi, NULL }; static ButtonFeel RegionA3_feel = { "RegionA3", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 2, 0, 0 } }; /* omit button: RegionA4 */ #define RegionA4_offo_width 29 #define RegionA4_offo_height 14 static char RegionA4_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x20, 0x02, 0x00, 0x00, 0x00, 0x02, 0x38, 0x34, 0x23, 0x0f, 0x44, 0xcc, 0x24, 0x02, 0x82, 0x44, 0x24, 0x02, 0x82, 0x44, 0x24, 0x02, 0x82, 0x44, 0x24, 0x02, 0x44, 0x44, 0x24, 0x02, 0x38, 0x44, 0x24, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA4_offo_mask[] = { 0x00, 0x00, 0x70, 0x00, 0x00, 0x00, 0x70, 0x07, 0x00, 0x00, 0x70, 0x07, 0x7c, 0xfe, 0xf7, 0x1f, 0xfe, 0xfe, 0xff, 0x1f, 0xff, 0xff, 0xff, 0x1f, 0xef, 0xff, 0x7f, 0x07, 0xc7, 0xef, 0x7e, 0x07, 0xef, 0xef, 0x7e, 0x07, 0xff, 0xef, 0x7e, 0x1f, 0xfe, 0xee, 0x7e, 0x1f, 0x7c, 0xee, 0x7e, 0x1e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA4_offo_breaks[] = { 9, 20, 23, 29 }; static ButtonLabel RegionA4_offo = { (unsigned char *)RegionA4_offo_label, (unsigned char *)RegionA4_offo_mask, RegionA4_offo_width, RegionA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, RegionA4_offo_breaks }; #define RegionA4_offi_width 28 #define RegionA4_offi_height 14 static char RegionA4_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x98, 0x01, 0x00, 0x00, 0x80, 0x01, 0x3e, 0xdf, 0xd9, 0x07, 0x63, 0x33, 0x9b, 0x01, 0x63, 0x33, 0x9b, 0x01, 0x63, 0x33, 0x9b, 0x01, 0x63, 0x33, 0x9b, 0x01, 0x63, 0x33, 0x9b, 0x01, 0x3e, 0x33, 0x1b, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA4_offi_mask[] = { 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0xfc, 0x03, 0x00, 0x00, 0xfc, 0x03, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0xff, 0x0f, 0xf7, 0xff, 0xff, 0x03, 0xf7, 0xff, 0xff, 0x03, 0xf7, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0xff, 0x0f, 0xff, 0xff, 0xbf, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA4_offi_breaks[] = { 8, 19, 22, 28 }; static ButtonLabel RegionA4_offi = { (unsigned char *)RegionA4_offi_label, (unsigned char *)RegionA4_offi_mask, RegionA4_offi_width, RegionA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, RegionA4_offi_breaks }; static ButtonLook RegionA4_look = { &RegionA4_offo, NULL, &RegionA4_offo, NULL, &RegionA4_offi, NULL, &RegionA4_offi, NULL }; static ButtonFeel RegionA4_feel = { "RegionA4", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 4, 0, 0 } }; /* reset button: RegionA5 */ #define RegionA5_offo_width 36 #define RegionA5_offo_height 14 static char RegionA5_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x01, 0x1a, 0x06, 0x0f, 0x86, 0x07, 0x06, 0x89, 0x10, 0x09, 0x01, 0x82, 0x90, 0x80, 0x10, 0x01, 0x82, 0x1f, 0x8f, 0x1f, 0x01, 0x82, 0x00, 0x90, 0x00, 0x01, 0x02, 0x91, 0x10, 0x11, 0x01, 0x02, 0x0e, 0x0f, 0x0e, 0x06, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA5_offo_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x03, 0x00, 0x00, 0x00, 0x80, 0x03, 0x3f, 0x8f, 0x1f, 0xcf, 0x0f, 0xbf, 0xdf, 0xbf, 0xdf, 0x0f, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xcf, 0xff, 0xff, 0xbf, 0x03, 0xc7, 0xff, 0xff, 0xbf, 0x03, 0xc7, 0xff, 0xff, 0xbf, 0x03, 0xc7, 0xff, 0xff, 0xbf, 0x0f, 0x87, 0xff, 0xbf, 0xbf, 0x0f, 0x07, 0x9f, 0x1f, 0x1f, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA5_offo_breaks[] = { 6, 14, 22, 30, 36 }; static ButtonLabel RegionA5_offo = { (unsigned char *)RegionA5_offo_label, (unsigned char *)RegionA5_offo_mask, RegionA5_offo_width, RegionA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, RegionA5_offo_breaks }; #define RegionA5_offi_width 35 #define RegionA5_offi_height 14 static char RegionA5_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x9f, 0x8f, 0xc7, 0xe7, 0x03, 0xdb, 0xd8, 0x6c, 0xcc, 0x00, 0xc3, 0xd8, 0x61, 0xcc, 0x00, 0xc3, 0x9f, 0xe7, 0xcf, 0x00, 0xc3, 0x00, 0x6e, 0xc0, 0x00, 0xc3, 0xd8, 0x6c, 0xcc, 0x00, 0x83, 0x8f, 0xc7, 0x87, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA5_offi_mask[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x00, 0x00, 0x00, 0xe0, 0x01, 0xff, 0xdf, 0xef, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x01, 0xe7, 0xff, 0xff, 0xff, 0x01, 0xe7, 0xff, 0xff, 0xff, 0x01, 0xe7, 0xff, 0xff, 0xff, 0x07, 0xe7, 0xff, 0xff, 0xff, 0x07, 0xc7, 0xdf, 0xef, 0xcf, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA5_offi_breaks[] = { 6, 14, 21, 29, 35 }; static ButtonLabel RegionA5_offi = { (unsigned char *)RegionA5_offi_label, (unsigned char *)RegionA5_offi_mask, RegionA5_offi_width, RegionA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, RegionA5_offi_breaks }; static ButtonLook RegionA5_look = { &RegionA5_offo, NULL, &RegionA5_offo, NULL, &RegionA5_offi, NULL, &RegionA5_offi, NULL }; static ButtonFeel RegionA5_feel = { "RegionA5", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 5, 0, 0 } }; /* write button: RegionA6 */ #define RegionA6_offo_width 34 #define RegionA6_offo_height 14 static char RegionA6_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x44, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x22, 0xd2, 0xe4, 0x61, 0x00, 0x22, 0x32, 0x44, 0x90, 0x00, 0x54, 0x11, 0x44, 0x08, 0x01, 0x54, 0x11, 0x44, 0xf8, 0x01, 0x54, 0x11, 0x44, 0x08, 0x00, 0x88, 0x10, 0x44, 0x10, 0x01, 0x88, 0x10, 0x84, 0xe1, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA6_offo_mask[] = { 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x00, 0xee, 0x00, 0x00, 0x00, 0x00, 0xee, 0x00, 0x00, 0x77, 0xff, 0xff, 0xf3, 0x00, 0x77, 0xff, 0xff, 0xfb, 0x01, 0xff, 0xff, 0xff, 0xff, 0x03, 0xff, 0x7f, 0xee, 0xfc, 0x03, 0xfe, 0x3b, 0xee, 0xfc, 0x03, 0xfe, 0x3b, 0xee, 0xfc, 0x03, 0xfe, 0x3b, 0xee, 0xff, 0x03, 0xdc, 0x39, 0xee, 0xfb, 0x03, 0xdc, 0x39, 0xce, 0xf3, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA6_offo_breaks[] = { 11, 17, 20, 26, 34 }; static ButtonLabel RegionA6_offo = { (unsigned char *)RegionA6_offo_label, (unsigned char *)RegionA6_offo_mask, RegionA6_offo_width, RegionA6_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, RegionA6_offo_breaks }; #define RegionA6_offi_width 35 #define RegionA6_offi_height 14 static char RegionA6_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0xcc, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x23, 0xf6, 0xed, 0xf3, 0x01, 0x23, 0xb6, 0xcd, 0x18, 0x03, 0x76, 0x33, 0xcc, 0x18, 0x03, 0x76, 0x33, 0xcc, 0xf8, 0x03, 0xde, 0x33, 0xcc, 0x18, 0x00, 0x8c, 0x31, 0xcc, 0x18, 0x03, 0x8c, 0x31, 0x8c, 0xf3, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA6_offi_mask[] = { 0x00, 0x00, 0x1e, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x01, 0x00, 0x00, 0x00, 0xfe, 0x01, 0x00, 0x77, 0xff, 0xff, 0xff, 0x03, 0x77, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xfd, 0x07, 0xff, 0x7f, 0xfe, 0xfd, 0x07, 0xff, 0x7f, 0xfe, 0xfd, 0x07, 0xff, 0x7f, 0xfe, 0xff, 0x07, 0xde, 0x7b, 0xfe, 0xff, 0x07, 0xde, 0x7b, 0xde, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA6_offi_breaks[] = { 12, 18, 21, 27, 35 }; static ButtonLabel RegionA6_offi = { (unsigned char *)RegionA6_offi_label, (unsigned char *)RegionA6_offi_mask, RegionA6_offi_width, RegionA6_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, RegionA6_offi_breaks }; static ButtonLook RegionA6_look = { &RegionA6_offo, NULL, &RegionA6_offo, NULL, &RegionA6_offi, NULL, &RegionA6_offi, NULL }; static ButtonFeel RegionA6_feel = { "RegionA6", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 8, 0, 0 } }; /* read button: RegionA7 */ #define RegionA7_offo_width 30 #define RegionA7_offo_height 14 static char RegionA7_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x1a, 0x06, 0x07, 0x16, 0x06, 0x89, 0x08, 0x19, 0x82, 0x10, 0x8c, 0x10, 0x82, 0x1f, 0x8b, 0x10, 0x82, 0x80, 0x88, 0x10, 0x02, 0x91, 0x08, 0x19, 0x02, 0x0e, 0x17, 0x16, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA7_offo_mask[] = { 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x38, 0x3f, 0x8f, 0x0f, 0x3f, 0xbf, 0xdf, 0x9f, 0x3f, 0xff, 0xff, 0xdf, 0x3f, 0xcf, 0xff, 0xdf, 0x3f, 0xc7, 0xff, 0xdf, 0x39, 0xc7, 0xff, 0xdf, 0x3f, 0xc7, 0xff, 0xff, 0x3f, 0x87, 0xff, 0xbf, 0x3f, 0x07, 0x9f, 0x3f, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA7_offo_breaks[] = { 6, 14, 22, 30 }; static ButtonLabel RegionA7_offo = { (unsigned char *)RegionA7_offo_label, (unsigned char *)RegionA7_offo_mask, RegionA7_offo_width, RegionA7_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, RegionA7_offo_breaks }; #define RegionA7_offi_width 30 #define RegionA7_offi_height 14 static char RegionA7_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x18, 0x9f, 0x8f, 0x87, 0x1f, 0xdb, 0xd8, 0xcc, 0x18, 0xc3, 0x18, 0xcc, 0x18, 0xc3, 0x9f, 0xcf, 0x18, 0xc3, 0xc0, 0xcc, 0x18, 0xc3, 0xd8, 0xcc, 0x18, 0x83, 0x8f, 0x9b, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char RegionA7_offi_mask[] = { 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x3c, 0xff, 0xdf, 0xcf, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3d, 0xe7, 0xff, 0xff, 0x3d, 0xe7, 0xff, 0xff, 0x3d, 0xe7, 0xff, 0xff, 0x3f, 0xe7, 0xff, 0xff, 0x3f, 0xc7, 0xdf, 0xff, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int RegionA7_offi_breaks[] = { 6, 14, 22, 30 }; static ButtonLabel RegionA7_offi = { (unsigned char *)RegionA7_offi_label, (unsigned char *)RegionA7_offi_mask, RegionA7_offi_width, RegionA7_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, RegionA7_offi_breaks }; static ButtonLook RegionA7_look = { &RegionA7_offo, NULL, &RegionA7_offo, NULL, &RegionA7_offi, NULL, &RegionA7_offi, NULL }; static ButtonFeel RegionA7_feel = { "RegionA7", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 6, 7, 0, 0 } }; static ButtonSpec RegionA[] = { { &RegionA1_look, &RegionA1_feel }, { &RegionA2_look, &RegionA2_feel }, { &RegionA3_look, &RegionA3_feel }, { &RegionA4_look, &RegionA4_feel }, { &RegionA5_look, &RegionA5_feel }, { &RegionA6_look, &RegionA6_feel }, { &RegionA7_look, &RegionA7_feel } }; static BoxGeometry RegionA_geo = { 0, 7, 7, 1, 7.000000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakeRegionPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[2], gc, visual, background, &RegionA_geo, RegionA, 0); } saoimage-1.08/panel/menucmap.h 666 21641 13 41622 4740432473 11435 /* write button: CmapA1 */ #define CmapA1_offo_width 34 #define CmapA1_offo_height 14 static char CmapA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x44, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x22, 0xd2, 0xe4, 0x61, 0x00, 0x22, 0x32, 0x44, 0x90, 0x00, 0x54, 0x11, 0x44, 0x08, 0x01, 0x54, 0x11, 0x44, 0xf8, 0x01, 0x54, 0x11, 0x44, 0x08, 0x00, 0x88, 0x10, 0x44, 0x10, 0x01, 0x88, 0x10, 0x84, 0xe1, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char CmapA1_offo_mask[] = { 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, 0x00, 0xee, 0x00, 0x00, 0x00, 0x00, 0xee, 0x00, 0x00, 0x77, 0xff, 0xff, 0xf3, 0x00, 0x77, 0xff, 0xff, 0xfb, 0x01, 0xff, 0xff, 0xff, 0xff, 0x03, 0xff, 0x7f, 0xee, 0xfc, 0x03, 0xfe, 0x3b, 0xee, 0xfc, 0x03, 0xfe, 0x3b, 0xee, 0xfc, 0x03, 0xfe, 0x3b, 0xee, 0xff, 0x03, 0xdc, 0x39, 0xee, 0xfb, 0x03, 0xdc, 0x39, 0xce, 0xf3, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int CmapA1_offo_breaks[] = { 11, 17, 20, 26, 34 }; static ButtonLabel CmapA1_offo = { (unsigned char *)CmapA1_offo_label, (unsigned char *)CmapA1_offo_mask, CmapA1_offo_width, CmapA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, CmapA1_offo_breaks }; #define CmapA1_offi_width 35 #define CmapA1_offi_height 14 static char CmapA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0xcc, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x23, 0xf6, 0xed, 0xf3, 0x01, 0x23, 0xb6, 0xcd, 0x18, 0x03, 0x76, 0x33, 0xcc, 0x18, 0x03, 0x76, 0x33, 0xcc, 0xf8, 0x03, 0xde, 0x33, 0xcc, 0x18, 0x00, 0x8c, 0x31, 0xcc, 0x18, 0x03, 0x8c, 0x31, 0x8c, 0xf3, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char CmapA1_offi_mask[] = { 0x00, 0x00, 0x1e, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x01, 0x00, 0x00, 0x00, 0xfe, 0x01, 0x00, 0x77, 0xff, 0xff, 0xff, 0x03, 0x77, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xff, 0x07, 0xff, 0xff, 0xff, 0xfd, 0x07, 0xff, 0x7f, 0xfe, 0xfd, 0x07, 0xff, 0x7f, 0xfe, 0xfd, 0x07, 0xff, 0x7f, 0xfe, 0xff, 0x07, 0xde, 0x7b, 0xfe, 0xff, 0x07, 0xde, 0x7b, 0xde, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int CmapA1_offi_breaks[] = { 12, 18, 21, 27, 35 }; static ButtonLabel CmapA1_offi = { (unsigned char *)CmapA1_offi_label, (unsigned char *)CmapA1_offi_mask, CmapA1_offi_width, CmapA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, CmapA1_offi_breaks }; static ButtonLook CmapA1_look = { &CmapA1_offo, NULL, &CmapA1_offo, NULL, &CmapA1_offi, NULL, &CmapA1_offi, NULL }; static ButtonFeel CmapA1_feel = { "CmapA1", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 48, 0, 0 } }; /* read button: CmapA2 */ #define CmapA2_offo_width 30 #define CmapA2_offo_height 14 static char CmapA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x1a, 0x06, 0x07, 0x16, 0x06, 0x89, 0x08, 0x19, 0x82, 0x10, 0x8c, 0x10, 0x82, 0x1f, 0x8b, 0x10, 0x82, 0x80, 0x88, 0x10, 0x02, 0x91, 0x08, 0x19, 0x02, 0x0e, 0x17, 0x16, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char CmapA2_offo_mask[] = { 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x38, 0x3f, 0x8f, 0x0f, 0x3f, 0xbf, 0xdf, 0x9f, 0x3f, 0xff, 0xff, 0xdf, 0x3f, 0xcf, 0xff, 0xdf, 0x3f, 0xc7, 0xff, 0xdf, 0x39, 0xc7, 0xff, 0xdf, 0x3f, 0xc7, 0xff, 0xff, 0x3f, 0x87, 0xff, 0xbf, 0x3f, 0x07, 0x9f, 0x3f, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int CmapA2_offo_breaks[] = { 6, 14, 22, 30 }; static ButtonLabel CmapA2_offo = { (unsigned char *)CmapA2_offo_label, (unsigned char *)CmapA2_offo_mask, CmapA2_offo_width, CmapA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, CmapA2_offo_breaks }; #define CmapA2_offi_width 30 #define CmapA2_offi_height 14 static char CmapA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x18, 0x9f, 0x8f, 0x87, 0x1f, 0xdb, 0xd8, 0xcc, 0x18, 0xc3, 0x18, 0xcc, 0x18, 0xc3, 0x9f, 0xcf, 0x18, 0xc3, 0xc0, 0xcc, 0x18, 0xc3, 0xd8, 0xcc, 0x18, 0x83, 0x8f, 0x9b, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char CmapA2_offi_mask[] = { 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x3c, 0xff, 0xdf, 0xcf, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0x3d, 0xe7, 0xff, 0xff, 0x3d, 0xe7, 0xff, 0xff, 0x3d, 0xe7, 0xff, 0xff, 0x3f, 0xe7, 0xff, 0xff, 0x3f, 0xc7, 0xdf, 0xff, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static int CmapA2_offi_breaks[] = { 6, 14, 22, 30 }; static ButtonLabel CmapA2_offi = { (unsigned char *)CmapA2_offi_label, (unsigned char *)CmapA2_offi_mask, CmapA2_offi_width, CmapA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, CmapA2_offi_breaks }; static ButtonLook CmapA2_look = { &CmapA2_offo, NULL, &CmapA2_offo, NULL, &CmapA2_offi, NULL, &CmapA2_offi, NULL }; static ButtonFeel CmapA2_feel = { "CmapA2", 2, { BTNFlash, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 64, 0, 0 } }; /* Gray button: CmapA3 */ #define CmapA3_offo_width 34 #define CmapA3_offo_height 14 static char CmapA3_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x01, 0x00, 0x00, 0x00, 0x04, 0x02, 0x00, 0x00, 0x00, 0x02, 0xd2, 0x38, 0x04, 0x01, 0x02, 0x30, 0x44, 0x04, 0x01, 0xe2, 0x13, 0x60, 0x88, 0x00, 0x02, 0x12, 0x58, 0x88, 0x00, 0x04, 0x12, 0x44, 0x50, 0x00, 0x0c, 0x13, 0x44, 0x50, 0x00, 0xf0, 0x12, 0xb8, 0x20, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x24, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00 }; static char CmapA3_offo_mask[] = { 0xf8, 0x01, 0x00, 0x00, 0x00, 0xfe, 0x03, 0x00, 0x00, 0x00, 0xfe, 0x07, 0x00, 0x00, 0x00, 0x9f, 0xff, 0x7d, 0x8e, 0x03, 0x0f, 0xff, 0xff, 0x8e, 0x03, 0xf7, 0xff, 0xff, 0xde, 0x03, 0xf7, 0x7f, 0xfe, 0xde, 0x03, 0xff, 0x3f, 0xfe, 0xfc, 0x01, 0x9f, 0x3f, 0xfe, 0xfc, 0x01, 0xfe, 0x3f, 0xfe, 0xf9, 0x00, 0xfe, 0x3f, 0xfe, 0xf9, 0x00, 0xf8, 0x3f, 0xfc, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x00, 0x00, 0x00, 0x7e, 0x00 }; static int CmapA3_offo_breaks[] = { 11, 17, 25, 34 }; static ButtonLabel CmapA3_offo = { (unsigned char *)CmapA3_offo_label, (unsigned char *)CmapA3_offo_mask, CmapA3_offo_width, CmapA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 4, 0, CmapA3_offo_breaks }; #define CmapA3_offi_width 32 #define CmapA3_offi_height 14 static char CmapA3_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0xfc, 0x00, 0x00, 0x00, 0x86, 0x01, 0x00, 0x00, 0x83, 0x01, 0x00, 0x00, 0x03, 0x7c, 0x1e, 0x63, 0x03, 0x6c, 0x33, 0x63, 0xe3, 0x0d, 0x30, 0x66, 0x83, 0x0d, 0x3e, 0x36, 0x83, 0x0d, 0x33, 0x34, 0xc6, 0x0d, 0x33, 0x3c, 0xbc, 0x0d, 0x6e, 0x18, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x1b, 0x00, 0x00, 0x00, 0x0e }; static char CmapA3_offi_mask[] = { 0xfe, 0x01, 0x00, 0x00, 0xff, 0x03, 0x00, 0x00, 0xff, 0x03, 0x00, 0x00, 0xcf, 0xff, 0xbf, 0xf7, 0xc7, 0xff, 0xff, 0xf7, 0xf7, 0xff, 0xff, 0xff, 0xf7, 0xff, 0xff, 0xff, 0xf7, 0x9f, 0x7f, 0xff, 0xef, 0x9f, 0x7f, 0x7f, 0xff, 0x9f, 0xff, 0x7e, 0xff, 0x9f, 0xff, 0x7e, 0xfe, 0x1f, 0xff, 0x3f, 0x00, 0x00, 0x80, 0x3f, 0x00, 0x00, 0x80, 0x3f }; static int CmapA3_offi_breaks[] = { 10, 16, 24, 32 }; static ButtonLabel CmapA3_offi = { (unsigned char *)CmapA3_offi_label, (unsigned char *)CmapA3_offi_mask, CmapA3_offi_width, CmapA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 4, 4, 0, CmapA3_offi_breaks }; static ButtonLook CmapA3_look = { &CmapA3_offo, NULL, &CmapA3_offo, NULL, &CmapA3_offi, NULL, &CmapA3_offi, NULL }; static ButtonFeel CmapA3_feel = { "CmapA3", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 256, 0, 0 } }; /* BB button: CmapA4 */ #define CmapA4_offo_width 18 #define CmapA4_offo_height 12 static char CmapA4_offo_label[] = { 0x00, 0x00, 0x00, 0x7e, 0xfc, 0x00, 0x82, 0x04, 0x01, 0x82, 0x04, 0x01, 0x82, 0x04, 0x01, 0x7e, 0xfc, 0x00, 0x82, 0x04, 0x01, 0x82, 0x04, 0x01, 0x82, 0x04, 0x01, 0x82, 0x04, 0x01, 0x7e, 0xfc, 0x00, 0x00, 0x00, 0x00 }; static char CmapA4_offo_mask[] = { 0xff, 0xfe, 0x01, 0xff, 0xff, 0x03, 0xff, 0xff, 0x03, 0xc7, 0x8f, 0x03, 0xff, 0xff, 0x03, 0xff, 0xff, 0x03, 0xff, 0xff, 0x03, 0xc7, 0x8f, 0x03, 0xc7, 0x8f, 0x03, 0xff, 0xff, 0x03, 0xff, 0xff, 0x03, 0xff, 0xfe, 0x01 }; static int CmapA4_offo_breaks[] = { 9, 18 }; static ButtonLabel CmapA4_offo = { (unsigned char *)CmapA4_offo_label, (unsigned char *)CmapA4_offo_mask, CmapA4_offo_width, CmapA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 2, 0, CmapA4_offo_breaks }; #define CmapA4_offi_width 16 #define CmapA4_offi_height 12 static char CmapA4_offi_label[] = { 0x00, 0x00, 0x1f, 0x1f, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x3f, 0x3f, 0x63, 0x63, 0x63, 0x63, 0x63, 0x63, 0x63, 0x63, 0x3f, 0x3f, 0x00, 0x00 }; static char CmapA4_offi_mask[] = { 0xbf, 0x3f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xf7, 0xf7, 0xf7, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f }; static int CmapA4_offi_breaks[] = { 8, 16 }; static ButtonLabel CmapA4_offi = { (unsigned char *)CmapA4_offi_label, (unsigned char *)CmapA4_offi_mask, CmapA4_offi_width, CmapA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 2, 0, CmapA4_offi_breaks }; static ButtonLook CmapA4_look = { &CmapA4_offo, NULL, &CmapA4_offo, NULL, &CmapA4_offi, NULL, &CmapA4_offi, NULL }; static ButtonFeel CmapA4_feel = { "CmapA4", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 512, 0, 0 } }; /* HE button: CmapA5 */ #define CmapA5_offo_width 19 #define CmapA5_offo_height 12 static char CmapA5_offo_label[] = { 0x00, 0x00, 0x00, 0x02, 0xf9, 0x03, 0x02, 0x09, 0x00, 0x02, 0x09, 0x00, 0x02, 0x09, 0x00, 0xfe, 0xf9, 0x01, 0x02, 0x09, 0x00, 0x02, 0x09, 0x00, 0x02, 0x09, 0x00, 0x02, 0x09, 0x00, 0x02, 0xf9, 0x03, 0x00, 0x00, 0x00 }; static char CmapA5_offo_mask[] = { 0x87, 0xff, 0x07, 0x87, 0xff, 0x07, 0x87, 0xff, 0x07, 0x87, 0x1f, 0x00, 0xff, 0xff, 0x03, 0xff, 0xff, 0x03, 0xff, 0xff, 0x03, 0x87, 0x1f, 0x00, 0x87, 0x1f, 0x00, 0x87, 0xff, 0x07, 0x87, 0xff, 0x07, 0x87, 0xff, 0x07 }; static int CmapA5_offo_breaks[] = { 10, 19 }; static ButtonLabel CmapA5_offo = { (unsigned char *)CmapA5_offo_label, (unsigned char *)CmapA5_offo_mask, CmapA5_offo_width, CmapA5_offo_height, 0.5, 0.5, 0, 0, /* placement */ 3, 2, 0, CmapA5_offo_breaks }; #define CmapA5_offi_width 17 #define CmapA5_offi_height 12 static char CmapA5_offi_label[] = { 0x00, 0x00, 0x00, 0xc3, 0xfe, 0x00, 0xc3, 0x06, 0x00, 0xc3, 0x06, 0x00, 0xc3, 0x06, 0x00, 0xff, 0x7e, 0x00, 0xc3, 0x06, 0x00, 0xc3, 0x06, 0x00, 0xc3, 0x06, 0x00, 0xc3, 0x06, 0x00, 0xc3, 0xfe, 0x00, 0x00, 0x00, 0x00 }; static char CmapA5_offi_mask[] = { 0xe7, 0xff, 0x01, 0xe7, 0xff, 0x01, 0xe7, 0xff, 0x01, 0xe7, 0x0f, 0x00, 0xff, 0xff, 0x00, 0xff, 0xff, 0x00, 0xff, 0xff, 0x00, 0xe7, 0x0f, 0x00, 0xe7, 0x0f, 0x00, 0xe7, 0xff, 0x01, 0xe7, 0xff, 0x01, 0xe7, 0xff, 0x01 }; static int CmapA5_offi_breaks[] = { 9, 17 }; static ButtonLabel CmapA5_offi = { (unsigned char *)CmapA5_offi_label, (unsigned char *)CmapA5_offi_mask, CmapA5_offi_width, CmapA5_offi_height, 0.5, 0.5, 0, 0, /* placement */ 3, 2, 0, CmapA5_offi_breaks }; static ButtonLook CmapA5_look = { &CmapA5_offo, NULL, &CmapA5_offo, NULL, &CmapA5_offi, NULL, &CmapA5_offi, NULL }; static ButtonFeel CmapA5_feel = { "CmapA5", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 768, 0, 0 } }; /* I8 button: CmapA6 */ #define CmapA6_offo_width 12 #define CmapA6_offo_height 12 static char CmapA6_offo_label[] = { 0x00, 0x00, 0xc2, 0x01, 0x22, 0x02, 0x22, 0x02, 0x22, 0x02, 0xc2, 0x01, 0x22, 0x02, 0x12, 0x04, 0x12, 0x04, 0x22, 0x02, 0xc2, 0x01, 0x00, 0x00 }; static char CmapA6_offo_mask[] = { 0xe7, 0x03, 0xf7, 0x07, 0xf7, 0x07, 0x77, 0x07, 0xf7, 0x07, 0xf7, 0x07, 0xff, 0x0f, 0x7f, 0x0f, 0x7f, 0x0f, 0xff, 0x0f, 0xf7, 0x07, 0xe7, 0x03 }; static int CmapA6_offo_breaks[] = { 3, 12 }; static ButtonLabel CmapA6_offo = { (unsigned char *)CmapA6_offo_label, (unsigned char *)CmapA6_offo_mask, CmapA6_offo_width, CmapA6_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 2, 0, CmapA6_offo_breaks }; #define CmapA6_offi_width 12 #define CmapA6_offi_height 12 static char CmapA6_offi_label[] = { 0x00, 0x00, 0xe3, 0x03, 0x33, 0x06, 0x33, 0x06, 0x33, 0x06, 0xe3, 0x03, 0x33, 0x06, 0x33, 0x06, 0x33, 0x06, 0x33, 0x06, 0xe3, 0x03, 0x00, 0x00 }; static char CmapA6_offi_mask[] = { 0xf7, 0x07, 0xff, 0x0f, 0xff, 0x0f, 0x7f, 0x0f, 0xff, 0x0f, 0xff, 0x0f, 0xff, 0x0f, 0x7f, 0x0f, 0x7f, 0x0f, 0xff, 0x0f, 0xff, 0x0f, 0xf7, 0x07 }; static int CmapA6_offi_breaks[] = { 3, 12 }; static ButtonLabel CmapA6_offi = { (unsigned char *)CmapA6_offi_label, (unsigned char *)CmapA6_offi_mask, CmapA6_offi_width, CmapA6_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 2, 0, CmapA6_offi_breaks }; static ButtonLook CmapA6_look = { &CmapA6_offo, NULL, &CmapA6_offo, NULL, &CmapA6_offi, NULL, &CmapA6_offi, NULL }; static ButtonFeel CmapA6_feel = { "CmapA6", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 1024, 0, 0 } }; /* A button: CmapA7 */ #define CmapA7_offo_width 10 #define CmapA7_offo_height 12 static char CmapA7_offo_label[] = { 0x00, 0x00, 0x30, 0x00, 0x30, 0x00, 0x48, 0x00, 0x48, 0x00, 0x48, 0x00, 0x84, 0x00, 0xfc, 0x00, 0x84, 0x00, 0x02, 0x01, 0x02, 0x01, 0x00, 0x00 }; static char CmapA7_offo_mask[] = { 0x78, 0x00, 0x78, 0x00, 0xfc, 0x00, 0xfc, 0x00, 0xfc, 0x00, 0xfe, 0x01, 0xfe, 0x01, 0xfe, 0x01, 0xff, 0x03, 0xcf, 0x03, 0x87, 0x03, 0x87, 0x03 }; static int CmapA7_offo_breaks[] = { 10 }; static ButtonLabel CmapA7_offo = { (unsigned char *)CmapA7_offo_label, (unsigned char *)CmapA7_offo_mask, CmapA7_offo_width, CmapA7_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 1, 0, CmapA7_offo_breaks }; #define CmapA7_offi_width 9 #define CmapA7_offi_height 12 static char CmapA7_offi_label[] = { 0x00, 0x00, 0x18, 0x00, 0x18, 0x00, 0x3c, 0x00, 0x3c, 0x00, 0x24, 0x00, 0x66, 0x00, 0x7e, 0x00, 0x66, 0x00, 0xc3, 0x00, 0xc3, 0x00, 0x00, 0x00 }; static char CmapA7_offi_mask[] = { 0x3c, 0x00, 0x3c, 0x00, 0x7e, 0x00, 0x7e, 0x00, 0x7e, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x01, 0xff, 0x01, 0xe7, 0x01, 0xe7, 0x01 }; static int CmapA7_offi_breaks[] = { 9 }; static ButtonLabel CmapA7_offi = { (unsigned char *)CmapA7_offi_label, (unsigned char *)CmapA7_offi_mask, CmapA7_offi_width, CmapA7_offi_height, 0.5, 0.5, 0, 0, /* placement */ 2, 1, 0, CmapA7_offi_breaks }; static ButtonLook CmapA7_look = { &CmapA7_offo, NULL, &CmapA7_offo, NULL, &CmapA7_offi, NULL, &CmapA7_offi, NULL }; static ButtonFeel CmapA7_feel = { "CmapA7", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 1280, 0, 0 } }; /* B button: CmapA8 */ #define CmapA8_offo_width 9 #define CmapA8_offo_height 12 static char CmapA8_offo_label[] = { 0x00, 0x00, 0x7e, 0x00, 0x82, 0x00, 0x82, 0x00, 0x82, 0x00, 0x7e, 0x00, 0x82, 0x00, 0x82, 0x00, 0x82, 0x00, 0x82, 0x00, 0x7e, 0x00, 0x00, 0x00 }; static char CmapA8_offo_mask[] = { 0xff, 0x00, 0xff, 0x01, 0xff, 0x01, 0xc7, 0x01, 0xff, 0x01, 0xff, 0x01, 0xff, 0x01, 0xc7, 0x01, 0xc7, 0x01, 0xff, 0x01, 0xff, 0x01, 0xff, 0x00 }; static int CmapA8_offo_breaks[] = { 9 }; static ButtonLabel CmapA8_offo = { (unsigned char *)CmapA8_offo_label, (unsigned char *)CmapA8_offo_mask, CmapA8_offo_width, CmapA8_offo_height, 0.5, 0.5, 0, 0, /* placement */ 2, 1, 0, CmapA8_offo_breaks }; #define CmapA8_offi_width 8 #define CmapA8_offi_height 12 static char CmapA8_offi_label[] = { 0x00, 0x1f, 0x33, 0x33, 0x33, 0x3f, 0x63, 0x63, 0x63, 0x63, 0x3f, 0x00 }; static char CmapA8_offi_mask[] = { 0x3f, 0x7f, 0x7f, 0x7f, 0x7f, 0xff, 0xff, 0xf7, 0xf7, 0xff, 0xff, 0x7f }; static int CmapA8_offi_breaks[] = { 8 }; static ButtonLabel CmapA8_offi = { (unsigned char *)CmapA8_offi_label, (unsigned char *)CmapA8_offi_mask, CmapA8_offi_width, CmapA8_offi_height, 0.5, 0.5, 0, 0, /* placement */ 1, 1, 0, CmapA8_offi_breaks }; static ButtonLook CmapA8_look = { &CmapA8_offo, NULL, &CmapA8_offo, NULL, &CmapA8_offi, NULL, &CmapA8_offi, NULL }; static ButtonFeel CmapA8_feel = { "CmapA8", 2, { BTNOneShot, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 5, 1536, 0, 0 } }; static ButtonSpec CmapA[] = { { &CmapA1_look, &CmapA1_feel }, { &CmapA2_look, &CmapA2_feel }, { &CmapA3_look, &CmapA3_feel }, { &CmapA4_look, &CmapA4_feel }, { &CmapA5_look, &CmapA5_feel }, { &CmapA6_look, &CmapA6_feel }, { &CmapA7_look, &CmapA7_feel }, { &CmapA8_look, &CmapA8_feel } }; static BoxGeometry CmapA_geo = { 0, 8, 8, 1, 9.333000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakeCmapPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[1], gc, visual, background, &CmapA_geo, CmapA, 0); } saoimage-1.08/panel/menumono.h 666 21641 13 25707 4740432473 11473 /* dith1 button: MonoA1 */ #define MonoA1_offo_width 34 #define MonoA1_offo_height 12 static char MonoA1_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x02, 0x04, 0x40, 0x00, 0x40, 0x22, 0x04, 0x60, 0x00, 0x40, 0x20, 0x04, 0x58, 0x00, 0x58, 0xf2, 0x74, 0x40, 0x00, 0x64, 0x22, 0x8c, 0x40, 0x00, 0x42, 0x22, 0x84, 0x40, 0x00, 0x42, 0x22, 0x84, 0x40, 0x00, 0x42, 0x22, 0x84, 0x40, 0x00, 0x64, 0x22, 0x84, 0x40, 0x00, 0x58, 0xc2, 0x84, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA1_offo_mask[] = { 0xe0, 0x07, 0x0e, 0xe0, 0x00, 0xe0, 0x77, 0x0e, 0xf0, 0x00, 0xe0, 0x77, 0x0e, 0xfc, 0x00, 0xfc, 0xff, 0xff, 0xfc, 0x00, 0xfe, 0xff, 0xff, 0xfd, 0x00, 0xff, 0xff, 0xff, 0xe1, 0x00, 0xff, 0x77, 0xde, 0xe1, 0x00, 0xe7, 0x77, 0xce, 0xe1, 0x00, 0xff, 0x77, 0xce, 0xe1, 0x00, 0xff, 0xf7, 0xcf, 0xe1, 0x00, 0xfe, 0xf7, 0xcf, 0xe1, 0x00, 0xfc, 0xe7, 0xcf, 0xe1, 0x00 }; static int MonoA1_offo_breaks[] = { 8, 11, 17, 25, 34 }; static ButtonLabel MonoA1_offo = { (unsigned char *)MonoA1_offo_label, (unsigned char *)MonoA1_offo_mask, MonoA1_offo_width, MonoA1_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MonoA1_offo_breaks }; #define MonoA1_offi_width 34 #define MonoA1_offi_height 12 static char MonoA1_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x60, 0x03, 0x06, 0xc0, 0x00, 0x60, 0x33, 0x06, 0xe0, 0x00, 0x60, 0x30, 0x06, 0xf8, 0x00, 0x7e, 0xfb, 0x7e, 0xc0, 0x00, 0x63, 0x33, 0xc6, 0xc0, 0x00, 0x63, 0x33, 0xc6, 0xc0, 0x00, 0x63, 0x33, 0xc6, 0xc0, 0x00, 0x63, 0x33, 0xc6, 0xc0, 0x00, 0x63, 0x33, 0xc6, 0xc0, 0x00, 0x7e, 0xe3, 0xc6, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA1_offi_mask[] = { 0xf0, 0x07, 0x0f, 0xe0, 0x01, 0xf0, 0x7f, 0x0f, 0xf0, 0x01, 0xf0, 0x7f, 0x0f, 0xfc, 0x01, 0xff, 0xff, 0xff, 0xfc, 0x01, 0xff, 0xff, 0xff, 0xfd, 0x01, 0xff, 0xff, 0xff, 0xe1, 0x01, 0xf7, 0x7f, 0xef, 0xe1, 0x01, 0xf7, 0x7f, 0xef, 0xe1, 0x01, 0xf7, 0x7f, 0xef, 0xe1, 0x01, 0xff, 0xff, 0xef, 0xe1, 0x01, 0xff, 0xff, 0xef, 0xe1, 0x01, 0xff, 0xf7, 0xef, 0xe1, 0x01 }; static int MonoA1_offi_breaks[] = { 8, 11, 17, 25, 34 }; static ButtonLabel MonoA1_offi = { (unsigned char *)MonoA1_offi_label, (unsigned char *)MonoA1_offi_mask, MonoA1_offi_width, MonoA1_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MonoA1_offi_breaks }; static ButtonLook MonoA1_look = { &MonoA1_offo, NULL, &MonoA1_offo, NULL, &MonoA1_offi, NULL, &MonoA1_offi, NULL }; static ButtonFeel MonoA1_feel = { "MonoA1", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 1, 256, 0, 0 } }; /* dith2 button: MonoA2 */ #define MonoA2_offo_width 34 #define MonoA2_offo_height 12 static char MonoA2_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x02, 0x04, 0xf0, 0x00, 0x40, 0x22, 0x04, 0x08, 0x01, 0x40, 0x20, 0x04, 0x08, 0x01, 0x58, 0xf2, 0x74, 0x00, 0x01, 0x64, 0x22, 0x8c, 0x80, 0x00, 0x42, 0x22, 0x84, 0x40, 0x00, 0x42, 0x22, 0x84, 0x20, 0x00, 0x42, 0x22, 0x84, 0x10, 0x00, 0x64, 0x22, 0x84, 0x08, 0x00, 0x58, 0xc2, 0x84, 0xfc, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA2_offo_mask[] = { 0xe0, 0x07, 0x0e, 0xf8, 0x01, 0xe0, 0x77, 0x0e, 0xfc, 0x03, 0xe0, 0x77, 0x0e, 0xfc, 0x03, 0xfc, 0xff, 0xff, 0x9c, 0x03, 0xfe, 0xff, 0xff, 0xdd, 0x03, 0xff, 0xff, 0xff, 0xe1, 0x03, 0xff, 0x77, 0xde, 0xf1, 0x01, 0xe7, 0x77, 0xce, 0xf9, 0x00, 0xff, 0x77, 0xce, 0x7d, 0x00, 0xff, 0xf7, 0xcf, 0xff, 0x03, 0xfe, 0xf7, 0xcf, 0xff, 0x03, 0xfc, 0xe7, 0xcf, 0xff, 0x03 }; static int MonoA2_offo_breaks[] = { 8, 11, 17, 25, 34 }; static ButtonLabel MonoA2_offo = { (unsigned char *)MonoA2_offo_label, (unsigned char *)MonoA2_offo_mask, MonoA2_offo_width, MonoA2_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MonoA2_offo_breaks }; #define MonoA2_offi_width 34 #define MonoA2_offi_height 12 static char MonoA2_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x60, 0x03, 0x06, 0xf8, 0x00, 0x60, 0x33, 0x06, 0x8c, 0x01, 0x60, 0x30, 0x06, 0x8c, 0x01, 0x7e, 0xfb, 0x7e, 0x80, 0x01, 0x63, 0x33, 0xc6, 0xc0, 0x00, 0x63, 0x33, 0xc6, 0x60, 0x00, 0x63, 0x33, 0xc6, 0x30, 0x00, 0x63, 0x33, 0xc6, 0x18, 0x00, 0x63, 0x33, 0xc6, 0x0c, 0x00, 0x7e, 0xe3, 0xc6, 0xfc, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA2_offi_mask[] = { 0xf0, 0x07, 0x0f, 0xfc, 0x01, 0xf0, 0x7f, 0x0f, 0xfe, 0x03, 0xf0, 0x7f, 0x0f, 0xfe, 0x03, 0xff, 0xff, 0xff, 0xde, 0x03, 0xff, 0xff, 0xff, 0xff, 0x03, 0xff, 0xff, 0xff, 0xf1, 0x03, 0xf7, 0x7f, 0xef, 0xf9, 0x01, 0xf7, 0x7f, 0xef, 0xfd, 0x00, 0xf7, 0x7f, 0xef, 0x7f, 0x00, 0xff, 0xff, 0xef, 0xff, 0x03, 0xff, 0xff, 0xef, 0xff, 0x03, 0xff, 0xf7, 0xef, 0xff, 0x03 }; static int MonoA2_offi_breaks[] = { 8, 11, 17, 25, 34 }; static ButtonLabel MonoA2_offi = { (unsigned char *)MonoA2_offi_label, (unsigned char *)MonoA2_offi_mask, MonoA2_offi_width, MonoA2_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 5, 0, MonoA2_offi_breaks }; static ButtonLook MonoA2_look = { &MonoA2_offo, NULL, &MonoA2_offo, NULL, &MonoA2_offi, NULL, &MonoA2_offi, NULL }; static ButtonFeel MonoA2_feel = { "MonoA2", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 1, 512, 0, 0 } }; /* diffuse button: MonoA3 */ #define MonoA3_offo_width 47 #define MonoA3_offo_height 12 static char MonoA3_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0xc2, 0x30, 0x00, 0x00, 0x00, 0x40, 0x22, 0x08, 0x00, 0x00, 0x00, 0x40, 0x20, 0x08, 0x00, 0x00, 0x00, 0x58, 0xf2, 0x3c, 0x21, 0x1e, 0x0c, 0x64, 0x22, 0x08, 0x21, 0x21, 0x12, 0x42, 0x22, 0x08, 0x21, 0x01, 0x21, 0x42, 0x22, 0x08, 0x21, 0x1e, 0x3f, 0x42, 0x22, 0x08, 0x21, 0x20, 0x01, 0x64, 0x22, 0x08, 0x31, 0x21, 0x22, 0x58, 0x22, 0x08, 0x2e, 0x1e, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA3_offo_mask[] = { 0xe0, 0xe7, 0x79, 0x00, 0x00, 0x00, 0xe0, 0xf7, 0x7d, 0x00, 0x00, 0x00, 0xe0, 0xf7, 0x7d, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x73, 0x3f, 0x1e, 0xfe, 0xff, 0xff, 0xf3, 0x7f, 0x3f, 0xff, 0xff, 0xff, 0xf3, 0xff, 0x7f, 0xff, 0x77, 0x9c, 0xf3, 0xff, 0x7f, 0xe7, 0x77, 0x9c, 0xf3, 0xff, 0x7f, 0xff, 0x77, 0x9c, 0xfb, 0xff, 0x7f, 0xff, 0x77, 0x9c, 0xff, 0xff, 0x7f, 0xfe, 0x77, 0x9c, 0xff, 0x7f, 0x7f, 0xfc, 0x77, 0x1c, 0x7f, 0x3f, 0x3e }; static int MonoA3_offo_breaks[] = { 8, 11, 17, 23, 31, 39, 47 }; static ButtonLabel MonoA3_offo = { (unsigned char *)MonoA3_offo_label, (unsigned char *)MonoA3_offo_mask, MonoA3_offo_width, MonoA3_offo_height, 0.5, 0.5, 0, 0, /* placement */ 6, 7, 0, MonoA3_offo_breaks }; #define MonoA3_offi_width 46 #define MonoA3_offi_height 12 static char MonoA3_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x60, 0xe3, 0x38, 0x00, 0x00, 0x00, 0x60, 0x33, 0x0c, 0x00, 0x00, 0x00, 0x60, 0x30, 0x0c, 0x00, 0x00, 0x00, 0x7e, 0xfb, 0xbe, 0x31, 0x8f, 0x0f, 0x63, 0x33, 0x8c, 0xb1, 0xd9, 0x18, 0x63, 0x33, 0x8c, 0xb1, 0xc3, 0x18, 0x63, 0x33, 0x8c, 0x31, 0xcf, 0x1f, 0x63, 0x33, 0x8c, 0x31, 0xdc, 0x00, 0x63, 0x33, 0x8c, 0xb1, 0xd9, 0x18, 0x7e, 0x33, 0x0c, 0x3f, 0x8f, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA3_offi_mask[] = { 0xf0, 0xf7, 0x7d, 0x00, 0x00, 0x00, 0xf0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0xf0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0xff, 0xff, 0xff, 0xfb, 0xdf, 0x1f, 0xff, 0xff, 0xff, 0xfb, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xfb, 0xff, 0x3f, 0xf7, 0x7f, 0xde, 0xfb, 0xff, 0x3f, 0xf7, 0x7f, 0xde, 0xfb, 0xff, 0x3f, 0xf7, 0x7f, 0xde, 0xfb, 0xff, 0x3f, 0xff, 0x7f, 0xde, 0xff, 0xff, 0x3f, 0xff, 0x7f, 0xde, 0xff, 0xff, 0x3f, 0xff, 0x7f, 0x9e, 0xff, 0xdf, 0x1f }; static int MonoA3_offi_breaks[] = { 8, 11, 17, 23, 31, 38, 46 }; static ButtonLabel MonoA3_offi = { (unsigned char *)MonoA3_offi_label, (unsigned char *)MonoA3_offi_mask, MonoA3_offi_width, MonoA3_offi_height, 0.5, 0.5, 0, 0, /* placement */ 6, 7, 0, MonoA3_offi_breaks }; static ButtonLook MonoA3_look = { &MonoA3_offo, NULL, &MonoA3_offo, NULL, &MonoA3_offi, NULL, &MonoA3_offi, NULL }; static ButtonFeel MonoA3_feel = { "MonoA3", 2, { BTNCoMode, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 1, 32, 0, 0 } }; /* invert button: MonoA4 */ #define MonoA4_offo_width 40 #define MonoA4_offo_height 12 static char MonoA4_offo_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x10, 0xd2, 0x11, 0x84, 0xa1, 0x79, 0x32, 0x12, 0x44, 0x62, 0x10, 0x12, 0x22, 0x22, 0x24, 0x10, 0x12, 0x22, 0xe2, 0x27, 0x10, 0x12, 0x42, 0x21, 0x20, 0x10, 0x12, 0x42, 0x41, 0x24, 0x10, 0x12, 0x82, 0x80, 0x23, 0x60, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA4_offo_mask[] = { 0x07, 0x00, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x00, 0x38, 0x07, 0x00, 0x00, 0x00, 0x38, 0xff, 0x3b, 0xce, 0xf3, 0xff, 0xff, 0x3f, 0xee, 0xf7, 0xff, 0xff, 0x7f, 0xff, 0xff, 0xff, 0x7f, 0x7f, 0xff, 0xff, 0x38, 0x3f, 0xf7, 0xf7, 0x7f, 0x38, 0x3f, 0xf7, 0xf7, 0x7f, 0x38, 0x3f, 0xe7, 0xf3, 0x7f, 0xf8, 0x3f, 0xe7, 0xe3, 0x7f, 0xf8, 0x3f, 0xc7, 0xc1, 0x77, 0xf0 }; static int MonoA4_offo_breaks[] = { 3, 11, 20, 28, 34, 40 }; static ButtonLabel MonoA4_offo = { (unsigned char *)MonoA4_offo_label, (unsigned char *)MonoA4_offo_mask, MonoA4_offo_width, MonoA4_offo_height, 0.5, 0.5, 0, 0, /* placement */ 5, 6, 0, MonoA4_offo_breaks }; #define MonoA4_offi_width 40 #define MonoA4_offi_height 12 static char MonoA4_offi_label[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x18, 0xfb, 0x19, 0xe6, 0xf3, 0x7d, 0x1b, 0x1b, 0x36, 0xb6, 0x19, 0x1b, 0x33, 0x33, 0x36, 0x18, 0x1b, 0x33, 0xf3, 0x37, 0x18, 0x1b, 0x23, 0x31, 0x30, 0x18, 0x1b, 0xe3, 0x31, 0x36, 0x18, 0x1b, 0xc3, 0xe0, 0x33, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00 }; static char MonoA4_offi_mask[] = { 0x07, 0x00, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x00, 0x3c, 0x07, 0x00, 0x00, 0x00, 0x3c, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0x3f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xbf, 0xff, 0xff, 0xff, 0x3f, 0xbf, 0xff, 0xff, 0x7f, 0x3c, 0xbf, 0xff, 0xff, 0x7f, 0x3c, 0xbf, 0xf7, 0xfb, 0x7f, 0xfc, 0xbf, 0xf7, 0xfb, 0x7f, 0xfc, 0xbf, 0xe7, 0xf1, 0x7f, 0xf8 }; static int MonoA4_offi_breaks[] = { 3, 11, 20, 28, 34, 40 }; static ButtonLabel MonoA4_offi = { (unsigned char *)MonoA4_offi_label, (unsigned char *)MonoA4_offi_mask, MonoA4_offi_width, MonoA4_offi_height, 0.5, 0.5, 0, 0, /* placement */ 5, 6, 0, MonoA4_offi_breaks }; static ButtonLook MonoA4_look = { &MonoA4_offo, NULL, &MonoA4_offo, NULL, &MonoA4_offi, NULL, &MonoA4_offi, NULL }; static ButtonFeel MonoA4_feel = { "MonoA4", 2, { BTNToggle, BTNCoWhile }, { 0x0004, 0x0004 }, { 0x0000, 0x0004 }, { 1, 128, 0, 0 } }; static ButtonSpec MonoA[] = { { &MonoA1_look, &MonoA1_feel }, { &MonoA2_look, &MonoA2_feel }, { &MonoA3_look, &MonoA3_feel }, { &MonoA4_look, &MonoA4_feel } }; static BoxGeometry MonoA_geo = { 0, 4, 4, 1, 4.000000, 1.000000, 0.000000, 0.000000, 0, 1 }; void MakeMonoPanel ( box, parent, gc, visual, background ) BoxParent *parent; ButtonBox box[1]; GC gc; Visual *visual; unsigned long background; { box[0] = MakeButtonBox(&parent[3], gc, visual, background, &MonoA_geo, MonoA, 0); } saoimage-1.08/panel/region.mnu 666 21641 13 3165 4740432210 11430 static BtnSpec RegionA[] = { { "view", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, ROP_View } }, { "label", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, ROP_Label } }, { "cycle", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNOneShot, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, ROP_Cycle } }, { "omit", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, ROP_Omit } }, { "reset", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, ROP_Reset } }, { "write", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, ROP_Write } }, { "read", 0, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNFlash, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { ROP, ROP_Read } } }; BoxSpec RegionBoxes[] = { { "RegionA", { 0, 7, 7, 1, 7.0, 1.0, 0.0, 0.0, 0, 1 }, RegionA } }; PanelAttach RegionAttach = { "CursorPanel", "CursorB", 1, 1, 0, ControlMask, 0, 2, { ROP, 0 } }; /* PanelSpec RegionPanel = { "RegionPanel, "menurgn.h", 1, 1, RegionBoxes, &RegionAttach }; */ saoimage-1.08/panel/mono.mnu 666 21641 13 2000 4740432210 11100 /* HALFTONE OPS FRAME */ static BtnSpec MonoA[] = { { "dith1", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { BOP, BOP_Matrix1 } }, { "dith2", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { BOP, BOP_Matrix2 } }, { "diffuse", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNCoMode, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { BOP, BOP_Diffuse } }, { "invert", 1, NULL, 0, NULL, 0, NULL, 0, NULL, NULL, NULL, NULL, 0, 2, { BTNToggle, BTNCoWhile }, { ControlMask, ControlMask }, { 0x0, ControlMask }, { BOP, BOP_Invert } } }; BoxSpec MonoBoxes[] = { { "MonoA", { 0, 4, 4, 1, 4.0, 1.0, 0.0, 0.0, 0, 1 }, MonoA } }; PanelAttach MonoAttach = { "ColorPanel", "ColorA", 1, 1, 0, ControlMask, 0, 2, { VOP, VOP_Halftone } }; saoimage-1.08/hfiles/buffer.h 666 21641 13 5745 5466563337 11254 #ifndef lint static char SccsBufId[] = "%W% %G%"; #endif /* Module: Buffer.h * Purpose: Define structure to hold and describe buffers for imaging * Modified: {0} Michael VanHilst initial version 1 December 1988 * {n} -- -- */ /* Notes: * Image data is stored as 16 bit signed integers * Data may have been scaled and biased from image file as per Image.h * Scalemap and histogram have one cell per possible 16 bit value * Scalemap has its mapping to screen display values * Histogram counts the number of its occurences in the display image section * Scalemap and Histogram are the alloc pointers, they must be offset by * ZERO_OFFSET to use them as an array with the signed integer as index * Min and max establish the range for which mapping is figured * mm parameters refer to the previous calculation of the histogram and * can be used to determine if it needs to be updated for a different section * zoomsum refers to mapping adjustments that may be needed if summed blocking * is used in file reading, as different zooms will change the range of * values in the buffer * Panbuf contains a sample of the full image for use in making the pan * window display. It has the same size as the pan window for fast access */ struct sampleRec { int img_leftX, img_rightX; int img_topY, img_lowY; }; struct bufferRec { char *filebuf; /* pointer to input data buffer (any type) */ short *shortbuf; /* 16 bit image array storage */ short *panbuf; /* 16 bit image array storage for pan box */ int filebuf_sz; /* number of bytes allocated for filebuf */ int shortbuf_sz; /* number of shorts allocated */ int panbuf_sz; int shortbuf_square; /* got excess buffer size (for rotation) */ int shortbuf_double; /* measurement of min and max (always followed by rescaling) */ int clipmin, clipmax; /* fimin and fimax in shortbuf, if used */ double cmdMin, cmdMax; /* min and max values from command line */ int cmdmin, cmdmax; /* cmdmin/max as scaled to img values */ int scale_min, scale_max; /* img min and max values for scaling */ int min_given, max_given; /* scale min and max given from command line */ int hist_area; /* effective histogram area for histeq */ int pad; struct sampleRec mm; /* info about when minmax determined */ int *histogram; /* 64k map for histogramming data */ /* img short int to hardware byte scale map */ unsigned char *scalemap; /* 64k map for digitizing to fewer levels */ /* parameters for comparing values with different summing block areas */ int panbuf_summing; /* block summing manifest in pan buffer */ int shortbuf_summing; /* block summing for shortbuf values */ int scalemap_summing; /* block summing of histogram when smap made */ /* support for buffer to display scaling */ int panbuf_max; /* maximum value in pan buffer */ int shortbuf_max; int load_filebuf; /* OK and request to load data */ float lfrac; /* Fraction of peak of histogram for width */ }; saoimage-1.08/hfiles/cgraph.h 666 21641 13 12253 4526313022 11233 #ifndef lint static char SccsCgraphId[] = "%W% %G%"; #endif /* Module: Cgraph.h * Purpose: Define the structs for color graph parameters and some * related constants * Modified: {0} Michael VanHilst initial version 9 June 1989 * {n} -- -- */ #define MAXPOINTS 512 /* COLMAPSZ * 2 */ #define HASH_RAY 2 #define HASH_SZ 4 #define BDRWDTH 1 #define INDENT 3 struct colgRec { /* ensemble for one color */ int active; /* this-color-is-being-manipulated */ int unset; /* line-does-not-match-current-state */ struct subtableRec *table; /* color information */ GCspec *draw; /* info for color gc to draw this graph */ int active_vertex; /* vertex being manipulated */ int active_hash; /* hash mark being manipulated */ int hash_0; /* index in table of hash[0] */ int queue_index; /* position in drawing queue */ int hash_cnt; /* number of hash marks */ int pad; /* allignment space */ XRectangle hash[PSEUDOSZ]; /* hash marks for X */ XPoint line[MAXPOINTS]; /* graph line for this color */ }; /* struct for drawing a colorbar (one under display, one under color graph */ struct colbarRec { /* parameters for color bar */ Display *display; /* display handle of colorbox */ Window ID; /* handle of bar subwindow */ int ref_width, ref_height; /* colorbox size when last checked */ unsigned int width, height; /* dimensions of bar subwindow */ int ncolors; /* number of shades represented */ XImage *image; /* uses image struct of colorbox */ int data_size; /* data allocated (both byte and bit) */ int bytes_per_bit_line; /* bytes per line for bitmap */ char *byte_data; /* one byte per pixel */ char *bit_data; /* one bit per pixel (after byte_data */ }; struct cgraphRec { int inactive; /* do-not-draw-graph */ int vertical; /* 1=vertical sweep, else horizontal */ int ncolors; /* number of image color cells */ int point_cnt; /* applies to all color lines */ int bargraph; /* use-bar-type-instead-of-line */ Font font; /* font id for XDrawImageString */ XFontStruct *fontstruct; /* struct for font size info */ GCspec *disp; /* gc info to draw bar */ GCspec *menu; /* gc info for text */ GCspec *black; /* gc info for black text and lines */ struct colbarRec bar; /* parameters for color bar */ struct { /* parameters to label the bar */ Window min_ID; /* lowest color (0) subwindow */ Window max_ID; /* highest color (ncolors-1) subwindow */ int min_x, min_y; /* lowest color label placement */ int max_x, max_y; /* highest color label placement */ int width, height; /* size of both label subwindows */ int base_width; /* dimension of basic label for centering */ int base_height; } barlabel; struct { /* parameters for color graph */ Display *display; /* display handle of graphbox */ Window ID; /* handle of graph subwindow */ int ref_width, ref_height; /* size of graphbox when last checked */ int ncolors; /* number of shades represented */ int width, height; /* size of graph subwindow */ int xzero, yzero; /* graph area offset */ int xwidth, yheight; /* graph area dimensions */ int xmax, ymax; /* maximum drawing coordinate */ double Xwidth, Yheight; /* often used double version */ double Xinc, Yinc; /* color spacing (ncolors/width or height) */ } graph; struct { /* parameters to label the graph */ Window gamma_ID; /* window in which to label gamma */ Window minmax_ID; /* window in which to label min & max */ int width, height; /* size of both label subwindows */ Window geq_ID; /* borderless box with "g=" */ Window red_ID; /* red border box for red gamma */ Window green_ID; /* green border box for green gamma */ Window blue_ID; /* blue border box for blue gamma */ int box_width, box_height; /* size of each gamma val boxes */ int box_x, box_y; /* text string coord in box */ int geq_width, geq_height; /* size of "g=" box */ int geq_text_x, geq_text_y; /* text string coord in "g=" box */ int three_limit; /* minimum size to hold 3 gamma vals */ int four_limit; /* three_limit plus the "g=" */ int geq_x, geq_y; /* placement of "g=" box */ int red_x, red_y; /* placement of red box */ int green_x, green_y; /* placement of green box */ int blue_x, blue_y; /* placement of blue box */ int min_x, min_y; /* placement of "min" text string */ int max_x, max_y; /* placement of "max" text string */ int minmax_xoff; /* coordinate offset from right */ int minmax_yoff; /* coordinate offset from bottom */ int active; /* label the color bar and graph */ int geq_active; /* include "g=" in gamma label */ } graphlabel; struct { /* special values for hash marks */ double Xzero, Yzero; /* offset by HASH_RAY */ double Xwidth, Yheight; /* decremented by inc */ double Ymax; /* perceptually, y goes upward from max */ } hash; struct colgRec red; /* ensemble for red */ struct colgRec green; /* ensemble for green */ struct colgRec blue; /* ensemble for blue */ int queue_cnt; /* number of color ensembles in queue */ struct colgRec *queue[3]; /* pointers to establish order of drawing */ }; saoimage-1.08/hfiles/cmdparse.h 666 21641 13 732 4617504561 11537 #ifndef lint static char SccsParseId[] = "%W% %G%"; #endif /* Module: CmdParse.h * Purpose: Define the use of the bits in the parsing status word * Modified: {0} Michael VanHilst initial version 9 January 1989 * {n} -- -- */ #define CMD_FNAME 4 #define CMD_FTYPE 8 #define CMD_FREAD 16 #define CMD_ROTATE 32 #define CMD_SCALE 64 #define CMD_SCALIM 128 #define CMD_COLOR 256 #define CMD_GEOMETRY 512 #define CMD_CONNECT 1024 saoimage-1.08/hfiles/color.h 666 21641 13 13460 5265422314 11114 #ifndef lint static char SccsColorId[] = "%W% %G%"; #endif /* Module: Color.h * Purpose: Define the structs for color control parameters and some * related constants * Modified: {0} Michael VanHilst initial version 9 May 1989 * {1} Valdes increased PSEUDOZ to 256 9 Oct 1992 * {n} -- -- */ #define UNKNOWN 0 #define CAN 1 #define CANNOT 2 #define MAY 0 #define MUST 8 #define MAYNOT 16 #define COLMAPSZ 256 /* maximum number of color cells */ #define PSEUDOSZ 256 /* maximum number of table vertices */ struct palletteRec { /* widely used read-only color pixels */ int std_black; /* from BlackPixel */ int std_white; /* from WhitePixel */ int true_black; /* true 0,0,0 black */ int true_white; /* true max,max,max white */ int red; int green; int blue; int yellow; }; struct colmapRec { int private_used; /* flag using private colormap */ int private_installed; /* flag private map is installed */ int default_permit; /* user permission to use default map */ int default_enable; /* confirmed ability to use default map */ int private_permit; /* user permission to use private map */ int private_enable; /* confirmed ability to use private map */ Colormap default_colormap; /* default colormap of root */ Colormap private_colormap; /* private created colormap */ XVisualInfo *default_vinfo; /* info about the default visual */ XVisualInfo *private_vinfo; /* info about a private visual */ }; struct cellspecRec { int overlay; /* request for overlay plane */ int wanted; /* desired (maximum) number of cells */ int min; /* minimum acceptable number of cells */ int got; /* actual number of cells reserved */ }; typedef struct _GCspec { unsigned long foreground; unsigned long background; int func; unsigned long mask; } GCspec; struct gcsetRec { GCspec disp; /* image display parameters */ GCspec draw; /* cursor drawing parameters */ GCspec track; /* cursor tracking parameters */ GCspec undraw; /* cursor erasing parameters */ GCspec incl; /* include region parameters */ GCspec excl; /* exclude region parameters */ GCspec menu; /* stc_black on std_white */ GCspec red; /* for drawing red lines */ GCspec green; /* for drawing green lines */ GCspec blue; /* for drawing blue lines */ GCspec black; /* for drawing black lines */ GCspec white; /* for drawing white lines */ }; struct curcolorRec { int disp_one; /* color map slots for graphics */ int disp_two; char *default_cur; /* default name of cursor color */ char *default_one; /* default names of graphics colors */ char *default_two; char *desired_cur; /* setable name of cursor color */ char *desired_one; /* setable names of graphics colors */ char *desired_two; XColor color_cur; /* description of the cursor color */ XColor color_one; /* description of the graphics color */ XColor color_two; }; struct halftoneRec { int mode; /* dither, diffuse */ int matrixID; /* Matrix1, Matrix2 */ int inverse; /* halftone maintains it's own flag */ int pad; short *matrix; /* dithering weight matrix */ short *errbuf; /* error diffusion error buffer */ }; struct subtableRec { int fixed_cells; /* cellmap written directly (no table) */ int vertex_cnt; /* number of vertices defined */ int map_sz; /* number of cells in map */ int do_gamma; /* flag for gamma correction != 1.0 */ int invert_order; /* order inverted with negative contrast */ int pad; /* hold space for double allignment */ double contrast; /* cell = (base * contrast) + bias */ double bias; /* base = (cell - bias) / contrast */ double gamma; /* gamma correction factor */ double cell_level[PSEUDOSZ]; /* cell levels (usable range is 0-1) */ double base_level[PSEUDOSZ]; /* original levels - .5 (range -0.5-+0.5) */ double intensity[PSEUDOSZ]; /* intensity at each cell level (0-1) */ double cellmap[COLMAPSZ]; /* intensity by cell (0-1) */ double gammamap[COLMAPSZ]; /* intnsity by cell with gamma correction */ }; struct colorTable { struct subtableRec red; struct subtableRec green; struct subtableRec blue; }; struct scalemodeRec { int mode; int wrap_cnt; double root_power; double log_expo; }; struct colorRec { Display *display; /* display server */ int screen; /* screen id for display server */ int screen_depth; /* number of color hardware planes */ Visual *visual; /* visual of the current colormap */ Colormap colormap; /* server colormap being used */ int monochrome; /* only one color with fixed values */ int single_plane; /* one plane, use dither or diffuse */ int cursor_overlay; /* overlay plane in use flag */ int ncolors; /* number of colors reserved for image */ int inverse; /* forward or inverse values */ int colormap_mode; /* halftone, pseudo, fixed */ int color_tableID; /* id of predefined colorset */ int control_mode; /* ContBias, ThreshSat, gamma */ int control_mode_ext; /* R_G_B, RGB (separate, combined) */ int colors_alloced; /* flag that colors were alloc'ed */ int old_mode; /* previous mode (when new change) */ int image_plane_mask; /* mask for image planes only */ unsigned long overlay_mask; /* mask with bit for overlay cursor */ struct scalemodeRec scale; /* parameters for image scaling modes */ struct colmapRec map; /* describe which colormap to use */ struct cellspecRec cells; /* request for cells */ struct palletteRec hard; /* read-only basic colors */ struct halftoneRec halftone; /* halftoning stuff */ struct curcolorRec cur; /* cursor drawing stuff */ struct gcsetRec gcset; /* specifications of GC's used */ struct colorTable ctable; /* pseudocolor vertex table */ unsigned long pixvalmap[COLMAPSZ]; /* byte val to hardware pixel val */ XColor cellstore[COLMAPSZ]; /* used to set colors */ }; saoimage-1.08/hfiles/colormap.h 666 21641 13 1401 5265422423 11563 /* Module: colormap.h * Purpose: Define the structs for color tables and related constants * Modified: {0} Michael VanHilst initial version 9 May 1989 * {1} Valdes increased CTBL_MAX to 256 9 Oct 1992 * {n} -- -- */ #define CTBL_MAX 256 /* structures for internal color map info storage */ struct SubTable { int vertex_cnt; /* number of vertices defined */ int do_gamma; /* flag for gamma correction != 1.0 */ double gamma; /* gamma correction factor */ double cell_level[CTBL_MAX]; /* cell levels (usable range is 0-1) */ double intensity[CTBL_MAX]; /* intensity at each cell level (0-1) */ }; typedef struct _ColorTable { struct SubTable red; struct SubTable green; struct SubTable blue; } ColorTable; saoimage-1.08/hfiles/constant.h 666 21641 13 11165 4617505076 11636 #ifndef lint static char SccsConstId[] = "%W% %G%"; #endif /* Module: Constant.h * Purpose: Named constants to identify modes and requests * Modified: {0} Michael VanHilst initial version 31 December 1987 * {1} MVH Some names changed for X11 version 18 May 1989 * {n} -- -- */ /* special flag values to recognize a unique condition */ #define INOTSET -0x2000000 /* major mode identifiers */ #define BOP 0x001 /* black and white halftone color maps */ #define COP 0x002 /* cursors */ #define EOP 0x003 /* environment controls */ #define GOP 0x004 /* color graph manipulation */ #define MOP 0x005 /* color maps */ #define ROP 0x006 /* region controls */ #define SOP 0x007 /* image reading and scaling */ #define VOP 0x008 /* color manipulation */ #define XOP 0x009 /* magnifier window */ #define ZOP 0x00a /* pan and zoom */ /* environment control flags */ #define EOP_Verbose 0x0010 #define EOP_Raise 0x0020 #define EOP_Reset 0x0030 #define EOP_Track 0x0040 #define EOP_ScopeTrack 0x0050 #define EOP_TextTrack 0x0060 #define EOP_ColorTrack 0x0070 #define EOP_Output 0x0080 #define EOP_NewFile 0x0090 #define EOP_Exit 0x0100 /* image drawing flags - use code numbers */ #define SOP_Linear 0x0001 #define SOP_Wrap 0x0002 #define SOP_Sqrt 0x0003 #define SOP_Log 0x0004 #define SOP_HistEq 0x0005 #define SOP_Zscale 0x0007 #define SOP_Histogram 0x0010 #define SOP_Blink 0x0100 #define SOP_ZoomNone 0x000b #define SOP_ZoomSamp 0x000c #define SOP_ZoomMax 0x000d #define SOP_ZoomSum 0x000e #define SOP_ZoomAv 0x000f /* image reading file and pipe packet types */ #define SOP_Array 0x0010 /* raster array */ #define SOP_FITS 0x0020 /* FlexibleImageTransferSystem */ #define SOP_SAOCCD 0x0030 /* SAO CCD FITS-like array */ #define SOP_IRAF 0x0040 /* IRAF imh file header */ #define SOP_IPC 0x0050 /* Einstein satellite IPC */ #define SOP_HRI 0x0060 /* Einstein satellite HRI */ #define SOP_ROSAT 0x0070 /* Roentgen satellite raw */ #define SOP_HOPR 0x0080 /* ROSAT HRI intermediate */ #define SOP_PROS 0x0090 /* IRAF pipe with PROS regions */ #define SOP_Imtool 0x00a0 /* IRAF pipe with NOAO lists */ #define SOP_MIDAS 0x00b0 #define SOP_Logo 0x00c0 #define SOP_Giff 0x00d0 /* compressed */ #define SOP_RLE 0x00e0 /* Utah RunLengthEncoded */ #define SOP_HDF 0x00f0 /* NCSA image format */ /* Array types for iamge data */ #define ARR_None 0x0000 #define ARR_U1 0x0001 #define ARR_I2 0x0002 #define ARR_U2 0x0003 #define ARR_I4 0x0004 #define ARR_R4 0x0014 #define ARR_R8 0x0018 #define ARR_ASC_I 0x0021 #define ARR_ASC_R 0x0022 #define ARR_ASC_Sc 0x0023 /* color modifying flags */ #define VOP_Halftone 0x0001 #define VOP_Cells 0x0002 #define VOP_Overlay 0x0004 #define VOP_PseudoColor 0x0010 #define VOP_StaticColor 0x0020 #define VOP_ContBias 0x1000 #define VOP_ThreshSat 0x2000 #define VOP_gamma 0x4000 #define VOP_Invert 0x0080 #define MOP_Store 0x0010 #define MOP_Recall 0x0020 #define MOP_Write 0x0030 #define MOP_Read 0x0040 #define MOP_GrayScale 0x0000 #define MOP_Init_A 0x0100 #define MOP_Init_B 0x0200 #define MOP_Init_C 0x0300 #define MOP_Init_D 0x0400 #define MOP_Init_E 0x0500 #define MOP_Init_F 0x0600 #define MOP_Init_G 0x0700 #define MOP_Init_H 0x0800 #define MOP_SignOff 0x1000 /* BLACK AND WHITE HALFTONING */ #define BOP_Dither 0x0010 #define BOP_Diffuse 0x0020 #define BOP_ImPress 0x0030 #define BOP_PostScript 0x0040 #define BOP_Invert 0x0080 #define BOP_Matrix1 0x0100 /* WEIGHTING MATRICES FOR DITHER */ #define BOP_Matrix2 0x0200 #define BOP_SignOff 0x1000 /* REGION FLAGS */ #define ROP_Appnd 0x0001 #define ROP_Cycle 0x0002 #define ROP_Label 0x0003 #define ROP_Omit 0x0004 #define ROP_Reset 0x0005 #define ROP_View 0x0006 #define ROP_Read 0x0007 #define ROP_Write 0x0008 #define ROP_Tody 0x0100 #define ROP_Eric 0x0200 /* DISPLAY ZOOMING - use bits */ #define ZOP_ZPan 0x00ff #define ZOP_unZPan 0xff00 #define ZOP_ZPan14 0x0020 #define ZOP_ZPan12 0x0010 #define ZOP_ZPan1 0x0001 #define ZOP_ZPan2 0x0002 #define ZOP_ZPan4 0x0004 #define ZOP_Center 0x0100 /* CURSOR TYPES */ #define COP_Shape 0x0f00 #define COP_Point 0x0100 #define COP_Polygon 0x0200 #define COP_Box 0x0300 #define COP_Circle 0x0400 #define COP_Ellipse 0x0500 #define COP_Arrow 0x0600 #define COP_Text 0x0700 #define COP_Bitmap 0x0800 #define COP_Annuli 0x1000 #define COP_PieSlice 0x2000 #define COP_SetOrigin 0x4000 #define COP_Orthogonal 0x8000 #define COP_Print 0x0010 /* ZOOMBOX SCOPE ZOOM */ #define XOP_Scope 0x000f #define XOP_unScope 0xfff0 #define XOP_Scope1 0x0001 #define XOP_Scope2 0x0002 #define XOP_Scope4 0x0004 #define XOP_Scope8 0x0008 #define XOP_View -1 #define XOP_Text -2 saoimage-1.08/hfiles/control.h 666 21641 13 5132 4634317444 11441 #ifndef lint static char SccsCtrlId[] = "%W% %G%"; #endif /* Module: Control.h * Purpose: Define the struct for event loop control * Modified: {0} Michael VanHilst initial version 23 December 1988 * {1} MVH added generalized connection struct 30 March 1990 * {n} -- -- */ /* everything needed for single connection to a remote process */ struct connectRec { int type; /* named pipe, socket, or VMS mailbox */ int protocol; /* packet type (IRAF, AIPS, HRC, CMD) */ int fd; /* file descriptor */ int open; /* 0 if closed, else open */ int direction; /* read, write, read/write, listen */ char *name; /* pipe device name or net socket address */ int address; /* network address or parent listener fd */ void (*func)(); /* function to call when this connection signalled */ int mask[4]; /* mask bit for file descriptor */ struct connectRec *next; /* linklist queue for event handling */ struct connectRec *affiliate; /* internal binding for listener/connection */ }; struct controlRec { int mode; /* active event response mode */ int *response; /* widget returned data pointer */ int eventmask; /* current event mask */ int priority; /* special event tracking mask */ int completed; /* event response completed flag */ int verbose; /* print-messages-about-process-statuses */ int tracking; /* magnifier and color graph tracking */ int magni_track; /* track mouse with magni box */ int coord_track; /* track mouse with coord string */ int print_buttons; /* include buttons in hardcopy output */ int printer; /* PostScript, Imagen Impress, etc. */ int look_and_feel; /* SAO, Motif, OpenLook */ int remote_connected; /* must select for more than just X events */ int select_size; /* size of mask to check for event */ int select_mask[4]; /* combined select masks for all connections */ struct connectRec Xserver; struct connectRec IRAF_in; struct connectRec IRAF_out; struct connectRec AIPS_in; struct connectRec AIPS_out; struct connectRec aux_in; struct connectRec aux_out; XEvent event; /* info about most recent X event */ }; /* constants used as codes */ #define IOP_pipe 1 #define IOP_socket 2 #define IOP_mailbox 3 #define IOP_SAO 0 #define IOP_Motif 1 #define IOP_OpenLook 2 #define IOP_IRAF 1 #define IOP_Imtool 257 #define IOP_PROS 513 #define IOP_AIPS 8 #define IOP_HRC 16 #define IOP_cmd 32 #define IOP_PostScript 10 #define IOP_Impress 12 /* Write, Read, and ReadWrite are fixed to match code in ctrldisk, ctrlpipe */ #define IOP_Write 1 #define IOP_Read -1 #define IOP_ReadWrite 0 saoimage-1.08/hfiles/coord.h 666 21641 13 6124 5030502345 11054 #ifndef lint static char SccsCoordId[] = "%W% %G%"; #endif /* Module: Coord.h * Purpose: Define the structs for coordinate handling and some related * constants * Modified: {0} Michael VanHilst initial version 31 December 1988 * {1} MVH replaced rep variables in cornerRec 21 June 1991 * {n} -- -- */ #define LX 1 /* flags to show which edges clipped */ #define TY 2 #define RX 4 #define BY 8 #define LXTY 3 /* flags to test clipped corners */ #define RXBY 12 typedef struct fieldRec { float X1, X2, Y1, Y2; /* edges of subsection area in its system */ int X1i, X2i, Y1i, Y2i; /* first and last coords of subsection */ int Xwdth, Yhght; /* dimensions of subsection */ float cenX, cenY; /* native coordinates of official center */ int width, height; /* dimensions of system */ double ioff; /* ir offset (realX = (float)intX + ioff) */ } Coordsys; typedef struct transfRec { float inx_outx, iny_outx, add_outx; float inx_outy, iny_outy, add_outy; float iadd_outx, iadd_outy; int no_rot; int int_math, zoom, multiply, flip; int ixzoom, iyzoom; } Transform; /* parameters to map data from one window (src) to another (dst) /* clipping occurs when the (dst) window extends beyond the (src) window */ /* clipping codes (unique bit) follow this struct declaration */ typedef struct cornerRec { float cenX, cenY; /* dst's center in src's coords */ double zoom; /* src to dst zoom */ int srcX1, srcX2, srcY1, srcY2; /* src left, top, right, bottom pixs */ int srcXwdth, srcYhght; /* dst's dim's in src's coords */ int clip; /* code where src clips dst */ int block; /* integer blocking code */ int dstX1, dstX2, dstY1, dstY2; /* four edges of map in dst */ int dstXwdth, dstYhght; /* dimensions as delivered to dst */ int dst_x, dst_y; /* src(0,0) in dst coords */ int src_x, src_y; /* dst(0,0) in src coords */ } Edges; struct coordRec { Coordsys file; /* the image file */ Coordsys fbuf; /* buffer for data larger than i*2 */ Coordsys img; /* TV oriented reference system */ Coordsys buf; /* i*2 buffer for data */ Coordsys disp; /* char buffer for main display */ Coordsys pan; /* all buffers for pan/zoom window */ Transform imgtofile, filetoimg; Transform pantoimg, imgtopan; Transform disptoimg, imgtodisp; Transform buftoimg, imgtobuf; Transform fbuftoimg, imgtofbuf; Transform buftofile, filetobuf; Transform disptofile, filetodisp; Transform buftofbuf; /* i*2 buffer to file data buffer */ Transform pantofile; Transform disptobuf; Transform filetoaux; /* 2nd system in coord track string */ Edges id; /* outline of disp in img coords */ Edges tid; /* proposed edges of disp in img */ Edges ib; /* edges of buffer contents in img */ Edges bd; /* edges of disp in the buffer */ Edges fb; /* edges of buffer in file */ Edges fp; /* edges of pan window in file */ int bufcheck; /* flag to buf change to suit disp */ int buferror; /* flag proposed disp needs new buf */ int imtool_aux; /* transform to true coords exists */ int pad; }; saoimage-1.08/hfiles/cursor.h 666 21641 13 5622 4531165444 11277 #ifndef lint static char SccsCursorId[] = "%W% %G%"; #endif /* Module: Cursor.h * Purpose: Define the structs for cursor manipulation parameters * Modified: {0} Michael VanHilst initial version 3 June 1989 * {n} -- -- */ /* get Color declaration if it is not already defined (for GCspec) */ #ifndef COLMAPSZ #include "color.h" #endif #define XSIDE 1 /* codes for sizing on one dimension only */ #define YSIDE 2 #define XYCORNER 3 /* code for sizing by a corner (both axes) */ /* maximum number of points for drawing things (beginning repeated at end) */ #define CURSOR_MAX 80 /* file coordinates */ typedef struct _CurFCoord { float X, Y; /* center dimension (or other ref) */ float Xdim, Ydim; /* dimension appropriate to type */ double area; /* area if computed */ } CurFCoord; /* display window coordinates */ typedef struct _CurWCoord { Display *display; /* display where draw */ Window ID; /* drawable where to draw */ int x, y; /* integer center coordinates */ double X, Y; /* float center coordinates */ double rayX, rayY; /* center to side distance */ } CurWCoord; /* rotation angle parameters */ typedef struct _CurRot { double angle; /* rotation angle in radians */ double sin, cos; /* sin and cos of angle */ double cut_A, cut_B; /* angles of pie cut */ } CurRot; /* parameters used for manipulation */ typedef struct _CurCtrl { int active_vertex; /* index of vertex being maniputated */ int active_side; /* sizing of x dim, y dim, or both */ double axis_ratio; /* fixed ratio of Xdim and Ydim */ } CurCtrl; /* brief parameter set for vertex of polygon */ typedef struct _PolyPoint { float winX, winY; /* int coordinates of point */ float fileX, fileY; /* file coordinates */ int unset; /* display point has been moved */ } PolyPoint; /* main structure */ struct cursorRec { CurFCoord file; /* file coordinates */ CurWCoord win; /* window coordinates */ CurRot rot; /* rotation angle parameters */ CurCtrl ctrl; /* interactive control parameters */ int type; /* type (code in Constant.h) */ int cut; /* apply-pie-cut flag */ int label_point; /* label-the-point flag */ int overwrites_image_data; /* cursor-overwrites-image-data */ int index; /* index for regions and annuli */ int exclude_region; /* region type and suppress drawing */ int point_cnt; /* number of points for XDrawLines */ XPoint *points; /* absolute-coord drawing vertices */ int rectangle_cnt; /* number of hash-mark boxes */ XRectangle *rectangles; /* for XDrawRectangles */ int poly_cnt; /* number of vertices in polygon */ PolyPoint *poly; /* array of polygon vertex coords */ int annuli; /* annuli of this type */ struct cursorRec *next_annulus; /* annulus linklist */ struct cursorRec *next_region; /* region linklist */ GCspec *draw; /* color set to draw this cursor */ }; saoimage-1.08/hfiles/define.h 666 21641 13 3315 4617513424 11211 #ifndef lint static char defineId[] = "%W% %G%"; #endif /* * Module: Define.h * Purpose: Define commonly used constants and macros */ #define YES 1 #define UNKNOWN 0 #define NO -1 #define DONT_CARE -2 #define U_DONT_CARE 0xA0000000 #define SZ_FNAME 128 #define SZ_LINE 256 #define SMALL_NUMBER 1.0E-30 #define LARGE_NUMBER 1.0E30 /* we don't know if every math.h has a PI defined */ #ifndef PI #define PI 3.14159265358979323846 #endif #define TWO_PI 6.28318530717958647692 /* STRUCTURES AND DEFINITIONS USED BY MANY FILES */ #define MIN(a,b) (((a) < (b)) ? (a) : (b)) #define MAX(a,b) (((a) > (b)) ? (a) : (b)) #define SQR(a) ((a) * (a)) #define ABS(a) ((a) < 0 ? (-(a)) : (a)) /* * Macro: RND * Purpose: Round to nearest integer value, regardless of sign */ #define RND(a) (((a) < 0.0) ? ((int)((a) - 0.5)) : ((int)((a) + 0.5))) /* * Macro: INTERP * Purpose: Given X along a straight line, interpolate to solve for Y * Used by: Color map routines * Inputs: a,b are X at each end, e,f are Y at each end, x is given X * Exception: a must be <= b * Exception: x must be between a and b (inclusive) * Exception: All values should be floating point * Method: If x is same as a, return e, else do interpolation. * If (b-a)==0, then (x-a)==0, so zero-divide is avoided. */ #define INTERP(a,x,b,e,f) ((x-(a)) 0-255, z=255) * Exception: a must be <= b */ #define INCSZ(a,b,e,f,z) ((b-(a)) -- -- */ #define STACK_SZ 5 typedef struct _editstring { int char_cnt; /* number of characters in string */ int oversize; /* string-too-long-to-show-all */ int *charsz; /* array of character widths */ char *string; /* character string */ } EditString; /* structure for an editor session's string info and buffers */ typedef struct _editstruct { Display *display; /* display in which to write */ Window ID; /* window in which to write */ XFontStruct *fontstruct; /* info about font to use */ Font font; /* font for gc */ GC gc; /* drawing gc */ int space_width; /* width of space character in this font */ unsigned long foreground; /* text foreground color */ unsigned long background; /* text (and window?) background color */ int x, y; /* beginning coordinate of line */ int oversize; /* string-is-too-long-to-show-all-of-it */ int first_char_shown; /* first character in section shown */ int last_char_shown; int last_x_shown; int left_mark_drawn; /* left-overflow-mark-drawn */ int right_mark_drawn; /* right-overflow-mark-drawn */ int area_y; int area_height; int max_pixlen; /* maximum length of line in pixels */ int max_char_cnt; /* maximum number of characters in buffer */ int active_position; /* current text cursor position */ int char_cnt; /* number of characters in string */ int *charsz; /* array of character widths */ char *string; /* character string */ int *pixlen; /* pixel offset of beginning of each char */ int stack_index; /* last referenced stored line */ int stack_cnt; /* number of lines stored */ int pad; /* 28th int for even number */ EditString buf[STACK_SZ]; /* line storage ring */ } EditStruct; /* stucture for info about the popup window */ struct popRec { Display *display; Window ID; unsigned long foreground; unsigned long background; XFontStruct *fontstruct; Font font; int ref_width; /* reference by which dimensions are set */ int ref_height; int pointer_x, pointer_y; /* position of pointer before popwin mapped */ int width; int height; int font_height; int one_y; int two_y1; int two_y2; int prompt_x; int prompt_y; }; saoimage-1.08/hfiles/extern.h 666 21641 13 1213 4614134734 11257 /* * Extern.h * * Mike VanHilst, Smithsonian Astrophysical Observatory * Cambridge, Massachusetts December 31, 1987 * * updated with new names 21 September 1988, 30 January 1989 * * externs to reference structures declared in MainInit.c */ extern struct windowRec btnbox; extern struct colorRec color; extern struct windowRec colorbox; extern struct controlRec control; extern struct coordRec coord; extern struct windowRec dispbox; extern struct windowRec graphbox; extern struct imageRec img; extern struct windowRec magnibox; extern struct windowRec panbox; extern struct cursorRec cursor; extern struct bufferRec buffer; saoimage-1.08/hfiles/histeq.h 666 21641 13 2743 4526313032 11250 #ifndef lint static char SccsHistEqId[] = "%W% %G%"; #endif /* Module: HistEq.h * Purpose: Define the structs for histogram equalization * Modified: {0} Michael VanHilst initial version 30 May 1989 * {n} -- -- */ #define MAX(a,b) (((a) > (b)) ? (a) : (b)) /* link describes a section of the histogram to have levels allocated */ typedef struct histogramLink { int low; /* index of lowest histogram entry */ int high; /* index of highest histogram entry */ int range; /* number of histogram entries covered */ int nz_entries; /* number of non-zero histogram entries */ int pixel_area; /* number of image pixels within range */ int max_entry; /* largest area for any single entry */ int excess_pixels; /* pixel area in excess of average */ int color_levels; /* number of color levels allocated */ struct histogramLink *next; /* link list pointer */ int pad; } SubrangeLink; /* list describing details of color level allocation for a histogram range */ typedef struct histogramList { int pixel_area; /* pixel area that is covered by this color level */ int first, last; /* first and last histogram entries cor this color */ int pad; int shrink_area; /* area covered by omitting last non-zero entry */ int shrink_entry; /* index for last to excude last non-zero entry */ int stretch_area; /* area covered by including next non-zero entry */ int stretch_entry; /* index for last to include next non-zero entry */ } SubrangeList; saoimage-1.08/hfiles/imtool.h 666 21641 13 5032 5010113727 11246 /* template for IRAF list-format point cursor coordinate filename */ #ifdef VMS #define COORDFILE "frame.%d_%d" #else #define COORDFILE "frame.%d.%d" #endif /* template for world coordinate system file name */ #define WCSFILE "imtool_%d.wcs" #define SZ_WCSBUF 320 /* WCS text buffer size */ /* user's local frame buffer configurations */ #define FBCONFIG_1 ".imtoolrc" /* system wide frame buffer configurations */ #ifndef FBCONFIG_2 #define FBCONFIG_2 "/usr/local/lib/imtoolrc" #endif /* two choices of system environment varibale names */ #define FBCONFIG_ENV1 "imtoolrc" #define FBCONFIG_ENV2 "IMTOOLRC" /* default values */ #define DEF_NCONFIG 1 /* number of f.b. configs */ #define DEF_NFRAMES 1 /* save memory; only one frame */ #define DEF_FRAME_WIDTH 512 /* 512 square frame */ #define DEF_FRAME_HEIGHT 512 /* 512 square frame */ /* range of display vazlues used by imtool */ #define CMS_DATASTART 1 /* minimum data */ #define CMS_DATAEND 200 /* value imtool uses as data maximum */ #define CMS_DATARANGE 200 /* range of display values in imtool */ /* types of scaling algorithms used by images.tv.display */ #define W_UNITARY 0 /* direct unscaled */ #define W_LINEAR 1 /* linear but from given low to high */ #define W_LOG 2 /* log from low to high */ /* codes for the imtool packet (IIS) header */ #define MEMORY 001 /* packet with image data */ #define LUT 02 /* switch display buffer */ #define FEEDBACK 005 /* for imtool, do clear and fbconfig */ #define IMCURSOR 020 /* logical image cursor */ #define WCS 021 /* used to set WCS */ #define PACKED 0040000 /* bit indicates byte data (in tid) */ #define COMMAND 0100000 /* bit with LUT to set disp frame */ #define IIS_READ 0100000 /* tid w/ MEMORY to read back dsip buf */ #define IMC_SAMPLE 0040000 /* code for read cursor now */ #define IMT_FBCONFIG 077 /* mask for fbconfig num (in tid) */ struct imtoolRec { short tid; /* Type of message identifier ("transfer id") */ short thingct; /* Count appropriate to message type */ short subunit; /* Intended target type (MEMORY,LUT,FEEDBACK,etc) */ short checksum; /* Error check */ short x, y; /* (y,x & 01777) are UL coordinates in MEMORY packet */ short z; /* (z & 07777) is frame number in FEEDBACK & MEMORY */ short t; /* ? */ }; /* maximum transfer size (pixels per packet) */ #ifdef VMS #define SZ_FIFOBUF 8192 #else #ifdef IRAF25 #define SZ_FIFOBUF 4096 #else #define SZ_FIFOBUF 4000 /* transfer size for FIFO i/o */ #endif #endif saoimage-1.08/hfiles/magnify.h 666 21641 13 5434 4613340454 11412 #ifndef lint static char SccsMagnifyId[] = "%W% %G%"; #endif /* Module: Magnify.h * Purpose: Quick access list of parameters for the magnifier window * Modified: {0} Michael VanHilst initial version 6 June 1989 * {n} -- -- */ struct magRec { struct { Display *display; /* display for magnibox */ Window ID; /* magnibox drawable */ int x, y; /* drawing position in magnibox */ int width, height; /* drawing dimensions of magnibox */ } win; struct { short *shortbuf; /* pointer at image data buffer */ int width; /* width of image data buffer */ float X, Y; /* most recent magnified coordinates */ float X1lim; /* min value of bufx to catch any data */ float X2lim; /* max value of bufx to catch any data */ float X2bdr; /* max value of bufx before showing edge */ float Y1lim; /* min value of bufy to catch any data */ float Y2lim; /* max value of bufy to catch any data */ float Y2bdr; /* max value of bufy before showing edge */ float Xcen; /* left edge to hot spot in buf coords */ float Ycen; /* top edge to hot spot in buf coords */ } buf; int view; /* turn on magnifier tracking */ int label; /* turn on label tracking */ XImage *image; /* X image drawing structure */ GCspec *gcset_disp; /* GC values for image drawing */ GCspec *gcset_aim; /* for aim mark foreground and background */ GCspec *gcset_label; /* for the text label */ int data_size; /* buffer size */ char *data; /* drawing image buffer (image->data) */ int data_x_hot, data_y_hot; /* coords of hot spot in data */ unsigned char *lookup; /* signed indexing pointer at scalemap */ int halftone; /* flag if halftone display */ int magnify; /* disp to magnibox zoom */ int zoom_rep; /* 1/blocking factor buffer to magnibox */ int bytes_per_line; /* num of shorts in one row of bitmap */ int inverse; /* dithering positive or inverse color */ int bitmap_size; /* number of bytes used for bitmap */ short *matrix; /* dithering matrix (16x16) */ short *matrix_end; /* first element beyond end of matrix */ struct { int x_x, y_x, val_x; /* x coord for x & y coords and val */ int y; /* y coord of x,y,val string */ int proportional; /* flag that font is proportional */ int width; /* width of entire string */ int space; /* width of one character */ int dot; int dash; int e; int x_xoff; /* offset from left to beginning of string */ int y_xoff, val_xoff; /* offsets from x to next two numbers */ int yoff; /* y offset from bottom */ XFontStruct *fontstruct; /* font info for measuring drawing text */ Font font; unsigned long foreground; /* text drawing colors */ unsigned long background; int numsz[10]; } text; }; saoimage-1.08/hfiles/region.h 666 21641 13 1520 4526313035 11231 #ifndef lint static char SccsRegionId[] = "%W% %G%"; #endif /* Module: Region.h * Purpose: Define the structs for region drawing parameters * Modified: {0} Michael VanHilst initial version 29 June 1989 * {n} -- -- */ struct regdrawRec { int visible; /* draw-regions-in-display-window */ int label; /* label-regions-when-drawn */ int label_xoff; /* x text draw offset from point */ int label_yoff; /* y text draw offset from point */ XFontStruct *fontstruct; /* font used */ int filled_label; /* draw-text-with-background-filled */ int label_height; /* minimum vertical distance between labels */ int pad; } regdraw; /* parameter record for regions given on a single line */ #define REG_LIMIT 32 struct reg_param { int type; int exclude; char *line; char connector; char not; }; saoimage-1.08/hfiles/scale.h 666 21641 13 1245 4526313036 11042 #ifndef lint static char SccsScaleId[] = "%W% %G%"; #endif /* Module: Scale.h * Purpose: Define the range of accepted image values and other scale * histogram parameters * Note: Assumes full range of signed short * Modified: {0} Michael VanHilst initial version 28 September 1988 * {n} -- -- */ #define SCALEBUFSZ 65536 /* size of buffer (full range of short 0x10000) */ #define SCALEWIDTH 65534 /* range of image values allowed in histogram */ #define SCALEMIN -32767 /* minimum image value allowed */ #define SCALEMAX 32767 /* maximum image value allowed */ #define SCALEOFF 32768 /* offset from allocated array to zero (0x8000) */ saoimage-1.08/hfiles/struct.h 666 21641 13 576 4531161740 11264 #ifndef lint static char SccsStructId[] = "%W% %G%"; #endif /* Module: Struct.h * Purpose: Declare all of the major structure types * Modified: {0} Michael VanHilst initial version 5 June 1989 * {n} -- -- */ #include "color.h" #include "control.h" #include "coord.h" #include "cursor.h" #include "image.h" #include "window.h" #include "buffer.h" saoimage-1.08/hfiles/window.h 666 21641 13 13634 4526313037 11310 #ifndef lint static char SccsWndwId[] = "%W% %G%"; #endif /* Module: Window.h * Purpose: Define the struct for each window's parameters and some * related constants * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ /* standard width of auziliary windows */ #define AUXWIDTH 128 /* codes to identify corner to be anchored when making a window adjustment */ #define ULCORNER 1 #define LLCORNER 2 #define URCORNER 3 #define LRCORNER 4 /* codes to indicate type of window adjustment */ #define ADJ_MOVE 1 #define ADJ_RESIZE 2 /* indices for array of adjustment parameters */ #define ADJ_REF 0 #define ADJ_X 1 #define ADJ_Y 2 #define ADJ_W 3 #define ADJ_H 4 /* * struct windowRec * * record structure with useful parameters for a window */ struct windowRec { Window ID; /* window's nom de plume (ptr) */ Display *display; /* display server handle */ int screen; /* display screen number */ Window parent; /* parent of this window */ unsigned int depth; /* window depth */ int active; /* flag to say window is there */ int x, y; /* upper left screen coords */ unsigned int width, height; /* window width (-1 border) */ unsigned int bdrwidth; /* width of the border */ int bdrtotal; /* width added by both borders */ int rightx, lowery; /* useful screen coordinates */ int xzero, yzero; /* u-l corner of drawing area */ int xwidth, yheight; /* size of drawing area */ int moored; /* flag to move window with disp */ int data_size; /* byte size of image data buf */ XImage image; /* for XPutImage */ Visual *visual; /* visual type */ unsigned long valuemask; /* mask to set attributes */ XSetWindowAttributes attrs; /* for XCreateWindow */ XSizeHints hints; /* for XSetNormalHints */ }; /* * typical attributes neeeding to be set: * attrs.cursor = [window cursor]; * attrs.background_pixel = [window backcolor]; * attrs.event_mask = [window eventmask]; * valuemask = CWBackPixel | CWCursor; (event_mask set separately) */ /* * typical hints to set and use: * hints.flags = USPosition | USSize | PMinSize; * hints.x = * hints.y = * hints.width = * hints.height = * hints.min_width = * hints.min_height = */ #ifdef SAMPLE struct windowRec foobox = { 0, /* Window ID; window's nom de plume (ptr) */ NULL, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 0, 0, /* unsigned int width, height; window width (-1 border) */ 3, /* unsigned int bdrwidth; width of the border */ 6, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 0, 0, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 1, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { /* XImage image; for XPutImage */ 0, 0, /* int width, height; 0, 0 */ 0, /* int xoffset; 0 */ 0, /* int format; XYBitmap, XY/ZPixmap */ NULL, /* char *data; NULL */ LSBFirst, /* int byte_order; LSBFirst */ 8, /* int bitmap_unit; 8 */ LSBFirst, /* int bitmap_bit_order; LSBFirst */ 8, /* int bitmap_pad; 8 */ 0, /* int depth; 1 or runtime set */ 0, /* int bytes_per_line; 0 */ 8, /* int bits_per_pixel; 1 or 8 */ 0, 0, 0, /* unsigned long red_mask, green_mask, blue_mask; runtime */ NULL, /* char *obdata; NULL */ { 0 } }, /* { struct func f }; { NULL } */ NULL, /* Visual *visual; visual type */ 0, /* unsigned long valuemask; mask to set attributes */ { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ 0, /* int win_gravity; CWWinGravity */ 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWSaveUnder */ 0, /* long event_mask; CWEventMask */ 0, /* long do_not_propogate_mask; CWDontPropagate */ 0, /* Bool override_redirect; CWOverrideRedirect */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ { /* XSizeHints hints; for XSetNormalHints */ 0, /* long flags; defined fields */ 0, 0, /* int x, y; USPosition PPosition */ 0, 0, /* int width, height; USSize PSize */ 0, 0, /* int min_width, min_height; PMinSize */ 0, 0, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 0 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 0 } } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ } #endif #ifdef NOTES application notes: What Must Be Set At Runtime, When Exactly and Where init_time: - init_main display, screen, - init_color visual, depth, ximage.depth, attrs.colormap, ximage.format, - init_mousecursors attrs.cursor, - init_window attrs.background_pixel, attrs.border_pixel, valuemask, hints.x, hints.y, hints.width, hints.height, bdrwidth, bdrtotal, x, y, width, height, xwidth, yheight, active, ximage.width, ximage.height, ximage.bytes_per_line, - init_buffer data_buf, buf_size, ximage.data, - init_drawing gc, change_colormode: ximage.format, ximage.bytes_per_line, [attrs.colormap, data_buf, buf_size, ximage.data], change_window: x, y, width, height, xwidth, yheight, data_buf, buf_size, ximage.data, ximage.width, ximage.height, ximage.bytes_per_line, map/unmap_window: active, #endif saoimage-1.08/hfiles/rtcmd.h 666 21641 13 717 4622543246 11054 /* command fields */ #define NOPER 0 #define PIXEL 1 #define FRAME 2 #define FILER 3 /* PIXEL and FRAME command modes */ #define SET 1 #define ADD 2 #define AND 3 #define XOR 4 /* FILER subcommands */ #define INITI 1 #define GNAME 2 #define SNAME 3 #define WFILE 4 #define RFILE 5 typedef struct _position { short x, y, z; } position; typedef struct _cmdrec { short command; short count; short x, y, z; short dx, dy, mode; } cmdrec; saoimage-1.08/hfiles/image.h 666 21641 13 6071 4532141705 11036 #ifndef lint static char SccsImageId[] = "%W% %G%"; #endif /* Module: Image.h * Purpose: Define the struct for image reading & manipulation parameters * Modified: {0} Michael VanHilst initial version 24 January 1989 * {n} -- -- */ struct imageRec { char *filename; /* name of image file */ int fd; /* open handle of image file */ int headersize; /* bytes at top of file used for header */ char *header; /* stored header */ int file_type; /* type of file (array,fits,iraf,etc) */ int storage_type; /* code for file storage (short, real, etc) */ int bytepix; /* number of bytes for pixel of data */ int nimage; /* number of image if more than one in file */ int keep_data; /* flag to keep file data in memory */ int byte_swap; /* flag to byte swap data after reading file */ int row_order; /* row one as top or bottom */ int index_base; /* 0 or 1 based index */ int rotate_code; /* rotation to apply */ int block_type; /* type of blocked file reading */ int filecols, filerows; /* dimensions of image file */ int fiX1, fiX2, fiY1, fiY2; /* image file subsection selection */ double ficenX, ficenY; /* center of image subsection used */ int fiblock; /* base file to image blocking selection */ int dispcols, disprows; /* initial display window size selection */ int dispfix; /* flag that display size was specified */ int keepfilebuf; /* flag to keep file format data buf */ int fdblock; /* initial file to disp blocking selection */ double fdcenX, fdcenY; /* initial display center in file coords */ int bufmax; /* limit of buffer size (square) */ int buffix; /* flag to prevent its being readjusted */ int dispxmax, dispymax; /* limits of display window size */ int dispmin; /* (2 max's but symmetric min) */ int energy; /* energy filter (bitwise) for xray images */ int scaling; /* initial scaling selection */ int fscaled; /* scale and offset used to write file data */ double fscale, fbias; /* prior scale and offset of file data */ double fimin, fimax; /* limits to clip image values (if a -- -- */ /* Notes: * Image data is stored as 16 bit signed integers * Data may have been scaled and biased from image file as per Image.h * Scalemap and histogram have one cell per possible 16 bit value * Scalemap has its mapping to screen display values * Histogram counts the number of its occurences in the display image section * Scalemap and Histogram are the alloc pointers, they must be offset by * ZERO_OFFSET to use them as an array with the signed integer as index * Min and max establish the range for which mapping is figured * mm parameters refer to the previous calculation of the histogram and * can be used to determine if it needs to be updated for a different section * zoomsum refers to mapping adjustments that may be needed if summed blocking * is used in file reading, as different zooms will change the range of * values in the buffer * Panbuf contains a sample of the full image for use in making the pan * window display. It has the same size as the pan window for fast access */ struct sampleRec { int img_leftX, img_rightX; int img_topY, img_lowY; }; struct bufferRec { char *filebuf; /* pointer to input data buffer (any type) */ short *shortbuf; /* 16 bit image array storage */ short *panbuf; /* 16 bit image array storage for pan box */ int filebuf_sz; /* number of bytes allocated for filebuf */ int shortbuf_sz; /* number of shorts allocated */ int panbuf_sz; int shortbuf_square; /* got excess buffer size (for rotation) */ int shortbuf_double; /* measurement of min and max (always followed by rescaling) */ int clipmin, clipmax; /* fimin and fimax in shortbuf, if used */ double cmdMin, cmdMax; /* min and max values from command line */ int cmdmin, cmdmax; /* cmdmin/max as scaled to img values */ int scale_min, scale_max; /* img min and max values for scaling */ int min_given, max_given; /* scale min and max given from command line */ int hist_area; /* effective histogram area for histeq */ int pad; struct sampleRec mm; /* info about when minmax determined */ int *histogram; /* 64k map for histogramming data */ /* img short int to hardware byte scale map */ unsigned char *scalemap; /* 64k map for digitizing to fewer levels */ /* parameters for comparing values with different summing block areas */ int panbuf_summing; /* block summing manifest in pan buffer */ int shortbuf_summing; /* block summing for shortbuf values */ int scalemap_summing; /* block summing of histogram when smap made */ /* support for buffer to display scaling */ int panbuf_max; /* maximum value in pan buffer */ int shortbuf_max; int load_filebuf; /* OK and request to load data */ }; saoimage-1.08/defs/btnbox.def 666 21641 13 6262 4526312745 11237 #ifndef lint static char SccsBtnboxId[] = "%W% %G%"; #endif /* Module: Btnbox.def * Purpose: Declare and initialize magnifier window parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ struct windowRec btnbox = { 0, /* Window ID; window's nom de plume (ptr) */ NULL, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 0, 0, /* unsigned int width, height; window width (-1 border) */ 0, /* unsigned int bdrwidth; width of the border */ 0, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 0, 0, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 1, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { /* XImage image; for XPutImage */ 0, 0, /* int width, height; 0, 0 */ 0, /* int xoffset; 0 */ 0, /* int format; XYBitmap, XY/ZPixmap */ NULL, /* char *data; NULL */ LSBFirst, /* int byte_order; LSBFirst */ 8, /* int bitmap_unit; 8 */ LSBFirst, /* int bitmap_bit_order; LSBFirst */ 8, /* int bitmap_pad; 8 */ 0, /* int depth; 1 or runtime set */ 0, /* int bytes_per_line; 0 */ 8, /* int bits_per_pixel; 1 or 8 */ 0, 0, 0, /* unsigned long red_mask, green_mask, blue_mask; runtime */ NULL, /* char *obdata; NULL */ { 0 } }, /* { struct func f }; { NULL } */ NULL, /* Visual *visual; visual type */ /* int valuemask; mask to set attributes */ CWBackPixel | CWBorderPixel | CWColormap | CWCursor | CWWinGravity, { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ /* int win_gravity; CWWinGravity */ NorthWestGravity, 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWSaveUnder */ /* long event_mask; CWEventMask */ ExposureMask, 0, /* long do_not_propogate_mask; CWDontPropagate */ 0, /* Bool override_redirect; CWOverrideRedirect */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ { /* XSizeHints hints; for XSetNormalHints */ 0, /* long flags; defined fields */ 1, 0, /* int x, y; USPosition PPosition */ 514, 45, /* int width, height; USSize PSize */ 402, 45, /* int min_width, min_height; PMinSize */ 0, 0, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 0 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 0 } } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ }; saoimage-1.08/defs/cgraph.def 666 21641 13 32116 4526312746 11225 #ifndef lint static char SccsCgraphdefId[] = "%W% %G%"; #endif /* Module: Cgraph.def * Purpose: Declare the struct for color graph parameters * Modified: {0} Michael VanHilst initial version 11 June 1989 * {n} -- -- */ struct colbarRec colorbar = { /* parameters for display color bar */ NULL, /* Display *display; display handle of colorbox */ NULL, /* Window ID; handle of bar subwindow */ 0, 0, /* int ref_width, ref_height; colorbox size when last checked */ 0, 0, /* unsigned int width,height; dimensions of bar subwindow */ 0, /* int ncolors; number of shades represented */ NULL, /* XImage *image; uses image struct of colorbox */ 0, /* int data_size; data allocated (both byte and bit) */ 0, /* int bytes_per_bit_line; bytes per line for bitmap */ NULL, /* char *byte_data; one byte per pixel */ NULL /* char *bit_data; one bit per pixel (after byte_data */ }; struct cgraphRec cgraph = { 1, /* int inactive; do-not-draw-graph */ 0, /* int vertical; 1=vertical sweep, else horizontal */ 0, /* int ncolors; number of image color cells */ 0, /* int point_cnt; applies to all color lines */ 0, /* int bargraph; use-bar-type-instead-of-line */ NULL, /* Font font; font id for XDrawImageString */ NULL, /* XFontStruct *fontstruct; struct for font size info */ NULL, /* GCspec *disp; gc info to draw bar */ NULL, /* GCspec *menu; gc info for text */ NULL, /* GCspec *black; gc info for black text and lines */ { /* struct colbarRec bar; parameters for graph color bar */ NULL, /* Display *display; display handle of colorbox */ NULL, /* Window ID; handle of bar subwindow */ 0, 0, /* int ref_width, ref_height; colorbox size when last checked */ 0, 0, /* unsigned int width,height; dimensions of bar subwindow */ 0, /* int ncolors; number of shades represented */ NULL, /* XImage *image; uses image struct of colorbox */ 0, /* int data_size; data allocated (both byte and bit) */ 0, /* int bytes_per_bit_line; bytes per line for bitmap */ NULL, /* char *byte_data; one byte per pixel */ NULL /* char *bit_data; one bit per pixel (after byte_data */ }, { /* struct { parameters to label the bar */ NULL, /* Window min_ID; lowest color (0) subwindow */ NULL, /* Window max_ID; highest color (ncolors-1) subwindow */ 0, 0, /* int min_x, min_y; lowest color label placement */ 0, 0, /* int max_x, max_y; highest color label placement */ 0, 0, /* int width, height; size of both label subwindows */ 0, /* int base_width; dimension of basic label to center */ 0 /* int base_height; */ }, /* } barlabel; */ { /* struct { parameters for color graph */ NULL, /* Display *display; display handle of graphbox */ NULL, /* Window ID; handle of graph subwindow */ 0, 0, /* int ref_width, ref_height; size of graphbox when last checked */ 0, /* int ncolors; number of shades represented */ 0, 0, /* int width, height; size of graph subwindow */ 0, 0, /* int xzero, yzero; graph area offset */ 0, 0, /* int xwidth, yheight; graph area dimensions */ 0, 0, /* int xmax, ymax; maximum drawing coordinate */ 0.0,0.0, /* double Xwidth, Yheight; often used double version */ 0.0,0.0 /* double Xinc, Yinc; color spacing (ncolors/wdth;hght) */ }, /* } graph; */ { /* struct { parameters to label the graph */ NULL, /* Window gamma_ID; window in which to label gamma */ NULL, /* Window minmax_ID; window in which to label min & max */ 0, 0, /* int width, height; size of both label subwindows */ NULL, /* Window geq_ID; borderless box with "g=" */ NULL, /* Window red_ID; red border box for red gamma */ NULL, /* Window green_ID; green border box for green gamma */ NULL, /* Window blue_ID; blue border box for blue gamma */ 0, 0, /* int box_width, box_height; size of each gamma val boxes */ 0, 0, /* int box_x, box_y; text string coord in box */ 0, 0, /* int geq_width, geq_height; size of "g=" box */ 0, 0, /* int geq_text_x, geq_text_y;text string coord in "g=" box */ 0, /* int three_limit; minimum size to hold 3 gamma vals */ 0, /* int four_limit; three_limit plus the "g=" */ 0, 0, /* int geq_x, geq_y; placement of "g=" box */ 0, 0, /* int red_x, red_y; placement of red box */ 0, 0, /* int green_x, green_y; placement of green box */ 0, 0, /* int blue_x, blue_y; placement of blue box */ 0, 0, /* int min_x, min_y; placement of "min" text string */ 0, 0, /* int max_x, max_y; placement of "max" text string */ 0, /* int minmax_xoff; coordinate offset from right */ 0, /* int minmax_yoff; coordinate offset from bottom */ 0, /* int active; label the color bar and graph */ 0 /* int geq_active; include "g=" in gamma label */ }, /* } graphlabel; */ { /* struct { special values for hash marks */ 0.0,0.0, /* double Xzero, Yzero; offset by HASH_RAY */ 0.0,0.0, /* double Xwidth, Yheight; decremented by inc */ 0.0 /* double Ymax; perceptually, y goes upward from max */ }, /* } hash; */ { /* struct colgRec red; ensemble for red */ 0, /* int active; this-color-is-being-manipulated */ 1, /* int unset; line-does-not-match-current-state */ NULL, /* struct subtableRec *table; color information */ NULL, /* GCspec *draw; gc info to draw graph this color */ -1, /* int active_vertex; vertex being manipulated */ -1, /* int active_hash; hash mark being manipulated */ 0, /* int hash_0; index in table of hash[0] */ 0, /* int queue_index; position in drawing queue */ 0, /* int hash_cnt; number of hash marks */ 0, /* int pad; allignment space */ /* XRectangle hash[PSEUDOSZ]; hash marks for X (PSEUDOSZ = 64) */ { { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ } }, { 0 } /* XPoint line[MAXPOINTS]; graph line for this color */ }, { /* struct colgRec green; ensemble for green */ 0, /* int active; this-color-is-being-manipulated */ 1, /* int unset; line-does-not-match-current-state */ NULL, /* struct subtableRec *table; color information */ NULL, /* GCspec *draw; gc info to draw graph this color */ -1, /* int active_vertex; vertex being manipulated */ -1, /* int active_hash; hash mark being manipulated */ 0, /* int hash_0; index in table of hash[0] */ 1, /* int queue_index; position in drawing queue */ 0, /* int hash_cnt; number of hash marks */ 0, /* int pad; allignment space */ { /* XRectangle hash[PSEUDOSZ]; hash marks for X (PSEUDOSZ = 64) */ { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ } }, { 0 } /* XPoint line[MAXPOINTS]; graph line for this color */ }, { /* struct colgRec blue; ensemble for blue */ 0, /* int active; this-color-is-being-manipulated */ 1, /* int unset; line-does-not-match-current-state */ NULL, /* struct subtableRec *table; color information */ NULL, /* GCspec *draw; gc info to draw graph this color */ -1, /* int active_vertex; vertex being manipulated */ -1, /* int active_hash; hash mark being manipulated */ 0, /* int hash_0; index in table of hash[0] */ 2, /* int queue_index; position in drawing queue */ 0, /* int hash_cnt; number of hash marks */ 0, /* int pad; allignment space */ { /* XRectangle hash[PSEUDOSZ]; hash marks for X (PSEUDOSZ = 64) */ { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ }, { 0, 0, HASH_SZ, HASH_SZ } }, { 0 } /* XPoint line[MAXPOINTS]; graph line for this color */ }, 3, /* int queue_cnt; number of color ensembles in queue */ { 0 } /* struct colgRec *queue[3]; order of drawing */ }; saoimage-1.08/defs/circle.def 666 21641 13 7753 4526312747 11214 /* Module: Circle.def * Purpose: Define the coordinates for evenly spaced points on 1/8th of * a unit circle centered at 0,0. * Note: Used to draw circles and ellipses by scaling and symmetrically * adding or subtracting on each axis (circles have 8 fold * symmetry, ellipse code used has only 4 way symmetry). * Note: Sizes must be multiples of 8 * Note: 48 is an adequate number for decent looking circles, 64 may * be desired for ellipses as the far ends get jaggy with 48. * Note: Code to generate these lists is at end of this file */ static double Circle48X[12] = { -0.06540312923014, -0.19509032201613, -0.32143946530316, -0.44228869021900, -0.55557023301960, -0.65934581510007, -0.75183980747898, -0.83146961230255, -0.89687274153269, -0.94693012949511, -0.98078528040323, -0.99785892323860 }; static double Circle48Y[12] = { -0.99785892323860, -0.98078528040323, -0.94693012949511, -0.89687274153269, -0.83146961230255, -0.75183980747898, -0.65934581510007, -0.55557023301960, -0.44228869021900, -0.32143946530316, -0.19509032201613, -0.06540312923014 }; static double Circle64X[16] = { -0.04906767432742, -0.14673047445536, -0.24298017990326, -0.33688985339222, -0.42755509343028, -0.51410274419322, -0.59569930449243, -0.67155895484702, -0.74095112535496, -0.80320753148064, -0.85772861000027, -0.90398929312344, -0.94154406518302, -0.97003125319454, -0.98917650996478, -0.99879545620517 }; static double Circle64Y[16] = { -0.99879545620517, -0.98917650996478, -0.97003125319454, -0.94154406518302, -0.90398929312344, -0.85772861000027, -0.80320753148064, -0.74095112535496, -0.67155895484702, -0.59569930449243, -0.51410274419322, -0.42755509343028, -0.33688985339222, -0.24298017990326, -0.14673047445536, -0.04906767432742 }; #ifdef NOTNEEDED /* %% not yet needed */ static double Circle80X[20] = { -0.03925981575907, -0.11753739745784, -0.19509032201613, -0.27144044986507, -0.34611705707749, -0.41865973753743, -0.48862124149695, -0.55557023301960, -0.61909394930983, -0.67880074553294, -0.73432250943569, -0.78531693088074, -0.83146961230255, -0.87249600707280, -0.90814317382508, -0.93819133592248, -0.96245523645365, -0.98078528040323, -0.99306845695493, -0.99922903624072 }; static double Circle80Y[20] = { -0.99922903624072, -0.99306845695493, -0.98078528040323, -0.96245523645365, -0.93819133592248, -0.90814317382508, -0.87249600707280, -0.83146961230255, -0.78531693088074, -0.73432250943569, -0.67880074553294, -0.61909394930983, -0.55557023301960, -0.48862124149695, -0.41865973753743, -0.34611705707749, -0.27144044986507, -0.19509032201613, -0.11753739745784, -0.03925981575907 }; #endif #ifdef GENERATING_CODE #include main(argc, argv) int argc; char **argv; { double circleX[64], circleY[64]; int circle_pts, cnt; int i, j; if( argc >= 2 ) circle_pts = atoi(argv[1]); init_circle(circle_pts, circleX, circleY); cnt = circle_pts / 4; (void)printf("static double Circle%dX[%d] = {\n", circle_pts, cnt); disp_array(circleX, cnt); (void)printf("static double Circle%dY[%d] = {\n", circle_pts, cnt); disp_array(circleY, cnt); } /* * Subroutine: disp_array * Purpose: print out an array in four columns, and with " };" */ void disp_array ( arr, cnt ) double *arr; int cnt; { int i, j; i=0; while( i < cnt ) { (void)printf(" %.14f", arr[i]); i++; for( j=1; (i -- -- */ struct colorRec color = { NULL, /* Display *display; display server */ -1, /* int screen; screen id for display server */ 0, /* int screen_depth; number of hardware planes */ NULL, /* Visual *visual; visual of the colormap */ 0, /* int monochrome; one color with fixed values */ 0, /* int single_plane; one plane dither or diffuse */ 0, /* Colormap colormap; server colormap being used */ 0, /* int cursor_overlay; overlay plane in use flag */ 0, /* int ncolors; num of reserved image colors */ 0, /* int inverse; forward or inverse values */ /* int colormap_mode; halftone, pseudo, fixed */ VOP_PseudoColor, MOP_GrayScale, /* int color_tableID; id of predefined colorset */ VOP_ContBias, /* int control_mode; ContBias, ThreshSat, gamma */ 0, /* int control_mode_ext; R_G_B -R|G|B, or RGB -R&G&B */ 0, /* int colors_alloced; if colors were alloc'ed */ 0, /* int old_mode; previous mode (when change) */ 0, /* int image_plane_mask; mask for image planes only */ 0, /* unsigned long overlay_mask; mask bit for overlay cursor */ { /* struct scalemodeRec scale; for image scaling modes */ SOP_Linear, /* int mode; */ 10, /* int wrap_cnt; */ 2.0, /* double root_power; */ 10.0 }, /* double log_expo; */ { /* struct colmapRec map; describe colormaps to use */ 0, /* int private_used; flag using private colormap */ 0, /* int private_installed; if private map is installed */ 1, /* int default_permit; user permit to use default */ 0, /* int default_enable; possible to use default */ 0, /* int private_permit; user permit to use private */ 0, /* int private_enable; possible to use private */ 0, /* Colormap default_colormap; default colormap of root */ 0, /* Colormap private_colormap; private created colormap */ NULL, /* XVisualInfo *default_vinfo; default visual info */ NULL }, /* XVisualInfo *private_vinfo; private visual info */ { /* struct cellspecRec cells; request for cells */ 0, /* int overlay; request for overlay plane */ 200, /* int wanted; desired number of cells */ 20, /* int min; minimum number of cells */ 0 }, /* int got; actual number of cells */ { /* struct palletteRec hard; read-only basic colors */ 0, /* int std_black; from BlackPixel */ 0, /* int std_white; from WhitePixel */ 0, /* int true_black; true 0,0,0 black */ 0, /* int true_white; true max,max,max white */ 0, /* int red; */ 0, /* int green; */ 0, /* int blue; */ 0 }, /* int yellow; */ { /* struct halftoneRec halftone; halftoning stuff */ BOP_Dither, /* int mode; dither, diffuse */ BOP_Matrix1, /* int matrixID; Matrix1, Matrix2 */ 0, /* int inverse; halftone's own flag */ 0, /* int pad; */ NULL, /* short *matrix; dithering weight matrix */ NULL }, /* short *errbuf; error diffusion error buffer */ { /* struct curcolorRec cur; cursor drawing stuff */ 0, /* int disp_one; color map slots for graphics */ 0, /* int disp_two; */ "green", /* char *default_cur; default cursor color name */ "yellow", /* char *default_one; default graphics color names */ "red", /* char *default_two; */ NULL, /* char *desired_cur; user's cursor color name */ NULL, /* char *desired_one; user's graphics colors names */ NULL, /* char *desired_two; */ { 0 }, /* XColor color_cur; cursor color description */ { 0 }, /* XColor color_one; graphics color description */ { 0 } }, /* XColor color_two; */ { /* struct gcsetRec gcset; specifications of gc's used */ { /* GCspec disp; image display parameters */ U_DONT_CARE, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* Cspec draw; cursor drawing parameters */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* Cspec track; cursor tracking parameters */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* Cspec undraw; cursor erasing parameters */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* Cspec incl; include region parameters */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* Cspec excl; exclude region parameters */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* Cspec menu; std_black on white */ 0, /* unsigned long foreground; */ 0, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* GCspec red; for drawing red lines */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* GCspec green; for drawing green lines */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* GCspec blue; for drawing blue lines */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* GCspec black; for drawing black lines */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes }, /* unsigned long mask; */ { /* GCspec white; for drawing white lines */ 0, /* unsigned long foreground; */ U_DONT_CARE, /* unsigned long background; */ GXcopy, /* int func; */ AllPlanes } }, /* unsigned long mask; */ { /* struct colorTable ctable; pseudocolor vertex table */ { /* struct subtableRec red; */ 0, /* int fixed_cells; direct cellmap (no table) */ 2, /* int vertex_cnt; number of vertices defined */ 0, /* int map_sz; number of cells in map */ 0, /* int do_gamma; if gamma correction != 1 */ 0, /* int invert_order; order inverted */ 0, /* int pad; space for allignment */ 1.0, /* double contrast; cell=(base*contrast)+bias */ 0.5, /* double bias; base=(cell-bias)/contrast */ 1.0, /* double gamma; gamma correction factor */ { 0.0, 1.0 }, /* double cell_level[PSEUDOSZ]; cell levels */ {-0.5, 0.5 }, /* double base_level[PSEUDOSZ]; original levels */ { 0.0, 1.0 }, /* double intensity[PSEUDOSZ]; intensity by level */ { 0.0 }, /* double cellmap[COLMAPSZ]; intensity by cell */ { 0.0 } }, /* double gammamap[COLMAPSZ]; gamma corrected map */ { /* struct subtableRec green; */ 0, /* int fixed_cells; direct cellmap (no table) */ 2, /* int vertex_cnt; number of vertices defined */ 0, /* int map_sz; number of cells in map */ 0, /* int do_gamma; if gamma correction != 1 */ 0, /* int invert_order; order inverted */ 0, /* int pad; space for allignment */ 1.0, /* double contrast; cell=(base*contrast)+bias */ 0.5, /* double bias; base=(cell-bias)/contrast */ 1.0, /* double gamma; gamma correction factor */ { 0.0, 1.0 }, /* double cell_level[PSEUDOSZ]; cell levels */ {-0.5, 0.5 }, /* double base_level[PSEUDOSZ]; original levels */ { 0.0, 1.0 }, /* double intensity[PSEUDOSZ]; intensity by level */ { 0.0 }, /* double cellmap[COLMAPSZ]; intensity by cell */ { 0.0 } }, /* double gammamap[COLMAPSZ]; gamma corrected map */ { /* struct subtableRec blue; */ 0, /* int fixed_cells; direct cellmap (no table) */ 2, /* int vertex_cnt; number of vertices defined */ 0, /* int map_sz; number of cells in map */ 0, /* int do_gamma; if gamma correction != 1 */ 0, /* int invert_order; order inverted */ 0, /* int pad; space for allignment */ 1.0, /* double contrast; cell=(base*contrast)+bias */ 0.5, /* double bias; base=(cell-bias)/contrast */ 1.0, /* double gamma; gamma correction factor */ { 0.0, 1.0 }, /* double cell_level[PSEUDOSZ]; cell levels */ {-0.5, 0.5 }, /* double base_level[PSEUDOSZ]; original levels */ { 0.0, 1.0 }, /* double intensity[PSEUDOSZ]; intensity by level */ { 0.0 }, /* double cellmap[COLMAPSZ]; intensity by cell */ { 0.0 } } }, /* double gammamap[COLMAPSZ]; gamma corrected map */ { 0 }, /* unsigned long pixvalmap[COLMAPSZ]; byte to hardware val */ { 0 } /* XColor cellstore[COLMAPSZ]; for setting colors */ }; saoimage-1.08/defs/colorbox.def 666 21641 13 6320 4526312751 11562 #ifndef lint static char SccsColorboxId[] = "%W% %G%"; #endif /* Module: Colorbox.def * Purpose: Declare and initialize color bar window parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ struct windowRec colorbox = { 0, /* Window ID; window's nom de plume (ptr) */ NULL, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 0, 0, /* unsigned int width, height; window width (-1 border) */ 0, /* unsigned int bdrwidth; width of the border */ 0, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 2, 2, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 1, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { /* XImage image; for XPutImage */ 0, 0, /* int width, height; 0, 0 */ 0, /* int xoffset; 0 */ 0, /* int format; XYBitmap, XY/ZPixmap */ NULL, /* char *data; NULL */ LSBFirst, /* int byte_order; LSBFirst */ 8, /* int bitmap_unit; 8 */ LSBFirst, /* int bitmap_bit_order; LSBFirst */ 8, /* int bitmap_pad; 8 */ 0, /* int depth; 1 or runtime set */ 0, /* int bytes_per_line; 0 */ 8, /* int bits_per_pixel; 1 or 8 */ 0, 0, 0, /* unsigned long red_mask, green_mask, blue_mask; runtime */ NULL, /* char *obdata; NULL */ { 0 } }, /* { struct func f }; { NULL } */ NULL, /* Visual *visual; visual type */ /* unsigned long valuemask; mask to set attributes */ CWBackPixel | CWColormap | CWCursor | CWEventMask | CWWinGravity, { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ /* int win_gravity; CWWinGravity */ SouthWestGravity, 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWOverrideRedirect */ /* long event_mask; CWSaveUnder */ ButtonPressMask | ExposureMask, 0, /* long do_not_propogate_mask; CWEventMask */ 0, /* Bool override_redirect; CWDontPropogate */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ { /* XSizeHints hints; for XSetNormalHints */ 0, /* long flags; defined fields */ 1, 0, /* int x, y; USPosition PPosition */ 514, 12, /* int width, height; USSize PSize */ 402, 10, /* int min_width, min_height; PMinSize */ 0, 0, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 0 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 0 } } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ }; saoimage-1.08/defs/colormap.def 666 21641 13 6642 5014577655 11567 #ifndef lint static char SccsDefId[] = "%W% %G%"; #endif /* Module: ColorMap.def * Purpose: Define some internal color tables * Copyright: Property of Smithsonian Astrophysical Observatory * 1989 You may do anything you like with this file except * remove this copyright. * Modified: {0} Michael VanHilst initial version 16 May 1989 * {n} -- -- */ static ColorTable gray_map = { { 2, 0, 1.0, { 0.0, 1.0 }, { 0.0, 1.0 } }, { 2, 0, 1.0, { 0.0, 1.0 }, { 0.0, 1.0 } }, { 2, 0, 1.0, { 0.0, 1.0 }, { 0.0, 1.0 } } }; /* (black-body from Ken Clark @ Institute of Biomedical Computing Washington University in St. Louis) */ static ColorTable bbs_map = { { 3, 0, 1.0, { 0.0, 0.5, 1.0 }, { 0.0, 1.0, 1.0 } }, /* Red */ { 4, 0, 1.0, { 0.0, 0.25, 0.75, 1.0 }, /* Green */ { 0.0, 0.0, 1.0, 1.0 } }, { 3, 0, 1.0, { 0.0, 0.5, 1.0 }, { 0.0, 0.0, 1.0 } } /* Blue */ }; static ColorTable hip_map = { { 5, 0, 1.0, { 0.0, 0.015, 0.25, 0.50, 1.0 }, { 0.0, 0.500, 0.50, 0.75, 1.0 } }, { 6, 0, 1.0, { 0.0, 0.065, 0.125, 0.25, 0.50, 1.0 }, { 0.0, 0.000, 0.500, 0.75, 0.81, 1.0 } }, { 6, 0, 1.0, { 0.0, 0.015, 0.030, 0.065, 0.25, 1.0 }, { 0.0, 0.125, 0.375, 0.625, 0.25, 1.0 } } }; static ColorTable imp8_map = { { 6, 0, 1.0, { 0.0000, 0.1250, 0.125, 0.5, 0.5, 1.0 }, { 0.0875, 0.0875, 0.000, 0.0, 1.0, 1.0 } }, { 16, 0, 1.0, { 0.0000, 0.1250, 0.125, 0.25, 0.25, 0.375, 0.375, 0.5, 0.5, 0.625, 0.625, 0.75, 0.75, 0.875, 0.875, 1.0 }, { 0.0875, 0.0875, 1.000, 1.00, 0.00, 0.000, 1.000, 1.0, 0.0, 0.000, 1.000, 1.00, 0.00, 0.000, 1.000, 1.0 } }, { 10, 0, 1.0, { 0.0000, 0.1250, 0.125, 0.25, 0.25, 0.5, 0.5, 0.75, 0.75, 1.0 }, { 0.0875, 0.0875, 0.000, 0.00, 1.00, 1.0, 0.0, 0.00, 1.00, 1.0 } } }; static ColorTable a_map = { { 4, 0, 1.0, { 0.0, 0.25, 0.5, 1.0 }, { 0.0, 0.00, 1.0, 1.0 } }, { 5, 0, 1.0, { 0.0, 0.25, 0.5, 0.77, 1.0 }, { 0.0, 1.00, 0.0, 0.00, 1.0 } }, { 6, 0, 1.0, { 0.0, 0.125, 0.5, 0.64, 0.77, 1.0 }, { 0.0, 0.000, 1.0, 0.50, 0.00, 0.0 } } }; /* intensity progressing rainbow */ static ColorTable b_map = { { 4, 0, 1.0, { 0.0, 0.25, 0.5, 1.0 }, { 0.0, 0.0, 1.0, 1.0 } }, { 4, 0, 1.0, { 0.0, 0.5, 0.75, 1.0 }, { 0.0, 0.0, 1.0, 1.0 } }, { 5, 0, 1.0, { 0.0, 0.25, 0.5, 0.75, 1.0 }, { 0.0, 1.0, 0.0, 0.0, 1.0 } } }; #ifdef FOO static ColorTable oldb_map = { { 4, 0, 1.0, { 0.0, 0.375, 0.5, 1.0 }, { 0.0, 0.000, 1.0, 1.0 } }, { 7, 0, 1.0, { 0.0, 0.01, 0.125, 0.25, 0.375, 0.875, 1.0 }, { 0.0, 0.00, 1.000, 1.00, 0.000, 1.000, 1.0 } }, { 6, 0, 1.0, { 0.0, 0.125, 0.25, 0.55, 0.875, 1.0 }, { 0.0, 0.000, 1.00, 1.00, 0.000, 1.0 } } }; static ColorTable c_map = { { 7, 0, 1.0, { 0.0, 0.25, 0.375, 0.50, 0.625, 0.875, 1.00 }, { 0.0, 0.00, 0.500, 0.75, 1.000, 0.500, 0.75 } }, { 5, 0, 1.0, { 0.0, 0.005, 0.25, 0.5, 1.0 }, { 0.0, 0.000, 1.00, 0.0, 0.0 } }, { 7, 0, 1.0, { 0.0, 0.25, 0.375, 0.50, 0.625, 0.875, 1.0 }, { 0.0, 0.00, 0.500, 0.75, 1.000, 0.500, 0.0 } } }; static ColorTable d_map = { { 6, 0, 1.0, { 0.0, 0.25, 0.375, 0.50, 0.675, 1.0 }, { 0.0, 0.00, 0.500, 0.76, 1.000, 1.0 } }, { 7, 0, 1.0, { 0.0, 0.005, 0.25, 0.5, 0.625, 0.875, 1.0 }, { 0.0, 0.000, 1.00, 0.0, 0.168, 0.500, 1.0 } }, { 8, 0, 1.0, { 0.0, 0.005, 0.250, 0.375, 0.500, 0.625, 0.875, 1.0 }, { 0.0, 0.000, 0.125, 0.250, 0.625, 1.000, 0.500, 1.0 } } }; #endif saoimage-1.08/defs/control.def 666 21641 13 10052 4634317522 11431 #ifndef lint static char SccsCtrldefId[] = "%W% %G%"; #endif /* Module: Control.def * Purpose: Declare and initialize event loop and control parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ extern void open_imtool_connection(); struct controlRec control = { SOP, /* int mode; active event response mode */ NULL, /* int *response; widget returned data pointer */ 0, /* int eventmask; current event mask */ 0, /* int priority; special event tracking mask */ 0, /* int completed; event response completed flag */ 1, /* int verbose; print-messages-about-statuses */ 1, /* int tracking; magnifier and color graph tracking */ 1, /* int magni_track; track mouse with magni box */ 1, /* int coord_track; track mouse with coord string */ 0, /* int print_buttons; include buttons in hardcopy output */ IOP_PostScript, /* int printer; PostScript, Imagen Impress, etc. */ 0, /* int look_and_feel; SAO, Motif, OpenLook */ 0, /* int remote_connected; select for more than just X events */ 0, /* int select_size; size of mask to check for event */ { 0 }, /* int select_mask[4]; combined select mask for connection */ { 0 }, /* struct connectRec Xserver; */ { /* struct connectRec IRAF_in; */ #ifdef VMS IOP_mailbox, /* int type; named pipe, socket, or VMS mailbox */ #else IOP_pipe, /* int type; named pipe, socket, or VMS mailbox */ #endif IOP_Imtool, /* int protocol; packet type (IRAF, AIPS, HRC, CMD) */ 0, /* int fd; file descriptor */ #ifdef IMTOOL 1, /* int open; 0 if closed, else open */ #else 0, /* int open; 0 if closed, else open */ #endif IOP_Read, /* int direction; read, write, read/write, listen */ "/dev/imt1o", /* char *name; pipe name or net socket address */ 0, /* int address; network address or parent fd */ #ifdef IMTOOL open_imtool_connection, /* void func(); call to init */ #else NULL, /* void func(); function to call when signalled */ #endif { 0 }, /* int mask[4]; mask bit for file descriptor */ NULL, /* struct connectRec *next; linklist queue for event handling */ NULL /* struct connectRec *affiliate; binding for listener/connection */ }, { /* struct connectRec IRAF_out; */ #ifdef VMS IOP_mailbox, /* int type; named pipe, socket, or VMS mailbox */ #else IOP_pipe, /* int type; named pipe, socket, or VMS mailbox */ #endif IOP_Imtool, /* int protocol; packet type (IRAF, AIPS, HRC, CMD) */ 0, /* int fd; file descriptor */ 0, /* int open; 0 if closed, else open */ IOP_Write, /* int direction; read, write, read/write, listen */ "/dev/imt1i", /* char *name; pipe name or net socket address */ 0, /* int address; network address or parent fd */ NULL, /* void (*func)(); function to call when signalled */ { 0 }, /* int mask[4]; mask bit for file descriptor */ NULL, /* struct connectRec *next; linklist queue for event handling */ NULL /* struct connectRec *affiliate; binding for listener/connection */ }, { /* struct connectRec AIPS_in; */ #ifdef VMS IOP_mailbox, /* int type; named pipe, socket, or VMS mailbox */ #else IOP_socket, /* int type; named pipe, socket, or VMS mailbox */ #endif IOP_AIPS, /* int protocol; packet type (IRAF, AIPS, HRC, CMD) */ 0, /* int fd; file descriptor */ 0, /* int open; 0 if closed, else open */ IOP_ReadWrite, /* int direction; read, write, read/write, listen */ NULL, /* char *name; pipe name or net socket address */ 0, /* int address; network address or parent fd */ NULL, /* void (*func)(); function to call when signalled */ { 0 }, /* int mask[4]; mask bit for file descriptor */ NULL, /* struct connectRec *next; linklist queue for event handling */ NULL /* struct connectRec *affiliate; binding for listener/connection */ }, { 0 }, /* struct connectRec AIPS_out; */ { 0 }, /* struct connectRec aux_in; */ { 0 } /* struct connectRec aux_out; */ /* XEvent event; info about most recent X event */ }; /* Note: the XEvent declaration is odd and best left to the compiler default */ saoimage-1.08/defs/cursor.def 666 21641 13 4220 4526312753 11247 #ifndef lint static char SccsCurdefId[] = "%W% %G%"; #endif /* Module: Cursor.def * Purpose: Declare and initialize cursor structure * Modified: {0} Michael VanHilst initial version 5 June 1989 * {n} -- -- */ struct cursorRec cursor = { { /* CurFCoord file; file coordinates */ -1.0,0.0, /* float X, Y; center dimension (or other ref) */ 10.0,10.0, /* float Xdim, Ydim; dimension appropriate to type */ 0.0 }, /* double area; area if computed */ { /* CurWCoord win; window coordinates */ NULL, /* Display *display; display where draw */ NULL, /* Window ID; drawable where to draw */ 0, 0, /* int x, y; integer center coordinates */ 0.0,0.0, /* double X, Y; float center coordinates */ 10.0,10.0 }, /* double rayX, rayY; center to side distance */ { /* CurRot rot; rotation angle parameters */ 0.0, /* double angle; rotation angle in radians */ 0.0,-1.0, /* double sin, cos; sin and cos of angle */ 0.0,0.0 }, /* double cut_A, cut_B; angles of pie cut */ { /* CurCtrl ctrl; interactive control parameters */ 0, /* int active_vertex; index of vertex being maniputated */ 0, /* int active_side; sizing of x dim, y dim, or both */ 1.0 }, /* double axis_ratio; fixed ratio of Xdim and Ydim */ /* int type; type (code in Constant.h) */ COP_Point, 0, /* int cut; apply-pie-cut flag */ 0, /* int label_point; label-the-point flag */ 1, /* int overwrites_image_data; cursor-overwrites-image-data */ 0, /* int index; index for regions and annuli */ 0, /* int exclude_region; region type and suppress drawing */ NULL, /* int point_cnt; number of points for XDrawLines */ NULL, /* XPoint *points; absolute-coord drawing vertices */ 0, /* int rectangle_cnt; number of hash-mark boxes */ NULL, /* XRectangle *rectangles; for XDrawRectangles */ 0, /* int poly_cnt; number of vertices in polygon */ NULL, /* PolyPoint *poly; array of polygon vertex coords */ 0, /* int annuli; annuli of this type */ NULL, /* struct cursorRec *next_annulus; annulus linklist */ NULL, /* struct cursorRec *next_region; region linklist */ NULL, /* GCspec *draw; color set to draw this cursor */ }; saoimage-1.08/defs/desktop.def 666 21641 13 5210 4531203172 11371 #ifndef lint static char SccsDesktopId[] = "%W% %G%"; #endif /* Module: Desktop.def * Purpose: Declare and initialize desktop window parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ struct windowRec desktop = { 0, /* Window ID; window's nom de plume (ptr) */ 0, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 0, 0, /* unsigned int width, height; window width (-1 border) */ 2, /* unsigned int bdrwidth; width of the border */ 4, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 1, 1, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 0, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { 0 }, /* XImage image; for XPutImage */ NULL, /* Visual *visual; visual type */ /* unsigned long valuemask; mask to set attributes */ CWBackPixel | CWBorderPixel | CWColormap | CWCursor | CWEventMask, { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ 0, /* int win_gravity; CWWinGravity */ 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWSaveUnder */ /* long event_mask; CWEventMask */ ExposureMask | KeyPressMask | StructureNotifyMask, 0, /* long do_not_propogate_mask; CWDontPropagate */ 0, /* Bool override_redirect; CWOverrideRedirect */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ { /* XSizeHints size_hints; for XSetNormalHints */ /* long flags; defined fields */ PSize | PMinSize, 0, 0, /* int x, y; USPosition PPosition */ 518, 706, /* int width, height; USSize PSize */ 406, 456, /* int min_width, min_height; PMinSize */ 0, 0, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 0 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 0 } } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ }; saoimage-1.08/defs/dispbox.def 666 21641 13 6460 4526312754 11413 #ifndef lint static char SccsDispboxId[] = "%W% %G%"; #endif /* Module: Dispbox.def * Purpose: Declare and initialize main image window parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ struct windowRec dispbox = { 0, /* Window ID; window's nom de plume (ptr) */ NULL, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 512, 512, /* unsigned int width, height; window width (-1 border) */ 1, /* unsigned int bdrwidth; width of the border */ 2, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 0, 0, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 1, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { /* XImage image; for XPutImage */ 512, 512, /* int width, height; 0, 0 */ 0, /* int xoffset; 0 */ ZPixmap, /* int format; XYBitmap, XY/ZPixmap */ NULL, /* char *data; NULL */ LSBFirst, /* int byte_order; LSBFirst */ 8, /* int bitmap_unit; 8 */ LSBFirst, /* int bitmap_bit_order; LSBFirst */ 8, /* int bitmap_pad; 8 */ 8, /* int depth; 1 or runtime set */ 512, /* int bytes_per_line; 0 */ 8, /* int bits_per_pixel; 1 or 8 */ 0, 0, 0, /* unsigned long red_mask, green_mask, blue_mask; runtime */ NULL, /* char *obdata; NULL */ { 0 } /* { struct func f }; { NULL } */ }, NULL, /* Visual *visual; visual type */ /* unsigned long valuemask; mask to set attributes */ CWBackPixel | CWBorderPixel | CWColormap | CWCursor | CWEventMask | CWWinGravity, { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ /* int win_gravity; CWWinGravity */ NorthWestGravity, 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWSaveUnder */ /* long event_mask; CWEventMask */ ButtonPressMask | ButtonReleaseMask | ExposureMask | KeyPressMask | PointerMotionMask, 0, /* long do_not_propogate_mask; CWDontPropagate */ 0, /* Bool override_redirect; CWOverrideRedirect */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ /* XSizeHints hints; for XSetNormalHints */ { 0, /* long flags; defined fields */ 1, 0, /* int x, y; USPosition PPosition */ 512, 512, /* int width, height; USSize PSize */ 400, 256, /* int min_width, min_height; PMinSize */ 0, 0, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 0 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 0 } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ } }; saoimage-1.08/defs/dither.def 666 21641 13 32155 4526312755 11243 #ifndef lint static char SccsDitherId[] = "%W% %G%"; #endif /* Module: Dither.def * Purpose: Declare and initialize dither weight matrices and * random error vals (includes sample of code to generate it) * Modified: {0} Michael VanHilst initial version 31 December 1987 * {n} -- -- */ /* FATTING DITHER PATTERN WEIGHT MATRIX - AS USED BY UTAH RLE LIBRARY */ short dotmatrix1 [16][16] = { { 0,222, 48,206, 14,236, 62,220, 3,225, 51,209, 13,235, 61,219}, {175, 79,127, 95,189, 93,141,109,178, 82,130, 98,188, 92,140,108}, {191, 32,238, 16,204, 46,252, 30,193, 35,241, 19,203, 45,251, 29}, {111,143, 64,159,125,157, 77,173,114,146, 66,162,124,156, 76,172}, { 11,233, 59,217, 5,227, 53,211, 8,230, 56,214, 6,228, 54,212}, {186, 90,138,106,180, 84,132,100,183, 87,135,103,181, 85,133,101}, {201, 43,249, 27,195, 37,243, 21,198, 40,246, 24,196, 38,244, 22}, {122,154, 74,170,116,148, 68,164,119,151, 71,167,117,149, 69,165}, { 12,234, 60,218, 2,224, 50,208, 15,237, 63,221, 1,223, 49,207}, {187, 91,139,107,177, 81,129, 97,190, 94,142,110,176, 80,128, 96}, {202, 44,250, 28,192, 34,240, 18,205, 47,253, 31,191, 33,239, 17}, {123,155, 75,171,113,145, 65,161,126,158, 78,174,112,144, 64,160}, { 7,229, 55,213, 9,231, 57,215, 4,226, 52,210, 10,232, 58,216}, {182, 86,134,102,184, 88,136,104,179, 83,131, 99,185, 89,137,105}, {197, 39,245, 23,199, 41,247, 25,194, 36,242, 20,200, 42,248, 26}, {118,150, 70,166,120,152, 72,168,115,147, 67,163,121,153, 73,169}}; /* MINIMUM CLUMPING WEIGHT MATRIX - BASED ON MAXIMUM GEOMETRIC SYMMETRY */ short dotmatrix2 [16][16] = { { 0,192, 48,240, 12,204, 60,252, 3,195, 51,243, 15,207, 63,254}, {128, 64,176,112,140, 76,188,124,131, 67,179,115,143, 79,191,127}, { 32,224, 16,208, 44,236, 28,220, 35,227, 19,211, 47,239, 31,223}, {160, 96,144, 80,172,108,156, 92,163, 99,147, 83,175,111,159, 95}, { 8,200, 56,248, 4,196, 52,244, 11,203, 59,251, 7,199, 55,247}, {136, 72,184,120,132, 68,180,116,139, 75,187,123,135, 71,183,119}, { 40,232, 24,216, 36,228, 20,212, 43,235, 27,219, 39,231, 23,215}, {168,104,152, 88,164,100,148, 84,171,107,155, 91,167,103,151, 87}, { 2,194, 50,242, 14,206, 62,254, 1,193, 49,241, 13,205, 61,253}, {130, 66,178,114,142, 78,190,126,129, 65,177,113,141, 77,189,125}, { 34,226, 18,210, 46,238, 30,222, 33,225, 17,209, 45,237, 29,221}, {162, 98,146, 82,174,110,158, 94,161, 97,145, 81,173,109,157, 93}, { 10,202, 58,250, 6,198, 54,246, 9,201, 57,249, 5,197, 53,245}, {138, 74,186,122,134, 70,182,118,137, 73,185,121,133, 69,181,117}, { 42,234, 26,218, 38,230, 22,214, 41,233, 25,217, 37,229, 21,213}, {170,106,154, 90,166,102,150, 86,169,105,153, 89,165,101,149, 85}}; #define ERRBUFSZ 1202 /* longest bitmap line plus 2 */ /* RANDOM VALUES TO INITIALIZE THE ERROR DIFFUSION BUFFER */ short errbuf [ERRBUFSZ] = { 247, 17,122,232, 90,238,167, 5,131, 51,240, 52, 96,203, 73, 68, 91, 32, 180,188,205,234,130,195,116,120, 76,156, 18,127, 56, 10,144,178,243,234, 161,154,240, 36,206,224, 88, 47,171,162,116, 7,195, 40,195,144, 18, 70, 83,135,191,160, 36,210, 32, 92,220,176, 14,208,155,176,107,139,212, 57, 108, 45,105, 23,208,221, 30,147, 5,226, 36, 24, 41,120,159,232, 24,195, 187, 57, 31,151,233, 46,103,133,223,211, 16,179, 13,124,225,118,148,177, 84,179, 69, 90,150,105,114,191,225, 17,168,250,213, 99, 51,244,251, 29, 35, 99,162, 2, 54,179,182, 67, 48,152,186,196, 73, 14,120,142,104, 14, 248,218,206,217,236,119,212,193,219, 8,182,214, 37,218, 58,200,220,112, 123,147,180,171, 43,110,112,117,125,233, 4,229,248,252,192,198,214,172, 62,171,110, 25,179, 36,240,217,254, 42,161,219,155, 29,111, 80,201,155, 190, 57, 16, 59, 35, 21, 33, 27, 17,225,226,232,142, 32,147,252, 58, 70, 32, 42, 31, 31, 85,193,251,241,222,106, 65,167, 5, 0,225, 22, 60, 4, 43, 94, 31, 61, 63, 1, 37,206, 34,184,202, 92,255,235,135, 31, 11,221, 224, 6,206,191,113, 16,102,118, 17, 71,141, 78, 75,184,172,107,246,236, 109, 27,186,143,212,133,235,211,112,115,243,123, 80,211,130, 31,146,243, 48,249,105, 65, 64,247,143,140,176, 59,248,166, 40,101,193,226,244,150, 103,224,105,216, 83, 93, 84,164, 48,214,196,195,201,244,188, 51, 53,253, 42,197,138,218, 1,130,129, 41,231, 66, 12,220,217,116,189, 67, 76, 17, 160,160,181,208,118,122,148, 63,110, 80,114,164, 78,157,105,216,119,107, 90,248,149, 66, 59,161, 31, 20, 21,220, 87, 98,238,247, 2,164,200,121, 30, 92,185,140,173, 43, 48,251,201,154,212, 64, 6, 46, 57,155,113,117, 60,145,138, 82,110,226,180, 92,218,183, 0,163, 48, 30,255,233,171,173, 21,220,168,222,118,124, 31,125,171, 89, 24, 29,207, 85,174, 89,167, 28, 60, 91,121, 22, 19,121,185, 67,152,185, 45, 67,102, 67, 31, 15, 33,150, 140, 65, 19, 56,155, 43, 86,106,128, 5,196, 40, 33, 1,132,155, 23,151, 20,209,219,172,139, 8,240,242, 75, 15, 2,109,165,143,174,184,199, 74, 228, 30,181,101, 35,121,141, 69,123, 17,224,147,169,245,100,132,161,240, 140,146,226,215,161,229, 69, 70,116,244,255, 60, 62,227, 90,243, 72,125, 109,214,195,232,231,163,123,144,152,224, 21, 58,209,161,204,180,121,109, 153,190,180, 14,178,180, 74,240,151,165,228,224, 35, 82,182,230, 58,158, 137,182, 47, 34,151, 68, 93,105,230, 41, 29, 95,151,183, 29, 76,197,207, 0, 15,192,152,180,165,120,215,247, 47,189, 50,206, 71,232,253,106,128, 66,199,234, 40,240, 7,135,136,190,165,212,132,117,213,147, 53,109, 72, 218,230, 32,210, 22,222, 4,228, 37,237,226,143,109, 37, 87, 87, 77, 71, 95,213,208, 30,123,165,162,240,122, 54, 38,232,127, 1,207,159,211,229, 125,215,201,163,196,172, 51, 50,209,138,138, 30,210,234,244,162, 8,112, 71,171, 96,194,226,135,170, 97,136,122, 0, 92, 95,126, 52, 40, 33,248, 213, 84, 43,166,223,182,197,177,160,186, 83,169, 42,155, 84,138, 93, 55, 17, 8,152,154,130,153,247,226, 23, 43, 11, 57, 36,224,142, 79,134,109, 5, 75, 30,166, 6,114, 79, 48, 13,164,186,107,219,204,116,115,103,247, 12, 94,217, 36,137,228, 94,174,197,236,253, 75, 90, 3,151,120,169,157, 235,249,205,249,157,136,100,120, 85,217,235,188,209,248, 27,170, 29,165, 143,123, 83, 84,104, 81,160,194, 85, 55, 59,255,213, 38,248,163, 31,149, 43,132, 13,128, 94,249, 61, 47,242, 89,218, 16,254,106,139, 82,191,244, 164, 95,182,249,151,242,249,108, 24,242, 16, 56,135, 59,189,149,188, 27, 143,250, 75,130, 83, 38,146, 82,144, 30,165, 80, 18, 73,175,201, 67, 71, 187, 61,180,211, 47,196, 12,183,255,201, 76,188,229,220,183, 49, 94, 11, 87,240, 93,232, 14, 3, 56, 33, 77,232,234,145, 47,165,206,228,120,253, 168,133,180,168, 79, 1,100, 52,222, 28,102, 60, 39,190, 45,132,166, 59, 136,223, 92,213,200, 70,102,248,235, 52,220,100, 50,132,233,231, 44, 56, 233,145,109,199,173,212, 3,212,146, 48, 89, 57,108,225, 24,201,183,225, 16, 29,217,252, 82,181, 96,132, 57, 74,108,102,131, 85,248,241, 28,165, 197, 32,122, 88, 81,211,145,190,181,170,135,108,139,152,137,100,148,220, 26,245, 96, 84, 64,204,186,196, 33,178,181, 62, 88,123, 94,210,211,176, 165,101,110, 91, 15,246,199,154,142, 81,255, 35, 45, 25, 25,142,109, 89, 90, 40, 29,124,219,211,187, 51, 79, 26, 5, 35,202,171,136, 57, 6,151, 48,206, 50,190, 32, 49,226, 78, 75,251,220,185, 85, 55,226,115,180,189, 70,111,240,150,137,245,186, 84,161, 66,142,168,218,190,119, 12,125,151, 62, 95,229,138, 91,194, 68,176,249, 38, 35,173,227,106, 29,211, 0,167, 201,186,251,107,253,137, 19,215, 72,139,228,197, 34, 35, 36, 8,174,127, 202,242, 47,196, 24, 83,113,251,189,142,206,189, 54,152,120, 49, 3,118, 187, 23, 78, 3,162, 50,201,197, 86,237,205, 4,109,152,246,157, 92, 14, 240,206, 9,173, 92,216,107,147,113,228,196,116, 90,128,139,168,132, 46, 219, 77,243, 49, 59,192, 54,169, 88, 44, 71,181, 59, 55,131, 68,229,224, 29, 81,115,142, 54, 56, 3,144,185,143, 57, 61,189, 21,139,176, 71,199, 113,125,113,202,170,184,127,229,240, 2, 42,213,227, 71}; #ifdef EXCESS /* ALGORYTHM USED TO GENERATE RLE DITHER PATTERN */ int magic4x4[4][4] = { 0, 14, 3, 13, 11, 5, 8, 6, 12, 2, 15, 1, 7, 9, 4, 10 }; /***************************************************************** * TAG( make_square ) * * Build the magic square for a given number of levels. * Inputs: * N: Pixel values per level (255.0 / levels). * Outputs: * divN: Integer value of pixval / N * modN: Integer remainder between pixval and divN[pixval]*N * magic: Magic square for dithering to N sublevels. * Assumptions: * * Algorithm: * divN[pixval] = (int)(pixval / N) maps pixval to its appropriate level. * modN[pixval] = pixval - (int)(N * divN[pixval]) maps pixval to * its sublevel, and is used in the dithering computation. * The magic square is computed as the (modified) outer product of * a 4x4 magic square with itself. * magic[4*k + i][4*l + j] = (magic4x4[i][j] + magic4x4[k][l]/16.0) * multiplied by an appropriate factor to get the correct dithering * range. */ make_square( N, divN, modN, magic ) double N; int divN[256]; int modN[256]; int magic[16][16] ; { register int i, j, k, l; double magicfact; for ( i = 0; i < 256; i++ ) { divN[i] = (int)(i / N); modN[i] = i - (int)(N * divN[i]); } /* * Expand 4x4 dither pattern to 16x16. 4x4 leaves obvious patterning, * and doesn't give us full intensity range (only 17 sublevels, * we want at least 51). Note that 8x8 would be sufficient, but * 16x16 is easier to build. * * magicfact is (N - 2)/16 so that we get numbers in the matrix from 0 to * N - 2: mod N gives numbers in 0 to N - 1, we want some chance that the * number is greater than a matrix entry, so the highest matrix * entry must be N - 2. */ magicfact = (N - 2) / 16.; for ( i = 0; i < 4; i++ ) for ( j = 0; j < 4; j++ ) for ( k = 0; k < 4; k++ ) for ( l = 0; l < 4; l++ ) magic[4*k+i][4*l+j] = (int)(0.5 + magic4x4[i][j] * magicfact + (magic4x4[k][l] / 16.) * magicfact); } /* ALGORITHM FOR 2ND DITHER WEIGHT MATRIX */ /* SATISFIES CONDITION OF MINIMUM CLUMPING AT ALL LEVELS ... ... BY MAXIMIZING UNIFORMITY OF PATTERN DISTRIBUTION (PATTERN REGULARITY) */ static int ix[4] = {0,1,0,1}, iy[4] = {0,1,1,0}; makematrix ( matrix ) short matrix[16][16]; { int i,j,k,l; int ax,bx,cx,dx; int ay,by,cy,dy; int indx, indy; short val; val = 0; /* ASSIGNMENT PATTERN NESTS CORNERS OF SUCCESSIVELY LARGER SQUARES */ /* 2x2 SQUARE */ for (i = 0; i < 4; i++) { ax = ix[i]; ay = iy[i]; /* SAME PATTERN 4x4 SQUARE */ for (j = 0; j < 4; j++) { bx = ix[j] * 2; by = iy[j] * 2; /* SAME PATTERN 8x8 SQUARE */ for (k = 0; k < 4; k++) { cx = ix[k] * 4; cy = iy[k] * 4; /* SAME PATTERN 16x16 SQUARE */ for (l = 0; l < 4; l++) { dx = ix[l] * 8; dy = iy[l] * 8; indx = ax + bx + cx + dx; indy = ay + by + cy + dy; matrix[indx][indy] = val++; } } } } /* TOP VAL (255) CAN'T BE EXCEEDED BY DATA SO REDUCE IT BY ONE */ --matrix[indx][indy]; return; } /* DITHER WEIGHT MATRIX - CONTIGUOUS FROM UPPER LEFT CORNER */ /* SATISFIES CONDITION OF MAXIMUM CLUMPING, HAS ONLY 64 LEVELS */ /* SUITED FOR PRINTERS WHERE BLACK DOTS ARE BIGGER THAN WHITE DOTS */ /* short dotmatrix3 [16][16] = { { 0, 8, 20, 36, 56, 80,108,140, 0, 8, 20, 36, 56, 80,108,140}, { 4, 16, 32, 52, 76,104,136,168, 4, 16, 32, 52, 76,104,136,168}, { 12, 28, 48, 72,100,132,164,192, 12, 28, 48, 72,100,132,164,192}, { 24, 44, 68, 96,128,160,188,212, 24, 44, 68, 96,128,160,188,212}, { 40, 64, 92,124,156,184,208,228, 40, 64, 92,124,156,184,208,228}, { 60, 88,120,152,180,204,224,240, 60, 88,120,152,180,204,224,240}, { 84,116,148,176,200,220,236,248, 84,116,148,176,200,220,236,248}, {112,144,172,196,216,232,244,252,112,144,172,196,216,232,244,252}, { 0, 8, 20, 36, 56, 80,108,140, 0, 8, 20, 36, 56, 80,108,140}, { 4, 16, 32, 52, 76,104,136,168, 4, 16, 32, 52, 76,104,136,168}, { 12, 28, 48, 72,100,132,164,192, 12, 28, 48, 72,100,132,164,192}, { 24, 44, 68, 96,128,160,188,212, 24, 44, 68, 96,128,160,188,212}, { 40, 64, 92,124,156,184,208,228, 40, 64, 92,124,156,184,208,228}, { 60, 88,120,152,180,204,224,240, 60, 88,120,152,180,204,224,240}, { 84,116,148,176,200,220,236,248, 84,116,148,176,200,220,236,248}, {112,144,172,196,216,232,244,252,112,144,172,196,216,232,244,252}}; */ /* program to print out a dither matrix for use in array initialization */ main() int argc; char **argv; { short matrix[16][16]; int i, j; makematrix(matrix); for( i=0; i<16; i++ ) { (void)printf(" {"); for( j=0; j<15; j++ ) { (void)printf("%3d,",matrix[j][i]); } if( i<15 ) (void)printf("%3d},\n",matrix[15][i]); else (void)printf("%3d}};\n",matrix[15][i]); } } /* program to print out random values for error diffusion buffer */ main() { int iscale = 256; int errbufsize = 1202; int iseed = 5121953; float ran_(); int i, j; j = 0; /* RANDOMLY INITIALIZE ERRORS TO SUPRESS ANY PATTERNS */ (void)printf("\n "); for (i = 0; i < errbufsize; i++) { (void)printf("%3d,",(int)((float)iscale * ran_(&iseed))); if( ++j > 17 ) { (void)printf("\n "); j = 0; } } (void)printf("\n"); } static int rflag=0; float ran_(seed) int *seed; { float r; if(rflag==0) { srandom(1); rflag = 1; } r = (float)random(); return(r/(float)0x7fffffff); } #endif saoimage-1.08/defs/graphbox.def 666 21641 13 7245 4616400112 11541 #ifndef lint static char SccsGraphboxId[] = "%W% %G%"; #endif /* Module: Graphbox.def * Purpose: Declare and initialize color graph window parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ struct windowRec graphbox = { 0, /* Window ID; window's nom de plume (ptr) */ NULL, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 0, 0, /* unsigned int width, height; window width (-1 border) */ 2, /* unsigned int bdrwidth; width of the border */ 4, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 1, 2, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 1, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { /* XImage image; for XPutImage */ 0, 0, /* int width, height; 0, 0 */ 0, /* int xoffset; 0 */ 0, /* int format; XYBitmap, XY/ZPixmap */ NULL, /* char *data; NULL */ LSBFirst, /* int byte_order; LSBFirst */ 8, /* int bitmap_unit; 8 */ LSBFirst, /* int bitmap_bit_order; LSBFirst */ 8, /* int bitmap_pad; 8 */ 0, /* int depth; 1 or runtime set */ 0, /* int bytes_per_line; 0 */ 8, /* int bits_per_pixel; 1 or 8 */ 0, 0, 0, /* unsigned long red_mask, green_mask, blue_mask; runtime */ NULL, /* char *obdata; NULL */ { 0 } }, /* { struct func f }; { NULL } */ NULL, /* Visual *visual; visual type */ /* unsigned long valuemask; mask to set attributes */ CWBackPixel | CWBorderPixel | CWColormap | CWCursor | CWEventMask, { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ 0, /* int win_gravity; CWWinGravity */ 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWSaveUnder */ /* long event_mask; CWEventMask */ ButtonPressMask | ButtonReleaseMask | ExposureMask | KeyPressMask | ButtonMotionMask | StructureNotifyMask, 0, /* long do_not_propogate_mask; CWDontPropagate */ 0, /* Bool override_redirect; CWOverrideRedirect */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ { /* XSizeHints hints; for XSetNormalHints */ /* long flags; defined fields */ USPosition | USSize | PMinSize, 0, 0, /* int x, y; USPosition PPosition */ #ifdef HGRAPH /* basic size for horizontal graph (width and height are fit to font) */ 516, 84, /* int width, height; USSize PSize */ 404, 69, /* int min_width, min_height; PMinSize */ #else /* vertical graph is chosen if height > width, else horizontal is use */ /* basic size for vertical color graph (width is fit to font at runtime) */ 143, 550, /* int width, height; USSize PSize */ 123, 300, /* int min_width, min_height; PMinSize */ #endif 0, 0, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 0 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 0 } } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ }; saoimage-1.08/defs/image.def 666 21641 13 6655 4617512403 11025 #ifndef lint static char SccsImdefId[] = "%W% %G%"; #endif /* Module: Image.def * Purpose: Declare and initialize imaging parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ struct imageRec img = { NULL, /* char *filename; name of image file */ -1, /* int fd; open handle of image file */ 0, /* int headersize; bytes at top used for header */ NULL, /* char *header; stored header */ SOP_Logo, /* int file_type; type of file (array,fits,iraf,etc) */ ARR_None, /* int storage_type; file storage (short, real, etc) */ 0, /* int bytepix; number of bytes for pixel of data */ 1, /* int nimage; number of image if several in file */ 0, /* int keep_data; flag to keep file data in memory */ 0, /* int byte_swap; byte swap data after reading file */ 1, /* int row_order; row one as top or bottom */ 1, /* int index_base; 0 or 1 based index */ 0, /* int rotate_code; rotation to apply */ SOP_ZoomNone, /* int block_type; type of blocked file reading */ 0, /* int filecols; dimensions of image file */ 0, /* int filerows; */ 0, 0, /* int fiX1, fiX2; file subsection selection */ 0, 0, /* int fiY1, fiY2; */ 0.0, /* double ficenX; center of subsection used */ 0.0, /* double ficenY; */ 1, /* int fiblock; base file to image blocking select */ 0, /* int dispcols; initial display window size */ 0, /* int disprows; */ 0, /* int dispfix; display size was specified */ 1, /* int keepfilebuf; flag to keep file format data */ 0, /* int fdblock; file to disp blocking */ 0.0, /* double fdcenX; display center in file coord */ 0.0, /* double fdcenY; */ 1024, /* int bufmax; limit of buffer size (square) */ 1, /* int buffix; flag to prevent its being readjusted */ 512, /* int dispxmax; limits of display window size */ 512, /* int dispymax */ 128, /* int dispmin; (2 max's but symmetric min) */ -1, /* int energy; xray image energy filter (bitwise) */ SOP_Linear, /* int scaling; initial scaling selection */ 0, /* int fscaled; scale & bias used when file written */ 1.0, /* double fscale; scale given with file data */ 0.0, /* double fbias; offset given with file data */ 1.0, -1.0, /* double fimin, fimax; limits to clip image values (if a -- -- */ struct windowRec magnibox = { 0, /* Window ID; window's nom de plume (ptr) */ NULL, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 0, 0, /* unsigned int width, height; window width (-1 border) */ 1, /* unsigned int bdrwidth; width of the border */ 2, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 0, 0, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 1, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { /* XImage image; for XPutImage */ 0, 0, /* int width, height; 0, 0 */ 0, /* int xoffset; 0 */ ZPixmap, /* int format; XYBitmap, XY/ZPixmap */ NULL, /* char *data; NULL */ LSBFirst, /* int byte_order; LSBFirst */ 8, /* int bitmap_unit; 8 */ LSBFirst, /* int bitmap_bit_order; LSBFirst */ 8, /* int bitmap_pad; 8 */ 0, /* int depth; 1 or runtime set */ 0, /* int bytes_per_line; 0 */ 8, /* int bits_per_pixel; 1 or 8 */ 0, 0, 0, /* unsigned long red_mask, green_mask, blue_mask; runtime */ NULL, /* char *obdata; NULL */ { 0 } }, /* { struct func f }; { NULL } */ NULL, /* Visual *visual; visual type */ /* unsigned long valuemask; mask to set attributes */ CWBackPixel | CWBorderPixel | CWColormap | CWCursor | CWEventMask | CWWinGravity, { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ /* int win_gravity; CWWinGravity */ NorthEastGravity, 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWSaveUnder */ /* long event_mask; CWEventMask */ ExposureMask, 0, /* long do_not_propogate_mask; CWDontPropagate */ 0, /* Bool override_redirect; CWOverrideRedirect */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ { /* XSizeHints hints; for XSetNormalHints */ 0, /* long flags; defined fields */ 0, 1, /* int x, y; USPosition PPosition */ 128, 128, /* int width, height; USSize PSize */ 102, 102, /* int min_width, min_height; PMinSize */ 0, 0, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 0 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 0 } } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ }; saoimage-1.08/defs/magnify.def 666 21641 13 10266 4526312766 11417 #ifndef lint static char SccsMagdefId[] = "%W% %G%"; #endif /* Module: Magnify.def * Purpose: Define sighting mark for magnifier display * Modified: {0} Michael VanHilst initial version 6 June 1989 * {n} -- -- */ #define Zmark_width 7 #define Zmark_height 7 #define Zmark_x_hot 6 #define Zmark_y_hot 6 #define XYmark_x_hot 6 #define XYmark_y_hot 6 /* flags for upper left corner of sighting mark (hot spot is lower right) */ /* 1 becomes background, 2 becomes foreground, 0 is unchanged */ static int Zmark_mask[7][7] = { { 1, 1, 0, 0, 0, 0, 0 }, { 1, 2, 1, 0, 0, 0, 0 }, { 0, 1, 2, 1, 0, 0, 0 }, { 0, 0, 1, 2, 1, 1, 1 }, { 0, 0, 0, 1, 2, 2, 2 }, { 0, 0, 0, 1, 2, 0, 0 }, { 0, 0, 0, 1, 2, 0, 0 } }; static char XYmark_mark[8][40] = { { 0x00, 0x00, 0x02, 0x08, 0x04, 0x04, 0x08, 0x02, 0xf0, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0xf0, 0x01, 0x08, 0x02, 0x04, 0x04, 0x02, 0x08, 0x00, 0x00 }, { 0x00, 0x00, 0x04, 0x10, 0x08, 0x08, 0x10, 0x04, 0xe0, 0x03, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0xe0, 0x03, 0x10, 0x04, 0x08, 0x08, 0x04, 0x10, 0x00, 0x00 }, { 0x00, 0x00, 0x08, 0x20, 0x10, 0x10, 0x20, 0x08, 0xc0, 0x07, 0x40, 0x04, 0x40, 0x04, 0x40, 0x04, 0xc0, 0x07, 0x20, 0x08, 0x10, 0x10, 0x08, 0x20, 0x00, 0x00 }, { 0x00, 0x00, 0x10, 0x40, 0x20, 0x20, 0x40, 0x10, 0x80, 0x0f, 0x80, 0x08, 0x80, 0x08, 0x80, 0x08, 0x80, 0x0f, 0x40, 0x10, 0x20, 0x20, 0x10, 0x40, 0x00, 0x00 }, { 0x00, 0x00, 0x00, 0x20, 0x80, 0x00, 0x40, 0x40, 0x00, 0x80, 0x20, 0x00, 0x00, 0x1f, 0x00, 0x00, 0x11, 0x00, 0x00, 0x11, 0x00, 0x00, 0x11, 0x00, 0x00, 0x1f, 0x00, 0x80, 0x20, 0x00, 0x40, 0x40, 0x00, 0x20, 0x80, 0x00, 0x00, 0x00, 0x00 }, { 0x00, 0x00, 0x00, 0x40, 0x00, 0x01, 0x80, 0x80, 0x00, 0x00, 0x41, 0x00, 0x00, 0x3e, 0x00, 0x00, 0x22, 0x00, 0x00, 0x22, 0x00, 0x00, 0x22, 0x00, 0x00, 0x3e, 0x00, 0x00, 0x41, 0x00, 0x80, 0x80, 0x00, 0x40, 0x00, 0x01, 0x00, 0x00, 0x00 }, { 0x00, 0x00, 0x00, 0x80, 0x00, 0x02, 0x00, 0x01, 0x01, 0x00, 0x82, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x44, 0x00, 0x00, 0x44, 0x00, 0x00, 0x44, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x82, 0x00, 0x00, 0x01, 0x01, 0x80, 0x00, 0x02, 0x00, 0x00, 0x00 }, { 0x00, 0x00, 0x00, 0x80, 0x00, 0x02, 0x00, 0x01, 0x01, 0x00, 0x82, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x44, 0x00, 0x00, 0x44, 0x00, 0x00, 0x44, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x82, 0x00, 0x00, 0x01, 0x01, 0x80, 0x00, 0x02, 0x00, 0x00, 0x00 } }; static char XYmark_mask[8][40] = { { 0xfc, 0xe7, 0xf8, 0xe3, 0xf1, 0xf1, 0x03, 0xf8, 0x07, 0xfc, 0xe7, 0xfc, 0xe7, 0xfc, 0xe7, 0xfc, 0x07, 0xfc, 0x03, 0xf8, 0xf1, 0xf1, 0xf8, 0xe3, 0xfc, 0xe7 }, { 0xf9, 0xcf, 0xf1, 0xc7, 0xe3, 0xe3, 0x07, 0xf0, 0x0f, 0xf8, 0xcf, 0xf9, 0xcf, 0xf9, 0xcf, 0xf9, 0x0f, 0xf8, 0x07, 0xf0, 0xe3, 0xe3, 0xf1, 0xc7, 0xf9, 0xcf }, { 0xf3, 0x9f, 0xe3, 0x8f, 0xc7, 0xc7, 0x0f, 0xe0, 0x1f, 0xf0, 0x9f, 0xf3, 0x9f, 0xf3, 0x9f, 0xf3, 0x1f, 0xf0, 0x0f, 0xe0, 0xc7, 0xc7, 0xe3, 0x8f, 0xf3, 0x9f }, { 0xe7, 0x3f, 0xc7, 0x1f, 0x8f, 0x8f, 0x1f, 0xc0, 0x3f, 0xe0, 0x3f, 0xe7, 0x3f, 0xe7, 0x3f, 0xe7, 0x3f, 0xe0, 0x1f, 0xc0, 0x8f, 0x8f, 0xc7, 0x1f, 0xe7, 0x3f }, { 0xcf, 0x7f, 0xfe, 0x8f, 0x3f, 0xfe, 0x1f, 0x1f, 0xff, 0x3f, 0x80, 0xff, 0x7f, 0xc0, 0xff, 0x7f, 0xce, 0xff, 0x7f, 0xce, 0xff, 0x7f, 0xce, 0xff, 0x7f, 0xc0, 0xff, 0x3f, 0x80, 0xff, 0x1f, 0x1f, 0xff, 0x8f, 0x3f, 0xfe, 0xcf, 0x7f, 0xfe }, { 0x9f, 0xff, 0xfc, 0x1f, 0x7f, 0xfc, 0x3f, 0x3e, 0xfe, 0x7f, 0x00, 0xff, 0xff, 0x80, 0xff, 0xff, 0x9c, 0xff, 0xff, 0x9c, 0xff, 0xff, 0x9c, 0xff, 0xff, 0x80, 0xff, 0x7f, 0x00, 0xff, 0x3f, 0x3e, 0xfe, 0x1f, 0x7f, 0xfc, 0x9f, 0xff, 0xfc }, { 0x3f, 0xff, 0xf9, 0x3f, 0xfe, 0xf8, 0x7f, 0x7c, 0xfc, 0xff, 0x00, 0xfe, 0xff, 0x01, 0xff, 0xff, 0x39, 0xff, 0xff, 0x39, 0xff, 0xff, 0x39, 0xff, 0xff, 0x01, 0xff, 0xff, 0x00, 0xfe, 0x7f, 0x7c, 0xfc, 0x3f, 0xfe, 0xf8, 0x3f, 0xff, 0xf9 }, { 0x7f, 0xfe, 0xf3, 0x7f, 0xfc, 0xf1, 0xff, 0xf8, 0xf8, 0xff, 0x01, 0xfc, 0xff, 0x03, 0xfe, 0xff, 0x73, 0xfe, 0xff, 0x73, 0xfe, 0xff, 0x73, 0xfe, 0xff, 0x03, 0xfe, 0xff, 0x01, 0xfc, 0xff, 0xf8, 0xf8, 0x7f, 0xfc, 0xf1, 0x7f, 0xfe, 0xf3 } }; saoimage-1.08/defs/mouse.def 666 21641 13 14003 4531173365 11102 #ifndef lint static char SccsMouseId[] = "%W% %G%"; #endif /* Module: Mouse.def * Purpose: Declare mouse pointer icon bitmaps and parameters * Modified: {0} Michael VanHilst initial version 31 December 1987 * {n} -- -- */ /* BTNBOX CURSOR */ #define button_width 16 #define button_height 16 #define button_x_hot 7 #define button_y_hot 7 static char button_bits[] = { 0xe0, 0x03, 0xf8, 0x0f, 0x1c, 0x1c, 0xc6, 0x31, 0xf6, 0x37, 0x33, 0x66, 0x1b, 0x6c, 0x1b, 0x6c, 0x1b, 0x6c, 0x33, 0x66, 0xf6, 0x37, 0xc6, 0x31, 0x1c, 0x1c, 0xf8, 0x0f, 0xe0, 0x03, 0x00, 0x00 }; #define button_mask_width 16 #define button_mask_height 16 static char button_mask_bits[] = { 0xe0, 0x03, 0xf8, 0x0f, 0xfc, 0x1f, 0xfe, 0x3f, 0xfe, 0x3f, 0xff, 0x7f, 0xff, 0x7f, 0x7f, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xfe, 0x3f, 0xfe, 0x3f, 0xfc, 0x1f, 0xf8, 0x0f, 0xe0, 0x03, 0x00, 0x00 }; /* COLOR CURSOR */ #define cgraph_width 16 #define cgraph_height 16 #define cgraph_x_hot 8 #define cgraph_y_hot 8 static char cgraph_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xc0, 0x07, 0xf0, 0x1f, 0x38, 0x38, 0x18, 0x30, 0x0c, 0x60, 0x0c, 0x61, 0x8c, 0x63, 0x0c, 0x61, 0x0c, 0x60, 0x18, 0x30, 0x38, 0x38, 0xf0, 0x1f, 0xc0, 0x07, 0x00, 0x00 }; #define color_mask_width 16 #define color_mask_height 16 static char color_mask_bits[] = { 0x00, 0x00, 0xc0, 0x07, 0xf0, 0x1f, 0xf8, 0x3f, 0xfc, 0x7f, 0xfc, 0x7f, 0xfe, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfc, 0x7f, 0xfc, 0x7f, 0xf8, 0x3f, 0xf0, 0x1f, 0xc0, 0x07 }; /* CURSOR MODE CURSOR */ #define cursor_width 16 #define cursor_height 16 #define cursor_x_hot 0 #define cursor_y_hot 0 static char cursor_bits[] = { 0x00, 0x00, 0x3e, 0x00, 0x8e, 0x7f, 0x1e, 0x40, 0x3a, 0x40, 0x72, 0x40, 0x60, 0x40, 0x04, 0x40, 0x04, 0x40, 0x04, 0x40, 0x04, 0x40, 0x04, 0x40, 0x04, 0x40, 0x04, 0x40, 0xfc, 0x7f, 0x00, 0x00 }; #define cursor_mask_width 16 #define cursor_mask_height 16 static char cursor_mask_bits[] = { 0x7f, 0x00, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xe0, 0xff, 0xe0, 0xff, 0xe0, 0xfe, 0xe0, 0x0e, 0xe0, 0x0e, 0xe0, 0x0e, 0xe0, 0x0e, 0xe0, 0x0e, 0xe0, 0xfe, 0xff, 0xfe, 0xff, 0xfe, 0xff }; /* PAN CURSOR */ #define pan_width 16 #define pan_height 16 #define pan_x_hot 0 #define pan_y_hot 0 static char pan_bits[] = { 0xfe, 0xff, 0xc1, 0xff, 0xf1, 0xff, 0xe1, 0xff, 0xc5, 0xff, 0x8d, 0xff, 0x9f, 0xff, 0xff, 0xff, 0xff, 0xff, 0x71, 0xb6, 0xad, 0xa5, 0xad, 0xa5, 0x31, 0x94, 0xbd, 0x95, 0xbd, 0xb5, 0xff, 0xff }; #define pan_mask_width 16 #define pan_mask_height 16 static char pan_mask_bits[] = { 0x7e, 0x00, 0x7f, 0x00, 0x7f, 0x00, 0x7f, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0x00, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff }; /* SPACE SHUTTLE CURSOR */ #define shuttle_width 16 #define shuttle_height 16 #define shuttle_x_hot 8 #define shuttle_y_hot 0 static char shuttle_bits[] = { 0x80, 0x03, 0xc0, 0x06, 0x40, 0x04, 0x60, 0x0c, 0x20, 0x08, 0x20, 0x08, 0x20, 0x08, 0x20, 0x08, 0x20, 0x08, 0x20, 0x08, 0x30, 0x18, 0x18, 0x30, 0x0c, 0x60, 0x04, 0x40, 0xfc, 0x7e, 0x80, 0x03 }; #define shuttle_mask_width 16 #define shuttle_mask_height 16 static char shuttle_mask_bits[] = { 0x80, 0x03, 0xc0, 0x07, 0xc0, 0x07, 0xe0, 0x0f, 0xe0, 0x0f, 0xe0, 0x0f, 0xe0, 0x0f, 0xe0, 0x0f, 0xe0, 0x0f, 0xe0, 0x0f, 0xf0, 0x1f, 0xf8, 0x3f, 0xfc, 0x7f, 0xfc, 0x7f, 0xfc, 0x7f, 0x80, 0x03 }; #ifdef IMTOOL #ifdef FINGER /* FINGER ON KEY CURSOR */ #define key_width 16 #define key_height 16 #define key_x_hot 0 #define key_y_hot 0 static char key_bits[] = { 0x00, 0x18, 0x3e, 0x0c, 0x0e, 0x06, 0x1e, 0x03, 0xba, 0x03, 0xb2, 0x83, 0xc0, 0xc1, 0xe0, 0x40, 0x70, 0x60, 0x38, 0x30, 0x10, 0x18, 0x30, 0x0c, 0xe0, 0x07, 0xf8, 0x1f, 0x08, 0x10, 0x08, 0x10 }; #define key_mask_width 16 #define key_mask_height 16 static char key_mask_bits[] = { 0x7f, 0xfe, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf8, 0xff, 0xfc, 0xff, 0xfc, 0xff, 0xfc, 0x7f, 0xf8, 0x3f, 0xfc, 0x3f, 0xfc, 0x3f, 0xfc, 0x3f, 0x1c, 0x38 }; #else /* CROSS-HAIR CURSOR */ #define key_width 16 #define key_height 16 #define key_x_hot 7 #define key_y_hot 7 static char key_bits[] = { 0x00, 0x00, 0x80, 0x00, 0x80, 0x00, 0x80, 0x00, 0x80, 0x00, 0x80, 0x00, 0x00, 0x00, 0x3e, 0x3e, 0x00, 0x00, 0x80, 0x00, 0x80, 0x00, 0x80, 0x00, 0x80, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00}; #define key_mask_width 16 #define key_mask_height 16 static char key_mask_bits[] = { 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0x3f, 0x7e, 0x3f, 0x7e, 0x3f, 0x7e, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0x00, 0x00}; #endif #endif /* MISSILE CURSOR */ #define missile_width 16 #define missile_height 16 #define missile_x_hot 15 #define missile_y_hot 0 static char missile_bits[] = { 0x00, 0x80, 0x00, 0x60, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1e, 0x00, 0x0f, 0x80, 0x0f, 0xe0, 0x07, 0xf0, 0x03, 0xf0, 0x01, 0xf0, 0x01, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 }; #define missile_mask_width 16 #define missile_mask_height 16 static char missile_mask_bits[] = { 0x00, 0x80, 0x00, 0x60, 0x00, 0x70, 0x00, 0x38, 0x00, 0x1e, 0x00, 0x0f, 0x80, 0x0f, 0xe0, 0x07, 0xf0, 0x03, 0xf0, 0x01, 0xf8, 0x01, 0xfc, 0x00, 0x3c, 0x00, 0x1e, 0x00, 0x07, 0x00, 0x03, 0x00 }; #ifdef NOTUSED /* PLAIN CURSOR */ #define plain_width 16 #define plain_height 16 #define plain_x_hot 7 #define plain_y_hot 7 static char plain_bits[] = { 0x00, 0x00, 0xfe, 0x3f, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0x02, 0x20, 0xfe, 0x3f, 0x00, 0x00, 0x00, 0x00 }; #define plain_mask_width 16 #define plain_mask_height 16 static char plain_mask_bits[] = { 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x07, 0x70, 0x07, 0x70, 0x07, 0x70, 0x07, 0x70, 0x07, 0x70, 0x07, 0x70, 0x07, 0x70, 0x07, 0x70, 0x07, 0x70, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0x00, 0x00 }; #endif saoimage-1.08/defs/panbox.def 666 21641 13 6500 4526312762 11224 #ifndef lint static char SccsPanboxId[] = "%W% %G%"; #endif /* Module: Panbox.def * Purpose: Declare and initialize pan and zoom window parameters * Modified: {0} Michael VanHilst initial version 19 May 1989 * {n} -- -- */ struct windowRec panbox = { 0, /* Window ID; window's nom de plume (ptr) */ NULL, /* Display *display; display server handle */ 0, /* int screen; display screen number */ 0, /* Window parent; parent of this window */ 0, /* unsigned int depth; window depth */ 0, /* int active; flag to say window is there */ 0, 0, /* int x, y; upper left screen coords */ 0, 0, /* unsigned int width, height; window width (-1 border) */ 1, /* unsigned int bdrwidth; width of the border */ 2, /* int bdrtotal; width added by both borders */ 0, 0, /* int rightx, lowery; useful screen coordinates */ 0, 0, /* int xzero, yzero; u-l corner of drawing area */ 0, 0, /* int xwidth, yheight; size of drawing area */ 1, /* int moored; move window with disp box */ 0, /* int data_size; byte size of image data buf */ { /* XImage image; for XPutImage */ 0, 0, /* int width, height; 0, 0 */ 0, /* int xoffset; 0 */ 0, /* int format; XYBitmap, XY/ZPixmap */ NULL, /* char *data; NULL */ LSBFirst, /* int byte_order; LSBFirst */ 8, /* int bitmap_unit; 8 */ LSBFirst, /* int bitmap_bit_order; LSBFirst */ 8, /* int bitmap_pad; 8 */ 0, /* int depth; 1 or runtime set */ 0, /* int bytes_per_line; 0 */ 8, /* int bits_per_pixel; 1 or 8 */ 0, 0, 0, /* unsigned long red_mask, green_mask, blue_mask; runtime */ NULL, /* char *obdata; NULL */ { 0 } }, /* { struct func f }; { NULL } */ NULL, /* Visual *visual; visual type */ /* unsigned long valuemask; mask to set attributes */ CWBackPixel | CWBorderPixel | CWColormap | CWCursor | CWEventMask | CWWinGravity, { /* XSetWindowAttributes attrs; for XCreateWindow */ 0, /* Pixmap background_pixmap; CWBackPixmap */ 0, /* unsigned long background_pixel; CWBackPixel */ 0, /* Pixmap border_pixmap; CWBorderPixmap */ 0, /* unsigned long border_pixel CWBorderPixel */ 0, /* int bit_gravity; CWBitGravity */ /* int win_gravity; CWWinGravity */ NorthEastGravity, 0, /* backing_store; CWBackingStore */ 0, /* unsigned long backing_planes; CWBackingPlanes */ 0, /* unsigned long backing_pixel; CWBackingPixel */ 0, /* Bool save_under; CWSaveUnder */ /* long event_mask; CWEventMask */ ButtonPressMask | ButtonReleaseMask | ExposureMask | KeyPressMask | PointerMotionMask | LeaveWindowMask, 0, /* long do_not_propogate_mask; CWDontPropagate */ 0, /* Bool override_redirect; CWOverrideRedirect */ 0, /* Colormap colormap; CWColormap */ 0 }, /* Cursor cursor; CWCursor */ { /* XSizeHints hints; for XSetNormalHints */ 0, /* long flags; defined fields */ 0, 1, /* int x, y; USPosition PPosition */ 128, 128, /* int width, height; USSize PSize */ 103, 103, /* int min_width, min_height; PMinSize */ 128, 128, /* int max_width, max_height; PMaxSize */ 0, 0, /* int width_inc, height_inc; PResizeInc */ { 512, 512 }, /* { int min_aspect.x, min_aspect.y } PAspect */ { 512, 512 } } /* { int max_aspect.x, max_aspect.y } x/y=ratio */ }; saoimage-1.08/doc/blinking.txt 666 21641 13 4322 5202366567 11443 SAOimage blinking blinking rapidly between different stored display images The display, as it currently appears in the main display window, can be stored by the workstation's display server by clicking on the "blink" button in the scale submenu. Three separate images can be saved, each one associated with a different mouse button. Each saved display is associated with the mouse button used to click on the "blink" button, and replaces any previous image associated with that mouse button. The saved display image can be redisplayed when in scale mode, by pressing its mouse button while the mouse pointer is in the display window. Because the blink image is saved at the display server end of the X window system, it can be redisplayed much more quickly than the normal image drawing used by SAOimage. You will see the difference when you release the blinking button. To blink between saved images, press down on another mouse button, before releasing the earlier button. The blinked image uses the existing color mapping. The colors are not restored to any previous setting. Therefore, one should keep the same color map settings when choosing displays for blinking, or manipulate the color map to find a setting which works for all of the blinking images. Saved display images may all be of the current image, or, more likely, may be made from different, successively loaded images. The saved image can only be used for blinking. Displaying a saved image does not re-enable any other SAOimage functioning for that image. To be able to use the other functions on an image which is not the most recently read image, the image must must be reloaded from its file (or IRAF). All saved displays must match the current display window dimensions. SAOimage unsaves all saved displays when the display window is resized. Not all X servers are guaranteed to support display saving (called pixmaps). SAOimage will attempt to fall back on using image buffers within SAOimage for saving image displays. Unfortunately, some uncooperative X servers have been known to crash, rather than graciously decline the request. You will quickly know if you have such a server. Problems may also occur when the user tries to mix halftone and color pixmaps. saoimage-1.08/doc/cmdline.txt 666 21641 13 32727 5202366567 11313 SAOimage command line The command line is the line you type when you first call the SAOimage program. Following the name of the program, you can include the name of a file to read and/or various parameters and settings. Except for the filename, all settings are identified by a "switch" beginning with a "-". Some switches are sufficient by themselves, some switches must be followed by a fixed number of arguments (usually numerical), and some switches may be followed by arguments but do not require them. These are explained below. There is no required order to the switches. The file name can also appear anywhere on the command line (SAOimage assumes that any token that is not part of a recognizable switch is the file name). Many switches have two names, one literal and one abbreviated. In such cases the names are completely interchangeable. The longer names might be used in a script where a later reader might wonder what the switches do. The abbreviated names save typing on the command line. Once SAOimage is running, you may enter a new command line, changing some of the settings and/or reading in a new image from disk. See "new" in the "etc" menu section or 'N' in the keyboard section. A few switches cannot be changed from their initial settings (i.e. the display server). There are probably more switches than can fit on a normal command line. A method of tailoring with a default parameter file will eventually be added. The following is a list of the command line switches for SAOimage: -d :. ** Specify the name of the X display server. This makes it possible to run the SAOimage program on a machine other than the one connected to your display screen, with no difference in appearance or use. The default gets the server name from the DISPLAY environment variable. See the "xhost" man page for more details. This cannot be changed once SAOimage is running. Example: connect to the display server on cfa241 saoimage -d cfa241:0.0 or saoimage -d 128.103.41.241:0.0 -g [x][{+-}{+-}] ** Specify the size and/or the screen position of SAOimage. The format is a standard X geometry statement. Both size and position may be specified, or only the size or the position. Width and height refer to the dimensions of SAOimage's desktop window (see -dispsz for sizing just the image display window). +x and +y refer to the upper left corner in screen coordinates. -x positions the right edge from the right edge of the screen. -y would positions the lower edge from the bottom of the screen. Width and height below a minimum size are defaulted to the minimum. Some window managers may alter the size and/or position slightly. Once SAOimage is running, use the window managers size and move mechanisms to make any readjustments. Examples: a) create minimum sized SAOimage near upper left corner saoimage -g 0x0+10+20 b) create a 500x700 SAOimage window in the lower right corner saoimage -g 500x700-5-5 -gd [x][{+-}{+-}] ** Specify the size of the image display subwindow and/or the screen position of SAOimage. The format is a standard X geometry statement. This switch works like -g above, except that width and height (if given) are applied to the display subwindow. The overall SAOimage window is sized accordingly. Example: create an SAOimage in the upper right with a display window to exacly show a 320x512 FITS image saoimage -G 320x512-5+0 m51.fits -name This switch is only needed if the filename starts with a number or might otherwise be recognized as a switch. -fits Image file is a FITS file. (If the image file name ends in .fits, this switch is not necessary). Only T=SIMPLE array types are supported. The header BITPIX card must be 8 (unsigned byte), 16 (signed short), 32 (signed int), -32 (float), -64 (double), or -16 (unsigned short) (the latter two are not recognized standards). IEEE floats are not converted if that is not the machine format. -dfits Image file is a FITS file as above, but in unexpected byteswapped order. The FITS standard is not swapped, but some naive VAX applications may swap it. (see -bswap) -oif Image file is an IRAF image header file in OIF format. (If the image file name ends in .imh, this switch is not necessary). IRAF STF and QPOE formats are not supported. Complex data cannot be handled. The data must have at least 2 dimensions. Only the first plane of multidimensional images is read. The data file is read directly by SAOimage (see -imtool/-pros below). -chararray -u1 Image file is an unsigned byte array file of the given dimensions. (If the file is square and has no added padding, the dimensions are not necessary). -ushortarray -u2 Image file is a unsigned short integer array file of the given dimensions. (If the file is square and has no added padding, the dimensions are not necessary). -shortarray -i2 Image file is a signed short integer array file of the given dimensions. (If the file is square and has no added padding, the dimensions are not necessary). -longarray -i4 Image file is a signed long integer array file of the given dimensions. (If the file is square and has no added padding, the dimensions are not necessary). -floatarray -r4 Image file is a real*4 array file of the given dimensions. (If the file is square and has no added padding, the dimensions are not necessary). -doublearray -r8 Image file is a real*8 array file of the given dimensions. (If the file is square and has no added padding, the dimensions are not necessary). -header -skip -sk Skip over the given number of bytes at the head of the file before reading data. This is used to skip header information or the first image if two images are stored in one file. -bswap Switch the bytes order between big-endian and little-endian order. This may be needed where data has been copied from another machine or if there is some confusion about the FITS file format. This switch toggles the previous setting. -scalebias -sb The data in the image file should be scaled and biased to get the true image value (true_value = (scale * file_value) + bias). This cannot be used with the -fits image type (scale and bias are in the FITS header), nor with -imtool or -pros (they are passed by IRAF). -ul First pixel in file represents the upper left of the image (assuming the lines of input run left to right on the screen - see rotate, below). (This switch does not override IRAF wcs image coordinates). -ll First pixel in file represents the lower left of the image. (assuming the lines of input run left to right on the screen - see rotate, below). This is the IRAF standard and the SAOimage default. -rotate <1,2,or 3> -rot <1,2,or 3> Rotate the image 90, 180, or 270 degrees (respectively) before displaying it. Rotation is applied after conversion to a lower left coordinate system (-ll) if such conversion is also requested. This is useful for images when the CCD was not mounted North-up. -one The file coordinate of the first pixel is (1,1). The real coord- inates of the center of the first pixel are (1.0,1.0). This is the IRAF standard and the default for SAOimage. The second pixel is (2,1). -zero The file coordinate of the first pixel is (0,0). The real coor- dinates center of the first pixel are (0.5,0.5) which makes the very edge 0.0. This is the standard coordinate system for image displays, but not the default for SAOimage. The second pixel is indexed (1,0). -imtool Open the named input pipe and wait for input from IRAF. In this mode, SAOimage emulates IRAF's imtool. IRAF's image loading and cursor read-back functions are supported. Unlike imtool, SAOimage has only one frame buffer; IRAF's frame buffer numbers are ignored. This switch cannot be given when there is also a file name for reading on the same command line. Listening on the pipe is assumed to be requested in place of reading a file. This is the default mode if SAOimage is started up with no file specified. -pros This command is virtually identical to the -imtool switch above. The difference occurs when the user writes the saved regions to a disk file. Imtool emulation includes writing only an IRAF list file giving center coordinates only. With -pros, SAOimage's normal region descriptor file will be written in place of the simpler list file. -idev Specify the name of the named pipe used for listening. The default is /dev/imt1o, which is the default used by IRAF. -odev Specify the name of the named pipe used for sending feedback. The default is /dev/imt1i, which is the default used by IRAF. -linear Set the scaling mode to linear scaling. -wrap [<# of wraps within scaling range>] Set the scaling mode to wrapped linear, and set the number of wraps for this mode, if given. (See scaling section) -log [] Set the scaling mode to log (exponential), and set the exponent for the curve function, if given. (See scaling section) -sqrt [] Set the scaling function to sqrt (geometric), and set the inverse of the exponent for the X**(1/n) curve, if given. (See scaling section) -histeq Set the scaling mode to hisstogram equalization. -min [] Set the minimum for the image value range used to compute scaling. The default is to take the minimum from the image shown in the display window. -min with no value resets the default. (If the minimum value in the displayed image is higher than the given minimum, the image's minimum vale is used for the scaling range.) -max [] Set the maximum for the image value range used to compute scaling. The default is to take the maximum from the image shown in the display window. -max with no value resets the default. (If the maximum value in the displayed image is higher than the given maximum, the image's maximum vale is used for the scaling range.) -rmin [] Set minimum value for reading from the image file. This value is used as the minimum value when images are pre-scaled to fit the 16 bit (signed short) working buffer. (See scaling section) -rmax [] Set maximum value for reading from the image file. This value is used as the maximum value when images are pre-scaled to fit the 16 bit (signed short) working buffer. (See scaling section) -v Set verbose mode. In verbose mode, informative statements are printed to the terminal window when various actions are taken. -q Set quiet mode. See -v above. The default mode is to be verbose. -lprbuttons Include the button menu in the hardcopy image (only on color workstations). The default on color workstations includes the area above the button panel, but excludes the buttons. -coord Set coordinate tracking as the initial state. In coordinate -ct tracking the coordinates of the mouse are printed in the lower part of the main display window. -magnifier -mt Set magnifier tracking as the intial state. With magnifier tracking, the magnifier window is continuously updated to show a magnification of the image the image under the mouse. -mag Set the magnification factor of the magnifier. This factor relates the magnifier to the magnification of the display window. The default is 4; the magnifier magnifies the image to 4 times the magnification of the main display window (but never less than zoom 1 of the original data). -palette <# of colors in display colormap palette> -p <#> Specify the number of read/write color cells to reserve. On color workstations, SAOimage reserves color cells in the default colormap for its own use (see the Color section). SAOimage reserves as many color cells as it can get, up to the number given (the default is 200). If the number given is negative, SAOimage comes up in overlay mode, using 1/2 + 2 of the color cells for overlays and graphics. In verbose mode (see -v above) SAOimage tells you how many cells it is able to use for display colors. This number can be re-entered at run-time, unless -p 1 is given, in which case SAOimage stays in halftone mode. -green ** -blue ** -red ** Set the color of all graphics to a primary (red, green, or blue). Some inexpensive systems use a monochrome monitor connected to one of the three color outputs on the computer. That color must be specified to make the graphics visible. -horizgraph ** -hg Make the auxiliary color graph window can be wide, with a color bar along the bottom (the default). -vertgraph ** -vg Make the auxiliary color graph window tall, with a colorbar along the left side. -panboxav -panboxsum -panboxsamp -panboxmax These switches select the kind of image reduction used to fit a picture of the entire image into the pan window. Each pixel is computed from a block of image pixels by averaging, summing, sampling, or taking the maximum. The default is to show the maximum from each block. (When zooming in the main display involves reduction, subsampling is always used). -bordercolor ** -bc Specify the color of all subwindow borders. Color name must be a recognized X color (there are many). This is a style issue. Example: -bc green ** This switch is only effective on the initial start-up command line. saoimage-1.08/doc/color.code 666 21641 13 4352 5202366567 11062 Description of color code SAOimage can handle any of a variety of color map modes. At this time, monochrome, pseudocolor, and pseudocolor with an overlay plane are supported. Fixed color is planned for the future. Reserving a new colormap is not yet supported, either, but planned for the future. The imaging software does not need to know anything about the type of color map, excepting monochrome. For all of the color modes, the image is mapped from 0 to maxcolor, and then remapped to the actual display value using the cellmap. The cellmap is established by the code which Allocates color map cells. In the case of monochrome, maxcolor is 255 and a dither map or error diffusion code is applied to the final value. The cell map may be used if an additional stage of user control is desired. SAOimage uses a heirarchy of color maps to determine what the user gets, based on what the user wants. The order is colors with an overlay for the cursor, simple cell based color, and halftone bitmap. The selection starts with what was requested. If that cannot be arranged, it drops to the next. The pseudocolor mapping is based on a table of inflection points with a color intensity at each point of inflection. The color is interpolated between these points. Each color has its own table. There is not need for the inflection points of one color to have the same inflection level or intensity as any other. The intensities range from 0 to 1.0 and the inflection levels range from 0 to 1.0. The intensity and levels are scaled appropriately for the hardware and the colormap internally. This makes the pseudocolor tables hardware independent. However, it cannot guarantee two colors to be in adjeacent levels (i.e. levels 1 and 2). The table can be stretched, such that the range of levels extends beyond 0 and 1 in either direction. Then only the map section between 0 and 1 is converted to the actual integer pseudocolor map range. The number of inflection points is limited, usually to the number of entries in the expected display hardware (i.e. 256). To make a step function takes two entries (same level, different intensity) so a complete arbitrary colormap cannot be represented using psseudocolor tables. For that, a fixed color mode must be used. saoimage-1.08/doc/color.txt 666 21641 13 27616 5202366567 11017 SAOimage color color under the X window system on color workstations Most color workstations use an 8-bit color map, making it possible to choose a palette of 256 colors and to map each pixel on the screen to one of the 256 possible colors. Each of the 256 colors in the palette can be any color specified by its red, green, and blue intensities. By contrast, IBM PC's commonly offer palettes of 4 or 16 colors selected from a restricted group of colors. At the other extreme, 24 bit displays allow each pixel to be mapped directly to virtually any color, defined by its red, green, and blue intensities (using 8 bits for each). X11 uses a color reservation system by which each application reserves a portion of the palette for its own use. Color reservation prevents an application from changing the colors of other applications present on the screen. Typically, SAOimage will be able to reserve as many as 240 color entries in the palette. However, if you (or your window manager) have tailored your X environment by specifying a variety of unusual colors for terminal windows, the clock, and other commonly used applications, there will be fewer unreserved colors in the palette. Conversely, if you are running an SAOimage which has reserved all of the available colors, you may be unable to bring up a new application which expects to be able to grab new colors of its own. A color in the palette is often referred to as a color cell (referring to its reservation) or color level (referring to its index between 0 and 255). SAOimage uses color cells for more than just rendering the image. The adjustable cursor and the region cursors must also be referenced to colors in the color palette. When the cursor is drawn, pixels in the display are set to the value of the cursor color, overwriting the original image data. If no special care was taken, the image would gradually be erased as the cursor was moved about the display. To avoid this problem, SAOimage uses either of two strategies for tracking the cursor while it is in motion. With one strategy, while the cursor is moving, or being adjusted, the bits in the displayed image are simply reversed to represent the cursor, and flipped back when the cursor moves away. This doesn't draw the cursor in its correct color, but, in most cases, it produces a visible cursor. When the cursor adjustment ends (the mouse button is released), the entire image is redrawn with the cursor in its new position. This same strategy is used to track the cursor on halftone displays. The other strategy actually reserves half of the colors just for drawing the cursor. In this alternative strategy, each image color level has a corresponding level in the palette which has the cursor color. The image color levels differ from those of the cursor by one bit, which can be set and unset to represent either the cursor or the image. Drawing the cursor simply involves manipulating the distinguishing bit in display memory. In this mode, cursor can be tracked smoothly in its correct color without erasing the image data. This system is analogous to reserving "planes" of display memory to be treated as overlay planes and image planes (X does not as yet recognize true hardware overlay planes). The advantage of the "plane" reservation strategy is that cursor tracking is visually flawless. The disadvantage is that fewer than half of the color levels are available for rendering the image. Fortunately, it is easy to switch between the two modes (using the "ovlay" button), so one can choose whichever coloring strategy is most appropriate for the current activity. Color mapping In order to maximize the use of the available colors, SAOimage offers several facilities for assigning and altering colors in the palette. The The association of a palette level with an image data value is handled by scaling and is explained in a separate section. There are basically three ways of assigning colors in the palette: true-color, gray-scale, and pseudocolor. SAOimage supports the latter two. SAOimage also supports half-toning on non-color workstations and by selecting the "mono" button in the color submenu (see the halftone section). In true color, each image data value has associated with it an actual color. True color mapping tries to associate colors, as near as possible to the true color, with each pixel in the image display. This is difficult where there are few colors in the palette. There is no support in SAOimage for true-color mapping. In gray scale, all pixels have the same color, but differ in intensity. Basically, the colors range from black to white, with shades of gray in between. It could also be done with some other color such as shades of red. The lowest data values appear black while the highest appear white (or visa-versa). The image appears as a black-and-white photograph might render it. In pseudo-color, any color can be assigned to any level, but all pixels with the same value will have the same color. Typically, one might use an analogy with heat, mapping the low values as shades of blue, the middle values in shades of red and the highest values as yellow or white. The idea is to use the colors to highlight differences among the data values. Depending on the levels which best distinguish the detail you wish to study, the shifts from blue to red and red to yellow can be placed at higher or lower image data values and closer together or farther apart. The changes in color can be made gradual or sharp. Color maps may simply be a list of colors for each level, or may be created by specifying a few colors and levels and interpolating to assign colors for the in-between levels. SAOimage uses the latter. If one were to graph the color map, having intensity of color on one axis and palette level on the other, the graph would have fixed points with ramps or steps between them. The simplest gray scale has no intensity for any color at one end of the palette and full intensity for all colors at the other end of the palette, with a straight line representing the interpolated colors in between. The color graph is in fact physically drawn by SAOimage in a separate window, and can be directly manipulated. SAOimage has a basic gray scale and several pseudocolor maps available in the "cmap" page of the "Color" submenu. Once you have selected a color map, you may choose to manipulate it, as described below. Reselecting the same color map, or selecting a new color map from "cmap" submenu, sets the selected color map, eliminating any adjustments you may have made. Color manipulation The color graph window is normally not displayed. It is summoned (and hidden again) by clicking the mouse on the color bar next to the display window. In the graph, each color is graphed separately, with little squares to represent the fixed points in the graph. Where two or more color lines overlap, the line (or box) appears black. One may create a new fixed point by positioning the mouse icon in the graph and pressing a mouse button. The three mouse buttons control red, green, and blue, respectively from left to right. By holding the mouse button (or buttons) down, the fixed point can be dragged anywhere on the graph. An existing fixed point can be grabbed for dragging by positioning the mouse icon over it when pressing the button. The graph can be adjusted, en mass, by moving the mouse in the main display window with a mouse button depressed. There are two different kinds of adjustment, threshold/saturation and contrast/bias, and an intensity adjustment called gamma. With threshold/saturation, moving the mouse horizontally moves the lower (threshold) end of the graph up or down, while moving the mouse vertically moves the upper (saturation) end of the graph up and down relative to the palette. With contrast/bias, moving the mouse along the axis of the color bar shifts the entire graph up or down (bias) relative to the palette, while moving the mouse perpendicular to the color bar moves the ends of the graph closer together or farther apart about a middle position (contrast). Threshold/saturation is easy to implement in software and common in pseudocolor display systems. Contrast/bias corresponds more closely to the kinds of adjustments familiar to photographers. In both cases, the middle of the display window is the default graph position relative to the palette. The intensities of the colors are normally given relative to voltage applied to the color guns in the monitor. Half intensity is half of full voltage. Unfortunately, this does not really correspond to the sensitivity of the eye. Double the voltage does not seem like doubling the intensity. Half voltage on a gray scale does not seem like a middle gray. The gray scale seems to favor the darker shades. The relationship between voltage and perception is generally thought to be an exponential one and is represented by the symbol small gamma. Changing the gamma produces a non-linear (exponential) adjustment in contrast. A gamma of between 2 and 2.2 is considered correct for a typical monitor. You can play with the gamma adjustment by selecting the "power" mode in the "Color" submenu. Moving the mouse horizontally in the main display window with a mouse button down adjusts the gamma. The gamma values for each color are printed beside the color graph. Gamma of 1 (linear) is in the middle of the main window. The intensity adjustment is applied directly to the palette colors and does not affect the points used to map the colors. Gamma values below 1 may be useful for sharpening the contrast before making a hard copy. You can drag beyond the main window for gamma values outside the normal range. Normally, all adjustments are applied equally to each of the three colors. However, the adjustments can be applied to any one or two of the colors by holding down the control key. Then the three mouse buttons control red, green, and blue, respectively, as in the graph window. The "invert" button in the "Color" submenu inverts the intensities (minimum intensity becomes maximum intensity) without changing the graph points. Updating the graph and gamma display Drawing the graph and printing the gamma values takes up computing time and may slow the response to your movement of the mouse. Therefore, while the colors are always continuously updated, updating of the graph occurs only when you finish (release the mouse button), unless you specifically request it. The "track" button in the "etc" submenu, controls whether the color graph is updated continuously or only upon completion of the manipulation. Tracking may be temporarily activated (or deactivated) by pressing a "shift" key on the keyboard or toggling the "Caps" shiftlock key. Saving color map entries and reading them back in (color only) The current colormap can be written to a disk file, and a previously saved colormap can be read from a disk file. The format of the disk file is ASCII and can be edited if the format is followed. The file can have comments on any line, starting with a '#' symbol. The first non-comment word in the file must be 'PSEUDOCOLOR'. Each color's table is defined separately. Each color's table must begin with the color name 'RED', 'GREEN', or 'BLUE'. The color name may optionally be followed by the word GAMMA, then followed by a gamma value for that color. The vertex points in the table are defined by pairs: '(level, intensity)'. The intensities range from 0 (minimum) to 1.0 (maximum). The levels range from 0 (lowest level) to 1.0 (highest level). The points must be in ascending order by level. All three colors must be described, and each color must have at least 2 points. When a color map is being manipulated, the effective levels of points may be shifted or stretched above 1.0 or below 0.0. These points are preserved in the disk file, and when read in, they may be shifted back into the visible range. The novice user should remember that if one starts with the 'A' colormap, shifts it, and then writes it out, the stored colormap is the shifted map, not the original 'A' map. saoimage-1.08/doc/cursor.txt 666 21641 13 23761 5202366570 11205 SAOimage cursor mode intro SAOimage provides a variety of "software" cursors to identify or delineate areas of the image. These are not to be confused with the workstation's "mouse cursor" (the icon which moves as you move the physical mouse on the mouse-pad or desk top). The software cursors are selected and manipulated while in cursor mode, which is activated by selecting the "Cursor" button in the main button menu. In this section, software cursors will be referred to as "cursors" and the mouse cursor (also called the pointer) will be called "the mouse". Special cursor interactions which work in conjunction with IRAF are discussed in the section on IRAF. There are five basic cursor shapes: point, polygon, rectangular box, circle, and ellipse. The cursor type is selectable by the corresponding button in the cursor button submenu (see the button menu section). The latter three cursor types can be used to make "annuli" of concentric equivalent cursors. Only one active cursor can exist at any given time. However, cursors can be stored, written to disk, and recalled using the "region" features (see the Region section). The cursor is always displayed, even when it is not active (not in cursor mode). Since the active point cursor has no visible component, select it when you do not wish to have a cursor visible in your display. When a cursor is selected, its position, size, and orientation are manipulated by using the mouse (see the mouse control section). As a general rule, the left mouse button controls the position of the cursor, the middle mouse button controls the shape or size of the cursor, and the right mouse button controls the angular orientation of the cursor (if it has one). You may either "click" or "drag" the mouse. Positions, dimensions, and angles (where applicable) are shared among the latter three cursors. The point and polygon cursors pose special cases to the rule; read about them separately, below. When SAOimage is in its verbose mode (see the "etc" section), each time a cursor manipulation is completed, a message is sent to SAOimage's associated terminal window, giving the cursor coordinates and dimensions, in units of image file pixels. positioning To position the cursor by clicking, move the mouse to the pixel where you want to center the cursor and then click the left mouse button. To position the cursor by dragging, press and continue holding down the left mouse button while moving the mouse. When the cursor is positioned where you want it to be, release the left mouse button. Note that you can use the magnifier "tracking" feature to aid in positioning the cursor (see the "etc" section) and you can use the keyboard arrow keys to aid in fine positioning the mouse (see the mouse control or keyboard sections). sizing To adjust the size or shape of the cursor, the same clicking or dragging procedure is used with the middle mouse button to position the cursor's edge while its center stays fixed. When sizing the box or ellipse, certain restrictions apply, depending on the position of the mouse when you first press the middle mouse button. If you are near to a line through the center and one corner of the box, you will be controlling the location of the corners of the box (adjusting both dimensions). If you are not near one of the diagonals, you will control only the width or height, depending on the side to which the mouse is closest. The ellipse is adjusted by controlling an imaginary box which encloses the ellipse, having the dimensions of its major and minor axes. When adjusting the size of a cursor annuli, since the ratio of width to height is fixed, the mouse controls the actual edge of the cursor, regardless of its type. rotation angle The right mouse button is used to control the rotation angle of boxes and ellipses. When the right mouse button is pressed or held down, the angle is determined by a line from the center of the cursor to the mouse. The initial angle (0 degrees) points toward the top of the screen. To reset the angle to 0 degrees, click on the "ortho" button in the Cursor submenu. For the circle cursor, the right button has no function, while for points and polygons it performs a special delete function (see below). point cursor The point cursor is used to flag particular image pixels or coordinate points. Its position is defined as that of the mouse. No active cursor is drawn. The mouse buttons are mapped directly to region functions (see regions). The left mouse key stores a point include region (to flag a pixel or coordinate of interest). The middle mouse button stores a point exclude region (to flag a bad pixel). With the mouse positioned to point at the first character in the label of a saved point, pressing the right mouse button deletes that saved point. Saved points are represented by a label giving either its pixel coordinates or an index number. By default, the label is stenciled over the image. However, if the label is too hard to read, the background around the label can be made solid by selecting the appropriate command line option. The point is at the left edge of the point label, and on a line with the bottom of the characters (not at the lowest edge of the background). When making hard copies, SAOimage always fills in the label backgrounds. polygon cursor A polygon is defined by straight lines connecting a set of vertices. For the active polygon cursor, each vertex is represented by a tiny box. To add additional vertex points, drag or click with the middle mouse button. The next vertex is always added to the side nearest the mouse pointer when the middle button is depressed. To move an existing vertex, point the mouse directly at it when depressing the middle mouse button. To delete an unwanted vertex, point the mouse at the unwanted vertex and click the right mouse button. The entire polygon can be be moved at any time by using the left mouse button. When the left button is depressed, the polygon is moved such that the nearest vertex has the same position as the mouse pointer. Clicking on any cursor type submenu button, including the "poly", causes the polygon to be reduced back to a single point. In other words, if you switch cursor types, you cannot return to the polygon which you had been constructing, unless you saved it as a region. cursor annuli Annuli of box, circle, and ellipse cursors are available by selecting the annuli button from the cursor submenu. Set the cursor to the desired shape and angle before selecting the annuli feature, as these cannot be changed once the annuli feature has been selected. (The annuli selection changes the functioning of the middle mouse button and disables any angle control.) Annuli are sized by clicking or dragging with the middle mouse button. The center, angle, and width to height ratio remain unchanged while sizing. When the middle mouse button is first depressed, three possible events may occur, enabling the user to a) create an annulus with an arbitrary radius, b) create annuli with fixed radius increments, or c) change the size of an existing annulus. a) If the mouse is between existing annuli or not too far from an existing annulus, a new annulus will be created sized by the mouse position. b) If the mouse is well outside the existing cursor annuli, a new cursor is create which radius is initially incremented from the outer annulus by the same increment as that between the outer two annuli (or the annulus and the center if there is only one annulus). A comparable situation applies when the mouse is well inside the innermost annulus. However, once the annulus is created, if you proceed to drag the mouse with the middle mouse button down, the size of the new annulus reverts to being controlled by the mouse. c) If the mouse is pointing at the edge of an existing annulus, that annulus will be "grabbed" for sizing. To delete an unwanted annulus, point the mouse at or near the unwanted annulus and click the right mouse button. The innermost or outermost annulus can be deleted simply by clicking the right mouse button while the mouse is inside of outside all of the annuli. All of the annuli are forgotten when any cursor submenu button is selected, or reselected. The "annuli" button itself toggles between on and off. cursor coloring Tracking a cursor means updating the displayed cursor as its shape, size, or location is being manipulated, enabling the user to see the effect of the manipulation. Tracking a visible cursor across the display poses a special problem; how to quickly draw and undraw the cursor as it moves without wiping out the image underneath. SAOimage uses two alternative mechanisms to do this. On halftone workstations, the tracking cursor is drawn simply as the opposite color (exclusive or) of the image. Black pixels appear white and white pixels appear black, as the the cursor tracks across them. When the tracking action is completed (when the mouse button is released), the entire display is redrawn, along with the new cursor. The same mechanism, as that used on halftone systems, is used on color workstations when a large number (>100) of display color levels is needed. During tracking, the inverse of the display pixels may not result in very noticeable colors, but at least the "shimmering" of the display as the cursor moves makes it possible to see where the cursor is. When much cursor manipulation is to be performed, a better alternative is available. One bit in each color value is reserved for the cursor. Then the cursor may be drawn and undrawn without affecting the display. This results in a smooth, continuous display of the cursor throughout any tracking interaction, with no need to redraw the image at the completion of the action. The disadvantage is that the number of available colors for the image is cut by a factor of two (plus two more colors for the saved regions and other overlay-like displays). On color workstations, one may switch freely between the overlay and non- overlay modes by using the "ovlay" toggle button in the "Color" submenu. See color section for more details. saoimage-1.08/doc/hardcopy.txt 666 21641 13 5020 5202366570 11445 SAOimage hardcopy outputting an image to a laser printer Clicking on the "print" button in the "etc" submenu dumps a hardcopy of the main display image to a postscript printer. The output image includes the central display window and the colorbar. Any cursors, showing in the display window are included in the output. This is a monochrome file, not color postscript. In order to get a hardcopy that looks something like what you have on the screen, it is best to use the "gray" colormap. You should find a good scaling for the image and manipulate the contrast with the "gamma" control. The output image will be dithered by the Postscript printer's own dithering algorithm. On color workstations, the image is read from the screen and includes any graphics which may be showing. The image also includes the upper portion of SAOimage (the title area and two auxiliary windows). By default, the buttons are not included, but they may be included by first using the -lprbuttons switch on the command line. When SAOimage is in its mono (halfone display) mode, an image of the display window, only, is created and printed. This image is made directly the internal data, using the current scaling information, and does not include any cursor graphics graphics. (It will include markings made with IRAF's tvmark task). The output file can be directed anywhere by setting an environment variable called R_DISPOSE. The R_DISPOSE string is a format statement for an sprintf which creates the UNIX command, where '%s' will be replaced by its temporary file name. The default is "lpr -Plw -r %s". The -r in the print statement deletes the postscript file after being printed. One could, for example, set R_DISPOSE to "mv %s /tmp/foo.ps" to save the file for later use. If no R_DISPOSE environment variable is set, SAOimage looks for a PRINTER environment variable. If one is set, the hardcopy will be sent to that printer. If no PRINTER variable is found, the default destination is lw. The postscript file is scaled to fill an 8.5x11 inch page (regardless of the printer resolution). To get a smaller image, centered on the page, see the comment in the ASCII section at top of the file. Sending an image to a printer over serial lines at 9600 baud, as is common for the Apple printers, will tie up the printer for about 12 minutes. Be considerate of other users who use the printer. While this is generally a sufficient and convenient form of hardcopy, the user may also wish to try "xwd" or one of the several other window dump facilities available for X11. saoimage-1.08/doc/keyboard.txt 666 21641 13 13225 5202366570 11462 SAOimage keyboard input Many of the keys on the keyboard are mapped to perform useful functions. Striking the key results in an immediate response. The response may be dependent on the window in which the mouse cursor is positioned. Some responses are also dependent on the main menu mode (i.e. Cursor). Both upper and lower case are mapped the same. In addition to the instant action keys, the control, shift, and meta (left and right) keys change the response to mouse actions when held down while performing the mouse action. Sometimes, SAOimage will ask for text or numeric input with a pop-up window. Input in this situation is as one would expect and is unaffected by the mappings which are otherwise in effect. The cursor read-back mode of IRAF, also overrides many keyboard functions. Mapped key commands Up Arrow, Down Arrow, Left Arrow, Right Arror: The four arrow keys can be used to move the mouse cursor one screen pixel in the given direction. The mouse interaction is exactly as if you moved the mouse by hand. This facilitates fine positioning and works in all windows and all modes. R: ("raise") Raise all SAOimage windows to the front of any other windows on the screen. The 'A' key also performs this function. A: ("refresh") Raise and redraw the display windows. This is equivalent to ctrl-L in a character terminal window. N: ("new") enter new command-line arguments. This brings up a popup window for text input. Use the same switches and arguments as you would on the command line (see cmdline help). All of the command line arguments which affect selection and display of an image can be used. Some configuration arguments (e.g. -d, -g, & -G) are not affective at this time. T: ("table") When the mouse is in the main display window or the pan window, this prints a table of the pixel values surrounding the current mouse position. The table is printed in the terminal window from which SAOimage was called. The values are scaled to their original file values. (L has a seemingly similar affect but is useful only for debugging purposes). S: ("save") When in cursor mode, and the mouse is in the display window, the current cursor is saved as a region (of type include). E: ("exclude") When in cursor mode, and the mouse is in the display window, the current cursor is saved as a region (of type exclude). D: ("delete") When in cursor mode, and the mouse is in the display window, the smallest region which encloses the mouse is deleted. In the case of a point region, its area is defined as the area of the first character of its label. Delete: When in cursor mode, and the mouse is in the display window, the most recently saved region is deleted. Modifier keys For an explanation of mouse clicking and dragging, see the help section on mouse control. Shift: Holding the shift key down toggles the 'track' and 'coord' tracking actions. If no tracking was selected and the mouse is in either the main main display window or the pan window, touching the shift key will update the magnifier window to the current mouse location. If the mouse is in the main display window, the coordinates and pixel value will also appear in the upper right, above the buttons. If you are in Color mode and dragging the mouse with a button down in either the main or color graph window, the graph will be updated to the current state of the color table. By contining to hold the shift key down, tracking will continue to update as you move the mouse. If you were tracking before touching the shift key, pressing the shift key will suspend tracking, enabling you to preserve the existing tracking displays while moving the mouse. Caps or ShiftLock: Toggling to caps mode by using the Caps or shift lock key has the same effect as holding the shift key down. When using this option, you may need to toggle it off to make normal text entry in the pop-up or a terminal window. Control: When manipulating the color map in the main diplay window, holding the control key down, restricts the affect to only the color(s) corresponding to the mouse button(s) being pressed (left=red, middle=green, right=blue). Meta keys: The meta keys have traditionally been used for window manager functioning. SAOimage normally ignores keyboard and mouse input while a meta key is held down. Pop-up text and numeric input: When SAOimage needs string input such as the name of a file or new command line arguments, it presents a pop-up window for you to type in. The line starts with a default already typed in. Many keyboard editor keys are recognized, including the arrows. The popup window also recognizes many EMACS style line edit commands. The input is taken when the user strikes the return key. CtrlA: Move text cursor to beginning of line CtrlB: Move the text cursor back one character (backspace) CtrlC: Abort the interaction and return to SAOimage CtrlD: Delete the character under the text cursor CtrlE: Move the text cursor to the end of the line CtrlF: Move forward one space CtrlG: clear escape if just typed CtrlK: Delete all characters from the text cursor to the end of the line CtrlN: recall next input line (clear input line if no next in buffer) CtrlP: recall prior input line Delete: Delete character before the text cursor escape B: move to beginning of previous word escape D: delete to end of next word escape F: move to end of next word For numeric input, the typed input must be in acceptable integer or real (where allowed) format. Multiple entries, when desired, must be separated by spaces, commas, or tabs. (The line is read using scanf). saoimage-1.08/doc/mouse.txt 666 21641 13 12264 5202366570 11014 mouse control in SAOimage As with most interactive workstation programs, SAOimage uses the mouse and its buttons for many of its interactions. To take full advantage of SAOimage's features, the user must understand how to use the mouse. There are three basic types of mouse interactions: moving, clicking, and dragging. Moving means moving the mouse while keeping it flat on its mouse pad or desk surface. Clicking means pressing one of the buttons on the mouse and then releasing it. Dragging means holding one or more of the mouse's buttons down while moving the mouse. Rotating the mouse is not a meaningful action. The mouse is represented on the screen by an "icon", a simple symbol about a half centimeter on a side, which moves on the screen as you move the mouse on your table. The box with buttons which you hold in your hand and the icon on the screen are interchangeably (or in concert) referred to as the mouse. In X11 literature, the mouse is commonly referred to as the "pointer." The mouse "occupies" a window or object when its icon on the screen is within the borders of that window or object. The mouse interaction (as well as the keyboard interaction) is governed by the window or object which the mouse occupies. The mouse icon has a point (called the "hot spot") which is used to determine its screen coordinates. This point is usually in the center of the icon or at a corner. The shape of the icon should make it easy to guess where the hot-spot is. The mouse location (or "where the mouse is pointing") refers to the hot-spot. Often dragging is initiated by pointing the mouse at a particular object (i.e. the vertex of a graph or polygon) as the appropriate mouse button is pressed, and then "dragging" that object while continuing to hold the mouse button down. Some interactions may be performed while dragging with more than one mouse button down at the same time. In the color graph, for example, each mouse button corresponds to one of the three display colors (red, green, blue). One can make a change in gray level, by dragging with all three buttons held down while moving the graph vertex. Some actions perform a completion action only after the last mouse button is released. For example, consider the pan window interaction. In the pan window, you may manipulate both the magnification and the center of the main display window (zoom and pan). The main display window is not actually redrawn until all mouse buttons are released. The area that would appear in the main display window, if the mouse buttons were released at that point, is represented by a box drawn in the pan window. You may switch directly from adjusting the zoom to adjusting the pan (or visa-versa) by pressing the other mouse button down while still holding the former button down. tracking Some interactions actually "track" the mouse. By this we mean that that which is being controlled is repeatedly updated as the mouse is moved, giving the impression of smooth, continuous change. An example of this is moving a cursor with the mouse. As you move the mouse, the displayed cursor moves across the screen. Another example is the magnifier window. As you move the mouse, the view in the magnifier shifts (or pans), as if watching moving scenery. While tracking is generally desirable, your workstation processor may not be fast enough to make many repeated updates for the illusion of smooth continuous change. This is especially a problem for complicated processes (e.g. redrawing the main display window or drawing several elliptical annuli) or when many things are all tracking at the same time (e.g. changing the colors while also updating the graph which represents the color map). When this happens, the effect of moving the mouse may lag annoyingly behind the actual movement of the mouse. Recognizing that some processors are slower than others, SAOimage allows some tracking actions to be enabled or disabled. The magnifier window can track the mouse as it moves across the main display or pan windows. The color table graph can track changes to the color map as they are controlled either in the main display window or directly on the graph (see the Color section). Both of these tracking functions are enabled or disabled by the "track" button in the "etc" button submenu. The "track" selection can be overridden (reversed) temporarily by pressing the "Shift" key or more long term by toggling the "Caps lock" key. The running text display of the mouse coordinates and the corresponding pixel value can be enabled or disabled by the "coord" button in the "etc" button submenu. This is also overridden by the "Shift" and "Caps" keys. fine movement SAOimage uses the user's default mouse movement velocity settings. To move the mouse one pixel at a time in any direction, use the keyboard arrow keys (see the Keyboard section). The arrow keys can be used at any time in place of physically moving the mouse. Thus to perform a fine movement while dragging, hold the mouse steady with the mouse button (or buttons) depressed with one hand, while pressing the appropriate arrow keys with the other hand. If you are not already tracking, you may wish to hold the shift key down as you do so, to better see the effect of the fine movements. saoimage-1.08/doc/pan.txt 666 21641 13 4605 5202366570 10422 SAOimage pan and zoom The loaded image may be panned and/or zoomed for its display in the central display window. Panning and zooming are interactively controlled by clicking or dragging the mouse in the pan window. This is the small image window at the top of the desktop, next to the magnifier. The pan window shows the entire area of the loaded image. (By default the image in the pan window was reduced by taking the maximum value in each block of the original image, but averaging, summing, or subsampling may be used instead - see the cmdline section). A box cursor in the pan window shows the area of the image currently being displayed in the main display window. This box can be moved and sized just like the regular box cursor (but without angular rotation control). The left mouse button controls the location of the center of the box (the display image). The middle button controls the edge of the box, for the given center, thus determining its size. The size of the box is restricted to integer zoom factor. (The actual algorithm choses the smallest zoom that still includes the mouse pointer's position.) One can switch from one type of control to the other, by holding the first button down, until after the second button has been pressed. The interaction can be cancelled by dragging the pointer outside of the pan window's borders. Only after the last button is released is the main display redrawn, with the indicated pan and zoom. When the mouse is in the pan window, the area under the mouse pointer can be magnified in the magnifier by pressing or holding the shift key on the keyboard. The "T" key table also works with the pointer in the pan window (see the keyboard section). As anywhere else, the arrow keys can be used for fine positioning. In pan mode, the same types of interactions as those used in the pan window can be performed in the main display window. Clicking or dragging with the left button controls the center of the display. Clicking or dragging with the middle button determines the zoom factor. The box cursor in the pan window tracks these manipulations as the mouse is dragged in the display window, just as it does when it is being directly manipulated in the pan window. The "pan" submenu allows a more basic method of changing the zoom (e.g. x4 or x1/2). The center button centers the display on the image and the zoom 1 sets it to one display pixel per image pixel. saoimage-1.08/doc/region.txt 666 21641 13 14246 5202366571 11152 SAOimage cursor regions A region is a cursor which has been stored. SAOimage cursors can be stored, recalled, written to disk, and read from disk using the "region" features. Region controls work only when SAOimage is in "cursor mode". Regions were designed for use with SAO's PROS/IRAF image analysis software, but they can be generally useful. There are two classes of regions; include and exclude. When used by the PROS software, an include region indicates an area of interest for analysis (e.g. for counts within a region). An exclude region indicates areas or pixels to be excluded from analysis (e.g. bad pixels or areas affected by other phenomena such as an adjacent source). saving and unsaving To save the current cursor as a region, type the "S" key for in include region or the "E" key for an exclude region. To unsave the most recently saved region, type the "Delete" key. To unsave an arbitrary region, place the mouse within that region and type the "D" key. If the mouse is within two regions when the "D" key is typed, the smaller region is deleted. When a point cursor is the active cursor, the three mouse keys are mapped to perform the same functions as the "S" key (left mouse button), the "E" key (middle mouse button) and the "D" key (right mouse button). Only point regions can be deleted with the right mouse button. For purposes of deleting, the area of a point region is defined to be the area of the first character of its label. Saved regions are normally drawn and labeled. On color workstations, include regions are drawn in yellow, while exclude regions are drawn in red. The label usually has three parts: the coordinates of the center, a line from the center to the edge along the region's positive Y axis, and the length of the radius along that line. The radius is followed by a "+" for include regions or a "-" to indicate an exlude region. Only the center coordinate is given for a point (followed by a "+" or "-"). The point is at the left edge of the label and on a line along the bottom of the label characters. Polygons have no labels. menu controls In the cursor submenu, the "Region" button toggles the cursor control page with the region submenu page. In the region submenu, the "Cursor" button restores the cursor submenu page. In the region submenu, the "label" button suppresses labeling of the regions. The "view" button completely suppresses display of the regions. These buttons are both toggle buttons which are turned on or off when pressed. The "cycle" button makes the cursor an exact copy of a region (recalling the cursor). The center of that region and its sequence number are displayed in the magnifier window. Repeatedly pressing "cycle", copies each region in turn (cycles through the regions). The cycled cursor is a normal cursor and can be manipulated. The copied region is unaffected by "cycle", however, the just copied region can be deleted by pressing the "omit" button. The "omit" button only works if the cursor has just been cycled to that region. Once you alter the cursor "omit" is disabled. To adjust a region, "cycle" the cursor to that region, "omit" the original region, adjust the cursor, and then save the cursor as a new region. The "reset" button clears the memory of all regions (deletes all regions). The "read" and "write" buttons read and write ascii descriptions of regions to or from a disk file. regions as ascii disk files After saving one or more regions, the stored regions can be written to a disk file. Normally the regions are written in a format which can be parsed by the PROS/IRAF software. If SAOimage is in -imtool mode, it mimics IRAF's Imtool output, which is simply a list of cordinates for the centers of cursors. Either type of file can be read at any time, regardless of the mode. A PROS region consists of a leading space (include) or "-" sign (exclude) followed by the name of the region type, its center coordinates in file pixels, and then its radius on its X axis, its radius on its Y axis, and its angle in degrees (counter clockwise from straight up as per astronomical convention). Some regions don't have angles (or the angle 0 is not given), circles have only 1 radius, and points have no radii. Polygons are represented by pairs of coordinates (X,Y,X,Y,...). See the PROS region documentation for a full explanation. # images/m51.fits # Mon Jan 16 16:09:43 1989 # shape x, y, [x dimension, y dimension], [angle] BOX(135.67,213.00,18.00,10.67) BOX(504.00,538.00,16.96,106.53,290.714) CIRCLE(129.00,306.67,9.89) -ELLIPSE(486.00,468.00,36.53,44.08,329.036) -POINT(83.00,349.00) POLYGON(131.00,245.00,120.67,280.33,165.00,245.00,140.00,234.67) Annuli of boxes and ellipses are not supported basic PROS region types. They are implemented as logical combinations of the basic PROS types. BOX(149.67,205.00,10.00,4.00) BOX(149.67,205.00,20.00,8.00) & !BOX(149.67,205.00,10.00,4.00) BOX(149.67,205.00,30.00,12.00) & !BOX(149.67,205.00,20.00,8.00) The above example has two concentric rings and the center area. When "write" is pressed, a popup window appears to prompt the user for the file name. The window may be initialized to a default, or the previously given file name. To select a different name name, edit the name in the window (see the Keyboard section). If the named file already exists, another popup window appears with the options to overwrite the existing file ('o'), append to the existing file ('a'), or quit without writing anything ('q'). PROS format files which were previously written can be read back in. Press the "read" button and give the name of the file. Reading does not support the full PROS region syntax (i.e. PIE slices are not supported), but much of the syntax is supported, including any syntax used by the "write". Regions read from disk are added to any regions already stored. The output as an Imtool list, equivalent to the first example, would look like the following: # images/m51.fits # Fri Jan 20 13:35:36 1989 # (x, y) 136 213 504 538 129 307 486 468 83 349 131 245 149 205 If your environment has been properly initialized as for an IRAF Imtool user, the default list output filename will follow standard IRAF conventions. When read, the list coordinates are all read as exclude points. saoimage-1.08/doc/saoimage.man 666 21641 13 54307 5202366571 11412 .TH SAOIMAGE 1 "3 July 1991" .SH NAME SAOimage \- X11 window based, interactive, color or halftone image display program for astronomical images .SH SYNOPSIS .B saoimage [ \fB-display \fInodename:0.0 \fR] [ \fB-geometry | -gd \fIgeometry \fR] .ti +0.5i [ \fB-pros | +/-imtool | -fits | -dfits | -oif \fR] .ti +0.5i [ \fB-u1 | -u2 | -i2 | -i4 | -r4 | -r8 [ \fIwidth height \fR] ] .ti +0.5i [ \fB-byteswap \fR] [ \fB-skip \fIbytes \fR] .ti +0.5i [ \fB-upperleft | -lowerleft \fR] [ \fB-one | -zero \fR] [ \fB-rotate \fIcode \fR] .ti +0.5i [ \fB-linear \fR| \fB-wrap \fR[ \fIwraps \fR] | \fB-log \fR[ \fIexponent \fR] | \fB-sqrt \fR[ \fIpower \fR] | \fB-histeq \fR] .ti +0.5i [ \fB-min \fIval \fR] [ \fB-max \fIval \fR] [ \fB-rmin \fIval \fR] [ \fB-rmax \fIval \fR] [ \fB-scalebias \fIscale bias \fR] .ti +0.5i [ \fB-palette \fIval \fR] [ \fB-red | -green | -blue \fR] .ti +0.5i [ \fB-vertgraph | -horizgraph \fR] .ti +0.5i [ \fB+/-coord \fR] [ \fB+/-magnifier \fR] [ \fB-mag \fIval \fR] .ti +0.5i [ \fB-panboxav | -panboxsum | -panboxsample | -panboxmax \fR] .ti +0.5i [ \fB-idev \fIpipename \fR] [ \fB-odev \fIpipename \fR] [ \fB-fbconfig \fIfilename \fR] .ti +0.5i [ \fB+/-verbose \fR] [ \fB-quiet \fR] [ \fB-lprbuttons \fR] [ \fB-mtf \fR] [ \fB-bordercolor \fIcolor \fR] .ti +0.5i [ \fIfilename\fR | \fB-name \fIfilename \fR] .SH DESCRIPTION \fISAOimage\fR is a utility for displaying astronomical images which runs under the X11 window environment. Image files can be read directly, or image data may be passed through a named pipe (Unix) or a mailbox (VMS) from IRAF display tasks. \fISAOimage\fR provides a large selection of options for zooming, panning, scaling, coloring, pixel readback, display blinking, and region specification. User interactions are generally performed with the mouse. .LP The \fISAOimage\fR desktop includes, a main image display window, a button menu panel, a display magnifier, a pan and zoom reference image, and a color bar. A color table graph window can be brought up by clicking on the color bar. .SH OPTIONS .TP 0.6i .B -blue Set the color of all graphics to be blue. Some inexpensive systems use a monochrome monitor connected to one of the three color outputs on the computer. That color must be specified to make the graphics visible. .TP 0.6i \fB-bordercolor \fIcolorname\fR Specify the color of all subwindow borders. The color name must be a recognized X color (there are many). This is a style issue. \fB-bc\fR may be used instead of \fB-bordercolor\fR. .TP 0.6i .B -byteswap Switch the bytes order between big-endian and little-endian order. This may be needed where data has been copied from another machine or if there is some confusion about the FITS file format. This switch toggles the previous setting. \fB-bswap\fR may be used instead of \fB-byteswap\fR. .TP 0.6i .B +/-coord Set the coordinate tracking state initially on or off. In coordinate tracking, the coordinates of the mouse and value of the pixel under it are printed in the upper-left text area, above the main display window. \fB+/-ct\fR can be used instead of \fB+/-coord\fR. .TP 0.6i \fB-display \fInodename:0.0\fR Specify the name of the X display server. This makes it possible to run the \fISAOimage\fR program on a machine other than the one connected to your display screen, with no difference in appearance or use. By default, \fISAOimage\fR gets the server name from the \fBDISPLAY\fR environment variable. See the \fIxhost\fR manual page for more details. The display server cannot be changed once \fISAOimage\fR is running. \fB-display\fR may be abbreviated \fB-d\fR. .TP 0.6i .B -dfits Image file is a FITS file (see \fB-fits\fR), but in unexpected byteswapped order. The FITS standard is not swapped, but some naive VAX applications may swap it (see \fB-bswap\fR). .TP 0.6i \fB-fbconfig \fIfilename\fR Specify an alternate frame buffer configuration file for use with IRAF. By default, the file installed with \fISAOimage\fR (/usr/local/lib/imtoolrc) is used. .TP 0.6i .B -fits Image file is a FITS file. If the image filename ends in \fI.fits\fR, this switch is not necessary. Only T=SIMPLE array types are supported. The header BITPIX card must be 8 (unsigned byte), 16 (signed short), 32 (signed int), -32 (float), -64 (double), or -16 (unsigned short). (The last two are not recognized standards). IEEE floats are not converted if that is not the machine format. .TP 0.6i \fB-gd \fIgeometry\fR Specify the size of the image display subwindow and/or the screen position of \fISAOimage\fR. The format is a standard X geometry statement. This switch works like \fB-geometry\fR, except that width and height (if given) are applied to the display subwindow. The overall \fISAOimage\fR window is sized accordingly. .TP 0.6i \fB-geometry \fIgeometry\fR Specify the size and/or the screen position of \fISAOimage\fR. The format is a standard X geometry statement. Both size and position may be specified, or only the size or the position. Width and height refer to the dimensions of \fISAOimage\fR's desktop window (see \fB-gd\fR for sizing just the image display window). \fI+x\fR and \fI+y\fR refer to the upper left corner in screen coordinates. \fI-x\fR positions the right edge from the right edge of the screen. \fI-y\fR would positions the lower edge from the bottom of the screen. Width and height below a minimum size are defaulted to the minimum. Specifying the default minimum size (\fB-geometry 0x0\fR) also triggers \fISAOimage\fR to use smaller dimensions for its internal windows. Once \fISAOimage\fR is running, use the window manager's normal size and move mechanisms to make adjustments to \fISAOimage\fR's main window. \fB-geometry\fR may be abbreviated \fB-g\fR. .TP 0.6i .B -green Set the color of all graphics to be green. See \fB-blue\fR. .TP 0.6i .B -histeq Set the scaling mode for histogram equalization. .TP 0.6i .B -horizgraph Use a horizontal auxiliary color graph window, with a color bar along the bottom. See \fB-vertgraph\fR. \fB-hg\fR can be used as a shorthand for \fB-horizgraph\fR. .TP 0.6i \fB-i2 \fIwidth height\fR Image file is a signed short integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \fB-shortarray \fIwidth height\fR has the same function. .TP 0.6i \fB-i4 \fIwidth height\fR Image file is a signed long integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \fB-longarray \fIwidth height\fR has the same function. .TP 0.6i \fB-idev \fIpipename\fR Specify the name of the named pipe used for listening. The default is /dev/imt1o, which is the default used by IRAF. See \fB-odev\fR. .TP 0.6i .B +/-imtool Open/close the named input pipe connection and wait for input from IRAF. When open, \fISAOimage\fR emulates IRAF's \fIimtool\fR. IRAF's image loading and cursor read-back functions are supported. Unlike \fIimtool\fR, \fISAOimage\fR has only one frame buffer; IRAF's frame buffer numbers are ignored. Listening on the pipe is possible even while reading image files directly. The connection may be opened, closed, or re-opened at any time. When supported, the default mode is commonly to start with the IRAF connection open. See \fB-idev\fR, \fB-odev\fR, and \fB-pros\fR. .TP 0.6i .B -linear Set the scaling mode to linear. .TP 0.6i \fB-log \fR[\fIexponent for exponential curve\fR] Set the scaling mode to log (exponential), and set the exponent for the curve function .EQ e sup n .EN if given. .TP 0.6i .B -lowerleft First pixel in file represents the lower left of the image, assuming the lines of input run left to right on the screen. This is the IRAF standard and the \fISAOimage\fR default. See \fB-rotate\fR, \fB-upperleft\fR, and \fB-zero\fR. \fB-lowerleft\fR may be abbreviated \fB-ll\fR. .TP 0.6i .B -lprbuttons Include the button menu in the hardcopy image (only on color workstations). The default on color workstations includes the area above the button panel, but excludes the buttons. .TP 0.6i \fB-mag \fImagnification\fR Set the magnification factor of the magnifier. This factor relates the magnifier to the magnification of the display window. The default is 4; the magnifier magnifies the image to 4 times the magnification of the main display window (but never less than zoom 1 of the original data). .TP 0.6i .B +/-magnifier Set the magnifier tracking state initially on or off. With magnifier tracking, the magnifier window is continuously updated to show a magnification of the image the image under the mouse. \fB+/-mt\fR can be used instead of \fB+/-magnifier\fR. .TP 0.6i \fB-max \fR[\fImax val\fR] Set the maximum for the image value range used to compute scaling. The default is to take the maximum from the image shown in the display window. \fB-max\fR with no value resets the default. If the maximum value in the displayed image is lower than the given maximum, the image's maximum vale is used for the scaling range. .TP 0.6i \fB-min \fR[\fImin val\fR] Set the minimum for the image value range used to compute scaling. The default is to take the minimum from the image shown in the display window. \fB-min\fR with no value resets the default. If the minimum value in the displayed image is higher than the given minimum, the image's minimum vale is used for the scaling range. .TP 0.6i .B -mtf Give the button panel a chiseled look popularized by HP's widget set. This appearance may contrast less with other applications being used at the same time. .TP 0.6i \fB-name \fIfilename\fR This switch is only needed if the filename starts with a number or might otherwise be recognized as a switch. .TP 0.6i \fB-odev \fIpipename\fR Specify the name of the named pipe used for sending feedback. The default is /dev/imt1i, which is the default used by IRAF. See \fB-idev\fR. .TP 0.6i .B -oif Image file is an IRAF image header file in OIF format. If the image filename ends in \fI.imh\fR, this switch is not necessary. IRAF STF and QPOE formats are not supported. Complex data cannot be handled. The data must have at least 2 dimensions. Only the first plane of multidimensional images is read. The data file is read directly by \fISAOimage\fR (see \fB-imtool\fR and \fB-pros\fR). .TP 0.6i .B -one The file coordinate of the first pixel is (1,1). The real coordinates of the center of the first pixel are (1.0,1.0). This is the IRAF standard and the default for \fISAOimage\fR. The second pixel is (2,1). See \fB-zero\fR. .TP 0.6i \fB-palette \fInumber\fR Specify the number of read/write color cells to reserve. On color workstations, \fISAOimage\fR reserves color cells in the default colormap for its own use. \fISAOimage\fR reserves as many color cells as it can get, up to the number given (the default is 200). If the number given is negative, \fISAOimage\fR comes up in overlay mode, using 1/2 + 2 of the color cells for overlays and graphics. In verbose mode (see \fB-verbose\fR), \fISAOimage\fR tells you how many cells it is able to use for display colors. This number can be re-entered at run-time, unless \fB-palette 1\fR is given, in which case \fISAOimage\fR stays in halftone mode. \fB-p\fR is an acceptable shorthand for \fB-palette\fR. .TP 0.6i \fB-panboxav | -panboxsum | -panboxsamp | -panboxmax\fR These switches select the kind of image reduction used to fit a picture of the entire image into the pan window. Each pixel is computed from a block of image pixels by averaging, summing, sampling, or taking the maximum. The default is to show the maximum from each block. When zooming in the main display involves reduction, subsampling is always used. .TP 0.6i .B -pros Virtually identical to the \fB+imtool\fR switch. The difference occurs when the user writes the saved regions to a disk file. \fIimtool\fR emulation includes writing only an IRAF list file giving center coordinates only. With \fB-pros\fR, \fISAOimage\fR's normal region descriptor file will be written in place of the simpler list file. One may switch between this mode and \fB+imtool\fR, or close the IRAF connection with \fB-imtool\fR. .TP 0.6i .B -quiet Disable verbose mode;\fB-q\fR may also be used. See \fB-verbose\fR. .TP 0.6i \fB-r4 \fIwidth height\fR Image file is a real*4 array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \fB-floatarray \fIwidth height\fR has the same function. .TP 0.6i \fB-r8 \fIwidth height\fR Image file is a real*8 array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \fB-doublearray \fIwidth height\fR has the same function. .TP 0.6i .B -red Set the color of all graphics to be red. See \fB-blue\fR. .TP 0.6i \fB-rmax \fR[\fImax val\fR] Set maximum value for reading from the image file. This value is used as the maximum value when images are pre-scaled to fit the 16 bit (signed short) working buffer. .TP 0.6i \fB-rmin \fR[\fImin val\fR] Set minimum value for reading from the image file. This value is used as the minimum value when images are pre-scaled to fit the 16 bit (signed short) working buffer. .TP 0.6i \fB-rotate \fI1,2,or 3\fR Rotate the image 90, 180, or 270 degrees (respectively) before displaying it. Rotation is applied after conversion to a lower left coordinate system (\fB-ll\fR) if such conversion is also requested. This is useful for images when the CCD was not mounted North-up. \fB-rot\fR can be used as a shorthand for \fB-rotate\fR. .TP 0.6i \fB-scalebias \fIscale bias\fR The data in the image file should be scaled and biased to get the true image value (TrueValue = (scale * FileValue) + bias). This cannot be used with the \fB-fits\fR image type (scale and bias are in the FITS header), nor with \fB-imtool\fR or \fB-pros\fR (they are passed by IRAF). \fB-sb\fR is a shorthand for \fB-scalebias\fR. .TP 0.6i \fB-skip \fIbytes\fR Skip over the given number of bytes at the head of the file before reading data. This is used to skip header information or the first image if two images are stored in one file. \fB-header\fR and \fB-sk\fR are aliases for \fB-skip\fR. .TP 0.6i \fB-sqrt \fR[\fIinverse of exponent for geometric curve\fR] Set the scaling function to square root (geometric), and set the inverse of the exponent for the .EQ x sup {1/n} .EN curve, if given. .TP 0.6i \fB-u1 \fIwidth height\fR Image file is an unsigned byte array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \fB-chararray \fIwidth height\fR has the same function. .TP 0.6i \fB-u2 \fIwidth height\fR Image file is a unsigned short integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \fB-ushortarray \fIwidth height\fR has the same function. .TP 0.6i .B -upperleft First pixel in file represents the upper left of the image, assuming the lines of input run left to right on the screen (see \fB-rotate\fR and \fB-lowerleft\fR). This switch does not override IRAF WCS image coordinates. \fB-upperleft\fR may be abbreviated \fB-ul\fR. .TP 0.6i .B +/-verbose Set \fIverbose\fR mode on or off. In verbose mode, informative statements are printed to the terminal window when various actions are taken. The default mode is to be verbose. \fB+/-v\fR can be used instead of \fB+/-verbose\fR. .TP 0.6i .B -vertgraph Use a vertical auxiliary color graph window, with a color bar along the left side. See \fB-horizgraph\fR. \fB-vg\fR can be used as a shorthand for \fB-vertgraph\fR. .TP 0.6i \fB-wrap \fR[\fInumber of wraps within scaling range\fR] Set the scaling mode to wrapped linear, and set the number of wraps for this mode, if given. .TP 0.6i .B -zero The file coordinate of the first pixel is (0,0). The real coordinates of the center of the first pixel are (0.5,0.5) which makes the very edge (0,0). This is the standard coordinate system for image displays, but not the default for \fISAOimage\fR. The second pixel is indexed (1,0). See \fB-one\fR. .SH USAGE Refer to the \fISAOimage User Manual\fR for detailed descriptions of all functions. .LP Most control actions take place within the context of a mode. Modes are selected by clicking on menu buttons in the top row of the button panel. Each menu mode brings up its own submenu buttons (the lower row in the button panel) for mode specific selections. Actions and submodes are selected by clicking on buttons in the submenu row of the menu panel. .LP The mouse controls specific functions in both the main display window and the pan/zoom window. In the main display window, the function of the mouse is determined by the mode and submode selections from the button menu. The function can also be recognized by the appearance of the mouse pointer icon. .LP The button interface is designed to be user friendly. The user is encouraged to try any and all buttons to become familiar with their functions. To exit, use the \fIQUIT\fR button in the \fIetc\fR submenu (click on \fIetc\fR, then click on \fIQUIT\fR). .SS Reading images To read an image directly from a file, give its name anywhere on the command line. The .B -name switch is needed only when the image file name could be mistaken for a number or switch. \fISAOimage\fR recognizes the \fI.fits\fR and \fI.imh\fR filename suffixes as belonging to FITS and IRAF OIF files. All other file types must be specified by an appropriate file type switch. .LP Raw array file types must be specified by an array data type switch (\fB-u1\fR, \fB-u2\fR, \fB-i2\fR, \fB-i4\fR, \fB-r4\fR, \fB-r8\fR) followed by width and height dimensions. To skip over a file header, use the \fB-sk\fR switch followed by the number of bytes. This can also be used to skip over entire images, if more than one are stored in the same file. .SS Use with IRAF To emulate \fIimtool\fR and communicate with IRAF tasks, use either the \fB-imtool\fR or \fB-pros\fR switch. The two switches indicate which file format to use in recording saved cursors or regions. With \fB-imtool\fR, an IRAF list file containing only center coordinates is used (like that of \fIimtool\fR). With \fB-pros\fR, a file containing a full description of the saved cursors and their dimensions is used. The latter file can be read by tasks in the IRAF PROS spatial package for making image masks and performing image analyses. Both file types are ASCII and can be read and edited by the user. In either case, the file is not actually written until the user clicks on the \fIwrite\fR button in the \fIregion\fR submenu. Both file types can be read back to reproduce the saved cursors. .SS New command input A new command line can be entered at any time, by selecting the \fInew\fR button in the \fIetc\fR submenu or striking the \fIN\fR key on the keyboard. This allows the user to read in new images, change in and out of \fB-imtool\fR or \fBpros\fR mode, set new scaling parameters, or change the number of reserved display color cells. Most command line switches (except \fB-d\fR, \fB-g\fR, \fB-gd\fR, \fB-red\fR, \fB-green\fR, \fB-blue\fR, and \fB-vertgraph\fR) will be accepted at any time. .LP When a new command line is requested, the previous command line is presented in an emacs-like popup editor for editing. Ctrl-N clears the previous line. Striking the RETURN key enters the line in the popup window as the new command. Ctrl-C returns with no action taken. .SS Using the mouse Most mouse interactions are based on mouse dragging (holding a button down while moving the mouse). The user should try clicking and/or dragging the mouse in each subwindow to become familiar with its functions. Modes selected in the button panel determine the response to the mouse buttons in the main display window. .LP In .B Scale mode, the mouse buttons control blinking of displays (saved by clicking with the same mouse button in the \fIblink\fR submenu button). .LP In .B Color mode, mouse dragging stretches and shifts the color map as per the \fIcontrast/bias, threshold/saturation,\fR and \fIgamma\fR submenu selections. .LP In the .B color graph window, color table vertexes may be added or moved by clicking or dragging with the LEFT (red), MIDDLE (green), or RIGHT (blue) mouse buttons. The graph will update continuously only if \fItracking\fR is turned on. .LP In .B Cursor mode, the mouse controls the size and locations of cursors. The rule is: LEFT button for position, MIDDLE button for size, and RIGHT button for angle or deletion (depending on the cursor). .SS Cursors For \fIbox\fR and \fIellipse\fR cursors, MIDDLE button sizing is restricted depending on whether dragging started on a side or near a corner. .LP With the \fIpoint\fR cursor, the LEFT and MIDDLE buttons save the current mouse pointer position with a + or - indication, while the RIGHT button deletes saved points. .LP For the \fIpolygon\fR cursor, the MIDDLE button adds or moves a single vertex, while the RIGHT button will delete vertexes. The LEFT button moves the whole polygon. .LP When \fIannuli\fR is set for a \fIbox, circle,\fR or \fIellipse\fR cursor, the MIDDLE button adds or resizes an annulus, while the RIGHT button deletes annuli. .LP For manipulating cursors, the \fIovlay\fR selection in the \fIColor\fR submenu, enables the cursor to track smoothly as an overlay graphic. The \fIregion\fR submenu button brings up another submenu with selections to display, review, and edit the saved regions, and read from or write to disk files. .SS Pan and zoom In \fIPan\fR mode, and in the pan window (regardless of mode), the LEFT button selects the center of the image, while the MIDDLE button selects the edge of the display, zoomed from the given center. When either function is dragged, the rectangle in the pan window shows the area that would appear in the display when the button is released. .SS Keys In the cursor mode, the \fIS\fR and \fIE\fR keys, save the current cursor in a region list, while the \fID\fR and DELETE keys can be used to forget a region. At any time, with the pointer in the display or pan windows, the \fIT\fR key prints a table of pixel values at the pointer position to \fIstdout\fR. The 4 arrow keys can be used for fine movement of the pointer in any window. The SHIFT and SHIFT LOCK keys will reverse the magnifier window, color graph window and coordinate tracking status. The \fIN\fR key summons the pop-up editor for new command input. The \fIA\fR key raises and redraws all of \fISAOimage\fR's windows. .SH BUGS \fISAOimage\fR does not allocate its own colormap and thus fails with static color (i.e. NeWS) window managers. X resource settings of a user's default preferences are not read. saoimage-1.08/doc/scale.dvi 666 21641 13 40060 4563667510 10720 ÷ƒ’À;è TeX output 1990.02.01:2241‹ÿÿÿÿ  (ö ý>‘ì £n ým’À³èó<G® cmbx10çSCALINGŽ¤t*‘ïó0 cmbx10ÛScaling–™˜from“Image“File“V‘þÙšalues“to“the“Range“of“the“DisplaÞy“Color“MapŽ¡‘]qSynopsisŽ©:9‘]qó+ cmr10ÖW‘þÿÿorkstation–¥0displašªªys“pUVose“a“common“problem“for“imaging“applications:‘'ího˜w“to“displa˜y“anŽ¤‘]qimage–œ“with“a“large“range“of“v‘ÿUUalues“on“a“screen“with“a“small“range“of“colors.‘+ Since“thereŽ¡‘]qaren't–t@enough“colors“to“use“one“for“eacšªªh“image“v‘ÿUUalue,‘3groups“of“di eren˜t“image“v‘ÿUUalues“m˜ustŽ¡‘]qall–ûäbšUVe“assigned“the“same“color.‘SöThe“pro˜cess“of“grouping“image“v‘ÿUUalues“inªªto“a“smaller“set“ofŽ¡‘]qv‘ÿUUalues–is“called“ó. cmti10Ùsc‘ÿbüaling“Öor“ÙbinningÖ.Ž¦‘]qUse–ûthe“ÛScale“Ösubmenšªªu“to“scale“the“image“to“the“range“of“displa˜y“colors.‘ HAn˜y“of“aŽ¡‘]qv‘ÿUUarietšªªy–û'of“linear“and“non-linear“scaling“algorithms“can“bUVe“applied“simply“b˜y“clic˜king“onŽ¡‘]qthe–§rappropriate“submenªªu“button.‘KªWhen“scaling“is“pUVerformed,‘ÑNthe“range“of“image“v‘ÿUUaluesŽ¡‘]qcurrenšªªtly–ý!visible“within“the“area“of“the“displa˜y“windo˜w“will“bUVe“assumed.‘L¹Limits“on“theŽ¡‘]qrange–\Nof“image“v‘ÿUUalues“and“other“scaling“parameters“maªªy“bUVe“input“using“command“lineŽ¡‘]qswitcšªªhes.‘­0F‘þÿÿor–ržlong“in˜teger“and“ oating“pUVoin˜t“data,‘FÙSA±~Oimage“Öuses“t˜w˜o“stages“of“scaling,Ž¡‘]qas–describšUVed“b˜eloªªw.Ž¡¦‘]qÛRange–™˜of“Image“Data“vs.‘" Size“of“Color“MapŽ¦‘]qÖImage–Êdata“mašªªy“ha˜v˜e“a“nearly“in nite“range“of“data“v›ÿUUalues.‘*˜Data“v˜alues“mašªªy“bUVe“v˜ery“largeŽ¡‘]qor–všªªery“small,“they“ma˜y“bšUVe“p˜ositivšªªe“or“negativ˜e,“and“they“ma˜y“bUVe“real“or“in˜teger.Ž¦‘]qA‘=dt•ªªypical›=tw“orkstation˜can˜only˜displa“y˜256˜colors˜on˜its˜screen˜at˜an“y˜one˜time.‘ ±Some˜ofŽ¡‘]qthe–éë256“colors“are“needed“for“coloring“sucšªªh“things“as“the“mouse“cursor,‘$etext“c˜haracters,Ž¡‘]qbacšªªkground–"areas,‘*‰and“windo˜w“bUVorders.‘»jOn“a“256“color“w˜orkstation,‘*‰ÙSA±~Oimage“Öt˜ypicallyŽ¡‘]quses–200“colors“to“displaªªy“images.Ž¦‘]qF›þÿÿor–,ŸpurpUVoses“of“displa•ªªy˜,‘Væeac“h–,Ÿpixel“in“the“displašªªy“image“is“assigned“one“of“200“in˜teger“v‘ÿUUaluesŽ¡‘]qin–ÝNthe“range“of“0“to“255.‘í@Eacšªªh“of“these“256“pUVossible“v‘ÿUUalues“is“the“index“of“an“en˜try“(orŽ¡‘]qslot)–1îin“the“displaªªy's“color“map“table.‘ë The“color“map“table“assošUVciates“sp˜eci c“colors“withŽ¡‘]qthe–ˆÕ256“displašªªy“v‘ÿUUalues“(e.g.‘ïÔ0=blac˜k,›« 1=dark“blue,˜etc.).‘ïÔ(See“the“ÙCOLOR‘ˆ²Ösection“for“aŽ¡‘]qdetailed–discussion“of“color“map“manipulation.)ŽŸt*‘]qÛBasic–™˜Scaling“TheoryŽ¦‘]qÖT‘þÿÿakªªe–.Òthe“case“of“an“image“with“a“range“of“v‘ÿUUalues“from“0“to“+1199“(a“range“of“1200),‘:†andŽ¡‘]qan–†Pimage“displašªªy“with“200“colors.‘èEÙSA±~Oimage“Ömigh˜t“assign“one“color“map“en˜try“(or“slot)Ž¡‘]qto–aŒeacšªªh“range“of“six“in“the“image.‘yøTh˜us“v‘ÿUUalues“0“to“5“w˜ould“bUVe“assigned“the“lo˜w˜est“colorŽ¡‘]qmap–æ$slot,›ëP0.‘L¶6“to“11“wªªould“bUVe“assigned“to“1,˜and“so“on“up“to“the“v‘ÿUUalues“bUVet•ªªw“een–æ$1195“andŽ¡‘]q1199–%(going“to“slot“199“in“the“color“map.‘ÄÎThen,‘.sif“slot“0“wšªªas“blac˜k,‘.sall“pixels“in“the“imageŽ¡‘]qwith–¾data“v‘ÿUUalues“bšUVet•ªªw“een–¾0“and“5“wªªould“app˜ear“blacšªªk“in“the“displa˜y‘þÿÿ.‘?If“color“map“slot“131Ž¡‘]qwšªªas–Æ assigned“the“color“pink,‘ѳthen“image“pixels“whose“data“v‘ÿUUalue“w˜as“bUVet˜w˜een“787“and“792Ž¡‘]qwšªªould–appUVear“pink“in“the“displa˜y‘þÿÿ.ŽŽŸ’è>22ŽŽŒ‹*  (ö ý>‘ì £n ý‘ì‘]qÛScaling‘™˜DistributionsŽ©:9‘]qÖThe›ýdabUVo•ªªv“e˜example˜is˜an˜example˜of˜linear˜scaling.‘TvBut˜suppUVose˜that˜it˜w“as˜impUVortan“t˜toŽ¤‘]qbUVe–‘Uable“to“see“the“di erences“among“levªªels“2,–µª3,“4,“and›‘U5,“and˜not˜as˜impUVortanªªt˜to˜see˜aŽ¡‘]qdi erence›IÅbUVet•ªªw“een˜1001˜and˜1002.‘—P“erhaps˜it˜w“ould˜bUVe˜sucien“t˜to˜see˜di erences˜bUVet“w“eenŽ¡‘]q1001–Jand“1100,›#]while“1001,˜1002,˜1003,˜etc.›ª4could“all“ha•ªªv“e–Jthe“same“color.˜Then“it“wªªouldŽ¡‘]qb•UVe›áb“etter˜to˜use˜a˜scaling˜that˜used˜more˜color˜map˜slots˜for˜the˜lo•ªªw“er˜image˜v‘ÿUUalues˜thanŽ¡‘]qthe–higher“image“v‘ÿUUalues.‘UULog“and“square“roUVot“scaling“do“that.Ž¦‘]qT‘þÿÿo–JTunderstand“hošªªw“that“w˜orks,‘œéimagine“a“graph“with“image“v‘ÿUUalues“along“the“side“andŽ¡‘]qcolor–"çmap“v‘ÿUUalues“along“the“bšUVottom.‘¾ A‘"Þplot“of“linear“scaling“wªªould“b˜e“a“straighªªt“line“withŽ¡‘]qa–Â:constanšªªt“slopUVe.‘œIn“other“w˜ords,‘òÉeac˜h“ó1 cmtt10Ün“Öconsecutiv˜e“image“v‘ÿUUalue“units“w˜ould“map“to“ÜmŽ¡‘]qÖcolor–ú¶map“levšªªels.‘S’A‘úµlog“line“w˜ould“bUVe“curv˜ed,‘ûÅha˜ving“less“slopšUVe“at“the“b˜ottom“(more“colorŽ¡‘]qmap–ˆãv›ÿUUalues“pUVer“image“v˜alue“range)“and“get“steepUVer“to•ªªw“ard–ˆãthe“top“(fewªªer“color“map“v˜aluesŽ¡‘]qpšUVer–Qeimage“v‘ÿUUalue“range).‘I…The“square“ro˜ot“function“wªªould“b˜e“similar“but“follošªªw“a“di eren˜tŽ¡‘]qcurvªªe.Ž¦‘]qÛNon-linear‘™˜DistributionsŽ¦‘]qÖSometimes›Ñ#w•ªªeigh“ting˜to“w“ard˜one˜end˜or˜the˜other˜isn't˜go•UVo“d˜enough.‘ȽPªªerhaps˜the˜dataŽ¡‘]qv‘ÿUUalues–Òfall“in“clusters“with“big“gaps“in“bUVet•ªªw“een.‘ÔËImagine–Òan“image“with“most“of“its“dataŽ¡‘]qclustered›‹xbUVet•ªªw“een˜0˜and˜200,‘®Vbut˜t“w“o˜or˜three˜pixels˜with˜a˜v‘ÿUUalue˜of˜1000.‘÷½In˜the˜linearŽ¡‘]qscaling–õø80200“and“1000.‘QýW‘þÿÿorse,›÷úas“is“common“with“CCD‘õõimages,˜there“maªªy“bUVe“bad“pixelsŽ¡‘]qwith–v‘ÿUUalues“likšªªe“-1200,“whic˜h“ha˜v˜e“nothing“to“do“with“image“source“v‘ÿUUalues.Ž¦‘]qÛHistogram‘™˜EqualizationŽ¦‘]qÖA‘èOhistogram–èUis“a“plot“with“the“range“of“pUVossible“v‘ÿUUalues“(divided“inªªto“discrete“bins)“on“oneŽ¡‘]qaxis–¼Óand“the“frequency“of“the“actual“oUVccurrence“of“eacªªh“v›ÿUUalue,‘ÊBor“v˜alue“within“the“range“ofŽ¡‘]qeacªªh–bin,“on“the“other“axisŽ¡‘]q.‘¤The–o“image“histogram“could“bUVe“divided“inšªªto“as“man˜y“bins“as“colors“in“the“displa˜y‘þÿÿ,‘‹xwithŽ¦‘]qeacšªªh–%bin“represen˜ting“the“range“of“image“v‘ÿUUalues“assoUVciated“with“a“single“color“in“the“displa˜y‘þÿÿ.Ž¡‘]qThe–§Ìfrequency“v‘ÿUUalue“of“eacšªªh“bin“w˜ould“bUVe“the“n˜um˜bUVer“of“pixels“in“the“displa˜y“that“usedŽ¡‘]qthat– color.‘|In“a“p•UVo“or– scaling“distribution,‘manšªªy“of“the“bins“(ranges“of“image“v‘ÿUUalues)“ha˜v˜eŽ¡‘]qfew–or“no“actual“oUVccurrences“in“the“image.Ž¦‘]qHistogram–vequalization“is“a“proUVcess“of“adjusting“the“ranges“of“the“bins“sucšªªh“that“eac˜hŽ¡‘]qbin–ûËhas“abšUVout“the“same“n•ªªum“b˜er–ûËof“image“pixels.‘ H·If“the“image“has“manªªy“pixels“withŽ¡‘]qv‘ÿUUalues›%ZbUVet•ªªw“een˜100˜and˜200,‘.°then˜histogram˜equalization˜w“ould˜alloUVcate˜man“y˜small˜binsŽ¡‘]qto–ýSthat“range,–<¨(e.g.›MN100-110,“111-120,“etc.).˜If–ýSthe“image“has“relativªªely“few“pixels“withŽ¡‘]qv‘ÿUUalues›¼bUVet•ªªw“een˜300˜and˜400,‘#ëhistogram˜equalization˜w“ould˜alloUVcate˜few˜large˜bins˜to˜thatŽ¡‘]qrange›Õ‡(e.g.–Õê300-350,‘ é351-400).“The˜ob‘ªªject˜of˜histogram˜equalization˜is˜to˜maximize˜theŽ¡‘]qinformation–Óûin“the“displašªªy“b˜y“optimizing“the“usage“of“the“a˜v‘ÿUUailable“colors.‘ ÑEIt“usuallyŽ¡‘]qproUVduces–a“dramatic“impro•ªªv“emen“t–in“the“amounšªªt“of“visible“detail“in“the“displa˜y˜ed“image.Ž¦‘]qThe›/Ìdra•ªªwbac“k˜of˜histogram˜equalization˜is˜that˜the˜ranges˜can˜v‘ÿUUary˜greatly˜in˜size.‘äºAŽ¡‘]qdi erence›Œ‘bUVet•ªªw“een˜t“w“o˜adjacen“t˜color˜map˜v‘ÿUUalues˜ma“y˜represen“t˜a˜big˜or˜a˜small˜di erenceŽŽŸ’è>23ŽŽŒ‹%  (ö ý>‘ì £n ý‘ì‘]qÖin–data“v‘ÿUUalues,“with“m•ªªuc“h›irregularit“y˜from˜one˜step˜to˜the˜next.Ž¤:9‘]qÛWindoÞwing–™˜the“ScalingŽ¡‘]qÖOften,›Wmost–-^of“the“data“falls“within“a“single“conªªtiguous“range,˜with“bad“pixels“or“infrequenªªtŽ¤‘]qev•ªªen“ts– in“the“extremes“to“either“end.‘|žIt“maªªy“bUVe“useful“to“restrict“the“scaling“algorithm“toŽ¡‘]qa–`spšUVeci c“range,‘x with“all“v‘ÿUUalues“b˜elošªªw“that“range“ha˜ving“the“same“color“as“the“minim˜umŽ¡‘]qand–j:all“v‘ÿUUalues“abUVo•ªªv“e–j:that“range“hašªªving“the“same“color“as“the“maxim˜um.‘”This“can“eitherŽ¡‘]qbšUVe–Ë`accomplished“bªªy“sp˜ecifying“the“scaleing“limits“directly‘þÿÿ,‘þ7or“bªªy“lo˜oking“for“a“section“ofŽ¡‘]qthe–Oimage“whicªªh“is“free“from“extreme“v›ÿUUalues,‘'"and“basing“the“scaling“on“the“v˜alues“in“thatŽ¡‘]qsection‘only‘þÿÿ.Ž¤:9‘]qÛW‘þÙšrapping–™˜the“Color“MapŽ¡‘]qÖAnother–Ÿtricšªªk“to“sho˜w“more“detail“with“a“limited“color“map“is“to“reuse“it.‘2©By“wrappingŽ¤‘]qthe–Ýdcolor“map“on“itself,›äPit“could“represenªªt“the“range“of“v‘ÿUUalues“from“0“to“99,˜and“then“startŽ¡‘]qo•ªªv“er,‘.ä100›òPha“ving˜the˜same˜color˜as˜0˜and˜199˜ha“ving˜the˜same˜color˜as˜99.‘,EThis˜w“orksŽ¡‘]qfor–ÇásmoUVothly“v‘ÿUUarying“data“and“evšªªen“has“a“sort“of“con˜toured“loUVok“to“it.‘¬øWhere“the“dataŽ¡‘]q uctuations–pBare“greater“than“the“range“co•ªªv“ered›pBb“y˜one˜wrap˜of˜the˜color˜map,‘ŒSthe˜resultŽ¡‘]qis–a“lot“of“meaningless“noise.ŽŸt*‘]qÛRealization–™˜and“Eciency“within“SAÞOimageŽ©:9‘]qÖIn–p¼order“to“realize“reasonable“execution“times“for“rescaling“the“image“displaªªy‘þÿÿ,‘ŒëÙSA±~OimageŽ¡‘]qÖdoUVes–Œnot“apply“its“scaling“functions“to“real“data.‘žøWhere“the“image“data“wªªas“real,‘¯double,Ž¡‘]qor–"{long,‘+the“data“is“linearly“rescaled“to“inšªªteger“v‘ÿUUalues“bUVet˜w˜een“-32767“and“32767“(a“rangeŽ¡‘]qof–©e65,535).‘Q…Eacšªªh“scaling“function“proUVduces“a“65,535“en˜try“loUVokup“table“for“this“range“ofŽ¡‘]qv‘ÿUUalues–˜ówhicšªªh“is“used“to“dra˜w“or“redra˜w“the“displa˜y‘þÿÿ.‘ -If“the“data“has“suc˜h“great“extremesŽ¡‘]qthat–Žºthis“range“linearly“applied“to“the“data's“range“will“bUVe“insucien•ªªt,‘²iwindo“wing‘ŽºlimitsŽ¡‘]qfor–the“initial“linear“scaling“can“bUVe“givªªen“on“the“command“line“using“Ü-rmin,‘LÉ-rmaxÖ.Ž¦‘]qThe–¿scaling“function“is“further“windo•ªªw“ed›¿b“y˜bUVeing˜applied˜only˜to˜the˜range˜of˜image˜v‘ÿUUaluesŽ¡‘]qactually–ZÿbšUVeing“displa•ªªy“ed–Zÿat“the“time“the“function“is“in•ªªv“ok“ed.‘fRPixels–Zÿnot“app˜earing“in“theŽ¡‘]qdispla•ªªy›Ô~windo“w˜are˜not˜considered˜in˜the˜scaling˜algorithm.‘ÒÏTh“us˜scaling˜after˜panningŽ¡‘]qand–²zošUVoming“will“pro˜duce“di erenªªt“scale“lo˜okup“table“mappings,‘CÂdep˜ending“on“the“con•ªªten“tsŽ¡‘]qof–the“displa•ªªy‘þÿÿ.‘UUP“anning–and“zošUVoming“can“b˜e“used“in“this“w•ªªa“y–to“ nd“a“b˜etter“scaling.Ž¦‘]qT‘þÿÿo–—compšUVensate“for“extreme“data“that“maªªy“app˜ear“at“the“edges“of“an“image“(common“inŽ¡‘]qCCD‘3Æimages)–4data“within“2“pixels“of“the“edge“of“the“displaªªy“are“not“considered“in“theŽ¡‘]qassessmenªªt–.…of“range.‘àäIn“Üverbose“ÖmošUVde,‘z&the“scaling“routine“rep˜orts“the“range“of“v‘ÿUUaluesŽ¡‘]qwhicšªªh–it“ nds“in“the“displa˜y‘þÿÿ.Ž¦‘]qOne–Ÿvor“bšUVoth“limits“of“the“v‘ÿUUalue“range“for“menªªu-commanded“scaling“can“b˜e“restricted“bªªyŽ¡‘]qusing–„gthe“Ü-min“Öand“Ü-max“Öargumenšªªts“on“the“command“line.‘â‰When“Ü-min“Öis“giv˜en,‘¥€the“lo˜wŽ¡‘]qend–%of“the“range“will“not“extend“bUVelošªªw“the“Ü-min“Öv‘ÿUUalue.‘/·When“Ü-max“Öis“giv˜en,‘¥¸the“uppUVer“endŽ¡‘]qwill–µnot“extend“abUVo•ªªv“e–µthe“Ü-max“Öv›ÿUUalue.‘/24ŽŽŒ‹ä  (ö ý>‘ì £n ý‘ì‘]qÜ-max–Öv‘ÿUUalue“can“bUVe“cleared“bšªªy“giving“the“Ü-min“Öor“Ü-max“Öswitc˜h“with“no“argumen˜t.Ž©:9‘]qPªªanning–5or“zošUVoming“after“a“scale“map“has“b˜een“made“do˜es“not“cause“a“new“scale“map“toŽ¤‘]qbUVe–O¯calculated.‘The“displašªªy“is“dra˜wn“with“the“existing“scaling.‘If“the“new“displa˜y“has“v‘ÿUUaluesŽ¡‘]qoutside–Šthe“range“when“the“map“wªªas“made,‘¬¡these“v‘ÿUUalues“are“usually“clippšUVed“(mapp˜ed“toŽ¡‘]qthe–»‡color“map“minimšªªum“or“maxim˜um).‘>‚W‘þÿÿrappUVed“scaling“is“an“exception,‘É9in“that“the“colorŽ¡‘]qmap–wrapping“is“applied“all“the“w•ªªa“y–to“the“maximªªum“pUVossible“v‘ÿUUalue.Ž¦‘ —ªÛLinear‘™˜ScalingŽ¦‘]qÖLinear–pÃscaling“is“fairly“simple.‘%–The“range“of“image“v‘ÿUUalues“is“divided“bšªªy“the“n˜um˜bUVer“of“colorŽ¡‘]qmap–*zv›ÿUUalues“to“determine“the“range“of“data“v˜alues“for“eacªªh“color“map“v˜alue.‘ÔÂThe“ xedŽ¡‘]qrange–±is“applied“to“mapping“all“image“v‘ÿUUalues“bUVet•ªªw“een–±the“minimšªªum“and“maxim˜um“imageŽ¡‘]qv‘ÿUUalue.‘±=V‘þÿÿalues–søbUVelošªªw“the“minim˜um“are“all“mappUVed“to“the“lo˜w˜est“color“map“v‘ÿUUalue.‘±=V‘þÿÿaluesŽ¡‘]qabšUVo•ªªv“e–the“maximªªum“are“all“mapp˜ed“to“the“highest“color“map“v‘ÿUUalue.Ž¦‘ —ªÛW‘þÙšrappb"ed–™˜Linear“ScalingŽ¦‘]qÖW‘þÿÿrappšUVed–5¸linear“scaling,‘^.as“describ˜ed“ab˜o•ªªv“e,‘^.divides–5¸the“range“of“data“v‘ÿUUalues“bšªªy“the“n˜um˜bUVerŽ¡‘]qof–˜times“the“color“table“will“roll“o•ªªv“er–˜(the“default“is“10)“and“the“result“is“divided“bªªy“theŽ¡‘]qn•ªªum“bUVer–Aeof“color“map“v›ÿUUalues“to“determine“the“range“of“data“v˜alues“for“eacªªh“color“map“v˜alue.Ž¡‘]qV‘þÿÿalues–~2bUVelošªªw“the“minim˜um“are“all“mappUVed“to“the“lo˜w˜est“color“map“v‘ÿUUalue.‘ÏìThe“mappingŽ¡‘]qcon•ªªtin“ues–y¸to“bUVe“rolled“up“to“the“highest“map“v‘ÿUUalue“(32767).‘(’(see“Ü-wrap“Öin“the“ÙCOMMANDŽ¡‘]qLINE‘Ösection)Ž¦‘ —ªÛLog‘™˜ScalingŽ¦‘]qÖThe–«—distribution“of“data“v›ÿUUalues“to“color“map“v˜alues“is“based“on“the“distribution“of“Ùe**nŽ¡‘]qÖfrom–‡z0“to“ÙXÖ,“where“Ùn“Öis“a“parameter“(the“default“is“10.0)“and“ÙX‘‡WÖis“determined“bªªy“Ùn“ÖandŽ¡‘]qthe›²t•ªªw“o˜ranges˜(data˜and˜color˜map).‘–lP“ositiv“e˜v‘ÿUUalues˜of˜Ùn˜Öfa“v“or˜the˜lo“w“er˜data˜v‘ÿUUalues,Ž¡‘]qwhile–Å1negativšªªe“v‘ÿUUalues“of“Ùn“Öfa˜v˜or“the“higher“data“v‘ÿUUalues.‘A»V‘þÿÿalues“bUVelo˜w“the“minim˜um“are“allŽ¡‘]qmappšUVed–æ,to“the“lo•ªªw“est–æ,color“map“v‘ÿUUalue.‘L¹V‘þÿÿalues“ab˜o•ªªv“e–æ,the“maximªªum“are“all“mapp˜ed“to“theŽ¡‘]qhighest–color“map“v‘ÿUUalue.‘UU(see“Ü-log“Öin“the“ÙCOMMAND‘KLINE“Ösection)Ž¦‘ —ªÛSquare–™˜Rob"ot“ScalingŽ¦‘]qÖThe–ø¼distribution“of“data“v›ÿUUalues“to“color“map“v˜alues“is“based“on“the“distribution“of“ÙX**(1/n)Ž¡‘]qÖfrom–*Ò0“to“1,‘5†where“Ùn“Öis“a“parameter“(the“default“is“2.0)“and“ÙX‘*ÇÖv‘ÿUUaries“from“0“to“1“in“stepsŽ¡‘]qdetermined–Çêbšªªy“the“n˜um˜bUVer“of“color“map“v‘ÿUUalues.‘B£V‘þÿÿalues“of“Ùn“Ögreater“than“1“fa˜v˜or“the“lo˜w˜erŽ¡‘]qdata–¢%v›ÿUUalues,‘´ëwhile“v˜alues“of“Ùn“Öless“than“1“fa•ªªv“or–¢%the“higher“data“v˜alues“(negativªªe“v˜alues“andŽ¡‘]q0–Õ¥are“not“allo•ªªw“ed).‘ÖEV‘þÿÿalues›Õ¥bUVelo“w˜the˜minim“um˜are˜all˜mappUVed˜to˜the˜lo“w“est˜color˜mapŽ¡‘]qv‘ÿUUalue.‘¿uV‘þÿÿalues›Î abUVo•ªªv“e˜the˜maxim“um˜are˜all˜mappUVed˜to˜the˜highest˜color˜map˜v‘ÿUUalue.‘¿u(seeŽ¡‘]qÜ-sqrt–Öin“the“ÙCOMMAND‘KLINE“Ösection)Ž¦‘ —ªÛHistogram‘™˜EqualizationŽ¦‘]qÖThe–ò8principle“of“histogram“equalization“is“describšUVed“ab˜o•ªªv“e.‘+üThe–ò8histogram“equalizationŽ¡‘]qalgorithm–&¨in“ÙSA±~Oimage“Ödi ers“from“common“one-pass“algorithms“bšªªy“accoun˜ting“for“dispro-Ž¡‘]qpšUVortionately–¹…large“o˜ccurrences“of“one“or“a“few“image“v‘ÿUUalues.‘=×In“an“image“with“1000“pixels,ŽŽŸ’è>25ŽŽŒ‹-(  (ö ý>‘ì £n ý‘ì‘]qÖ500–IÚof“whicšªªh“ha˜v˜e“the“v‘ÿUUalue“32,›\Qa“one-pass“algorithm,˜givªªen“100“colors,˜will“try“to“get“10Ž¤‘]qpixels–üQfor“eacšªªh“color.‘JHIt“will“end“up“with“49“un˜used“colors,‘;esince“one“color“co˜v˜ered“500Ž¡‘]qpixels.‘ÌŸÙSA±~Oimage's–'ÃÖalgorithm“detects“the“pšUVeak“(or“p˜eaks)“in“the“histogram“and“allo˜catesŽ¡‘]qthe–remaining“99“colors“among“the“500“remaining“pixels“(5“pixels“pUVer“color).ŽŸt*‘]qÛIRAFŽŸ:9‘]qÖImages–B±senšªªt“directly“b˜y“ÙIRAF‘B Öare“already“scaled“to“the“range“1-200.‘iÙIRAF's“Öo˜wn“scalingŽ¡‘]qdefaults–¤óto“a“windo•ªªw“ed–¤ólinear“scaling“where“the“windošªªw“is“determined“b˜y“ tting“a“straigh˜tŽ¡‘]qline–³eto“a“small,›à?200“pixel,˜subsampled“histogram.‘o…F‘þÿÿurther“rescaling“within“ÙSA±~Oimage“ÖisŽ¡‘]qnot–vªªery“useful“(see“the“ÙIRAF“Ösection).ŽŽŸ’è>26ŽŽŒø<ƒ’À;è (öÙ¸ó<G® cmbx10ó1 cmtt10ó0 cmbx10ó. cmti10ó+ cmr10ù?œßßßßsaoimage-1.08/doc/scale.tex 666 21641 13 33050 4563667467 10752 \documentstyle[12pt]{article} \voffset=-1.0truein \hoffset=-0.5truein \textwidth=6.5truein \textheight=9.0truein \parindent=0.0truein \setcounter{page}{22} \begin{document} \centerline{\Large \bf SCALING} \vspace{0.2in} \normalsize \centerline{\bf Scaling from Image File Values to the Range of the Display Color Map} \vspace{0.2in} {\bf Synopsis} \par \vspace{0.1in} Workstation displays pose a common problem for imaging applications: how to display an image with a large range of values on a screen with a small range of colors. Since there aren't enough colors to use one for each image value, groups of different image values must all be assigned the same color. The process of grouping image values into a smaller set of values is called {\em scaling} or {\em binning}. \par \vspace{0.1in} Use the {\bf Scale} submenu to scale the image to the range of display colors. Any of a variety of linear and non-linear scaling algorithms can be applied simply by clicking on the appropriate submenu button. When scaling is performed, the range of image values currently visible within the area of the display window will be assumed. Limits on the range of image values and other scaling parameters may be input using command line switches. For long integer and floating point data, {\em SAOimage} uses two stages of scaling, as described below. \newline \vspace{0.1in} {\bf Range of Image Data vs. Size of Color Map} \par \vspace{0.1in} Image data may have a nearly infinite range of data values. Data values may be very large or very small, they may be positive or negative, and they may be real or integer. \par \vspace{0.1in} A typical workstation can only display 256 colors on its screen at any one time. Some of the 256 colors are needed for coloring such things as the mouse cursor, text characters, background areas, and window borders. On a 256 color workstation, {\em SAOimage} typically uses 200 colors to display images. \par \vspace{0.1in} For purposes of display, each pixel in the display image is assigned one of 200 integer values in the range of 0 to 255. Each of these 256 possible values is the index of an entry (or slot) in the display's color map table. The color map table associates specific colors with the 256 display values (e.g. 0=black, 1=dark blue, etc.). (See the {\em COLOR} section for a detailed discussion of color map manipulation.) \par \vspace{0.2in} {\bf Basic Scaling Theory} \par \vspace{0.1in} Take the case of an image with a range of values from 0 to +1199 (a range of 1200), and an image display with 200 colors. {\em SAOimage} might assign one color map entry (or slot) to each range of six in the image. Thus values 0 to 5 would be assigned the lowest color map slot, 0. 6 to 11 would be assigned to 1, and so on up to the values between 1195 and 1199 going to slot 199 in the color map. Then, if slot 0 was black, all pixels in the image with data values between 0 and 5 would appear black in the display. If color map slot 131 was assigned the color pink, then image pixels whose data value was between 787 and 792 would appear pink in the display. \par \vspace{0.1in} {\bf Scaling Distributions} \par \vspace{0.1in} The above example is an example of linear scaling. But suppose that it was important to be able to see the differences among levels 2, 3, 4, and 5, and not as important to see a difference between 1001 and 1002. Perhaps it would be sufficient to see differences between 1001 and 1100, while 1001, 1002, 1003, etc. could all have the same color. Then it would be better to use a scaling that used more color map slots for the lower image values than the higher image values. Log and square root scaling do that. \par \vspace{0.1in} To understand how that works, imagine a graph with image values along the side and color map values along the bottom. A plot of linear scaling would be a straight line with a constant slope. In other words, each {\tt n} consecutive image value units would map to {\tt m} color map levels. A log line would be curved, having less slope at the bottom (more color map values per image value range) and get steeper toward the top (fewer color map values per image value range). The square root function would be similar but follow a different curve. \par \vspace{0.1in} {\bf Non-linear Distributions} \par \vspace{0.1in} Sometimes weighting toward one end or the other isn't good enough. Perhaps the data values fall in clusters with big gaps in between. Imagine an image with most of its data clustered between 0 and 200, but two or three pixels with a value of 1000. In the linear scaling 80% of the color cells would be used for non-existent values between 200 and 1000. Worse, as is common with CCD images, there may be bad pixels with values like -1200, which have nothing to do with image source values. \par \vspace{0.1in} {\bf Histogram Equalization} \par \vspace{0.1in} A histogram is a plot with the range of possible values (divided into discrete bins) on one axis and the frequency of the actual occurrence of each value, or value within the range of each bin, on the other axis \par. \vspace{0.1in} The image histogram could be divided into as many bins as colors in the display, with each bin representing the range of image values associated with a single color in the display. The frequency value of each bin would be the number of pixels in the display that used that color. In a poor scaling distribution, many of the bins (ranges of image values) have few or no actual occurrences in the image. \par \vspace{0.1in} Histogram equalization is a process of adjusting the ranges of the bins such that each bin has about the same number of image pixels. If the image has many pixels with values between 100 and 200, then histogram equalization would allocate many small bins to that range, (e.g. 100-110, 111-120, etc.). If the image has relatively few pixels with values between 300 and 400, histogram equalization would allocate few large bins to that range (e.g. 300-350, 351-400). The object of histogram equalization is to maximize the information in the display by optimizing the usage of the available colors. It usually produces a dramatic improvement in the amount of visible detail in the displayed image. \par \vspace{0.1in} The drawback of histogram equalization is that the ranges can vary greatly in size. A difference between two adjacent color map values may represent a big or a small difference in data values, with much irregularity from one step to the next. \par \vspace{0.1in} {\bf Windowing the Scaling} \par \vspace{0.1in} Often, most of the data falls within a single contiguous range, with bad pixels or infrequent events in the extremes to either end. It may be useful to restrict the scaling algorithm to a specific range, with all values below that range having the same color as the minimum and all values above that range having the same color as the maximum. This can either be accomplished by specifying the scaleing limits directly, or by looking for a section of the image which is free from extreme values, and basing the scaling on the values in that section only. \par \vspace{0.1in} {\bf Wrapping the Color Map} \par \vspace{0.1in} Another trick to show more detail with a limited color map is to reuse it. By wrapping the color map on itself, it could represent the range of values from 0 to 99, and then start over, 100 having the same color as 0 and 199 having the same color as 99. This works for smoothly varying data and even has a sort of contoured look to it. Where the data fluctuations are greater than the range covered by one wrap of the color map, the result is a lot of meaningless noise. \par \vspace{0.2in} {\bf Realization and Efficiency within SAOimage} \par \vspace{0.1in} In order to realize reasonable execution times for rescaling the image display, {\em SAOimage} does not apply its scaling functions to real data. Where the image data was real, double, or long, the data is linearly rescaled to integer values between -32767 and 32767 (a range of 65,535). Each scaling function produces a 65,535 entry lookup table for this range of values which is used to draw or redraw the display. If the data has such great extremes that this range linearly applied to the data's range will be insufficient, windowing limits for the initial linear scaling can be given on the command line using {\tt -rmin, -rmax}. \par \vspace{0.1in} The scaling function is further windowed by being applied only to the range of image values actually being displayed at the time the function is invoked. Pixels not appearing in the display window are not considered in the scaling algorithm. Thus scaling after panning and zooming will produce different scale lookup table mappings, depending on the contents of the display. Panning and zooming can be used in this way to find a better scaling. \par \vspace{0.1in} To compensate for extreme data that may appear at the edges of an image (common in CCD images) data within 2 pixels of the edge of the display are not considered in the assessment of range. In {\tt verbose} mode, the scaling routine reports the range of values which it finds in the display. \par \vspace{0.1in} One or both limits of the value range for menu-commanded scaling can be restricted by using the {\tt -min} and {\tt -max} arguments on the command line. When {\tt -min} is given, the low end of the range will not extend below the {\tt -min} value. When {\tt -max} is given, the upper end will not extend above the {\tt -max} value. Limit value are given in terms of original file values. The user need not know about the internally used short integer values. The {\tt -min} and/or {\tt -max} value can be cleared by giving the {\tt -min} or {\tt -max} switch with no argument. \par \vspace{0.1in} Panning or zooming after a scale map has been made does not cause a new scale map to be calculated. The display is drawn with the existing scaling. If the new display has values outside the range when the map was made, these values are usually clipped (mapped to the color map minimum or maximum). Wrapped scaling is an exception, in that the color map wrapping is applied all the way to the maximum possible value. \par \vspace{0.1in} \parindent=0.1truein {\bf Linear Scaling} \parindent=0.0truein \par \vspace{0.1in} Linear scaling is fairly simple. The range of image values is divided by the number of color map values to determine the range of data values for each color map value. The fixed range is applied to mapping all image values between the minimum and maximum image value. Values below the minimum are all mapped to the lowest color map value. Values above the maximum are all mapped to the highest color map value. \par \vspace{0.1in} \parindent=0.1truein {\bf Wrapped Linear Scaling} \parindent=0.0truein \par \vspace{0.1in} Wrapped linear scaling, as described above, divides the range of data values by the number of times the color table will roll over (the default is 10) and the result is divided by the number of color map values to determine the range of data values for each color map value. Values below the minimum are all mapped to the lowest color map value. The mapping continues to be rolled up to the highest map value (32767). (see {\tt -wrap} in the {\em COMMAND LINE} section) \par \vspace{0.1in} \parindent=0.1truein {\bf Log Scaling} \parindent=0.0truein \par \vspace{0.1in} The distribution of data values to color map values is based on the distribution of {\em e**n} from 0 to {\em X}, where {\em n} is a parameter (the default is 10.0) and {\em X} is determined by {\em n} and the two ranges (data and color map). Positive values of {\em n} favor the lower data values, while negative values of {\em n} favor the higher data values. Values below the minimum are all mapped to the lowest color map value. Values above the maximum are all mapped to the highest color map value. (see {\tt -log} in the {\em COMMAND LINE} section) \par \vspace{0.1in} \parindent=0.1truein {\bf Square Root Scaling} \parindent=0.0truein \par \vspace{0.1in} The distribution of data values to color map values is based on the distribution of {\em X**(1/n)} from 0 to 1, where {\em n} is a parameter (the default is 2.0) and {\em X} varies from 0 to 1 in steps determined by the number of color map values. Values of {\em n} greater than 1 favor the lower data values, while values of {\em n} less than 1 favor the higher data values (negative values and 0 are not allowed). Values below the minimum are all mapped to the lowest color map value. Values above the maximum are all mapped to the highest color map value. (see {\tt -sqrt} in the {\em COMMAND LINE} section) \par \vspace{0.1in} \parindent=0.1truein {\bf Histogram Equalization} \parindent=0.0truein \par \vspace{0.1in} The principle of histogram equalization is described above. The histogram equalization algorithm in {\em SAOimage} differs from common one-pass algorithms by accounting for disproportionately large occurrences of one or a few image values. In an image with 1000 pixels, 500 of which have the value 32, a one-pass algorithm, given 100 colors, will try to get 10 pixels for each color. It will end up with 49 unused colors, since one color covered 500 pixels. {\em SAOimage's} algorithm detects the peak (or peaks) in the histogram and allocates the remaining 99 colors among the 500 remaining pixels (5 pixels per color). \par \vspace{0.2in} {\bf IRAF} \par \vspace{0.1in} Images sent directly by {\em IRAF} are already scaled to the range 1-200. {\em IRAF's} own scaling defaults to a windowed linear scaling where the window is determined by fitting a straight line to a small, 200 pixel, subsampled histogram. Further rescaling within {\em SAOimage} is not very useful (see the {\em IRAF} section). \end{document} saoimage-1.08/doc/scale.txt 666 21641 13 23503 5202366571 10752 SAOimage scaling scaling from image file values to the range of the display color map the color map The workstation display only associates colors with a small, finite set of values (typically integer values between 0 and 255). The values used by the workstations are associated to the colors in its palette through a color map (e.g. 0=black, 1=dark blue, ...). Some of the color map entries are reserved for such things as the colors of the screen or window background, the mouse cursor, and terminal window text, leaving fewer color map values for an application like SAOimage to use. See the color chapter for a more detailed discussion. the image data Image data may have an arbitrary range of data values. Data values may be very large or be very small or negative values, and they may have fractional components. Image scaling involves binning groups of image data values for each display color map value. basic scaling Take the case of an image with a range of values from 0 to +1199 (a range of 1200). Imagine that SAOimage has only 200 color map values to work with. It might assign one color map slot (or bin) to each range of six in the image. Thus values 0 to 5 would be assigned the lowest color map slot, say 0. 6 to 11 would be assigned to 1, and so on up to the values between 1195 and 1199 going to slot 199 in the color map. Then, if slot 0 was black, all pixels in the image with data values between 0 and 5 would appear black in the display. If color map slot 131 was assigned the color pink, then image pixels whose data value was between 787 and 792 would appear pink in the display. scaling distributions The above example is an example of linear scaling. But suppose that it was important to be able to see the differences among levels 2, 3, 4, and 5, but not so important to see a difference between 1001 and 1002. Perhaps it would be sufficient to see differences between 1001 and 1100, but 1001, 1002, 1003, etc. could all have the same color. Then it would be better to use a scaling that used more color map slots for the lower image values than the higher image values. Log and square root scaling do that. To understand how that works, imagine a graph with image values along the side and color map values along the bottom. A plot of linear scaling would be a straight line. A log line would be curved, having less slope at the bottom (more color map values per image value range) and get steeper toward the top. The square root function would be similar but follow a different curve. non-linear distributions Suppose that weighting toward one end or the other wasn't good enough. Perhaps the data values fall in clusters with big gaps in between. Imagine an image with most of its data clustered between 0 and 200, but two or three pixels with a value of 1000. In the linear scaling 80% of the color cells would be used for non-existent values between 200 and 1000. Worse, as is common with CCD images, perhaps there are bad pixels with values like -1200, which have nothing to do with the data. equalization It is appropriate to speak in terms of a histogram of the data values, plotting ranges of data values by the frequency (number of pixels) of their occurrence in the image. Suppose that the ranges in the histogram were selected such that each range was associated with one color map value. In a poor scaling distribution, many of the ranges have few or no actual occurrences in the image. Histogram equalization is a process whereby each range is adjusted with respect to the others, until each range has about the same number of pixel occurrences in the image, thus maximizing the information in the display. This usually produces a dramatic improvement in the amount of visible detail in the display. The drawback of histogram equalization is that the ranges can vary greatly in size, thus a difference between two adjacent color map values may represent a big or a small difference in data values, with much irregularity from one step to the next. windowing the scaling Where most of the data falls within a single contiguous range, with bad pixels or infrequent events in the extremes to either end, scaling to the color map can be restricted to a specific range, with all values below that range having the same color as the minimum and all values above that range having the same color as the maximum. This can either be accomplished by specifying the limits directly, or by looking for a section of the image which is free from extreme values, and basing the scaling on the values in that section only. stretching the color map range Another trick to show more detail with a limited color map is to reuse it. By wrapping the color map on itself, it could represent the range of values from 0 to 99, and then start over, 100 having the same color as 0 and 199 having the same color as 99. This works for smoothly varying data and even has a sort of contoured look to it. Where the data fluctuations are greater than the base range, the result is a lot of meaningless noise. realization and efficiency within SAOimage In order to realize reasonable execution times for rescaling the image display, SAOimage does not apply its scaling functions to real data. Where the image data was real, double, or long, the data is linearly rescaled to integer values between -32768 and 32767 (a range of 65,536). Each scaling function produces a look-up table (or map) for this range of values which is used to draw or redraw the display. If the data has such great extremes that this range linearly applied to the data's range will be insufficient, windowing limits for the initial linear scaling can be given on the command line (-rmin, -rmax). The scaling function is further windowed by being applied only to the range of image values actually being displayed at the time the function is invoked. Pixels not appearing in the display window are not considered in the scaling algorithm. Thus scaling after panning and zooming will produce different scale look-up table mappings, depending on the contents of the display. Panning and zooming can be used in this way to find a better scaling. To allow for extreme data that just appear at the edges (common in CCD images) data within 2 pixels of the edge of the display are not considered in the assessment of range. In verbose mode, the scaling routine reports the range of values which it finds in the display. One or both limits of the value range for scaling can be restricted by using the -min and -max arguments on the command line. When given, the low end of the range will not extend below the -min value, and/or the upper end will not extend above the -max value. The limit value should be given in terms of original file values (not the internal short-integer values, should they differ). The -min and/or -max value can be cleared by giving the -min or -max switch with no argument. Panning or zooming after a scale map has been made does not cause a new scaling map to be calculated. The display is drawn with the existing scaling map. If the new display has values outside the range when the map was made, these values are usually clipped in terms of a histogram of the data values, plotting ranges of data values by the frequency (number of pixels) of their occurrence in the image. Suppose that the ranges in the histogram were selected such that each range was associated with one color map value. In a poor scaling distribution, many of the ranges have few or no actual occurrences in the image. Histogram equalization is a process whereby each range is adjusted with respect to the others, until each range has about the same number of pixel occurrences in the image, thus maximizing the information in the display. This usually produces a dramatic improvement in the amount of visible detail in the display. The drawback of histogram equalization is that the ranges can vary greatly in size, thus a difference between two adjacent color map values may represent a big or a small difference in data values, with much irregularity from one step to the next. windowing the scaling Where most of the data falls within a single contiguous range, with bad pixels or infrequent events in the extremes to either end, scaling to the color map can be restricted to a specific range, with all values below that range having the same color as the minimum and all values above that range having the same color as the maximum. This can either be accomplished by specifying the limits directly, or by looking for a section of the image which is free from extreme values, and basing the scaling on the values in that section only. stretching the color map range Another trick to show more detail with a limited color map is to reuse it. By wrapping the color map on itself, it could represent the range of values from 0 to 99, and then start over, 100 having the same color as 0 and 199 having the same color as 99. This works for smoothly varying data and even has a sort of contoured look to it. Where the data fluctuations are greater than the base range, the result is a lot of meaningless noise. realization and efficiency within SAOimage In order to realize reasonable execution times for rescaling the image display, SAOimage does not apply its scaling functions to real data. Where the image data was real, double, or long, the data is linearly rescaled to integer values between -32768 and 32767 (a range of 65,536). Each scaling function produces a look-up table (or map) for this range of values which is used to draw or redraw the display. If the data has such great extremes that this range linearly applied to the data's range will be insufficient, windowing limits for the initial linear scaling can be given on the command line (-rmin, -rmax). The scaling function is further windowed by being applied only to the range of image values actually being displayed at the time the function is invoked. Pixels not appearing in the display window are not considered in tsaoimage-1.08/doc/manual.aux 666 21641 13 14741 5202366571 11122 \relax \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {1} SAOimage command line arguments }{1}} \newlabel{cmd-sec}{{1}{1}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {2} SAOimage button menus and submenus }{7}} \newlabel{btn-sec}{{2}{7}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {2.1} Where to find more information }{8}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {2.2} Explanation of items in the ``etc'' submenu }{8}} \newlabel{etc-sec}{{2.2}{8}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {2.3} User interface issues }{9}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {3} Scaling image file values to the range of the display color map }{9}} \newlabel{scale-sec}{{3}{9}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.1} Range of image data versus size of color map }{9}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.2} Basic scaling theory }{10}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.3} Scaling distributions }{10}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.4} Non-linear distributions }{10}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.5} Histogram equalization }{10}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.6} Windowing the scaling }{11}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.7} Wrapping the color map }{11}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {3.8} Scaling implementation and efficiency within SAOimage }{11}} \newlabel{scaleopt-sec}{{3.8}{11}} \@writefile{toc}{\string\contentsline\space {subsubsection}{\string\numberline\space {3.8.1} Linear scaling }{12}} \newlabel{linscale-sec}{{3.8.1}{12}} \@writefile{toc}{\string\contentsline\space {subsubsection}{\string\numberline\space {3.8.2} Wrapped linear scaling }{12}} \newlabel{wrapscale-sec}{{3.8.2}{12}} \@writefile{toc}{\string\contentsline\space {subsubsection}{\string\numberline\space {3.8.3} Log scaling }{12}} \newlabel{logscale-sec}{{3.8.3}{12}} \@writefile{toc}{\string\contentsline\space {subsubsection}{\string\numberline\space {3.8.4} Square root scaling }{13}} \newlabel{sqrtscale-sec}{{3.8.4}{13}} \@writefile{toc}{\string\contentsline\space {subsubsection}{\string\numberline\space {3.8.5} Histogram equalization }{13}} \newlabel{histscale-sec}{{3.8.5}{13}} \@writefile{toc}{\string\contentsline\space {subsubsection}{\string\numberline\space {3.8.6} Image scaling by IRAF }{13}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {4} Blinking between different stored display images }{13}} \newlabel{blink-sec}{{4}{13}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {5}Color under the X window system on color workstations}{14}} \newlabel{color-sec}{{5}{14}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {5.1} Color mapping }{15}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {5.2} Color manipulation }{16}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {5.3} Gamma correction }{16}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {5.4} Updating the graph and gamma display }{17}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {5.5} Saving color map entries and reading them back in }{17}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {6} Graphics cursors and cursor mode in SAOimage }{17}} \newlabel{cur-sec}{{6}{17}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.1} Positioning }{18}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.2} Sizing }{18}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.3} Rotation angle }{18}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.4} Point cursor }{19}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.5} Polygon cursor }{19}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.6} Cursor annuli }{19}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.7} Arrow cursor }{20}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.8} Text cursor }{20}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {6.9} Cursor color }{20}} \newlabel{halftone-sec}{{6.9}{20}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {7} SAOimage cursor regions }{21}} \newlabel{reg-sec}{{7}{21}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {7.1} Saving and unsaving }{21}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {7.2} Menu controls }{22}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {7.3} Regions as ASCII disk files }{22}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {8} Image panning and zooming in SAOimage }{24}} \newlabel{pan-sec}{{8}{24}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {9} Using the mouse in SAOimage }{24}} \newlabel{mouse-sec}{{9}{24}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {9.1} Tracking }{25}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {9.2} Fine movement }{26}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {10} SAOimage keyboard input }{26}} \newlabel{kbd-sec}{{10}{26}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {10.1} Key commands }{26}} \newlabel{key-sec}{{10.1}{26}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {10.2} Modifier keys }{27}} \@writefile{toc}{\string\contentsline\space {subsection}{\string\numberline\space {10.3} Editable text input }{28}} \@writefile{toc}{\string\contentsline\space {section}{\string\numberline\space {11} Outputting an image to a laser printer }{29}} \newlabel{hdcp-sec}{{11}{29}} saoimage-1.08/doc/manual.tex 666 21641 13 264131 5202366572 11146 \documentstyle[11pt,twoside]{article} % Page sizes and margin widths. These dimensions provide 1-inch margins on % left and right, and roughly center the text vertically. The visual sense % of the vertical centering depends a bit on the presence of running heads, % which can be enabled with \pagestyle{headings}. \topmargin 0pt \textwidth 6.5truein \textheight 8.5truein \oddsidemargin 0pt \evensidemargin 0pt % Hocus-pocus to do a bit of vertical alignment of the page on the paper. \advance\voffset by-\headheight % Paragraph parameters. Note use of font size dependent units. \parindent 1.7em \parskip 0.7ex \def\lestrut{\vrule height1.6ex depth.45ex width0pt} % Here are macros defined largely to control typography of certain kinds % of entities. I have chosen to understate the font changes; professional % book designers will advise you to keep typographic antics to a minimum. % If adjustments are necessary to satisfy others' preferences, it should % be possible to to do what you want by changing the definitions here. % % The exercise is to identify all the places in the document where explicit % typeface changes are desired and replace such changes with one of these % macros. These are named according to what the semantic construct is; % the typographic instructions are hidden in the macro definitions. % This isolates the typography and guarantees a higher measure of % uniformity throughout the printed document. \newcommand{\SAO}{{\em SAOimage}} \newcommand{\IRAF}{{\rm IRAF}} % changed \it to \rm... \newcommand{\PROS}{{\rm PROS}} % changed \it to \rm... \newcommand{\menu}[1]{{\sf#1}} % user keystrokes, hotkeys \newcommand{\key}[1]{{\tt#1}} % menus and submenus \newcommand{\argitem}[1]{\item[]\shortstack[l]{#1}} % cmd line arg descriptions \newcommand{\argname}[1]{{\tt#1}} % cmd line args, filenames, etc. \newcommand{\task}[1]{{\it#1\/}} % OS commands, IRAF tasks, etc. \let\uppercase=\relax % makes nicer running heads... \pagestyle{headings} % Running heads; could also use empty or plain. % If you don't like the section numbering or the nesting depth of the TOC, % the behavior of the sectioning macros can be controlled by these parameters. % You don't need to change the section markup to adjust these style issues. \setcounter{secnumdepth}{3} \setcounter{tocdepth}{3} \begin{document} \begin{titlepage} \title{\bf User Manual for SAOimage\\[0.2in] \large\bf A Pseudocolor Display Program for Grayscale Images} \author{M. VanHilst\thanks{Work supported through NASA Contracts NAS8-30751, NASW-3722, NASS-29350 and NASS-30934}\\[0.1in] Smithsonian Astrophysical Observatory\\ Harvard/Smithsonian Center for Astrophysics\\ Cambridge, Massachusetts} \date{1 January 1991} \maketitle \thispagestyle{empty} \end{titlepage} \pagenumbering{roman} % lower case roman numerals for front matter \tableofcontents \cleardoublepage \pagenumbering{arabic} % arabic numbers for main body \section{ SAOimage command line arguments } \label{cmd-sec} The {\em command line} is the line you type to start up the {\SAO} program. Following the name of the program, you can include the name of a file to read as well as various parameters and their settings. Except for the filename, all settings are identified by a {\em switch} beginning with a `{\tt -}' (a hyphen). Some switches are sufficient by themselves, some switches must be followed by a fixed number of arguments (usually numerical), and some switches may be followed by arguments but do not require them. These are explained below. There is no required order to the switches. The filename can also appear anywhere on the command line. {\SAO} assumes that any token, which is not part of a recognizable switch, is the filename. Many switches have two names, one literal and one abbreviated. In such cases the names are completely interchangeable. The longer names might be used in a script where a later reader might wonder what the switches do. The abbreviated names save typing on the command line. Once {\SAO} is running, you may enter a new command line, changing some of the settings and/or reading in a new image from disk. See the descriptions for the \menu{new} menu under \menu{etc} in section~\ref{etc-sec} and the \key{N} key in section~\ref{key-sec}. A few switches cannot be changed from their initial settings (e.g. \argname{-display} to change the display server). These are marked by \verb@**@ below. The following is a list of the command line switches for {\SAO}: \begin{description} \argitem{\verb"-blue **"} Set the color of all graphics to be blue. Some inexpensive systems use a monochrome monitor connected to one of the three color outputs on the computer. That color must be specified to make the graphics visible. \argitem{\verb"-bordercolor **"\lestrut\\ \verb"-bc "} Specify the color of all subwindow borders. The color name must be a recognized X color (there are many). This is a style issue. For instance, one can turn on green borders by typing \begin{quote} \verb"-bc green" \end{quote} \argitem{\verb"-byteswap"\\ \verb"-bswap"} Switch the bytes order between big-endian and little-endian order. This may be needed where data has been copied from another machine or if there is some confusion about the FITS file format. This switch toggles the previous setting. \argitem{\verb"+/-coord"\\ \verb"+/-ct"} Set the coordinate tracking state initially on or off. In coordinate tracking, the coordinates of the mouse and value of the pixel under it are printed in the upper-left text area, above the main display window. \argitem{\verb"-display :. **"\\ \verb"-d :. **"} Specify the name of the X display server. This makes it possible to run the \SAO\ program on a machine other than the one connected to your display screen, with no difference in appearance or use. By default, \SAO\ gets the server name from the \verb"DISPLAY" environment variable. See the \task{xhost} manual page for more details. The display server cannot be changed once \SAO\ is running. For example, to connect to the display server on \argname{cfa241}, one would use \begin{quote} \verb"saoimage -d cfa241:0.0" \qquad or, equivalently\\ \verb"saoimage -d 128.103.41.241:0.0" \end{quote} \argitem{\verb"-dfits"} Image file is a FITS file (see \argname{-fits}), but in unexpected byteswapped order. The FITS standard is not swapped, but some naive VAX applications may swap it (see \argname{-bswap}). \argitem{\verb"-fbconfig "} Specify an alternate frame buffer configuration file for use with IRAF. By default, the file installed with \SAO\ (\verb"/usr/local/lib/imtoolrc") is used. \argitem{\verb"-fits"} Image file is a FITS file. If the image filename ends in \argname{.fits}, this switch is not necessary. Only \verb"T=SIMPLE" array types are supported. The header \argname{BITPIX} card must be 8 (unsigned byte), 16 (signed short), 32 (signed int), -32 (float), -64 (double), or -16 (unsigned short). (The last two are not recognized standards). IEEE floats are not converted if that is not the machine format. \argitem{\verb"-gd [x][{+-}{+-}] **"} Specify the size of the image display subwindow and/or the screen position of \SAO. The format is a standard X geometry statement. This switch works like \argname{-geometry}, except that width and height (if given) are applied to the display subwindow. The overall \SAO\ window is sized accordingly. For example, to create an \SAO\ in the upper right with a display window that exactly fits a 320x512 FITS image, type \begin{quote} \verb"saoimage -gd 320x512-5+0 m51.fits" \end{quote} \argitem{\verb"-geometry [x][{+-}{+-}] **"\\ \verb"-g [x][{+-}{+-}] **"} Specify the size and/or the screen position of \SAO. The format is a standard X geometry statement. Both size and position may be specified, or only the size or the position. Width and height refer to the dimensions of \SAO's desktop window (see \argname{-gd} for sizing just the image display window). \argname{+x} and \argname{+y} refer to the upper left corner in screen coordinates. \argname{-x} positions the right edge from the right edge of the screen. \argname{-y} would positions the lower edge from the bottom of the screen. Width and height below a minimum size are defaulted to the minimum. Specifying the default minimum size (\hbox{\argname{-geometry 0x0}}) also triggers \SAO\ to use smaller dimensions for its internal windows. Once \SAO\ is running, use the window manager's normal size and move mechanisms to make adjustments to \SAO's main window. For instance, to create minimum sized \SAO\ near the upper left corner, type \begin{quote} \verb"saoimage -geometry 0x0+10+20" \end{quote} To create a 500x700 \SAO\ window in the lower right corner, type \begin{quote} \verb"saoimage -geometry 500x700-5-5" \end{quote} To create a default sized \SAO\ window in the upper right corner, type \begin{quote} \verb"saoimage -geometry +0-5" \end{quote} \argitem{\verb"-green **"} Set the color of all graphics to be green. See \argname{-blue}. \argitem{\verb"-histeq"} See section~\ref{histscale-sec} on histogram equalization. \argitem{\verb"-horizgraph **"\\ \verb"-hg"} Use a horizontal auxiliary color graph window, with a color bar along the bottom. See \argname{-vg}. \argitem{\verb"-i2 "\\ \verb"-shortarray "} Image file is a signed short integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \argitem{\verb"-i4 "\\ \verb"-longarray "} Image file is a signed long integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \argitem{\verb"-idev "} Specify the name of the named pipe used for listening. The default is \verb"/dev/imt1o", which is the default used by \IRAF. See \argname{-odev}. \argitem{\verb"+/-imtool"} Open/close the named input pipe connection and wait for input from \IRAF. When open, \SAO\ emulates \IRAF's \task{imtool}. \IRAF's image loading and cursor read-back functions are supported. Unlike \task{imtool}, \SAO\ has only one frame buffer; \IRAF's frame buffer numbers are ignored. Listening on the pipe is possible even while reading image files directly. The connection may be opened, closed, or re-opened at any time. When supported, the default mode is commonly to start with the \IRAF\ connection open. See \argname{-idev}, \argname{-odev} and \argname{-pros}. \argitem{\verb"-linear"} See section~\ref{linscale-sec} on linear scaling. \argitem{\verb"-log []"} Set the scaling mode to log (exponential), and set the exponent for the curve function $e^n$, if given. See section~\ref{logscale-sec}. \argitem{\verb"-lowerleft"\lestrut\\ \verb"-ll"} First pixel in file represents the lower left of the image, assuming the lines of input run left to right on the screen. This is the \IRAF\ standard and the \SAO\ default. See \argname{-rotate}, \argname{-upperleft}, and \argname{-zero}. \argitem{\verb"-lprbuttons"} Include the button menu in the hardcopy image (only on color workstations). The default on color workstations includes the area above the button panel, but excludes the buttons. \argitem{\verb"-mag "} Set the magnification factor of the magnifier. This factor relates the magnifier to the magnification of the display window. The default is 4; the magnifier magnifies the image to 4 times the magnification of the main display window (but never less than zoom 1 of the original data). \argitem{\verb"+/-magnifier"\\ \verb"+/-mt"} Set the magnifier tracking state initially on or off. With magnifier tracking, the magnifier window is continuously updated to show a magnification of the image the image under the mouse. \argitem{\verb"-max []"} Set the maximum for the image value range used to compute scaling. The default is to take the maximum from the image shown in the display window. \argname{-max} with no value resets the default. If the maximum value in the displayed image is lower than the given maximum, the image's maximum vale is used for the scaling range. \argitem{\verb"-min []"} Set the minimum for the image value range used to compute scaling. The default is to take the minimum from the image shown in the display window. \argname{-min} with no value resets the default. If the minimum value in the displayed image is higher than the given minimum, the image's minimum vale is used for the scaling range. \argitem{\verb"-mtf"} Give the button panel a chiseled look popularized by HP's widget set. This appearance may contrast less with other applications being used at the same time. \argitem{\verb"-name "} This switch is only needed if the filename starts with a number or might otherwise be recognized as a switch. \argitem{\verb"-odev "} Specify the name of the named pipe used for sending feedback. The default is \verb"/dev/imt1i", which is the default used by \IRAF. See \argname{-idev}. \argitem{\verb"-oif"} Image file is an \IRAF\ image header file in OIF format. If the image filename ends in \argname{.imh}, this switch is not necessary. \IRAF\ STF and QPOE formats are not supported. Complex data cannot be handled. The data must have at least 2 dimensions. Only the first plane of multidimensional images is read. The data file is read directly by \SAO\ (see \argname{-imtool} and \argname{-pros}). \argitem{\verb"-one"} The file coordinate of the first pixel is $(1,1)$. The real coordinates of the center of the first pixel are $(1.0,1.0)$. This is the \IRAF\ standard and the default for \SAO. The second pixel is $(2,1)$. See \argname{-zero}. \argitem{\verb"-palette "\\ \verb"-p "} Specify the number of read/write color cells to reserve. On color workstations, \SAO\ reserves color cells in the default colormap for its own use (see section~\ref{color-sec}). \SAO\ reserves as many color cells as it can get, up to the number given (the default is 200). If the number given is negative, \SAO\ comes up in overlay mode, using $1/2 + 2$ of the color cells for overlays and graphics. In verbose mode (see \argname{-verbose}), \SAO\ tells you how many cells it is able to use for display colors. This number can be re-entered at run-time, unless \hbox{\argname{-palette 1}} is given, in which case \SAO\ stays in halftone mode. \argitem{\verb"-panboxav"\\ \verb"-panboxsum"\\ \verb"-panboxsamp"\\ \verb"-panboxmax"} These switches select the kind of image reduction used to fit a picture of the entire image into the pan window. Each pixel is computed from a block of image pixels by averaging, summing, sampling, or taking the maximum. The default is to show the maximum from each block. When zooming in the main display involves reduction, subsampling is always used. \argitem{\verb"-pros"} This command is virtually identical to \argname{+imtool}. The difference occurs when the user writes the saved regions to a disk file. \task{imtool} emulation includes writing only an \IRAF\ list file giving center coordinates only. With \argname{-pros}, \SAO's normal region descriptor file will be written in place of the simpler list file. One may switch between this mode and \argname{+imtool}, or close the \IRAF\ connection with \argname{-imtool}. \argitem{\verb"-quiet"\\ \verb"-q"} Disable {\em verbose} mode. See \argname{-verbose}. \argitem{\verb"-r4 "\\ \verb"-floatarray "} Image file is a real$*$4 array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \argitem{\verb"-r8 "\\ \verb"-doublearray "} Image file is a real$*$8 array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \argitem{\verb"-red **"} Set the color of all graphics to be red. See \argname{-blue}. \argitem{\verb"-rmax []"} Set maximum value for reading from the image file. This value is used as the maximum value when images are pre-scaled to fit the 16 bit (signed short) working buffer. See section~\ref{scaleopt-sec}. \argitem{\verb"-rmin []"} Set minimum value for reading from the image file. This value is used as the minimum value when images are pre-scaled to fit the 16 bit (signed short) working buffer. See section~\ref{scaleopt-sec}. \argitem{\verb"-rotate <1,2,or 3>"\lestrut\\ \verb"-rot <1,2,or 3>"} Rotate the image 90, 180, or 270 degrees (respectively) before displaying it. Rotation is applied after conversion to a lower left coordinate system (\argname{-ll}) if such conversion is also requested. This is useful for images when the CCD was not mounted North-up. \argitem{\verb"-scalebias "\lestrut\\ \verb"-sb "} The data in the image file should be scaled and biased to get the true image value (TrueValue = (scale $*$ FileValue) + bias). This cannot be used with the \argname{-fits} image type (scale and bias are in the FITS header), nor with \argname{-imtool} or \argname{-pros} (they are passed by \IRAF). \argitem{\verb"-skip "\\ \verb"-sk "\\ \verb"-header "} Skip over the given number of bytes at the head of the file before reading data. This is used to skip header information or the first image if two images are stored in one file. \argitem{\verb"-sqrt []"} Set the scaling function to square root (geometric), and set the inverse of the exponent for the $x^{1/n}$ curve, if given. See section~\ref{sqrtscale-sec}. \argitem{\verb"-u1 "\\ \verb"-chararray "} Image file is an unsigned byte array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \argitem{\verb"-u2 "\\ \verb"-ushortarray "} Image file is a unsigned short integer array file of the given dimensions. If the file is square and has no added padding, the dimensions are not necessary. \argitem{\verb"-upperleft"\\ \verb"-ul"} First pixel in file represents the upper left of the image, assuming the lines of input run left to right on the screen (see \argname{-rotate} and \argname{-lowerleft}). This switch does not override \IRAF\ WCS image coordinates. \argitem{\verb"+/-verbose"\\ \verb"+/-v"} Set {\em verbose} mode on or off. In verbose mode, informative statements are printed to the terminal window when various actions are taken. The default mode is to be verbose. \argitem{\verb"-vertgraph **"\\ \verb"-vg"} Use a vertical auxiliary color graph window, with a color bar along the left side. See \argname{-hg}. \argitem{\verb"-wrap []"} Set the scaling mode to wrapped linear, and set the number of wraps for this mode, if given. See section~\ref{wrapscale-sec}. \argitem{\verb"-zero"} The file coordinate of the first pixel is $(0,0)$. The real coordinates of the center of the first pixel are $(0.5,0.5)$ which makes the very edge $(0,0)$. This is the standard coordinate system for image displays, but not the default for \SAO. The second pixel is indexed $(1,0)$. See \argname{-one}. \end{description} \section{ SAOimage button menus and submenus } \label{btn-sec} {\SAO} uses button panels for selecting the most common actions and modes. The button panel is organized in two rows. The upper row of buttons selects the main mode. The lower row of buttons controls modes, actions, and selections specific to the current main mode. The upper row of buttons, referred to as the {\em main menu}, or just the {\em menu}, is always visible. The lower row of buttons, referred to as the {\em submenu}, changes to correspond to the mode selected in the main menu. For some main menu modes (\menu{Color} and \menu{Cursor}), there are two interchangeable submenus, toggled by the button on the end (\menu{cmap} and \menu{region}, respectively). Main menu modes all correspond to modes of interaction for the mouse and its buttons. For example, when in \menu{Color} mode, dragging the mouse in the display window manipulates the color map, while in \menu{Cursor} mode, the same action affects the drawing of a cursor. Making a selection in the main menu only changes modes and submenus. Selections in submenus often do cause specific actions to be taken. Most of these actions are easily reversible. The user is especially warned that in the \menu{etc} submenu, the \menu{QUIT} button does what it says, and the \menu{print} button sends a large PostScript file to the user's printer. \subsection{ Where to find more information } For additional information about the \menu{Scale} menu, see section~\ref{scale-sec}. The mouse interactions that are possible in the \menu{Scale} menu are described in section~\ref{blink-sec} dealing with blinking. The \menu{Color} menu is described in section~\ref{color-sec}. Note that on color workstations, the \menu{Color} menu has two different submenus, interchangable by using the \menu{cmap} button. One can also switch to non-color mode by toggling the \menu{mono} button. Details about the \menu{Cursor} menu are covered in sections~\ref{cur-sec} and~\ref{reg-sec}. The \menu{Cursor} menu has two submenus, interchangeable by pressing the \menu{region} button. For the \menu{Pan} menu, see section~\ref{pan-sec}. \subsection{ Explanation of items in the ``etc'' submenu } \label{etc-sec} The \menu{etc} menu groups a numbers of different functions. \begin{description} \item[\menu{new}] brings up a command line editor. A new command line can be entered to read a new image and also to change certain internal parameters. The previous command line is initially presented, should you just want to edit it. Type \key{Ctrl-N} if you want to start with an empty line. \key{Ctrl-P} recalls previous lines. Type \key{Ctrl-C} to exit the command line editor without taking any new actions. In most modes, typing \key{N} has the same effect as the \menu{new} button. See sections~\ref{cmd-sec} and~\ref{kbd-sec} for further details. \item[\menu{track}] enables the tracking mode. In tracking mode, the magnifier window magnifies the image under the mouse when it is in the main display window. Tracking mode also controls whether the the color graph gets updated continuously when in \menu{Color} mode, or only at the completion of some action. Whatever mode tracking is in, the opposite can be temporarily invoked by holding down the \key{Shift} key, or using the \key{CapsLock} key. The default is to be initially on (see section~\ref{cmd-sec} for how to change this). \item[\menu{coord}] enables coordinate tracking mode. In coordinate tracking mode, the coordinates and pixel value of the pixel under the mouse are printed, and continuously updated, when the mouse is over the main display window. This mode is also temporarily negated by using the \key{Shift} key. The default is to be initially on (see section~\ref{cmd-sec} for how to change this). \item[\menu{verb}] controls verbose mode. When in verbose mode, {\SAO} prints information about the cursors or image to the terminal window of the parent process from which {\SAO} was invoked. This may or may not be desired. The default is to be initially on (see \argname{-verbose} in section~\ref{cmd-sec} for how to change this). \item[\menu{print}] creates (and prints) a PostScript hardcopy. See section~\ref{hdcp-sec} for details. \item[\menu{raise}] tells the window manager to raise {\SAO}'s windows. Most window managers in use now have their own features to accomplish this. (Typing the \key{R} key also has this effect in most modes). \item[\menu{QUIT}] terminates {\SAO}. \end{description} \subsection{ User interface issues } The user-interface of {\SAO} has been the subject of many questions and comments. A common question is: ``Why isn't it {\em Motif}?'' {\SAO}'s button menu was developed under X10 and predates any X toolkits. While successors to {\SAO} will undoubtably use toolkits like {\em Motif} or {\em OpenLook}, there is still justification for an xlib-only design. \begin{enumerate} \item {\SAO} is distributed completely free of any license restrictions. It supports a community characterized by limited funds and a wide variety of machines. Using {\SAO}, and making one's own modifications, requires only that one have X11. \item {\SAO} runs well on machines with limited memory and/or processing power. These are still issues for older workstations and PC's and Mac's running UNIX. \end{enumerate} \section{ Scaling image file values to the range of the display color map } \label{scale-sec} Workstation displays pose a common problem for imaging applications: how to display an image with a large range of values on a screen with a small range of colors. Since there aren't enough colors to use one for each image value, groups of different image values must all be assigned the same color. The process of grouping image values into a smaller set of values is called {\em scaling} or {\em binning}. Use the \menu{Scale} submenu to scale the image to the range of display colors. Any of a variety of linear and non-linear scaling algorithms can be applied simply by clicking on the appropriate submenu button. When scaling is performed, the range of image values currently visible within the area of the display window will be assumed. Limits on the range of image values and other scaling parameters may be input using command line switches. For long integer and floating point data, {\SAO} uses two stages of scaling, as described below. \subsection{ Range of image data versus size of color map } Image data may have a nearly infinite range of data values. Data values may be very large or very small, they may be positive or negative, and they may be real or integer. A typical workstation can only display 256 colors on its screen at any one time. Some of the 256 colors are needed for coloring such things as the mouse cursor, text characters, background areas, and window borders. On a 256 color workstation, {\SAO} typically uses 200 colors to display images. For purposes of display, each pixel in the display image is assigned one of 200 integer values in the range of 0 to 255. Each of these 256 possible values is the index of an entry in the display's color map table. The color map table associates specific colors with the 256 display values (e.g. 0=black, 1=dark blue, etc.). (See section~\ref{color-sec} for a detailed discussion of color map manipulation.) \subsection{ Basic scaling theory } Take the case of an image with a range of values from 0 to +1199 (a range of 1200), and an image display with 200 colors. {\SAO} might assign one color map entry to each range of six in the image. Thus values 0 to 5 would be assigned the lowest color map entry, 0. Values 6 to 11 would be assigned to 1, and so on up to the values between 1195 and 1199 going to entry 199 in the color map. Then, if entry 0 was black, all pixels in the image with data values between 0 and 5 would appear black in the display. If color map entry 131 was assigned the color pink, then image pixels whose data value was between 787 and 792 would appear pink in the display. \subsection{ Scaling distributions } The above example is an example of linear scaling. But suppose that it was important to be able to see the differences among levels 2, 3, 4, and 5, and not as important to see a difference between 1001 and 1002. Perhaps it would be sufficient to see differences between 1001 and 1100, while 1001, 1002, 1003, etc. could all have the same color. Then it would be better to use a scaling that used more color map entries for the lower image values than the higher image values. Log and square root scaling do that. To understand how that works, imagine a graph with image values along the side and color map values along the bottom. A plot of linear scaling would be a straight line with a constant slope. In other words, each $n$ consecutive image value units would map to $m$ color map levels. A log line would be curved, having less slope at the bottom (more color map values per image value range) and get steeper toward the top (fewer color map values per image value range). The square root function would be similar but follow a different curve. \subsection{ Non-linear distributions } Sometimes weighting toward one end or the other isn't good enough. Perhaps the data values fall in clusters with big gaps in between. Imagine an image with most of its data clustered between 0 and 200, but two or three pixels with a value of 1000. In the linear scaling 80\% of the color cells would be used for non-existent values between 200 and 1000. Worse, as is common with CCD images, there may be bad pixels with values like -1200, which have nothing to do with image source values. \subsection{ Histogram equalization } A histogram is a plot with the range of possible values (divided into discrete bins) on one axis and the frequency of the actual occurrence of each value, or value within the range of each bin, on the other axis. The image histogram could be divided into as many bins as colors in the display, with each bin representing the range of image values associated with a single color in the display. The frequency value of each bin would be the number of pixels in the display that used that color. In a poor scaling distribution, many of the bins (ranges of image values) have few or no actual occurrences in the image. Histogram equalization is a process of adjusting the ranges of the bins such that each bin has about the same number of image pixels. If the image has many pixels with values between 100 and 200, then histogram equalization would allocate many small bins to that range, (e.g. 100--110, 111--120, etc.). If the image has relatively few pixels with values between 300 and 400, histogram equalization would allocate few large bins to that range (e.g. 300--350, 351--400). The object of histogram equalization is to maximize the information in the display by optimizing the usage of the available colors. It usually produces a dramatic improvement in the amount of visible detail in the displayed image. The drawback of histogram equalization is that the ranges can vary greatly in size. A difference between two adjacent color map values may represent a big or a small difference in data values, with much irregularity from one step to the next. \subsection{ Windowing the scaling } Often, most of the data falls within a single contiguous range, with bad pixels or infrequent events in the extremes to either end. It may be useful to restrict the scaling algorithm to a specific range, with all values below that range having the same color as the minimum and all values above that range having the same color as the maximum. This can either be accomplished by specifying the scaling limits directly, or by looking for a section of the image which is free from extreme values, and basing the scaling on the values in that section only. \subsection{ Wrapping the color map } Another trick to show more detail with a limited color map is to reuse it. By wrapping the color map on itself, it could represent the range of values from 0 to 99, and then start over, 100 having the same color as 0 and 199 having the same color as 99. This works for smoothly varying data and even has a sort of contoured look to it. Where the data fluctuations are greater than the range covered by one wrap of the color map, the result is a lot of meaningless noise. \subsection{ Scaling implementation and efficiency within SAOimage } \label{scaleopt-sec} In order to realize reasonable execution times for rescaling the image display, {\SAO} does not apply its scaling functions to real data. Where the image data was real, double, or long, the data is linearly rescaled to integer values between -32767 and 32767 (a range of 65,535). Each scaling function produces a 65,535 entry lookup table for this range of values which is used to draw or redraw the display. If the data has such great extremes that this range linearly applied to the data's range will be insufficient, windowing limits for the initial linear scaling can be given on the command line using \argname{-rmin} and \argname{-rmax}. The scaling function is further windowed by being applied only to the range of image values actually being displayed at the time the function is invoked. Pixels not appearing in the display window are not considered in the scaling algorithm. Thus scaling after panning and zooming will produce different scale lookup table mappings, depending on the contents of the display. Panning and zooming can be used in this way to find a better scaling. To compensate for extreme data that may appear at the edges of an image (common in CCD images) data within 2 pixels of the edge of the display are not considered in the assessment of range. In \argname{-verbose} mode, the scaling routine reports the range of values which it finds in the display. One or both limits of the value range for menu-commanded scaling can be restricted by using the \argname{-min} and \argname{-max} arguments on the command line. When \argname{-min} is given, the low end of the range will not extend below the \argname{-min} value. When \argname{-max} is given, the upper end will not extend above the \argname{-max} value. Limit values are given in terms of original file values. The user need not know about the internally used short integer values. The \argname{-min} and/or \argname{-max} value can be cleared by giving the \argname{-min} or \argname{-max} switch with no argument. Panning or zooming after a scale map has been made does not cause a new scale map to be calculated. The display is drawn with the existing scaling. If the new display has values outside the range when the map was made, these values are usually clipped (mapped to the color map minimum or maximum). Wrapped scaling is an exception, in that the color map wrapping is applied all the way to the maximum possible value. \subsubsection{ Linear scaling } \label{linscale-sec} Linear scaling is fairly simple. The range of image values is divided by the number of color map values to determine the range of data values for each color map value. The fixed range is applied to mapping all image values between the minimum and maximum image value. Values below the minimum are all mapped to the lowest color map value. Values above the maximum are all mapped to the highest color map value. \subsubsection{ Wrapped linear scaling } \label{wrapscale-sec} Wrapped linear scaling, as described above, divides the range of data values by the number of times the color table will roll over (the default is 10) and the result is divided by the number of color map values to determine the range of data values for each color map value. Values below the minimum are all mapped to the lowest color map value. The mapping continues to be rolled up to the highest map value ($=32767$; see \argname{-wrap} in section~\ref{cmd-sec}). \subsubsection{ Log scaling } \label{logscale-sec} The distribution of data values to color map values is based on the distribution of $e^n$ from 0 to $X$, where $n$ is a parameter (the default is 10.0) and $X$ is determined by $n$ and the two ranges (data and color map). Positive values of $n$ favor the lower data values, while negative values of $n$ favor the higher data values. Values below the minimum are all mapped to the lowest color map value. Values above the maximum are all mapped to the highest color map value (see \argname{-log} in section~\ref{cmd-sec}). \subsubsection{ Square root scaling } \label{sqrtscale-sec} The distribution of data values to color map values is based on the distribution of $X^{1/n}$ from 0 to 1, where $n$ is a parameter (the default is 2.0) and $X$ varies from 0 to 1 in steps determined by the number of color map values. Values of $n$ greater than 1 favor the lower data values, while values of $n$ less than 1 favor the higher data values (negative values and 0 are not allowed). Values below the minimum are all mapped to the lowest color map value. Values above the maximum are all mapped to the highest color map value (see \argname{-sqrt} in section~\ref{cmd-sec}). \subsubsection{ Histogram equalization } \label{histscale-sec} The principle of histogram equalization is described above. The histogram equalization algorithm in {\SAO} differs from common one-pass algorithms by accounting for disproportionately large occurrences of one or a few image values. In an image with 1000 pixels, 500 of which have the value 32, a one-pass algorithm, given 100 colors, will try to get 10 pixels for each color. It will end up with 49 unused colors, since one color covered 500 pixels. {\SAO}'s algorithm detects the peak (or peaks) in the histogram and allocates the remaining 99 colors among the 500 remaining pixels (5 pixels per color). \subsubsection{ Image scaling by IRAF } Images sent directly by {\IRAF} are already scaled to the range 1-200. {\IRAF}\,'s own scaling defaults to a windowed linear scaling where the window is determined by fitting a straight line to a small, 200 pixel, subsampled histogram. Further rescaling within {\SAO} is not very useful (see the {\IRAF} section). % Where *is* the IRAF section? \section{ Blinking between different stored display images } \label{blink-sec} The display, as it currently appears in the main display window, can be stored by your workstation's display server by clicking on the \menu{blink} button in the \menu{Scale} submenu. Three separate images can be saved, each one associated with a different mouse button. Each saved display is associated with the same mouse button used to click on the \menu{blink} button, and replaces any previous image associated with that mouse button. The saved display image can be redisplayed when in \menu{Scale} mode, by pressing its mouse button while the mouse pointer is in the display window. {\em (This mechanism is admittedly not intuitive. Suggestions from any human-factors types are welcome.)} Because the blink image is saved at the display server end of the X window system, it can be redisplayed much more quickly than the normal image drawing used by {\SAO}. You will see the difference when you release the \menu{blink} button. To blink between saved images, press down on another mouse button, before releasing the earlier button. The blinked image uses the existing color mapping. The colors are not restored to any previous setting. Therefore, one should keep the same color map settings when choosing displays for blinking, or manipulate the color map to find a setting which works for all of the blinking images. Saved display images may all be of the current image, or, more likely, may be made from different, successively loaded images. The saved image can only be used for blinking. Displaying a saved image does not re-enable any other {\SAO} functioning for that image. To be able to use the other functions on an image which is not the most recently read image, the image must be reloaded from its file (or {\IRAF}). All saved displays must match the current display window dimensions. {\SAO} unsaves all saved displays when the display window is resized. Not all X servers are guaranteed to support display saving (called {\em pixmaps}). {\SAO} will attempt to fall back on using image buffers within {\SAO} for saving image displays. Problems may occur when the user tries to mix halftone and color pixmaps. ({\em Some early X server implementations were known to perform the pixmap storage one pixel at a time in 20+ minutes or simply crash. Hopefully things have matured since those days.}) \section{Color under the X window system on color workstations} \label{color-sec} Most color workstations use an 8-bit color map, making it possible to choose a palette of 256 colors and to map each pixel on the screen to one of the 256 possible colors. Each of the 256 colors in the palette can be any color specified by its red, green, and blue intensities. By contrast, early IBM PC's commonly offer palettes of 4 or 16 colors selected from a restricted group of colors. At the other extreme, 24 bit displays allow each pixel to be mapped directly to virtually any color, defined by its red, green, and blue intensities (using 8 bits for each). X11 uses a color reservation system by which each application reserves a portion of the palette for its own use. Color reservation prevents an application from changing the colors of other applications present on the screen. Typically, {\SAO} will be able to reserve as many as 240 color entries in the palette. However, if you (or your window manager) have tailored your X environment by specifying a variety of unusual colors for terminal windows, the clock, and other commonly used applications, there will be fewer unreserved colors in the palette. Conversely, if you are running an {\SAO} which has reserved all of the available colors, you may be unable to bring up a new application which expects to be able to grab new colors of its own. A color in the palette is often referred to as a color cell (referring to its reservation) or color level (referring to its index between 0 and 255). {\SAO} uses color cells for more than just rendering the image. The adjustable cursor and the region cursors must also be referenced to colors in the color palette. When the cursor is drawn, pixels in the display are set to the value of the cursor color, overwriting the original image data. If no special care was taken, the image would gradually be erased as the cursor was moved about the display. To avoid this problem, {\SAO} uses either of two strategies for tracking the cursor while it is in motion. With one strategy, while the cursor is moving, or being adjusted, the bits in the displayed image are simply reversed to represent the cursor, and flipped back when the cursor moves away. This doesn't draw the cursor in its correct color, but, in most cases, it produces a visible cursor. When the cursor adjustment ends (the mouse button is released), the entire image is redrawn with the cursor in its new position. This same strategy is used to track the cursor on halftone displays. The other strategy actually reserves half of the colors just for drawing the cursor. In this alternative strategy, each image color level has a corresponding level in the palette which has the cursor color. The image color levels differ from those of the cursor by one bit, which can be set and unset to represent either the cursor or the image. Drawing the cursor simply involves manipulating the distinguishing bit in display memory. In this mode, cursor can be tracked smoothly in its correct color without erasing the image data. This system is analogous to reserving {\em planes} of display memory to be treated as overlay planes and image planes (X does not as yet recognize true hardware overlay planes). The advantage of the plane reservation strategy is that cursor tracking is visually flawless. The disadvantage is that fewer than half of the color levels are available for rendering the image. Fortunately, it is easy to switch between the two modes (using the \menu{ovlay} button), so one can choose whichever coloring strategy is most appropriate for the current activity. \subsection{ Color mapping } In order to maximize the use of the available colors, {\SAO} offers several facilities for assigning and altering colors in the palette. The association of a palette level with an image data value is handled by scaling and is explained in a separate section. There are basically three ways of assigning colors in the palette: {\em true color}, {\em gray-scale}, and {\em pseudocolor}. {\SAO} supports the last. {\SAO} also supports half-toning on non-color workstations and by selecting the \menu{mono} button in the color submenu (see section~\ref{halftone-sec}). In true color, each image data value has associated with it an actual color. True color mapping tries to associate colors, as near as possible to the true color, with each pixel in the image display. This is difficult where there are few colors in the palette. There is no support in {\SAO} for true-color mapping. In gray-scale, all pixels have the same color, but differ in intensity. Basically, the colors range from black to white, with shades of gray in between. It could also be done with some other color such as shades of red. The lowest data values appear black while the highest appear white (or visa-versa). The image appears as a black-and-white photograph might render it. {\SAO} simulates this on {\em pseudo-color} displays but does not support X terminals with actual gray-scale displays. In pseudo-color, any color can be assigned to any level, but all pixels with the same value will have the same color. Typically, one might use an analogy with heat, mapping the low values as shades of blue, the middle values in shades of red and the highest values as yellow or white. The idea is to use the colors to highlight differences among the data values. Depending on the levels which best distinguish the detail you wish to study, the shifts from blue to red and red to yellow can be placed at higher or lower image data values and closer together or farther apart. The changes in color can be made gradual or sharp. Color maps may simply be a list of colors for each level, or may be created by specifying a few colors and levels and interpolating to assign colors for the in-between levels. {\SAO} uses the latter. If one were to graph the color map, having intensity of color on one axis and palette level on the other, the graph would have fixed points with ramps or steps between them. The simplest gray-scale has no intensity for any color at one end of the palette and full intensity for all colors at the other end of the palette, with a straight line representing the interpolated colors in between. The color graph is in fact physically drawn by {\SAO} in a separate window, and can be directly manipulated. {\SAO} has a basic gray-scale and several pseudo-color maps available in the \menu{cmap} page of the \menu{Color} submenu. Once you have selected a color map, you may choose to manipulate it, as described below. Reselecting the same color map, or selecting a new color map from \menu{cmap} submenu, sets the selected color map, eliminating any adjustments you may have made. \subsection{ Color manipulation } The color graph window is normally not displayed. It is summoned (and hidden again) by clicking the mouse on the color bar next to the display window. In the graph, each color is graphed separately, with little squares to represent the fixed control points in the graph. Where two or more color lines overlap, the line (or box) appears black. One may create a new fixed point by positioning the mouse icon in the graph and pressing a mouse button. The three mouse buttons control red, green, and blue, respectively from left to right. By holding the mouse button (or buttons) down, the fixed point can be dragged anywhere on the graph. An existing fixed point can be grabbed for dragging by positioning the mouse icon over it when pressing the button. The graph can be adjusted, en mass, by moving the mouse in the main display window with a mouse button depressed. There are two different kinds of adjustment, {\em threshold/saturation} and {\em contrast/bias}, and an intensity adjustment called {\em gamma}. With threshold/saturation, moving the mouse horizontally moves the lower ({\em threshold}) end of the graph up or down, while moving the mouse vertically moves the upper ({\em saturation}) end of the graph up and down relative to the palette. With contrast/bias, moving the mouse along the axis of the color bar shifts the entire graph up or down ({\em bias}) relative to the palette, while moving the mouse perpendicular to the color bar moves the ends of the graph closer together or farther apart about a middle position ({\em contrast}). Threshold/saturation is easy to implement and common in older pseudo-color display systems. Contrast/bias corresponds more closely to the kinds of adjustments familiar to photographers. In both cases, the middle of the display window is the default graph position relative to the palette. \subsection{ Gamma correction } The intensities of the colors are normally given relative to voltage applied to the color guns in the monitor. Half intensity is half of full voltage. Unfortunately, this does not really correspond to the sensitivity of the eye. Double the voltage does not seem like doubling the intensity. Half voltage on a gray-scale does not seem like a middle gray. The gray-scale seems to favor the darker shades. The relationship between voltage and perception is generally thought to be an exponential one and is represented by the symbol $\gamma$ ({\em small gamma}). Changing the gamma produces a non-linear (exponential) adjustment in contrast. A gamma of between 2 and 2.2 is considered correct for a typical monitor. You can play with the gamma adjustment by selecting the \menu{gamma} mode in the \menu{Color} submenu. Moving the mouse horizontally in the main display window with a mouse button down adjusts the gamma. The gamma values for each color are printed beside the color graph. Gamma of 1 (linear) is in the middle of the main window. The intensity adjustment is applied directly to the palette colors and does not affect the points used to map the colors. Gamma values below 1 may be useful for sharpening the contrast before making a hard copy (see section~\ref{hdcp-sec}). You can drag beyond the main window for gamma values outside the normal range. Normally, all adjustments are applied equally to each of the three colors. However, the adjustments can be applied to any one or two of the colors by holding down the \key{Control} key. Then the three mouse buttons control red, green, and blue, respectively, as in the graph window. The \menu{invert} button in the \menu{Color} submenu inverts the intensities (minimum intensity becomes maximum intensity) without changing the graph points. \subsection{ Updating the graph and gamma display } Drawing the graph and printing the gamma values takes up computing time and may slow the response to your movement of the mouse. Therefore, while the colors are always continuously updated, updating of the graph occurs only when you finish (release the mouse button), unless you specifically request it. The \menu{track} button in the \menu{etc} submenu, controls whether the color graph is updated continuously or only upon completion of the manipulation. Tracking may be temporarily activated (or deactivated) by pressing a \key{Shift} key on the keyboard or toggling the \key{CapsLock} key. \subsection{ Saving color map entries and reading them back in } The current colormap can be written to a disk file, and a previously saved colormap can be read from a disk file. The format of the disk file is ASCII and can be edited if the format is followed. The file can have comments on any line, starting with a {\tt \#} symbol. The first non-comment word in the file must be {\tt PSEUDOCOLOR}. Each color's table is defined separately. Each color's table begins with the color name {\tt RED}, {\tt GREEN}, or {\tt BLUE}. The color name may optionally be followed by the word {\tt GAMMA}, then followed by a gamma value for that color. The vertex points in the table are defined by pairs: {\tt (level, intensity)}. The intensities range from $0.0$ (minimum) to $1.0$ (maximum). The levels range from $0.0$ (lowest level) to $1.0$ (highest level). The points must be in ascending order by level. All three colors must be described, and each color must have at least 2 points. When a color map is being manipulated, the effective levels of points may be shifted or stretched above $1.0$ or below $0.0$. These points are preserved in the disk file, and when read in, they may be shifted back into the visible range. The novice user should remember that if one starts with the {\bf A} colormap, shifts it, and then writes it out, the stored colormap is the shifted map, not the original {\bf A} map. \section{ Graphics cursors and cursor mode in SAOimage } \label{cur-sec} {\SAO} provides a variety of ``software'' cursors to identify or delineate areas of the image. These are not to be confused with the workstation's mouse cursor (the icon which moves as you move the physical mouse on the mouse-pad or desk top). The software cursors are selected and manipulated while in \menu{Cursor} mode, which is activated by selecting the \menu{Cursor} button in the main button menu. In this section, software cursors will be referred to as {\em cursors} and the mouse cursor (also called the pointer) will be called {\em the mouse}. Special cursor interactions which work in conjunction with {\IRAF} are discussed in the section on {\IRAF}. There are seven basic cursor shapes: {\em point}, {\em polygon}, rectangular {\em box}, {\em circle}, {\em ellipse}, {\em arrow}, and {\em text}. The cursor type is selectable by the corresponding button in the cursor button submenu (see section~\ref{btn-sec}). The box, circle, and ellipse cursor types can be used to make annuli of concentric equivalent cursors. Only one active cursor can exist at any given time. However, cursors can be stored, written to disk, and recalled using the \menu{region} features (see section~\ref{reg-sec}). The cursor is always displayed, even when it is not active (not in \menu{Cursor} mode). Since the active point cursor has no visible component, select it when you do not wish to have a cursor visible in your display. When a cursor is selected, its position, size, and orientation are manipulated by using the mouse (see section~\ref{mouse-sec}). As a general rule, the left mouse button controls the position of the cursor, the middle mouse button controls the shape or size of the cursor, and the right mouse button controls the angular orientation of the cursor (if it has one). You may either {\em click} or {\em drag} the mouse. Positions, dimensions, and angles (where applicable) are shared among the latter three cursors. The point and polygon cursors pose special cases to the rule; read about them separately, below. The text and arrow cursors are described separately, at the end. When {\SAO} is in its \argname{-verbose} mode (see section~\ref{cmd-sec}), the cursor's coordinates and dimensions are printed to the parent process's terminal window, each time a cursor manipulation is completed. \subsection{ Positioning } To position the cursor by clicking, move the mouse to the pixel where you want to center the cursor and then click the left mouse button. To position the cursor by dragging, press and continue holding down the left mouse button while moving the mouse. When the cursor is positioned where you want it to be, release the left mouse button. Note that you can use the magnifier tracking feature to aid in positioning the cursor and you can use the keyboard arrow keys to aid in fine positioning the mouse (see sections~\ref{kbd-sec} and~\ref{mouse-sec}). \subsection{ Sizing } To adjust the size or shape of the cursor, the same clicking or dragging procedure is used with the middle mouse button to position the cursor's edge while its center stays fixed. When sizing the box or ellipse, certain restrictions apply, depending on the position of the mouse when you first press the middle mouse button. If you are near to a line through the center and one corner of the box, you will be controlling the location of the corners of the box (adjusting both dimensions). If you are not near one of the diagonals, you will control only the width or height, depending on the side to which the mouse is closest. The ellipse is adjusted by controlling an imaginary box which encloses the ellipse. When adjusting the size of a cursor annulus, since the ratio of width to height is fixed, the mouse controls the actual edge of the cursor, regardless of its type. \subsection{ Rotation angle } The right mouse button is used to control the rotation angle of boxes and ellipses. When the right mouse button is pressed or held down, the angle is determined by a line from the center of the cursor to the mouse. The initial angle (0 degrees) points toward the top of the screen. To reset the angle to 0 degrees, click on the ortho button (\menu{0 degrees}) in the \menu{Cursor} submenu. For the circle cursor, the right button has no function, while for points and polygons it performs a special delete function (see below). \subsection{ Point cursor } The point cursor is used to flag particular image pixels or coordinate points. Its position is defined as that of the mouse. No active cursor is drawn. The mouse buttons are mapped directly to region functions (see section~\ref{reg-sec}). The left mouse button stores a point {\em include} region (to flag a pixel or coordinate of interest). The middle mouse button stores a point {\em exclude} region (to flag a bad pixel). With the mouse positioned to point at the first character in the label of a saved point, pressing the right mouse button deletes that saved point. Saved points are represented by a label giving either its pixel coordinates or an index number. By default, the label is stenciled over the image. However, if the label is too hard to read, the background around the label can be made solid by selecting the appropriate command line option. The point is at the left edge of the point label, and on a line with the bottom of the characters (not at the lowest edge of the background). When making hard copies, {\SAO} always fills in the label backgrounds (see section~\ref{hdcp-sec}). \subsection{ Polygon cursor } A polygon is defined by straight lines connecting a set of vertices. For the active polygon cursor, each vertex is represented by a tiny box. To add additional vertex points, drag or click with the middle mouse button. The next vertex is always added to the side nearest the mouse pointer when the middle button is depressed. To move an existing vertex, point the mouse directly at it when depressing the middle mouse button. To delete an unwanted vertex, point the mouse at the unwanted vertex and click the right mouse button. The entire polygon can be be moved at any time by using the left mouse button. When the left button is depressed, the polygon is moved such that the nearest vertex has the same position as the mouse pointer. Clicking on any cursor type submenu button, including the polygon, causes the polygon to be reduced back to a single point. In other words, if you switch cursor types, you cannot return to the polygon which you had been constructing, unless you saved it as a region. \subsection{ Cursor annuli } Annuli of box, circle, and ellipse cursors are available by selecting the \menu{annuli} button (concentric box icon) from the cursor submenu. Set the cursor to the desired shape and angle before selecting the annuli feature, as these cannot be changed once the annuli feature has been selected. (The annuli selection changes the functioning of the middle mouse button and disables any angle control.) Annuli are sized by clicking or dragging with the middle mouse button. The center, angle, and width to height ratio remain unchanged while sizing. When the middle mouse button is first depressed, three possible events may occur, enabling the user to 1) create an annulus with an arbitrary radius, 2) create annuli with fixed radius increments, or 3) change the size of an existing annulus. \begin{enumerate} \item If the mouse is between existing annuli or not too far from an existing annulus, a new annulus will be created sized by the mouse position. \item If the mouse is well outside the existing cursor annuli, a new cursor is create which radius is initially incremented from the outer annulus by the same increment as that between the outer two annuli (or the annulus and the center if there is only one annulus). A comparable situation applies when the mouse is well inside the innermost annulus. However, once the annulus is created, if you proceed to drag the mouse with the middle mouse button down, the size of the new annulus reverts to being controlled by the mouse. \item If the mouse is pointing at the edge of an existing annulus, that annulus will be grabbed for sizing. \end{enumerate} To delete an unwanted annulus, point the mouse at or near the unwanted annulus and click the right mouse button. The innermost or outermost annulus can be deleted simply by clicking the right mouse button while the mouse is inside or outside all of the annuli. All of the annuli are forgotten when any cursor submenu button is selected, or reselected. The \menu{annuli} button itself toggles between on and off. \subsection{ Arrow cursor } The arrow cursor consists of three line segments forming the shaft and head of the arrow. The left button positions the entire arrow (from its tip). The middle and right buttons move the tail end of the arrow shaft, while the tip stays fixed. Typically, one will place the head by an object of interest and then adjust the tail for a desired length and angle. Although the length of the tail adjusts to changes in image magnification, the size of the head has a fixed screen dimension. \subsection{ Text cursor } The text cursor allows you to put text strings on the image using the cursor mechanisms. The text string is fully editable, using the same line editor as used for command input (see the list of editor commands at the end of section~\ref{kbd-sec}). The current editor position is marked by an under-bar cursor. As with other cursors, the text cursor can be moved with the left mouse button. The middle and right buttons have no effect. The position of the text cursor is at its lower-left corner. The size of the text font does not change with changes in image magnification. To save the string, as a region, use the \key{Return} key ({\em include} color) or the \key{LineFeed} key ({\em exclude} color). The {\em include} text string is drawn with a black background, while the {\em exclude} text string is always drawn with a white background. For hard copy, this allows you to choose white-on-black or black-on-white (see section~\ref{hdcp-sec}). \subsection{ Cursor color } \label{halftone-sec} Tracking a cursor means updating the displayed cursor as its shape, size, or location is being manipulated, enabling the user to see the effect of the manipulation. Tracking a visible cursor across the display poses a special problem; how to quickly draw and undraw the cursor as it moves, without wiping out the image underneath. {\SAO} uses two alternative mechanisms to do this. On halftone workstations, the tracking cursor is drawn simply as the opposite color ({\em exclusive or}) of the image. Black pixels appear white and white pixels appear black as the cursor tracks across them. When the tracking action is completed (when the mouse button is released), the entire display is redrawn, along with the new cursor. The same mechanism, as that used on halftone systems, is used on color workstations when a large number (more than 100) of display color levels is needed. During tracking, the inverse of the display pixels may not result in very noticeable colors, but at least the {\em shimmering} of the display, as the cursor moves, makes it possible to see where the cursor is. When many cursor manipulations are to be performed, a better alternative is available. One bit in each color value is reserved for the cursor. Then the cursor may be drawn and undrawn without affecting the display. This results in a smooth, continuous display of the cursor throughout any tracking interaction, with no need to redraw the image at the completion of the action. The disadvantage is that the number of available colors for the image is cut by a factor of two (plus two more colors for the saved regions and other overlay graphics). ({\em Note: Some versions of Sun's OpenWindows do not correctly undraw the text cursor in this mode.}) On color workstations, one may switch freely between the overlay and non-overlay modes by using the \menu{ovlay} toggle button in the \menu{Color} submenu. See section~\ref{color-sec} for more details. \section{ SAOimage cursor regions } \label{reg-sec} A region is a cursor which has been stored. {\SAO} cursors can be stored, recalled, written to disk, and read from disk using the region features. Region controls work only when {\SAO} is in cursor mode. Regions were designed for use with SAO's \PROS/\IRAF\ image analysis software, but they can be generally useful. There are two classes of regions; {\em include} and {\em exclude}. When used by the \PROS\ software, an {\em include} region indicates an area of interest for analysis (e.g. for counts within a region). An {\em exclude} region indicates areas or pixels to be excluded from analysis (e.g. bad pixels or areas affected by other phenomena such as an adjacent source). \subsection{ Saving and unsaving } To save the current cursor as a region, type the `\key{S}' key for an {\em include} region or the `\key{E}' key for an {\em exclude} region. To unsave the most recently saved region, type the `\key{Delete}' key. To unsave an arbitrary region, place the mouse within that region and type the `\key{D}' key. If the mouse is within two regions when the `\key{D}' key is typed, the smaller region is deleted. Exceptions to these rules apply to the point or text cursor types. When a point cursor is the active cursor, the three mouse keys are mapped to perform the same functions as the `\key{S}' key (left mouse button), the `\key{E}' key (middle mouse button) and the `\key{D}' key (right mouse button). Only point regions can be deleted with the right mouse button. For purposes of deleting, the area of a point region is defined to be the area of the first character of its label. When a text cursor is the active cursor, the `\key{S}', `\key{E}', and `\key{Delete}' keys have the above functions only when the mouse is outside of the main display window. With the mouse inside the main display window, all keys are used for text entry and editing. Pressing the `\key{Return}' key saves the text string as an {\em include} region, while pressing the `\key{LineFeed}' key saves the text string as an {\em exclude} region. In either of these cases, the cursor position is advanced for starting a new line of text. See below for special coloring differences which also apply to text regions. Saved regions are normally drawn and labeled. On color workstations, {\em include} regions are drawn in yellow, while {\em exclude} regions are drawn in red. The label usually has three parts: the coordinates of the center, a line from the center to the edge along the region's positive Y axis, and the length of the radius along that line. The radius is followed by a `{\tt +}' for {\em include} regions or a `{\tt -}' to indicate an {\em exlude} region. Only the center coordinate is given for a point (followed by a `{\tt +}' or `{\tt -}'). The point is at the left edge of the label and on a line along the bottom of the label characters. Polygons have no labels. The text region also has a background. For the {\em include}, this background is black, while for the {\em exclude}, the background is white. When making a hardcopy, the {\em include} text region is drawn white on black, while the {\em exclude} text region is drawn black on white. \subsection{ Menu controls } In the \menu{Cursor} submenu, the \menu{region} button toggles between the \menu{cursor} control page and the \menu{region} submenu page. In the \menu{region} submenu page, the \menu{label} button suppresses labeling of the regions. The \menu{view} button completely suppresses display of the regions. These buttons are both toggle buttons which are turned on or off when pressed. The \menu{cycle} button makes the cursor an exact copy of a region ({\em recalling} the cursor). The center of that region and its sequence number are displayed in the magnifier window. Repeatedly pressing \menu{cycle}, copies each region in turn ({\em cycles through} the regions). The cycled cursor is a normal cursor and can be manipulated. The copied region is unaffected by \menu{cycle}. However, the just copied region can be deleted by pressing the \menu{omit} button. The \menu{omit} button only works if the cursor has just been cycled to that region. Once you alter the cursor, \menu{omit} is disabled. To adjust a region, \menu{cycle} the cursor to that region, \menu{omit} the original region, adjust the cursor, and then save the cursor as a new region. The \menu{reset} button clears the memory of all regions ({\em deletes} all regions). The \menu{read} and \menu{write} buttons read and write ASCII descriptions of regions to or from a disk file. \subsection{ Regions as ASCII disk files } After saving one or more regions, the stored regions can be written to a disk file. Normally the regions are written in a format which can be parsed by the \PROS/\IRAF\ software. If {\SAO} is in \argname{-imtool} mode, it mimics {\IRAF}\,'s \task{imtool} output, which is simply a list of coordinates for the centers of cursors. Either type of file can be read at any time, regardless of the mode. A \PROS\ region consists of a leading space ({\em include}) or `-' sign ({\em exclude}) followed by the name of the region type, its center coordinates in file pixels, and then its radius on its X axis, its radius on its Y axis, and its angle in degrees (counter clockwise from straight up as per astronomical convention). Some regions don't have angles (or the angle 0 is not given), circles have only 1 radius, and points have no radii. Polygons are represented by pairs of coordinates (X,Y,X,Y,...). Arrows and text are also saved, but appear as comments. While {\SAO} can read these back in, they will not confuse other programs which are interested only in the spatial regions. See the \PROS\ region documentation for a full explanation. \begin{quote} \begin{verbatim} # images/m51.fits # Mon Jan 16 16:09:43 1989 # shape x, y, [x dimension, y dimension], [angle] BOX(135.67,213.00,18.00,10.67) BOX(504.00,538.00,16.96,106.53,290.714) CIRCLE(129.00,306.67,9.89) -ELLIPSE(486.00,468.00,36.53,44.08,329.036) -POINT(83.00,349.00) POLYGON(131.00,245.00,120.67,280.33,165.00,245.00,140.00,234.67) \end{verbatim} \end{quote} Annuli of boxes and ellipses are not supported basic \PROS\ region types. They are implemented as logical combinations of the basic \PROS\ types. \begin{quote} \begin{verbatim} BOX(149.67,205.00,10.00,4.00) BOX(149.67,205.00,20.00,8.00) & !BOX(149.67,205.00,10.00,4.00) BOX(149.67,205.00,30.00,12.00) & !BOX(149.67,205.00,20.00,8.00) \end{verbatim} \end{quote} The above example defines a center area surrounded by two concentric rings. When \menu{write} is pressed, a popup window appears to prompt the user for the filename. The window may be initialized to a default, or the previously given filename. To select a different name, edit the name in the window (see section~\ref{kbd-sec}). If the named file already exists, another popup window appears with the options to overwrite the existing file (`\key{o}'), append to the existing file (`\key{a}'), or quit without writing anything (`\key{q}'). \PROS\ format files which were previously written can be read back in. Press the \menu{read} button and give the name of the file. Reading does not support the full \PROS\ region syntax (i.e. {\sf PIE} slices are not supported), but much of the syntax is supported, including any syntax used by the \menu{write}. Regions read from disk are added to any regions already stored. The output as an \task{imtool} list, equivalent to the first example, would look like the following: \begin{quote} \begin{verbatim} # images/m51.fits # Fri Jan 20 13:35:36 1989 # (x, y) 136 213 504 538 129 307 486 468 83 349 131 245 149 205 \end{verbatim} \end{quote} If your environment has been properly initialized as for an {\IRAF} \task{imtool} user, the default list output filename will follow standard {\IRAF} conventions. When read by {\SAO}, the list coordinates are all read as {\em exclude} points. \section{ Image panning and zooming in SAOimage } \label{pan-sec} The loaded image may be panned and/or zoomed for its display in the central display window. Panning and zooming are interactively controlled by clicking or dragging the mouse in the {\em pan window}. The pan window is the small image window at the top of the desktop, next to the magnifier. The pan window shows the entire area of the loaded image. (By default the image in the pan window was reduced by taking the maximum value in each block of the original image, but averaging, summing, or subsampling may be used instead---see section~\ref{cmd-sec}). A box cursor in the pan window shows the area of the image currently being displayed in the main display window. This box can be moved and sized just like the regular box cursor (but without angular rotation control). The left mouse button controls the location of the center of the box (the display image). The middle button controls the edge of the box, for the given center, thus determining its size. The size of the box is restricted to integer zoom factors. (The actual algorithm choses the smallest zoom that still includes the mouse pointer's position.) With a three button mouse, one can switch from one type of control to the other, by holding the first button down, until after the second button has been pressed. The interaction can be cancelled by dragging the pointer outside of the pan window's borders. Only after the last button is released is the main display redrawn, with the indicated pan and zoom. When the mouse is in the pan window, the area under the mouse pointer can be magnified in the magnifier by pressing or holding the shift key on the keyboard. The \key{T} key table also works with the pointer in the pan window (see section~\ref{kbd-sec}). As anywhere else, the arrow keys can be used for fine positioning. In \menu{pan} mode, the same types of interactions as those used in the pan window can be performed in the main display window. Clicking or dragging with the left button controls the center of the display. Clicking or dragging with the middle button determines the zoom factor. The box cursor in the pan window tracks these manipulations as the mouse is dragged in the display window, just as it does when it is being directly manipulated in the pan window. The \menu{pan} submenu allows a more basic method of changing the zoom (e.g. \menu{x4} or \menu{x1/2}). The \menu{center} button centers the display on the image and the \menu{zoom 1} sets it to one display pixel per image pixel. \section{ Using the mouse in SAOimage } \label{mouse-sec} As with most interactive workstation programs, {\SAO} uses the mouse and its buttons for many of its interactions. To take full advantage of {\SAO}'s features, the user must understand how to use the mouse. There are three basic types of mouse interactions: moving, clicking, and dragging. Moving means moving the mouse while keeping it flat on its mouse pad or desk surface. Clicking means pressing one of the buttons on the mouse and then releasing it. Dragging means holding one or more of the mouse's buttons down while moving the mouse. Rotating the mouse is not a meaningful action. The mouse is represented on the screen by an {\em icon}, a simple symbol about a half centimeter on a side, which moves on the screen as you move the mouse on your table. The box with buttons which you hold in your hand and the icon on the screen are interchangeably (or in concert) referred to as the mouse. In X11 literature, the mouse is commonly referred to as the {\em pointer}. The mouse {\em occupies} a window or object when its icon on the screen is within the borders of that window or object. Within {\SAO}, the mouse interaction (as well as the keyboard interaction) is generally governed by the mode of the main menu (see section~\ref{btn-sec}) and the window or object which the mouse occupies. This means that the response to actions taken with the mouse in one window may differ from the response when the mouse is in a different window. The window associated with a particular mouse interaction is called its {\em focus}. In some cases, it may be possible to continue a {\em dragging} action beyond the edge of a window without shifting the focus to another window. Some window managers require the user to click on an application's window before that application can receive any events. This is called {\em click-to-focus}. Commonly, this initial click is also passed to the application as an event. Since you may not have intended anything more than to set the focus, remember to do your {\em click-to-focus} in the inactive, upper-left, region of {\SAO}'s main window, or better yet, change the window manager's {\em click-to-focus} behavior to {\em focus-follows-mouse}. The mouse icon has a point (called the {\em hot spot}) which is used to determine its screen coordinates. This point is usually in the center of the icon or at a corner. The shape of the icon should make it easy to guess where the hot spot is. The mouse location (or {\em where the mouse is pointing}) refers to the hot spot. Often dragging is initiated by pointing the mouse at a particular object (i.e. the vertex of a graph or polygon) as the appropriate mouse button is pressed, and then dragging that object while continuing to hold the mouse button down. For machines with a two-button mouse (e.g. IBM PS/2) the middle button is indicated by holding both buttons down at the same time. On those machines, the initial response to a mouse button has a noticeable delay to smooth over differences in depression time of the two buttons, should a two-button event be intended. On machines with a three-button mouse, some interactions may be performed while dragging with more than one mouse button down at the same time. In the color graph, for example, where each mouse button corresponds to one of the three display colors (red, green, blue), one can manipulate all three color simultaneously by dragging a vertex while holding all three buttons down. Some actions perform a complete response only after the last mouse button is released. For example, in the pan window, you may manipulate both the magnification and the center of the main display window (zoom and pan). The main display window is not actually redrawn until all mouse buttons are released. The area that would appear in the main display window, if the mouse buttons were released at that point, is represented by a box drawn in the pan window. With a three-button mouse, you may switch directly from adjusting the zoom to adjusting the pan (or visa-versa) by pressing the other mouse button down while still holding the former button down. \subsection{ Tracking } Some interactions actually {\em track} the mouse. By this we mean that which is being controlled is repeatedly updated as the mouse is moved, giving the impression of smooth, continuous change. An example of this is moving a cursor with the mouse. As you move the mouse, the displayed cursor moves across the screen. Another example is the magnifier window. As you move the mouse, the view in the magnifier shifts (or pans), as if watching moving scenery. While tracking is generally desirable, your workstation processor may not be fast enough to make many repeated updates for the illusion of smooth continuous change. This is especially a problem for complicated processes (e.g. redrawing the main display window or drawing several elliptical annuli) or when many things are all tracking at the same time (e.g. changing the colors while also updating the graph which represents the color map). When this happens, the effect of moving the mouse may lag annoyingly behind the actual movement of the mouse. Recognizing that some processors are slower than others, {\SAO} allows some tracking actions to be enabled or disabled. The magnifier window can track the mouse as it moves across the main display or pan windows. The color table graph can track changes to the color map as they are controlled either in the main display window or directly on the graph (see section~\ref{color-sec}). Both of these tracking functions are enabled or disabled by the \menu{track} button in the \menu{etc} button submenu. The \menu{track} selection can be overridden (reversed) temporarily by pressing the \key{Shift} key or more long term by toggling the \key{CapsLock} key. The running text display of the mouse coordinates and the corresponding pixel value can be enabled or disabled by the \menu{coord} button in the \menu{etc} button submenu. This is also overridden by the \key{Shift} and \key{CapsLock} keys. \subsection{ Fine movement } {\SAO} uses the user's default mouse movement velocity settings. To move the mouse one pixel at a time in any direction, use the keyboard {\em arrow} keys (see section~\ref{kbd-sec}). The arrow keys can be used at any time in place of physically moving the mouse. Thus to perform a fine movement while dragging, hold the mouse steady with the mouse button (or buttons) depressed with one hand, while pressing the appropriate arrow keys with the other hand. If you are not already tracking, you may wish to hold the \key{Shift} key down as you do so, to better see the effect of the fine movements. \section{ SAOimage keyboard input } \label{kbd-sec} Many of the keys on the keyboard are mapped to perform useful functions. Striking the key results in an immediate response. The response may be dependent on the window in which the mouse cursor is positioned. Some responses are also dependent on the main menu mode (e.g. \menu{Cursor}). Both upper and lower case are mapped the same. In addition to the instant action keys, the \key{Control}, \key{Shift}, and \key{Meta} (left and right) keys change the response to mouse actions when held down while performing the mouse action. Sometimes, {\SAO} will ask for text or numeric input with a pop-up window. Input in this situation is as one would expect and is unaffected by the mappings which are otherwise in effect. The cursor read-back mode of {\IRAF} also overrides many keyboard functions. \subsection{ Key commands } \label{key-sec} \begin{description} \item[\key{Up Arrow}, \key{Down Arrow}, \key{Left Arrow}, \key{Right Arrow}:] The four arrow keys can be used to move the mouse cursor one screen pixel in the given direction. The mouse interaction is exactly as if you moved the mouse by hand. This facilitates fine positioning and works in all windows and all modes. \item[\key{R}:] ({\em raise}) Raise all {\SAO} windows to the front of any other windows on the screen. The `\key{A}' key also performs this function. \item[\key{A}:] ({\em refresh}) Raise and redraw the display windows. This is equivalent to \key{Ctrl-L} in a character terminal window. \item[\key{N}:] ({\em new}) enter new command-line arguments. This brings up a popup window for text input. Use the same switches and arguments as you would on the command line (see COMMAND LINE). All of the command line arguments which affect selection and display of an image can be used. Some configuration arguments (e.g. \argname{-display}, \argname{-geometry}, and \argname{-gd}) are not effective at this time. \item[\key{T}:] ({\em table}) When the mouse is in the main display window or the pan window, this prints a table of the pixel values surrounding the current mouse position. The table is printed in the terminal window from which {\SAO} was called. If known, the original file values are shown. Otherwise, scaled approximations are used. (\key{L} has a seemingly similar effect but is useful only for debugging purposes). \item[\key{S}:] ({\em save}) When in cursor mode, and the mouse is in the display window, the current cursor is saved as a region (of type include). \item[\key{E}:] ({\em exclude}) When in cursor mode, and the mouse is in the display window, the current cursor is saved as a region (of type exclude). \item[\key{D}:] ({\em delete}) When in cursor mode, and the mouse is in the display window, the smallest region which encloses the mouse is deleted. In the case of a point region, its area is defined as the area of the first character of its label. \item[\key{Delete}:] When in cursor mode, and the mouse is in the display window, the most recently saved region is deleted. \end{description} \subsection{ Modifier keys } For an explanation of mouse clicking and dragging, see section~\ref{mouse-sec}. \begin{description} \item[\key{Shift}:] Holding the \key{Shift} key down toggles the \menu{track} and \menu{coord} tracking actions. If no tracking was selected and the mouse is in either the main main display window or the pan window, touching the \key{Shift} key will update the magnifier window to the current mouse location. If the mouse is in the main display window, the coordinates and pixel value will also appear in the upper right, above the buttons. If you are in \menu{Color} mode and dragging the mouse with a button down in either the main or color graph window, the graph will be updated to the current state of the color table. By contining to hold the \key{Shift} key down, tracking will continue to update as you move the mouse. If you were tracking before touching the \key{Shift} key, pressing the \key{Shift} key will suspend tracking, enabling you to preserve the existing tracking displays while moving the mouse. \item[\key{CapsLock}:] Toggling to caps mode by using the \key{CapsLock} key has the same effect as holding the \key{Shift} key down. When using this option, you may need to toggle it off to make normal text entry in the pop-up or a terminal window. \item[\key{Control}:] When manipulating the color map in the main diplay window, holding the \key{Control} key down, restricts the effect to only the color(s) corresponding to the mouse button(s) being pressed (left=red, middle=green, right=blue). \item[\key{Meta}:] The \key{Meta} keys have traditionally been used for window manager functioning. {\SAO} normally ignores keyboard and mouse input while a \key{Meta} key is held down. \end{description} \subsection{ Editable text input } When {\SAO} needs string input, such as the name of a file or new command line arguments, it presents a pop-up window for you to type in. The line starts with a default already typed in. Many keyboard editor keys are recognized, including the arrows. The popup window also recognizes many Emacs style line edit commands. The input is taken when the user strikes the \key{Return} key. \begin{description} \item[\key{Ctrl-A}:] Move text cursor to beginning of line \item[\key{Ctrl-B}:] Move the text cursor back one character (backspace) \item[\key{Ctrl-C}:] Abort the interaction and return to {\SAO} \item[\key{Ctrl-D}:] Delete the character under the text cursor \item[\key{Ctrl-E}:] Move the text cursor to the end of the line \item[\key{Ctrl-F}:] Move forward one space \item[\key{Ctrl-G}:] Clear escape if just typed \item[\key{Ctrl-K}:] Delete all characters from the text cursor to the end of the line \item[\key{Ctrl-N}:] Recall next input line (clear input line if no next in buffer) \item[\key{Ctrl-P}:] Recall prior input line \item[\key{Delete}:] Delete character before the text cursor \item[\key{Esc-B}:] Move to beginning of previous word \item[\key{Esc-D}:] Delete to end of next word \item[\key{Esc-F}:] Move to end of next word \end{description} For numeric input, the typed input must be in acceptable integer or real (where allowed) format. Multiple entries, when desired, must be separated by spaces, commas, or tabs. (The line is read using scanf). The above edit commands, with the exception of \key{Ctrl-C}, \key{Ctrl-N}, and \key{Ctrl-P}, also apply to the text cursor. \section{ Outputting an image to a laser printer } \label{hdcp-sec} Clicking on the \menu{print} button in the \menu{etc} submenu dumps a hardcopy of the main display image to a PostScript printer. The output image includes the central display window and the colorbar. Any cursors showing in the display window are included in the output. This is a monochrome file, not color PostScript. In order to get a hardcopy that looks something like what you have on the screen, it is best to use the \menu{gray} colormap. You should find a good scaling for the image and manipulate the contrast with the \menu{gamma} control. The output image will be dithered by the PostScript printer's own dithering algorithm. On color workstations, the image is read from the screen and includes any graphics which may be showing. The image also includes the upper portion of {\SAO} (the title area and two auxiliary windows). By default, the buttons are not included, but they may be included by first using the \argname{-lprbuttons} switch on the command line. \menu{Cursor} and \menu{region} graphics are colored, white of black, to contrast with the lowest image value's color (the low end of the color bar). Saved text cursors are colored white-on-black or black-on-white depending on whether they were saved as {\em include} and {\em exclude} regions. When {\SAO} is in its \menu{mono} (halfone display) mode, an image of the display window, only, is created and printed. This image is made directly from the internal data, using the current scaling information, and does not include any cursor graphics. (It will include markings made with {\IRAF}\,'s \task{tvmark} task). The output file can be directed anywhere by setting the \verb+R_DISPOSE+ environment variable. The \verb+R_DISPOSE+ string is a format statement for an sprintf which creates the UNIX command, where `\verb+%s+' will be replaced by the output file's temporary filename. The default is `\verb+lpr -Plw -r %s+'. The \argname{-r} in the print statement deletes the PostScript file after being printed. One could, for example, set \verb+R_DISPOSE+ to `\verb+mv %s /tmp/foo.ps+' to save the file for later use. If no \verb+R_DISPOSE+ environment variable is set, {\SAO} looks for a \verb+PRINTER+ environment variable. If one is set, the hardcopy will be sent to that printer. If no \verb+PRINTER+ variable is found, the default destination is lw. The PostScript file is scaled to fill an 8.5x11 inch page (regardless of the printer resolution). To get a smaller image, centered on the page, see the comment included in the ASCII section at top of the output file. Sending an image to a printer over serial lines at 9600 baud, as is common for some Apple printers, will tie up the printer for about 12 minutes. Be considerate of other users who may wish to use the printer. While this is generally a sufficient and convenient form of hardcopy, the user may also wish to try \task{xwd} or one of the other window dump facilities available for X11. \end{document} saoimage-1.08/doc/manual.toc 666 21641 13 7307 5202366572 11073 \contentsline {section}{\numberline {1} SAOimage command line arguments }{1} \contentsline {section}{\numberline {2} SAOimage button menus and submenus }{7} \contentsline {subsection}{\numberline {2.1} Where to find more information }{8} \contentsline {subsection}{\numberline {2.2} Explanation of items in the ``etc'' submenu }{8} \contentsline {subsection}{\numberline {2.3} User interface issues }{9} \contentsline {section}{\numberline {3} Scaling image file values to the range of the display color map }{9} \contentsline {subsection}{\numberline {3.1} Range of image data versus size of color map }{9} \contentsline {subsection}{\numberline {3.2} Basic scaling theory }{10} \contentsline {subsection}{\numberline {3.3} Scaling distributions }{10} \contentsline {subsection}{\numberline {3.4} Non-linear distributions }{10} \contentsline {subsection}{\numberline {3.5} Histogram equalization }{10} \contentsline {subsection}{\numberline {3.6} Windowing the scaling }{11} \contentsline {subsection}{\numberline {3.7} Wrapping the color map }{11} \contentsline {subsection}{\numberline {3.8} Scaling implementation and efficiency within SAOimage }{11} \contentsline {subsubsection}{\numberline {3.8.1} Linear scaling }{12} \contentsline {subsubsection}{\numberline {3.8.2} Wrapped linear scaling }{12} \contentsline {subsubsection}{\numberline {3.8.3} Log scaling }{12} \contentsline {subsubsection}{\numberline {3.8.4} Square root scaling }{13} \contentsline {subsubsection}{\numberline {3.8.5} Histogram equalization }{13} \contentsline {subsubsection}{\numberline {3.8.6} Image scaling by IRAF }{13} \contentsline {section}{\numberline {4} Blinking between different stored display images }{13} \contentsline {section}{\numberline {5}Color under the X window system on color workstations}{14} \contentsline {subsection}{\numberline {5.1} Color mapping }{15} \contentsline {subsection}{\numberline {5.2} Color manipulation }{16} \contentsline {subsection}{\numberline {5.3} Gamma correction }{16} \contentsline {subsection}{\numberline {5.4} Updating the graph and gamma display }{17} \contentsline {subsection}{\numberline {5.5} Saving color map entries and reading them back in }{17} \contentsline {section}{\numberline {6} Graphics cursors and cursor mode in SAOimage }{17} \contentsline {subsection}{\numberline {6.1} Positioning }{18} \contentsline {subsection}{\numberline {6.2} Sizing }{18} \contentsline {subsection}{\numberline {6.3} Rotation angle }{18} \contentsline {subsection}{\numberline {6.4} Point cursor }{19} \contentsline {subsection}{\numberline {6.5} Polygon cursor }{19} \contentsline {subsection}{\numberline {6.6} Cursor annuli }{19} \contentsline {subsection}{\numberline {6.7} Arrow cursor }{20} \contentsline {subsection}{\numberline {6.8} Text cursor }{20} \contentsline {subsection}{\numberline {6.9} Cursor color }{20} \contentsline {section}{\numberline {7} SAOimage cursor regions }{21} \contentsline {subsection}{\numberline {7.1} Saving and unsaving }{21} \contentsline {subsection}{\numberline {7.2} Menu controls }{22} \contentsline {subsection}{\numberline {7.3} Regions as ASCII disk files }{22} \contentsline {section}{\numberline {8} Image panning and zooming in SAOimage }{24} \contentsline {section}{\numberline {9} Using the mouse in SAOimage }{24} \contentsline {subsection}{\numberline {9.1} Tracking }{25} \contentsline {subsection}{\numberline {9.2} Fine movement }{26} \contentsline {section}{\numberline {10} SAOimage keyboard input }{26} \contentsline {subsection}{\numberline {10.1} Key commands }{26} \contentsline {subsection}{\numberline {10.2} Modifier keys }{27} \contentsline {subsection}{\numberline {10.3} Editable text input }{28} \contentsline {section}{\numberline {11} Outputting an image to a laser printer }{29} saoimage-1.08/doc/manual.log 666 21641 13 2732 5202366572 11064 This is TeX, C Version 3.14t3 (format=lplain 91.6.26) 21 APR 1992 12:05 **manual.tex (manual.tex LaTeX Version 2.09 <7 Dec 1989> (/usr/local/lib/tex/inputs/article.sty Document Style `article' <16 Mar 88>. (/usr/local/lib/tex/inputs/art11.sty) \c@part=\count79 \c@section=\count80 \c@subsection=\count81 \c@subsubsection=\count82 \c@paragraph=\count83 \c@subparagraph=\count84 \c@figure=\count85 \c@table=\count86 ) (manual.aux) [0 ] (manual.toc [1]) \tf@toc=\write3 [2] [1 ] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] Underfull \vbox (badness 4108) has occurred while \output is active \vbox(614.295+0.0)x469.75499, glue set 3.4533 .\glue(\topskip) 2.39584 .\hbox(7.60416+2.12917)x469.75499, glue set 0.06447 ..\elvrm p ..\elvrm r ..\elvrm o ..\kern0.30417 ..\elvrm d ..etc. .\penalty 150 .\glue(\baselineskip) 3.86668 .\hbox(7.60416+2.12917)x469.75499, glue set 176.32515fil ..\elvrm a ..\elvrm n ..\elvrm d ..\glue 3.65 plus 1.825 minus 1.21666 ..\elvrm z ..etc. .etc. [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] (manual.aux) ) Here is how much of TeX's memory you used: 183 strings out of 4463 1716 string characters out of 63241 34237 words of memory out of 262141 2127 multiletter control sequences out of 9500 18996 words of font info for 72 fonts, out of 72000 for 255 14 hyphenation exceptions out of 607 14i,9n,15p,187b,266s stack positions out of 300i,40n,60p,3000b,4000s Output written on manual.dvi (32 pages, 123064 bytes). saoimage-1.08/rgnwrite.c~ 666 21641 13 13645 5012620052 10550 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgnwrite.c (Region Write) * Purpose: Write descriptions of saved regions to a file * Subroutine: write_regions() returns: void * Subroutine: timestamp() returns: void * UNIX calls: time(), asctime(), localtime(), fclose() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 July 1989 * {1} MVH removed comma from list output 7 Dec 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, FILE, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* needed for asctime() */ #include /* get X types and constants */ #include /* X window manager, visual stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/color.h" /* colors used by cursor */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* define SZ_FNAME, MIN, MAX, etc. */ #include "hfiles/image.h" /* image description structure */ #include "hfiles/edit.h" /* define EditStruct */ #include "hfiles/extern.h" /* pass common structures */ #ifndef VMS #define IRAFFILE "frame.%d.%d" #else #define IRAFFILE "frame.%d_%d" #endif char *ProsName = "saoimage.reg"; EditStruct *region_edit; /* * Subroutine: write_regions * Purpose: Write region info to a file */ void write_regions ( cursor, image, output_type ) struct cursorRec *cursor; struct imageRec *image; int output_type; /* i: SOP_Imtool or SOP_PROS */ { FILE *fd; static int last_output_type = 0; char fname[SZ_FNAME]; static void write_region_imtool(); int open_output_file(); EditStruct *init_edit_popup(); void set_path_iraf(), write_region_pros(), load_edit_struct(), timestamp(); /* return if there is nothing to write */ if( cursor->next_region == NULL ) { (void)fprintf(stderr, "WARNING: no saved cursors to write!\n"); return; } /* imtool type output is different */ if( output_type == SOP_Imtool ) { if( last_output_type != SOP_Imtool ) { /* get name of coordinate output file */ strcpy (fname,img.filename); strcat (fname,".plist"); /* sprintf(fname, IRAFFILE, 1, 1); */ /* set_path_iraf(fname); */ if( region_edit == NULL ) region_edit = init_edit_popup(fname, SZ_FNAME); else load_edit_struct(region_edit, fname, strlen(fname)); last_output_type = SOP_Imtool; } /* open coordinate output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for IRAF list:") <= 0 ) return; /* timestamp the first entry in the output file. */ /* timestamp(fd, image->filename); */ /* put in a line to explain parameter list */ /* (void)fprintf(fd, "# (x y)\n"); */ write_region_imtool(fd, cursor->next_region, image); } else { if( last_output_type != SOP_PROS ) { if( region_edit == NULL ) region_edit = init_edit_popup(ProsName, SZ_FNAME); else load_edit_struct(region_edit, ProsName, strlen(fname)); last_output_type = SOP_PROS; } /* open region output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for regions:") <= 0 ) return; /* timestamp the first entry in the output file. */ timestamp(fd, image->filename); /* put in a line to explain parameter list */ (void)fprintf(fd,"# shape x, y, [x dimension, y dimension], [angle]\n"); /* write the pros region specifications */ write_region_pros(fd, cursor->next_region); } (void)fclose(fd); } /* * Subroutine: write_region_imtool * Purpose: Write region info in imtool's format (iraf "list") * Note: Output is a list of ascii pairs giving only center coords */ static void write_region_imtool ( fd, region, image ) FILE *fd; struct cursorRec *region; struct imageRec *image; { if( region != NULL ) { /* recurse first to reverse order of regions */ if( region->next_region != NULL ) write_region_imtool(fd, region->next_region, image); if( image->index_base ) (void)fprintf(fd, "%d %d\n", RND(region->file.X), RND(region->file.Y)); else (void)fprintf(fd, "%d %d\n", (int)region->file.X, (int)region->file.Y); } } /* * Subroutine: timestamp * Purpose: Write date and filename (if known) to region file */ void timestamp ( fd, imagename ) FILE *fd; char *imagename; { char line[SZ_LINE]; int len; static void set_time_string(); /* timestamp the first entry in the output file. */ set_time_string (line); /* get rid of any trailing new line */ len = MAX(0, strlen(line) - 1); if (line[len] == '\n') line[len] = '\0'; /* print file name if one is given */ if ((imagename != NULL) && (strlen(imagename)) != 0) { (void)fprintf(fd, "# %s\n", imagename); } /* print date and time */ (void)fprintf(fd, "# %s\n", line); } /* * Subroutine: set_time_string (time) * Purpose: Print the time in the passed string * UNIX calls: time(), asctime(), localtime() */ static void set_time_string ( time_string ) char *time_string; { long timeofday; #ifndef VMS /* I don't know where this should be defined, it's not in */ /* it's a time_t which is defined as a long in */ long time(); #endif timeofday = time((long *)0); /* note asctime(localtime()) can be replaced by ctime() in newer OS's */ (void)strcpy(time_string, asctime(localtime(&timeofday))); } saoimage-1.08/makefile.sun~ 666 21641 13 30261 5003371733 11051 # # Makefile for saoimage # # May 8, 1990 # # IFLAGS: image reading code to be built into saoimage # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # # MFLAGS - machine or library specific code # -DSUN - sunOS temp file name, ieee floating point debug, and sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DXV11R2 - Xlib not up to full XV11R3 standards (i.e. all DEC products) # -DSYSV - substitutes for getdtablesize() and setrlimit() unknown on HP # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) # # uncomment these two lines to compile with gcc (add any optimizers you wish) #CC = gcc -finline-functions #TARGET_ARCH = #IFLAGS = -DFITS -DOIF IFLAGS = -DFITS -DOIF -DIMTOOL #MFLAGS = -DLSB -DXV11R2 MFLAGS = -DSUN -DPSCRIPT #DFLAGS = -g -DDEBUG DFLAGS = -O CFLAGS = $(DFLAGS) $(MFLAGS) $(IFLAGS) PROG = saoimage # btnlib must be made separately XLIB = btnlib/libbtn.a -lX11 # put additional libraries for image IO here IOLIBS = LIBS = -lm $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o PROGRAM = saoimage saoimage: $(OBJS) cc $(CFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) lint: lint -b -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) tar: tar cfv saoimage.tar makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: tar cfv - makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile tape: tar cfv /dev/nrxt8 makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile panel/*.c panel/*.h panel/*.mnu panel/makefile XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h cc -c $(CFLAGS) panel/makemenu.c; mv makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/menuinit.c 666 21641 13 10661 4614137361 10351 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: menuinit.c (Menu Initialize) * Purpose: Create and resize menu button panels * Subroutine: control_buttonbox() returns: int * * Subroutine: init_buttonmenus() returns: void * Subroutine: mount_buttonmenus() returns: void * Subroutine: resize_buttonmenu() returns: void * Subroutine: init_buttonbox_settings() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 July 1989 * {n} -- -- */ #include /* define NULL */ #include /* X window stuff */ #include /* X window manager stuff */ #include "btnlib/buttons.h" #include "hfiles/window.h" BoxParent parent[4]; ButtonBox box; /* * Subroutine: control_buttonbox * Purpose: boxcontrol from a remote file * Returns: Pointer to data of just activated button, else NULL pointer * Pre-state: Most recent event from XNextEvent() in event * Post-state: Mouse button event of selection, or a client event * Called by: main event loop * Uses: ButtonControl() in buttonlib/libbtn.a (EventCtrl.c) * Note: ButtonControl returns -1 on non-X event from UNIX select */ int *control_buttonbox ( event ) XEvent *event; /* i/o: event yet to be fielded or just fielded */ { int *response; if( ButtonControl(box, event, &response) == 1 ) return( response ); else return( NULL ); } /* * Subroutine: init_buttonmenu * Purpose: Create the main button menu and fit it to its windows * Note: Uses preprocessed code in panel subdirectory */ void init_buttonmenu ( btnbox, gc, visual, foreground, background ) struct windowRec *btnbox; GC gc; /* i: optional, else 0 */ Visual *visual; /* i: optional, else 0 */ unsigned long foreground; unsigned long background; /* i: optional, else 0 */ { ButtonBox CreateMenu(); /* i: precompiled in panel/MakeMenu.c */ parent[0].display = btnbox->display; parent[0].wndwID = btnbox->ID; parent[0].x = btnbox->xzero; parent[0].y = btnbox->yzero; parent[0].width = btnbox->width; parent[0].height = btnbox->height; parent[0].xwdth = btnbox->xwidth; parent[0].yhght = (parent[0].height / 2) + 2; parent[1].display = btnbox->display; parent[1].wndwID = btnbox->ID; parent[1].x = parent[0].x; parent[1].y = parent[0].y + parent[0].yhght; parent[1].width = btnbox->width; parent[1].height = btnbox->height; parent[1].xwdth = btnbox->xwidth; parent[1].yhght = btnbox->yheight - parent[0].yhght; parent[2].display = btnbox->display; parent[2].wndwID = btnbox->ID; parent[2].x = parent[1].x; parent[2].y = parent[1].y; parent[2].width = btnbox->width; parent[2].height = btnbox->height; parent[2].xwdth = (7 * btnbox->xwidth) / 8; parent[2].yhght = parent[1].yhght; parent[3].display = btnbox->display; parent[3].wndwID = btnbox->ID; parent[3].x = parent[1].x + (parent[1].xwdth + 6) / 7; parent[3].y = parent[1].y; parent[3].width = btnbox->width; parent[3].height = btnbox->height; parent[3].xwdth = parent[1].xwdth - (parent[3].x - parent[1].x); parent[3].yhght = parent[1].yhght; box = CreateMenu (parent, gc, visual, background); } /* * Subroutine: mount_buttonmenu * Purpose: Put the menu up on the screen */ void mount_buttonmenu ( ) { MountButtonMenu (box); } /* * Subroutine: adjust_buttonmenu * Purpose: Adjust all buttons in the buttonmenu * Note: Uses precompiled call in panel/MakeMenu.c */ void adjust_buttonmenu ( btnbox ) struct windowRec *btnbox; { int flags[4]; void ResizeMenu(); parent[0].width = btnbox->width; parent[0].height = btnbox->height; parent[0].xwdth = btnbox->xwidth; flags[0] = 1; parent[1].width = btnbox->width; parent[1].height = btnbox->height; parent[1].xwdth = btnbox->xwidth; flags[1] = 1; parent[2].width = btnbox->width; parent[2].height = btnbox->height; parent[2].xwdth = (7 * btnbox->xwidth) / 8; flags[2] = 1; parent[3].x = parent[1].x + (parent[1].xwdth + 6) / 7; parent[3].width = btnbox->width; parent[3].height = btnbox->height; parent[3].xwdth = parent[1].xwdth - (parent[3].x - parent[1].x); flags[3] = 1; ResizeMenu (parent, flags); } saoimage-1.08/makefile.sun 666 21641 13 40416 5466542100 10657 # # makefile.sun for SAOimage # Sun workstations, all architectures # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) MFLAGS = -DSUN -DPSCRIPT # OFLAGS: compiler optimization/debug options. OFLAGS = -g -DDEBUG #OFLAGS = -O # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #XLIB = /usr/openwin/lib/libX11.a # ATTENTION: OpenWindows users... #F77LIB = -lF77 -lI77 -lU77 #LDFLAGS = -Bstatic # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = sun LINT = lint -b MKNOD = /etc/mknod MV = mv -f RANLIB = ranlib RM = rm -f SHELL = /bin/sh CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.o \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. install_fifo: for f in $(FIFO_I) $(FIFO_O); do \ (if [ ! -f $$f ]; then \ $(MKNOD) $$f p; chmod 777 $$f; \ fi;) done; for f in $(FIFO_LN); do \ (if [ ! -f $$f ]; then \ echo OKK; ln -s $(FIFO_O) $(FIFO_LN); fi;) done # Install imtoolrc file if necessary; current hardwired location may change... # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos. install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/makefile.dec 666 21641 13 40277 5034420756 10615 # # makefile.dec for SAOimage # DEC Ultrix, VAX and RISC architectures # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) MFLAGS = -DLSB -DPSCRIPT # OFLAGS: compiler optimization/debug options. #OFLAGS = -g -DDEBUG OFLAGS = -O # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #F77LIB = -lF77 -lI77 -lU77 # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = dec LINT = lint MKNOD = /etc/mknod MV = mv -f RANLIB = ranlib RM = rm -f SHELL = /bin/sh CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. install_fifo: for f in $(FIFO_I) $(FIFO_O); do \ (if [ ! -f $$f ]; then \ $(MKNOD) $$f p; chmod 777 $$f; \ fi;) done; for f in $(FIFO_LN); do \ (if [ ! -f $$f ]; then \ echo OKK; ln -s $(FIFO_O) $(FIFO_LN); fi;) done # Install imtoolrc file if necessary; current hardwired location may change... # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos. install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/makefile.hp 666 21641 13 40315 5034421647 10462 # # makefile.hp for SAOimage # HP/UX, all architectures # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) #MFLAGS = -DSYSV -DXV11R2 -DPSCRIPT MFLAGS = -DSYSV -DPSCRIPT # OFLAGS: compiler optimization/debug options. #OFLAGS = -g -DDEBUG OFLAGS = -O # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #F77LIB = -lF77 -lI77 -lU77 # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = hpux LINT = lint MKNOD = /etc/mknod MV = mv -f RANLIB = ranlib RM = rm -f SHELL = /bin/sh CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos. install_fifo: for f in $(FIFO_I) $(FIFO_O); do \ (if [ ! -f $$f ]; then \ $(MKNOD) $$f p; chmod 777 $$f; \ fi;) done; for f in $(FIFO_LN); do \ (if [ ! -f $$f ]; then \ echo OKK; ln -s $(FIFO_O) $(FIFO_LN); fi;) done # Install imtoolrc file if necessary; current hardwired location may change... install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/cmddisp.c 666 21641 13 26500 5564752442 10153 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: cmddisp.c (Command Display) * Purpose: Set options from command line pertaining to display * Subroutine: parse_rotate() returns: int * Subroutine: parse_scale() returns: int * Subroutine: parse_color() returns: int * Subroutine: parse_display() returns: int * Xlib calls: none * Copyright: 1994 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 20 September 1988 * {1} MVH modified and renamed parse_display 18 May 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {3} Doug Mink add linear fraction 13 May 1994 * {4} Doug Mink add -hi option 13 May 1994 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main ximage parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ #include "hfiles/magnify.h" /* magnifier quick access structure */ extern struct magRec magset; extern char *border_color_name; /* Flag in GrphCInit.c to set color graph background black, else white */ extern int black_graph_background; extern int init_done; /* strings to set cursor colors to standard colors */ static char *RedString = "red"; static char *GreenString = "green"; static char *BlueString = "blue"; /* * Subroutine: parse_rotate * Purpose: Parse command line for coordinate adjustment or rotation * parameters * Returns: 1 if one of its parameters was found, else 0 */ int parse_rotate ( argc, argv, argi, new_rotate ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *new_rotate; /* status word knows coordinate parameter was found */ { int i; int usage(); i = *argi; if( (strcmp(argv[i], "-rot") == 0) || (strcmp(argv[i], "-rotate") == 0) ) { if( (++i >= argc) || ((img.rotate_code = (3 & atoi(argv[i]))) < 0) || (img.rotate_code > 3) ) return( usage("rotate code", argc, argv, i-1, i) ); *argi = i; } else if( (strcmp(argv[i], "-ul") == 0) || (strcmp(argv[i], "-upperleft") == 0) ) { /* --- image orientation (first row at top) --- */ img.row_order = 0; } else if( (strcmp(argv[i], "-ll") == 0) || (strcmp(argv[i], "-lowerleft") == 0) ) { /* --- image orientation (first row at bottom) --- */ img.row_order = 1; } else if( strcmp(argv[i], "-zero") == 0 ) { /* --- start file indexing with 0 --- */ img.index_base = 0; } else if( strcmp(argv[i], "-one") == 0 ) { /* --- start file indexing with 1 --- */ img.index_base = 1; } else { return( 0 ); } *argi = i; *new_rotate |= CMD_ROTATE; return( 1 ); } /* * Subroutine: parse_color * Purpose: Parse command line for display color parameters * Returns: 1 if one of its parameters was found, else 0 */ int parse_color ( argc, argv, argi, got_color ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_color; /* status word knows coloring parameter was found */ { int i; int usage(); void set_submenu_toggle(); i = *argi; /* number of planes */ if( (strcmp(argv[i], "-p") == 0) || (strcmp(argv[i], "-palette") == 0) ) { if (++i >= argc) return( usage("planes", argc, argv, i-1, i) ); color.cells.wanted = atoi(argv[i]); /* if planes request is negative, overlay for cursor */ if( color.cells.wanted < 0 ) { color.cells.wanted = -color.cells.wanted; color.cells.overlay = 1; } else color.cells.overlay = 0; if( color.cells.wanted <= 1 ) { color.cells.wanted = 1; color.cells.overlay = 0; color.colormap_mode = VOP_Halftone; } *got_color |= CMD_COLOR; } else if( (strcmp(argv[i], "-n") == 0) || (strcmp(argv[i], "-neg") == 0) ) { /* negative map */ color.inverse = 1; *got_color |= CMD_COLOR; /* on machines with only one functional color, use that color */ } else if( strcmp(argv[i], "-red") == 0 ) { color.cur.desired_cur = RedString; color.cur.desired_one = RedString; color.cur.desired_two = RedString; black_graph_background = 1; } else if( strcmp(argv[i], "-green") == 0 ) { color.cur.desired_cur = GreenString; color.cur.desired_one = GreenString; color.cur.desired_two = GreenString; black_graph_background = 1; } else if( strcmp(argv[i], "-blue") == 0 ) { color.cur.desired_cur = BlueString; color.cur.desired_one = BlueString; color.cur.desired_two = BlueString; black_graph_background = 1; } else if( (strcmp(argv[i], "-vg") == 0) || (strcmp(argv[i], "-vertgragh") == 0) ) { graphbox.hints.width = 143; graphbox.hints.height = 550; graphbox.hints.min_width = 123; graphbox.hints.min_height = 300; } else if( (strcmp(argv[i], "-hg") == 0) || (strcmp(argv[i], "-horizgragh") == 0) ) { graphbox.hints.width = 516; graphbox.hints.height = 84; graphbox.hints.min_width = 404; graphbox.hints.min_height = 69; } else { return( 0 ); } *argi = i; return( 1 ); } /* * Subroutine: parse_scale * Purpose: Parse command line for image scaling parameters * Returns: 1 if one of its parameters was found, else 0 */ int parse_scale ( argc, argv, argi, got_scale ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_scale; /* flag that scaling parameter was found */ { float val; int i; int usage(); i = *argi; if( strcmp(argv[i], "-wrap") == 0 ) { /* image to display rescaling types */ color.scale.mode = SOP_Wrap; if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) color.scale.wrap_cnt = val; else --i; } else if( strcmp(argv[i], "-linear") == 0 ) { color.scale.mode = SOP_Linear; } else if( strcmp(argv[i], "-sqrt") == 0 ) { color.scale.mode = SOP_Sqrt; if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) color.scale.root_power = val; else --i; } else if( strcmp(argv[i], "-log") == 0 ) { color.scale.mode = SOP_Log; if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) color.scale.log_expo = val; else --i; } else if( strcmp(argv[i], "-hi") == 0 || strcmp(argv[i], "-histeq") == 0 ) { color.scale.mode = SOP_HistEq; } else if( strcmp(argv[i], "-min") == 0 ) { /* scaling threshold level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { buffer.cmdMin = val; buffer.min_given = 1; } else { --i; buffer.min_given = 0; } } else if( strcmp(argv[i], "-max") == 0 ) { /* scaling saturation level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { buffer.cmdMax = val; buffer.max_given = 1; } else { --i; buffer.max_given = 0; } } else if( strcmp(argv[i], "-rmax") == 0 ) { /* file reading saturation level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { img.fimax = val; *got_scale |= CMD_FREAD; } else return( usage("saturate", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-rmin") == 0 ) { /* file reading threshold level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { img.fimin = val; *got_scale |= CMD_FREAD; } else return( usage("threshold", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-lfrac") == 0 ) { /* linear scaling limits as fraction of histogram peak */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { buffer.lfrac = val; } else return( usage("linfrac", argc, argv, i-1, i) ); } else { return( 0 ); } *argi = i; *got_scale |= CMD_SCALE; return( 1 ); } /* * Subroutine: parse_display * Purpose: Parse the command line for window and server parameters */ int parse_display ( argc, argv, argi, got_geo, displayname ) int argc; /* i: total number of arg tokens */ char *argv[]; /* i: array of arg tokens */ int *argi; /* i/o: current arg in list */ int *got_geo; /* o: got server or window parameters */ char **displayname; /* o: name of display server */ { int i, temp; int usage(), parse_geometry(); void set_magnifier(), redraw_magnifier(), SetTAEButtonLook(); i = *argi; if( (strcmp(argv[i], "-d") == 0) || (strcmp(argv[i], "-display") == 0) ) { /* X window server socket name (overrides DISPLAY env variable) */ *displayname = argv[++i]; } else if( (strcmp(argv[i], "-g") == 0) || (strcmp(argv[i], "-geometry") == 0) ) { /* initial program desktop size and/or position */ /* X window geometry (size and position) -g x++ */ if( parse_geometry(argv[++i], 0) == 0 ) { (void)fprintf(stderr, "Error: Cannot parse geometry: %s\n", argv[i]); return( 0 ); } } else if( strcmp(argv[i], "-gd") == 0 ) { /* initial display window size and/or desktop position */ /* X window geometry (size and position) -gd x++ */ if( parse_geometry(argv[++i], 1) == 0 ) { (void)fprintf(stderr, "Error: Cannot parse geometry: %s\n", argv[i]); return( 0 ); } } else if( (strcmp(argv[i], "-bc") == 0) || (strcmp(argv[i], "-bordercolor") == 0) ) { /* border color */ if( ++i >= argc ) return( usage("border color", argc, argv, i-1, i) ); border_color_name = argv[i]; } else if( strcmp(argv[i], "-mtf") == 0) { /* make buttons less of a sore thumb when surrounded by motif */ SetTAEButtonLook(2); } else if( strcmp(argv[i], "-mtfa") == 0) { /* as above but with even less highlighting */ SetTAEButtonLook(1); } else if( strcmp(argv[i], "-mag") == 0 ) { /* magnifier magnification */ if( ((++i) < argc) && ((temp = atoi(argv[i])) > 0) ) { magset.magnify = temp; /* if init has already been run, then set must be run to update */ if( init_done && (magset.image == &magnibox.image) ) { set_magnifier(); redraw_magnifier(); } } else return( usage("magnifier", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-panboxav") == 0 ) { img.panbox_zoomtype = SOP_ZoomAv; } else if( strcmp(argv[i], "-panboxsamp") == 0 ) { img.panbox_zoomtype = SOP_ZoomSamp; } else if( strcmp(argv[i], "-panboxsum") == 0 ) { img.panbox_zoomtype = SOP_ZoomSum; } else if( strcmp(argv[i], "-panboxmax") == 0 ) { img.panbox_zoomtype = SOP_ZoomMax; } else if( strcmp(argv[i], "-lprbuttons") == 0 ) { control.print_buttons = 1; } else { return( 0 ); } *argi = i; *got_geo |= CMD_GEOMETRY; return( 1 ); } saoimage-1.08/clralloc.c 666 21641 13 15427 4742010116 10307 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: clralloc.c (Color Alloc) * Purpose: Allocate and free colors * Subroutine: alloc_color() returns: int * Subroutine: free_color_cells() returns: void * Xlib calls: XAllocColorCells(), XFreeColors() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {1} David Muchmore private colormap 20 May 1990 * {2} MVH Allow 4&5 plane machines to use color 1 Jan 1991 * {n} -- -- */ #include /* stderr, FILE, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ #include "hfiles/color.h" /* color structs */ #define COPIES 20 /* max number of default colors to copy to private map */ static unsigned int _npixels; /* for XAllocColorCells */ static unsigned int _nplanes; /* for XAllocColorCells */ static unsigned long overlay_mask; /* for XAllocColorCells */ /* * Subroutine: alloc_colors * Purpose: Allocate color cells with and overlay plane if possible * Returns: 1 if allocated an acceptable number of cells, else 0 * Method: Try for at least min cells in default colormap, if failed * try to create a private colormap. */ int alloc_colors( color ) struct colorRec *color; { int verify_pseudocolor(); static Colormap create_colormap(); static int alloc_color_cells(); if( (color->map.default_permit != NO) && (color->map.default_enable == YES) && (alloc_color_cells(color, color->map.default_colormap, color->map.default_vinfo)) ) { /* If the default colormap can satisfy our desires */ color->colormap = color->map.default_colormap; return 1; } else if( color->map.private_permit != NO ) { /* If the existance of a pseudocolor visual has not yet been tested */ if( (color->map.private_enable == UNKNOWN) && (verify_pseudocolor(color, 4, 16) == 0) ) { return 0; } if( color->map.private_enable == YES ) { if( color->map.private_used == UNKNOWN ) { if( (color->map.private_colormap = create_colormap(color)) == 0 ) { return 0; } color->colormap = color->map.private_colormap; /* Redo the cursor color allocation */ init_hard_colors(color, color->colormap); lookup_cursor_colors(color, color->colormap, 1); color->map.private_used = 1; XInstallColormap(color->display, color->colormap); color->map.private_installed = 1; color->visual = color->map.private_vinfo->visual; } if (alloc_color_cells(color, color->map.private_colormap, color->map.private_vinfo) ) { return 1; } else { return 0; } } } return 0; } /* Subroutine: alloc_color_cells * Returns: 1 if alloc's at least min cells, else 0 * PostState: * Xlib calls: XAllocColorCells() * Method: Grab as many cells as possible with overlay as specified */ static int alloc_color_cells ( color, colormap, vinfo ) struct colorRec *color; /* i: color info and handling struct */ Colormap colormap; /* i: colormap in which to allocate */ XVisualInfo *vinfo; { void free_color_cells(); int contig = 0; /* For those with few colors, let them see what they can do */ if( (vinfo->colormap_size < 100) && (vinfo->colormap_size < 8) ) { /* Drop from original default (hopefully user didn't specify this) */ if( color->cells.min == 20 ) color->cells.min = 4; /* Reserve cells for image and 1 overlay */ if( color->cells.overlay ) { _nplanes = 1; /* Allow for 8 standard colors plus 2 overlayable fixed colors */ _npixels = MIN(color->cells.wanted + 2, (vinfo->colormap_size) / 2); } else { _nplanes = 0; _npixels = MIN(color->cells.wanted, vinfo->colormap_size); } } else { /* Reserve cells for image and 1 overlay */ if( color->cells.overlay ) { _nplanes = 1; /* Allow for 8 standard colors plus 2 overlayable fixed colors */ _npixels = MIN(color->cells.wanted + 2, (vinfo->colormap_size - 8) / 2); } else { _nplanes = 0; _npixels = MIN(color->cells.wanted, vinfo->colormap_size - 8); } } while( (_npixels >= color->cells.min) && (XAllocColorCells(color->display, colormap, contig, &overlay_mask, _nplanes, color->pixvalmap, _npixels) == NULL) ) /* Try again with fewer if request failed (down to mincells) */ _npixels--; if( _npixels < color->cells.min ) return( 0 ); color->colormap = colormap; color->ncolors = _npixels; if( color->cells.overlay ) color->overlay_mask = overlay_mask; else color->overlay_mask = 0; color->colors_alloced = 1; return 1; } /* * Subroutine: free_color_cells * Purpose: un-alloc alloc'd color map cells * Xlib calls: XFreeColors() */ void free_color_cells ( color, colormap ) struct colorRec *color; /* i: color info and handling struct */ Colormap colormap; { XFreeColors (color->display, colormap, color->pixvalmap, _npixels, _nplanes); bzero((char *)color->pixvalmap, COLMAPSZ * sizeof(int)); color->ncolors = 0; color->colors_alloced = 0; } /* * Subroutine: create_colormap * Purpose: Create a private colormap with some of the default map's colors * copied into it. The copied colors are static (reducing the * number of available colors should the user attempt to increase * them later on. */ static Colormap create_colormap ( color ) struct colorRec *color; { Colormap private_colormap; XColor cdef[COPIES]; int color_levels, copy_levels, i; void exit_errmsg(); /* Get the colormap */ private_colormap = XCreateColormap(color->display, RootWindow(color->display, color->screen), color->map.private_vinfo->visual, AllocNone); if( private_colormap ) { /* Copy all of the default map's colors into the new map */ color_levels = DisplayCells(color->display, color->screen); copy_levels = MIN(COPIES, (color_levels - (color->cells.wanted + 10))); if( copy_levels > 0 ) { for( i=0; idisplay, DefaultColormap(color->display, color->screen), cdef, copy_levels); /* We trust that the manger allocates starting at 0 */ for( i=0; idisplay, private_colormap, &(cdef[i])); } } else exit_errmsg("Unable to create new colormap"); /* use special distribution plan for allocation. */ return private_colormap; } saoimage-1.08/cmdimage.c 666 21641 13 27015 5030502170 10253 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: cmdimage.c (Command Image File) * Purpose: Set options from command line * Subroutine: parse_filename() returns: int * Subroutine: parse_filetype() returns: int * Subroutione: parse_fileread() returns: int * Subroutione: parse_connection() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 5 Jan 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {2} John Add Socket connection 8 May 1990 * {3} MVH removed isalpha test for file names 1 Jan 1991 * {4} MVH added + type switches and support 21 Jun 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* for atof (see Ultrx atof man page) */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ /* * Subroutine: parse_filename * Purpose: Parse commandline to find an image file name */ int parse_filename ( argc, argv, argi, got_name ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_name; /* status word (use bit for found a file name) */ { int i; int usage(); i = *argi; /* --- check for the filename as an unidentified string --- */ if( (argv[i][0] != '-') ) { if( *got_name & CMD_FNAME ) { (void)fprintf(stderr, "More than 1 possible file name: %s %s.\n", img.filename, argv[i]); return( usage("filename", argc, argv, i, i) ); } else { img.filename = argv[i]; *got_name |= CMD_FNAME; } return( 1 ); } /* --- check for filename as an identified string --- */ if( (strcmp(argv[i], "-name") == 0) || (strcmp(argv[i], "-") == 0) ) { if( ++i >= argc ) return( usage("filename", argc, argv, i-1, i) ); if( *got_name & CMD_FNAME ) { (void)fprintf(stderr, "More than 1 possible file name: %s %s.\n", img.filename, argv[i]); return( usage("filename", argc, argv, i, i) ); } else { img.filename = argv[i]; *got_name |= CMD_FNAME; } *argi = i; return( 1 ); } return( 0 ); } /* * Subroutine: parse_filetype * Purpose: Parse command line for image file type */ int parse_filetype ( argc, argv, argi, got_type ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_type; /* status word (bit for got an image type switch) */ { int i; i = *argi; /* --- IMAGE FILE TYPE --- */ if( strcmp(argv[i], "-iraf") == 0 ) { /* --- IRAF image --- */ img.file_type = SOP_IRAF; } else if( strcmp(argv[i], "-oif") == 0 ) { /* --- Iraf OIF .imh headed image file --- */ img.file_type = SOP_IRAF; } else if( strcmp(argv[i], "-fits") == 0 ) { /* --- FITS image --- */ img.file_type = SOP_FITS; } else if( strcmp(argv[i], "-dfits") == 0 ) { /* --- FITS image in non-standard byte swap order --- */ img.file_type = SOP_FITS; img.byte_swap = !img.byte_swap; } else if( strcmp(argv[i], "-saoccd") == 0 ) { /* --- SAOCCD image --- */ img.file_type = SOP_SAOCCD; } else if( strcmp(argv[i], "-ros") == 0 ) { /* --- ROSAT HOPR HRI image --- */ img.file_type = SOP_ROSAT; } else { /* --- check array type specification --- */ if( (strcmp(argv[i], "-chararray") == 0) || (strcmp(argv[i], "-u1" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_U1; img.bytepix = 1; } else if( (strcmp(argv[i], "-shortarray") == 0) || (strcmp(argv[i], "-i2" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_I2; img.bytepix = 2; } else if( (strcmp(argv[i], "-ushortarray") == 0) || (strcmp(argv[i], "-u2" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_U2; img.bytepix = 2; } else if( (strcmp(argv[i], "-longarray") == 0) || (strcmp(argv[i], "-i4" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_I4; img.bytepix = 4; } else if( (strcmp(argv[i], "-floatarray") == 0) || (strcmp(argv[i], "-r4" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_R4; img.bytepix = 4; } else if( (strcmp(argv[i], "-doublearray") == 0) || (strcmp(argv[i], "-r8" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_R8; img.bytepix = 8; } else { /* --- got here if no match of any type --- */ return( 0 ); } /* --- got here by finding an array type identifier --- */ /* if there are more arguments and the first does not start with '-' */ if( (argc > (i+2)) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { /* --- if giving args like this, 2 must be given --- */ if( ((i+2) >= argc) || ((img.filecols = atoi (argv[++i])) <= 0) || ((img.filerows = atoi (argv[++i])) <= 0) ) return( usage("array size", argc, argv, i-3, i) ); } } /* --- got here after finding a match --- */ *got_type |= CMD_FTYPE; *argi = i; return( 1 ); } /* * Subroutine: parse_fileread * Purpose: Parse command line for image file reading parameters */ int parse_fileread ( argc, argv, argi, got_read ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_read; /* status word (bit that there were read parameters) */ { int i; i = *argi; if( (strcmp(argv[i], "-sk") == 0) || (strcmp(argv[i], "-skip") == 0) || (strcmp(argv[i], "-header") == 0) ) { /* --- skip header of given size --- */ if( (++i >= argc) || ((img.headersize = atoi(argv[i])) < 0) ) return( usage("header size", argc, argv, i-1, i) ); } else if( (strcmp(argv[i], "-bswap") == 0) || (strcmp(argv[i], "-byteswap") == 0) ) { /* --- selecting byteswap gets reverse byteswap of whatever it was --- */ img.byte_swap = !img.byte_swap; } else if( (strcmp(argv[i], "-sb") == 0) || (strcmp(argv[i], "-scalebias") == 0) ) { /* --- scale and bias for image file data --- */ double scale; float bias; if( (i + 2) >= argc ) return( usage("args for scale and bias", argc, argv, i, i) ); if( (scale = atof(argv[++i])) <= 0.0 ) return( usage("value for scale", argc, argv, i-1, i) ); if( sscanf(argv[++i], "%f", &bias) != 1 ) return( usage("value for bias", argc, argv, i-2, i) ); /* store values and flag if they represent remapping of the values */ if( ((img.fscale = scale) != 1.0) || ((img.fbias = (double)bias) != 0.0) ) img.fscaled = 1; else img.fscaled = 0; } else if( (strcmp(argv[i], "-dc") == 0) || (strcmp(argv[i], "-dispcen") == 0) ) { /* --- initial display location --- */ if( ((i+2) >= argc) || (img.fdcenX = atof(argv[++i]) <= 0.0) || (img.fdcenY = atof(argv[++i]) <= 0.0) ) return( usage("display center", argc, argv, i-3, i) ); if( (argc >= (i+1)) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { if( (img.fdblock = atoi(argv[++i]) == 0) ) return( usage("display blocking", argc, argv, i-1, i) ); } } else if( (strcmp(argv[i], "-buf") == 0) || (strcmp(argv[i], "-bufmax") == 0) ) { /* --- maximum buffer array size (1 side of square) --- */ if( (++i >= argc) || ((img.bufmax = atoi(argv[i])) <= 0) ) return( usage("buffer limit", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-fbconfig") == 0 ) { /* --- iraf display configuration --- */ if( (++i >= argc) || ((img.fbconfig = atoi(argv[i])) == 0) ) return( usage("fbconfig", argc, argv, i-1, i) ); } else { return( 0 ); } *got_read |= CMD_FREAD; *argi = i; return( 1 ); } /* * Subroutine: parse_connection * Purpose: Parse command line for socket or pipe connection stuff */ int parse_connection ( argc, argv, argi, got_read, init ) int argc; /* i: total number of arg tokens */ char *argv[]; /* i: array of arg tokens */ int *argi; /* i/o: first arg to check, (return last arg used) */ int *got_read; /* o: status word (bit for connection parameters) */ int init; /* i: this is init time */ { int i; void open_imtool_connection(), close_imtool_connection(); void rename_imtool_connection(); #ifdef REALTIME void open_rtsock_connection(); void open_rtfifo_connection(); #endif i = *argi; if( strcmp(argv[i], "-pros") == 0 ) { /* --- Imtool pipe with pros extensions --- */ if( init ) { control.IRAF_in.open = 1; control.IRAF_in.func = open_imtool_connection; } else if( control.IRAF_in.open == 0 ) open_imtool_connection(); control.IRAF_out.protocol = IOP_PROS; } else if( strcmp(argv[i], "+imtool") == 0 ) { /* --- Imtool pipe --- */ if( init ) { control.IRAF_in.open = 1; control.IRAF_in.func = open_imtool_connection; } else if( control.IRAF_in.open == 0 ) open_imtool_connection(); control.IRAF_out.protocol = IOP_Imtool; } else if( (strcmp(argv[i], "-imtool") == 0) || (strcmp(argv[i], "-imtool-") == 0) ) { /* --- Close imtool pipe --- */ if( (init == 0) && (control.IRAF_in.open != 0) ) close_imtool_connection(); control.IRAF_in.open = 0; control.IRAF_in.func = NULL; } else if( strcmp(argv[i], "-idev") == 0 ) { /* --- iraf input pipe device --- */ if( ++i >= argc ) return( usage ("idev", argc, argv, i-1, i) ); rename_imtool_connection(argv[i], 1); } else if( strcmp(argv[i], "-odev") == 0 ) { /* --- iraf output pipe device --- */ if( ++i >= argc ) return( usage("odev", argc, argv, i-1, i) ); rename_imtool_connection(argv[i], 0); #ifdef REALTIME } else if( strcmp(argv[i], "-rtsock") == 0 ) { /* --- RTIO Socket --- */ si_init(NULL); if( init ) { control.aux_in.open = 1; control.aux_in.func = open_rtsock_connection; if( (argc >= i) && (argv[i][0] != '-') && isdigit(argv[i][0]) ) { int j = 0; i++; control.aux_in.name = NULL; } else return( usage("-rtsock", argc, argv, i-1, i ) ); control.aux_in.address = atoi(argv[i]); } else if( control.aux_in.open == 0 ) open_rtsock_connection(&control.aux_in); control.aux_in.protocol = IOP_socket; } else if( strcmp(argv[i], "-rtfifo") == 0 ) { /* --- RTIO FIFO --- */ si_init(NULL); if( init ) { control.aux_in.open = 1; control.aux_in.func = open_rtfifo_connection; if( ++i >= argc ) { return( usage("odev", argc, argv, i-1, i) ); } else { control.aux_in.name = argv[i]; }; } else if( control.aux_in.open == 0 ) open_rtfifo_connection(&control.aux_in); #endif } else { return( 0 ); } *got_read |= CMD_CONNECT; *argi = i; return( 1 ); } saoimage-1.08/ctrldisk.c 666 21641 13 33454 4634541135 10345 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrldisk.c (Control Disk Access) * Purpose: Open, close, read, and write disk files and streams. * Centralized to facilitate selecting system specific code. * Subroutine: open_disk() returns: int * Subroutine: fcntl_disk() returns: void * Subroutine: flush_disk() returns: void * Subroutine: lseek_disk() returns: int * Subroutine: read_disk() returns: int * Subroutine: write_disk() returns: int * Subroutine: close_disk() returns: void * UNIX calls: open(), fcntl(), lseek(), read(), write(), close() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 6 Oct 1989 * {1} Jay Travisano (STScI) VMS changes 10 Nov 1989 * {n} -- -- */ #ifndef VMS #include /* define stderr, FILE, NULL, etc */ #include /* define open */ #include /* define fcntl */ /* * Subroutine: open_disk * Returns: File descriptor of open file (suitable for read()) */ int open_disk ( filename, write_flag, no_block ) char *filename; int write_flag; /* i: 1=WriteOnly, 0=ReadWrite, -1=ReadOnly */ int no_block; /* i: flag to set non-blocking flag */ { int flags; int fd; if( write_flag > 0 ) { flags = O_WRONLY; if( write_flag > 1 ) /* create file if it doesn't exist, else condition causes error */ flags |= O_CREAT; } else { if( write_flag < 0 ) flags = O_RDONLY; else flags = O_RDWR; } if( no_block ) flags |= O_NDELAY; if( (fd = open(filename, flags, 0)) == -1 ) { perror("open error"); (void)fprintf(stderr, "ERROR: unable to open %s\n", filename); (void)fflush(stderr); } return( fd ); } /* * Subroutine: fcntl_disk * Purpose: Change an open file's flags, check for errors */ void fcntl_disk ( fd, write_flag, no_block, filename ) int fd; /* i: already open file descriptor */ int write_flag; /* i: 1=WriteOnly, 0=ReadWrite, -1=ReadOnly */ int no_block; /* i: include non-blocking flag */ char *filename; /* [i]: name of file being accessed */ { int flags; if( write_flag > 0 ) { flags = O_WRONLY; } else { if( write_flag < 0 ) flags = O_RDWR; else flags = O_RDONLY; } if( no_block ) flags |= O_NDELAY; if( fcntl(fd, F_SETFL, flags) == -1) { perror("fcntl error"); if( filename != NULL ) { (void)fprintf(stderr, "Error changing flags on %s\n", filename); (void)fflush(stderr); } } } /* * Subroutine: flush_disk * Purpose: Read to functional end of file (useful with dynamic IO) */ void flush_disk ( fd, filename ) int fd; char *filename; { int flags, tflags; int blocking; int bytes, total; char buf[4096]; /* get status of device */ if( (flags = fcntl(fd, F_GETFL, 0)) == -1 ) { (void)fprintf(stderr, "Error determining flag status on: %s\n", filename); perror("fcntl error"); } /* clear blocking if device would block on read */ if( (flags & O_NDELAY) == 0 ) { blocking = 1; tflags = flags & (~O_NDELAY); if( fcntl(fd, F_SETFL, tflags) == -1) { (void)fprintf(stderr, "Error attempting to clear blocking on %s\n", filename); perror("fcntl error"); return; } } total = 0; while( (bytes = read(fd, buf, 4096)) > 0 ) total += bytes; #ifdef DEBUG if( bytes < 0 ) { /* though non-blocking, some OS return "Operation would block" error */ (void)fprintf(stderr, "Error attempting to flush %s\n", filename); perror("read error"); } if( total > 0 ) (void)fprintf(stderr, "Flushed %d bytes from pipe\n", total); #endif /* restore device to oriiginal status if needed */ if( blocking ) { if( fcntl(fd, F_SETFL, flags) == -1 ) { (void)fprintf(stderr, "Error attempting to restore blocking on %s\n", filename); perror("fcntl"); return; } } } /* * Subroutine: lseek_disk * Purpose: Skip into a disk file before reading, check for errors */ int lseek_disk ( fd, nbytes, filename ) int fd; int nbytes; char *filename; /* [i]: name of file being accessed */ { long lseek(); /* type not declared in */ if( lseek(fd, (long)nbytes, L_SET) < 0 ) { perror("lseek"); (void)fprintf(stderr, "Can't lseek %d bytes", nbytes); if( filename != NULL ) (void)fprintf(stderr, "into file %s\n", filename); else (void)fprintf(stderr, "\n"); (void)fflush(stderr); return( -1 ); } return( 0 ); } /* * Subroutine: read_disk * Purpose: Read bytes from a disk file, check for errors * Returns: Number of bytes read, or error flag (-1) * Note: If report_error is 0, reading fewer than nbytes * is not treated as an error. * Note: BSD4.3 interrupts reads on any signal. Thus reads may * be broken into (hopefully consecutive) pieces. */ int read_disk ( fd, buf, nbytes, report_error, filename, detail ) int fd; char *buf; /* i: buffer to receive read data */ int nbytes; /* i: number of bytes expected */ int report_error; /* i: report under-count read */ char *filename; /* [i]: name of file being read */ char *detail; /* [i]: "data", "header", etc */ { int got_this_read, got_so_far, left_to_get; int zero = 0; /* Count of times with 0 bytes */ for( got_so_far = 0; got_so_far < nbytes; got_so_far += got_this_read ) { left_to_get = nbytes - got_so_far; if( (got_this_read = read(fd, &(buf[got_so_far]), left_to_get) ) != left_to_get ) { if( (got_this_read <= 0) && ((got_this_read < 0) || (++zero > 3)) ) { /* Unfortunately, we can't distinguish between a non-blocking .. * * connection, and a read that was interrupted at the start. ... * * We assume the former is more likely and dangerous. * * Lest we fall into an endless loop, allow only 3 0-byte reads. */ if( got_this_read < 0 ) perror("read error"); if( report_error ) { (void)fprintf(stderr, "Error in reading"); if( detail != NULL ) (void)fprintf(stderr, " %s", detail); if( filename != NULL ) (void)fprintf(stderr, " from %s", filename); (void)fprintf(stderr, "\n"); (void)fflush(stderr); if( report_error && (got_so_far >= 0) ) { (void)fprintf(stderr, "Expected %d bytes, read %d\n", nbytes, got_so_far); (void)fflush(stderr); } } return got_so_far; } } } return got_so_far; } /* * Subroutine: write_disk * Purpose: Write data to the open disk file or stream */ int write_disk ( fd, buf, nbytes, filename ) int fd; char *buf; int nbytes; char *filename; { int gave; if( (gave = write(fd, buf, nbytes)) < nbytes ) { /* if interrupted (or non-blocking reader), try the rest again */ if( gave > 0 ) { /* I haven't tested this way of handling the situation with IRAF */ nbytes -= gave; buf += gave; if( (gave = write(fd, buf, nbytes)) == nbytes ) return( 0 ); } perror(filename); return( -1 ); } return( 0 ); } /* * Subroutine: close_disk * Purpose: Close a disk file */ void close_disk ( fd, filename ) int fd; char *filename; { #ifdef DEBUG if( close(fd) == -1 ) { perror("close error"); if( filename != NULL ) { (void)fprintf(stderr, "Error closing %s\n", filename); (void)fflush(stderr); } } #else (void)close(fd); #endif } #else /* * VMS versions of disk functions. This implementation of these functions * for VMS uses the standard C library calls, just as on Unix. Although * this is the easiest approach for now, there are some problems: * * Performance The VAX/VMS C library functions dealing with * file i/o have never been very efficient. Better * performance (with some loss of generality, of * course) can be gained by using RMS system routines. * The VMS_OPEN_OPTIONS below should help, though. * * VMS Files VMS supports a number of different file types, * which are sometimes handled differently by the * the C library functions. For example, a read() * operation on a file with a record size of 512 * bytes will return a maximum of 512 bytes, regardless * of the number requested in the call. Thus, for * these functions, we must loop around until all the * i/o requested has been performed. * * Seeking Depending on the type of file being accessed, the * operation of seeking to a byte offset in a file * is somewhat unpredictable. For stream files, it * is usually okay, but for record files, only byte * offsets that are on a record boundary are allowed. * (As a result of this behavior, the -skip and -header * command line options may not always perform as * expected on VMS.) * * Note: perror(NULL) will not work on VMS; some character string must * be specified, even if just "". */ #define VMS_OPEN_OPTIONS "mbc=32","mbf=4","rop=RAH" #include /* define stderr, FILE, NULL, etc */ #include /* define open */ /* * Subroutine: open_disk * Returns: File descriptor of open file (suitable for read()) */ int open_disk ( filename, write_flag, no_block ) char *filename; int write_flag; /* i: 1=WriteOnly, 0=ReadWrite, -1=ReadOnly */ int no_block; /* i: flag to set non-blocking flag */ { int flags; int fd; if( write_flag > 0 ) { flags = O_WRONLY; if( write_flag > 1 ) /* create file if it doesn't exist, else condition causes error */ flags |= O_CREAT; } else { if( write_flag < 0 ) flags = O_RDONLY; else flags = O_RDWR; } if( no_block ) flags |= O_NDELAY; if( (fd = open(filename, flags, 0, VMS_OPEN_OPTIONS)) == -1 ) { (void)fprintf(stderr, "ERROR: unable to open %s\n", filename); fflush(stderr); perror("open error"); } return( fd ); } /* * Subroutine: fcntl_disk * Purpose: Change an open file's flags, check for errors */ void fcntl_disk ( fd, write_flag, no_block, filename ) int fd; /* i: already open file descriptor */ int write_flag; /* i: 0=read, else write */ int no_block; /* i: include non-blocking flag */ char *filename; /* [i]: name of file being accessed */ { /* fcntl() not supported on VMS */ } /* * Subroutine: lseek_disk * Purpose: Skip into a disk file before reading, check for errors */ int lseek_disk ( fd, nbytes, filename ) int fd; int nbytes; char *filename; /* [i]: name of file being accessed */ { long lseek(); /* type not declared in */ if( lseek(fd, (long)nbytes, SEEK_SET) < 0 ) { (void)fprintf(stderr, "Can't lseek %d bytes", nbytes); if( filename != NULL ) (void)fprintf(stderr, "into file %s\n", filename); else (void)fprintf(stderr, "\n"); fflush(stderr); perror("lseek error"); return( -1 ); } return( 0 ); } /* * Subroutine: read_disk * Purpose: Read bytes from a disk file, check for errors * Returns: Number of bytes read, or error flag (-1) * Note: If report_error is 0, reading fewer than nbytes * is not treated as an error. */ int read_disk ( fd, buf, nbytes, report_error, filename, detail ) int fd; char *buf; /* i: buffer to receive read data */ int nbytes; /* i: number of bytes expected */ int report_error; /* i: report under-count read */ char *filename; /* [i]: name of file being read */ char *detail; /* [i]: "data", "header", etc */ { /* Note: On VMS, read() will return the number of bytes requested * or the logical record size, whichever is less. Loop around * until we get everything we want. */ int got, count=0; while (count < nbytes) { got = read(fd, (buf+count), (nbytes-count)); if( got < 0 ) { (void)fprintf(stderr, "Error in reading"); if( detail != NULL ) (void)fprintf(stderr, " %s", detail); if( filename != NULL ) (void)fprintf(stderr, " from %s", filename); (void)fprintf(stderr, "\n"); fflush(stderr); perror("read error"); return( got ); } else if( got == 0 ) { /* reached EOF ? */ if( count < nbytes && report_error ) { (void)fprintf(stderr, "Expected %d bytes, read %d\n", nbytes, count); fflush(stderr); } break; } else { count += got; } } return( count ); } /* * Subroutine: write_disk * Purpose: Write data to the open disk file or stream */ void write_disk ( fd, buf, nbytes, filename ) int fd; char *buf; int nbytes; char *filename; { /* Note: On VMS, write() may write the number of bytes requested * or the logical record size, whichever is less. Loop around * until we write everything we want. */ int gave, count=0; while (count < nbytes) { gave = write(fd, (buf+count), (nbytes-count)); if( gave < 0 ) { perror (filename); break; } else { count += gave; } } } /* * Subroutine: close_disk * Purpose: Close a disk file */ void close_disk ( fd, filename ) int fd; char *filename; { int close(); if( close(fd) == -1 ) { if( filename != NULL ) { (void)fprintf(stderr,"Error closing %s\n", filename); fflush(stderr); } perror("close error"); } } #endif saoimage-1.08/cmdnew.c 666 21641 13 20305 4617454216 7776 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: cmdnew.c (Command New) * Purpose: Orchestrate remembering and forgeting commandline arguments * Subroutine: init_cmdline() return: void * Subroutine: get_new_cmd() return: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 January 1989 * {1} Jay Travisano (STScI) VMS changes 17 Nov 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {3} MVH separate remote IO from file IO 9 March 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define SZ_LINE, SZ_FNAME, etc */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/cmdparse.h" /* define parse status bits */ #include "hfiles/edit.h" #ifdef VMS #define close_disk close_pipe #endif static char input_line[SZ_LINE]; static char fname[SZ_FNAME]; /* * Subroutine: init_cmdline * Purpose: Save the original command line in a static string for use * as an initial command line by get_new_command * Called by: parse_cmdline() in CmdParse.c */ void init_cmdline ( argc, argv ) int argc; char *argv[]; { void string_cmdline(); string_cmdline (argc, argv, input_line, SZ_LINE); } static EditStruct *cmd_edit; static char *prompt = "Enter new image file or command line:"; /* * Subroutine: get_new_cmd * Purpose: Enter a new command line and respond to it. * Called by: key_response() in MainKey.c * Called by: select_environment() in MainSelect.c */ void get_new_cmd ( ) { static int new_command(); int get_edit_input(); EditStruct *init_edit_popup(); if( cmd_edit == NULL ) cmd_edit = init_edit_popup(input_line, SZ_LINE); if( (get_edit_input(cmd_edit, 0, 1, 1, prompt) <= 0) || (cmd_edit->char_cnt == 0) ) return; (void)strncpy(input_line, cmd_edit->string, cmd_edit->char_cnt); input_line[cmd_edit->char_cnt] = '\0'; /* parse line and respond */ (void)new_command (input_line); } /* * Subroutine: new_command * Purpose: Given a new command line, parse it and do what is called for * Returns: 1 = success, 0 = user decided not to do anything, -1 = error */ static int new_command ( input_line ) char *input_line; { char **argv; int argc; int parse_status; int headersize; int parse_cmdline(), check_image(); void reinit_color(), redraw_magnifier(), touch_submenu_button(); static char **make_argv(); static int new_file(), form_tokens(); static void redo_displays(), clear_params(), reset_dispparams(), free_argv(); /* store some key initial values */ headersize = img.headersize; /* reinitialize user settings */ clear_params(); /* get space for listing tokens */ argv = make_argv(20); argc = form_tokens(input_line, argv, 20); /* get values from the command line (uses extern.h) */ parse_status = parse_cmdline(argc, argv, (char **)NULL); /* move filename to permanent string space, then free token space */ if( (parse_status > 0) && (parse_status & CMD_FNAME) ) { (void)strcpy(fname, img.filename); img.filename = fname; } free_argv(argv, 20); if( parse_status < 0 ) return( 0 ); if( parse_status & CMD_COLOR ) { /* if requesting a different hardware configuration */ /* do this work if it won't otherwise be done */ if( (parse_status & (CMD_FNAME | CMD_FTYPE | CMD_FREAD | CMD_ROTATE | CMD_SCALIM | CMD_SCALE)) == 0 ) reinit_color(1); else reinit_color(0); } if( parse_status & (CMD_FNAME | CMD_FTYPE | CMD_FREAD) ) { if( check_image(&img, parse_status) < 0 ) { if( parse_status & CMD_COLOR ) redo_displays(); } else (void)new_file(); } else { img.headersize = headersize; if( parse_status & (CMD_ROTATE | CMD_SCALIM) ) { reset_dispparams(); (void)new_file(); } else if( parse_status & CMD_SCALE ) { touch_submenu_button(SOP, color.scale.mode); redo_displays(); } else if( parse_status & CMD_COLOR ) { /* redraw the magnibox display if color map was changed */ redraw_magnifier(); } } return( 1 ); } /* * Subroutine: redo_displays */ static void redo_displays ( ) { void new_scalemap(), map_panbox(), map_dispbox(), disp_panbox(); void disp_dispbox(), redraw_magnifier(); /* make the new lookup table */ new_scalemap(); /* refill display buffers with rescaled values and display */ map_panbox(); disp_panbox(); /* panbox first because it is faster */ map_dispbox(); disp_dispbox(); redraw_magnifier(); } /* * Subroutine: clear_params * Purpose: Undo parameters checked for defaults when loading a new image */ static void clear_params ( ) { img.headersize = 0; img.byte_swap = 0; img.fdblock = 0; img.fdcenX = 0.0; img.fdcenY = 0.0; img.fiX1 = 0; img.fiX2 = 0; img.fiY1 = 0; img.fiY2 = 0; } /* * Subroutine: reset_dispparams * Purpose: Set the current display parameters for reloading the image */ static void reset_dispparams ( ) { float zoom; float fcenX, fcenY; void d_transform(); if( img.fdcenX == 0.0 ) { /* calculate file coords of center of display */ d_transform(&coord.imgtofile, (double)coord.id.cenX, (double)coord.id.cenY, &fcenX, &fcenY); img.fdcenX = (double)fcenX; img.fdcenY = (double)fcenY; } if( img.fdblock == 0.0 ) { if( coord.filetoimg.inx_outx != 0.0 ) zoom = coord.filetoimg.inx_outx * coord.imgtodisp.inx_outx; else zoom = coord.filetoimg.iny_outx * coord.imgtodisp.inx_outx; /* take abs */ if( zoom < 0.0 ) zoom = -zoom; if( zoom < 1.0 ) img.fdblock = (int)(-1.0/zoom); else img.fdblock = (int)zoom; } } /* * Subroutine: make_argv * Purpose: Allocate space used for commandline */ static char **make_argv ( maxargs ) int maxargs; { int i; char **argv; char *calloc_errchk(); argv = (char **)calloc_errchk(maxargs, sizeof(char **), "Parse buffer"); for( i = 0; i < maxargs; i++ ) argv[i] = calloc_errchk(SZ_FNAME, sizeof(char), "Parse buffer"); return( argv ); } /* * Subroutine: free_argv * Purpose: Free the space used for parsing the command line */ static void free_argv ( argv, maxargs ) int maxargs; char **argv; { int i; for( i=0; i -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ extern int init_done; /* flag set at end of initialization indicates redo */ #ifdef ALLIANT extern int bad_buttons; #endif /* * Subroutine: parse_cmdline * Purpose: Process options to set filename and change defaults * Returns: -1 on error, 0 OK but no filename, 1 OK and new filename given */ int parse_cmdline ( argc, argv, displayname ) int argc; char *argv[]; char **displayname; /* i/o: gets server name only at init time */ { int i, status; int got, init; int parse_display(), parse_filename(), parse_filetype(), parse_connection(); int parse_rotate(), parse_scale(), parse_color(), parse_fileread(), usage(); void init_cmdline(); static int parse_etc(); if( displayname != NULL ) { /* if initial program command line, strip off program name, store line */ argc--; argv = &(argv[1]); /* store the initial command string */ init_cmdline(argc, argv); init = 1; } else init = 0; /* initialize parse history */ got = 0; status = 1; buffer.lfrac = 0.01; /* check command line arguments for option requests */ for( i = 0; (status == 1) && (i < argc); i++ ) { if( (status = parse_display(argc, argv, &i, &got, displayname)) ) { /* check for server or window dressing specifications */ ; } else if( ((got & CMD_FTYPE) == 0) && ((status = parse_filetype(argc, argv, &i, &got)) != 0) ) { /* check for the image file type */ ; } else if( (status = parse_connection(argc, argv, &i, &got, init)) != 0 ) { /* check for change in remote connection status */ ; } else if( (status = parse_fileread(argc, argv, &i, &got)) != 0 ) { /* check for image file reading parameters */ ; } else if( (status = parse_rotate(argc, argv, &i, &got)) != 0 ) { /* check for image rotation */ ; } else if( (status = parse_scale(argc, argv, &i, &got)) != 0 ) { /* check for scaling specifications */ ; } else if( (status = parse_color(argc, argv, &i, &got)) != 0 ) { /* check for color map selection */ ; } else if( (status = parse_etc(argc, argv, i)) != 0 ) { /* check for miscelaneous environment switches */ ; } else if( ((got & CMD_FNAME) == 0) && ((status = parse_filename(argc, argv, &i, &got)) != 0) ) { /* check for a possible image file name */ ; } else { if( argv[i][0] == '-' ) status = usage("unexpected switch", argc, argv, i, i); else status = usage("unrecognized token", argc, argv, i, i); } } if( status == 1 ) { return( got ); } else return( -1 ); } /* * Subroutine: parse_etc * Purpose: Parse command line for things settings from the etc menu */ static int parse_etc ( argc, argv, i ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int i; /* arg to check */ { void set_submenu_toggle(); if( (strcmp(argv[i], "-ct") == 0) || (strcmp(argv[i], "-coord") == 0) ) { if( control.coord_track == 1 ) { control.coord_track = 0; if( init_done ) set_submenu_toggle(EOP, EOP_TextTrack, 0); } } else if( (strcmp(argv[i], "+ct") == 0) || (strcmp(argv[i], "+coord") == 0) ) { if( control.coord_track != 1 ) { control.coord_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_TextTrack, 1); } } else if( (strcmp(argv[i], "-mt") == 0) || (strcmp(argv[i], "-magnifier") == 0) ) { if( control.magni_track != 1 ) { /* track updates windows as mouse moves */ control.magni_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Track, 1); } } else if( (strcmp(argv[i], "+mt") == 0) || (strcmp(argv[i], "+magnifier") == 0) ) { if( control.magni_track == 1 ) { /* track updates windows as mouse moves */ control.magni_track = 0; if( init_done ) set_submenu_toggle(EOP, EOP_Track, 0); } } else if( (strcmp(argv[i], "-q") == 0) || (strcmp(argv[i], "-quiet") == 0) || (strcmp(argv[i], "-v") == 0) || (strcmp(argv[i], "-verbose") == 0) ) { /* verbosity to control reporting of positions and measurements */ control.verbose = 0; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 0); } else if( (strcmp(argv[i], "+v") == 0) || (strcmp(argv[i], "+verbose") == 0) ) { control.verbose = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 1); #ifdef ALLIANT } else if (strcmp(argv[i], "-alliant")==0) { bad_buttons = 1; #endif } else { return( 0 ); } return( 1 ); } /* * Subroutine: string_cmdline * Purpose: Print tokens on one line to be like original command line */ void string_cmdline ( argc, argv, cmdline, linemax ) int argc; char *argv[]; char *cmdline; int linemax; { int i; if( argc <= 0 ) { cmdline[0] = '\0'; } else { (void)strcpy(cmdline, argv[0]); for( i=1; i= argc ) { (void)fprintf(stderr, "Missing arg(s) to switch\n"); last = argc - 1; } /* print message and offending tokens */ (void)fprintf(stderr,"Command line %s error:", what); for( i=first; i<=last; i++ ) { (void)fprintf(stderr, " %s", argv[i]); } (void)fprintf(stderr, "\n"); /* list switch options */ (void)fprintf(stderr,"usage: saoimage [ options ] [ - filename ]\n"); (void)fprintf(stderr," where options are one or more of:\n"); (void)fprintf(stderr," [(-display) (-d) ]"); (void)fprintf(stderr," [[(-geometry) (-g) ] [-gd ]]\n"); (void)fprintf(stderr," [[(-fits) (-oif)] [(-u1) (-u2)"); (void)fprintf(stderr," (-i2) (-i4) (-r4) (-r8) ]]\n"); (void)fprintf(stderr," [(-skip) (-sk) ] [(-byteswap) (-bswap)]\n"); (void)fprintf(stderr," [[-zero] [-one]]"); (void)fprintf(stderr," [[(-lowerleft) (-ll)] [(-upperleft) (-ul)]]\n"); (void)fprintf(stderr," [(-rotate) (-rot) <1,2,3>]\n"); (void)fprintf(stderr," [-rmin ]"); (void)fprintf(stderr," [-rmax ]\n"); (void)fprintf(stderr," [-linear] [-wrap ] [-histeq]"); (void)fprintf(stderr," [-sqrt ] [-log ]\n"); (void)fprintf(stderr," [-min ] [-max ]\n"); (void)fprintf(stderr," [(-palette) (-p) ]"); (void)fprintf(stderr," [(-neg) (-n)]\n"); (void)fprintf(stderr," [(-vertgraph) (-vg)] [(-horizgraph) (-hg)]\n"); (void)fprintf(stderr," [(+/-verbose) (+/-v) (-quiet) (-q)]"); (void)fprintf(stderr," [(+/-coord) (+/-ct)]\n"); (void)fprintf(stderr," [(+/-magnifier) (+/-mt)]"); (void)fprintf(stderr," [-mag ]\n"); (void)fprintf(stderr," [(+/-imtool) (-pros)]\n"); (void)fprintf(stderr," [-idev ] [-odev ]"); (void)fprintf(stderr," [-fbconfig ]\n"); (void)fprintf(stderr," [(-red) (-green) (-blue)]\n"); (void)fprintf(stderr," [(-panboxav) (-panboxsamp) (-panboxsum)"); (void)fprintf(stderr," (-panboxmax)]\n"); (void)fprintf(stderr," [-lprbuttons] [-mtf]"); (void)fprintf(stderr," [(-bordercolor) (-bc) ]\n"); (void)fprintf(stderr," [-lfrac ]\n"); #ifdef ALLIANT (void)fprintf(stderr," [-alliant]"); #endif (void)fprintf(stderr,"In most cases, the image filename needs no switch"); (void)fprintf(stderr," and can appear anywhere\nin the options list\n"); return( -1 ); } saoimage-1.08/ctrlgc.c 666 21641 13 20765 4617514053 10005 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrlgc.c (Control Graphics Context) * Purpose: Create a GC and set the GC params when needed * Subroutine: init_gc() returns: void * Subroutine: free_gc() returns: void * Subroutine: set_gc() returns: GC * Subroutine: set_gc_with_background() returns: GC * Subroutine: set_text_gc() returns: GC * Subroutine: set_edit_gc() returns: GC * Subroutine: get_fontstruct() returns: XFontStruct * * Xlib calls: XCreateGC(), XSetMask(), XSetFunction(), XSetForeground() * Xlib calls: XChangeGC(), XLoadQueryFont() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 29 May 1989 * {n} -- -- */ #include /* get stderr, NULL, etc */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define DONT_CARE, U_DONT_CARE */ #include "hfiles/color.h" /* color and GCspec param structure */ extern struct colorRec color; static GC main_gc = NULL; static Display *main_display; static XGCValues gcvalue; #define OPTION_COUNT 6 #define NAME_COUNT 17 static char *fontlist[NAME_COUNT] = { NULL, /* user preference 0 */ NULL, /* user preference 1 */ NULL, /* user preference 2 */ NULL, /* 3 */ "6x10", /* 4 */ "6x13", /* 5 */ "8x13", /* 6 */ "9x15", /* 7 */ "*-courier-medium-r-normal-*-10-*", /* 8 */ "*-helvetica-medium-r-normal-*-10-*", /* 9 */ "*-times-medium-r-normal-*-10-*", /* 10 */ "*-courier-medium-r-normal-*-12-*", /* 11 */ "*-helvetica-medium-r-normal-*-12-*", /* 12 */ "*-times-medium-r-normal-*-12-*", /* 13 */ "*-courier-medium-r-normal-*-14-*", /* 14 */ "*-helvetica-medium-r-normal-*-14-*", /* 15 */ "*-times-medium-r-normal-*-14-*" }; /* 16 */ static XFontStruct *fontstruct[NAME_COUNT] = { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL }; /* order to try fonts from list for particular application type */ static int preference[3][OPTION_COUNT] = { { 0, 5, 9, 10, 4, 8 }, /* small for color graph */ { 1, 5, 11, 12, 13, 6 }, /* medium for cursor label */ { 2, 5, 7, 15, 16, 14 } }; /* large for popup editor */ static XFontStruct *app_font[3] = { NULL, NULL, NULL }; /* * Subroutine: init_gc() * Purpose: Create the gc and set initial values * Xlib calls: XCreateGC() */ void init_gc ( display, window ) Display *display; Window window; { unsigned long valuemask; main_display = display; gcvalue.function = GXcopy; gcvalue.plane_mask = AllPlanes; gcvalue.foreground = color.gcset.menu.foreground; gcvalue.background = color.gcset.menu.background; /* set mask for values which are not same as default */ valuemask = GCForeground | GCBackground; main_gc = XCreateGC(display, window, valuemask, &gcvalue); } /* * Subroutine: free_gc * Purpose: free resources loaded by server before exiting */ void free_gc ( ) { int i; for( i=0; imask != gcvalue.plane_mask ) { gcvalue.plane_mask = spec->mask; XSetPlaneMask(main_display, main_gc, gcvalue.plane_mask); } if( spec->func != gcvalue.function ) { gcvalue.function = spec->func; XSetFunction(main_display, main_gc, gcvalue.function); } if( (spec->foreground != U_DONT_CARE) && (spec->foreground != gcvalue.foreground) ) { gcvalue.foreground = spec->foreground; XSetForeground(main_display, main_gc, gcvalue.foreground); } } return( main_gc ); } /* * Subroutine: set_gc_with_background * Purpose: Adjust gc params as specified for drawing with a background * Xlib calls: XSetMask(), XSetFunction(), XSetForeground(), XSetBackground() */ GC set_gc_with_background ( spec, background ) GCspec *spec; unsigned long background; { if( spec->mask != gcvalue.plane_mask ) { gcvalue.plane_mask = spec->mask; XSetPlaneMask(main_display, main_gc, gcvalue.plane_mask); } if( spec->func != gcvalue.function ) { gcvalue.function = spec->func; XSetFunction(main_display, main_gc, gcvalue.function); } if( (spec->foreground != U_DONT_CARE) && (spec->foreground != gcvalue.foreground) ) { gcvalue.foreground = spec->foreground; XSetForeground(main_display, main_gc, gcvalue.foreground); } if( (background != U_DONT_CARE) && (background != gcvalue.background) ) { gcvalue.background = background; XSetBackground(main_display, main_gc, gcvalue.background); } return( main_gc ); } /* * Subroutine: set_text_gc * Purpose: Adjust gc params as specified for basic text * Xlib calls: XChangeGC() * Note: Most gc values are cached, but new font flushes vals to server */ GC set_text_gc ( font, foreground, background, func, mask ) Font font; unsigned long foreground; unsigned long background; int func; unsigned long mask; { unsigned long valuemask = 0; if( font != gcvalue.font ) { gcvalue.font = font; valuemask = GCFont; } if( foreground != gcvalue.foreground ) { gcvalue.foreground = foreground; valuemask |= GCForeground; } if( (background != U_DONT_CARE) && (background != gcvalue.background) ) { gcvalue.background = background; XSetBackground(main_display, main_gc, gcvalue.background); } if( mask != gcvalue.plane_mask ) { gcvalue.plane_mask = mask; valuemask |= GCPlaneMask; } if( func != gcvalue.function ) { gcvalue.function = func; valuemask |= GCFunction; } if( valuemask ) XChangeGC(main_display, main_gc, valuemask, &gcvalue); return( main_gc ); } /* * Subroutine: set_edit_gc * Purpose: Adjust gc params as specified for text with a background * Xlib calls: XChangeGC() */ GC set_edit_gc ( font, foreground, background ) Font font; unsigned long foreground; unsigned long background; { unsigned long valuemask = 0; if( font != gcvalue.font ) { gcvalue.font = font; valuemask = GCFont; } if( AllPlanes != gcvalue.plane_mask ) { gcvalue.plane_mask = AllPlanes; valuemask |= GCPlaneMask; } if( GXcopy != gcvalue.function ) { gcvalue.function = GXcopy; valuemask |= GCFunction; } if( foreground != gcvalue.foreground ) { gcvalue.foreground = foreground; valuemask |= GCForeground; } if( background != gcvalue.background ) { gcvalue.background = background; valuemask |= GCBackground; } if( valuemask ) XChangeGC(main_display, main_gc, valuemask, &gcvalue); return( main_gc ); } /* * Subroutine: get_fontstruct * Returns: Pointer to the specified fontstruct */ XFontStruct *get_fontstruct ( app_code ) int app_code; /* i: see comments above */ { static int init_font(); if( (app_font[app_code] == NULL) && (init_font(app_code) == NULL) ) return( NULL ); else return( app_font[app_code] ); } /* * Subroutine: init_font * Purpose: Load the fonts used by this program * Returns: Font on success, else 0 */ static int init_font ( app_code ) int app_code; /* i: font application type index */ { int i, name_index; static int open_font(); for( i=0; i -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/control.h" /* to find verbose */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ extern struct controlRec control; /* decide how much to print */ #define MINPLANES 4 #define MAXPLANES 8 static int screen; static XVisualInfo default_vinfo; /* info about the default visual */ static XVisualInfo private_vinfo; /* info about the our own visual */ static Display *display; /* * Subroutine: init_color * Purpose: Claim and set up colors (and do any needed initial work) */ void init_color ( color, init ) struct colorRec *color; int init; { int alloc_colors(); void exit_errmsg(), init_hard_colors(), init_halftone(); void free_color_cells(), lookup_cursor_colors(), free_cursor_cell_color(); void init_overlay_color(), init_cell_color(), init_halftone_color(); static int init_visual(); if( init ) { display = color->display; if( init_visual(color, MINPLANES) == 0 ) { color->colormap_mode = VOP_Halftone; } else if( color->colormap_mode != VOP_Halftone ) { init_hard_colors(color, color->map.default_colormap); lookup_cursor_colors(color, color->map.default_colormap, 1); } /* set pointers for halftone tools */ init_halftone(); } else if( color->colors_alloced ) { /* free currently alloc'ed colors */ free_color_cells(color, color->colormap); if( (color->old_mode != color->colormap_mode) && (color->colormap_mode == VOP_Cells) ) /* free read-only cursor colors if we think they won't be needed */ free_cursor_cell_color(color); } switch( color->colormap_mode ) { case VOP_PseudoColor: case VOP_StaticColor: if( color->cells.overlay ) { if( alloc_colors(color) ) { init_overlay_color(color); if( control.verbose ) (void)printf("%d color levels with overlay reserved\n", color->ncolors); color->old_mode = VOP_Overlay; break; } color->cells.overlay = 0; } if( alloc_colors(color) ) { init_cell_color(color); if( control.verbose ) (void)printf("%d color levels reserved\n", color->ncolors); color->old_mode = VOP_Cells; break; } color->colormap_mode = VOP_Halftone; case VOP_Halftone: color->colormap = color->map.default_colormap; color->cells.overlay = 0; init_halftone_color(color); color->old_mode = VOP_Halftone; break; default: exit_errmsg("Unknown color mode"); } color->cursor_overlay = color->cells.overlay; } /* * Subroutine: init_visual * Purpose: Get basic info about the color hardware on hand */ static int init_visual ( color, mindepth ) struct colorRec *color; int mindepth; /* i: minimum planes needed for color */ { int verify_pseudocolor(); void exit_errmsg(); display = color->display; if( color->screen < 0 ) color->screen = DefaultScreen(display); screen = color->screen; color->screen_depth = DisplayPlanes(display, screen); color->hard.std_white = WhitePixel(display, screen); color->hard.std_black = BlackPixel(display, screen); color->gcset.menu.foreground = color->hard.std_black; color->gcset.menu.background = color->hard.std_white; color->gcset.black.background = color->hard.std_white; /* initially set visual to default visual */ color->visual = DefaultVisual(display, screen); color->map.default_colormap = DefaultColormap(display, screen); if( color->screen_depth < mindepth ) { color->map.default_enable = NO; color->map.private_enable = NO; return( 0 ); } else { XVisualInfo *vinfo; int vinfo_cnt, vptr; color->map.default_vinfo = &default_vinfo; default_vinfo.screen = screen; default_vinfo.visual = color->visual; #ifdef XV11R2 default_vinfo.visualid = default_vinfo.visual->visualid; #else default_vinfo.visualid = XVisualIDFromVisual(default_vinfo.visual); #endif vinfo = XGetVisualInfo(display, VisualIDMask | VisualScreenMask, &default_vinfo, &vinfo_cnt); vptr = 0; if( vinfo_cnt > 1 ) { /* just take the first visual that matches */ while( (vptr < vinfo_cnt) && (vinfo[vptr].visual != default_vinfo.visual) ) vptr++; } if( vinfo_cnt <= vptr ) exit_errmsg("Default visual not found"); default_vinfo.depth = vinfo[vptr].depth; default_vinfo.class = vinfo[vptr].class; default_vinfo.colormap_size = vinfo[vptr].colormap_size; XFree((char *)vinfo); switch( default_vinfo.class ) { case PseudoColor: color->map.default_enable = YES; return( 1 ); case StaticColor: case DirectColor: case TrueColor: case GrayScale: case StaticGray: default: if( color->colormap_mode == VOP_Halftone ) { color->map.default_enable = YES; color->map.default_permit = YES; default_vinfo.depth = 1; return( 0 ); } else { color->map.default_enable = NO; color->map.default_permit = NO; if( verify_pseudocolor(color, 4, 16) ) { color->map.private_enable = YES; return( 1 ); } else { color->map.private_enable = NO; color->map.private_permit = NO; return( 0 ); } } } } } /* * Subroutine: verify_pseudocolor * Purpose: Verify that server can provide a satisfactory colormap * Returns: 1 if yes, else 0 * PostState: Fills in visual info in passed vinfo * Xlib calls: XGetVisualInfo(), XFree() */ int verify_pseudocolor ( color, min_depth, min_size ) struct colorRec *color; int min_depth; /* i: minimum required depth */ int min_size; /* i: minimum number of map cells */ { XVisualInfo *linfo; /* l: list returned by XGetVisualInfo */ int cnt, i, ptr; private_vinfo.screen = color->screen; private_vinfo.class = PseudoColor; linfo = XGetVisualInfo(color->display, VisualClassMask | VisualScreenMask, &private_vinfo, &cnt); if( cnt == 0 ) { color->map.private_enable = NO; color->map.private_permit = NO; return( 0 ); } ptr = 0; if( cnt > 1 ) { for( i=0; i= linfo[ptr].depth) && (linfo[i].colormap_size >= linfo[ptr].colormap_size) ) ptr = i; } } if( (linfo[ptr].depth < (unsigned int)min_depth) || (linfo[ptr].colormap_size < min_size) ) { XFree((char *)linfo); color->map.private_enable = NO; color->map.private_permit = NO; return( 0 ); } else { bcopy((char *)(&linfo[ptr]), (char *)(&private_vinfo), sizeof(XVisualInfo)); color->map.private_vinfo = &private_vinfo; color->map.private_enable = YES; XFree((char *)linfo); return( 1 ); } } saoimage-1.08/ctrlpipe.c 666 21641 13 5310 4617461225 10320 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrlpipe.c (Control Pipe Device) * Purpose: Open a pipe device for IO * Subroutine: open_pipe() returns: int * Subroutine: close_pipe() returns: void * Subroutine: flush_pipe() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 25 May 1989 * {1} MVH simplified code for modular strategy 10 March 1990 * {n} -- -- */ #ifndef VMS #include /* define stderr, FILE, NULL, etc */ /* * Subroutine: open_pipe * Purpose: Open a channel on a named device for pipe I/O * Returns: Channel number on success (0-64) else -1. * Note: select_mask and mask_size are augmented, not initialized */ int open_pipe ( device_name, write_flag, flush_flag ) char *device_name; /* i: name of pipe device to open */ int write_flag; /* i: >0: write only, <=0: read */ int flush_flag; /* i: 1=flush, 0=don't flush */ { int ipc; /* o: channel of new pipe connection */ int open_disk(); void fcntl_disk(), flush_disk(), close_disk(); if( write_flag > 0 ) { int datain; /* open file to read (don't block) */ if( (datain = open_disk(device_name, -1, 1)) == -1 ) return( -1 ); /* open same file to write (don't block) */ if( (ipc = open_disk(device_name, 1, 1)) == -1 ) { close_disk(datain, device_name); return( -1 ); } /* now enable blocking and close the reading connection */ fcntl_disk(ipc, 1, 0, device_name); close_disk(datain, device_name); } else { /* open the device READ-WRITE, don't block - time_out on failure */ if( (ipc = open_disk(device_name, 0, 1)) == -1 ) return( -1 ); if( flush_flag ) /* if reading, flush old input, if any, with non-blocking reads */ flush_disk(ipc, device_name); /* from now on block on read or write */ fcntl_disk(ipc, -1, 0, device_name); } return( ipc ); } /* * Subroutine: close_pipe * Purpose: Close pipe connection */ void close_pipe ( ipc, device_name ) int ipc; /* i: channel number of open pipe */ char *device_name; /* i: name of pipe device */ { void close_disk(); close_disk(ipc, device_name); } /* * Subroutine: flush_pipe * Purpose: Suck all bytes out of a pipe open for reading */ void flush_pipe ( ipc, filename ) int ipc; char *filename; { void flush_disk(); flush_disk(ipc, filename); } #endif saoimage-1.08/ctrlfile.c 666 21641 13 14602 4613611530 10316 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrlfile.c (Control File) * Purpose: Prompt for file name and open file for specified purpose * Subroutine: open_output_file() * Subroutine: open_input_file() * Subroutine: swap_bytes() * UNIX calls: fopen(), lstat(), unlink(), extern int errno * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 July 1989 * {n} -- -- */ #include /* FILE, stderr, NULL, etc. */ #include /* macros for isupper, tolower, etc */ #include /* needed for lstat */ #include /* needed for lstat, struct stat */ #include /* ENOENT */ #include /* X window stuff */ #include "hfiles/edit.h" /* EditStruct */ #ifdef VMS #define lstat stat #define unlink delete #endif /* May not get defined on some systems, redeclaration doesn't seem to hurt */ extern int errno; /* * Subroutine: open_output_file * Purpose: Open a file for writing, as specified by user * Post state: Sets pointer to file, open and ready for writing * Returns: 2 = append, 1 = new file, 0 = user decided not to, -1 = error */ int open_output_file ( fd, edit, one_popup_row, prompt ) FILE **fd; EditStruct *edit; int one_popup_row; /* i: put-promt-before-edit-line, else above */ char *prompt; { int exist; static EditStruct *instruct = NULL; static char *response; int reply; char filename[128]; char open_type[4]; int done; /* l: return status */ int get_edit_input(); EditStruct *init_edit_popup(); void clear_edit_buf(), unmap_popwin(); static int file_exists(); open_type[0] = 0; if( (get_edit_input(edit, one_popup_row, 1, 0, prompt) <= 0) || (edit->char_cnt == 0) ) { unmap_popwin(); return( 0 ); } strncpy(filename, edit->string, edit->char_cnt); filename[edit->char_cnt] = '\0'; /* check if file already exists */ exist = file_exists(filename); done = -3; if( exist >0 ) { /* if it exists, get instructions on how to respond */ if( instruct == NULL ) { instruct = init_edit_popup(NULL, 8); response = instruct->string; } do { clear_edit_buf (instruct); reply = get_edit_input(instruct, 1, 0, 0, "Enter 'o' (overwrite), 'a' (append), 'q' (quit): "); if( reply <= 0 ) { done = 0; } else if( instruct->char_cnt > 0 ) { if( isupper(response[0]) ) response[0] = tolower(response[0]); /* quit, do nothing */ if( response[0] == 'q') { /* quit */ done = 0; } else if( response[0] == 'o') { /* overwrite existing file */ strcpy(open_type, "w"); if( unlink(filename) <0 ) { (void)fprintf(stderr, "Error: can't delete file\n"); perror (filename); done = -1; } else done = 1; } else if( response[0] == 'a') { /* append to end of existing file */ strcpy(open_type, "a"); done = 2; } else /* else unknown response */ XBell(edit->display, 20); } } while( done == -3 ); } else if( exist ==0 ) { /* file does not yet exist */ strcpy(open_type, "a"); done = 1; } else { /* problem accessing file */ (void)fprintf(stderr, "Error attempting to access file\n"); perror(filename); done = -1; } unmap_popwin(); if( done > 0 ) { /* open the file appropriately */ if( (*fd=fopen(filename, open_type)) == NULL ) { (void)fprintf(stderr, "Error attempting to open file\n"); perror(filename); done = -1; } } if( done < 0 ) XBell(edit->display, 20); return( done ); } /* * Subroutine: open_input_file * Purpose: Open a file for reading, as specified by user * Note: Sets pointer of file open and ready for reading * Returns: 1 on success, 0 if user decided not to, -1 on error */ int open_input_file ( fd, edit, one_popup_row, prompt ) FILE **fd; EditStruct *edit; int one_popup_row; /* i: put-promt-before-edit-line, else above */ char *prompt; { char filename[132]; int exist; int get_edit_input(); static int file_exists(); if( get_edit_input(edit, one_popup_row, 1, 1, prompt) <= 0 ) return( 0 ); strncpy(filename, edit->string, edit->char_cnt); filename[edit->char_cnt] = '\0'; /* see if it exists */ exist = file_exists(filename); if( exist ==0 ) { (void)fprintf(stderr, "Error: file %s does not exist\n", filename); return( -1 ); } else if( exist <0 ) { (void)fprintf(stderr, "Error attempting to access file\n"); perror(filename); return( -1 ); } /* open the cursor file */ if( (*fd = fopen(filename, "r")) == NULL ) { (void)fprintf(stderr, "Error attemping to open file\n"); perror(filename); return( -1 ); } return( 1 ); } /* * Subroutine: file_exists * Purpose: does a file exist for opening (1=yes, 0=no, -1=problem) */ static int file_exists ( name ) char *name; { int i; struct stat buf; i = lstat(name, &buf); if( i ==0 ) return(1); /* found the file */ else if( errno == ENOENT ) return(0); /* didn't find the file */ else #ifndef VMS return(-1); /* a real error of some sort */ #else return(0); /* VMS doesn't set errno properly in this case */ #endif } /* * Subroutine: swap_bytes * Purpose: Swap bytes in place, (swab is not guaranteed to work in place) */ void swap_bytes ( array, nbytes ) char *array; int nbytes; { register char *low_byte, *high_byte, *last_byte; register unsigned temp; register int next=2; /* swap successive pairs of bytes */ low_byte = array; high_byte = array+1; last_byte = array + nbytes; while( high_byte < last_byte ) { temp = *low_byte; *low_byte = *high_byte; *high_byte = temp; /* there is no hardware incr on the 68000, so why bother with ++? */ low_byte += next; high_byte += next; } } saoimage-1.08/clrhard.c 666 21641 13 15404 4613612215 10133 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: clrhard.c (Color Hard) * Purpose: Get common named colors * Subroutine: init_hard_colors() returns: void * lookup_cursor_colors() returns: void * alloc_cursor_cell_color() returns: int * free_cursor_cell_color() returns: void * Xlib calls: XAllocNamedColor(), XAllocColor() * Xlib calls: XFreeColors(), XLookupColor() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ #include /* stderr, FILE, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ /* * Subroutine: init_hard_colors * Purpose: Set up basic hardware colors */ void init_hard_colors ( color, colormap ) struct colorRec *color; Colormap colormap; { static int get_hard_color(); color->hard.red = get_hard_color(color->display, colormap, "red", 63000, 0, 0); color->gcset.red.foreground = color->hard.red; color->hard.green = get_hard_color(color->display, colormap, "green", 0, 60000, 0); color->gcset.green.foreground = color->hard.green; color->hard.blue = get_hard_color(color->display, colormap, "blue", 0, 0, 65535); color->gcset.blue.foreground = color->hard.blue; color->hard.yellow = get_hard_color(color->display, colormap, "yellow", 65535, 65535, 0); color->hard.true_black = get_hard_color(color->display, colormap, "black", 0, 0, 0); color->gcset.black.foreground = color->hard.true_black; color->hard.true_white = get_hard_color(color->display, colormap, "white", 65535, 65535, 65535); color->gcset.white.foreground = color->hard.std_white; } /* * Subroutine: lookup_cursor_colors * Purpose: Get color parameters from named cursor colors */ void lookup_cursor_colors ( color, colormap, init ) struct colorRec *color; Colormap colormap; int init; { static void lookup_color(); /* update xcolor structs if needed */ if( init || (color->cur.desired_cur != NULL) ) { lookup_color(color->display, colormap, &(color->cur.color_cur), color->cur.desired_cur, color->cur.default_cur); color->cur.desired_cur = NULL; } if( init || (color->cur.desired_one != NULL) ) { lookup_color(color->display, colormap, &(color->cur.color_one), color->cur.desired_one, color->cur.default_one); color->cur.desired_one = NULL; } if( init || (color->cur.desired_two != NULL) ) { lookup_color(color->display, colormap, &(color->cur.color_two), color->cur.desired_two, color->cur.default_two); color->cur.desired_two = NULL; } } /* * Subroutine: alloc_cursor_cell_color * Purpose: Allocate defined colors for cursors and overlays * Returns: Pixel value for the cursor color * Pre-state: XColor for cur, one, and two, initialized * Post-state: Pixel values for one and two set, that for cur returned. */ int alloc_cursor_cell_color ( color, colormap ) struct colorRec *color; Colormap colormap; { int val; static int alloc_hard_color(); if( (color->cur.disp_one = alloc_hard_color(color->display, colormap, &color->cur.color_one)) < 0 ) color->cur.disp_one = color->hard.blue; if( (color->cur.disp_two = alloc_hard_color(color->display, colormap, &color->cur.color_two)) < 0 ) color->cur.disp_two = color->hard.red; if( (val = alloc_hard_color(color->display, colormap, &color->cur.color_cur)) < 0 ) val = color->hard.green; return( val ); } /* * Subroutine: free_cursor_cell_color * Purpose: Free cell color overlay colors */ void free_cursor_cell_color ( color ) struct colorRec *color; { static void free_readonly_color(); free_readonly_color(color, (int)color->cur.color_one.pixel); free_readonly_color(color, (int)color->cur.color_two.pixel); free_readonly_color(color, (int)color->cur.color_cur.pixel); } /* * Subroutine: free_readonly_color * Purpose: Free cursor color if it is not one of the essential ones * Xlib calls: XFreeColors() */ static void free_readonly_color ( color, pixel_value ) struct colorRec *color; int pixel_value; { if( (pixel_value != color->hard.red) && (pixel_value != color->hard.green) && (pixel_value != color->hard.blue) && (pixel_value != color->hard.true_black) && (pixel_value != color->hard.true_white) && (pixel_value != color->hard.std_black) && (pixel_value != color->hard.std_white) ) XFreeColors(color->display, color->colormap, (unsigned long *)&pixel_value, 1, 0); } /* * Subroutine: get_hard_color * Purpose: Alloc a read-only color cell with a common color * Xlib calls: XAllocNamedColor(), XAllocColor() * Method: Get a color by name if possible, else reserve it by value */ static int get_hard_color ( display, colormap, name, red, green, blue ) Display *display; Colormap colormap; char *name; int red, green, blue; { XColor actual, ideal; /* see if we can get a standard named color */ if( XAllocNamedColor(display, colormap, name, &actual, &ideal) == 0 ) { /* else reserve our own */ actual.pixel = 0; actual.red = red; actual.green = green; actual.blue = blue; if( XAllocColor(display, colormap, &actual) == 0 ) { (void)fprintf(stderr, "WARNING: could not get harware color.\n"); return( 0 ); } } return( (int)actual.pixel ); } /* * Subroutine: lookup_color * Purpose: Set up the rgb values in the Xcolor * Xlib calls: XLookupColor * Method: Use the desired color if given and known to Xlib, else use * the defaut color. */ static void lookup_color ( display, colormap, xcolor, desired_name, default_name ) Display *display; Colormap colormap; XColor *xcolor; char *desired_name; char *default_name; { XColor ideal; if( desired_name != NULL ) { if( XLookupColor(display, colormap, desired_name, &ideal, xcolor) ) { return; } else { (void)fprintf(stderr,"WARNING: Could not find color: %s, using: %s\n", desired_name, default_name); } } XLookupColor(display, colormap, default_name, &ideal, xcolor); } /* * Subroutine: alloc_hard_color * Purpose: Given rgb values, set the pixel * Xlib calls: XAllocColor() * Returns: Pixel value used or -1 if failed */ static int alloc_hard_color ( display, colormap, xcolor ) Display *display; Colormap colormap; XColor *xcolor; { if( XAllocColor(display, colormap, xcolor) ) return( (int)xcolor->pixel ); else return( -1 ); } saoimage-1.08/csrarea.c 666 21641 13 12664 4613613607 10147 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrarea.c (Cursor Area) * Purpose: Calculate areas of cursors * Subroutine: cursor_area(); returns: double * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #define PI 3.14159265358979323846 /* * Subroutine: cursor_area * Purpose: Calculate area, in float units file pixels, enclosed by cursor * Method: Use mathematical formula appropriate to cursor type */ double cursor_area ( cursor, user_info ) struct cursorRec *cursor; int user_info; /* flag, data is for user info */ { double area; int i, j; static int test_cross(); switch( cursor->type ) { case COP_Circle: area = PI * cursor->file.Xdim * cursor->file.Xdim; break; case COP_Ellipse: area = PI * cursor->file.Xdim * cursor->file.Ydim; break; case COP_Box: area = cursor->file.Xdim * cursor->file.Ydim * 4.0; break; case COP_Point: area = 0.0; break; case COP_Polygon: /* polygon area is sum of signed areas between each edge and x axis */ /* (except when polygon edges cross one another) */ area = 0; if( user_info && test_cross(cursor->poly, cursor->poly_cnt, cursor->poly_cnt - 1, 0) ) return( -1.0 ); j = cursor->poly_cnt - 1; /* each area is (x1-x2)*(y1+y2)/2, /2 will be done once at end */ for( i=0; ipoly_cnt; i++ ) { area += (cursor->poly[i].fileX - cursor->poly[j].fileX) * (cursor->poly[i].fileY + cursor->poly[j].fileY); j = i; } /* sign of area depends on clockwise or counter-clockwise ordering */ if( area < 0.0 ) area *= -0.5; else area *= 0.5; default: break; } return( area ); } /* end points of a polygon edge against which to test others for crossing */ static double x11, y11, x12, y12; /* * Subroutine: test_cross * Purpose: Test the edges of a polygon to see if any cross each other * method: Starting with last edge, test each edge against subsequent * edges. Routine recurses with for next edge. Adjacent edges * are not tested since neighbors cannot cross but neighbors do * share a common point. */ static int test_cross ( pt, cnt, j, i ) PolyPoint *pt; /* list of vertices */ int cnt; /* number of vertices */ int j, i; /* two vertices at ends of edge being tested */ { int k; static int intercept(); if( (i+2) >= cnt ) { return( 0 ); } else { x11 = pt[j].fileX; y11 = pt[j].fileY; x12 = pt[i].fileX; y12 = pt[i].fileY; /* test each subsequent edge against this edge (but not adjacent edges) */ for( k=i+2; k x12 ) { if( ((x12 >= x21) && (x12 >= x22)) || ((x11 <= x21) && (x11 <= x22)) ) return( 0 ); } else { if( ((x11 >= x21) && (x11 >= x22)) || ((x12 <= x21) && (x12 <= x22)) ) return( 0 ); } if( y11 > y21 ) { if( ((y12 >= y21) && (y12 >= y22)) || ((y11 <= y21) && (y11 <= y22)) ) return( 0 ); } else { if( ((y11 >= y21) && (y11 >= y22)) || ((y12 <= y21) && (y12 <= y22)) ) return( 0 ); } /* compute intercept of line */ if( x12 == x11 ) { xpt = x12; ypt = y21 + ((xpt - x21) * (y22 - y21) / (x22 - x21)); } else if( x22 == x21 ) { xpt = x21; ypt = y11 + ((xpt - x11) * (y12 - y11) / (x12 - x11)); } else { m1 = (y12 - y11) / (x12 - x11); m2 = (y22 - y21) / (x22 - x21); xpt = ((x11 * m1) - (x21 * m2) + (y21 - y11)) / (m1 - m2); ypt = y11 + (m1 * (xpt - x11)); } /* check for being on both edges */ /* intercept x within x's of reference edge */ if( x11 > x12 ) { if( (x12 > xpt) || (xpt > x11) ) return( 0 ); } else { if( (x12 < xpt) || (xpt < x11) ) return( 0 ); } /* intercept y within y's of reference edge */ if( y11 > y12 ) { if( (y12 > ypt) || (ypt > y11) ) return( 0 ); } else { if( (y12 < ypt) || (ypt < y11) ) return( 0 ); } /* intercept x within x's of test edge */ if( x21 > x22 ) { if( (x22 > xpt) || (xpt > x21) ) return( 0 ); } else { if( (x22 < xpt) || (xpt < x21) ) return( 0 ); } /* intercept y within y's of test edge */ if( y21 > y22 ) { if( (y22 > ypt) || (ypt > y21) ) return( 0 ); } else { if( (y22 < ypt) || (ypt < y21) ) return( 0 ); } return( 1 ); } saoimage-1.08/clrmap.c 666 21641 13 13527 4613612270 7777 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: clrmap.c (Color Map) * Purpose: Set up the cell storemap XColor array * Subroutine: make_cellstore_from_tables() returns: void * Subroutine: make_cellstore_from_cellmaps() returns: void * Subroutine: make_cellmap_from_table() returns: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 16 May 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* define pow */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ #include "hfiles/define.h" /* INTERP, INCSZ, and more */ /* * Subroutine: make_cellstore_from_table * Purpose: Fill the color map according to the color vertex tables */ void make_cellstore_from_tables ( color ) struct colorRec *color; { void make_cellmap_from_table(), make_cellstore_from_cellmaps(); make_cellmap_from_table(&color->ctable.red); make_cellmap_from_table(&color->ctable.green); make_cellmap_from_table(&color->ctable.blue); make_cellstore_from_cellmaps(color); } /* * Subroutine: make_cellstore_from_cellmaps * Purpose: Fill XColor storemap from individual cellmaps */ void make_cellstore_from_cellmaps ( color ) struct colorRec *color; { double gamma; double *cellmap; double *gammamap; register int i; int ncolors; XColor *cellstore; cellstore = color->cellstore; ncolors = color->ncolors; cellmap = color->ctable.red.cellmap; if( color->ctable.red.do_gamma ) { gammamap = color->ctable.red.gammamap; gamma = 1.0 / color->ctable.red.gamma; for( i=0; ictable.green.cellmap; if( color->ctable.green.do_gamma ) { gammamap = color->ctable.green.gammamap; gamma = 1.0 / color->ctable.green.gamma; for( i=0; ictable.blue.cellmap; if( color->ctable.blue.do_gamma ) { gammamap = color->ctable.blue.gammamap; gamma = 1.0 / color->ctable.blue.gamma; for( i=0; ivertex_cnt; cellmap = table->cellmap; map_sz = table->map_sz; cell_factor = (double)(map_sz - 1); table_i = 0; while( (table->cell_level[table_i] < 0.0) && (++table_i < table_cnt) ); if( table_i >= table_cnt ) { /* entire table is below 0.0: set entire map with last intensity */ start_intensity = table->intensity[table_cnt - 1]; for( map_i=0; map_i 0 ) { /* table extends partially below 0.0 */ level_last = table->cell_level[table_i - 1]; intensity_last = table->intensity[table_i - 1]; } else { /* table starts at or above 0.0 */ level_last = 0.0; intensity_last = table->intensity[table_i]; } /* middle phase: run through map or table */ start_cell = 0; do { level_next = table->cell_level[table_i]; intensity_next = table->intensity[table_i]; stop_cell = (int)(level_next * cell_factor); if( stop_cell >= map_sz ) /* stop at end of map if there */ stop_cell = map_sz - 1; if( stop_cell >= start_cell ) { /* if levels traverse any map cells, set them */ start_intensity = INTERP(level_last, ((double)start_cell)/cell_factor, level_next, intensity_last, intensity_next); if( stop_cell == start_cell ) { /* if only one cell is traversed, set it */ cellmap[start_cell] = start_intensity; } else { intensity_inc = INCSZ(level_last, level_next, intensity_last, intensity_next, cell_factor); for( map_i=start_cell; map_i<=stop_cell; map_i++ ) { cellmap[map_i] = start_intensity; start_intensity += intensity_inc; } /* check for slight over-step at end */ if( cellmap[stop_cell] < 0.0 ) cellmap[stop_cell] = 0.0; else if( cellmap[stop_cell] > 1.0 ) cellmap[stop_cell] = 1.0; } start_cell = stop_cell + 1; } level_last = level_next; intensity_last = intensity_next; } while( (level_last < 1.0) && (++table_i < table_cnt) ); /* completion phase */ if( start_cell < map_sz ) { /* table ended before 1.0 */ for( map_i=start_cell; map_i -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* code values */ #include "hfiles/color.h" /* color structs */ #include "hfiles/colormap.h" /* color table storage structs */ #include "hfiles/define.h" /* define SZ_FNAME, etc. */ #include "hfiles/edit.h" /* EditStruct */ #include "defs/colormap.def" /* define color tables */ EditStruct *color_edit; /* key to popup editor for file name input */ /* * Subroutine: fetch_colortable * Purpose: Get a new pre-defined color table and load it for use * Returns: 1 if succeeded, else 0 */ int fetch_colortable ( color, table_code, imagefile ) struct colorRec *color; int table_code; char *imagefile; /* i: imagefile name to print in output file */ { ColorTable *newtable; static void load_newtable(), write_color_file(); static ColorTable *read_color_file(); switch( table_code ) { case MOP_Init_A: newtable = &gray_map; break; case MOP_Init_B: newtable = &bbs_map; break; case MOP_Init_C: newtable = &hip_map; break; case MOP_Init_D: newtable = &imp8_map; break; case MOP_Init_E: newtable = &a_map; break; case MOP_Init_F: newtable = &b_map; break; case MOP_Read: if( (newtable = read_color_file()) == NULL ) return( 0 ); break; case MOP_Write: write_color_file(imagefile, color); return( 0 ); default: (void)fprintf(stderr, "WARNING: unknown color map code!\n"); return( 0 ); } load_newtable(&color->ctable, newtable); return( 1 ); } static ColorTable ctable; /* * Subroutine: read_color_file * Purpose: Open and read a color table file, and load it into the * current color table. */ static ColorTable *read_color_file ( ) { FILE *fp; int open_input_file(), parse_color_file(); EditStruct *init_edit_popup(); if( color_edit == NULL ) color_edit = init_edit_popup((char *)NULL, SZ_FNAME); /* open coordinate output file for writing */ if( open_input_file(&fp, color_edit, 0, "Enter name of pseudocolor file:") <= 0 ) return( NULL ); bzero((char *)&ctable, sizeof(ColorTable)); if( parse_color_file(fp, &ctable, CTBL_MAX) ) { (void)fclose(fp); return( &ctable ); } else { (void)fclose(fp); return( NULL ); } } /* * Subroutine: write_color_file * Purpose: Open and write a color table file */ static void write_color_file ( imagefile, color ) char *imagefile; struct colorRec *color; { FILE *fp; int error; static void print_one_color(); EditStruct *init_edit_popup(); int open_output_file(); void timestamp(); error = 0; if( color->ctable.red.vertex_cnt > CTBL_MAX ) { (void)fprintf(stderr, "WARNING: too many red entries for portable table\n"); error = 1; } if( color->ctable.green.vertex_cnt > CTBL_MAX ) { (void)fprintf(stderr, "WARNING: too many green entries for portable table\n"); error = 1; } if( color->ctable.blue.vertex_cnt > CTBL_MAX ) { (void)fprintf(stderr, "WARNING: too many blue entries for portable table\n"); error = 1; } if( color_edit == NULL ) color_edit = init_edit_popup((char *)NULL, SZ_FNAME); /* open coordinate output file for writing */ if( open_output_file(&fp, color_edit, 0, "Enter name of pseudocolor file:") <= 0 ) error = 1; if( error ) { (void)fprintf(stderr,"No color file written\n"); XBell(color->display, 80); return; } /* timestamp the first entry in the output file. */ (void)fprintf(fp, "# SAOimage color table\n"); timestamp(fp, imagefile); (void)fprintf(fp, "PSEUDOCOLOR\n"); (void)fprintf(fp, "RED:"); print_one_color(fp, &color->ctable.red); (void)fprintf(fp, "GREEN:"); print_one_color(fp, &color->ctable.green); (void)fprintf(fp, "BLUE:"); print_one_color(fp, &color->ctable.blue); fclose(fp); } /* * Subroutine: * Purpose: */ static void print_one_color ( fp, table ) FILE *fp; struct subtableRec *table; { int i, j; if( table->do_gamma ) (void)fprintf(fp, " gamma %.3f\n", table->gamma); else (void)fprintf(fp, "\n"); for( i=0, j=0; ivertex_cnt; i++ ) { (void)fprintf(fp,"(%.3f,%.3f)",table->cell_level[i],table->intensity[i]); if( ++j >= 5 ) { j=0; (void)fprintf(fp, "\n"); } } (void)fprintf(fp, "\n"); } /* * Subroutine: load_newtable * Purpose: Load an internally stored color table for use */ static void load_newtable ( ctable, new ) struct colorTable *ctable; ColorTable *new; { static void load_subtable(); load_subtable(&ctable->red, &new->red); load_subtable(&ctable->green, &new->green); load_subtable(&ctable->blue, &new->blue); } /* * Subroutine: load_subtable * Purpose: Load one color of the internal color table */ static void load_subtable ( subtable, new ) struct subtableRec *subtable; struct SubTable *new; { int i; subtable->fixed_cells = 0; if( new->do_gamma ) { subtable->do_gamma = 1; subtable->gamma = new->gamma; } else { subtable->do_gamma = 0; subtable->gamma = 1.0; } subtable->invert_order = 0; subtable->vertex_cnt = new->vertex_cnt; for( i=0; ivertex_cnt; i++ ) { subtable->cell_level[i] = new->cell_level[i]; /* base levels used for dynamic manipulation */ subtable->base_level[i] = new->cell_level[i] - 0.5; subtable->intensity[i] = new->intensity[i]; } subtable->bias = 0.5; subtable->contrast = 1.0; } saoimage-1.08/clrread.c 666 21641 13 22104 4616423633 10132 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: clrread.c (Color Read) * Purpose: Read and Write file and internally stored color tables * Subroutine: parse_color_file() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 21 Nov 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* toupper, isalpha, etc. */ #include "hfiles/colormap.h" /* color table storage structs */ #include "hfiles/define.h" /* define SZ_LINE, etc. */ /* * Subroutine: parse_color_file * Purpose: Parse values after color identifier */ int parse_color_file ( fp, ctable, max_entries ) ColorTable *ctable; int max_entries; FILE *fp; { int len, i; int line_num; char line[SZ_LINE]; char cbuf[SZ_LINE]; struct SubTable *table; static int parse_color_table(), advance_to_ascii(); line_num = 0; /* advance to first non-comment line */ len = advance_to_ascii(fp, line, cbuf, SZ_LINE, &line_num, 1); if( len == 0 ) return( 0 ); if( (len < 0) || (len != 11) || (strncmp(cbuf, "PSEUDOCOLOR", 11) != 0) ) { (void)fprintf(stderr, "ERROR: pseudocolor keyword not found at head of file\n"); return( 0 ); } /* advance to next non-comment line */ len = advance_to_ascii(fp, line, cbuf, SZ_LINE, &line_num, 1); for( i=0; i<3; i++ ) { switch( len ) { case 0: return( 0 ); case 3: if( strncmp(cbuf, "RED", 3) != 0 ) table = NULL; else table = &ctable->red; break; case 4: if( strncmp(cbuf, "BLUE", 4) != 0 ) table = NULL; else table = &ctable->blue; break; case 5: if( strncmp(cbuf, "GREEN", 5) != 0 ) table = NULL; else table = &ctable->green; break; default: table = NULL; } if( table == NULL ) { (void)fprintf(stderr, "ERROR: unrecognized keyword %s in line %d\n %s\n", cbuf, line_num, line); return( 0 ); } else { if( (len = parse_color_table(fp, line, cbuf, len + 1, SZ_LINE, &line_num, table, max_entries, i)) < 0 ) return( 0 ); } } return( 1 ); } /* * Subroutine: parse_color_table * Purpose: Read color table entries for one color * Note: Values may start with word "gamma" and its value */ static int parse_color_table ( fp, line, cbuf, i, len, line_num, farb, max_entries, color_cnt ) FILE *fp; char *line; /* i/l: line as read from file */ char *cbuf; /* i/l: buffer for processing string */ int i; /* i/l: index in working buffer of token */ int len; /* i: length of character buffers */ int *line_num; /* i/o: line number in file */ struct SubTable *farb; /* i/o: structure to get color table info */ int max_entries; /* i: maximum number of entries in table */ int color_cnt; /* i: number of colors done so far */ { float level, intensity; char *level_token, *intensity_token; int status, entry; static int advance_to_ascii(), prep_alpha(); int check_parens(); char *next_token(); status = 0; intensity_token = NULL; /* first check rest of this line */ if( (cbuf[i] != '\0') && (cbuf[i] != '#') && (cbuf[i] != '\n') ) { /* strip of parens and other non-space spacers */ if( check_parens(line, cbuf + i) < 0 ) return( -1 ); /* are there any tokens? */ intensity_token = next_token(cbuf + i, 1); } /* else look for a later line */ if( intensity_token == NULL ) { i = 0; status = advance_to_ascii(fp, line, cbuf, len, line_num, 1); if( status == 0 ) return( -1 ); /* prepare for scanf parsing, even though it starts with alpha */ if( status > 0 ) { if( check_parens(line, cbuf) < 0 ) return( -1 ); } if( (intensity_token = next_token(cbuf + i, 1)) == NULL) { (void)fprintf(stderr, "ERROR: parse error at line %d or %d\n %s\n", *line_num - 1, *line_num, line); return( -1 ); } } /* first look for gamma */ /* don't do this prep if we know line starts with alpha */ if( status <= 0 ) { /* this will be a check-paren'd spaced out line */ while( cbuf[i] == ' ' ) i++; if( isalpha(cbuf[i]) ) /* aha! */ status = prep_alpha(cbuf + i, 10); } /* do we have alpha? */ if( status > 0 ) { if( (status == 5) && (strncmp(cbuf+i, "GAMMA", 5) == 0) && (sscanf(intensity_token, "%f", &intensity) == 1) ) { farb->gamma = intensity; if( intensity != 1.0 ) farb->do_gamma = 1; level_token = next_token(intensity_token, 1); } else { (void)fprintf(stderr, "ERROR: parse error in line %d\n %s\n", *line_num, line); return( -1 ); } } else level_token = cbuf + i; i = 0; while( i < max_entries ) { while( level_token != NULL ) { if( (intensity_token = next_token(level_token, 1)) == NULL ) { (void)fprintf(stderr,"ERROR: odd number of tokens\n"); return( -1 ); } if( sscanf(level_token, "%f %f", &level, &intensity) != 2 ) { (void)fprintf(stderr,"ERROR: could not parse floating values\n %s\n", line); return( -1 ); } if( (i > 0) && (level < farb->cell_level[i-1]) ) { (void)fprintf (stderr,"ERROR: levels not consecutive and assending (%.2f)\n %s\n", level, line); return( -1 ); } else if( (intensity < 0.0) || (intensity > 1.0) ) { (void)fprintf(stderr, "ERROR: intensity not between 0 and 1 (%.2f)\n %s\n", intensity, line); return( -1 ); } farb->cell_level[i] = level; farb->intensity[i] = intensity; /* too many entries for table size? */ if( ++i >= max_entries ) { (void)fprintf(stderr, "ERROR: too many entries defined\n"); return( -1 ); } level_token = next_token(intensity_token, 1); } /* advance to next non-comment line */ status = advance_to_ascii(fp, line, cbuf, len, line_num, 0); /* check for termination conditions (text token or end of file) */ if( status >= 0 ) { if( i < 2 ) return( -1 ); else { /* error if real parsing error, or not last color */ if( (status == 0) && ((*line_num != 0) || (color_cnt < 2)) ) return( -1 ); else { /* this is the good return */ farb->vertex_cnt = i; return( status ); } } } else level_token = cbuf; } return( -1 ); } /* * Subroutine: advance_to_ascii * Purpose: Get next processable line, and prepare a copy for processing * Returns: Positive character count if string starts with a name * Negative val if string starts with a number or paren * 0 if file ended, or first character was neither char nor num */ static int advance_to_ascii ( fp, line, scratch, len, line_num, dont_end ) FILE *fp; /* i: file descriptor */ char *line; /* i: buffer to get entire line */ char *scratch; /* i/o: buffer to get string ready for processing */ int len; /* i: length of buffers */ int *line_num; /* i/o: current line number */ int dont_end; /* flag that more is definitely expected */ { int i; static int find_token(), prep_alpha(); int check_parens(); /* advance to first non-comment line */ do { if( fgets(line, len, fp) == NULL ) { if( dont_end ) (void)fprintf(stderr, "ERROR: premature end of file at line %d\n", *line_num); else *line_num = 0; return( 0 ); } ++(*line_num); if( (i = find_token(line, len)) >= 0 ) { line[len-1] = '\0'; (void)strcpy(scratch, &line[i]); if( isalpha(line[i]) ) return( prep_alpha(scratch, len - i) ); else if( (line[i] == '(') || (line[i] == '.') || isdigit(line[i]) ) { if( (i = check_parens(line, scratch)) < 0 ) return( 0 ); else return( -i ); } else { (void)fprintf(stderr, "ERROR: could not parse line %d:\n %s\n", *line_num, line); return( 0 ); } } } while( *line_num < 1000 ); (void)fprintf(stderr, "ERROR: file has too many lines to be reasonable\n"); return( 0 ); } /* * Subroutine: find_token * Purpose: Point at first non-space character if it might be parsable * Returns: index of character, or -1 if line ends or is comment */ static int find_token ( line, len ) char *line; int len; { int i = 0; /* advance to next first non-space character */ while( (line[i] == ' ') || (line[i] == '\t') ) { if( ++i >= len ) return( -1 ); } if( (line[i] == '\0') || (line[i] == '#') || (line[i] == '\n') ) return( -1 ); else return( i ); } /* * Subroutine: prep_alpha * Purpose: Convert all characters to upper case and null terminate word * Returns: Number of characters in the word */ static int prep_alpha ( line, len ) char *line; { int i = 0; /* advance to next first non-space character */ while( (i < len) && (isalpha(line[i])) ) { if( islower(line[i]) ) line[i] = toupper(line[i]); i++; } if( line[i] != '\0' ) line[i] = ' '; return( i ); } saoimage-1.08/clrsetup.c 666 21641 13 15151 4632106401 10350 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: clrsetup.c (Color Setup) * Purpose: Set parameters for the current color mode * Subroutine: init_overlay_color() returns: void * Subroutine: init_cell_color() returns: void * Subroutine: init_halftone_color() returns: void * Xlib calls: XStoreColors() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {1} MVH initialize flags in init_cellstore 15 Oct 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ /* * Subroutine: init_overlay_color * Purpose: Set up color parameters unique to overlay type usage * Xlib calls: XStoreColors() */ void init_overlay_color ( color ) struct colorRec *color; { int ncolors; void make_cellstore_from_tables(); static void set_cursor_overlay_color(), copy_xcolor_rgb(), init_cellstore(); init_cellstore(color->cellstore, color->pixvalmap, color->ncolors); /* color in the cursor range of the color map */ set_cursor_overlay_color(color, &color->cellstore[color->ncolors]); /* set aside two pixel values for region maps */ color->ncolors -= 2; ncolors = color->ncolors; color->cur.color_one.pixel = color->pixvalmap[ncolors]; color->cur.color_two.pixel = color->pixvalmap[ncolors + 1]; color->image_plane_mask = ~color->overlay_mask; copy_xcolor_rgb(&(color->cur.color_one), &color->cellstore[ncolors]); copy_xcolor_rgb(&(color->cur.color_two), &color->cellstore[ncolors+1]); /* set up the cursor drawing parameters */ color->gcset.draw.foreground = color->overlay_mask; color->gcset.draw.mask = color->overlay_mask; color->gcset.track.foreground = color->overlay_mask; color->gcset.track.mask = color->overlay_mask; color->gcset.track.func = GXcopy; color->gcset.undraw.foreground = 0; color->gcset.undraw.func = GXcopy; color->gcset.undraw.mask = color->overlay_mask; color->gcset.incl.foreground = color->cur.color_one.pixel; color->gcset.excl.foreground = color->cur.color_two.pixel; color->gcset.incl.background = color->pixvalmap[0]; color->gcset.excl.background = color->gcset.incl.background; /* make or remake the color table */ color->ctable.red.map_sz = ncolors; color->ctable.green.map_sz = ncolors; color->ctable.blue.map_sz = ncolors; make_cellstore_from_tables(color); /* store all the colors at the same time */ XStoreColors(color->display, color->colormap, color->cellstore, 2 * (ncolors + 2)); } /* * Subroutine: init_cell_color * Purpose: Set up color parameters unique to cell usage without overlay * Xlib calls: XStoreColors() */ void init_cell_color ( color ) struct colorRec *color; { void make_cellstore_from_tables(); int alloc_cursor_cell_color(); static void init_cellstore(); init_cellstore(color->cellstore, color->pixvalmap, color->ncolors); /* Not cursor plane */ color->image_plane_mask = AllPlanes; /* Set up the cursor drawing parameters */ color->gcset.draw.foreground = alloc_cursor_cell_color(color, color->colormap); color->gcset.draw.mask = AllPlanes; color->gcset.track.foreground = AllPlanes; color->gcset.track.func = GXxor; color->gcset.track.mask = AllPlanes; color->gcset.undraw.foreground = AllPlanes; color->gcset.undraw.func = GXxor; color->gcset.undraw.mask = AllPlanes; color->gcset.incl.foreground = color->cur.disp_one; color->gcset.excl.foreground = color->cur.disp_two; color->gcset.incl.background = color->hard.true_black; color->gcset.excl.background = color->hard.true_black; /* Make or remake the color table */ color->ctable.red.map_sz = color->ncolors; color->ctable.green.map_sz = color->ncolors; color->ctable.blue.map_sz = color->ncolors; make_cellstore_from_tables(color); /* Store all the colors at the same time */ XStoreColors(color->display, color->colormap, color->cellstore, color->ncolors); } /* * Subroutine: init_halftone_color * Purpose: Initialize color parameters for halftone mode */ void init_halftone_color ( color ) struct colorRec *color; { color->ncolors = 1; color->cursor_overlay = 0; color->gcset.disp.foreground = color->hard.std_black; color->gcset.disp.background = color->hard.std_white; color->gcset.draw.foreground = color->hard.std_black; color->gcset.draw.mask = AllPlanes; color->gcset.track.foreground = 1; color->gcset.track.func = GXxor; color->gcset.track.mask = 1; color->gcset.undraw.foreground = 1; color->gcset.undraw.func = GXxor; color->gcset.undraw.mask = 1; color->gcset.incl.foreground = 0; color->gcset.excl.foreground = 1; color->gcset.incl.background = 1; color->gcset.excl.background = 0; color->cur.disp_one = 0; color->cur.disp_two = 1; { /* set up a remapping table in the pixvalmap space (not used much yet) */ register int i; register unsigned long *pixels; pixels = color->pixvalmap; for( i=0; i<256; i++ ) { *pixels = i; ++pixels; } } } /* * Subroutine: init_cellstore * Purpose: Set the pixel values in the color cellstore */ static void init_cellstore ( cellstore, pixvalmap, ncolors ) XColor *cellstore; unsigned long *pixvalmap; int ncolors; { int i; for( i=0; ired = orig->red; dup->green = orig->green; dup->blue = orig->blue; } /* * Subroutine: set_cursor_overlay_color * Purpose: Set the cellstore entries for an overlay cursor */ static void set_cursor_overlay_color ( color, cellstore ) struct colorRec *color; XColor *cellstore; { unsigned long *pixvalmap, overlay_bit; unsigned short red, green, blue; int i; pixvalmap = color->pixvalmap; red = color->cur.color_cur.red; green = color->cur.color_cur.green; blue = color->cur.color_cur.blue; overlay_bit = (int)color->overlay_mask; for( i=0; incolors; i++ ) { cellstore[i].pixel = pixvalmap[i] + overlay_bit; cellstore[i].red = red; cellstore[i].green = green; cellstore[i].blue = blue; } } saoimage-1.08/crdrot.c 666 21641 13 16512 4613613023 10010 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: crdrot.c (Coordinate Rotate) * Purpose: Add a rotation to be applied through the transform * Subroutine: rotate_transform returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 16 March 1988 * {n} -- -- */ #include "hfiles/coord.h" /* coord structs */ /* * rotation matrix for coordinates (rotate on perpendicular (Z) axis) * * | cos() sin() 0 | cos(0)= 1, cos(90)= 0, cos(180)=-1, cos(270)= 0 * | -sin() cos() 0 | sin(0)= 0, sin(90)= 1, sin(180)= 0, sin(270)=-1 * | 0 0 1 | * * mirror matrix flips coordinates on 0,0 X or Y axis * * X: | -1 0 0 | Y: | 1 0 0 | * | 0 1 0 | | 0 -1 0 | * | 0 0 1 | | 0 0 1 | * * translation matrix to move 0,0 position * * | 1 0 0 | distance to move 0,0 to center * | 0 1 0 | ((float)([width]or[height] + 1) / 2.0) - ioff * | xmove ymove 1 | center of first pixel is 0.5(ioff=0.5), 1.0(ioff=0) */ /* * Subroutine: rotate_transform * Purpose: Perform requested transformation of image coordinates * Method: Transform img coords to what they would be without rotation * Parameter: rotcode: 0 = no change * 1, 2, 3 = rotation of 90, 180, and 270 degrees * 4 = flip the Y coordinates (top becomes bottom * 5, 6, 7 = rotate the flipped image 90, 180, and 270 degrees * Notes: * Sequence is applied before conversions already in imgtofile * - starting with img coords, * A. shift origin of img buffer coordinates to exact center of buffer * B. undo rotation of img buffer (about origin - now at center of buffer) * C. shift origin to where it would be in unrotated buffer * As each transform is applied to the front, we apply them in reverse order * the result is, from img->A,B,C,imgtofile(as given)->file */ void rotate_transform ( img, imgtofile, flip, rotcode ) Coordsys *img; Transform *imgtofile; int flip; int rotcode; { double xmove, ymove; int angle; static void move_mtrx(), flip_mtrx(), turn_mtrx(); /* if no rotation, do nothing */ if( (rotcode == 0) && (flip == 0) ) return; /* determine offset from real edge to real center */ xmove = (double)img->width / 2.0; ymove = (double)img->height / 2.0; /* shift origin from buffer center (for rotation) to buffer edge */ move_mtrx(imgtofile, xmove, ymove, 0.5, 1); /* flip Y coordinates about 0,0 (center), if requested */ if( flip ) flip_mtrx (imgtofile, 1); /* rotate image about 0,0 (center), use -angle to undo rotation of buffer */ /* shift origin to 0,0 in rotated buffer */ if( rotcode != 0 ) { angle = rotcode * -90; turn_mtrx(imgtofile, angle, 1); } /* shift origin from buffer corner to buffer center (center of rotation) */ move_mtrx(imgtofile, -xmove, -ymove, 0.5, 1); } /* * Subroutine: move_mtrx * Purpose: Apply a given linear translation to the passed Transform * Parameter: prior: 1: move, do transform, move, 0: do transform, move * Parameter: ioff: offset of integer coord (i.e. 0.5), needed for prior=1 * Note: ioff is not used for turn or flip, as it is assumed that both * will be bracketed between two moves (to place origin at center) */ static void move_mtrx ( mtrx, xtran, ytran, ioff, prior ) Transform *mtrx; double xtran, ytran; double ioff; int prior; { Transform translate; static void mult_mtrx(); bzero((char *)(&translate), sizeof(Transform)); translate.inx_outx = 1.0; translate.iny_outy = 1.0; translate.add_outx = (float)xtran; translate.add_outy = (float)ytran; if( prior ) { translate.iadd_outx = (float)(xtran + ioff); translate.iadd_outy = (float)(ytran + ioff); mult_mtrx(mtrx, &translate, mtrx); } else mult_mtrx(mtrx, mtrx, &translate); } /* * Subroutine: flip_mtrx * Purpose: Apply a mirror reflection to the passed Transform */ static void flip_mtrx ( mtrx, prior ) Transform *mtrx; int prior; /* i: 1: move, transform, move, 0: transform, move */ { Transform reflect; static void mult_mtrx(); bzero((char *)(&reflect), sizeof(Transform)); reflect.inx_outx = 1.0; reflect.iny_outy = -1.0; if( prior ) mult_mtrx(mtrx, &reflect, mtrx); else mult_mtrx(mtrx, mtrx, &reflect); } /* * Subroutine: turn_mtrx * Purpose: Apply given angular rotation to the passed Transform * Note: the pivot is 0,0 of the passed Transform's coordinate system * Exception: only multiples of 90 degrees are allowed */ static void turn_mtrx ( mtrx, angle, prior ) Transform *mtrx; int angle; int prior; /* i: 1: move, transform, move, 0: transform, move */ { Transform rotate; void exit_errmsg(); static void mult_mtrx(); while( angle >= 360 ) angle -= 360; while( angle < 0 ) angle += 360; bzero((char *)(&rotate), sizeof(Transform)); switch( angle ) { case 0: rotate.inx_outx = 1.0; rotate.iny_outy = 1.0; rotate.no_rot = 1; break; case 90: rotate.inx_outy = 1.0; rotate.iny_outx = -1.0; rotate.no_rot = 0; break; case 180: rotate.inx_outx = -1.0; rotate.iny_outy = -1.0; rotate.no_rot = 1; break; case 270: rotate.inx_outy = -1.0; rotate.iny_outx = 1.0; rotate.no_rot = 0; break; default: exit_errmsg("Non-orthogonal rotate (90,180,270)"); break; } if( prior ) mult_mtrx(mtrx, &rotate, mtrx); else mult_mtrx(mtrx, mtrx, &rotate); } /* * Subroutine: mult_mtrx * Purpose: Multiply two sets of transformation matrices to produce a * new combined matrix * Method: algorithm is 3x3 matrix multiplication (3rd row is 0 0 1) * [i][j] is sum of products of column j of 1st and row i of 2nd * Note: iadd is computed to be able to transform from integer coords * calculation uses integer input offset of first and float offset of second */ static void mult_mtrx ( new, first, second ) Transform *new; /* i/o: gets result, can be same as first or second */ Transform *first; /* i: matrices in non-commutative multiply */ Transform *second; /* i: as above (new = 1st * 2nd) */ { Transform temp; temp.inx_outx = ((second->inx_outx * first->inx_outx) + (second->iny_outx * first->inx_outy)); temp.iny_outx = ((second->inx_outx * first->iny_outx) + (second->iny_outx * first->iny_outy)); temp.add_outx = ((second->inx_outx * first->add_outx) + (second->iny_outx * first->add_outy) + second->add_outx); temp.iadd_outx = ((second->inx_outx * first->iadd_outx) + (second->iny_outx * first->iadd_outy) + second->add_outx); temp.inx_outy = ((second->inx_outy * first->inx_outx) + (second->iny_outy * first->inx_outy)); temp.iny_outy = ((second->inx_outy * first->iny_outx) + (second->iny_outy * first->iny_outy)); temp.add_outy = ((second->inx_outy * first->add_outx) + (second->iny_outy * first->add_outy) + second->add_outy); temp.iadd_outy = ((second->inx_outy * first->iadd_outx) + (second->iny_outy * first->iadd_outy) + second->add_outy); bcopy((char *)&temp, (char *)new, sizeof(Transform)); } saoimage-1.08/clrvary.c 666 21641 13 13505 4613612500 10173 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: clrvary.c (Color Vary) * Purpose: Interactive color manipulation keyed to mouse position * Subroutine: vary_colors() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 15 June 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define mode codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cgraph.h" /* color graph structs */ #include "hfiles/define.h" /* define SQR */ extern struct cgraphRec cgraph; /* * Subroutine: vary_colors * Purpose: Modify colors as per mode and the mouse position */ void vary_colors ( event, mode, track, x, y, width, height ) XEvent *event; /* i: details of event to check button states */ int mode; /* i: code for type of varying */ int track; /* i: update graphbox displays */ int x, y; /* i: mouse coords (could be adjusted) */ int width, height; /* i: dimensions bby which to judge control */ { double threshold, saturation; double contrast, bias; double gamma; int button1, button2, button3; void make_cellmap_from_table(), make_cellstore_from_cellmaps(); void vary_contrast_and_bias(), draw_cgraph(), label_gamma(); if( event->xbutton.state & ControlMask ) { button1 = (event->xbutton.state & Button1Mask); button2 = (event->xbutton.state & Button2Mask); button3 = (event->xbutton.state & Button3Mask); if( event->type == ButtonPress ) { button1 |= (event->xbutton.button == Button1); button2 |= (event->xbutton.button == Button2); button3 |= (event->xbutton.button == Button3); } } else { button1 = 1; button2 = 1; button3 = 1; } /* gamma is horizontal */ if( mode == VOP_gamma ) { /* ranges from 0.0 to 4.0, with 1.0 in the middle */ gamma = SQR((double)(2 * x) / (double)width); if( button1 ) { color.ctable.red.do_gamma = 1; color.ctable.red.gamma = gamma; make_cellmap_from_table(&color.ctable.red); cgraph.red.unset = 1; } if( button2 ) { color.ctable.green.do_gamma = 1; color.ctable.green.gamma = gamma; make_cellmap_from_table(&color.ctable.green); cgraph.green.unset = 1; } if( button3 ) { color.ctable.blue.do_gamma = 1; color.ctable.blue.gamma = gamma; make_cellmap_from_table(&color.ctable.blue); cgraph.blue.unset = 1; } if( graphbox.active ) label_gamma(button1, button2, button3 ); } else { /* make y increase from the bottom */ y = height - y; if( mode == VOP_ThreshSat ) { /* threshold is parallel to the color bar, saturation is perpendicular */ /* threshold varies from -1 to 1, saturation varies from 0 to 2 */ threshold = ((double)(x * 2) / (double)width) - 1.0; saturation = (double)(y * 2) / (double)height; contrast = saturation - threshold; bias = (threshold + saturation) / 2; } else if( mode == VOP_ContBias ) { /* make x parallel to color bar */ /* bias is parallel to the color bar, contrast is perpendicular */ /* contrast varies from 0 to 2 */ contrast = (double)(2 * y) / (double)height; /* bias ranges from (0.0 - contrast/2) to (1.0 + contrast/2) */ bias = (double)x / (double)width; /* adjust bias to control full range for any contrast */ bias += ((bias - 0.5) * contrast); } else return; if( button1 ) { vary_contrast_and_bias(&color.ctable.red, contrast, bias); make_cellmap_from_table(&color.ctable.red); cgraph.red.unset = 1; } if( button2 ) { vary_contrast_and_bias(&color.ctable.green, contrast, bias); make_cellmap_from_table(&color.ctable.green); cgraph.green.unset = 1; } if( button3 ) { vary_contrast_and_bias(&color.ctable.blue, contrast, bias); make_cellmap_from_table(&color.ctable.blue); cgraph.blue.unset = 1; } } /* update the server colormap */ make_cellstore_from_cellmaps(&color); XStoreColors(color.display, color.colormap, color.cellstore, color.ncolors); if( track && graphbox.active ) /* update the color graph */ draw_cgraph(0, 0); } /* * Subroutine: vary_contrast_and_bias * Purpose: change color table cell_levels as per new contrast and bias */ void vary_contrast_and_bias ( table, contrast, bias ) struct subtableRec *table; double contrast; /* i: normal = 1.0 */ double bias; /* i: normal = 0.5 */ { double *base_level, *cell_level; int vertex_cnt; static void invert_table(); base_level = table->base_level; cell_level = table->cell_level; vertex_cnt = table->vertex_cnt; if( contrast < 0.0 ) { int i, j; if( table->invert_order == 0 ) invert_table(table); for( i=0, j=vertex_cnt - 1; iinvert_order ) invert_table(table); for( i=0; ibias = bias; table->contrast = contrast; } static void invert_table ( table ) struct subtableRec *table; { int i, j; double *intensity; intensity = table->intensity; for( i = 0, j = table->vertex_cnt - 1; i < j; i++, j-- ) { double temp; temp = intensity[i]; intensity[i] = intensity[j]; intensity[j] = temp; } table->invert_order ^= 1; } saoimage-1.08/crdset.c 666 21641 13 27534 4613613064 10012 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: crdset.c (Coordinate Set) * Purpose: Set up coordinate system parameters and translation matrices * Subroutine: set_coordsys() returns: void * Subroutine: set_transform() returns: void * Subroutine: set_imgtran() returns: void * Subroutine: set_fbuftran() returns: void * Subroutine: set_buftran() returns: void * Subroutine: set_edges() returns: void * Xlib calls: none * Notes: * the base coordinate system is the img * coordinate conversions are computed by passing through the img * the img has 0.0, 0.0 as its upper left corner * files often have 0.5,0.5 at lower left corner (index from 1, ioff = 0.0) * disp, buffer, and pan have 0.0,0.0 in upper left corner (ioff = 0.5) * integer values refer to the center of the pixel in its coordinate system * translations always produce a real (float) value output * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 1 September 1988 * {1} MVH support for file buffer coord sys 19 Feb 1990 * {n} -- -- */ #include "hfiles/coord.h" /* coord structs */ #include "hfiles/image.h" /* image struct */ /* * Subroutine: set_coordsys * Purpose: Set basic params for a coordinate system */ void set_coordsys ( csys, ioff, width, height, x1, y1, x2, y2 ) Coordsys *csys; double ioff; int width, height; int x1, y1, x2, y2; { csys->width = width; csys->height = height; csys->ioff = ioff; /* pixel coords of four sides (col or row just inside the edge) */ csys->X1i = x1; csys->Y1i = y1; csys->X2i = x2; csys->Y2i = y2; csys->Xwdth = 1 + x2 - x1; csys->Yhght = 1 + y2 - y1; /* put the center in the center of the pixel before the true center */ csys->cenX = (float)(x1 + ((csys->Xwdth - 1) / 2)) + ioff; csys->cenY = (float)(y1 + ((csys->Yhght - 1) / 2)) + ioff; /* determine real coords of outer edge using ... */ /* ... offset from integer coords to real coords */ if( ioff < 0.25 ) { csys->X1 = (float)x1 - (float)0.5; csys->Y1 = (float)y1 - (float)0.5; csys->X2 = (float)x2 + (float)0.5; csys->Y2 = (float)y2 + (float)0.5; } else { csys->X1 = (float)x1; csys->Y1 = (float)y1; csys->X2 = (float)(x2 + 1); csys->Y2 = (float)(y2 + 1); } } /* * Subroutine: set_transform * Purpose: Calculate transforms given where to put A on B * Note: Forward transform is A to B */ void set_transform ( BAcenX, BAcenY, BAzoom, Asys, Bsys, AtoB, BtoA ) double BAcenX, BAcenY; /* i: B coords of center of A system */ double BAzoom; /* i: size of a B pixel in A units */ Coordsys *Asys, *Bsys; Transform *AtoB, *BtoA; { float ABzoom; void set_trans_speed(), invert_transform(); ABzoom = 1.0 / BAzoom; AtoB->inx_outx = ABzoom; AtoB->iny_outx = 0.0; AtoB->add_outx = BAcenX - (Asys->cenX * ABzoom); /* if given an integer parameter, its float value would be less by ioff */ AtoB->iadd_outx = BAcenX - ((Asys->cenX - Asys->ioff) * ABzoom); AtoB->inx_outy = 0.0; AtoB->iny_outy = ABzoom; AtoB->add_outy = BAcenY - (Asys->cenY * ABzoom); AtoB->iadd_outy = BAcenY - ((Asys->cenY - Asys->ioff) * ABzoom); /* compute speedy integer computation parameters */ set_trans_speed(AtoB); /* compute the inverse parameters (complete) */ invert_transform(BtoA, AtoB, Bsys->ioff); } /* * Subroutine: set_imgtran * Purpose: Set the img-to-file transform */ void set_imgtran ( image, img, file, imgtofile, filetoimg ) struct imageRec *image; Coordsys *img, *file; Transform *imgtofile, *filetoimg; { float if_zoom; void rotate_transform(), set_trans_speed(), invert_transform(); if_zoom = 1.0 / image->fiblock; imgtofile->inx_outx = if_zoom; imgtofile->iny_outx = 0.0; imgtofile->add_outx = image->ficenX - (img->cenX * if_zoom); /* if given an integer parameter, its float value would be less by ioff */ imgtofile->iadd_outx = image->ficenX - ((img->cenX - img->ioff) * if_zoom); imgtofile->inx_outy = 0.0; imgtofile->iny_outy = if_zoom; imgtofile->add_outy = image->ficenY - (img->cenY * if_zoom); imgtofile->iadd_outy = image->ficenY - ((img->cenY - img->ioff) * if_zoom); /* if rotation or y coordinate flipping is to be applied, do it new */ if( (image->rotate_code != 0) || (image->row_order != 0) ) { rotate_transform(img, imgtofile, image->row_order, image->rotate_code); } /* compute speedy integer computation parameters */ set_trans_speed(imgtofile); /* compute the inverse parameters (complete) */ invert_transform(filetoimg, imgtofile, file->ioff); } /* * Subroutine: set_fbuftran * Purpose: Set buffer-to-filebuffer transform, should the * two buffers differ. * Note: Two buffers have same dimensions (and are usually the same) */ void set_fbuftran ( image, buf, fbuf, buftofbuf ) struct imageRec *image; Coordsys *buf, *fbuf; /* descriptions of short and file buffers */ Transform *buftofbuf; { void rotate_transform(), set_trans_speed(); buftofbuf->inx_outx = 1.0; buftofbuf->iny_outx = 0.0; buftofbuf->add_outx = 0.0; buftofbuf->iadd_outx = 0.5; buftofbuf->inx_outy = 0.0; buftofbuf->iny_outy = 1.0; buftofbuf->add_outy = 0.0; buftofbuf->iadd_outy = 0.5; /* if rotation or y coordinate flipping is to be applied, do it new */ if( (image->rotate_code != 0) || (image->row_order != 0) ) { rotate_transform(buf, buftofbuf, image->row_order, image->rotate_code); } /* compute speedy integer computation parameters */ set_trans_speed(buftofbuf); /* set the fbuf coordinate system parameters */ if( image->rotate_code & 1 ) { /* rotated 90 or 270 degrees means switch X and Y axes */ fbuf->X1 = buf->Y1; fbuf->X2 = buf->Y2; fbuf->Y1 = buf->X1; fbuf->Y2 = buf->X2; fbuf->X1i = buf->Y1i; fbuf->X2i = buf->Y2i; fbuf->Y1i = buf->X1i; fbuf->Y2i = buf->X2i; fbuf->Xwdth = buf->Yhght; fbuf->Yhght = buf->Xwdth; fbuf->cenX = buf->cenY; fbuf->cenY = buf->cenX; fbuf->width = buf->height; fbuf->height = buf->width; fbuf->ioff = buf->ioff; } else bcopy((char *)buf, (char *)fbuf, sizeof(Coordsys)); } /* * Subroutine: set_buftran * Purpose: Set buffer-to-img transform (& buf-to-file) * Note: adjusts alignment so as not to waste buffer space * Note: edges later used to check whether requested display is * available * Exception: assumes buf is not smaller than disp */ void set_buftran ( coord ) struct coordRec *coord; { void set_transform(), combine_transform(), set_edges(), invert_transform(); /* if buf and image are identical, just copy */ if( !coord->bufcheck ) { set_transform(coord->img.cenX, coord->img.cenY, 1.0, &coord->buf, &coord->img, &coord->buftoimg, &coord->imgtobuf); bcopy((char *)&(coord->imgtofile), (char *)&(coord->buftofile), sizeof(Transform)); coord->ib.srcX1 = 0; coord->ib.srcX2 = coord->img.width - 1; coord->ib.srcY1 = 0; coord->ib.srcY2 = coord->img.height - 1; coord->ib.srcXwdth = coord->img.width; coord->ib.srcYhght = coord->img.height; coord->ib.cenX = coord->img.cenX; coord->ib.cenY = coord->img.cenY; coord->ib.zoom = 1.0; coord->ib.block = 1; } else { float lX, tY, rX, bY, diff; { register double ibzoom; /* if the buffer needs checking, calculate buffer to img zoom */ if( (coord->buf.width < ((double)coord->disp.width / coord->id.zoom)) || (coord->buf.height < ((double)coord->disp.height / coord->id.zoom)) ) { /* use idzoom if zoom 1 won't work (check disp size in img coords) */ ibzoom = coord->id.zoom; coord->ib.block = coord->id.block; } else { ibzoom = 1.0; coord->ib.block = 1; } coord->ib.zoom = ibzoom; /* calculate corners of display in img coords */ coord->ib.cenX = coord->id.cenX; coord->ib.cenY = coord->id.cenY; lX = coord->ib.cenX - (coord->buf.cenX * ibzoom); rX = coord->ib.cenX + (((double)coord->buf.width - coord->buf.cenX) * ibzoom); tY = coord->ib.cenY - (coord->buf.cenY * ibzoom); bY = coord->ib.cenY + (((double)coord->buf.height - coord->buf.cenY) * ibzoom); } /* shift center if buffer extends beyond an edge */ if( lX < 0.0 ) { diff = -lX; lX = 0.0; rX += diff; coord->ib.cenX += diff; } else if( rX > (double)coord->img.width ) { diff = rX - (double)coord->img.width; lX -= diff; rX = (double)coord->img.width; coord->ib.cenX -= diff; } if( tY < 0 ) { diff = -tY; tY = 0; bY += diff; coord->ib.cenY += diff; } else if( bY > (double)coord->img.height ) { diff = bY - (double)coord->img.height; tY -= diff; bY = (double)coord->img.height; coord->ib.cenY -= diff; } /* set edges to integer pixel coords, rounding in from edge */ coord->ib.srcX1 = (int)(lX + 0.001); coord->ib.srcY1 = (int)(tY + 0.001); coord->ib.srcX2 = (int)(rX - 0.001); coord->ib.srcY2 = (int)(bY - 0.001); /* compute transforms */ set_transform(coord->ib.cenX, coord->ib.cenY, coord->ib.zoom, &coord->buf, &coord->img, &coord->buftoimg, &coord->imgtobuf); combine_transform(&coord->buftofile, &coord->buftoimg, &coord->imgtofile); set_edges(&coord->buftofile, &coord->file, &coord->buf, &coord->fb); /* compute inverse of buftofile (used to stuff pixels from socket) */ invert_transform(&coord->filetobuf, &coord->buftofile, coord->file.ioff); } } /* * Subroutine: set_edges * Purpose: Set up parameter to map image data from src (A) to dst (B) * Set up the edges of dst sys (B) as plotted in src (A) * Note: Used to set up transfer of image data from A to B */ void set_edges ( BAtrans, Asys, Bsys, ABmap ) Transform *BAtrans; Coordsys *Asys, *Bsys; Edges *ABmap; { float lX, tY, rX, bY, temp; float BAzoom; void d_transform(); /* compute four corner pixel coords */ d_transform(BAtrans, Bsys->X1, Bsys->Y1, &lX, &tY); d_transform(BAtrans, Bsys->X2, Bsys->Y2, &rX, &bY); /* account for any rotation or inversion */ if( lX > rX ) { temp = lX; lX = rX; rX = temp; } if( tY > bY ) { temp = tY; tY = bY; bY = temp; } /* clip AB area by src (A) area */ ABmap->clip = 0; if( lX < Asys->X1 ) { lX = Asys->X1; ABmap->clip += LX; } if( rX > Asys->X2 ) { rX = Asys->X2; ABmap->clip += RX; } if( tY < Asys->Y1 ) { tY = Asys->Y1; ABmap->clip += TY; } if( bY > Asys->Y2 ) { bY = Asys->Y2; ABmap->clip += BY; } /* round any edges inward */ ABmap->srcX1 = (int)(lX + 0.001); ABmap->srcY1 = (int)(tY + 0.001); ABmap->srcX2 = (int)(rX - 0.001); ABmap->srcY2 = (int)(bY - 0.001); ABmap->srcXwdth = (int)(0.0001 + rX - lX); ABmap->srcYhght = (int)(0.0001 + bY - tY); /* get AB block and integer block code (opposite of BA) */ /* assume symetric orthogonal blocking - one factor is 0, other is block */ if( BAtrans->inx_outx > 0.000001 ) BAzoom = BAtrans->inx_outx; else if( BAtrans->inx_outx < -0.000001 ) BAzoom = -BAtrans->inx_outx; else if( BAtrans->iny_outx > 0.000001 ) BAzoom = BAtrans->iny_outx; else BAzoom = -BAtrans->iny_outx; /* block code is integer factor (-1/block for fractional block) */ /* block is inverse of zoom in our usage of zoom */ ABmap->zoom = 1.0 / BAzoom; if( BAzoom > 0.75 ) ABmap->block = (int)(BAzoom + 0.5); else ABmap->block = -(int)(ABmap->zoom + 0.5); /* transfer basic mapping destination parameters */ ABmap->dstX1 = Bsys->X1i; ABmap->dstY1 = Bsys->Y1i; ABmap->dstX2 = Bsys->X2i; ABmap->dstY2 = Bsys->Y2i; ABmap->dstXwdth = Bsys->Xwdth; ABmap->dstYhght = Bsys->Yhght; } saoimage-1.08/dispdfse.c 666 21641 13 16664 5030502227 10321 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: dispdfse.c (Display Error Diffusion) * Purpose: Map 16 bit data to a single plane bitmap using error diffusion * Subroutine: diffuse_sample() returns: void * Subroutine: diffuse_replicate() returns: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * History: Algorithm from Bill Wyatt's linodots & John Tonry's halftone * Modified: {0} Michael VanHilst initial version 7 July 1987 * {1} MVH fixed zoom rep code 21 June 1991 * {n} -- -- */ /* * Subroutine: diffuse_sample * Purpose: Perform subsampling and error diffusion to produce a bitmap * image from 16 bit signed data through a scaling lookup table. * Used when bitmap is same size or smaller than data image. * Method: Sample every zoom'th data element in each direction */ void diffuse_sample ( short_data, data_width, zoom, bitmap, bytes_per_line, x, y, width, height, lookup, errbuf, inverse ) short *short_data; int data_width; int zoom; char *bitmap; int bytes_per_line; int x, y, width, height; register unsigned char *lookup; short *errbuf; int inverse; { register int val; register short *error; register short *data; register char *bitmap_byte; register int maxval; char *bitmap_row; short *data_row; short *data_row_end; short error0; short bitmap_bit; short bitmap_first_bit; short x_step, y_step; short i; data_row = short_data; bitmap_row = bitmap + (y * bytes_per_line) + (x / 8); bitmap_first_bit = x & 7; /* same as %8 */ /* halftone standard of 256 levels */ maxval = 256; error0 = 0; /* subsample line skipping */ x_step = zoom; y_step = data_width * zoom; if( inverse ) { /* go through each row of the bitmap */ for( i = 0; i < height; i++ ) { error = errbuf; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; while( data < data_row_end ) { /* val is data value plus average of error remnants */ val = lookup[*data] + ((*error + error0 + error[1] + error[2]) >> 2); /* save earlier error */ error0 = *(++error); /* replace old error with this error */ if( val < maxval ) { *bitmap_byte |= 1 << bitmap_bit; *error = val; } else *error = val - maxval; data += x_step; /* update word and bit pointers */ if( ++bitmap_bit > 7 ) { bitmap_byte++; bitmap_bit = 0; } } data_row += y_step; /* advance to next line in bitmap_byte */ bitmap_row += bytes_per_line; } } else { /* go through each row of the bitmap */ for( i = 0; i < height; i++ ) { error = errbuf; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; while( data < data_row_end ) { /* val is data value plus average of error remnants */ val = lookup[*data] + ((*error + error0 + error[1] + error[2]) >> 2); /* save earlier error */ error0 = *(++error); /* replace old error with this error */ if( val >= maxval ) { *bitmap_byte |= 1 << bitmap_bit; *error = val - maxval; } else *error = val; data += x_step; /* update word and bit pointers */ if( ++bitmap_bit > 7 ) { bitmap_byte++; bitmap_bit = 0; } } data_row += y_step; /* advance to next line in bitmap_byte */ bitmap_row += bytes_per_line; } } } /* * Subroutine: diffuse_replicate * Purpose: Perform replication and error diffusion to produce a bitmap * image from 16 bit signed data through a scaling lookup table. * Used when bitmap is larger than data image. * Method: Repeat data element zoom times in each direction */ void diffuse_replicate ( short_data, data_width, zoom, bitmap, bytes_per_line, first_x_rep, first_y_rep, x, y, width, height, lookup, errbuf, inverse ) short *short_data; int data_width; int zoom; char *bitmap; int bytes_per_line; int first_x_rep; int first_y_rep; int x, y, width, height; register unsigned char *lookup; short *errbuf; int inverse; { register int val; register short *error; register short *data; register char *bitmap_byte; register int maxval; short *data_row; char *bitmap_row; char *bitmap_row_end; int error0; int bitmap_bit; int bitmap_first_bit; int bitmap_last_bit; int bitmap_bytes_per_row; int x_step, y_step; int i; data_row = short_data; bitmap_row = bitmap + (y * bytes_per_line) + (x / 8); bitmap_first_bit = x & 7; /* same as %8 */ bitmap_last_bit = (width + bitmap_first_bit - 1) & 7; bitmap_bytes_per_row = (x + width + 7) / 8; if( bitmap_bytes_per_row >= bytes_per_line ) bitmap_bytes_per_row = bytes_per_line - ((x / 8) + 1); else bitmap_bytes_per_row -= ((x / 8) + 1); /* halftone standard of 256 levels */ maxval = 256; error0 = 0; /* convert first rep to first step toward zoom reps */ y_step = 1 + zoom - first_y_rep; first_x_rep = 1 + zoom - first_x_rep; if( inverse ) { /* go through each row of the bitmap */ for( i = 0; i < height; i++ ) { error = errbuf; x_step = first_x_rep; data = data_row; bitmap_byte = bitmap_row; bitmap_row_end = bitmap_byte + bitmap_bytes_per_row; bitmap_bit = bitmap_first_bit; while( (bitmap_byte < bitmap_row_end) || ((bitmap_byte == bitmap_row_end) && (bitmap_bit <= bitmap_last_bit)) ) { /* val is data value plus average of error remnants */ val = lookup[*data] + ((*error + error0 + error[1] + error[2]) >> 2); /* save earlier error */ error0 = *(++error); /* replace old error with this error */ if( val < maxval ) { *bitmap_byte |= 1 << bitmap_bit; *error = val; } else *error = val - maxval; if( ++bitmap_bit > 7 ) { bitmap_byte++; bitmap_bit = 0; } /* step forward after replication */ if( ++x_step > zoom ) { data++; x_step = 1; } } /* advance one line after replication, else repeat this line */ if( ++y_step > zoom ) { data_row += data_width; y_step = 1; } bitmap_row += bytes_per_line; } } else { /* go through each row of the bitmap */ for( i = 0; i < height; i++ ) { error = errbuf; x_step = first_x_rep; data = data_row; bitmap_byte = bitmap_row; bitmap_row_end = bitmap_byte + bitmap_bytes_per_row; bitmap_bit = bitmap_first_bit; while( (bitmap_byte < bitmap_row_end) || ((bitmap_byte == bitmap_row_end) && (bitmap_bit <= bitmap_last_bit)) ) { /* val is data value plus average of error remnants */ val = lookup[*data] + ((*error + error0 + error[1] + error[2]) >> 2); /* save earlier error */ error0 = *(++error); /* replace old error with this error */ if( val >= maxval ) { *bitmap_byte |= 1 << bitmap_bit; *error = val - maxval; } else *error = val; if( ++bitmap_bit > 7 ) { bitmap_byte++; bitmap_bit = 0; } /* step forward after replication */ if( ++x_step > zoom ) { data++; x_step = 1; } } /* advance one line after replication, else repeat this line */ if( ++y_step > zoom ) { data_row += data_width; y_step = 1; } bitmap_row += bytes_per_line; } } } saoimage-1.08/crdsynth.c 666 21641 13 20513 4613613123 10346 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: crdsynth.c (Coordinate Synthesis) * Purpose: Support the computing of transform matrices and shortcuts * Subroutine: invert_transform() returns: void * Subroutine: compute_iadd() returns: void * Subroutine: combine_transform() returns: void * Subroutine: set_trans_speed() returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 16 March 1988 * {n} -- -- */ #include /* stderr, NULL, etc */ #include /* get trig functions, sqrt, and fabs */ #include "hfiles/coord.h" /* coord structs */ /* * Subroutine: invert_transform * Purpose: Create matrix to perform opposite transformation * Given AtoB (old) and Bsys ioff, compute BtoA (new) */ void invert_transform ( new, old, ioff ) Transform *new, *old; /* pointers for new and original transforms */ float ioff; /* integer coord to real translation factor */ { void invert_matrix(), compute_iadd_invert(), set_trans_speed(); #ifdef DEBUG void exit_errmsg(); /* check for undifined coordinate transforms */ if( ((old->inx_outx ==0) && (old->iny_outx ==0)) || ((old->inx_outy ==0) && (old->iny_outy ==0)) ) { exit_errmsg("indeterminate coordinate transform!"); } #endif /* check for simplified cases of orthogonal transform */ if( (old->iny_outx ==0) && (old->inx_outy ==0) ) { new->iny_outx = 0.0; new->inx_outy = 0.0; new->inx_outx = 1.0 / old->inx_outx; new->iny_outy = 1.0 / old->iny_outy; new->add_outx = -old->add_outx * new->inx_outx; new->add_outy = -old->add_outy * new->iny_outy; new->iadd_outx = (-old->add_outx + ioff) * new->inx_outx; new->iadd_outy = (-old->add_outy + ioff) * new->iny_outy; } else if( (old->inx_outx ==0) && (old->iny_outy ==0) ) { new->inx_outx = 0.0; new->iny_outy = 0.0; new->iny_outx = 1.0 / old->inx_outy; new->inx_outy = 1.0 / old->iny_outx; new->add_outx = -old->add_outy * new->iny_outx; new->add_outy = -old->add_outx * new->inx_outy; new->iadd_outx = (-old->add_outy + ioff) * new->iny_outx; new->iadd_outy = (-old->add_outx + ioff) * new->inx_outy; } else { /* compute parameters by matrix inversion */ invert_matrix(old, new); compute_iadd_invert(old, new, ioff); } /* set rotation flag */ new->no_rot = old->no_rot; /* set parameters for speedy integer calculations */ set_trans_speed(new); } #ifdef NOTNEEDED /* %% not currently needed */ /* * Subroutine: compute_iadd * Purpose: Compute the offsets used for integer transforms */ void compute_iadd ( old, new, ioff ) Transform *old, *new; float ioff; { void compute_iadd_invert(); /* check for simplified cases of orthogonal transform */ if( (new->iny_outx ==0) && (new->inx_outy ==0) ) { new->iadd_outx = new->add_outx + (ioff * new->inx_outx); new->iadd_outy = new->add_outy + (ioff * new->iny_outy); } else if( (new->inx_outx ==0) && (new->iny_outy ==0) ) { new->iadd_outx = new->add_outx + (ioff * new->iny_outx); new->iadd_outy = new->add_outy + (ioff * new->inx_outy); } else { /* if no simple solution, carry offset through from inverse transform */ compute_iadd_invert(old, new, ioff); } } #endif /* * Subroutine: combine_transform * combine two sets of transform parameters into a single set * first and second apply to sequence starting with the input values * algorithm is 3x3 matrix multiplication (3rd row is 0 0 1) * combination[i][j] is sum of products of column j of 1st and row i of 2nd */ void combine_transform ( new, first, second ) Transform *new, *first, *second; { void set_trans_speed(); new->inx_outx = ((second->inx_outx * first->inx_outx) + (second->iny_outx * first->inx_outy)); new->iny_outx = ((second->inx_outx * first->iny_outx) + (second->iny_outx * first->iny_outy)); new->add_outx = ((second->inx_outx * first->add_outx) + (second->iny_outx * first->add_outy) + second->add_outx); new->inx_outy = ((second->inx_outy * first->inx_outx) + (second->iny_outy * first->inx_outy)); new->iny_outy = ((second->inx_outy * first->iny_outx) + (second->iny_outy * first->iny_outy)); new->add_outy = ((second->inx_outy * first->add_outx) + (second->iny_outy * first->add_outy) + second->add_outy); /* compute offset factor for transform starting with an integer value */ /* use integer input offset of first and float offset of second */ new->iadd_outx = ((second->inx_outx * first->iadd_outx) + (second->iny_outx * first->iadd_outy) + second->add_outx); new->iadd_outy = ((second->inx_outy * first->iadd_outx) + (second->iny_outy * first->iadd_outy) + second->add_outy); /* set rotation flag, most cases don't have cross x-y relationships */ new->no_rot = first->no_rot && second->no_rot; /* set up parameters needed for speedy calculation of transform */ /* uses integer multiply or divide on orthogonal rotations */ set_trans_speed(new); return; } #define EPSILON 0.0001 #define NEGONE -0.9999 #define CLOSE(a,b) (fabs((double)((a)-((float)(b))))ixzoom = 0; trans->iyzoom = 0; /* is it an unflipped transform? */ if( CLOSE(trans->iny_outx, 0) && CLOSE(trans->inx_outy, 0) ) { /* straight forward x->x, y->y transform */ trans->no_rot = 1; trans->flip = 0; xzm = integer_test(trans->inx_outx, &trans->ixzoom); yzm = integer_test(trans->iny_outy, &trans->iyzoom); } else { trans->no_rot = 0; if( CLOSE(trans->inx_outx, 0) && CLOSE(trans->iny_outy, 0) ) { trans->flip = 1; xzm = integer_test(trans->iny_outx, &trans->ixzoom); yzm = integer_test(trans->inx_outy, &trans->iyzoom); } else { trans->int_math = 0; return; } } /* if both zooms can be handled by integer operations ... */ /* ... when given integer inputs, use faster operations */ if( trans->ixzoom && trans->iyzoom ) { if( (trans->ixzoom == 1) && (trans->iyzoom == 1) ) { /* if both are zoom 1 */ trans->int_math = 1; trans->zoom = 0; } else if( (xzm >= 0) && (yzm >= 0) ) { /* if both zooms can be integer multiplies, use integer multiply */ trans->int_math = 1; trans->multiply = 1; trans->zoom = 1; } else if( (xzm <= 0) && (yzm <= 0) ) { /* if both zooms can be integer divides, use float divide */ trans->int_math = 1; trans->multiply = 0; trans->zoom = 1; } else { /* if its not so simple (mixed operations) don't bother using shortcut */ trans->int_math = 0; } } else { trans->int_math = 0; } } /* * Subroutine: integer_test * Returns: 0 if not possible, 1 for zoom up, -1 for zoom down * Purpose: Test zoom to determine whether it could be computed * with integer math */ static int integer_test ( fzoom, izoom ) double fzoom; /* i: zoom factor (>1, ==1, or <1) */ int *izoom; /* o: integer zoom factor (>1 or ==1) */ { int ival; /* test for unity scaling */ if( CLOSE(fzoom, 1) ) { *izoom = 1; return( 0 ); } /* test for even integer multiplies */ if( fzoom > 1.0 ) { /* round and test for close match */ ival = fzoom + 0.5; if( CLOSE(fzoom, ival) ) { *izoom = ival; return( 1 ); } } else if( fzoom < NEGONE ) { ival = fzoom - 0.5; if( CLOSE(fzoom, ival) ) { *izoom = ival; return( 1 ); } } else if( fzoom != 0.0 ) { /* test for even integer divides */ fzoom = 1.0 / fzoom; if( fzoom > 0 ) { /* round and test for close match */ ival = fzoom + 0.5; if( CLOSE(fzoom, ival) ) { *izoom = ival; return( -1 ); } } else { ival = fzoom - 0.5; if( CLOSE(fzoom, ival) ) { *izoom = ival; return( -1 ); } } } #ifdef DEBUG else (void)fprintf(stderr, "Warning: Zero zoom factor (CoordSynth.c)\n"); #endif *izoom = 0; return( 0 ); } saoimage-1.08/csrcoord.c 666 21641 13 22234 4746663170 10346 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrcoord.c (Cursor Coordinates) * Purpose: Calculate coordinates for cursor functions * Subroutine: set_cursor_file_coords() returns: void * Subroutine: adjust_cursor_coords() returns: void * Subroutine: set_cursor_from_file_coords() returns: void * Subroutine: set_annuli_from_file_coords() returns: void * Subroutine: note_current_disp_transform() returns: void * Subroutine: report_cursor_info() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {1} MVH added text cursor support 1 Jan 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/coord.h" /* coord structs */ #include "hfiles/cursor.h" /* define cursor parameter structures */ /* Saved transform to see if it changed */ static Transform ftod; #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void set_cursor_file_coords( struct cursorRec *cursor, Transform *disptofile, int setcen); void adjust_cursor_coords( struct cursorRec *cursor, struct coordRec *coord); void set_cursor_from_file_coords( struct cursorRec *cursor, Transform *filetodisp); void set_annuli_from_file_coords( struct cursorRec *cursor, Transform *filetodisp); void note_current_disp_transform( Transform *filetodisp); void report_cursor_info( struct cursorRec *cursor); static int disp_coords_changed( Transform *filetodisp); #else void d_transform(), make_cursor(), reset_textcursor_coords(); double cursor_area(); void set_polygon_from_file_coords(), set_annuli_from_file_coords(); void set_cursor_from_file_coords(), note_current_disp_transform(); static int disp_coords_changed(); #endif /* Subroutine: set_cursor_file_coords * Purpose: Set img coords of cursor */ #ifdef ANSIC void set_cursor_file_coords( struct cursorRec *cursor, Transform *disptofile, int setcen ) #else void set_cursor_file_coords ( cursor, disptofile, setcen ) struct cursorRec *cursor; Transform *disptofile; int setcen; /* i: set-center-after-move, else set dim after size */ #endif { double ratio; if( setcen ) { d_transform(disptofile, cursor->win.X, cursor->win.Y, &cursor->file.X, &cursor->file.Y); } else { if( (ratio = disptofile->inx_outx + disptofile->inx_outy) < 0.0 ) ratio = -ratio; cursor->file.Xdim = cursor->win.rayX * ratio; cursor->file.Ydim = cursor->win.rayY * ratio; } } /* Subroutine: adjust_cursor_coords * Purpose: If the display image has been altered, change the cursor * parameters in the same way, so that the cursor has the same * relationship to the image. old cursor is not erased, image * redraw usually does that */ #ifdef ANSIC void adjust_cursor_coords ( struct cursorRec *cursor, struct coordRec *coord ) #else void adjust_cursor_coords ( cursor, coord ) struct cursorRec *cursor; struct coordRec *coord; #endif { int maincursor = 1; if( disp_coords_changed(&coord->filetodisp) ) { /* Remake the window coordinates and line drawing records */ while( cursor != NULL ) { if( cursor->type == COP_Polygon ) set_polygon_from_file_coords(cursor, &coord->filetodisp, maincursor); else { if( cursor->annuli ) set_annuli_from_file_coords(cursor, &coord->filetodisp); else set_cursor_from_file_coords(cursor, &coord->filetodisp); } /* Loop on saved cursors */ maincursor = 0; cursor = cursor->next_region; } note_current_disp_transform(&coord->filetodisp); } } /* Subroutine: set_cursor_from_file_coords * Purpose: Set cursor window coordinates from its file coordinates */ #ifdef ANSIC void set_cursor_from_file_coords( struct cursorRec *cursor, Transform *filetodisp ) #else void set_cursor_from_file_coords ( cursor, filetodisp ) struct cursorRec *cursor; Transform *filetodisp; #endif { float X, Y, ratio; /* Get new window coordinates */ d_transform(filetodisp, (double)cursor->file.X, (double)cursor->file.Y, &X, &Y); cursor->win.X = X; cursor->win.Y = Y; cursor->win.x = (int)X; cursor->win.y = (int)Y; /* Get new window dimensions */ if( (ratio = filetodisp->inx_outx + filetodisp->inx_outy) < 0.0 ) ratio = -ratio; cursor->win.rayX = ratio * cursor->file.Xdim; cursor->win.rayY = ratio * cursor->file.Ydim; /* Make new drawing vertices */ if( cursor->type == COP_Text ) reset_textcursor_coords(cursor); else make_cursor(cursor); } /* Subroutine: set_annuli_from_file_coords * Purpose: Set annuli window coordinates from their file coordinates */ #ifdef ANSIC void set_annuli_from_file_coords ( struct cursorRec *cursor, Transform *filetodisp ) #else void set_annuli_from_file_coords ( cursor, filetodisp ) struct cursorRec *cursor; Transform *filetodisp; #endif { struct cursorRec *annulus; float X, Y, ratio; /* Get new window coordinates */ d_transform(filetodisp, (double)cursor->file.X, (double)cursor->file.Y, &X, &Y); cursor->win.X = X; cursor->win.Y = Y; cursor->win.x = (int)X; cursor->win.y = (int)Y; /* Get new window dimensions */ if( (ratio = filetodisp->inx_outx + filetodisp->inx_outy) < 0.0 ) ratio = -ratio; annulus = cursor->next_annulus; while( annulus != 0 ) { annulus->win.X = cursor->win.X; annulus->win.Y = cursor->win.Y; annulus->win.x = cursor->win.x; annulus->win.y = cursor->win.y; annulus->win.rayX = ratio * annulus->file.Xdim; annulus->win.rayY = ratio * annulus->file.Ydim; /* Make new drawing vertices */ make_cursor(annulus); annulus = annulus->next_annulus; } } /* Subroutine: note_current_disp_transform * Purpose: Note current transform */ #ifdef ANSIC void note_current_disp_transform ( Transform *filetodisp ) #else void note_current_disp_transform ( filetodisp ) Transform *filetodisp; #endif { ftod.inx_outx = filetodisp->inx_outx; ftod.inx_outy = filetodisp->inx_outy; ftod.add_outx = filetodisp->add_outx; ftod.add_outy = filetodisp->add_outy; } /* Subroutine: disp_params_changed * Purpose: Check if current transform has changed */ #ifdef ANSIC static int disp_coords_changed ( Transform *filetodisp ) #else static int disp_coords_changed ( filetodisp ) Transform *filetodisp; #endif { if( (filetodisp->inx_outx != ftod.inx_outx) || (filetodisp->inx_outy != ftod.inx_outy) || (filetodisp->add_outx != ftod.add_outx) || (filetodisp->add_outy != ftod.add_outy) ) return( 1 ); else return( 0 ); } /* Subroutine: report_cursor_info * Purpose: Calculate and report curosr params in file coordinates */ #ifdef ANSIC void report_cursor_info ( struct cursorRec *cursor ) #endif void report_cursor_info ( cursor ) struct cursorRec *cursor; { double area; int i; /* Calculate the new coords */ /* Now tell what and where */ (void)printf("cursor window position: x=%d, y=%d\n", cursor->win.x, cursor->win.y); (void)printf("cursor file position: X=%.3f, Y=%.3f\n", cursor->file.X, cursor->file.Y); switch( cursor->type ) { case COP_Circle: (void)printf("Circle cursor\n"); (void)printf("radius: %.2f, ", cursor->file.Xdim); (void)printf("geometric area: %.2f\n", cursor_area(cursor, 1)); break; case COP_Ellipse: (void)printf("Rotatable ellipse\n"); (void)printf("angle in radians: %6.3f\n", cursor->rot.angle); (void)printf("X radius: w=%.2f, Y radius: h=%.2f\n", cursor->file.Xdim, cursor->file.Ydim); (void)printf("geometric area: %.2f\n", cursor_area(cursor, 1)); break; case COP_Box: if( cursor->rot.angle == 0.0 ) { (void)printf("Orthogonal box cursor\n"); (void)printf("width and height in file pixels: w=%.2f, h=%.2f\n", cursor->file.Xdim * 2.0, cursor->file.Ydim * 2.0); (void)printf("geometric area: %.2f\n", cursor_area(cursor, 1)); } else { (void)printf("Rotated box cursor\n"); (void)printf("angle in radians: %6.3f\n", cursor->rot.angle); (void)printf("width and height in file pixels: w=%.2f, h=%.2f\n", cursor->file.Xdim * 2.0, cursor->file.Ydim * 2.0); (void)printf("geometric area: %.2f\n", cursor_area(cursor, 1)); } break; case COP_Polygon: (void)printf("Polygon cursor with "); (void)printf("%d vertices:\n", cursor->poly_cnt); for( i=0; ipoly_cnt; i++ ) { (void)printf(" (x=%.2f, y=%.2f)\n", cursor->poly[i].fileX, cursor->poly[i].fileY); } if( (area = cursor_area(cursor, 1)) > 0.0 ) (void)printf("geometric area: %.2f\n", area ); else (void)printf("Note: polygon is twisted.\n"); break; case COP_Point: default: break; } (void)printf("\n"); } saoimage-1.08/crdtemp.c 666 21641 13 22162 5030502177 10150 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: crdtemp.c (Coordinate Temporary) * Purpose: Calculate display coordinates for pan and zoom * Subroutine: set_tdisp() returns: void * Subroutine: reset_tdisp() returns: void * Subroutine: set_disptran() returns: void * Subroutine: panedge_zoom() returns: void * Subroutine: set_dispoff() returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 1 September 1988 * {1} MVH Kludged set_dispoff to trap overrrun 28 April 1990 * {n} -- -- */ #include /* stderr, NULL, etc */ #include "hfiles/coord.h" /* coord structs */ #define MAX(a,b) (((a) > (b)) ? (a) : (b)) /* * Subroutine: set_tdisp * Purpose: set needed parameters for proposed display * PreState: tid.cenX, tid.cenY, tid.zoom, and tid.block must be set */ void set_tdisp ( coord ) struct coordRec *coord; { /* calculate corners of display in img coords */ /* 0.5 accounts for rounding to nearest pixel, 0.499 rounding at limit */ coord->tid.srcX1 = (int) (coord->tid.cenX - ((coord->disp.cenX - 0.5) / coord->tid.zoom)); coord->tid.srcX2 = (int) (coord->tid.cenX + ((0.499 + (float)coord->disp.width - coord->disp.cenX) / coord->tid.zoom)); coord->tid.srcY1 = (int) (coord->tid.cenY - ((coord->disp.cenY - 0.5) / coord->tid.zoom)); coord->tid.srcY2 = (int) (coord->tid.cenY + ((0.499 + (float)coord->disp.height - coord->disp.cenY) / coord->tid.zoom)); /* limit display area to img area */ coord->tid.clip = 0; if( coord->tid.srcX1 < coord->img.X1i ) { coord->tid.srcX1 = coord->img.X1i; coord->tid.clip += LX; } if( coord->tid.srcX2 > coord->img.X2i ) { coord->tid.srcX2 = coord->img.X2i; coord->tid.clip += RX; } if( coord->tid.srcY1 < coord->img.Y1i ) { coord->tid.srcY1 = coord->img.Y1i; coord->tid.clip += TY; } if( coord->tid.srcY2 > coord->img.Y2i ) { coord->tid.srcY2 = coord->img.Y2i; coord->tid.clip += BY; } /* check display parameters against buf contents */ if( coord->bufcheck ) { /* request outside coverage of buffer contents */ if( (coord->tid.srcX1 < coord->ib.srcX1) || (coord->tid.srcX2 > coord->ib.srcX2) || (coord->tid.srcY1 < coord->ib.srcY1) || (coord->tid.srcY2 > coord->ib.srcY2) ) coord->buferror = 1; else if( coord->ib.block != 1 ) { if( coord->tid.block < coord->ib.block ) /* request for finer resolution than currently in buffer */ coord->buferror = 1; else if( ((int)coord->tid.block % coord->ib.block) != 0 ) /* request for incompatible blocking */ coord->buferror = 1; else coord->buferror = 0; } else coord->buferror = 0; } } /* * Subroutine: reset_tdisp * Purpose: Reset temp disp proposal to the current disp params */ void reset_tdisp ( coord ) struct coordRec *coord; { bcopy((char *)&coord->id, (char *)&coord->tid, sizeof(Edges)); coord->buferror = 0; } /* * Subroutine: set_disptran * Purpose: Set display parameters and translations as per temp */ void set_disptran ( coord ) struct coordRec *coord; { void set_transform(), combine_transform(), invert_transform(); bcopy((char *)&coord->tid, (char *)&coord->id, sizeof(Edges)); /* compute coordinate conversions between pan and img systems */ set_transform(coord->id.cenX, coord->id.cenY, coord->id.zoom, &coord->disp, &coord->img, &coord->disptoimg, &coord->imgtodisp); /* compute transform from display to file and the reverse */ combine_transform(&coord->disptofile, &coord->disptoimg, &coord->imgtofile); invert_transform(&coord->filetodisp, &coord->disptofile, (double)coord->file.ioff); } /* * Subroutine: panedge_zoom * Purpose: set up zoom given edges of desired display and * appropriate img transform */ void panedge_zoom ( coord, wintoimgtrans, win_x, win_y ) struct coordRec *coord; /* i: collected coords */ Transform *wintoimgtrans; /* i: transform from mouse's window to img */ int win_x, win_y; /* i: window coords of mouse event */ { float imgX, imgY; int box_width, box_height; void i_transform(); static int choose_zoom(); /* calculate image coordinates of win_x and win_y */ i_transform(wintoimgtrans, win_x, win_y, &imgX, &imgY); /* select zoom based on this box */ box_width = abs((int)coord->tid.cenX - (int)imgX) * 2 + 1; box_height = abs((int)coord->tid.cenY - (int)imgY) * 2 + 1; coord->tid.block = choose_zoom(coord->disp.width, coord->disp.height, box_width, box_height); /* check against already generous limits and set float zoom factor */ if( coord->tid.block > 0 ) { if( coord->tid.block > 400 ) coord->tid.block = 400; coord->tid.zoom = 1.0 / (double)coord->tid.block; } else { if( coord->tid.block < -100 ) coord->tid.block = -100; coord->tid.zoom = -(double)coord->tid.block; } } /* * Subroutine: choose_zoom * Purpose: Select the zoom to best fit indicated image subsection to * display window * Method: Choose a zoom which comes closest to putting the ref point * on an edge while still enclosing it * Returns: Source-to-dest integer blocking code */ static int choose_zoom ( dst_width, dst_height, src_width, src_height ) int dst_width; /* width of window */ int dst_height; /* height of window */ int src_width; /* width of image section */ int src_height; /* height of image section */ { int i; /* limit width and height just in case */ src_width = MAX(1, src_width); src_height = MAX(1, src_height); #ifdef DEBUG if( (dst_width <= 0) || (dst_height <= 0) ) { (void)fprintf(stderr, "WARNING: no window size for choose_zoom\n"); return(1.0); } #endif /* will we zoom up or down */ /* if source image section has more pixels than destination, block */ if( (src_width > dst_width) || (src_height > dst_height) ) { /* point is outside zoom-1 frame, enlarge source until we include it */ for( i = 1; (((dst_width * i) <= src_width) || ((dst_height * i) <= src_height)); i++ ); return( i ); } else { /* point is inside zoom-one frame */ /* try shrinking source until we no-longer include it, then back-up one */ /* (count until we reach a point where one error changes sign) */ for( i = 1; (((src_width * i) <= dst_width) && ((src_height * i) <= dst_height)); i++ ); if( --i == 1 ) return(1); else return( -i ); } } /* * Subroutine: set_dispoff * Purpose: Set the special window (dest) coords for mapping a display * Note: Round pixel index in if on an edge between pixels * Note: A is src (buf), B is dst (disp) */ void set_dispoff ( BAtrans, Bsys, AB ) Transform *BAtrans; Coordsys *Bsys; Edges *AB; { float x, y; int BAblock; /* Compute simple coords for simplified display routines */ x = -BAtrans->add_outx / BAtrans->inx_outx; if( x < 0 ) AB->dst_x = (int)(x - 0.5); else AB->dst_x = (int)(x + 0.5); y = -BAtrans->add_outy / BAtrans->iny_outy; if( y < 0 ) AB->dst_y = (int)(y - 0.5); else AB->dst_y = (int)(y + 0.5); d_transform(BAtrans, 0.0, 0.0, &x, &y); if( x < 0 ) AB->src_x = (int)(x - 0.5); else AB->src_x = (int)(x + 0.5); if( x < 0 ) AB->src_y = (int)(y - 0.5); else AB->src_y = (int)(y + 0.5); /* Compute [not completely correctly] paramaters for old display code */ BAblock = -AB->block; /* do coords for top-left corner */ if( (BAblock > 0) || ((AB->clip & LXTY) != 0) ) { /* calculate upperleft edge backwards through transform */ x = ((float)AB->srcX1 - BAtrans->add_outx) / BAtrans->inx_outx; y = ((float)AB->srcY1 - BAtrans->add_outy) / BAtrans->iny_outy; AB->dstX1 = (int)(x + 0.001); AB->dstY1 = (int)(y + 0.001); if( AB->dstX1 < Bsys->X1i ) AB->dstX1 = Bsys->X1i; if( AB->dstY1 < Bsys->Y1i ) AB->dstY1 = Bsys->Y1i; } else { /* block 1 or less */ AB->dstX1 = Bsys->X1; AB->dstY1 = Bsys->Y1; } if( (BAblock > 0) || ((AB->clip & RXBY) != 0) ) { /* calculate lowerright edge backwards through transform */ x = ((float)(AB->srcX2 + 1) - BAtrans->add_outx) / BAtrans->inx_outx; y = ((float)(AB->srcY2 + 1) - BAtrans->add_outy) / BAtrans->iny_outy; AB->dstX2 = (int)(x - 0.001); AB->dstY2 = (int)(y - 0.001); if( AB->dstX2 > Bsys->X2i ) AB->dstX2 = Bsys->X2i; if( AB->dstY2 > Bsys->Y2i ) AB->dstY2 = Bsys->Y2i; } else { AB->dstX2 = Bsys->X2; AB->dstY2 = Bsys->Y2; } AB->dstXwdth = 1 + AB->dstX2 - AB->dstX1; AB->dstYhght = 1 + AB->dstY2 - AB->dstY1; /* kludge trap to prevent algorithm from overshooting image buffer */ if( (BAtrans->inx_outx >= 1.0) && ((AB->dstXwdth * BAtrans->inx_outx) > AB->srcXwdth) ) { AB->dstX2--; AB->dstXwdth--; } if( (BAtrans->iny_outy >= 1.0) && ((AB->dstYhght * BAtrans->iny_outy) > AB->srcYhght) ) { AB->dstY2--; AB->dstYhght--; } } saoimage-1.08/crdtrans.c 666 21641 13 6234 4613613240 10314 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: crdtrans.c (Coordinate Transformation) * Purpose: Transform x,y, coordinates through transformation matrix * Subroutine: d_transform() returns: void * Subroutine: i_transform() returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 16 March 1988 * {n} -- -- */ #include "hfiles/coord.h" /* coord structs */ /* * Subroutine: d_transform * Purpose: Perform coordinate translation on floating point * x and y values */ void d_transform ( trans, xin, yin, xout, yout ) Transform *trans; double xin, yin; float *xout, *yout; { if( trans->no_rot ) { *xout = (trans->inx_outx * (float)xin) + trans->add_outx; *yout = (trans->iny_outy * (float)yin) + trans->add_outy; } else { *xout = trans->add_outx + (trans->inx_outx * (float)xin) + (trans->iny_outx * (float)yin); *yout = trans->add_outy + (trans->inx_outy * (float)xin) + (trans->iny_outy * (float)yin); } } /* * Subroutine: i_transform * Purpose: Perform coordinate translation using integer input values * Note: Does some checking for computational short-cuts */ void i_transform ( trans, xin, yin, xout, yout ) Transform *trans; int xin, yin; float *xout, *yout; { /* if operation is orthogonal and can be performed in integer math */ if( trans->int_math ) { /* if x and y axes are flipped */ if( trans->flip ) { /* if not zoom 1 (no zoom) */ if( trans->zoom ) { if( trans->multiply ) { /* multiply means integer multiply */ *xout = (float)(yin * trans->ixzoom) + trans->iadd_outx; *yout = (float)(xin * trans->iyzoom) + trans->iadd_outy; } else { /* else divide */ *xout = ((float)yin / (float)trans->ixzoom) + trans->iadd_outx; *yout = ((float)xin / (float)trans->iyzoom) + trans->iadd_outy; } } else { /* no zoom is zoom 1 */ *xout = (float)yin + trans->iadd_outx; *yout = (float)xin + trans->iadd_outx; } } else { if( trans->zoom ) { if( trans->multiply ) { /* multiply means integer multiply */ *xout = (float)(xin * trans->ixzoom) + trans->iadd_outx; *yout = (float)(yin * trans->iyzoom) + trans->iadd_outy; } else { /* else divide */ *xout = ((float)xin / (float)trans->ixzoom) + trans->iadd_outx; *yout = ((float)yin / (float)trans->iyzoom) + trans->iadd_outy; } } else { /* no zoom is zoom 1 */ *xout = (float)xin + trans->iadd_outx; *yout = (float)yin + trans->iadd_outy; } } } else { /* else translation must be computed with floating point operations */ register float Xin, Yin; Xin = xin; Yin = yin; *xout = (trans->inx_outx * Xin) + (trans->iny_outx * Yin) + trans->iadd_outx; *yout = (trans->inx_outy * Xin) + (trans->iny_outy * Yin) + trans->iadd_outy; } } saoimage-1.08/editctrl.c 666 21641 13 22203 4632106424 10322 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: editctrl.c (Editor Control) * Purpose: Top level of text editing session for string input * Subroutine: init_edit_popup() returns: EditStruct * * Subroutine: get_edit_input() returns: int * Subroutine: unmap_popwin() returns: void * Xlib calls: XCreateSimpleWindow(), XMapWindow(), XUnmapWindow() * Xlib calls: XSelectInput(), XNextEvent(), XDrawImageString() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 7 July 1989 * {1} Jay Travisano (STScI) VMS,IMTOOL changes 10 Nov 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" #include "hfiles/window.h" #include "hfiles/edit.h" extern struct colorRec color; extern struct windowRec btnbox; extern struct windowRec desktop; extern Window root; #define XOFF 2 #define YOFF 1 #define BDRWDTH 2 #define WDTHLESS 12 struct popRec pop; static int init_window = 1; #if VMS && IMTOOL extern void XZ_ast(); extern int XZ_efn; #endif /* * Subroutine: init_edit_popup * Purpose: Get everything ready for running editor sessions */ EditStruct *init_edit_popup ( string, max_chars ) char *string; int max_chars; { EditStruct *edit; int len; EditStruct *get_edit_struct(); void init_edit_struct(), load_edit_struct(); static void init_popwin(); if( init_window ) { init_popwin(color.gcset.menu.foreground, color.gcset.menu.background); init_window = 0; } edit = get_edit_struct (max_chars); init_edit_struct(pop.display, pop.ID, edit, pop.fontstruct, pop.foreground, pop.background); if( (string != NULL) && ((len = strlen(string)) > 1) ) load_edit_struct(edit, string, len); return( edit ); } /* * Subroutine: get_edit_input * Purpose: Run popup editor session for text input * Xlib calls: XNextEvent(), XDrawImageString(), XUnmapWindow() * Note: All non-editor events are thrown out during session * (but expose is fielded and configure is saved for end). * Returns: 1 if user returns with a response, 0 if user cancels session */ int get_edit_input ( edit, one_row, map, unmap, prompt ) EditStruct *edit; int one_row; /* i: put-edit-after-prompt-on-same-line */ int map; /* i: map-window-before-starting */ int unmap; /* i: unmap-window-before-return */ char *prompt; /* i: user prompt such as "enter file name:" */ { XEvent event, configure; int init, got_configure, answer; GC gc, set_edit_gc(); int emacs_response(); void draw_new_string(), redraw_edit_string(); void adjust_desktop(), redraw_window(), unmap_popwin(); static void map_popwin(); map_popwin(edit, one_row, prompt, map); if( !map ) { /* window already up, don't wait for expose event */ XClearWindow(pop.display, pop.ID); gc = set_edit_gc(pop.font, pop.foreground, pop.background); XDrawImageString(pop.display, pop.ID, gc, pop.prompt_x, pop.prompt_y, prompt, strlen(prompt)); draw_new_string(edit, 0); init = 0; } else init = 1; got_configure = 0; while( 1 ) { /* swallow all the events, except a few, from now until we are done */ XNextEvent(pop.display, &event); switch( event.type ) { case KeyPress: /* grab key events from all application windows */ if( (answer = emacs_response(&event.xkey, edit)) != 0 ) { if( got_configure ) adjust_desktop(&configure.xconfigure); if( unmap ) unmap_popwin(); if( answer < 0 ) return( 0 ); else return( 1 ); } break; case Expose: if( event.xexpose.count > 0 ) break; if( event.xexpose.window == pop.ID ) { gc = set_edit_gc(pop.font, pop.foreground, pop.background); XDrawImageString(pop.display, pop.ID, gc, pop.prompt_x, pop.prompt_y, prompt, strlen(prompt)); if( init ) { draw_new_string(edit, 0); init = 0; } else redraw_edit_string(edit); } else /* redraw entire window once (not parts of windows) */ redraw_window(event.xexpose.window); break; case ConfigureNotify: /* if the main window is reconfigured, save this info */ if( event.xconfigure.window == desktop.ID ) { bcopy((char *)&event, (char *)&configure, sizeof(XEvent)); got_configure = 1; } break; default: break; } } } /* * Subroutine: unmap_popwin * Purpose: Unmap the popwin: called by routines which control map and * unmap themselves because they use the window for multiple * queries (single query can have auto-unmap) */ void unmap_popwin ( ) { if( pop.pointer_x >= 0 ) /* if pointer position was noted, return pointer to continue from where event processing was interrupted */ XWarpPointer(pop.display, None, root, 0, 0, 0, 0, pop.pointer_x, pop.pointer_y); XUnmapWindow(pop.display, pop.ID); } /* * Subroutine: init_popwin * Purpose: Set the popup parameters and create the popup window * Xlib calls: XCreateSimpleWindow(), XSelectInput(); */ static void init_popwin ( foreground, background ) unsigned long foreground, background; { int text_yoff; XWMHints wmhints; XFontStruct *get_fontstruct(); pop.foreground = foreground; pop.background = background; /* use the "large" font */ pop.fontstruct = get_fontstruct (2); pop.font = pop.fontstruct->fid; pop.font_height = pop.fontstruct->ascent + pop.fontstruct->descent; pop.ref_width = btnbox.width; pop.ref_height = btnbox.height; pop.width = pop.ref_width - (XOFF + XOFF + BDRWDTH + BDRWDTH); pop.height = pop.ref_height - (YOFF + YOFF + BDRWDTH + BDRWDTH); text_yoff = (pop.height - (pop.font_height + pop.font_height)) / 3; pop.two_y1 = pop.font_height + text_yoff - pop.fontstruct->descent; pop.two_y2 = pop.two_y1 + pop.font_height + text_yoff; pop.one_y = (pop.height + pop.fontstruct->ascent) / 2; pop.prompt_x = pop.two_y1; pop.display = btnbox.display; pop.ID = XCreateSimpleWindow(btnbox.display, btnbox.ID, XOFF, YOFF, (unsigned int)pop.width, (unsigned int)pop.height, BDRWDTH, pop.foreground, pop.background); #if VMS && IMTOOL XSelectAsyncInput(pop.display, pop.ID, ExposureMask | KeyPressMask, XZ_ast, XZ_efn); #endif XSelectInput(pop.display, pop.ID, ExposureMask | KeyPressMask); /* Tell window manager to handle focus for us */ wmhints.input = True; wmhints.flags = InputHint; XSetWMHints(btnbox.display, pop.ID, &wmhints); } /* * Subroutine: map_popwin * Purpose: map the popwindow, noting its current size and setting params * Xlib calls: XMapWindow() */ static void map_popwin ( edit, one_row, prompt, map ) EditStruct *edit; int one_row; /* i: put-edit-after-prompt-on-same-line */ char *prompt; /* i: prompt string such as "Enter file name:" */ int map; /* i: map-the-window-when-ready */ { int text_yoff; Window root_ret, child_ret; int x_ret, y_ret; unsigned int mask_ret; if( (pop.ref_width != btnbox.width) || (pop.ref_height != btnbox.height) ) { pop.ref_width = btnbox.width; pop.ref_height = btnbox.height; pop.width = pop.ref_width - (XOFF + XOFF + BDRWDTH + BDRWDTH); pop.height = pop.ref_height - (YOFF + YOFF + BDRWDTH + BDRWDTH); XResizeWindow(btnbox.display, pop.ID, (unsigned int)pop.width, (unsigned int)pop.height); text_yoff = (pop.height - (pop.font_height + pop.font_height)) / 3; pop.two_y1 = pop.font_height + text_yoff; pop.two_y2 = pop.two_y1 + pop.font_height + text_yoff; pop.one_y = (pop.height + pop.fontstruct->ascent) / 2; pop.prompt_x = pop.two_y1; } /* we don't know how current this edit's coords are, always update them */ if( one_row ) { pop.prompt_y = pop.one_y; edit->y = pop.one_y; edit->x = pop.prompt_x + XTextWidth(pop.fontstruct, prompt, strlen(prompt)) + 10; } else { pop.prompt_y = pop.two_y1; edit->y = pop.two_y2; edit->x = pop.prompt_x; } edit->max_pixlen = pop.width - (edit->x + pop.prompt_x); edit->area_y = edit->y - edit->fontstruct->max_bounds.ascent; if( map ) { if( XQueryPointer(pop.display, root, &root_ret, &child_ret, &x_ret, &y_ret, &pop.pointer_x, &pop.pointer_y, &mask_ret) == False ) pop.pointer_x = -1; XMapWindow (btnbox.display, pop.ID); } } saoimage-1.08/csrctrl.c 666 21641 13 17475 4740446251 10210 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrctrl.c (Cursor Control) * Purpose: Manipulate the software cursor in response to mouse events * Subroutine: control_cursor() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {1} MVH added arrow and text cursors 1 Jan 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* Define codes */ #include "hfiles/struct.h" /* Declare structure types */ #include "hfiles/extern.h" /* Extern main parameter structures */ static unsigned int three_button_mask = Button1Mask|Button2Mask|Button3Mask; #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void control_cursor() #else int request_delete_polygon_vertex(), start_size(); Bool statemotion_in_disp(); /* Function for XCheckIfEvent */ void grab_polygon_vertex(), draw_annuli(), point_region(), disp_dispbox(); void delete_annulus(), set_cursor_file_coords(), set_polygon_file_coords(); void make_new_annulus(), size_cursor(), report_cursor_info(), angle_cursor(); void move_annuli(), move_cursor(), size_annuli(), update_annuli_centers(); void save_textcursor(); #ifdef IMTOOL void note_trigger_key_position(); #endif #endif /* Subroutine: control_cursor * Purpose: Respond to mouse commands * Note: When not tracking, call on ButtonPress only. * When tracking priority set, enter on Press, Release, & Motion */ void control_cursor() { static int oldmode = COP; /* restore control mode when done */ static short originating_button; /* the first determines the action */ static short cursor_has_moved=0; /* position params may need updating */ int not_erased_yet = 1; /* move-or-size-must-erase-old */ if( control.event.type == ButtonPress ) { /* If mouse button pressed (and no others), start tracking */ if( control.priority == 0 ) { /* Don't respond if control button is down */ if( control.event.xbutton.state & ControlMask ) return; /* If not already tracking, set tracking mode */ originating_button = control.event.xbutton.button; if( cursor.type == COP_Point ) { /* For pointing cursor, this is a region command */ point_region(&control.event.xbutton); /* Announce the coordinates */ if( control.verbose ) report_cursor_info(&cursor); #ifdef IMTOOL /* Give this position over last imcur position for warping mouse */ note_trigger_key_position(-1, -1); #endif return; } else { if( (originating_button != Button1) && (cursor.type == COP_Text) ) { save_textcursor(&control.event.xbutton); } else { if( originating_button == Button3 ) { if( cursor.annuli ) delete_annulus(&cursor, &control.event); } else { if( cursor.type == COP_Polygon ) { /* Set up parameters for polygon tracking */ grab_polygon_vertex(&cursor, &control.event, (originating_button == Button2) ); not_erased_yet = 0; } else if( originating_button == Button2 ) { if( (cursor.type == COP_Box) || (cursor.type == COP_Ellipse) ) cursor.ctrl.active_side = start_size(&cursor, &control.event); } } } } /* Store mode (in case called from other mode) */ oldmode = control.mode; control.mode = COP; /* Set mask for mouse tracking events */ control.priority = ButtonPress | ButtonRelease | MotionNotify; } else { /* Ignore additional buttons */ control.completed = 1; return; } } else if( control.event.type == ButtonRelease ) { /* If mouse button released (and no others are down), end tracking */ /* Which buttons were being held before? */ int mask_of_released_button; /* State mask of event button */ switch( control.event.xbutton.button ) { case Button1: mask_of_released_button = Button1Mask; break; case Button2: mask_of_released_button = Button2Mask; break; case Button3: mask_of_released_button = Button3Mask; break; default: /* Default case must fail test */ mask_of_released_button = 7; } /* If that was the last button, we are done */ if( (control.event.xbutton.state & three_button_mask) == mask_of_released_button ) { /* Update cursor file coordinates */ if( cursor.type == COP_Polygon ) { /* Update all polygon coordinates which have changed */ set_polygon_file_coords(&cursor, &coord.disptofile); } else { if( cursor_has_moved ) { cursor.win.X = (double)cursor.win.x + 0.5; cursor.win.Y = (double)cursor.win.y + 0.5; set_cursor_file_coords(&cursor, &coord.disptofile, 1); if( cursor.annuli ) update_annuli_centers(&cursor); cursor_has_moved = 0; #ifdef IMTOOL /* Give this position over last imcur position for warping mouse */ note_trigger_key_position(-1, -1); #endif } else { /* Else cursor was sized */ set_cursor_file_coords (&cursor, &coord.disptofile, 0); /* If finished sizing an annulus, put it in the annulus list */ if( cursor.annuli && (originating_button == Button2) ) { make_new_annulus (&cursor); if( !cursor.overwrites_image_data ) /* Redraw all annuli in case we tracked across any */ draw_annuli(&cursor, cursor.draw); } } } control.completed = 1; /* For point cursor, we never entered tracking mode. end here */ if( cursor.type != COP_Point ) { if( control.verbose ) /* Announce the coordinates */ report_cursor_info (&cursor); /* Unset priority tracking mode */ control.priority = 0; control.mode = oldmode; /* If image altered by tracking, redraw the image (exc. poly del) */ if( cursor.overwrites_image_data && ((originating_button != Button3) || (cursor.type != COP_Polygon)) ) disp_dispbox(); } } /* Return on any release event */ return; } else if( control.event.type != MotionNotify ) return; /* Make sure this is a dispbox event event */ if( control.event.xbutton.window != dispbox.ID ) return; /* Get only the most recent move */ XSync(cursor.win.display, 0); while( XCheckIfEvent(cursor.win.display, &control.event, statemotion_in_disp, (char *)(&three_button_mask)) ); /* Must be mouse moved - call relevant cursor activity */ switch( originating_button ) { case Button1: /* Move the cursor */ if( cursor.annuli ) move_annuli(&cursor, control.event.xmotion.x, control.event.xmotion.y); else move_cursor(&cursor, &control.event, not_erased_yet); cursor_has_moved = 1; break; case Button2: /* Resize the cursor */ if( cursor.annuli ) size_annuli(&cursor, &control.event); else size_cursor(&cursor, &control.event, not_erased_yet); break; case Button3: /* Rotate the cursor or delete point */ if( !cursor.annuli ) { if( (cursor.type == COP_Box) || (cursor.type == COP_Ellipse) || (cursor.type == COP_Arrow) ) { angle_cursor(&cursor, &control.event); } else if( cursor.type == COP_Polygon ) { /* This is a delete point operation, redisplay if needed */ if( request_delete_polygon_vertex(&cursor, &control.event) ) disp_dispbox(); } /* Else do nothing for now */ } break; } /* Suppress the zoombox and everything else if not tracking */ if( ((control.event.xbutton.state & (ShiftMask | LockMask)) ==0) ^ (control.tracking !=0) ) control.completed = 1; } saoimage-1.08/dispdthr.c 666 21641 13 27256 5030502217 10337 #ifndef lint static char SccsId[] = "@(#)dispdither.c 1.2 8/12/89"; #endif /* Module: dispdthr.c (Display Dither) * Purpose: Map 16 bit data to a single plane bitmap using dithering * Subroutine: dither_sample() returns: void * Subroutine: dither_replicate() returns: void * Xlib calls: none * Method: Image dithering based on 16x16 square of values from 0 to 255. * Note: Matrix is short to allow compare with 256 (not a uchar val) * Note: Lookup is used to rescale input data to 0-255 range * Note: Most loops check by pointer val, saving indexing overhead * Note: Seperate code used for forward and reverse video rather than * switching foreground and background val, because non-image * area of display must not change * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 7 July 1989 * {1} MVH added ULedge partial replicate 3 Feb 1990 * {2} MVH replaced zoom rep code 21 June 1991 * {n} -- -- */ static unsigned char bit_mask[8] = { 0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80 }; /* * Subroutine: zoom_dither_sample * Purpose: Perform subsampling and dithering to produce a bitmap image * from 16 bit signed data through a scaling lookup table. * Used when bitmap is same size or smaller than data image. * Method: Sample every zoom'th data element in each direction * Note: x, y, width, and height define a subsection within output. * Bits outside of subsection are unchanged. */ void dither_sample ( short_data, data_width, zoom, bitmap, bytes_per_line, x, y, width, height, lookup, dither_matrix, inverse ) short *short_data; /* i: image of signed short data */ int data_width; /* i: row width of short image */ int zoom; /* i: zoom factor for subsampling */ unsigned char *bitmap; /* o: output bitmap buffer */ int bytes_per_line; /* i: bytes per line of bitmap */ int x, y, width, height; /* i: dimensions to fill */ register unsigned char *lookup; /* i: short to uchar lookup table */ short *dither_matrix; /* i: 16x16 matrix for dithering */ int inverse; /* i: make 0 on 1, else 1 on 0 */ { register short *data; /* l: ptr to current data input */ register short *matrix; /* l: ptr to current dither value */ register unsigned char *bitmap_byte; /* l: ptr to current output byte */ register unsigned char *bitmap_bit; /* l: current bit in output byte */ short *data_row; /* l: beginning of current input row */ short *matrix_row; /* l: 1st entry in matrix row */ short *matrix_row_end; /* l: last short in matrix row */ short *matrix_end; /* l: last short in matrix */ short *data_row_end; /* l: last short in input data row */ unsigned char *bitmap_row; /* l: first byte of output row */ unsigned char *bitmap_first_bit; /* l: first byte to actually write */ unsigned char *bitmap_last_bit; /* l: last byte to be affected */ short x_step; /* l: sampling step along row */ short y_step; /* l: pointer offset to advance rows */ short i; /* point register pointer to data buffer */ data_row = short_data; bitmap_row = bitmap + (y * bytes_per_line) + (x / 8); bitmap_first_bit = bit_mask + (x & 7); /* same as %8 */ bitmap_last_bit = &(bit_mask[7]); /* initialize matrix pointers for use and loop tests */ matrix_row = dither_matrix; matrix_row_end = matrix_row + 16; matrix_end = matrix_row + 256; /* initial sampling step size for both directions */ x_step = zoom; y_step = data_width * x_step; /* width becomes count of data traversed each row */ width *= zoom; /* if high vals are to be white */ if( inverse ) { /* process one row at a time */ for( i = 0; i < height; i++ ) { matrix = matrix_row; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; /* process through the row */ while( data < data_row_end ) { /* set bit by comparing val to matrix entry */ if( lookup[*data] <= *matrix ) *bitmap_byte |= *bitmap_bit; data += x_step; ++matrix; /* check for next byte */ if( ++bitmap_bit > bitmap_last_bit ) { bitmap_bit = bit_mask; ++bitmap_byte; /* matrix row wrap-around happens every other byte edge */ if( matrix >= matrix_row_end ) matrix = matrix_row; } } /* advance to next row of everything */ bitmap_row += bytes_per_line; data_row += y_step; matrix_row = matrix_row_end; matrix_row_end += 16; /* check for matrix column wrap-around */ if( matrix_row >= matrix_end ) { matrix_row = dither_matrix; matrix_row_end = matrix_row + 16; } } /* else foreground is to be black */ } else { /* process one row at a time */ for( i = 0; i < height; i++ ) { matrix = matrix_row; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; /* process through the row */ while( data < data_row_end ) { /* set bit by comparing val to matrix entry */ if( lookup[*data] > *matrix ) *bitmap_byte |= *bitmap_bit; data += x_step; ++matrix; /* check for next byte */ if( ++bitmap_bit > bitmap_last_bit ) { bitmap_bit = bit_mask; ++bitmap_byte; /* matrix row wrap-around happens every other byte edge */ if( matrix >= matrix_row_end ) matrix = matrix_row; } } /* advance to next row of everything */ bitmap_row += bytes_per_line; data_row += y_step; matrix_row = matrix_row_end; matrix_row_end += 16; /* check for matrix column wrap-around */ if( matrix_row >= matrix_end ) { matrix_row = dither_matrix; matrix_row_end = matrix_row + 16; } } } } /* * Subroutine: zoom_dither_replicate * Purpose: Perform replication and dithering to produce a bitmap image * from 16 bit signed data through a scaling lookup table. * Used when bitmap is larger than data image. * Method: Repeat data element zoom times in each direction */ void dither_replicate ( short_data, data_width, zoom, bitmap, bytes_per_line, first_x_rep, first_y_rep, x, y, width, height, lookup, dither_matrix, inverse ) short *short_data; /* i: image of signed short data */ int data_width; /* i: row width of short image */ int zoom; /* i: zoom factor for replicating */ unsigned char *bitmap; /* o: output bitmap buffer */ int bytes_per_line; /* i: bytes per line of bitmap */ int first_x_rep; /* i: number of reps in 1st column */ int first_y_rep; /* i: num of reps in 1st row */ int x, y, width, height; /* i: area of output to fill */ register unsigned char *lookup; /* i: short to uchar lookup table */ short *dither_matrix; /* i: 16x16 matrix for dithering */ int inverse; /* i: make 0 on 1, else 1 on 0 */ { register short *data; /* l: ptr to current data input */ register short *matrix; /* l: ptr to current dither value */ register unsigned char *bitmap_byte; /* l: ptr to current output byte */ register int bitmap_bit; /* l: current bit in output byte */ short *data_row; /* l: beginning of current input row */ short *matrix_row; /* l: 1st entry in matrix row */ short *matrix_row_end; /* l: last short in matrix row */ short *matrix_end; /* l: last short in matrix */ short *data_row_end; /* l: last short in input data row */ unsigned char *bitmap_row; /* l: first byte of output row */ unsigned char *bitmap_row_end; /* l: first byte in bitmap */ int bitmap_first_bit; /* l: 1st bit of first byte affected */ int bitmap_last_bit; /* l: last bit of last byte affected */ int bitmap_bytes_per_row; /* l: length of output line in bytes */ int x_step; /* l: repetition step along row */ int y_step; /* l: pointer offset to repeat rows */ int i; /* point register pointer to data buffer */ data_row = short_data; bitmap_row = bitmap + (y * bytes_per_line) + (x / 8); /* which bit does this x fall on? ((x & 7) is same as (x % 8)) */ bitmap_first_bit = x & 7; /* which bit will last x fall on */ /* bitmap_last_bit = (width + bitmap_first_bit) & 7; bitmap_bytes_per_row = (width + bitmap_first_bit + 7) / 8; */ bitmap_last_bit = (width + bitmap_first_bit - 1) & 7; bitmap_bytes_per_row = (x + width + 7) / 8; if( bitmap_bytes_per_row >= bytes_per_line ) bitmap_bytes_per_row = bytes_per_line - ((x / 8) + 1); else bitmap_bytes_per_row -= ((x / 8) + 1); /* get matrix pointer and loop references ready */ matrix_row = dither_matrix; matrix_row_end = matrix_row + 16; matrix_end = matrix_row + 256; /* convert first rep to first step toward zoom reps */ y_step = 1 + zoom - first_y_rep; first_x_rep = 1 + zoom - first_x_rep; if( inverse ) { /* do one row at a time */ for( i = 0; i < height; i++ ) { /* beginning of row initialization */ data = data_row; bitmap_byte = bitmap_row; bitmap_row_end = bitmap_byte + bitmap_bytes_per_row; bitmap_bit = bitmap_first_bit; /* align matrix with output bytes */ matrix = matrix_row + bitmap_bit; x_step = first_x_rep; /* go through the row */ while( (bitmap_byte < bitmap_row_end) || ((bitmap_byte == bitmap_row_end) && (bitmap_bit <= bitmap_last_bit)) ) { /* set bit by comparing val to matrix entry */ if( lookup[*data] <= *matrix ) *bitmap_byte |= 1 << bitmap_bit; ++matrix; /* check for next bitmap byte and end of matrix row */ if( ++bitmap_bit == 8 ) { bitmap_bit = 0; ++bitmap_byte; /* wrap matrix row around on output byte edges */ if( matrix >= matrix_row_end ) matrix = matrix_row; } /* move to next val when done with replication */ if( ++x_step > zoom ) { ++data; x_step = 1; } } bitmap_row += bytes_per_line; matrix_row = matrix_row_end; matrix_row_end += 16; /* check for matrix column wrap-around */ if( matrix_row >= matrix_end ) { matrix_row = dither_matrix; matrix_row_end = matrix_row + 16; } /* advance data row only after zoom repetitions */ if( ++y_step > zoom ) { data_row += data_width; y_step = 1; } } } else { /* do one row at a time */ for( i = 0; i < height; i++ ) { data = data_row; bitmap_byte = bitmap_row; bitmap_row_end = bitmap_byte + bitmap_bytes_per_row; bitmap_bit = bitmap_first_bit; /* align matrix with output bytes */ matrix = matrix_row + bitmap_bit; x_step = first_x_rep; /* go through the row */ while( (bitmap_byte < bitmap_row_end) || ((bitmap_byte == bitmap_row_end) && (bitmap_bit <= bitmap_last_bit)) ) { /* set bit by comparing val to matrix entry */ if( lookup[*data] > *matrix ) *bitmap_byte |= 1 << bitmap_bit; ++matrix; /* check for next bitmap byte and end of matrix row */ if( ++bitmap_bit == 8 ) { bitmap_bit = 0; ++bitmap_byte; /* wrap matrix row around on output byte edges */ if( matrix >= matrix_row_end ) matrix = matrix_row; } /* move to next val when done with replication */ if( ++x_step > zoom ) { ++data; x_step = 1; } } bitmap_row += bytes_per_line; matrix_row = matrix_row_end; matrix_row_end += 16; /* check for matrix column wrap-around */ if( matrix_row >= matrix_end ) { matrix_row = dither_matrix; matrix_row_end = matrix_row + 16; } /* advance data row only after zoom repetitions */ if( ++y_step > zoom ) { data_row += data_width; y_step = 1; } } } } saoimage-1.08/csrdraw.c 666 21641 13 7527 4741523507 10157 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrdraw.c (Cursor Draw) * Purpose: Display and draw the software cursor * Subroutine: disp_cursor() returns: void * Subroutine: erase_cursor() returns: void * Subroutine: draw_cursor() returns: void * Subroutine: draw_annuli() returns: void * Subroutine: draw_point() * Subroutine: erase_point() * Xlib calls: XDrawLines(), XDrawRectangles() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {1} MVH added text cursor support 1 Jan 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* Cursor colors needed by Cursor.h */ #include "hfiles/cursor.h" /* Define cursor parameter structures */ #include "hfiles/constant.h" /* Define codes */ extern struct colorRec color; /* Need to know color.gcset */ #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void disp_cursor( struct cursorRec *cursor); void erase_cursor( struct cursorRec *cursor); void draw_cursor( struct cursorRec *cursor, GCspec *draw); void draw_annuli( struct cursorRec *cursor, GCspec *draw); #else GC set_gc(); void draw_annuli(), draw_cursor(), draw_point(), erase_point(); void draw_textcursor(); #endif /* Subroutine: disp_cursor * Purpose: Draw the software cursor, if it is to be visible */ #ifdef ANSIC void disp_cursor ( struct cursorRec *cursor ) #else void disp_cursor ( cursor ) struct cursorRec *cursor; #endif { /* If there are annuli, draw them */ if( cursor->annuli ) { draw_annuli(cursor, cursor->draw); } else { if( cursor->point_cnt || cursor->rectangle_cnt ) draw_cursor(cursor, cursor->draw); } } /* Subroutine: erase_cursor * Purpose: Undraw the cursor */ #ifdef ANSIC void erase_cursor ( struct cursorRec *cursor ) #else void erase_cursor ( cursor ) struct cursorRec *cursor; #endif { if( cursor->point_cnt || cursor->rectangle_cnt ) draw_cursor(cursor, &color.gcset.undraw); } /* Subroutine: draw_cursor * Purpose: Draw a cursor as indicated */ #ifdef ANSIC void draw_cursor ( struct cursorRec *cursor, GCspec *draw ) #else void draw_cursor ( cursor, draw ) struct cursorRec *cursor; GCspec *draw; #endif { GC gc; if( cursor->type == COP_Text ) { draw_textcursor(cursor, draw); return; } gc = set_gc(draw); /* Draw the cursor */ if( cursor->point_cnt > 0 ) XDrawLines(cursor->win.display, cursor->win.ID, gc, cursor->points, cursor->point_cnt, CoordModeOrigin); else if( cursor->point_cnt < 0 ) XDrawSegments(cursor->win.display, cursor->win.ID, gc, (XSegment *)cursor->points, -cursor->point_cnt); if( cursor->rectangle_cnt ) XDrawRectangles(cursor->win.display, cursor->win.ID, gc, cursor->rectangles, cursor->rectangle_cnt); } /* Subroutine: draw_annuli * Purpose: Draw all annuli in specified color and function */ #ifdef ANSIC void draw_annuli ( struct cursorRec *cursor, GCspec *draw ) #else void draw_annuli ( cursor, draw ) struct cursorRec *cursor; GCspec *draw; #endif { struct cursorRec *annulus; GC gc; gc = set_gc(draw); /* Draw the cursor */ annulus = cursor->next_annulus; while( annulus != NULL ) { if( annulus->point_cnt ) XDrawLines(annulus->win.display, annulus->win.ID, gc, annulus->points, annulus->point_cnt, CoordModeOrigin); annulus = annulus->next_annulus; } } saoimage-1.08/dispbtmp.c 666 21641 13 16075 5030502207 10334 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: dispbtmp.c (Display Bitmap) * Purpose: Routines to map 16 bit data to a single plane bitmap * Subroutine: init_halftone() returns: void * Subroutine: select_halftone() returns: void * Subroutine: make_halftone_panimage() returns: void * Subroutine: make_halftone_display() returns: void * Xlib calls: none * Copyright: 1987, 1988, 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 December 1987 * {1} MVH signed scalemap, some new names 3 December 1988 * {2} MVH new color structure for use with X11 10 May 1989 * {3} MVH update on partial display buffer 24 November 1989 * {4} MVH changed calls for replcate zoom 21 June 1991 * {n} -- -- */ #include /* stderr, FILE, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* MIN, MAX and more */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ #include "hfiles/scale.h" /* scaling parameters & struct */ #include "defs/dither.def" /* halftoning tool buffers */ /* * Subroutine: init_halftone * Purpose: Initialize color struct pointers for halftoning */ void init_halftone () { color.halftone.errbuf = &errbuf[0]; switch( color.halftone.matrixID ) { case BOP_Matrix2: color.halftone.matrix = &dotmatrix2[0][0]; break; case BOP_Matrix1: default: color.halftone.matrix = &dotmatrix1[0][0]; break; } } /* * Subroutine: select_halftone * Purpose: Respond to halftone selection command */ void select_halftone () { static void new_halftone(); switch( control.response[1] ) { case 0: /*0 is main menu selection, change only main mode */ control.mode = BOP; break; case BOP_Invert: /* invert is a toggle, switch cursor colors, redraw disp and pan boxes */ color.halftone.inverse = !color.halftone.inverse; new_halftone(1); break; case BOP_Diffuse: if( color.halftone.mode != BOP_Diffuse ) { color.halftone.mode = BOP_Diffuse; new_halftone(0); } break; case BOP_Matrix1: if( (color.halftone.mode != BOP_Dither) || (color.halftone.matrix != &dotmatrix1[0][0]) ) { color.halftone.mode = BOP_Dither; color.halftone.matrixID = BOP_Matrix1; color.halftone.matrix = &dotmatrix1[0][0]; new_halftone(1); } break; case BOP_Matrix2: if( (color.halftone.mode != BOP_Dither) || (color.halftone.matrix != &dotmatrix2[0][0]) ) { color.halftone.mode = BOP_Dither; color.halftone.matrixID = BOP_Matrix2; color.halftone.matrix = &dotmatrix2[0][0]; new_halftone(1); } break; } } /* * Subroutine: new_halftone * Purpose: Redo halftone images of both dispbox and panbox */ static void new_halftone ( magnifier ) int magnifier; /* i: include-magnifier */ { void make_halftone_display(), disp_dispbox(), disp_panbox(), draw_colorbar(); void set_magnifier_matrix(), panimage_halftone(), map_halftone_colorbar(); map_halftone_colorbar( 1, 0 ); if( magnifier ) set_magnifier_matrix(color.halftone.matrix, color.halftone.inverse); make_halftone_display(); disp_dispbox(); panimage_halftone(); disp_panbox(); draw_colorbar(0); } /* * Subroutine: make_halftone_panimage * Purpose: Make halftone bitmap for pan window (panbox) */ void panimage_halftone ( ) { void dither_sample(), diffuse_sample(); bzero(panbox.image.data, panbox.image.bytes_per_line * panbox.yheight); if( color.halftone.mode == BOP_Dither ) { dither_sample(buffer.panbuf, panbox.xwidth, 1, (unsigned char *)panbox.image.data, panbox.image.bytes_per_line, 0, 0, panbox.xwidth, panbox.yheight, buffer.scalemap + SCALEOFF, color.halftone.matrix, color.halftone.inverse); } else if( color.halftone.mode == BOP_Diffuse ) { diffuse_sample(buffer.panbuf, panbox.xwidth, 1, (unsigned char *)panbox.image.data, panbox.image.bytes_per_line, 0, 0, panbox.xwidth, panbox.yheight, buffer.scalemap + SCALEOFF, color.halftone.errbuf, color.halftone.inverse); } } /* * Subroutine: make_halftone_display * Purpose: Make halftone bitmap for display window (dispbox) */ void make_halftone_display ( ) { short *shortimage; void diffuse_sample(), diffuse_replicate(); void dither_sample(), dither_replicate(); /* point to where the image begins in the image BUFFER */ shortimage = buffer.shortbuf + (coord.bd.srcY1 * coord.buf.width) + coord.bd.srcX1; /* zero out display buffer for lines to draw (will | with existing bits) */ if( coord.bd.clip ) /* if leaving space due to panning/zooming, zero everything */ bzero(dispbox.image.data, dispbox.image.bytes_per_line * dispbox.yheight); else bzero(dispbox.image.data + (coord.bd.dstY1 * dispbox.image.bytes_per_line), coord.bd.dstYhght * dispbox.image.bytes_per_line); /* halftone black and white images */ if( coord.bd.block < 0 ) { int xrep1, yrep1; if( coord.bd.dst_x < 0 ) xrep1 = coord.bd.dst_x + ((coord.bd.src_x + 1) * (-coord.bd.block)); else xrep1 = -coord.bd.block; if( coord.bd.dst_y < 0 ) yrep1 = coord.bd.dst_y + ((coord.bd.src_y + 1) * (-coord.bd.block)); else yrep1 = -coord.bd.block; if( color.halftone.mode == BOP_Diffuse ) { diffuse_replicate(shortimage, coord.buf.width, -coord.bd.block, (unsigned char *)dispbox.image.data, dispbox.image.bytes_per_line, xrep1, yrep1, coord.bd.dstX1, coord.bd.dstY1, coord.bd.dstXwdth-1, coord.bd.dstYhght-1, buffer.scalemap + SCALEOFF, color.halftone.errbuf, color.halftone.inverse); } else { dither_replicate(shortimage, coord.buf.width, -coord.bd.block, (unsigned char *)dispbox.image.data, dispbox.image.bytes_per_line, xrep1, yrep1, coord.bd.dstX1, coord.bd.dstY1, coord.bd.dstXwdth-1, coord.bd.dstYhght-1, buffer.scalemap + SCALEOFF, color.halftone.matrix, color.halftone.inverse); } } else { if( color.halftone.mode == BOP_Diffuse ) { diffuse_sample(shortimage, coord.buf.width, coord.bd.block, (unsigned char *)dispbox.image.data, dispbox.image.bytes_per_line, coord.bd.dstX1, coord.bd.dstY1, coord.bd.dstXwdth, coord.bd.dstYhght, buffer.scalemap + SCALEOFF, color.halftone.errbuf, color.halftone.inverse); } else { dither_sample(shortimage, coord.buf.width, coord.bd.block, (unsigned char *)dispbox.image.data, dispbox.image.bytes_per_line, coord.bd.dstX1, coord.bd.dstY1, coord.bd.dstXwdth, coord.bd.dstYhght, buffer.scalemap + SCALEOFF, color.halftone.matrix, color.halftone.inverse); } } } saoimage-1.08/csrgrab.c 666 21641 13 17266 4613613752 10156 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrgrab.c (Cursor Grab) * Purpose: Surgically resize or delete annular cursors * Subroutine: size_annuli() returns: void * Subroutine: delete_annulus() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* get trig functions and sqrt */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* SMALL_NUMBER, LARGE_NUMBER and more */ extern struct colorRec color; /* need to know color.gcset */ #define GRAB_RANGE 5.0 #define ANN_INSIDE 2 #define ANN_ON 1 #define ANN_BETWEEN 8 #define ANN_OUTSIDE 4 /* * Subroutine: size_annuli * Purpose: Change size of cursor to intersect current mouse cursor * while keeping aspect ratio of cursor constant */ void size_annuli ( cursor, event ) struct cursorRec *cursor; XEvent *event; /* i: event for location of mouse */ { void draw_cursor(), make_cursor(); static void size_annulus(), grab_annulus(); /* if this event is initiating tracking, don't erase the cursor */ if( event->type == MotionNotify ) /* erase existing cursor */ draw_cursor(cursor, &color.gcset.undraw); size_annulus(cursor, event); /* if this event is initiating tracking, decide which annulus to grab */ if( event->type == ButtonPress ) grab_annulus (cursor); /* make new point list */ make_cursor(cursor); /* draw it */ draw_cursor(cursor, &color.gcset.track); } /* * Subroutine: delete_annulus * Purpose: Respond to a mouse request to delete an annulus * */ void delete_annulus ( cursor, event ) struct cursorRec *cursor; XEvent *event; /* i: XMotionEvent or XButtonEvent */ { struct cursorRec *parent; static int on_annulus(); static void size_annulus(), remove_annulus(); /* if there are two or more annuli */ if( (cursor->next_annulus != 0) && (cursor->next_annulus->next_annulus != 0) ) { /* size the cursor so we can compare its size with the annuli */ size_annulus(cursor, event); if( on_annulus(cursor, &parent) != ANN_BETWEEN ) /* remove if ON. INSIDE, or OUTSIDE */ remove_annulus(parent); } } /* * Subroutine: size_annulus * Purpose: Change size of cursor to intersect current mouse cursor * while keeping aspect ratio of cursor constant */ static void size_annulus ( cursor, event ) struct cursorRec *cursor; XEvent *event; /* i: XMotionEvent for location of mouse */ { double rayX, rayY; double axis_ratio; /* compute distance from center */ rayX = ((double)event->xmotion.x + 0.5) - cursor->win.X; rayY = ((double)event->xmotion.y + 0.5) - cursor->win.Y; if( (cursor->type == COP_Box) || (cursor->type == COP_Ellipse) ) { double temp; temp = (rayX * cursor->rot.cos) + (rayY * cursor->rot.sin); rayY = (rayY * cursor->rot.cos) - (rayX * cursor->rot.sin); rayX = temp; } if( rayX < 0.0 ) rayX = -rayX; if( rayY < 0.0 ) rayY = -rayY; axis_ratio = cursor->ctrl.axis_ratio; switch( cursor->type ) { case COP_Box: /* size on the side which will touch the mouse position */ if( (rayX < SMALL_NUMBER) || ((rayY / rayX) > axis_ratio) ) { cursor->win.rayY = rayY; cursor->win.rayX = rayY / axis_ratio; } else { cursor->win.rayX = rayX; cursor->win.rayY = rayX * axis_ratio; } break; case COP_Ellipse: /* this version of sizing tracks the ellipses edge */ rayX *= axis_ratio; cursor->win.rayY = sqrt((rayX * rayX) + (rayY * rayY)); cursor->win.rayX = cursor->win.rayY / axis_ratio; break; case COP_Circle: cursor->win.rayX = sqrt((rayX * rayX) + (rayY * rayY)); cursor->win.rayY = cursor->win.rayX; break; case COP_Polygon: case COP_Point: default: (void)fprintf(stderr, "cursor type error\n"); } } /* * Subroutine: remove_annulus * Purpose: Remove an annular ring from annulus linked list and screen */ static void remove_annulus ( parent ) struct cursorRec *parent; /* i: annulus just before one to be removed */ { int index; struct cursorRec *annulus; void draw_cursor(), free_cursor(); annulus = parent->next_annulus; index = annulus->index; /* remove annulus from linked list */ parent->next_annulus = annulus->next_annulus; /* erase the grabbed annulus */ draw_cursor(annulus, &color.gcset.undraw); /* free the grabbed annulus */ free_cursor(annulus); /* reset index of annuli which were moved down */ annulus = parent->next_annulus; while( annulus != 0 ) { annulus->index = index++; annulus = annulus->next_annulus; } } /* * Subroutine: grab_annulus * Purpose: Set up cursor to for a size annulus interaction * Called by: size_annuli() */ static void grab_annulus ( cursor ) struct cursorRec *cursor; { double inc; int code; struct cursorRec *parent, *annulus; static int on_annulus(); static void remove_annulus(); code = on_annulus(cursor, &parent); /* decide what to draw */ /* if grab, erase grabbed */ if( code == ANN_ON ) { remove_annulus(parent); } else if( code == ANN_INSIDE ) { /* if inside all annuli, use next inc inward */ if( ((parent = parent->next_annulus) != 0) && ((annulus = parent->next_annulus) != 0) && ((inc = annulus->win.rayX - parent->win.rayX) < parent->win.rayX) ) { cursor->win.rayX = parent->win.rayX - inc; cursor->win.rayY = cursor->win.rayX * cursor->ctrl.axis_ratio; } } else if( code == ANN_OUTSIDE ) { /* if outside all annuli, use smaller of next inc or mouse position */ if( ((annulus = parent->next_annulus) != 0) ) { double rayX; if( parent == cursor ) rayX = annulus->win.rayX + annulus->win.rayX; else rayX = annulus->win.rayX + annulus->win.rayX - parent->win.rayX; if( rayX < cursor->win.rayX ) { cursor->win.rayX = rayX; cursor->win.rayY = cursor->win.rayX * cursor->ctrl.axis_ratio; } } } } /* * Subroutine: on_annulus * Purpose: Compare size of cursor with annuli * Returns: Code describing relation to annuli * PostState: Sets pointer to nearest annulus inside of cursor */ static int on_annulus ( cursor, pointer ) struct cursorRec *cursor; struct cursorRec **pointer; { double grabmax, grabmin; struct cursorRec *last_ann, *annulus; int code; last_ann = cursor; /* is this the first annulus (probably an illegal state) */ if( cursor->next_annulus == 0 ) { code = ANN_OUTSIDE; } else { /* set the capture limits */ grabmax = cursor->win.rayX + GRAB_RANGE; grabmin = cursor->win.rayX - GRAB_RANGE; annulus = cursor->next_annulus; /* loop check for on or inside each successive ring */ code = 0; do { if( annulus->win.rayX > grabmax ) { /* add inside this annulus */ if( last_ann == cursor ) code = ANN_INSIDE; else code = ANN_BETWEEN; } else if( annulus->win.rayX > grabmin ) { /* grab this annulus */ code = ANN_ON; } else if( annulus->next_annulus == 0 ) { /* add outside all annuli */ code = ANN_OUTSIDE; } else { last_ann = annulus; annulus = annulus->next_annulus; } } while( code == 0 ); } *pointer = last_ann; return( code ); } saoimage-1.08/csrmove.c 666 21641 13 22424 4740774572 10212 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrmove.c (Cursor Move) * Purpose: Move, resize, or rotate the software cursor * Subroutine: move_cursor() returns: void * Subroutine: size_cursor() returns: void * Subroutine: angle_cursor() returns: void * Subroutine: start_size() returns: int * Called by: control_cursor() in CursorCtrl.c * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {1} MVH don't try to set angle if offset is 0,0 22 Feb 1990 * {2} MVH added arrow and text cursors 1 Jan 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* get trig functions and sqrt */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* SMALL_NUMBER, LARGE_NUMBER and more */ extern struct colorRec color; /* need to know color.gcset */ #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void move_cursor( struct cursorRec *cursor, XEvent *event, int erase); void size_cursor( struct cursorRec *cursor, XEvent *event, int erase); void angle_cursor( struct cursorRec *cursor, XEvent *event); int start_size( struct cursorRec *cursor, XEvent *event); #else void draw_cursor(), make_cursor(), angle_cursor(); void size_polygon(), set_polygon_hashmarks(); #endif /* Subroutine: move_cursor * Purpose: Change cursor location cursor */ #ifdef ANSIC void move_cursor ( struct cursorRec *cursor, XEvent *event, int erase ) #else void move_cursor ( cursor, event, erase ) struct cursorRec *cursor; XEvent *event; /* i: XMotionEvent for location of mouse */ int erase; /* i: erase-before-moving */ #endif { int dxm, dym; int cnt; register XPoint *point; register int i; if( erase ) /* Erase existing cursor */ draw_cursor(cursor, &color.gcset.undraw); /* How much did we move? */ dxm = event->xmotion.x - cursor->win.x; dym = event->xmotion.y - cursor->win.y; if( cursor->type == COP_Text ) { /* Move text drawing parameters */ move_textcursor(dxm, dym); } else { /* Move all points (or segments) */ if( (cnt = cursor->point_cnt) < 0 ) cnt *= -2; point = cursor->points; for( i=0; i < cnt; i++ ) { point[i].x += dxm; point[i].y += dym; } if( cursor->type == COP_Polygon ) set_polygon_hashmarks(cursor); } /* Update record of center */ cursor->win.x = event->xmotion.x; cursor->win.y = event->xmotion.y; cursor->win.X = (double)cursor->win.x + 0.5; cursor->win.Y = (double)cursor->win.y + 0.5; /* Draw it */ draw_cursor(cursor, &color.gcset.track); } /* Subroutine: size_cursor * Purpose: Change size of cursor to intersect current mouse cursor * on side or at corner depending on side argument */ #ifdef ANSIC void size_cursor ( struct cursorRec *cursor, XEvent *event, int erase ) #else void size_cursor ( cursor, event, erase ) struct cursorRec *cursor; XEvent *event; /* i: XMotionEvent for location of mouse */ int erase; /* i: erase-before-resizing */ #endif { double rayX, rayY; int side; if( cursor->type == COP_Text ) { return; } else if( cursor->type == COP_Arrow ) { angle_cursor(cursor, event); return; } /* Compute distance from center */ rayX = ((double)event->xmotion.x + 0.5) - cursor->win.X; rayY = ((double)event->xmotion.y + 0.5) - cursor->win.Y; side = cursor->ctrl.active_side; if( erase ) /* Erase existing cursor */ draw_cursor(cursor, &color.gcset.undraw); switch( cursor->type ) { case COP_Box: if( cursor->rot.angle == 0.0 ) { /* Change specified side to share X and/or Y coordinate with mouse */ if( (side == XYCORNER) || (side == XSIDE) ) cursor->win.rayX = fabs(rayX); if( (side == XYCORNER) || (side == YSIDE) ) cursor->win.rayY = fabs(rayY); break; } case COP_Ellipse: /* Change specified side to share X and/or Y coordinate with mouse */ /* Ellipse is drawn within rotated box defined by mouse */ if( (side == XYCORNER) || (side == XSIDE) ) cursor->win.rayX = fabs(rayX * cursor->rot.cos + rayY * cursor->rot.sin); if( (side == XYCORNER) || (side == YSIDE) ) cursor->win.rayY = fabs(rayY * cursor->rot.cos - rayX * cursor->rot.sin); break; case COP_Circle: /* Circle is drawn to place edge at mouse position */ cursor->win.rayX = sqrt((rayX * rayX) + (rayY * rayY)); cursor->win.rayY = cursor->win.rayX; break; case COP_Polygon: /* Cursor sizing is unique, involving specified point */ size_polygon(cursor, event->xmotion.x, event->xmotion.y); draw_cursor(cursor, &color.gcset.track); return; case COP_Point: default: (void)fprintf(stderr, "cursor type error\n"); return; } /* Make cursor with new size */ make_cursor(cursor); /* Draw it */ draw_cursor(cursor, &color.gcset.track); } /* Subroutine: angle_cursor * Purpose: Change angle of cursor to line up with current mouse cursor */ #ifdef ANSIC void angle_cursor ( struct cursorRec *cursor, XEvent *event ) #else void angle_cursor ( cursor, event ) struct cursorRec *cursor; XEvent *event; /* i: XMotionEvent for location of mouse */ #endif { double angle; /* Do nothing if click is on cursor center */ if( (event->xmotion.x == cursor->win.x) && (event->xmotion.y == cursor->win.y) ) return; /* Compute distance from center */ angle = atan2((cursor->win.X - ((double)(event->xmotion.x) + 0.5)), (((double)(event->xmotion.y) + 0.5) - cursor->win.Y)); /* Erase existing cursor */ draw_cursor(cursor, &color.gcset.undraw); switch( cursor->type ) { case COP_Box: case COP_Ellipse: case COP_Arrow: /* Update cursor record */ /* We reversed the sign of Y before, so ... */ cursor->rot.cos = cos(angle); cursor->rot.sin = sin(angle); /* The angle variable is for priinted feedback only, we make it go counter clockwise from x=0, 0 to 2pi, as per astronomical convention */ cursor->rot.angle = PI - angle; if( cursor->type == COP_Arrow ) { double rayX, rayY; rayX = ((double)event->xmotion.x + 0.5) - cursor->win.X; rayY = ((double)event->xmotion.y + 0.5) - cursor->win.Y; cursor->win.rayX = sqrt((rayX * rayX) + (rayY * rayY)); } break; default: (void)fprintf(stderr, "cursor type error\n"); return; } /* Set new drawing line coords */ make_cursor(cursor); /* Draw it */ draw_cursor(cursor, &color.gcset.track); } /* Subroutine: start_size * Purpose: Calculate restrictions applied to sizing restrictions can apply * where x and y dimensions are independent zones are defines * by 2 rays from center through rayX/2,rayY and rayX,rayY/2 * Returns: Code to indicate kind of sizing to do */ #ifdef ANSIC int start_size ( struct cursorRec *cursor, XEvent *event ) #else int start_size ( cursor, event ) struct cursorRec *cursor; XEvent *event; /* i: XButtonEvent for location of mouse */ #endif { double rayX, rayY; double mouse_ratio; int size_side; if( (cursor->type == COP_Box) || (cursor->type == COP_Ellipse) ) { /* Calculate relation between x and y (slope through corner) */ if( cursor->win.rayX < SMALL_NUMBER ) { if( cursor->win.rayY < SMALL_NUMBER ) { /* Object has no size, adjust both sides */ cursor->ctrl.axis_ratio = 1.0; return( XYCORNER ); } else cursor->ctrl.axis_ratio = LARGE_NUMBER; } else if( cursor->win.rayY < SMALL_NUMBER ) { cursor->ctrl.axis_ratio = SMALL_NUMBER; } else cursor->ctrl.axis_ratio = cursor->win.rayY / cursor->win.rayX; /* For annuli, we need the ratio, but not the restriction choice */ if( cursor->annuli ) return( XYCORNER ); /* Get positive rays in zero centered, orthogonal space */ rayX = ((double)event->xbutton.x + 0.5) - cursor->win.X; rayY = ((double)event->xbutton.y + 0.5) - cursor->win.Y; if( cursor->type != COP_Box ) { double temp; temp = (rayX * cursor->rot.cos) + (rayY * cursor->rot.sin); rayY = (rayY * cursor->rot.cos) - (rayX * cursor->rot.sin); rayX = temp; } if( rayX < 0.0 ) rayX = -rayX; if( rayY < 0.0 ) rayY = -rayY; /* Determine slope of ray to mouse */ if( rayX < SMALL_NUMBER ) { if( rayY < SMALL_NUMBER ) /* Mouse is on center, adjust both sides */ return( XYCORNER ); else mouse_ratio = LARGE_NUMBER; } else mouse_ratio = rayY / rayX; /* Determine which of the three restriction zones ray occupies */ if( (mouse_ratio / 4.0) > cursor->ctrl.axis_ratio ) { size_side = YSIDE; } else if( (mouse_ratio * 4.0) < cursor->ctrl.axis_ratio) { size_side = XSIDE; } else size_side = XYCORNER; return( size_side ); } else return( XYCORNER ); } saoimage-1.08/csrpoly1.c 666 21641 13 16400 4613614252 10270 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrpoly1.c (Cursor Polygon) * Purpose: Manipulate vertex lists for drawing polygon cursor * Subroutine: grab_polygon_vertex() returns: void * Subroutine: size_polygon() returns: void * Subroutine: request_delete_polygon_vertex() returns: int * Subroutine: size_polygon_from_file_coords() returns: void * Subroutine: set_polygon_file_coords() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/coord.h" /* coord structs */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* define SQR, etc */ extern struct colorRec color; /* need to know color.gcset */ #define GRAB_RANGE 8 /* * Subroutine: grab_polygon_vertex * Purpose: Identify or create polygon vertex for manipulation * Used when initiating a move or size action * Called by: control_cursor() in CursorCtrl.c */ void grab_polygon_vertex ( cursor, event, size ) struct cursorRec *cursor; XEvent *event; /* i: XbuttonEvent (ButtonPress) for x & y */ int size; /* i: distinguish size action from move */ { int x, y; /* l: coordinates of event */ int pt; /* l: index of polygon vertex */ int closest_polygon_line(); void draw_cursor(), add_polygon_vertex(); static int on_polygon_vertex(); /* erase existing cursor */ draw_cursor(cursor, &color.gcset.undraw); x = event->xbutton.x; y = event->xbutton.y; /* close enough to grab and existing vertex? */ pt = on_polygon_vertex(x, y, cursor->points, cursor->poly_cnt); if( pt >= 0 ) { cursor->ctrl.active_vertex = pt; } else { if( size ) { /* decide in which line to add new point */ cursor->ctrl.active_vertex = closest_polygon_line(x, y, cursor->points, cursor->poly_cnt); add_polygon_vertex(cursor, cursor->ctrl.active_vertex, x, y); } } if( size ) { /* size displaces one vertex */ cursor->poly[cursor->ctrl.active_vertex].unset = 1; } else { /* move displaces all vertices */ for( pt=0; ptpoly_cnt; pt++ ) cursor->poly[pt].unset = 1; } /* make cursor coordinates those of the active vertex */ cursor->win.x = cursor->points[cursor->ctrl.active_vertex].x; cursor->win.y = cursor->points[cursor->ctrl.active_vertex].y; cursor->win.X = (float)cursor->win.x + 0.5; cursor->win.Y = (float)cursor->win.y + 0.5; } /* * Subroutine: request_delete_polygon_vertex * Purpose: Remove a polygon vertex if mouse is close enough to grab it * Returns: 1 if image must be redrawn, else 0 * Called by: control_cursor() in CursorCtrl.c */ int request_delete_polygon_vertex ( cursor, event ) struct cursorRec *cursor; XEvent *event; /* i: XbuttonEvent (ButtonPress) for x & y */ { int i; void delete_polygon_vertex(), draw_cursor(); static int on_polygon_vertex(); i = on_polygon_vertex((int)event->xbutton.x, (int)event->xbutton.y, cursor->points, cursor->poly_cnt); if( i >= 0 ) { /* if changing cursor messes up image, request repainted image */ if( cursor->overwrites_image_data ) { delete_polygon_vertex(cursor, i); return( 1 ); } /* erase existing cursor */ draw_cursor(cursor, &color.gcset.undraw); delete_polygon_vertex(cursor, i); /* draw new cursor */ draw_cursor(cursor, cursor->draw); } return( 0 ); } /* * Subroutine: size_polygon * Purpose: Move the tracked vertex of the polygon * Called by: size_cursor() in CursorMove.c */ void size_polygon ( cursor, x, y ) struct cursorRec *cursor; int x, y; { void set_active_polygon_hashmark(); cursor->points[cursor->ctrl.active_vertex].x = x; cursor->points[cursor->ctrl.active_vertex].y = y; if( cursor->ctrl.active_vertex == 0 ) { /* if moving first point, don't forget that last point returns here */ cursor->points[cursor->poly_cnt].x = x; cursor->points[cursor->poly_cnt].y = y; } set_active_polygon_hashmark(cursor); } /* * Subroutine: set_polygon_file_coords * Purpose: Update all display coordinates and then the file coordinates * for vertices * Called by: control_cursor() in CursorCtrl.c */ void set_polygon_file_coords ( cursor, disptofile ) struct cursorRec *cursor; Transform *disptofile; { int i; PolyPoint *poly; void d_transform(); /* update the cursor file coords */ d_transform(disptofile, cursor->win.X, cursor->win.Y, &cursor->file.X, &cursor->file.Y); /* update poly vertex file coords */ for( i=0; ipoly_cnt; i++ ) { poly = &cursor->poly[i]; /* update any poly coords if they have changed since last noted */ if( poly->unset ) { poly->winX = 0.5 + (float)cursor->points[i].x; poly->winY = 0.5 + (float)cursor->points[i].y; poly->unset = 0; } d_transform(disptofile, (double)poly->winX, (double)poly->winY, &poly->fileX, &poly->fileY); } } /* * Subroutine: set_polygon_from_file_coords * Purpose: Update polygon coordinates from file coordinates for * current display window * Called by: adjust_cursor() in CursorCoord.c * Called by: start_polygon() in CursorPolyPt.c * Called by: make_polygon() in RegionMake.c */ void set_polygon_from_file_coords ( cursor, filetodisp, hash ) struct cursorRec *cursor; Transform *filetodisp; int hash; { int i; PolyPoint *poly; float X, Y; void d_transform(), set_polygon_hashmarks(); for( i=0; ipoly_cnt; i++ ) { poly = &cursor->poly[i]; d_transform(filetodisp, (double)poly->fileX, (double)poly->fileY, &poly->winX, &poly->winY); cursor->points[i].x = (short)poly->winX; cursor->points[i].y = (short)poly->winY; poly->unset = 0; } cursor->points[i].x = cursor->points[0].x; cursor->points[i].y = cursor->points[0].y; /* update vertex hash mark centers */ if( hash ) set_polygon_hashmarks(cursor); /* update the cursor coords as well */ d_transform(filetodisp, (double)cursor->file.X, (double)cursor->file.Y, &X, &Y); cursor->win.X = X; cursor->win.Y = Y; cursor->win.x = (int)X; cursor->win.y = (int)Y; } /* * Subroutine: on_polygon_vertex * Purpose: Test for being on a polygon point, return its index * Note: If more than one vertex are within range, choose closest * Note: (if ambiguity, favor point towards end - top down search) */ static int on_polygon_vertex ( x, y, vertex, cnt ) int x, y; XPoint *vertex; int cnt; { register int i; int match = -1; for( i=cnt-1; i>=0; i-- ) { if( (abs(x - vertex[i].x) < GRAB_RANGE) && (abs(y - vertex[i].y) < GRAB_RANGE) ) { if( match >= 0 ) { /* if not only point within range, compare */ if( (SQR(vertex[match].x - x) + SQR(vertex[match].y - y)) > (SQR(vertex[i].x - x) + SQR(vertex[i].y - y)) ) match = i; } else match = i; } } return( match ); } saoimage-1.08/csrpoly3.c 666 21641 13 13646 4613614234 10303 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrpoly3.c (Cursor Polygon Line) * Purpose: Manipulate vertex lists for drawing polygon cursor * Subroutine: closest_polygon_line() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 June 1989 * {n} -- -- */ #include /* define sqrt() */ #include /* X window stuff */ #define ABS(a) ((a) < 0 ? (-(a)) : (a)) #define SQR(a) ((a) * (a)) /* * Subroutine: closest_polygon_line * Purpose: Test for the closest polygon segment * Note: in case of tie chose segment forming smallest angle with * vector from pointer to closest point on segment * Method: top down search */ int closest_polygon_line ( x, y, vertex, cnt ) int x, y; XPoint *vertex; int cnt; { double min_distance, min_cosine; double new_distance, new_cosine; int min_endpoint, endpoint; int min_j; int i, j; static double distance_from_segment(), cos_to_segment(); min_distance = 1.0E30; min_j = 0; for( j=cnt, i=j-1; i>=0; i--, j-- ) { new_distance = distance_from_segment(x, y, vertex[i].x, vertex[i].y, vertex[j].x, vertex[j].y, &endpoint); if( new_distance <= min_distance ) { if( new_distance < min_distance ) { min_j = j; min_distance = new_distance; min_cosine = -1.0; min_endpoint = endpoint; } else { if( min_cosine < 0.0 ) min_cosine = cos_to_segment(x, y, vertex[min_j-1].x, vertex[min_j-1].y, vertex[min_j].x, vertex[min_j].y, min_endpoint); new_cosine = cos_to_segment(x, y, vertex[i].x, vertex[i].y, vertex[j].x, vertex[j].y, endpoint); if( new_cosine < min_cosine ) { min_j = j; min_cosine = new_cosine; min_endpoint = endpoint; } } } } return( min_j ); } /* * Subroutine: distance_from_segment * Returns: square of shortest distance from reference to line segment * Method: Determine closest point on line, if it is in segment, return * its distance, else return distance to closest endpoint * Method: Equation of the line of the segement: ax + b = y * a = (y2-y1)/(x2-x1), b = y1 - (a * x1) * Perpendicular line passing through x, y: aax + bb = y * aa = -1/a, bb = y_ref - (aa * x_ref) * Intersection of two lines: x_norm, y_norm * x_norm = (b - bb) / (a - aa), y_norm = (a * x_norm) + b */ static double distance_from_segment ( x_ref, y_ref, x1, y1, x2, y2, endpoint ) int x_ref, y_ref; /* i: coordinates of reference point */ int x1, y1, x2, y2; /* i: coordinates of segment endpoints */ int *endpoint; /* o: closest pt end1=1 end2=2 between=0 */ { double x_norm, y_norm; int orthogonal; /* determine closest point of line to reference point */ if( x2 == x1 ) { /* line runs vertical or not at all */ x_norm = (double)x1; y_norm = (double)y_ref; orthogonal = 1; } else if( y2 == y1 ) { /* line runs horizontal */ x_norm = (double)x_ref; y_norm = (double)y1; orthogonal = -1; } else { register double a, b; register double aa, bb; orthogonal = 0; a = (double)(y2 - y1) / (double)(x2 - x1); aa = -1.0 / a; b = (double)y1 - (a * (double)x1); bb = (double)y_ref - (aa * (double)x_ref); x_norm = (b - bb) / (aa - a); y_norm = (a * x_norm) + b; } *endpoint = 3; /* determine if point is in segment */ if( orthogonal == 1 ) { /* vertical line, better to check y coords (all x the same) */ if( y1 > y2 ) { if( (y_norm <= (double)y1) && (y_norm >= (double)y2) ) *endpoint = 0; } else { if( (y_norm >= (double)y1) && (y_norm <= (double)y2) ) *endpoint = 0; } } else { /* determine if point is in segment */ if( x1 > x2 ) { if( (x_norm <= (double)x1) && (x_norm >= (double)x2) ) *endpoint = 0; } else { if( (x_norm >= (double)x1) && (x_norm <= (double)x2) ) *endpoint = 0; } } if( *endpoint == 0 ) { return( SQR((double)x_ref - x_norm) + SQR((double)y_ref - y_norm) ); } else { int d1, d2; d1 = SQR(x_ref - x1) + SQR(y_ref - y1); d2 = SQR(x_ref - x2) + SQR(y_ref - y2); if( d1 < d2 ) { *endpoint = 1; return( (double)d1 ); } else { *endpoint = 2; return( (double)d2 ); } } } /* * Subroutine: cos_to_segment * Returns: cosine squared of angle between vector from reference to * closest point on line and vector along line away from reference * Method: cos = vector scalar (cross) product / product of lengths * Note: Cosine-squared uses one multiply where cosine needs 2 sqrts */ static double cos_to_segment ( x_ref, y_ref, x1, y1, x2, y2, endpoint ) int x_ref, y_ref; /* i: coordinates of reference point */ int x1, y1, x2, y2; /* i: coordinates of segment endpoints */ int endpoint; /* i: closest pt end1=-1 end2=1 between=0 */ { int segment_i, segment_j; int ray_i, ray_j; int segment_len; if( endpoint == 0 ) /* closest point was on segment, angle is 90 deg, cos = 0 */ return( 0.0 ); segment_i = x2 - x1; segment_j = y2 - y1; if( (segment_len = SQR(segment_i) + SQR(segment_j)) == 0 ) /* if segment has no length, make it a sure loser for insertion */ return( 1.1 ); if( endpoint == 1 ) { ray_i = x1 - x_ref; ray_j = y1 - y_ref; } else { /* reverse sense since segment is also going other way */ ray_i = x_ref - x2; ray_j = y_ref - y2; } /* return( ((double)SQR((segment_i * ray_i) + (segment_j * ray_j)) / (double)(segment_len * (SQR(ray_i) + SQR(ray_j))))) ); */ segment_i *= ray_i; segment_j *= ray_j; segment_i += segment_j; return( (double)(segment_i * segment_i) / (double)(segment_len * (SQR(ray_i) + SQR(ray_j))) ); } saoimage-1.08/csrpoly2.c 666 21641 13 16214 4613614107 10273 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrpoly2.c (Cursor Polygon Points) * Purpose: Maintain the vertex lists for drawing a polygon cursor * Subroutine: start_polygon() returns: void * Subroutine: collapse_polygon() returns: void * Subroutine: add_polygon_vertex() returns: void * Subroutine: delete_polygon_vertex() returns: void * Subroutine: set_polygon_hashmarks() returns: void * Subroutine: set_active_polygon_hashmark() returns: void * Subroutine: copy_polygon_region_to_cursor() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/coord.h" /* coord structs */ #include "hfiles/cursor.h" /* define cursor parameter structures */ /* define parameters for hash marks (size, number of vertices available */ #define HASH_RAY 2 #define HASH_SIDE 4 static PolyPoint *poly; static XRectangle *rectangles; static polysz = 0; /* * Subroutine: collapse_polygon * Purpose: Reset polygon to the last manipulated point */ void collapse_polygon ( cursor ) struct cursorRec *cursor; { int active; active = cursor->ctrl.active_vertex; bcopy((char *)&cursor->poly[active], (char *)cursor->poly, sizeof(PolyPoint)); cursor->win.X = cursor->poly[0].winX; cursor->win.Y = cursor->poly[0].winY; cursor->win.x = (int)cursor->win.X; cursor->win.x = (int)cursor->win.X; cursor->file.X = cursor->poly[0].fileX; cursor->file.Y = cursor->poly[0].fileY; cursor->points[0].x = cursor->points[active].x; cursor->points[0].y = cursor->points[active].y; cursor->points[1].x = cursor->points[0].x; cursor->points[1].y = cursor->points[0].y; cursor->rectangles[0].x = cursor->rectangles[active].x; cursor->rectangles[0].y = cursor->rectangles[active].y; /* set the counters */ cursor->point_cnt = 2; cursor->poly_cnt = 1; cursor->rectangle_cnt = 1; cursor->ctrl.active_vertex = 0; } /* * Subroutine: start_polygon * Purpose: Install polygon drawing stuff for the active cursor */ void start_polygon ( cursor, coord ) struct cursorRec *cursor; struct coordRec *coord; { void set_polygon_from_file_coords(); static void init_polygon(); if( polysz == 0 ) init_polygon(); cursor->poly_cnt = 1; cursor->rectangle_cnt = 1; cursor->point_cnt = 2; /* install the local fields */ cursor->poly = poly; cursor->rectangles = rectangles; /* update to cursor coords */ poly[0].fileX = cursor->file.X; poly[0].fileY = cursor->file.Y; set_polygon_from_file_coords (cursor, &coord->filetodisp, 1); cursor->ctrl.active_vertex = 0; } static void init_polygon ( ) { int i; char *calloc_errchk(); polysz = CURSOR_MAX; poly = (PolyPoint *) calloc_errchk(polysz, sizeof(PolyPoint), "poloygon records"); rectangles = (XRectangle *) calloc_errchk(polysz, sizeof(XRectangle), "polygon hash marks"); for( i=0; ipoly_cnt + 1) >= polysz ) { (void)fprintf(stderr, "WARNING: vertex buffer full\n"); return; } /* shift the succeeding points up */ points = cursor->points; i = cursor->poly_cnt; /* line list has first point repeated at top */ points[i+1].x = points[i].x; points[i+1].y = points[i].y; for( j=i-1; j>=index; j-- ) { points[i].x = points[j].x; points[i].y = points[j].y; rectangles[i].x = rectangles[j].x; rectangles[i].y = rectangles[j].y; if( !(poly[i].unset = poly[j].unset) ) { poly[i].winX = poly[j].winX; poly[i].winY = poly[j].winY; poly[i].fileX = poly[j].fileX; poly[i].fileY = poly[j].fileY; } i = j; } /* install new values (we never add base point) */ points[index].x = x; points[index].y = y; rectangles[index].x = x - HASH_RAY; rectangles[index].y = y - HASH_RAY; poly[index].unset = 1; /* updates the counts */ cursor->point_cnt++; cursor->poly_cnt++; cursor->rectangle_cnt++; cursor->ctrl.active_vertex = index; } /* * Subroutine: delete_polygon_vertex */ void delete_polygon_vertex ( cursor, index ) struct cursorRec *cursor; int index; { register XPoint *points; register int i, j; if( cursor->poly_cnt <= 1 ) return; points = cursor->points; i = index; for( j=i+1; jpoly_cnt; j++ ) { points[i].x = points[j].x; points[i].y = points[j].y; rectangles[i].x = rectangles[j].x; rectangles[i].y = rectangles[j].y; if( !(poly[i].unset = poly[j].unset) ) { poly[i].winX = poly[j].winX; poly[i].winY = poly[j].winY; poly[i].fileX = poly[j].fileX; poly[i].fileY = poly[j].fileY; } i = j; } /* the first point is repeated at top for drawing */ points[i].x = points->x; points[i].y = points->y; /* updates the counts */ cursor->point_cnt--; cursor->poly_cnt--; cursor->rectangle_cnt--; /* active stays with its vertex, or if deleted, the preivous vertex */ if( cursor->ctrl.active_vertex >= index ) { if( --(cursor->ctrl.active_vertex) < 0 ) cursor->ctrl.active_vertex = cursor->poly_cnt - 1; } } /* * Subroutine: set_polygon_hashmarks */ void set_polygon_hashmarks ( cursor ) struct cursorRec *cursor; { XPoint *points; int i; points = cursor->points; for( i=0; ipoly_cnt; i++ ) { rectangles[i].x = points[i].x - HASH_RAY; rectangles[i].y = points[i].y - HASH_RAY; } } /* * Subroutine: set_active_polygon_hashmark */ void set_active_polygon_hashmark ( cursor ) struct cursorRec *cursor; { int active; active = cursor->ctrl.active_vertex; rectangles[active].x = cursor->points[active].x - HASH_RAY; rectangles[active].y = cursor->points[active].y - HASH_RAY; } /* * Subroutine: copy_polygon_region_to_cursor * Purpose: Install stuff to making a polygon copy the active cursor * Note: Must be called by copy_cursor() */ void copy_polygon_region_to_cursor ( region, cursor ) struct cursorRec *region; struct cursorRec *cursor; { XPoint *points; int i; points = cursor->points; cursor->rectangles = rectangles; cursor->poly = poly; cursor->rectangle_cnt = cursor->poly_cnt; bcopy((char *)region->points, (char *)points, region->point_cnt * sizeof(XPoint)); bcopy((char *)region->poly, (char *)poly, region->poly_cnt * sizeof(PolyPoint)); for( i=0; ipoly_cnt; i++ ) { rectangles[i].x = points[i].x - HASH_RAY; rectangles[i].y = points[i].y - HASH_RAY; } } saoimage-1.08/csrsave.c 666 21641 13 24105 4741004571 10162 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrsave.c (Cursor Save) * Purpose: Make new copies of the cursor or replace the cursor by copying * Subroutine: get_new_cursor() returns: struct cursorRec * * Subroutine: free_cursor() returns: void * Subroutine: copy_cursor() returns: struct cursorRec * * Subroutine: save_cursor_as_region() returns: void * Subroutine: copy_region_to_cursor() returns: void * Subroutine: match_region() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {1} MVH support for Arrow cursor 1 Jan 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/cursor.h" /* define cursor parameter structures */ extern struct colorRec color; /* need to know color.gcset */ #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ struct cursorRec *get_new_cursor( int point_cnt, int poly_cnt); void free_cursor( struct cursorRec *cursor); struct cursorRec *copy_cursor( struct cursorRec *cursor); void save_cursor_as_region( struct cursorRec *cursor, int exclude); void copy_region_to_cursor( struct cursorRec *cursor, struct cursorRec *region); int match_region( struct cursorRec *cursor, struct cursorRec *region); static struct cursorRec *copy_annulus( struct cursorRec *annulus, int exclude); #else char *calloc_errchk(); struct cursorRec *get_new_cursor(); double cursor_area(); void copy_polygon_region_to_cursor(); static struct cursorRec *copy_annulus(); struct cursorRec *copy_cursor(); #endif /* Subroutine: get_new_cursor() * Returns: Returns space for cursor including points * Note: Space is alloc'd as single chunk and can be freed en mass */ #ifdef ANSIC struct cursorRec *get_new_cursor ( int point_cnt, int poly_cnt ) #else struct cursorRec *get_new_cursor ( point_cnt, poly_cnt ) int point_cnt; /* i: number of drawing points needed */ int poly_cnt; /* i: number of polygon vertex records needed */ #endif { struct cursorRec *cursor; int size; /* Convert segment count to point count (for Arrow Cursor) */ if( point_cnt < 0 ) point_cnt *= -2; /* Don't take any chances on alignment, use multiples of 4 */ if( (size = point_cnt % 4) ) point_cnt += 4 - size; size = sizeof(struct cursorRec) + (point_cnt * sizeof(XPoint)) + (poly_cnt * sizeof(PolyPoint)); cursor = (struct cursorRec *)calloc_errchk(1, (unsigned int)size, "cursor"); if( point_cnt ) cursor->points = (XPoint *)&(cursor[1]); if( poly_cnt ) cursor->poly = (PolyPoint *)&(cursor->points[point_cnt]); /* Set the default angle at 0.0 degrees, cos must be non-zero */ cursor->rot.cos = -1.0; return( cursor ); } /* Subroutine: free_cursor * Purpose: Free alloc'd cursor space */ #ifdef ANSIC void free_cursor ( struct cursorRec *cursor ) #else void free_cursor ( cursor ) struct cursorRec *cursor; #endif { free((char *)cursor); } /* Subroutine: copy_cursor * Returns: A copy of the cursor in a newly allocated cursor record */ #ifdef ANSIC struct cursorRec *copy_cursor ( struct cursorRec *cursor ) #else struct cursorRec *copy_cursor ( cursor ) struct cursorRec *cursor; #endif { struct cursorRec *copy; XPoint *points; PolyPoint *poly; /* Get a new cursor space */ copy = get_new_cursor(cursor->point_cnt, cursor->poly_cnt); points = copy->points; poly = copy->poly; /* Copy the contents of cursor to copy */ #ifdef ANSIC (void)memcpy((void *)copy, (void *)cursor, sizeof(struct cursorRec)); copy->points = points; copy->poly = poly; if( cursor->point_cnt > 0 ) (void)memcpy((void *)points, (void *)cursor->points, cursor->point_cnt * sizeof(XPoint)); else if( cursor->point_cnt < 0 ) (void)memcpy((void *)points, (void *)cursor->points, (size_t)(cursor->point_cnt * (-sizeof(XSegment)))); if( cursor->poly_cnt ) (void)memcpy((void *)poly, (void *)cursor->poly, cursor->poly_cnt * sizeof(PolyPoint)); #else bcopy((char *)cursor, (char *)copy, sizeof(struct cursorRec)); copy->points = points; copy->poly = poly; if( cursor->point_cnt > 0 ) bcopy((char *)cursor->points, (char *)points, cursor->point_cnt * sizeof(XPoint)); else if( cursor->point_cnt < 0 ) bcopy((char *)cursor->points, (char *)points, -cursor->point_cnt * sizeof(XSegment)); if( cursor->poly_cnt ) bcopy((char *)cursor->poly, (char *)poly, cursor->poly_cnt * sizeof(PolyPoint)); #endif /* Rectangles are not included */ copy->rectangles = NULL; copy->rectangle_cnt = 0; /* Install cursor's area */ copy->file.area = cursor_area(cursor, 0); return( copy ); } /* Subroutine: save_cursor_as_region * Purpose: Copy the cursor onto a region of type include or exclude */ #ifdef ANSIC void save_cursor_as_region ( struct cursorRec *cursor, int exclude ) #else void save_cursor_as_region ( cursor, exclude ) struct cursorRec *cursor; int exclude; /* i: include or exclude */ #endif { struct cursorRec *region; /* Create and fill new cursor structure */ region = copy_cursor(cursor); /* set up regions drawing characteristics */ if( (region->exclude_region = exclude) ) region->draw = &color.gcset.excl; else region->draw = &color.gcset.incl; region->overwrites_image_data = 1; /* Attach to cursor link list */ if( cursor->next_region == 0 ) region->index = 1; else region->index = cursor->next_region->index + 1; region->next_region = cursor->next_region; cursor->next_region = region; /* Install annuli if any */ if( cursor->annuli && (cursor->next_annulus != NULL) ) { region->next_annulus = copy_annulus(cursor->next_annulus, exclude); } else region->next_annulus = NULL; } /* Subroutine: copy_annulus * Purpose: Reconstruct annulus structure for copy * Returns: Complete copy of the annulus chain given * Method: Given an annulus chain, copy this link, add a copy of the * rest of the chain (by recursion) and return the copy */ #ifdef ANSIC static struct cursorRec *copy_annulus ( struct cursorRec *annulus, int exclude ) #else static struct cursorRec *copy_annulus ( annulus, exclude ) struct cursorRec *annulus; int exclude; #endif { struct cursorRec *region; region = copy_cursor(annulus); region->exclude_region = exclude; if( annulus->next_annulus != NULL ) region->next_annulus = copy_annulus(annulus->next_annulus, exclude); return( region ); } /* Subroutine: copy_region_to_cursor * Purpose: Copy region onto cursor */ #ifdef ANSIC void copy_region_to_cursor ( struct cursorRec *cursor, struct cursorRec *region ) #else void copy_region_to_cursor ( cursor, region ) struct cursorRec *cursor; struct cursorRec *region; #endif { int overwrites; /* cursor overwrites image data */ GCspec *draw; XPoint *points; struct cursorRec *next_region; /* Save things which belong to the cursor and not a region */ overwrites = cursor->overwrites_image_data; draw = cursor->draw; next_region = cursor->next_region; points = cursor->points; /* Copy the contents of region to cursor */ #ifdef ANSIC (void)memcpy((void *)cursor, (void *)region, sizeof(struct cursorRec)); if( region->point_cnt > 0 ) (void)memcpy((void *)points, (void *)region_points, (size_t)region->point_cnt * sizeof(XPoint)); else if( region->point_cnt < 0 ) (void)memcpy((void *)points, (void *)region_points, (size_t)(region->point_cnt * (-sizeof(XSegment))); #else bcopy((char *)region, (char *)cursor, sizeof(struct cursorRec)); if( region->point_cnt > 0 ) bcopy((char *)region->points, (char *)points, region->point_cnt * sizeof(XPoint)); else if( region->point_cnt < 0 ) bcopy((char *)region->points, (char *)points, -region->point_cnt * sizeof(XSegment)); #endif if( region->annuli && (region->next_annulus != NULL) ) cursor->next_annulus = copy_annulus (region->next_annulus, 1); /* Restore things which were uniquely the cursor's */ cursor->overwrites_image_data = overwrites; cursor->draw = draw; cursor->next_region = next_region; cursor->points = points; /* Set up drawing for polygon or for other cursor types */ if( cursor->type == COP_Polygon ) { copy_polygon_region_to_cursor (region, cursor); } } /* Subroutine: match_region * Purpose: Compare a region with a cursor * Returns: 0 if perfect match, else 1 */ #ifdef ANSIC int match_region ( struct cursorRec *cursor, struct cursorRec *region ) #else int match_region ( cursor, region ) struct cursorRec *cursor, *region; #endif { int i; if( (region != NULL) && (cursor != NULL) && (region->type == cursor->type) ) { if( region->type == COP_Polygon ) { if( region->poly_cnt == cursor->poly_cnt ) { for( i=0; ipoly_cnt; i++ ) { if( (region->points[i].x != cursor->points[i].x) || (region->points[i].y != cursor->points[i].y) ) return( 0 ); } return( 1 ); } } else if( region->annuli ) { cursor = cursor->next_annulus; region = region->next_annulus; while( (cursor != NULL) && (region != NULL ) ) { if( (region->win.X != cursor->win.X) || (region->win.Y != cursor->win.Y) || (region->win.rayX != cursor->win.rayX) || (region->win.rayY != cursor->win.rayY) ) return( 0 ); region = region->next_annulus; cursor = cursor->next_annulus; } if( region == cursor ) return( 1 ); } else { if( (region->win.X == cursor->win.X) && (region->win.Y == cursor->win.Y) && (region->win.rayX == cursor->win.rayX) && (region->win.rayY == cursor->win.rayY) ) return( 1 ); } } return( 0 ); } saoimage-1.08/csrslct.c 666 21641 13 14662 4741516003 10176 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrslct.c (Cursor Select) * Purpose: Initialize and change states of the software cursor * Subroutine: select_cursor() returns: void * Subroutine: init_software_cursors() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {1} MVH added arrow and text cursors 1 Jan 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* Define codes */ #include "hfiles/struct.h" /* Declare structure types */ #include "hfiles/extern.h" /* Extern main parameter structures */ #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void select_cursor(); void init_software_cursors(); #else int init_vertices(); void make_cursor(), disp_dispbox(), erase_cursor(), enable_ortho_button(); void set_submenu_toggle(), delete_annuli(), enable_annuli_button(); void collapse_polygon(), start_polygon(), make_new_annulus(), disp_cursor(); void clear_textcursor(), new_textcursor(); char *calloc_errchk(); void note_current_disp_transform(), d_transform(); #endif /* Subroutine: select_cursor * Purpose: Respond to command input from user interface */ void select_cursor () { /* If main menu selection, set mode(s) and return */ if( control.response[1] == 0 ) { control.mode = COP; if( cursor.type == COP_Text ) grab_keys_for_textcursor(1); return; } if( (control.response[1] & COP_Shape) != 0 ) { /* Erase the current cursor and set the new one */ if( cursor.annuli ) { /* Annuli cannot be an initial condition (erases if in overlay) */ delete_annuli(&cursor, 1); cursor.annuli = 0; set_submenu_toggle(COP, COP_Annuli, 0); } if( cursor.overwrites_image_data ) { int point_cnt = cursor.point_cnt; cursor.point_cnt = 0; /* Polygon is either collapsed or eliminated, so no need to save cnt */ cursor.rectangle_cnt = 0; /* Redraw image and any saved cursors */ disp_dispbox(); cursor.point_cnt = point_cnt; } else { /* Just erase the cursor */ erase_cursor(&cursor); } /* If changing cursor type */ if( cursor.type != control.response[1] ) { if( cursor.type == COP_Polygon ) { /* Suppress hash-marks and vertex list */ cursor.rectangle_cnt = 0; cursor.poly_cnt = 0; } else if( cursor.type == COP_Text ) { clear_textcursor(); } cursor.type = control.response[1]; /* Set vertex coordinates and any other environment stuff */ if( (cursor.type == COP_Box) || (cursor.type == COP_Ellipse) ) { enable_annuli_button(1); enable_ortho_button(1); make_cursor(&cursor); } else if( cursor.type == COP_Circle ) { enable_annuli_button(1); enable_ortho_button(0); make_cursor(&cursor); } else { enable_annuli_button(0); enable_ortho_button(0); if( cursor.type == COP_Polygon ) { /* Prepare special polygon facilities */ start_polygon(&cursor, &coord); } else if( cursor.type == COP_Text ) { new_textcursor(); } else { /* This leaves Point and Arrow */ make_cursor(&cursor); } } } else if( cursor.type == COP_Polygon ) { /* Reclicking on polygon resets all its points */ collapse_polygon(&cursor); } } else if( control.response[1] == COP_Annuli ) { if( cursor.annuli ) { /* If turning off annuli */ cursor.annuli = 0; if( cursor.next_annulus != 0 ) { delete_annuli(&cursor, 1); if( cursor.overwrites_image_data ) /* Redraw image and cursor */ disp_dispbox(); } if( cursor.type != COP_Circle ) enable_ortho_button(1); } else { /* If turning on annuli */ if( (cursor.type == COP_Point) || (cursor.type == COP_Polygon) ) { /* This should never happen */ set_submenu_toggle(COP, COP_Annuli, 0); } else { cursor.annuli = 1; /* Current cursor becomes first annulus */ make_new_annulus(&cursor); } enable_ortho_button(0); } } else if( control.response[1] == COP_Orthogonal ) { if( cursor.annuli ) return; if( cursor.overwrites_image_data ) { int point_cnt = cursor.point_cnt; cursor.point_cnt = 0; /* Polygon is either collapsed or eliminated, so no need to save cnt */ cursor.rectangle_cnt = 0; /* Redraw image and any saved cursors */ disp_dispbox(); cursor.point_cnt = point_cnt; } else { /* Just erase the cursor */ erase_cursor(&cursor); } cursor.rot.angle = 0.0; cursor.rot.cos = -1.0; cursor.rot.sin = 0.0; if( (cursor.type == COP_Ellipse) || (cursor.type == COP_Box) ) make_cursor(&cursor); else return; } /* Draw the cursor */ disp_cursor(&cursor); /* If cursor isn't the mode, make it the mode */ control.mode = COP; } /* Subroutine: init_software_cursors * Purpose: Initialize the cursor parameters * Prestate: Color must be determined and dispbox must be created and sized */ void init_software_cursors () { cursor.points = (XPoint *)calloc_errchk(CURSOR_MAX + 1, sizeof(XPoint), "Cursor"); /* Record the current display parameters, to later recognize a change */ note_current_disp_transform(&coord.filetodisp); /* If cursor position not set, center it on image */ if( (cursor.file.X < 0.0) || (cursor.file.Y < 0.0) ) d_transform(&coord.imgtofile, (double)coord.img.cenX, (double)coord.img.cenY, &cursor.file.X, &cursor.file.Y); if( (cursor.type == COP_Polygon) || (cursor.type == COP_Point) ) { cursor.annuli = 0; if( cursor.type == COP_Polygon ) /* Prepare special polygon facilities */ start_polygon(&cursor, &coord); } else { make_cursor (&cursor); if( cursor.annuli ) /* Current cursor becomes first annulus */ make_new_annulus(&cursor); } /* Set cursor drawing color params */ cursor.win.display = dispbox.display; cursor.win.ID = dispbox.ID; cursor.overwrites_image_data = !color.cursor_overlay; cursor.draw = &color.gcset.draw; } saoimage-1.08/csrshape.c 666 21641 13 24312 4740772167 10340 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csrshape.c (Cursor Shape) * Purpose: Make basic software cursors * Subroutine: make_cursor() returns: void * Subroutine: change_circle_granularity() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {1} MVH added arrow cursor 1 Jan 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* Cursor colors needed by Cursor.h */ #include "hfiles/constant.h" /* Define codes */ #include "hfiles/cursor.h" /* Define cursor parameter structures */ #include "defs/circle.def" /* Define Unit_circles */ #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void make_cursor( struct cursorRec *cursor); static int make_arrow( double xtip, double ytip, double xray, double rotsin, double rotcos, XPoint *points); static int make_boxcur( double xcen, double ycen, double xray, double yray, double rotsin, double rotcos, XPoint *points); static int make_circur( double xcen, double ycen, double radius, XPoint *points ) static int make_ellipse( double xcen, double ycen, double xradius, double yradius, double rotsin, double rotcos, XPoint *points); #else static int make_arrow(), make_boxcur(), make_circur(), make_ellipse(); #endif /* Declare and initialize drawing tools */ double *UnitCircleX = Circle48X; double *UnitCircleY = Circle48Y; double *UnitEllipseX = Circle64X; double *UnitEllipseY = Circle64Y; int CircleCnt = 48; int EllipseCnt = 64; /* Specify size and shape of arrow head (in pixels, regardless of zoom) */ int ArrowHeadLength = 8; int ArrowHeadWidth = 5; /* Subroutine make_cursor * Purpose: Remake the current cursor polygon list */ #ifdef ANSIC void make_cursor ( struct cursorRec *cursor ) #else void make_cursor ( cursor ) struct cursorRec *cursor; #endif { switch( cursor->type ) { case COP_Circle: cursor->point_cnt = make_circur(cursor->win.X, cursor->win.Y, cursor->win.rayX, cursor->points); break; case COP_Ellipse: cursor->point_cnt = make_ellipse(cursor->win.X, cursor->win.Y, cursor->win.rayX, cursor->win.rayY, cursor->rot.sin, cursor->rot.cos, cursor->points); break; case COP_Box: cursor->point_cnt = make_boxcur(cursor->win.X, cursor->win.Y, cursor->win.rayX, cursor->win.rayY, cursor->rot.sin, cursor->rot.cos, cursor->points); break; case COP_Arrow: cursor->point_cnt = make_arrow(cursor->win.X, cursor->win.Y, cursor->win.rayX, cursor->rot.sin, cursor->rot.cos, cursor->points); break; case COP_Point: cursor->point_cnt = 0; case COP_Polygon: default: break; } } /* Subroutine: make_arrow * Purpose: Given tip and tail, make line including arrow head * Returns: Number of points needed to draw arrow */ #ifdef ANSIC static int make_arrow ( double xtip, double ytip, double xray, double rotsin, double rotcos, XPoint *points ) #else static int make_arrow ( xtip, ytip, xray, rotsin, rotcos, points ) double xtip, ytip; /* Coords of tip */ double xray; /* Length of shaft */ double rotsin, rotcos; /* Trig values for angle */ XPoint *points; #endif { double head_xcos, head_ycos, head_xsin, head_ysin; /* Compute offset_from_tip partials to draw arrow head */ head_xcos = ArrowHeadWidth * rotcos; head_ycos = ArrowHeadLength * rotcos; head_xsin = ArrowHeadWidth * rotsin; head_ysin = ArrowHeadLength * rotsin; /* Line drawn as 3 segments, all starting at tip */ /* Statements with like factors grouped to help compiler optimization */ points[5].x = xtip - (xray * rotsin); points[5].y = ytip + (xray * rotcos); points[1].x = xtip + (head_xcos - head_ysin); points[1].y = ytip + (head_xsin + head_ycos); points[3].x = xtip - (head_xcos + head_ysin); points[3].y = ytip - (head_xsin - head_ycos); points[0].x = xtip; points[0].y = ytip; points[2].x = xtip; points[2].y = ytip; points[4].x = xtip; points[4].y = ytip; return( -3 ); } /* Subroutine: make_boxcur * Purpose: Set the corner coordinates for the rotating box cursor * Returns: Number of points needed to draw box */ #ifdef ANSIC static int make_boxcur ( double xcen, double ycen, double xray, double yray, double rotsin, double rotcos, XPoint *points ) #else static int make_boxcur ( xcen, ycen, xray, yray, rotsin, rotcos, points ) double xcen, ycen; double xray, yray; double rotsin, rotcos; XPoint *points; #endif { double x1, y1, x2, y2; /* Calculate offset of two corners on the right */ x1 = (xray * rotcos) - (yray * rotsin); y1 = (xray * rotsin) + (yray * rotcos); x2 = (xray * rotcos) + (yray * rotsin); y2 = (xray * rotsin) - (yray * rotcos); /* Define box corners */ points[0].x = xcen + x1; points[0].y = ycen + y1; points[1].x = xcen + x2; points[1].y = ycen + y2; points[2].x = xcen - x1; points[2].y = ycen - y1; points[3].x = xcen - x2; points[3].y = ycen - y2; points[4].x = xcen + x1; points[4].y = ycen + y1; return( 5 ); } /* Subroutine: make_circur * Purpose: Create a new circle cursor with given center and radius * Returns: Number of points needed to draw circle */ #ifdef ANSIC static int make_circur ( double xcen, double ycen, double radius, XPoint *points ) #else static int make_circur ( xcen, ycen, radius, points ) double xcen, ycen, radius; XPoint *points; #endif { int loop; register int i, xoff, yoff; register int a1, a2, a3, b1, b2, b3, b4; /* Set up array indexes for 8 fold symetry */ /* 8 indexes radiating both ways from each of the four axes */ a1 = CircleCnt / 4; /* (1 * cnt) / 4 */ a2 = a1 + a1; /* (2 * cnt) / 4 */ a3 = a2 + a1; /* (3 * cnt) / 4 */ b1 = a1 - 1; b2 = a2 - 1; b3 = a3 - 1; b4 = a3 + a1 - 1; /* (4 * cnt) / 4 - 1 */ /* Calculate points on circumference for 1/8th of circle */ /* Apply to each of 8 pairs */ loop = CircleCnt / 8; for( i=0; i <= loop; i++ ) { xoff = UnitCircleX[i] * radius; yoff = UnitCircleY[i] * radius; points[i].x = xcen + xoff; points[i].y = ycen + yoff; points[a1+i].x = xcen + yoff; points[a1+i].y = ycen - xoff; points[a2+i].x = xcen - xoff; points[a2+i].y = ycen - yoff; points[a3+i].x = xcen - yoff; points[a3+i].y = ycen + xoff; points[b1-i].x = xcen + yoff; points[b1-i].y = ycen + xoff; points[b2-i].x = xcen + xoff; points[b2-i].y = ycen - yoff; points[b3-i].x = xcen - yoff; points[b3-i].y = ycen - xoff; points[b4-i].x = xcen - xoff; points[b4-i].y = ycen + yoff; } /* Close the circle (end point same as starting point) */ points[CircleCnt].x = points[0].x; points[CircleCnt].y = points[0].y; return( CircleCnt + 1 ); } /* Subroutine: make_ellipse * Purpose: Create an ellipticle cursor with given center and radii * Returns: Number of points needed to draw ellipse */ #ifdef ANSIC static int make_ellipse ( double xcen, double ycen, double xradius, double yradius, double rotsin, double rotcos, XPoint *points ) #else static int make_ellipse ( xcen, ycen, xradius, yradius, rotsin, rotcos, points ) double xcen, ycen; double xradius, yradius; double rotsin, rotcos; XPoint *points; #endif { int loop; float xoff, yoff; register int i; register int x1, x2, y1, y2; register int a2, b1, b3; /* Set up array indexes for 8 fold symetry */ /* 4 indexes radiating both ways from each of the two axis rays */ a2 = EllipseCnt / 2; b1 = a2 - 1; b3 = EllipseCnt - 1; /* Recalculate points on circumference */ /* Apply to each of 4 pairs */ loop = EllipseCnt / 4; for( i=0; i < loop; i++ ) { /* Calculate ray lengths for orthogonal case */ xoff = UnitEllipseX[i] * xradius; yoff = UnitEllipseY[i] * yradius; /* Calculate offset of two points on the right (rotate) */ x2 = (xoff * rotcos) + (yoff * rotsin); y2 = (xoff * rotsin) - (yoff * rotcos); x1 = (xoff * rotcos) - (yoff * rotsin); y1 = (xoff * rotsin) + (yoff * rotcos); points[i].x = xcen + x1; points[i].y = ycen + y1; points[a2+i].x = xcen - x1; points[a2+i].y = ycen - y1; points[b1-i].x = xcen + x2; points[b1-i].y = ycen + y2; points[b3-i].x = xcen - x2; points[b3-i].y = ycen - y2; } /* Close the circle (end point same as starting point) */ points[EllipseCnt].x = points[0].x; points[EllipseCnt].y = points[0].y; return( EllipseCnt + 1 ); } #ifdef NOTNEEDED /* %% not yet needed */ /* Subroutine: change_circle_granularity * Purpose: Change number of points used to draw circles and ellipses */ void change_circle_granularity ( cursor, size, type ) struct cursorRec *cursor; int size; /* i: exact size (48, 64, or 80 */ int type; /* i: code either COP_Circle or COP_Ellipse */ { double *X, *Y; switch( size ) { case 48: X = Circle48X; Y = Circle48Y; break; case 64: X = Circle64X; Y = Circle64Y; break; case 80: X = Circle80X; Y = Circle80Y; break; default: (void)fprintf(stderr, "WARNING: Circle choices are 48, 64, or 80!\n"); return; } if( type == COP_Circle ) { UnitCircleX = X; UnitCircleY = Y; CircleCnt = size; } else if( type = COP_Ellipse ) { UnitEllipseX = X; UnitEllipseY = Y; EllipseCnt = size; } else return; if( cursor->type == type ) { make_cursor (cursor); } } #endif saoimage-1.08/dispblnk.c 666 21641 13 15502 4613615522 10325 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: dispblnk.c (Display Blink) * Purpose: Switch between stored displays * Subroutine: save_blink() returns: void * Subroutine: free_blink() returns: void * Subroutine: clear_blink() returns: void * Subroutine: unset_blink() returns: void * Subroutine: control_blink() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {n} -- -- */ #include /* get stderr, NULL */ #include /* get X types and constants */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main ximage parameter structures */ #include "hfiles/constant.h" /* define SOP */ #define MetaMask Mod1Mask static struct { char *buf; Pixmap pixmap; int depth; int bufsz; int byte_width; } blink[4] = { { 0 }, { 0 }, { 0 }, { 0 } }; static int current_index = 0; /* * Subroutine: save_blink * Purpose: Save the current display in a blink buffer */ void save_blink ( button ) int button; { int bufsz, index; GC gc, set_gc(); char *calloc_errchk(); if( blink[0].buf == NULL ) { blink[0].buf = dispbox.image.data; blink[0].depth = dispbox.image.depth; blink[0].byte_width = dispbox.image.bytes_per_line; } if( blink[0].depth == 1 ) bufsz = ((dispbox.xwidth + 7) / 8) * dispbox.yheight * sizeof(short); else bufsz = dispbox.xwidth * dispbox.yheight; if( button == Button1 ) index = 1; else if( button == Button2 ) index = 2; else index = 3; if( blink[index].bufsz != bufsz ) { if( blink[index].buf != NULL ) { free((char *)blink[index].buf); blink[index].buf = NULL; } if( blink[index].pixmap != NULL ) { XFreePixmap (dispbox.display, blink[index].pixmap); blink[index].pixmap = NULL; } blink[index].depth = blink[0].depth; if( (blink[index].pixmap = XCreatePixmap(dispbox.display, dispbox.ID, dispbox.xwidth, dispbox.yheight, blink[index].depth)) == NULL ) blink[index].buf = calloc_errchk(bufsz, 1, "blink"); blink[index].bufsz = bufsz; } if( blink[index].pixmap != NULL ) { gc = set_gc(&(color.gcset.disp)); if( blink[index].depth == 1 ) XCopyPlane(dispbox.display, dispbox.ID, blink[index].pixmap, gc, dispbox.xzero, dispbox.yzero, dispbox.xwidth, dispbox.yheight, 0, 0, 1); else XCopyArea(dispbox.display, dispbox.ID, blink[index].pixmap, gc, dispbox.xzero, dispbox.yzero, dispbox.xwidth, dispbox.yheight, 0, 0); } else { bcopy((char *)dispbox.image.data, blink[index].buf, bufsz); blink[index].depth = dispbox.image.depth; blink[index].byte_width = dispbox.image.bytes_per_line; } } /* * Subroutine: free_blink * Purpose: When dispbox changes size, dump all current buffers */ void free_blink ( ) { int i; void clear_blink(); clear_blink(); for( i=1; i<4; i++ ) { if( blink[i].buf != NULL ) { free((char *)blink[i].buf); blink[i].buf = NULL; } if( blink[i].pixmap != NULL ) { XFreePixmap (dispbox.display, blink[i].pixmap); blink[i].pixmap = NULL; } blink[i].bufsz = 0; } } /* * Subroutine: clear_blink * Purpose: Reset basic blink parameters when color arrangements change */ void clear_blink ( ) { if( (blink[0].buf != NULL) && (current_index != 0) ) { dispbox.image.depth = blink[0].depth; dispbox.image.bytes_per_line = blink[0].byte_width; dispbox.image.data = blink[0].buf; } current_index = 0; blink[0].buf = NULL; } /* * Subroutine: unset_blink * Purpose: Indicate that display no longer holds a blinking image * Use when display is redrawn by regular display update routine */ void unset_blink ( ) { current_index = 0; } /* * Subroutine: display_blink */ static int display_blink ( index ) int index; { GC gc, set_gc(); void disp_dispbox(); if( blink[index].pixmap != NULL ) { gc = set_gc(&(color.gcset.disp)); if( blink[index].depth == 1 ) XCopyPlane(dispbox.display, blink[index].pixmap, dispbox.ID, gc, 0, 0, dispbox.xwidth, dispbox.yheight, dispbox.xzero, dispbox.yzero, 1); else XCopyArea(dispbox.display, blink[index].pixmap, dispbox.ID, gc, 0, 0, dispbox.xwidth, dispbox.yheight, dispbox.xzero, dispbox.yzero); } else if( blink[index].buf != NULL ) { dispbox.image.data = blink[index].buf; dispbox.image.depth = blink[index].depth; dispbox.image.bytes_per_line = blink[index].byte_width; disp_dispbox(); } else return( 0 ); current_index = index; XSync (dispbox.display, 0); return( 1 ); } /* * Subroutine: control_blink * Purpose: Control blinking of stored displays * For each new button press, put it on top of stack and display its buffer * For each button release, if it is on top of stack, release it and display * one below, else just release it */ void control_blink () { static int oldmode; static int buttons = 0; static int btnstack[4]; int i; static int display_blink(); if( control.event.type == ButtonPress ) { /* don't respond if it's with a meta key (window resize) */ if( control.event.xbutton.state & (ControlMask | MetaMask) ) return; if( ++buttons == 1 ) { /* store mode (may be called from other mode) */ oldmode = control.mode; control.mode = SOP; /* events to send through here in any case */ control.priority = ButtonPressMask | ButtonReleaseMask; } btnstack[buttons] = control.event.xbutton.button; } else if( control.event.type == ButtonRelease ) { /* don't respond if we weren't doing anything */ if( buttons <= 0 ) return; if( buttons == 1 ) { /* unset tracking priority */ control.mode = oldmode; control.priority = 0; } if( btnstack[buttons] != control.event.xbutton.button ) { /* button other than top one released, lower the stack */ for( i = 1; (i <= buttons) && (btnstack[i] != control.event.xbutton.button); i++ ); while( i -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* for atof (see Ultrx atof man page) */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ /* * Subroutine: parse_filename * Purpose: Parse commandline to find an image file name */ int parse_filename ( argc, argv, argi, got_name ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_name; /* status word (use bit for found a file name) */ { int i; int usage(); i = *argi; /* --- check for the filename as an unidentified string --- */ if( (argv[i][0] != '-') && ((argv[i][0] == '/') || (isalpha(argv[i][0]))) ) { if( *got_name & CMD_FNAME ) { (void)fprintf(stderr, "More than 1 possible file name: %s %s.\n", img.filename, argv[i]); return( usage("filename", argc, argv, i, i) ); } else { img.filename = argv[i]; *got_name |= CMD_FNAME; } return( 1 ); } /* --- check for filename as an identified string --- */ if( (strcmp(argv[i], "-name") == 0) || (strcmp(argv[i], "-") == 0) ) { if( ++i >= argc ) return( usage("filename", argc, argv, i-1, i) ); if( *got_name & CMD_FNAME ) { (void)fprintf(stderr, "More than 1 possible file name: %s %s.\n", img.filename, argv[i]); return( usage("filename", argc, argv, i, i) ); } else { img.filename = argv[i]; *got_name |= CMD_FNAME; } *argi = i; return( 1 ); } return( 0 ); } /* * Subroutine: parse_filetype * Purpose: Parse command line for image file type */ int parse_filetype ( argc, argv, argi, got_type ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_type; /* status word (bit for got an image type switch) */ { int i; i = *argi; /* --- IMAGE FILE TYPE --- */ if( strcmp(argv[i], "-iraf") == 0 ) { /* --- IRAF image --- */ img.file_type = SOP_IRAF; } else if( strcmp(argv[i], "-oif") == 0 ) { /* --- Iraf OIF .imh headed image file --- */ img.file_type = SOP_IRAF; } else if( strcmp(argv[i], "-fits") == 0 ) { /* --- FITS image --- */ img.file_type = SOP_FITS; } else if( strcmp(argv[i], "-dfits") == 0 ) { /* --- FITS image in non-standard byte swap order --- */ img.file_type = SOP_FITS; img.byte_swap = !img.byte_swap; } else if( strcmp(argv[i], "-saoccd") == 0 ) { /* --- SAOCCD image --- */ img.file_type = SOP_SAOCCD; } else if( strcmp(argv[i], "-ros") == 0 ) { /* --- ROSAT HOPR HRI image --- */ img.file_type = SOP_ROSAT; } else { /* --- check array type specification --- */ if( (strcmp(argv[i], "-chararray") == 0) || (strcmp(argv[i], "-u1" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_U1; img.bytepix = 1; } else if( (strcmp(argv[i], "-shortarray") == 0) || (strcmp(argv[i], "-i2" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_I2; img.bytepix = 2; } else if( (strcmp(argv[i], "-ushortarray") == 0) || (strcmp(argv[i], "-u2" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_U2; img.bytepix = 2; } else if( (strcmp(argv[i], "-longarray") == 0) || (strcmp(argv[i], "-i4" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_I4; img.bytepix = 4; } else if( (strcmp(argv[i], "-floatarray") == 0) || (strcmp(argv[i], "-r4" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_R4; img.bytepix = 4; } else if( (strcmp(argv[i], "-doublearray") == 0) || (strcmp(argv[i], "-r8" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_R8; img.bytepix = 8; } else { /* --- got here if no match of any type --- */ return( 0 ); } /* --- got here by finding an array type identifier --- */ /* if there are more arguments and the first does not start with '-' */ if( (argc > (i+2)) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { /* --- if giving args like this, 2 must be given --- */ if( ((i+2) >= argc) || ((img.filecols = atoi (argv[++i])) <= 0) || ((img.filerows = atoi (argv[++i])) <= 0) ) return( usage("array size", argc, argv, i-3, i) ); } } /* --- got here after finding a match --- */ *got_type |= CMD_FTYPE; *argi = i; return( 1 ); } /* * Subroutine: parse_fileread * Purpose: Parse command line for image file reading parameters */ int parse_fileread ( argc, argv, argi, got_read ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_read; /* status word (bit that there were read parameters) */ { int i; i = *argi; if( (strcmp(argv[i], "-sk") == 0) || (strcmp(argv[i], "-skip") == 0) || (strcmp(argv[i], "-header") == 0) ) { /* --- skip header of given size --- */ if( (++i >= argc) || ((img.headersize = atoi(argv[i])) < 0) ) return( usage("header size", argc, argv, i-1, i) ); } else if( (strcmp(argv[i], "-bswap") == 0) || (strcmp(argv[i], "-byteswap") == 0) ) { /* --- selecting byteswap gets reverse byteswap of whatever it was --- */ img.byte_swap = !img.byte_swap; } else if( (strcmp(argv[i], "-sb") == 0) || (strcmp(argv[i], "-scalebias") == 0) ) { /* --- scale and bias for image file data --- */ double scale; float bias; if( (i + 2) >= argc ) return( usage("args for scale and bias", argc, argv, i, i) ); if( (scale = atof(argv[++i])) <= 0.0 ) return( usage("value for scale", argc, argv, i-1, i) ); if( sscanf(argv[++i], "%f", &bias) != 1 ) return( usage("value for bias", argc, argv, i-2, i) ); /* store values and flag if they represent remapping of the values */ if( ((img.fscale = scale) != 1.0) || ((img.fbias = (double)bias) != 0.0) ) img.fscaled = 1; else img.fscaled = 0; } else if( (strcmp(argv[i], "-dc") == 0) || (strcmp(argv[i], "-dispcen") == 0) ) { /* --- initial display location --- */ if( ((i+2) >= argc) || (img.fdcenX = atof(argv[++i]) <= 0.0) || (img.fdcenY = atof(argv[++i]) <= 0.0) ) return( usage("display center", argc, argv, i-3, i) ); if( (argc >= (i+1)) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { if( (img.fdblock = atoi(argv[++i]) == 0) ) return( usage("display blocking", argc, argv, i-1, i) ); } } else if( (strcmp(argv[i], "-nim") == 0) || (strcmp(argv[i], "-nimage") == 0) ) { /* --- sequence number of image to display (1=first) --- */ if( (++i >= argc) || ((img.nimage = atoi(argv[i])) <= 0) ) return( usage("image number", argc, argv, i-1, i) ); } else if( (strcmp(argv[i], "-buf") == 0) || (strcmp(argv[i], "-bufmax") == 0) ) { /* --- maximum buffer array size (1 side of square) --- */ if( (++i >= argc) || ((img.bufmax = atoi(argv[i])) <= 0) ) return( usage("buffer limit", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-fbconfig") == 0 ) { /* --- iraf display configuration --- */ if( (++i >= argc) || ((img.fbconfig = atoi(argv[i])) == 0) ) return( usage("fbconfig", argc, argv, i-1, i) ); } else { return( 0 ); } *got_read |= CMD_FREAD; *argi = i; return( 1 ); } /* * Subroutine: parse_connection * Purpose: Parse command line for socket or pipe connection stuff */ int parse_connection ( argc, argv, argi, got_read, init ) int argc; /* i: total number of arg tokens */ char *argv[]; /* i: array of arg tokens */ int *argi; /* i/o: first arg to check, (return last arg used) */ int *got_read; /* o: status word (bit for connection parameters) */ int init; /* i: this is init time */ { int i; void open_imtool_connection(), close_imtool_connection(); void rename_imtool_connection(); #ifdef REALTIME void open_rtsock_connection(); void open_rtfifo_connection(); #endif i = *argi; if( strcmp(argv[i], "-pros") == 0 ) { /* --- Imtool pipe with pros extensions --- */ if( init ) { control.IRAF_in.open = 1; control.IRAF_in.func = open_imtool_connection; } else if( control.IRAF_in.open == 0 ) open_imtool_connection(); control.IRAF_out.protocol = IOP_PROS; } else if( strcmp(argv[i], "-imtool") == 0 ) { /* --- Imtool pipe --- */ if( init ) { control.IRAF_in.open = 1; control.IRAF_in.func = open_imtool_connection; } else if( control.IRAF_in.open == 0 ) open_imtool_connection(); control.IRAF_out.protocol = IOP_Imtool; } else if( strcmp(argv[i], "-imtool-") == 0 ) { /* --- Close imtool pipe --- */ if( (init == 0) && (control.IRAF_in.open != 0) ) close_imtool_connection(); control.IRAF_in.open = 0; control.IRAF_in.func = NULL; } else if( strcmp(argv[i], "-idev") == 0 ) { /* --- iraf input pipe device --- */ if( ++i >= argc ) return( usage ("idev", argc, argv, i-1, i) ); rename_imtool_connection(argv[i], 1); } else if( strcmp(argv[i], "-odev") == 0 ) { /* --- iraf output pipe device --- */ if( ++i >= argc ) return( usage("odev", argc, argv, i-1, i) ); rename_imtool_connection(argv[i], 0); #ifdef REALTIME } else if( strcmp(argv[i], "-rtsock") == 0 ) { /* --- RTIO Socket --- */ if( init ) { control.aux_in.open = 1; control.aux_in.func = open_rtsock_connection; if( (argc >= i) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { int j = 0; i++; while ( argv[i][j] != '@' && argv[i][j] != '\0' ) j++; if ( argv[i][j] == '@' ) { argv[i][j] = '\0'; control.aux_in.name = &argv[i][++j]; } else control.aux_in.name = NULL; } else return( usage("port", argc, argv, i-1, i ) ); control.aux_in.address = atoi(argv[i]); } else if( control.aux_in.open == 0 ) open_rtsock_connection(&control.aux_in); control.aux_in.protocol = IOP_socket; } else if( strcmp(argv[i], "-rtfifo") == 0 ) { /* --- RTIO FIFO --- */ if( init ) { control.aux_in.open = 1; control.aux_in.func = open_rtfifo_connection; if( ++i >= argc ) { return( usage("odev", argc, argv, i-1, i) ); } else { control.aux_in.name = argv[i]; }; } else if( control.aux_in.open == 0 ) open_rtfifo_connection(&control.aux_in); #endif } else { return( 0 ); } *got_read |= CMD_CONNECT; *argi = i; return( 1 ); } saoimage-1.08/New/cmdparse.c 666 21641 13 17356 4617454561 11067 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: cmdparse.c (Command Parse) * Purpose: Set options from command line * Subroutine: parse_cmdline() returns: int * Subroutine: string_cmdline() returns: void * Subroutine: usage() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 5 January 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ extern int init_done; /* flag set at end of initialization indicates redo */ /* * Subroutine: parse_cmdline * Purpose: Process options to set filename and change defaults * Returns: -1 on error, 0 OK but no filename, 1 OK and new filename given */ int parse_cmdline ( argc, argv, displayname ) int argc; char *argv[]; char **displayname; /* i/o: gets server name only at init time */ { int i, status; int got, init; int parse_display(), parse_filename(), parse_filetype(), parse_connection(); int parse_rotate(), parse_scale(), parse_color(), parse_fileread(), usage(); void init_cmdline(); static int parse_etc(); if( displayname != NULL ) { /* if initial program command line, strip off program name, store line */ argc--; argv = &(argv[1]); /* store the initial command string */ init_cmdline(argc, argv); init = 1; } else init = 0; /* initialize parse history */ got = 0; status = 1; /* check command line arguments for option requests */ for( i = 0; (status == 1) && (i < argc); i++ ) { if( (status = parse_display(argc, argv, &i, &got, displayname)) ) { /* check for server or window dressing specifications */ ; } else if( ((got & CMD_FNAME) == 0) && ((status = parse_filename(argc, argv, &i, &got)) != 0) ) { /* check for the image file name */ ; } else if( ((got & CMD_FTYPE) == 0) && ((status = parse_filetype(argc, argv, &i, &got)) != 0) ) { /* check for the image file type */ ; } else if( (status = parse_connection(argc, argv, &i, &got, init)) != 0 ) { /* check for change in remote connection status */ ; } else if( (status = parse_fileread(argc, argv, &i, &got)) != 0 ) { /* check for image file reading parameters */ ; } else if( (status = parse_rotate(argc, argv, &i, &got)) != 0 ) { /* check for image rotation */ ; } else if( (status = parse_scale(argc, argv, &i, &got)) != 0 ) { /* check for scaling specifications */ ; } else if( (status = parse_color(argc, argv, &i, &got)) != 0 ) { /* check for color map selection */ ; } else if( (status = parse_etc(argc, argv, i)) != 0 ) { /* check for miscelaneous environment switches */ ; } else { if( argv[i][0] == '-' ) status = usage("unexpected switch", argc, argv, i, i); else status = usage("unrecognized token", argc, argv, i, i); } } if( status == 1 ) { return( got ); } else return( -1 ); } /* * Subroutine: parse_etc * Purpose: Parse command line for things settings from the etc menu */ static int parse_etc ( argc, argv, i ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int i; /* arg to check */ { void set_submenu_toggle(); if( (strcmp(argv[i], "-ct") == 0) || (strcmp(argv[i], "-coord") == 0) ) { if( control.coord_track != 1 ) { control.coord_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_TextTrack, 1); } } else if( (strcmp(argv[i], "-mt") == 0) || (strcmp(argv[i], "-magnifier") == 0) ) { if( control.magni_track != 1 ) { /* track updates windows as mouse moves */ control.magni_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Track, 1); } } else if( strcmp(argv[i], "-q") == 0 || strcmp(argv[i], "-quiet") == 0 ) { /* verbosity to control reporting of positions and measurements */ control.verbose = 0; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 0); } else if( (strcmp(argv[i], "-v") == 0) || (strcmp(argv[i], "-verbose") == 0) ) { control.verbose = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 1); } else { return( 0 ); } return( 1 ); } /* * Subroutine: string_cmdline * Purpose: Print tokens on one line to be like original command line */ void string_cmdline ( argc, argv, cmdline, linemax ) int argc; char *argv[]; char *cmdline; int linemax; { int i; if( argc <= 0 ) { cmdline[0] = '\0'; } else { (void)strcpy(cmdline, argv[0]); for( i=1; i= argc ) { (void)fprintf(stderr, "Missing arg(s) to switch\n"); last = argc - 1; } /* print message and offending tokens */ (void)fprintf(stderr,"Command line %s error:", what); for( i=first; i<=last; i++ ) { (void)fprintf(stderr, " %s", argv[i]); } (void)fprintf(stderr, "\n"); /* list switch options */ (void)fprintf(stderr,"usage: saoimage [ options ]\n"); (void)fprintf(stderr," where options are one or more of:\n"); (void)fprintf(stderr," [-d ]\n"); (void)fprintf(stderr," [-g ] [-gd ]\n"); (void)fprintf(stderr," [(-imtool) (-pros) (-fits) (-oif)\n"); (void)fprintf(stderr," [(-i1) (-i2) (-i4) (-r4) (-r8) ]\n"); (void)fprintf(stderr," [(-skip) (-sk) ] [-bswap]\n"); (void)fprintf(stderr," [(-verbose) (-v)] [(-quiet) (-q)]\n"); (void)fprintf(stderr," [-idev ] [-odev ]\n"); (void)fprintf(stderr," [(-lowerleft) (-ll)] [(-upperleft) (-ul)]\n"); (void)fprintf(stderr," [-zero] [-one] [(-rotate) (-rot) <1,2,3>]\n"); (void)fprintf(stderr," [(-red) (-green) (-blue)]\n"); (void)fprintf(stderr," [(-palette) (-p) ]\n"); (void)fprintf(stderr," [(-vertgraph) (-vg)] [(-horizgraph) (-hg)]\n"); (void)fprintf(stderr," [(-bordercolor) (-bc) ]\n"); (void)fprintf(stderr," [-linear] [-wrap ] [-histeq]\n"); (void)fprintf(stderr," [-sqrt ] [-log ]\n"); /* (void)fprintf(stderr, " [-planes #] [-saturate # -threshold #] [-rgb] [-neg]\n"); (void)fprintf(stderr," [-dispsize # #] [-dispcen # #] [-dispblock #]\n"); */ return( -1 ); } saoimage-1.08/New/mainkey.c 666 21641 13 15101 5003373172 10674 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mainkey.c (Main Key) * Purpose: Dispatch responses mapped to various keyboard keys * Subroutine: key_response() returns: void * Subroutine: set_iraf_key_trigger() returns: void * Xlib calls: XWarpPointer(), XSync() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 29 June 1989 * {1} MVH display window key to trigger IRAF write 16 Aug 1989 * {2] Doug Mink add + and - for new image in file 11 Oct 1990 * {3] Doug Mink add h,j,k,l cursor substitutes 11 Oct 1990 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include #include #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #define MAX_MAPPED_STRING_LENGTH 16 #define MetaMask Mod1Mask #ifdef IMTOOL static int iraf_trigger = 0; /* * Subroutine: set_iraf_key_trigger * Purpose: Set and clear trigger for cursor readback through IRAF pipe */ void set_iraf_key_trigger ( state ) int state; { iraf_trigger = state; } #endif /* * Subroutine: key_response * Purpose: Respond to a key stroke */ void key_response ( ) { KeySym keysym; XComposeStatus compose; int char_cnt; int x, y; static int bufsize = MAX_MAPPED_STRING_LENGTH; static int new_image(); char buffer[MAX_MAPPED_STRING_LENGTH]; #ifdef IMTOOL int trigger_curpos_to_iraf(); #endif void magnify_pan(), magnify_disp(), say_goodbye(), disp_panbox(); void disp_dispbox(), raise_windows(), get_new_cmd(), print_table(); void ascii_region(); /* decode the key event to ascii */ char_cnt = XLookupString(&control.event.xkey, buffer, bufsize, &keysym, &compose); #ifdef IMTOOL if( iraf_trigger && (control.event.xkey.window == dispbox.ID) && (char_cnt == 1) && trigger_curpos_to_iraf(&control.event.xkey, (int)buffer[0]) ) return; #endif /* ignore modifier key pressing */ if( ((control.event.xkey.state & (ControlMask | MetaMask)) == 0) || (keysym >= XK_BackSpace) ) { switch( keysym ) { case XK_Shift_L: case XK_Shift_R: #ifdef IMTOOL /* don't update tracking now if in IRAF interactive mode */ if( iraf_trigger ) return; #endif if( control.event.xkey.window == panbox.ID ) { /* update magnifier if in panbox */ magnify_pan (&control.event); } else if( (control.event.xkey.window == dispbox.ID) && (!control.magni_track) ) { /* if in disp window and not now tracking, update magnifier */ magnify_disp (&control.event, 1, !control.coord_track); } break; #ifdef SUN /* shifted arrow keys on Sun keypad */ case XK_R8: case XK_R10: case XK_R12: case XK_R14: if( keysym == XK_R8 ) keysym = XK_Up; else if( keysym == XK_R10 ) keysym = XK_Left; else if( keysym == XK_R12 ) keysym = XK_Right; else if( keysym == XK_R14 ) keysym = XK_Down; #endif /* H,J,K,L as substitute for arrow keys on keypad */ case XK_h: case XK_j: case XK_k: case XK_l: if( keysym == XK_h ) keysym = XK_Left; else if( keysym == XK_j ) keysym = XK_Up; else if( keysym == XK_k ) keysym = XK_Down; else if( keysym == XK_l ) keysym = XK_Right; case XK_Up: case XK_Down: case XK_Left: case XK_Right: /* use the mouse coordinates at time of key strike */ if( keysym == XK_Up ) y = control.event.xkey.y - 1; else if( keysym == XK_Down ) y = control.event.xkey.y + 1; else y = control.event.xkey.y; if( keysym == XK_Right ) x = control.event.xkey.x + 1; else if( keysym == XK_Left ) x = control.event.xkey.x - 1; else x = control.event.xkey.x; /* move the mouse (supercede any recent mouse movement) */ XSync (control.event.xkey.display, 0); XWarpPointer(control.event.xkey.display, None, control.event.xkey.window, 0, 0, 0, 0, x, y); break; case XK_A: case XK_a: /* a or r (?) TO RAISE ALL WINDOWS OUT OF KAOS */ disp_panbox(); disp_dispbox(); raise_windows(); break; case XK_L: /* debugging print_table without scaling (fool it about scaling) */ x = img.fiscaled; img.fiscaled = 0; print_table(); img.fiscaled = x; break; case XK_N: case XK_n: /* open a new image file (see CmdNew.c) */ get_new_cmd(); break; #ifdef QUITKEY case XK_Q: case XK_q: /* q FOR QUIT */ say_goodbye(0); break; #endif case XK_R: case XK_r: raise_windows(); break; case XK_T: case XK_t: /* print table of image values if in display or pan windows */ print_table(); break; case XK_Delete: case XK_D: case XK_d: case XK_E: case XK_e: case XK_S: case XK_s: /* character control in region (cursor) mode */ if( (control.mode == COP) && (control.event.xkey.window == dispbox.ID) ) ascii_region(&control.event.xkey, keysym); break; case XK_plus: img.nimage = img.nimage + 1; (void)new_image(); break; case XK_minus: if (img.nimage > 1) img.nimage = img.nimage - 1; (void)new_image(); break; case XK_P: case XK_p: /* save current cursor position within image in pixel list file */ case XK_1: /* save current cursor position within image in region list file */ case XK_2: /* save current cursor position within image in region list file */ default: break; } } } /* * Subroutine: new_image * Purpose: Having the image record set, do all that is needed to load * a new image from the same file */ static int new_image ( ) { int init_image(), init_imagebuf(); void set_tdisp(), new_display(), new_panbox(), disp_panbox(); /* get the image dimensions (need file name, type) */ if( init_image() == 0 ) return(0); /* resize the image buffer */ (void)init_imagebuf(); /* set display params and force reassessing and rescaling the image */ set_tdisp(&coord); buffer.mm.img_leftX = coord.id.srcX1 + 1; /* read new image data */ new_display(1, 1, 1, 1); /* replace the panbox with a new one */ new_panbox(1); disp_panbox(); return( 1 ); } saoimage-1.08/New/readfits.c 666 21641 13 15700 4705143550 11050 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readfits.c (Read FITS) * Purpose: Read a FITS file header and prepare file for basic array read * Subroutine: int init_fits() * Note: Only SIMPLE = T is permitted, but will handle BITPIX = 8, 16, * 32, -16(u_short), -32(float), -64(double). If img->nimage * is set to a value greater than 1, file will be lseeked to the * nimage'th image (assuming there are several images stored as * a stack (on 3rd dimension). * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 23 January 1989 * {1} Doug Mink implement nimage 11 October 1990 * {n} -- -- */ #include /* define stderr, NULL, etc. */ #include /* needed for control.h */ #include "hfiles/constant.h" #include "hfiles/control.h" /* define IOP codes */ #include "hfiles/image.h" #define FITSBLOCK 2880 /* * Subroutine: init_fits * Purpose: Open fits file, get parameters and get ready to read data. * Returns: -1 if failure, else fd of file, positioned at start of data * Note: Data read will be handled as standard array read. */ int init_fits ( img ) struct imageRec *img; { float scale, bias; int fd; int headlen; int bitpix, naxis, naxes[3]; char *header; static char *load_fitsheader(); int read_fitsheader(), open_disk(), lseek_disk(); void close_disk(); /* open the image file */ if( (fd = open_disk(img->filename, IOP_Read, 0)) <= 0 ) return( -1 ); headlen = img->headersize; /* read and interpret the header */ if( (header = load_fitsheader(fd, &headlen, img->filename)) == NULL ) { close_disk(fd, img->filename); return( -1 ); } if( read_fitsheader(header, headlen, &bitpix, &naxis, naxes, &scale, &bias) != 0 ) { free(header); switch( bitpix ) { case 8: img->storage_type = ARR_U1; img->bytepix = 1; break; case 16: img->storage_type = ARR_I2; img->bytepix = 2; break; case 32: img->storage_type = ARR_I4; img->bytepix = 4; break; case -16: img->storage_type = ARR_U2; img->bytepix = 2; break; case -32: img->storage_type = ARR_R4; img->bytepix = 4; break; case -64: img->storage_type = ARR_R8; img->bytepix = 8; break; default: (void)fprintf(stderr,"Illegal FITS BITPIX: %d\n",bitpix); close_disk(fd, img->filename); return( -1 ); } if( img->nimage > 1 ) { if( (naxis <= 2) || (naxes[2] < img->nimage) ) { (void)fprintf(stderr, "Only %d images in file %s\n", naxis, img->filename); if (naxes[2] > 0) img->nimage = naxes[2]; else img->nimage = 1; /* close_disk(fd, img->filename); return( -1 ); */ } img->headersize = headlen + ((img->nimage-1) * naxes[0] * naxes[1] * img->bytepix); if( lseek_disk(fd, img->headersize, img->filename) < 0 ) { img->headersize = 0; close_disk(fd, img->filename); return( -1 ); } } else { img->headersize = headlen; } img->filecols = naxes[0]; img->filerows = naxes[1]; if( (scale != 1.0) || (bias != 0.0) ) { img->fscale = scale; img->fbias = bias; img->fscaled = 1; } else img->fscaled = 0; return( fd ); } else { free(header); close_disk(fd, img->filename); return( -1 ); } } /* * Subroutine: load_fitsheader * Purpose: Load the FITS header from the disk file into memory. * Notes: FITS headers are made in block units (2880 bytes each). * If length is not initially zero, it is taken as a directive * to override FITS standard (header of given size is loaded). * FITS header must have "SIMPLE =" in first 10 bytes (and 'T' * in next 20 for ximage use). */ static char *load_fitsheader ( fd, length, filename ) int fd; int *length; char *filename; { int headlen, nbytes; char *header; char TorF[4]; static char *get_keyfield(); char *realloc(), *calloc_errchk(); int read_disk(); void no_fitscomment(); if( *length > 0 ) headlen = *length; else headlen = FITSBLOCK; /* allocate initial sized buffer */ header = calloc_errchk(headlen, 1, "FITS header"); /* read in first block */ if( (nbytes = read_disk(fd, header, headlen, 1, filename, "FITS header")) != headlen ) { free (header); return( NULL ); } /* consistency check for FITS header */ if( strncmp(header, "SIMPLE =", 9) != 0) { (void)fprintf(stderr,"No SIMPLE keyword in FITS header"); free(header); return( NULL ); } /* we only support SIMPLE = T */ no_fitscomment(header+10, 20); if( (sscanf(header+10, "%1s", TorF) <= 0) || (TorF[0] != 'T') ) { (void)fprintf(stderr,"SIMPLE = %c not supported\n", TorF[0]); free(header); return( NULL ); } if( *length != 0 ) { /* if header length was given, it must check out with an END */ if( get_keyfield(header, "END ", headlen, 0) == NULL ) { (void)fprintf(stderr,"%d byte FITS header has no END card!\n", headlen); free(header); return( NULL ); } } else { /* if END keyword not found, read in more header until END is found */ while( get_keyfield(header, "END ", headlen, 0) == NULL ) { if( (header = realloc(header, (unsigned)(headlen+FITSBLOCK))) == NULL ) { fputs("Reallocation failure reading header\n", stderr); return( NULL ); } if( (nbytes = read_disk(fd, header+headlen, FITSBLOCK, 1, filename, "extended header")) != FITSBLOCK ) { (void)fprintf(stderr, "Read %d bytes of header with no END card!\n", headlen + nbytes); (void)fflush(stderr); free( header ); return( NULL ); } headlen += FITSBLOCK; } *length = headlen; } return( header ); } /* * Subroutine: get_keyfield * Purpose: Return the data field for a given FITS header keyword * Returns: If key not found, return NULL (0). */ static char *get_keyfield ( header, keyword, length, report_error ) char *header; /* buffer start */ char *keyword; /* keyword to match */ int length; /* if zero, search up to "END" keyword */ int report_error; /* if > 0, fatal if key not found */ { int key_not_end, i; void no_fitscomment(); key_not_end = (strncmp(keyword, "END ", 8) != 0); for( i=0; i -- -- */ #include /* stderr, NULL, FILE, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* needed for asctime() */ #include /* get X types and constants */ #include /* X window manager, visual stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/color.h" /* colors used by cursor */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* define SZ_FNAME, MIN, MAX, etc. */ #include "hfiles/image.h" /* image description structure */ #include "hfiles/edit.h" /* define EditStruct */ #include "hfiles/extern.h" /* pass common structures */ #ifndef VMS #define IRAFFILE "frame.%d.%d" #else #define IRAFFILE "frame.%d_%d" #endif char *ProsName = "saoimage.reg"; EditStruct *region_edit; /* * Subroutine: write_regions * Purpose: Write region info to a file */ void write_regions ( cursor, image, output_type ) struct cursorRec *cursor; struct imageRec *image; int output_type; /* i: SOP_Imtool or SOP_PROS */ { FILE *fd; static int last_output_type = 0; char fname[SZ_FNAME]; static void write_region_imtool(); int open_output_file(); EditStruct *init_edit_popup(); void set_path_iraf(), write_region_pros(), load_edit_struct(), timestamp(); /* return if there is nothing to write */ if( cursor->next_region == NULL ) { (void)fprintf(stderr, "WARNING: no saved cursors to write!\n"); return; } /* imtool type output is different */ if( output_type == SOP_Imtool ) { if( last_output_type != SOP_Imtool ) { /* get name of coordinate output file */ strcpy (fname,img.filename); strcat (fname,".plist"); /* sprintf(fname, IRAFFILE, 1, 1); */ /* set_path_iraf(fname); */ if( region_edit == NULL ) region_edit = init_edit_popup(fname, SZ_FNAME); else load_edit_struct(region_edit, fname, strlen(fname)); last_output_type = SOP_Imtool; } /* open coordinate output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for IRAF list:") <= 0 ) return; /* timestamp the first entry in the output file. */ /* timestamp(fd, image->filename); */ /* put in a line to explain parameter list */ /* (void)fprintf(fd, "# (x y)\n"); */ write_region_imtool(fd, cursor->next_region, image); } else { if( last_output_type != SOP_PROS ) { if( region_edit == NULL ) region_edit = init_edit_popup(ProsName, SZ_FNAME); else load_edit_struct(region_edit, ProsName, strlen(fname)); last_output_type = SOP_PROS; } /* open region output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for regions:") <= 0 ) return; /* timestamp the first entry in the output file. */ timestamp(fd, image->filename); /* put in a line to explain parameter list */ (void)fprintf(fd,"# shape x, y, [x dimension, y dimension], [angle]\n"); /* write the pros region specifications */ write_region_pros(fd, cursor->next_region); } (void)fclose(fd); } /* * Subroutine: write_region_imtool * Purpose: Write region info in imtool's format (iraf "list") * Note: Output is a list of ascii pairs giving only center coords */ static void write_region_imtool ( fd, region, image ) FILE *fd; struct cursorRec *region; struct imageRec *image; { if( region != NULL ) { /* recurse first to reverse order of regions */ if( region->next_region != NULL ) write_region_imtool(fd, region->next_region, image); if( image->index_base ) (void)fprintf(fd, "%5d %5d\n", RND(region->file.X), RND(region->file.Y)); else (void)fprintf(fd, "%5d %5d\n", (int)region->file.X, (int)region->file.Y); } } /* * Subroutine: timestamp * Purpose: Write date and filename (if known) to region file */ void timestamp ( fd, imagename ) FILE *fd; char *imagename; { char line[SZ_LINE]; int len; static void set_time_string(); /* timestamp the first entry in the output file. */ set_time_string (line); /* get rid of any trailing new line */ len = MAX(0, strlen(line) - 1); if (line[len] == '\n') line[len] = '\0'; /* print file name if one is given */ if ((imagename != NULL) && (strlen(imagename)) != 0) { (void)fprintf(fd, "# %s\n", imagename); } /* print date and time */ (void)fprintf(fd, "# %s\n", line); } /* * Subroutine: set_time_string (time) * Purpose: Print the time in the passed string * UNIX calls: time(), asctime(), localtime() */ static void set_time_string ( time_string ) char *time_string; { long timeofday; #ifndef VMS /* I don't know where this should be defined, it's not in */ /* it's a time_t which is defined as a long in */ long time(); #endif timeofday = time((long *)0); /* note asctime(localtime()) can be replaced by ctime() in newer OS's */ (void)strcpy(time_string, asctime(localtime(&timeofday))); } saoimage-1.08/New/shfile.c 666 21641 13 4577 5003371657 10516 #include #include #include #include #include "hfiles/image.h" #include "hfiles/extern.h" static int x0,y0,x1,y1; /* Add this pixel to the current pixel list */ addpixel (x, y) int x, y; { int ipos, strlen(); char line[11]; FILE *stream; char *pixlist; len = strlen (image->filename); if ((reglist = malloc(len+7)) == NULL) { fprintf(stderr,"Can't allocate %d byte reglist\n",len+7); exit(1); } strncpy (pixlist,image->filename,len); pixlist[len] = 0; strcat (imageinfo->pixlist,".plist"); /* Open file to append */ if ((stream = fopen (pixlist,"a")) == NULL ) { fprintf (stderr,"Can't open file for pixel list %s\n",pixlist); return; } /* Write this point to end of file */ fprintf (stream,"%5d %5d\n",x,y); fclose (stream); fprintf (stderr,"Col %d, Row %d added to pixel list\n", x,y); if (pixlist != NULL) free (pixlist); return; } /* Save this pixel position as first region corner */ addreg1 (x, y) int x, y; { x0 = x; y0 = y; fprintf (stderr,"Col %d, Row %d lower left of region\n", x,y); return; } /* Save this pixel position as second region corner */ addreg2 (x, y) int x, y; { x1 = x; y1 = y; fprintf (stderr,"Col %d, Row %d upper right of region\n", x,y); return; } /* write the position and intenity out into the zoom text subwindow */ /* Add current region to the current region list file */ addregion () { FILE *stream; int x,y; char *reglist; len = strlen (image->filename); if ((reglist = malloc(len+7)) == NULL) { fprintf(stderr,"Can't allocate %d byte reglist\n",len+7); exit(1); } strncpy (reglist,image->filename,len); reglist[len] = 0; strcat (imageinfo->reglist,".rlist"); /* Open file to append */ if ((stream = fopen (imageinfo->reglist,"a")) == NULL ) { fprintf (stderr,"Can't open file for region list %s\n",imageinfo->reglist); return; } if (x1 < x0) { x = x1; x1 = x0; x0 = x; } if (y1 < y0) { y = y1; y1 = y0; y0 = y; } /* Write this region to end of file */ fprintf (stream,"%5d %5d %5d %5d\n",x0, x1, y0, y1); fclose (stream); fprintf (stderr,"(%d %d) (%d %d) region marked\n",x0, y0, x1, y1); /* Reset corners to 0 */ x0 = 0; x1 = 0; y0 = 0; y1 = 0; if (reglist != NULL) free (reglist); return; } saoimage-1.08/New/sclmap.c 666 21641 13 25214 5466273772 10546 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: sclmap.c (Scale Map) * Purpose: Map image values to display screen values using various * functions * Subroutine: make_scalemap() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {2} Doug Mink find range from histogram 4 November 1993 * {n} -- -- */ #include /* get stderr, NULL, etc. */ #include /* get the math definitions */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ #ifndef SUN #define expm1(a) (exp(a)-1) #endif /* * Subroutine: make_scalemap * Purpose: Make scale map according to type selected * Note: Map goes from image value to hardware value (through ideal * map value using pixels array from XAllocColors) */ void make_scalemap ( image_min, image_max ) int image_min, image_max; /* i: range of mapping for image data input */ { void histogram_equalize(); static void linear_scale(), wrap_scale(), sqrt_scale(), log_scale(); static void get_histogram_range(); float pfrac; /* note the range of data for which mapping is to be calculated */ if( image_max == image_min ) ++image_max; if( image_max < image_min ) { int temp; temp = image_max; image_max = image_min; image_min = temp; } { /* fill in map below min with mincolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[0]; for( imageval = -32768; imageval < image_min; imageval++ ) lookup[imageval] = pixval; } /* create the image map straight or with some form of scaling */ switch( color.scale.mode ) { case SOP_HistEq: /* if there are levels to distribute, call the routine, else do the next */ if( color.ncolors < (image_max - image_min) ) { histogram_equalize(buffer.scalemap + SCALEOFF, buffer.histogram + SCALEOFF, buffer.hist_area, image_min, image_max, color.ncolors, color.pixvalmap); break; } /* fall through to linear if there is nothing to distribute */ case SOP_Linear: pfrac = 0.1; get_histogram_range (buffer.histogram, &image_min, &image_max, pfrac); linear_scale(image_min, image_max); break; case SOP_Wrap: wrap_scale(image_min, image_max); /* don't fill in the top of map */ return; case SOP_Sqrt: sqrt_scale(image_min, image_max); break; case SOP_Log: log_scale(image_min, image_max); break; default: (void)fprintf(stderr,"Unknown scaling type request!\n"); } { /* fill in top of map with maxcolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[color.ncolors - 1]; for( imageval = image_max; imageval < 32768; imageval++ ) lookup[imageval] = pixval; } } /* * Subroutine: linear_scale * Purpose: Distribute color levels in the map evenly */ static void linear_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double upper_bound; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ scale = (double)(image_max - image_min + 1) / (double)color.ncolors; imageval = image_min; /* upper bound is ideal edge between colors (offset for rounding) */ upper_bound = image_min + 0.5; level = 0; pixval = pixels[0]; while( level++ < maxcolor ) { upper_bound += scale; imagelim = (int)upper_bound; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: wrap_scale * Purpose: Create the image map with a repeating linear scale * Note: Levels below image_min are not mapped */ static void wrap_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double range; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ imagelim = (image_max - image_min + 1) / color.scale.wrap_cnt; scale = (double)imagelim / (double)color.ncolors; /* start at image_min with color level = 0 */ imageval = image_min; level = 0; /* use range as floating point boundary between levels */ range = (double)imageval; while( imageval < 32768 ) { do { /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; range += scale; imagelim = (int)(range + 0.5); if( imagelim >= 32768 ) imagelim = 32767; do { lookup[imageval] = pixval; } while( ++imageval <= imagelim ); if( imageval >= 32768 ) return; } while( ++level <= maxcolor ); /* pixval at level 0 lowest color again */ level = 0; } } /* * Subroutine: sqrt_scale * Purpose: Distribute color levels in the map by a root or power function. * Method: (level / maxlevel) ranges from 0 to 1. Raise to a power. * Result curves from 0 to 1. Map result directly back to * pixel value. */ static void sqrt_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double range; double power; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; power = color.scale.root_power; ncolors = (double)color.ncolors; range = image_max - image_min + 1; imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { imagelim = image_min + (int) ((pow(((double)level / ncolors), power) * range) + 0.5); /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: log_scale * Purpose: Distribute color levels in the map by a logorithmic or * exponential curve (powers of e). */ static void log_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double expo; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; expo = color.scale.log_expo; ncolors = (double)color.ncolors; /* base distribution on e**n as n goes from 0 to expo (expm1 is exp()-1) */ if( color.scale.log_expo >= 0 ) { scale = (double)(image_max - image_min + 1) / expm1(expo); } else { /* negative exponents allocate more levels toward the high values */ scale = (double)(image_max - image_min + 1) / (1.0 - exp(expo)); } imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { if( expo > 0 ) { imagelim = image_min + (int) ((expm1(((double)level / ncolors) * expo) * scale) + 0.5); } else { imagelim = image_min + (int) ((1.0-exp(((double)level / ncolors) * expo) * scale) + 0.5); } /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: get_histogram_range * Purpose: Find a range from the peak of the pixel value distribution */ static void get_histogram_range ( histogram, pmin, pmax, pfrac) int *histogram; int *pmin; /* minimum pixel value */ int *pmax; /* maximum pixel value */ float pfrac; /* Fraction of peak of histogram for width */ { register int *hist; register int *end; register int *hpeak; register int *hist0; register int *hmin; register int *hmax; register int vinit; register int vmin; /* offset hist to zero (+32768 or 0x8000) */ vinit = -32767; hist = histogram + SCALEOFF; end = hist + *pmax; hist -= *pmin; hist0 = hist; hist += 1; /* Find pixel value at peak of histogram */ hpeak = hist; do { if (*hist > *hpeak) hpeak = hist; } while ( ++hist <= end ); /* Find first pixel value at peak of histogram - pfrac */ hist = hpeak; vmin = *hpeak * pfrac; do { if (*hist > vmin) hmin = hist; } while ( --hist > hist0 ) ; *pmin = hmin - hist0; /* Find last pixel value at peak of histogram - pfrac */ hist = hpeak; do { if (*hist > vmin) hmax = hist; } while ( ++hist <= end ) ; *pmax = hmax - hist0; return; } saoimage-1.08/New/makefile 666 21641 13 30371 5302257157 10607 # # Makefile for saoimage # # May 8, 1990 # # IFLAGS: image reading code to be built into saoimage # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # # MFLAGS - machine or library specific code # -DSUN - sunOS temp file name, ieee floating point debug, and sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DXV11R2 - Xlib not up to full XV11R3 standards (i.e. all DEC products) # -DSYSV - substitutes for getdtablesize() and setrlimit() unknown on HP # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) # # uncomment these two lines to compile with gcc (add any optimizers you wish) #CC = gcc -finline-functions #TARGET_ARCH = #IFLAGS = -DFITS -DOIF IFLAGS = -DFITS -DOIF -DIMTOOL #MFLAGS = -DLSB -DXV11R2 MFLAGS = -DSUN -DPSCRIPT #DFLAGS = -g -DDEBUG DFLAGS = -O CFLAGS = $(DFLAGS) $(MFLAGS) $(IFLAGS) PROG = saoimage # btnlib must be made separately XLIB = btnlib/libbtn.a -lX11 # put additional libraries for image IO here IOLIBS = LIBS = -lm $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o PROGRAM = saoimage saoimage: $(OBJS) cc $(CFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) static: $(OBJS) cc $(CFLAGS) $(OBJS) -Bstatic -o $(PROGRAM) $(LIBS) lint: lint -b -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) tar: tar cfv saoimage.tar makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: tar cfv - makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile tape: tar cfv /dev/nrxt8 makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile panel/*.c panel/*.h panel/*.mnu panel/makefile XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h cc -c $(CFLAGS) panel/makemenu.c; mv makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/New/readreal.c 666 21641 13 15013 5561224754 11032 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readreal.c (Read Real) * Purpose: Scale real image data to fit in a short (int*2) buffer * Subroutine: scale_data_r4() returns: void * Subroutine: scale_data_r8() returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 October 1988 * {1} Doug Mink added byte swapping May 2, 1994 * {n} -- -- */ #include "hfiles/image.h" /* image struct */ #include "hfiles/scale.h" /* define SCALEWIDTH, etc. */ /* * Subroutine: scale_data_r4 * Purpose: scale 32 bit real data into the (short) img array */ void scale_data_r4 ( image, imgbuf, databuf, vals, verbose ) struct imageRec *image; short *imgbuf; float *databuf; int vals; int verbose; /* whether to print explanatory messages */ { register float *fbuf, *fbufend; float fmin, fmax; /* set buf start and end pointers for a pass through fbuf */ fbuf = databuf; fbufend = fbuf + vals; /* find the min and the max (byteswap if needed) */ if( image->byte_swap ) { bswap4 ((char *)fbuf); fmin = fmax = *fbuf; /* skip the first val since we just used it */ while( ++fbuf < fbufend ) { bswap4 ((char *)fbuf); if( *fbuf < fmin ) fmin = *fbuf; else if( *fbuf > fmax ) fmax = *fbuf; } } else { fmin = fmax = *fbuf; /* skip the first val since we just used it */ while( ++fbuf < fbufend ) { if( *fbuf < fmin ) fmin = *fbuf; else if( *fbuf > fmax ) fmax = *fbuf; } } /* make announcement if requested */ if( verbose ) { (void)printf("Data min and max as read: %g, %g\n", fmin, fmax); if( image->fimin < image->fimax ) { (void)printf("Using given limits: %g, %g\n", image->fimin, image->fimax); } } /* apply preset limits if given */ if( image->fimin < image->fimax ) { fmin = image->fimin; fmax = image->fimax; } { float scale, bias; float ftemp; register short *sbuf; /* set bias to offset values to zero center the range */ bias = -((fmin + fmax) / (float)2.0); /* get the scale factor */ if( (fmax - fmin) > 0.0 ) { scale = (float)SCALEWIDTH / (fmax - fmin); } else { scale = 1.0; } /* reset buf for another pass through fbuf */ /* while loop changed to current form from: * buf = databuf; * while( buf < bufend ) * *sbuf RND((*buf++ + bias) * scale; * because Sun compiler was inc'ing buf by 8 bytes */ fbuf = databuf; sbuf = imgbuf; /* use min and max to mark out limits */ fmin = (float)SCALEMIN; fmax = (float)SCALEMAX; /* scale the picture */ do { ftemp = (*fbuf + bias) * scale; if( ftemp < 0.0 ) { ftemp -= 0.5; if( ftemp < fmin ) *sbuf++ = fmin; else *sbuf++ = (short)ftemp; } else { ftemp += 0.5; if( ftemp > fmax ) *sbuf++ = fmax; else *sbuf++ = (short)ftemp; } } while( ++fbuf < fbufend ); image->fiscaled = 1; image->fibias = (double)(-bias); image->fiscale = 1.0 / (double)scale; } } /* * Subroutine: scale_data_r8 * Purpose: Scale 64 bit real data into the (short) img array */ void scale_data_r8 ( image, imgbuf, databuf, vals, verbose ) struct imageRec *image; short *imgbuf; double *databuf; int vals; int verbose; /* whether to print explanatory messages */ { register double *dbuf, *dbufend; double dmin, dmax; /* set buf start and end pointers for a pass through dbuf */ dbuf = databuf; dbufend = dbuf + vals; /* find the min and the max (byteswap if needed) */ if( image->byte_swap ) { bswap8 ((char *)dbuf); dmin = dmax = *dbuf; /* skip the first val since we just used it */ while( ++dbuf < dbufend ) { bswap8 ((char *)dbuf); if( *dbuf < dmin ) dmin = *dbuf; else if( *dbuf > dmax ) dmax = *dbuf; } } else { dmin = dmax = *dbuf; /* skip the first val since we just used it */ while( ++dbuf < dbufend ) { if( *dbuf < dmin ) dmin = *dbuf; else if( *dbuf > dmax ) dmax = *dbuf; } } /* make announcement if requested */ if( verbose ) { (void)printf("Data min and max as read: %g, %g\n", dmin, dmax); if( image->fimin < image->fimax ) { (void)printf("Using given limits: %g, %g\n", image->fimin, image->fimax); } } /* apply preset limits if given */ if( image->fimin < image->fimax ) { dmin = image->fimin; dmax = image->fimax; } { double scale, bias; double dtemp; register short *sbuf; /* set bias to offset values to zero center the range */ bias = -((dmin + dmax) / (double)2.0); /* get the scale factor */ if( (dmax - dmin) > 0.0 ) { scale = (double)SCALEWIDTH / (dmax - dmin); } else { scale = 1.0; } /* reset buf for another pass through dbuf */ dbuf = databuf; sbuf = imgbuf; /* use min and max to mark out limits */ dmin = (double)SCALEMIN; dmax = (double)SCALEMAX; /* scale the picture */ do { dtemp = (*dbuf + bias) * scale; if( dtemp < 0.0 ) { dtemp -= 0.5; if( dtemp < dmin ) *sbuf++ = dmin; else *sbuf++ = (short)dtemp; } else { dtemp += 0.5; if( dtemp > dmax ) *sbuf++ = dmax; else *sbuf++ = (short)dtemp; } } while( ++dbuf < dbufend ); image->fiscaled = 1; image->fibias = -bias; image->fiscale = 1.0 / scale; } } bswap4 (string) /* Reverse bytes of 4-byte variable * * string Address of 4-byte variable */ char *string; { char temp0, temp1, temp2, temp3; temp3 = string[0]; temp2 = string[1]; temp1 = string[2]; temp0 = string[3]; string[0] = temp0; string[1] = temp1; string[2] = temp2; string[3] = temp3; return; } bswap8 (string) /* Reverse bytes of 8-byte number * * string Address of 8-byte number */ char *string; { char temp[8]; temp[7] = string[0]; temp[6] = string[1]; temp[5] = string[2]; temp[4] = string[3]; temp[3] = string[4]; temp[2] = string[5]; temp[1] = string[6]; temp[0] = string[7]; string[0] = temp[0]; string[1] = temp[1]; string[2] = temp[2]; string[3] = temp[3]; string[4] = temp[4]; string[5] = temp[5]; string[6] = temp[6]; string[7] = temp[7]; return; } saoimage-1.08/clrctrl.c 666 21641 13 21022 4613620031 10145 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: clrctrl.c (Color Control) * Purpose: Control colors * Subroutine: select_color() returns: void * Subroutine: control_color() returns: void * Subroutine: invert_rgb() returns: void * Subroutine: reinit_color() returns: void * Xlib call: XStoreColors() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ #include /* define NULL */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cgraph.h" extern struct cgraphRec cgraph; #define BUTTONMASK (Button1Mask|Button2Mask|Button3Mask) #define EVENTMASK (ButtonPressMask|ButtonReleaseMask|ButtonMotionMask) /* * Subroutine: select_color * Purpose: Things to do when a buttonbox color menu button is selected */ void select_color ( ) { static int overlay = 0; static int cells = 0; static int mode = VOP_PseudoColor; void invert_rgb(), reinit_color(); static void new_color_table(); if( control.response[0] == VOP ) { switch( control.response[1] ) { case 0: /* 0 is main menu, change only main mode */ break; case VOP_Invert: /* invert is a toggle */ invert_rgb(); /* change records to show reverse of previous mode */ color.inverse ^= 1; break; case VOP_ContBias: case VOP_ThreshSat: case VOP_gamma: color.control_mode = control.response[1]; break; case VOP_Overlay: if( color.cells.overlay ) { color.cells.wanted = (color.cells.wanted + 2) * 2; color.cells.overlay = 0; } else { color.cells.wanted = (color.cells.wanted / 2) - 2; color.cells.overlay = 1; } reinit_color (1); break; case VOP_Halftone: if( color.colormap_mode == VOP_Halftone ) { color.colormap_mode = mode; if( cells <= 1 ) color.cells.wanted = 200; else color.cells.wanted = cells; color.cells.overlay = overlay; } else { mode = color.colormap_mode; overlay = color.cells.overlay; cells = color.cells.wanted; color.colormap_mode = VOP_Halftone; color.cells.wanted = 1; color.cells.overlay = 0; } reinit_color(1); break; default: break; } control.mode = VOP; } else if( control.response[0] == MOP ) { if( (control.response[1] != 0) && (control.response[1] != MOP_SignOff) ) { /* install a new color set */ new_color_table(control.response[1]); } } } /* * Subroutine: control_color * Purpose: Alter color based on mouse events */ void control_color ( ) { static int oldmode =VOP; static int track; static long motionmask = 0; int released_button_mask; Bool specificmotion_in_disp(); /* Function for XCheckIfEvent */ void vary_colors(), draw_cgraph(); if( color.ncolors <= 1 ) /* trap halftone mode until we have something to do */ return; switch( control.event.type ) { case ButtonPress: if( (control.event.xbutton.state & BUTTONMASK) == 0 ) { /* if this is the beginning of a colorful relationship */ /* store current mode */ oldmode = control.mode; control.mode = VOP; /* events to send through here in any case */ control.priority = EVENTMASK; } if( control.event.xbutton.button == Button1 ) { motionmask |= Button1Mask; } else if( control.event.xbutton.button == Button2 ) { motionmask |= Button2Mask; } else if( control.event.xbutton.button == Button3 ) { motionmask |= Button3Mask; } else return; case MotionNotify: control.completed = 1; /* shift xor track will cause the graph to track the changes */ if( ((control.event.xmotion.state & (ShiftMask | LockMask)) !=0) ^ (control.tracking !=0) ) track = 1; else track = 0; /* get only the most recent move */ XSync(control.event.xmotion.display, 0); while( XCheckIfEvent(control.event.xmotion.display, &control.event, specificmotion_in_disp, (char *)(&motionmask)) ); vary_colors(&control.event, color.control_mode, track, control.event.xmotion.x, control.event.xmotion.y, (int)dispbox.width, (int)dispbox.height); break; case ButtonRelease: /* this event could only have been meant for us */ control.completed = 1; if( !track ) /* update the color graph if any button is released and not tracking*/ draw_cgraph(0, 0); /* which buttons were being held before? */ switch( control.event.xbutton.button ) { case Button1: released_button_mask = Button1Mask; break; case Button2: released_button_mask = Button2Mask; break; case Button3: released_button_mask = Button3Mask; break; default: return; } motionmask ^= released_button_mask; /* if that was the last button, we are done */ if( (control.event.xbutton.state & BUTTONMASK) == released_button_mask ) { control.priority = 0; control.mode = oldmode; motionmask = 0; } break; default: break; } } /* * Subroutine: new_color_table * Purpose: Install a new pre-defined color table */ static void new_color_table ( map_code ) int map_code; { int fetch_colortable(); void make_cellstore_from_tables(), draw_cgraph(), label_gamma(); void set_submenu_toggle(); if( fetch_colortable(&color, map_code, img.filename) ) { /* unset the inverse flag if it is set */ if( color.inverse ) { set_submenu_toggle(VOP, VOP_Invert, 0); color.inverse = 0; } make_cellstore_from_tables(&color); /* send colors to the display */ XStoreColors(color.display, color.colormap, color.cellstore, color.ncolors); /* draw the graph of the colors, and relabel the gamma values */ if( graphbox.active ) { draw_cgraph(1, 0); label_gamma(1, 1, 1); } } } /* * Subroutine: invert_rgb * Purpose: Reverse all colors at once (respond to invert button) * Xlib call: XStoreColors() */ void invert_rgb ( ) { void make_cellstore_from_cellmaps(), draw_cgraph(); static void invert_table(); /* invert color tables and remake storemap */ invert_table(&color.ctable.red); invert_table(&color.ctable.green); invert_table(&color.ctable.blue); make_cellstore_from_cellmaps (&color); XStoreColors(color.display, color.colormap, color.cellstore, color.ncolors); /* redraw the color graph */ if( graphbox.active ) draw_cgraph(1, 0); } static void invert_table ( table ) struct subtableRec *table; { double *intensity; /* l: intensity by table vertex or cell */ int i, cnt; intensity = table->intensity; cnt = table->vertex_cnt; for( i=0; icellmap; cnt = table->map_sz; for( i=0; i -- -- */ #include #include #include "hfiles/define.h" /* Define DONT_CARE, U_DONT_CARE */ #include "hfiles/edit.h" /* Flag to switch between default drawing and client mask and function */ int basic_func = 1; /* Values used to draw with GC func other than GXcopy to AllPlanes */ int editor_func = GXcopy; unsigned long editor_mask = AllPlanes; static char left_bits[7] = { 0x20, 0x30, 0x38, 0x3c, 0x38, 0x30, 0x20 }; static char right_bits[7] = { 0x04, 0x0c, 0x1c, 0x3c, 0x1c, 0x0c, 0x04 }; static XImage ximage = { 8, 7, 0, XYBitmap, NULL, LSBFirst, 8, LSBFirst, 8, 1, 1, 0 }; /* define offsets for drawing overflow marks */ #define MARK_LEFT 10 #define MARK_RIGHT 2 #define MARK_Y 8 #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void set_edit_draw_func( int func, unsigned long mask); void unset_edit_draw_func(); void draw_new_string( EditStruct *edit, int clear); void redraw_edit_string( EditStruct *edit); void draw_edit_string( EditStruct *edit, int first_char, int first_x, int nchars); void draw_edit_cursor( EditStruct *edit, int erase); static void mark_left( EditStruct *edit, GC gc); static void clear_left( EditStruct *edit); static void mark_right( EditStruct *edit, GC gc); static void clear_right( EditStruct *edit); static void clear_area( EditStruct *edit, int x, int y, int width, int height); #else void draw_edit_string(), draw_edit_cursor(); GC set_text_gc(); static void clear_area(); static void mark_left(), clear_left(), mark_right(), clear_right(); #endif /* Subroutine: set_edit_draw_func * Purpose: Set draw func to func and mask */ #ifdef ANSIC void set_edit_draw_func ( int func, unsigned long mask ) #else void set_edit_draw_func ( func, mask ) int func; unsigned long mask; #endif { editor_func = func; editor_mask = mask; basic_func = 0; } /* Subroutine: unset_edit_draw_func * Purpose: Unset draw func to func and mask */ void unset_edit_draw_func() { editor_func = GXcopy; editor_mask = AllPlanes; basic_func = 1; } /* Subroutine: draw_new_string * Purpose: Draw a string for the first time (new window or new string) */ #ifdef ANSIC void draw_new_string ( EditStruct *edit, int clear ) #else void draw_new_string ( edit, clear ) EditStruct *edit; int clear; /* i: clear-window-before-drawing */ #endif { int first_char, first_x, nchars, i, len; first_char = 0; first_x = 0; if( edit->pixlen[edit->char_cnt + 2] > edit->max_pixlen ) { edit->oversize = 1; len = edit->pixlen[edit->char_cnt + 2]; for( i = 0; (i <= edit->char_cnt) && (len - edit->pixlen[i]) > edit->max_pixlen; i++ ); first_char = i; nchars = edit->char_cnt + 1 - i; } else { edit->oversize = 0; nchars = edit->char_cnt + 1; } edit->left_mark_drawn = 0; edit->right_mark_drawn = 0; edit->last_x_shown = 0; edit->first_char_shown = first_char; edit->active_position = edit->char_cnt; /* Draw if the mask is not 0 */ if( editor_mask ) { if( clear ) clear_area(edit, edit->x - MARK_LEFT, edit->area_y, edit->max_pixlen + MARK_LEFT + MARK_RIGHT + 8, edit->area_height); draw_edit_string(edit, first_char, first_x, nchars); } } /* Subroutine: redraw_edit_string * Purpose: Redraw the string as it was after a popup window expose event */ #ifdef ANSIC void redraw_edit_string ( EditStruct *edit ) #else void redraw_edit_string ( edit ) EditStruct *edit; #endif { int first_char, first_x, nchars; edit->left_mark_drawn = 0; edit->right_mark_drawn = 0; first_x = 0; first_char = edit->first_char_shown; nchars = edit->last_char_shown + 1 - first_char; draw_edit_string(edit, first_char, first_x, nchars); } /* Subroutine: draw_edit_string * Purpose: Display a section of string and the text cursor * Xlib calls: XDrawImageString() */ #ifdef ANSIC void draw_edit_string ( EditStruct *edit, int first_char, int first_x, int nchars ) #else void draw_edit_string ( edit, first_char, first_x, nchars ) EditStruct *edit; int first_char; int first_x; int nchars; #endif { int x; GC gc; /* Don't draw if the mask is 0 */ if( editor_mask == 0 ) { edit->last_x_shown = edit->pixlen[first_char + nchars] - edit->pixlen[edit->first_char_shown]; edit->last_char_shown = first_char + nchars - 1; return; } gc = set_text_gc(edit->font, edit->foreground, edit->background, editor_func, editor_mask); /* Stencil chars if tracking the string or not having a background */ if( (editor_func == GXxor) || (edit->background == U_DONT_CARE) || (edit->background == edit->foreground) ) XDrawString(edit->display, edit->ID, gc, edit->x + first_x, edit->y, &(edit->string[first_char]), nchars); else XDrawImageString(edit->display, edit->ID, gc, edit->x + first_x, edit->y, &(edit->string[first_char]), nchars); /* Calculate x offset at end of string */ x = edit->pixlen[first_char + nchars] - edit->pixlen[edit->first_char_shown]; /* Clean up after end of string */ if( editor_mask && (x < edit->last_x_shown) ) clear_area(edit, edit->x + x, edit->area_y, edit->last_x_shown - x, edit->area_height); edit->last_x_shown = x; edit->last_char_shown = first_char + nchars - 1; /* Don't draw anything is mask is 0 */ if( editor_mask == 0 ) return; /* Mark line truncation at either end */ if( edit->oversize || edit->left_mark_drawn || edit->right_mark_drawn ) { if( edit->first_char_shown > 0 ) { if( !edit->left_mark_drawn ) { mark_left(edit, gc); edit->left_mark_drawn = 1; } } else if( edit->left_mark_drawn ) { clear_left(edit); edit->left_mark_drawn = 0; } if( edit->char_cnt > edit->last_char_shown ) { if( !edit->right_mark_drawn ) { mark_right(edit, gc); edit->right_mark_drawn = 1; } } else if( edit->right_mark_drawn ) { clear_right(edit); edit->right_mark_drawn = 0; } } draw_edit_cursor(edit, 0); } /* Subroutine: draw_edit_cursor * Xlib calls: XDrawImageString() */ #ifdef ANSIC void draw_edit_cursor ( EditStruct *edit, int erase ) #else void draw_edit_cursor ( edit, erase ) EditStruct *edit; int erase; #endif { int x; GC gc; /* Don't draw cursor if no mask bits */ if( editor_mask == 0 ) return; if( erase ) gc = set_text_gc(edit->font, edit->foreground, edit->background, editor_func, editor_mask); else gc = set_text_gc(edit->font, edit->background, edit->foreground, editor_func, editor_mask); x = edit->pixlen[edit->active_position] - edit->pixlen[edit->first_char_shown]; XDrawImageString(edit->display, edit->ID, gc, edit->x + x, edit->y, &(edit->string[edit->active_position]), 1); } /* Subroutine: mark_left * Xlib calls: XPutImage() */ #ifdef ANSIC static void mark_left ( EditStruct *edit, GC gc ) #else static void mark_left ( edit, gc ) EditStruct *edit; GC gc; #endif { ximage.data = left_bits; XPutImage(edit->display, edit->ID, gc, &ximage, 0, 0, edit->x - MARK_LEFT, edit->y - MARK_Y, 8, 7); } /* Subroutine: clear_left */ #ifdef ANSIC static void clear_left ( EditStruct *edit ) #else static void clear_left ( edit ) EditStruct *edit; #endif { clear_area(edit, edit->x - MARK_LEFT, edit->y - MARK_Y, 8, 7); } /* Subroutine: mark_right * Xlib calls: XPutImage() */ #ifdef ANSIC static void mark_right ( EditStruct *edit, GC gc ) #else static void mark_right ( edit, gc ) EditStruct *edit; GC gc; #endif { ximage.data = right_bits; XPutImage(edit->display, edit->ID, gc, &ximage, 0, 0, edit->x + edit->max_pixlen + MARK_RIGHT, edit->y - MARK_Y, 8, 7); } /* Subroutine: clear_right */ #ifdef ANSIC static void clear_right ( EditStruct *edit ) #else static void clear_right ( edit ) EditStruct *edit; #endif { clear_area(edit, edit->x + edit->max_pixlen + MARK_RIGHT, edit->y - MARK_Y, 8, 7); } /* Subroutine: clear_area * Purpose: Clear area around edit string, mindful of mask in use */ #ifdef ANSIC static void clear_area ( EditStruct *edit, int x, int y, int width, int height ) #else static void clear_area ( edit, x, y, width, height ) EditStruct *edit; int x, y, width, height; #endif { GC gc; gc = set_text_gc(edit->font, edit->background, U_DONT_CARE, editor_func, editor_mask); XFillRectangle(edit->display, edit->ID, gc, x, y, (unsigned int)width, (unsigned int)height); } saoimage-1.08/makefile~ 666 21641 13 30345 5302257051 10246 # # Makefile for saoimage # # May 8, 1990 # # IFLAGS: image reading code to be built into saoimage # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # # MFLAGS - machine or library specific code # -DSUN - sunOS temp file name, ieee floating point debug, and sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DXV11R2 - Xlib not up to full XV11R3 standards (i.e. all DEC products) # -DSYSV - substitutes for getdtablesize() and setrlimit() unknown on HP # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) # # uncomment these two lines to compile with gcc (add any optimizers you wish) #CC = gcc -finline-functions #TARGET_ARCH = #IFLAGS = -DFITS -DOIF IFLAGS = -DFITS -DOIF -DIMTOOL #MFLAGS = -DLSB -DXV11R2 MFLAGS = -DSUN -DPSCRIPT #DFLAGS = -g -DDEBUG DFLAGS = -O CFLAGS = $(DFLAGS) $(MFLAGS) $(IFLAGS) PROG = saoimage # btnlib must be made separately XLIB = btnlib/libbtn.a -lX11 # put additional libraries for image IO here IOLIBS = LIBS = -lm $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o PROGRAM = saoimage saoimage: $(OBJS) cc $(CFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) link: cc $(CFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) lint: lint -b -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) tar: tar cfv saoimage.tar makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: tar cfv - makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile tape: tar cfv /dev/nrxt8 makefile.* readme.txt \ update.* $(SRCS) $(HFILES) $(DEFILES) make.* vms/* doc/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile panel/*.c panel/*.h panel/*.mnu panel/makefile XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h cc -c $(CFLAGS) panel/makemenu.c; mv makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/disppxmp.c 666 21641 13 15426 5030502236 10357 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: disppxmp.c (Display Pixmap) * Purpose: Map short buffer to picturebox display buffer * Subroutine: map_buf_subzoom() returns: void * Subroutine: map_buf_repzoom() returns: void * Subroutine: map_buf_subzoom_adj() returns: void * Subroutine: map_buf_repzoom_adj() returns: void * Copyright: 1987 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 December 1987 * {1} MVH Replaced zoom rep code, dumped adj stuff 21 June 1991 * {n} -- -- */ #include "hfiles/coord.h" /* * Subroutine: map_buf_subzoom * Purpose: Map data to a display buffer, zoomed down by sub-sampling */ void map_buf_subzoom ( coord, displaybuf, imagebuf, scalemap, block_sample ) struct coordRec *coord; unsigned char *displaybuf; /* i/o: pointer to display buffer */ short *imagebuf; /* i: pointer to image buffer */ unsigned char *scalemap; /* i: pointer to lookup table */ register int block_sample; /* i: buf to disp sub-sampling count */ { register short *imgb; /* l: value pointer in image buffer */ register unsigned char *lookup; /* l: pointer in lookup table */ register unsigned char *display; /* l: pointer in display buffer */ int disp_xwdth; /* l: image display width in buffer */ short disp_advance; /* l: move disp pointer to next line */ unsigned char *displayend; /* l: display terminal ref point */ short image_advance; /* l: move img pointer to next line */ /* initialize parameter values */ { register int disp_width; /* l: row width in display buffer */ /* set index between starts of lines, length of scan in one output line */ disp_width = coord->disp.width; disp_xwdth = coord->bd.dstXwdth; display = displaybuf + ((coord->bd.dstY1 * disp_width) + coord->bd.dstX1); imgb = imagebuf + ((coord->bd.srcY1 * coord->buf.width) + coord->bd.srcX1); lookup = scalemap; /* next line minus already ticked off (zoom * bwdth) - (zoom * dwdth) */ image_advance = (coord->buf.width - disp_xwdth) * block_sample; disp_advance = disp_width - disp_xwdth; displayend = display + (coord->bd.dstYhght * disp_width); } /* loop through sub-sampling */ { register unsigned char *displimit; while( display < displayend ) { /* make a sub-sampled line */ displimit = display + disp_xwdth; while( display < displimit ) { *display++ = lookup[*imgb]; imgb += block_sample; } display += disp_advance; imgb += image_advance; } } } /* * Subroutine: map_buf_repzoom * Purpose: Put zoom replicated image data in the display buffer */ #ifdef ANSIC void map_buf_repzoom ( struct coordRec *coord, unsigned char *dst_buf, short *src_buf, unsigned char *scalemap ) #else void map_buf_repzoom ( coord, dst_buf, src_buf, scalemap ) struct coordRec *coord; unsigned char *dst_buf; /* i/o: pointer to display buffer */ short *src_buf; /* i: pointer to image buffer */ unsigned char *scalemap; /* i: pointer to lookup table */ #endif { register int zoom; /* l: 1D pixel replication count */ register unsigned char *dst; /* l: pointer in display buffer */ register unsigned char val; /* l: value mapped from lookup table */ register unsigned char* xrep_limit; register unsigned char *lookup; /* l: pointer in lookup table */ register short *src; /* l: value pointer in image buffer */ short *src_line; /* l: line start in image buffer */ unsigned char* dst_x_limit; unsigned char *dst_line; /* l: start line in display buffer */ int y_dst_count; int x_dst_count; int dst_x, dst_y; int dst_width, dst_height; int src_x, src_y; int src_width, src_height; int yrep_limit; int first_xrep; /* Set basic parameters */ zoom = -coord->bd.block; dst_x = coord->bd.dst_x; dst_y = coord->bd.dst_y; dst_width = coord->disp.width; dst_height = coord->disp.height; src_width = coord->buf.width; src_height = coord->buf.height; /* If buffer extends to or beyond lower edge */ y_dst_count = dst_y + (src_height * zoom); if( y_dst_count > dst_height ) y_dst_count = dst_height; if( dst_y <= 0 ) { /* Compute starting offset in line, and first repetition count */ src_y = -dst_y / zoom; yrep_limit = dst_y + ((src_y + 1) * zoom); dst_y = 0; } else if( dst_y < dst_height ) { src_y = 0; yrep_limit = zoom; y_dst_count -= dst_y; } else return; /* If buffer extends to or beyond left edge */ x_dst_count = dst_x + (src_width * zoom); if( x_dst_count > dst_width ) x_dst_count = dst_width; if( dst_x <= 0 ) { /* Compute starting offset in line, and first repetition count */ src_x = -dst_x / zoom; first_xrep = dst_x + ((src_x + 1) * zoom); dst_x = 0; } else if( dst_x < dst_width ) { src_x = 0; first_xrep = zoom; x_dst_count -= dst_x; } else return; lookup = scalemap; /* Start pointers for display_data, and image_data */ dst_line = dst_buf + ((dst_y * dst_width) + dst_x); src_line = src_buf + ((src_y * src_width) + src_x); dst_y = 0; { register unsigned char *xreplimit; /* loop comparison pointer */ register unsigned char *displaylimit; /* limit comparison pointer */ /* Loop by image row */ while( dst_y < y_dst_count ) { /* Update src and dst pointers */ src = src_line; dst = dst_line; dst_x_limit = dst + x_dst_count; /* First pixel may be replicated less */ xrep_limit = dst + first_xrep; while( xrep_limit < dst_x_limit ) { /* get output val */ val = lookup[*src++]; /* Replicate */ while( dst < xrep_limit ) { *dst++ = val; } /* Reset replication counter */ xrep_limit += zoom; } /* Repeat for last val (replicate to end) */ val = lookup[*src++]; while( dst < dst_x_limit ) { *dst++ = val; } /* Get pointers to next line */ dst = dst_line; dst_line += dst_width; dst_y++; /* Make sure line copying doesn't go too far */ if( yrep_limit > y_dst_count ) yrep_limit = y_dst_count; /* Replicate rows */ while( dst_y < yrep_limit ) { #ifdef ANSIC memcopy((char *)dst_line, (char *)dst, x_dst_count); #else bcopy((char *)dst, (char *)dst_line, x_dst_count); #endif ANSIC dst_line += dst_width; dst_y++; } /* Set up next line replication counter */ yrep_limit += zoom; /* Advance image pointer to place in next line */ src = (src_line += src_width); } } } saoimage-1.08/disppsct.c 666 21641 13 51245 5052251145 10347 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: disppsct.c (Display Postscript) * Purpose: Dump contents of the display window to a postscript printer. * Subroutine: screen_dump() returns: void * Copyright: 1989 NOAO & Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Origin: Doug Tody, NOAO (written for IRAF's Imtool) * Modified: {0} Michael VanHilst initial version 1 July 1989 * {1} Jay Travisano (STScI) VMS changes 10 Nov 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #ifndef SUN #include #endif #include /* stderr, NULL, etc. */ #ifndef VMS #include #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define SZ_FNAME */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/region.h" /* regdrawRec */ #include "hfiles/scale.h" /* SCALEOFF */ extern struct windowRec desktop; extern struct regdrawRec rgdraw; #ifndef PSCRIPT screen_dump () { (void)fprintf(stderr, "Compiled without PostScript support.\n"); return; } #else #define R_DISPOSE "lpr -Plw -r %s" /* printer dispose command */ #define P_DISPOSE "lpr -P%s -r %s" /* dispose to user's printer */ #define SEGSIZE 16 /* output segment size (bytes) */ #define SEGBITS (SEGSIZE*8) #define BITFLIP 0 /* bit-flip each byte for P.S.? */ #define NGREY 256 /* max color table size */ #define MARGIN 36 /* 0.5 inch */ #define PAGE_WIDTH 612 /* 8.5x11, 72pt/inch */ #define PAGE_HEIGHT 792 /* 8.5x11, 72pt/inch */ #define RT_DATA 'a' /* record type codes */ #define RT_ZERO 'b' #define RT_FULL 'c' #define RT_BKG1 'd' #define RT_BKG2 'e' #define BKGPAT_1 "22" /* atom for stipple pattern */ #define BKGPAT_2 "88" /* atom for stipple pattern */ static void bitmap_to_postscript(); static char *make_label(); static void black_border(); /* SCREENDUMP -- Make a hardcopy of the indicated region of the screen on a * hardcopy device. Currently only two output formats are supported, Sun * rasterfile output, or Postscript output for devices such as the Apple laser * writer. Postscript output is the default; rasterfile output is enabled * if the variable 'R_RASTERFILE' is defined in the environment, with the * string value being an sprintf format string with one decimal integer * argument, used to create the rasterfile filename (e.g., "frame.%d"). * The variable 'R_DISPOSE' may be defined to specify how the Postscript or * Sun rasterfile is to be disposed of. If 'R_DISPOSE' is not defined and * rasterfile output is specified, no dispose command will be issued. If the * variable is not defined and Postscript output is specified, the default * dispose command defined above will be executed. * */ void screen_dump ( nobuttons ) int nobuttons; /* i: omit-the-buttons from the output image */ { register int i; int width, height, area; unsigned char *obuf; unsigned char *zero; static int index = 0; /* count calls to produce unique file names */ char tempfile[80], dispose[80]; int depth=8; /* only bytes top PS dither is supported */ double wscale, hscale; double scale; int color_levels; /* number of color levels in hardare */ int status; int fd; char *str; FILE *fp; unsigned long draw_mask, draw_fore, draw_back; unsigned long menu_fore, menu_back; unsigned long incl_fore, incl_back; unsigned long excl_fore, excl_back; int filled; unsigned long fore, back; XImage *ximage; #ifndef SUN char *mktemp(); #endif char *calloc_errchk(), *getenv(); void close_disk(), clear_margins(), map_buf_repzoom(); void map_buf_subzoom(), disp_dispbox(), disp_panbox(); /* if you want to grab the server do it here */ /* suspend all screen interactions while processing */ /* get dimensions */ if( color.ncolors <= 1 ) { /* strategy: clear image, draw cursors, copy cursors, */ width = dispbox.width; height = dispbox.height; area = width * height; /* allocate a data buffer and the line-all-zeroes array */ if( ((obuf = (unsigned char *) calloc_errchk(area, sizeof(char), (char *)NULL)) == 0) || ((zero = (unsigned char *) calloc_errchk(height, sizeof(char), (char *)NULL)) == 0) ) { (void)fprintf(stderr, "Print failure: cannot allocate data buffers\n"); return; } if( coord.bd.clip ) { /* if image does not fill display buffer, do something about it */ clear_margins((unsigned char *)dispbox.image.data, &coord.bd, &coord.disp, 1, color.hard.std_white); } if( coord.bd.block < -1 ) map_buf_repzoom(&coord, (unsigned char *)obuf, buffer.shortbuf, buffer.scalemap + SCALEOFF); else map_buf_subzoom(&coord, (unsigned char *)obuf, buffer.shortbuf, buffer.scalemap + SCALEOFF, MAX(coord.bd.block, 1)); if( color.halftone.inverse == 0 ) { /* non-inverted image has high values dark */ register unsigned char *ptr = obuf; register unsigned char *obuf_end = obuf + area; do { *ptr = 255 - *ptr; } while( ++ptr < obuf_end ); } /* make the edge a black border */ black_border(obuf, width, height); } else { unsigned short *map; width = desktop.width; height = desktop.height; color_levels = DisplayCells(color.display, color.screen); if( nobuttons ) height -= btnbox.height; /* get byte image and convert to equivalent intensity */ /* allocate a val-to-intensity map and a this-line-all-zeroes array */ if( ((map = (unsigned short *) calloc_errchk(NGREY, sizeof(short), "print map")) == 0) || ((zero = (unsigned char *) calloc_errchk(height, sizeof(char), (char *)NULL)) == 0) ) { (void)fprintf(stderr, "Print failure: cannot allocate data buffers\n"); return; } { double rwght, gwght, bwght; XColor cdef[256]; int val; /* Black&White = (.35*Red +.55*Green + .10*Blue) */ /* scaling from 65536 to 256 requires /256 */ rwght = 0.35 / 256.0; gwght = 0.55 / 256.0; bwght = 0.10 / 256.0; for( i=0; i= 256 ) { map[i] = 255; } else if( val < 0 ) { map[i] = 0; } else { map[i] = val; } } } /* set cursor colors (for max contrast with background) */ map[color.hard.std_black] = 0; map[color.hard.std_white] = 255; if( map[color.pixvalmap[0]] < 128 ) { fore = color.hard.std_white; back = color.hard.std_black; } else { fore = color.hard.std_black; back = color.hard.std_white; } draw_mask = color.gcset.draw.mask; draw_fore = color.gcset.draw.foreground; draw_back = color.gcset.draw.background; menu_fore = color.gcset.menu.foreground; menu_back = color.gcset.menu.background; incl_fore = color.gcset.incl.foreground; incl_back = color.gcset.incl.background; excl_fore = color.gcset.excl.foreground; excl_back = color.gcset.excl.background; filled = rgdraw.filled_label; color.gcset.draw.mask = AllPlanes; color.gcset.draw.foreground = fore; color.gcset.draw.background = back; color.gcset.menu.foreground = fore; color.gcset.menu.background = back; color.gcset.incl.foreground = fore; color.gcset.incl.background = back; color.gcset.excl.foreground = fore; color.gcset.excl.background = back; rgdraw.filled_label = 1; /* redraw the display with this coloring */ XRaiseWindow(desktop.display, desktop.ID); disp_dispbox(); disp_panbox(); XSync(desktop.display, 0); /* read data direct from window (image starts at x/y + borderwidth) */ ximage = XGetImage(desktop.display, desktop.ID, 0, 0, desktop.width, desktop.height, AllPlanes, ZPixmap); color.gcset.draw.mask = draw_mask; color.gcset.draw.foreground = draw_fore; color.gcset.draw.background = draw_back; color.gcset.menu.foreground = menu_fore; color.gcset.menu.background = menu_back; color.gcset.incl.foreground = incl_fore; color.gcset.incl.background = incl_back; color.gcset.excl.foreground = excl_fore; color.gcset.excl.background = excl_back; rgdraw.filled_label = filled; disp_dispbox(); disp_panbox(); XSync(desktop.display, 0); if( ximage == NULL ) { (void)fprintf(stderr, "ERROR: could not read image\n"); return; } /* remap image values to monochrome intensities */ obuf = (unsigned char *)ximage->data; { register unsigned char *buf, *bufend, *ibuf; buf = obuf; if( nobuttons ) bufend = buf + (width * btnbox.y); else bufend = obuf + (width * desktop.height); do { *buf = map[*buf]; } while( ++buf < bufend ); if( nobuttons ) { ibuf = obuf + (width * (dispbox.y - 1)); bufend = obuf + (width * desktop.height); do { *buf++ = map[*ibuf]; } while( ++ibuf < bufend ); } } } /* make the edge a black border */ /* black_border(obuf, width, height); */ /* Create a temporary file to hold postscript program. */ /* add unique char (mkstemp doesn't avoid duplicating temp file names) */ #ifndef VMS sprintf(tempfile, "/tmp/ps%cXXXXXX", 'a' + index); #else sprintf(tempfile, "_ps%cXXXXXX.tmp", 'a' + index); #endif if( ++index > 26 ) index = 0; /* open a file with a system chosen unique name */ #ifdef SUN if( (fd = mkstemp(tempfile)) == -1 ) { perror("Cannot make temp file"); #else (void)mktemp(tempfile); /* open the file with a call to open with both write and create flags */ if( (fp = fopen(tempfile, "w")) == NULL ) { #endif (void)fprintf(stderr, "cannot create temporary file %s\n", tempfile); (void)fflush(stderr); } else { #ifdef SUN fp = fdopen(fd, "a"); #endif /* Autoscale to fit output page. */ wscale = ((double)PAGE_WIDTH - 2*MARGIN) / (double)width; hscale = ((double)PAGE_HEIGHT - 2*MARGIN) / (double)height; if( wscale < hscale ) scale = wscale; else scale = hscale; /* Translate the bitmap into a postscript program. */ bitmap_to_postscript(fp, obuf, width, height, depth, width, zero, scale); free((char *)zero); (void)fclose(fp); #ifdef SUN close_disk(fd, tempfile); #endif /* Dispose of tempfile to the printer. We leave it up to the dispose * command to delete the temporary file when finished. The dispose * command may be passed as an environment variable if desired, e.g., * to specify a printer device other than "lw" (laserwriter). */ if( (str = getenv("R_DISPOSE")) != NULL ) { sprintf(dispose, str, tempfile); } else if( (str = getenv("PRINTER")) != NULL ) { sprintf(dispose, P_DISPOSE, str, tempfile); } else sprintf(dispose, R_DISPOSE, tempfile); #ifndef VMS if( (status = system(dispose)) != 0 ) #else if( !((status = system(dispose)) & 1) ) #endif (void)fprintf(stderr, "screendump: exit status %d\n", status); } if( color.ncolors <= 1 ) free((char *)obuf); else (void)XDestroyImage(ximage); } /* BITMAP_TO_POSTSCRIPT -- Translate a memory bitmap into a postscript program * using image compression where regions of the image are all zeroes. This is * done as follows: [1] lines of the bitmap are divided into segments of N * bytes, [2] if all N bytes are zero a single zero byte is transmitted, * otherwise a byte with the value one is transmitted, followed by N bytes of * literal data. Lines which are entirely zero are not transmitted at all. * The goal is to significantly reduce the amount of data to be pushed through * the laserwriter serial interface while keeping things simple enough that * postscript will hopefully be able to process the bitmap efficiently. * * NOTE: Postscript is supposed to be able to copy bitmaps directly without * any transformations if all the right conditions are met, e.g., unitary * matrices, pixrect resolution matches device resolution, etc. We do not * make use of this here due to the great volume of data which would have to * pushed through the laserwriter serial interface at 9600 baud to transmit * a fully resolved bitmap. If a parallel interface were available, e.g., * if the laserwriter is on the ethernet, then this would be the way to go. */ static void bitmap_to_postscript (fp, bitmap, width, height, depth, linebytes, zero, scale) register FILE *fp; unsigned char *bitmap; int width, height, depth; int linebytes; unsigned char *zero; double scale; { register unsigned char *ip; register char *op, *hp; register int n; unsigned char *segp; char hbuf[NGREY*2]; char obuf[SEGSIZE*2]; char rt_full[SEGSIZE*2+1]; char bkg_1[SEGSIZE*2+1]; char bkg_2[SEGSIZE*2+1]; int partseg, seg, nsegs, allzeroes, i, j, last_j; int llx, lly, urx, ury; long clock; clock = time (0); /* Initialize the hbuf array, which contains the hex encoded * representations of the NGREY possible binary byte values. */ for (n=0, op=hbuf; n < NGREY; n++) { i = ((n >> 4) & 017); *op++ = (i < 10) ? i + '0' : (i-10) + 'A'; i = (n & 017); *op++ = (i < 10) ? i + '0' : (i-10) + 'A'; } /* Set up the background (stipple) pattern arrays, used to represent * the Sunview background pattern outside of windows. */ for (op=bkg_1, hp=BKGPAT_1, n=SEGSIZE; --n >= 0; ) { *op++ = hp[0]; *op++ = hp[1]; } *op++ = '\0'; for (op=bkg_2, hp=BKGPAT_2, n=SEGSIZE; --n >= 0; ) { *op++ = hp[0]; *op++ = hp[1]; } *op++ = '\0'; /* RT_FULL is a solid line, another common pattern. */ for (op=rt_full, n=SEGSIZE*2; --n >= 0; ) *op++ = 'F'; *op++ = '\0'; /* Initialize obuf, in case a partseg call causes the full buffer to * be written out before the garbage elements at the end have been * initialized to legal values. */ bcopy ((char *)rt_full, (char *)obuf, SEGSIZE*2); /* Calculate bounding box. */ llx = MARGIN; ury = PAGE_HEIGHT - MARGIN; urx = llx + (width * scale); lly = ury - (height * scale); /* Define the postscript necessary to receive and output the lines * of the pixrect with image compression. */ (void)fprintf(fp, "%%!PS-Adobe-2.0 EPSF-2.0\n"); (void)fprintf(fp, "%%%%Title: SAOimage screendump\n"); (void)fprintf(fp, "%%%%Creator: SAOimage\n"); (void)fprintf(fp, "%%%%CreationDate: %s", asctime(localtime(&clock))); (void)fprintf(fp, "%%%%PageOrientation: Portrait\n"); (void)fprintf(fp, "%%%%Pages: 1\n"); (void)fprintf(fp, "%%%%BoundingBox: %d %d %d %d\n", llx, MARGIN/2, urx, ury); (void)fprintf(fp, "%%%%DocumentFonts: Times-Roman\n"); (void)fprintf(fp, "%%%%DocumentNeededFonts: Times-Roman\n"); (void)fprintf(fp, "%%%%EndComments\n"); (void)fprintf(fp, "/r_data %d string def\n", SEGSIZE); (void)fprintf(fp, "/r_zero %d string def\n", SEGSIZE); (void)fprintf(fp, "/r_full %d string def\n", SEGSIZE); (void)fprintf(fp, "/r_bkg1 %d string def\n", SEGSIZE); (void)fprintf(fp, "/r_bkg2 %d string def\n", SEGSIZE); (void)fprintf(fp, "currentfile r_full readhexstring %s\n", rt_full); (void)fprintf(fp, "currentfile r_bkg1 readhexstring %s\n", bkg_1); (void)fprintf(fp, "currentfile r_bkg2 readhexstring %s\n", bkg_2); (void)fprintf(fp, "clear\n"); (void)fprintf(fp, "/dline {\n"); if (depth == 8) { (void)fprintf(fp, " %d div neg 0 exch translate\n", height); (void)fprintf(fp, " %d %d 8\n", width, 1); (void)fprintf(fp, " [ %d 0 0 %d 0 %d ]\n", width, -height, height); } else { (void)fprintf(fp," 0 exch translate %d %d true matrix\n", width, 1); } (void)fprintf(fp, " { currentfile read pop dup %d eq\n", RT_DATA); (void)fprintf(fp, " { pop currentfile r_data readhexstring pop }\n"); (void)fprintf(fp, " { dup %d eq\n", RT_ZERO); (void)fprintf(fp, " { pop r_zero }\n"); (void)fprintf(fp, " { dup %d eq\n", RT_FULL); (void)fprintf(fp, " { pop r_full }\n"); (void)fprintf(fp, " { %d eq\n", RT_BKG1); (void)fprintf(fp, " { r_bkg1 }\n"); (void)fprintf(fp, " { r_bkg2 }\n"); (void)fprintf(fp, " ifelse }\n"); (void)fprintf(fp, " ifelse }\n"); (void)fprintf(fp, " ifelse }\n"); (void)fprintf(fp, " ifelse\n"); if (depth == 8) (void)fprintf(fp, " } image} def\n"); else (void)fprintf(fp, " } imagemask} def\n"); (void)fprintf(fp, "%%%%EndProlog\n"); (void)fprintf(fp, "%%%%Page: 1 1\n"); (void)fprintf(fp, "gsave\n"); (void)fprintf(fp, "%d %d translate\n", llx, lly); (void)fprintf(fp, "%d %d scale\n", urx-llx, ury-lly); nsegs = width / (SEGBITS / depth); partseg = linebytes - (nsegs * SEGSIZE); /* Output successive lines of the pixrect. All zero lines are omitted * and data compression is used for large regions of zeroes embedded * within a line. */ for (j=0, last_j=0; j < height; j++) { if (zero[j]) continue; (void)fprintf(fp, "\n%d dline\n", j - last_j); last_j = j; /* Output an integral number of line segments in hexstring format, * i.e., two hex digits output per binary input byte. */ segp = bitmap + j*linebytes; for (seg=0; seg < nsegs; seg++, segp += SEGSIZE) { /* Quick scan of the data to see if it is all zeroes. */ allzeroes = 1; for (ip=segp, n=SEGSIZE; --n >= 0; ) if (*ip++) { allzeroes = 0; break; } if (allzeroes) { (void)putc(RT_ZERO, fp); } else { /* Encode the data segment in hex format. */ for( ip=segp, op=obuf, n=SEGSIZE; --n >= 0; ) { hp = hbuf + (*ip++ * 2); *op++ = *hp++; *op++ = *hp++; } if( (obuf[0] == rt_full[0]) && (strncmp(obuf, rt_full, SEGSIZE*2) == 0) ) { (void)putc(RT_FULL, fp); } else if( (obuf[0] == bkg_1[0]) && (strncmp(obuf, bkg_1, SEGSIZE*2) == 0) ) { (void)putc (RT_BKG1, fp); } else if( (obuf[0] == bkg_2[0]) && (strncmp(obuf, bkg_2, SEGSIZE*2) == 0) ) { (void)putc(RT_BKG2, fp); } else { (void)putc(RT_DATA, fp); (void)fwrite(obuf, SEGSIZE*2, 1, fp); } } } /* Write out any partial segment at the end of the line. We must * always write a full segment, even if the data at the end is * garbage, else synchronization will be lost. */ if (partseg) { for( op=obuf, n=partseg; --n >= 0; ) { hp = hbuf + (*ip++ * 2); *op++ = *hp++; *op++ = *hp++; } (void)putc(RT_DATA, fp); (void)fwrite(obuf, SEGSIZE*2, 1, fp); } } /* Add the [SAO] logo and timestamp at the bottom of the page and * output the page. */ (void)fprintf(fp, "\ngrestore\n"); (void)fprintf(fp, "/Times-Roman findfont 6 scalefont setfont\n"); if( img.filename != NULL ) { (void)fprintf(fp, "%d %d moveto\n", 2*MARGIN, MARGIN/2); (void)fprintf(fp, "(%s) show\n", img.filename); } (void)fprintf(fp, "%d %d moveto\n", width - 144, MARGIN/2); (void)fprintf(fp, "(%s) show\n", make_label()); (void)fprintf(fp, "showpage\n"); (void)fprintf(fp, "%%%%EOF\n"); } /* * Subroutine: make_label * Purpose: Generate the label for the output printer page. * Unix call: time(), gethostname(), getpwuid(), endpwent() */ static char *make_label() { static char buf[128]; char hostname[32]; char username[32]; #ifndef VMS struct passwd *pw; long time(); /* should be in time.h, but only VMS does it */ #else char *getenv(); #endif long clock; int gethostname(); clock = time((long *)0); (void)gethostname(hostname, 32); #ifndef VMS pw = getpwuid(getuid()); (void)strcpy(username, pw->pw_name); (void)endpwent(); #else (void)strcpy(username,getenv("USER")); #endif sprintf(buf, "SAOimage %s@%s %s", username, hostname, asctime(localtime(&clock))); return(buf); } static void black_border ( obuf, width, height ) unsigned char *obuf; int width, height; { register unsigned char *buf, *bufend; buf = obuf; bufend = buf + (width * height); while( (buf+=width) < bufend ) { *buf = 0; *(buf-1) = 0; } buf = bufend - width; while( ++buf < bufend ) *buf = 0; buf = obuf; bufend = buf + width; while( buf < bufend ) *buf++ = 0; } #endif saoimage-1.08/histdist.c 666 21641 13 15607 4613621656 10365 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: histdist.c (Histogram Equalize Distribute) * Subroutine: distribute_levels() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 May 1989 * {1} MVH fixed bug in range_zgroup 7 Dec 1989 * {n} -- -- */ #include #include "hfiles/histeq.h" /* define SubrangeLink */ /* * Subroutine: distribute_levels * Purpose: Distribute the levels among histogram sub-groups * Returns: number of groups with no assigned color levels */ int distribute_levels ( linklist, pixel_area, color_levels, pmin, pmax, ncolor ) SubrangeLink *linklist; int pixel_area, color_levels; int pmin, pmax, ncolor; { int average; int threshold; int excess; int levels, zeroes; int max_z_excess, max_nz_excess, max_z_range; SubrangeLink *subrange; #ifdef DEBUG int census = 0; #endif static int excess_zgroup(), excess_nzgroup(), range_zgroup(); /* if all one group (no strong peaks), allocation is simple */ if( linklist->next == 0 ) { linklist->color_levels = ncolor; return( 0 ); } /* average is rounded strongly upward to be stingy with levels */ average = (pixel_area / color_levels) + 1; subrange = linklist; zeroes = 0; max_z_excess = max_nz_excess = 0; max_z_range = 0; /* first pass, simple assignment and some note taking */ while( subrange != 0 ) { if( subrange->range > 0 ) { levels = subrange->pixel_area / average; excess = subrange->pixel_area - (levels * average); if( levels >= subrange->range ) { levels = subrange->range; subrange->range = -subrange->range; } else { if( levels == 0 ) { zeroes++; if( excess > max_z_excess ) max_z_excess = excess; if( subrange->range > max_z_range ) max_z_range = subrange->range; } else { if( excess > max_nz_excess ) max_nz_excess = excess; } } subrange->color_levels = levels; subrange->excess_pixels = excess; color_levels -= levels; #ifndef DEBUG } #else census += levels; } else ++census; #endif subrange = subrange->next; } /* second pass groups with no levels and vals or ranges above limits */ if( zeroes > 0 ) { /* groups with counts above 1/4 of average */ threshold = average / 4; while( (zeroes > 0) && (color_levels > 0) && (max_z_excess > threshold) ) { if( excess_zgroup(linklist, &max_z_excess, &max_z_range, average) ) { zeroes--; color_levels--; #ifndef DEBUG } #else census++; } else (void)fprintf(stderr, "Failed to find excess zero.\n"); #endif } /* groups with range above 2 * unequalized distribution */ threshold = MAX(((pmax - pmin) / 8) , 4); while( (zeroes > 0) && (color_levels > 0) && (max_z_range > threshold) ) { if( range_zgroup(linklist, &max_z_excess, &max_z_range, average) ) { zeroes--; color_levels--; #ifndef DEBUG } #else census++; } else (void)fprintf(stderr, "Failed to find range zero.\n"); #endif } } /* third pass, give away any remaining levels by highest excess */ #ifdef DEBUG if( color_levels != (ncolor - census) ) { (void)fprintf(stderr, "Allocation waste: %d level(s)\n", (ncolor - census) - color_levels); } #endif while( color_levels > 0 ) { if( (zeroes > 0) && (max_z_excess > max_nz_excess) ) { if( excess_zgroup(linklist, &max_z_excess, &max_z_range, average) ) { zeroes--; color_levels--; } #ifdef DEBUG else (void)fprintf(stderr, "Failed to find excess zero.\n"); #endif } else { if( excess_nzgroup(linklist, &max_nz_excess, average) ) color_levels--; #ifdef DEBUG else (void)fprintf(stderr, "Failed to find excess.\n"); #endif } } return( zeroes ); } /* * Subroutine: excess_zgroup * Purpose: Find subrange with zero allotted levels and specified excess. * Assign it one level */ static int excess_zgroup ( subrange, excess, range, average ) SubrangeLink *subrange; int *excess, *range; int average; { int max_excess, looking; max_excess = -32700; looking = 1; while( subrange != 0 ) { if( (subrange->color_levels == 0) && (subrange->range > 0) ) { if( looking && (subrange->excess_pixels == *excess) ) { if( subrange->range > 1 ) { subrange->color_levels = 1; } else { subrange->color_levels = 1; subrange->range = -1; } subrange->excess_pixels -= average; looking = 0; } else { if( subrange->excess_pixels > max_excess ) max_excess = subrange->excess_pixels; if( subrange->range > *range ) *range = subrange->range; } } subrange = subrange->next; } *excess = max_excess; return( !looking ); } /* * Subroutine: range_zgroup * Purpose: Find group with zero allotted levels and specified range. * Assign it one level. */ static int range_zgroup (subrange, excess, range, average) SubrangeLink *subrange; int *excess, *range; int average; { int max_range, looking; max_range = 0; looking = 1; while( subrange != 0 ) { if( (subrange->color_levels == 0) && (subrange->range > 0) ) { if( looking && (subrange->range == *range) ) { if( subrange->range > 1 ) { subrange->color_levels = 1; } else { subrange->color_levels = 1; subrange->range = -1; } subrange->excess_pixels -= average; looking = 0; } else { if( subrange->excess_pixels > *excess ) *excess = subrange->excess_pixels; if( subrange->range > max_range ) max_range = subrange->range; } } subrange = subrange->next; } *range = max_range; return( !looking ); } /* * Subroutine: excess_nzgroup * Purpose: Find group with non-zero allotted levels and specified * excess value. Assign it one additional level. */ static int excess_nzgroup ( subrange, excess, average ) SubrangeLink *subrange; int *excess; int average; { int looking, max_excess; looking = 1; max_excess = -32767; while( subrange != 0 ) { if( (subrange->color_levels > 0) && (subrange->range > 1) ) { if( looking && (subrange->excess_pixels == *excess) && (subrange->color_levels < subrange->range) ) { subrange->color_levels += 1; subrange->excess_pixels -= average; if( subrange->color_levels == subrange->range ) { subrange->color_levels = subrange->range; subrange->range = -subrange->range; } else { if( subrange->excess_pixels > max_excess ) max_excess = subrange->excess_pixels; } looking = 0; } else { if( subrange->excess_pixels > max_excess ) max_excess = subrange->excess_pixels; } } subrange = subrange->next; } *excess = max_excess; return( !looking ); } saoimage-1.08/display.c 666 21641 13 16006 4613615571 10170 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: display.c (Display) * Purpose: Draw images in their windows, including the main display * Subroutine: disp_window() returns: void * Subroutine: disp_dispbox() returns: void * Subroutine: map_dispbox() returns: void * Subroutine: clear_margins() returns: void * Xlib calls: XPutImage(), XSync(); * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define MIN, MAX, DONT_CARE, etc. */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ /* * Subroutine: disp_window * Purpose: Redraw the window's display image with no frills * Xlib call: XPutImage() */ void disp_window ( window ) struct windowRec *window; { GC gc, set_gc(), set_gc_with_background(); if( window->image.depth == 1 ) gc = set_gc_with_background(&(color.gcset.disp), color.gcset.disp.background); else gc = set_gc(&(color.gcset.disp)); XPutImage(window->display, window->ID, gc, &window->image, 0, 0, window->xzero, window->yzero, (unsigned int)window->xwidth, (unsigned int)window->yheight); } /* * Subroutine: disp_dispbox * Purpose: Redraw the dispbox window display including cursor graphics */ void disp_dispbox ( ) { void disp_window(), disp_regions(), disp_cursor(); /* put up the image */ disp_window(&dispbox); /* make sure image is up before proceeding */ XSync(dispbox.display, 0); /* redraw the region outlines (if visible is indicated) */ disp_regions(&cursor); /* redraw the cursor (if visible is indicated) */ disp_cursor(&cursor); } /* * Subroutine: map_dispbox * Purpose: Redraw the main display buffer from the short image buffer */ void map_dispbox ( ) { void unset_blink(), clear_margins(), map_buf_repzoom(), map_buf_subzoom(); void map_buf_repzoom_adj(), make_halftone_display(), map_buf_subzoom_adj(); /* restore original buffer if we were blinking */ unset_blink(); if( color.ncolors <= 1 ) { /* contstruct XYBitmap image */ dispbox.image.format = XYBitmap; dispbox.image.depth = 1; dispbox.image.bits_per_pixel = 1; dispbox.image.bytes_per_line = (dispbox.image.width + 7) / 8; make_halftone_display(); } else { /* construct ZPixmap image */ dispbox.image.format = ZPixmap; dispbox.image.depth = color.screen_depth; dispbox.image.bits_per_pixel = 8; dispbox.image.bytes_per_line = dispbox.image.width; if( coord.bd.clip ) { /* if image does not fill display buffer, do something about it */ clear_margins((unsigned char *)dispbox.image.data, &coord.bd, &coord.disp, 1, color.hard.std_white); } /* draw the image with the appropriate zoom */ #ifdef SUMBLOCK if( buffer.scalemap_summing != buffer.shortbuf_summing ) { /* compensate for loading shortbuf with differently summed values */ if( coord.bd.block < -1 ) map_buf_repzoom_adj(&coord, (unsigned char *)dispbox.image.data, buffer.shortbuf, buffer.scalemap + SCALEOFF, buffer.scalemap_summing, buffer.shortbuf_summing); else map_buf_subzoom_adj(&coord, (unsigned char *)dispbox.image.data, buffer.shortbuf, buffer.scalemap + SCALEOFF, MAX(coord.bd.block, 1), buffer.scalemap_summing, buffer.shortbuf_summing); } else { #endif /* no special compensation */ if( coord.bd.block < -1 ) map_buf_repzoom(&coord, (unsigned char *)dispbox.image.data, buffer.shortbuf, buffer.scalemap + SCALEOFF); else map_buf_subzoom(&coord, (unsigned char *)dispbox.image.data, buffer.shortbuf, buffer.scalemap + SCALEOFF, MAX(coord.bd.block, 1)); #ifdef SUMBLOCK } #endif } } /* * Subroutine: clear_margins * Purpose: Take action to indicate unfilled display margins */ void clear_margins ( destbuf, ab, bsys, clear, border_color ) unsigned char *destbuf; /* destination buffer */ Edges *ab; /* mapping parameters */ Coordsys *bsys; /* destination parameters */ int clear; /* clear unused part of buf */ register int border_color; /* color for outline */ { register int dest_width; int x1, x2, y1, y2; short dest_Xwdth; dest_width = bsys->width; dest_Xwdth = ab->dstXwdth; x1 = ab->dstX1; x2 = bsys->X2i - ab->dstX2; y1 = ab->dstY1; y2 = bsys->Y2i - ab->dstY2; /* if unused buffer is to be cleared */ if( clear ) { /* if image leaves gap at top - clear top of buffer */ if( y1 > 0 ) { bzero((char *)destbuf, y1 * dest_width); } /* if image leaves a gap at the bottom - clear bottom of buffer */ if( y2 > 0 ) { bzero((char *)destbuf + ((y1 + ab->dstYhght) * dest_width), y2 * dest_width); } /* if image leaves gap on either side */ if( (x1 > 0) || (x2 > 0) ) { register unsigned char *dest; register int count; register int xtot; xtot = x1 + x2; dest = destbuf + (y1 * dest_width); /* clear first line on left */ if( x1 > 0 ) { bzero((char *)dest, x1); } dest += x1 + dest_Xwdth; count = ab->dstYhght; /* repeatedly clear right and left together */ while( --count > 0 ) { /* clear combination of line on right continued into line on left */ bzero((char *)dest, xtot); dest += dest_width; } /* clear last line on right */ if( x2 > 0 ) { bzero((char *)dest, x2); } } } /* if a border is to be drawn on exposed edges */ if( border_color != DONT_CARE ) { if( x1 > 0 ) { register unsigned char *dest; register int count; dest = destbuf + ((y1 * dest_width) + x1 - 1); count = ab->dstYhght; while( count-- > 0 ) { *dest = border_color; dest += dest_width; } ++dest_Xwdth; --x1; } if( x2 > 0 ) { register unsigned char *dest; register int count; dest = destbuf + ((y1 * dest_width) + ab->dstX2 + 1); count = ab->dstYhght; while (count-- > 0) { *dest = border_color; dest += dest_width; } ++dest_Xwdth; } if( y1 > 0 ) { register unsigned char *dest; register unsigned char *displimit; dest = destbuf + (((y1 - 1) * dest_width) + x1); displimit = dest + dest_Xwdth; while (dest < displimit) { *(dest++) = border_color; } } if( y2 > 0 ) { register unsigned char *dest; register unsigned char *displimit; dest = destbuf + (((ab->dstY2 + 1) * dest_width) + x1); displimit = dest + dest_Xwdth; while( dest < displimit ) { *(dest++) = border_color; } } } } saoimage-1.08/grphbtmp.c 666 21641 13 17236 4613616450 10351 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphbtmp.c (Color Graph Bitmap) * Purpose: Create the halftone colorbar * Subroutine: make_halftone_colorbar() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 7 July 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" #include "hfiles/constant.h" /* define codes */ extern struct colorRec color; /* * Subroutine: make_halftone_panimage * Purpose: Make halftone bitmap for pan window (panbox) */ void make_halftone_colorbar ( bytedata, bitdata, width, height, bytes_per_line ) unsigned char *bytedata; unsigned char *bitdata; int width, height; int bytes_per_line; { static void byte_dither_sample(), byte_diffuse_sample(); bzero((char *)bitdata, bytes_per_line * height); if( color.halftone.mode == BOP_Dither ) { byte_dither_sample(bytedata, width, 1, bitdata, bytes_per_line, 0, 0, width, height, color.pixvalmap, color.halftone.matrix); } else if( color.halftone.mode == BOP_Diffuse ) { byte_diffuse_sample(bytedata, width, 1, bitdata, bytes_per_line, 0, 0, width, height, color.pixvalmap, color.halftone.errbuf); } } /* * Subroutine: byte_dither_sample * Purpose: Perform subsampling and dithering to produce a bitmap image * from 16 bit signed data through a scaling lookup table. * Used when bitmap is same size or smaller than data image. * Method: Sample every zoom'th data element in each direction * Note: This is a copy of the disp dither code but for byte data */ static void byte_dither_sample ( byte_data, data_width, zoom, bitmap, bytes_per_line, x, y, width, height, lookup, dither_matrix ) unsigned char *byte_data; int data_width; int zoom; unsigned char *bitmap; int bytes_per_line; int x, y, width, height; register unsigned long *lookup; short *dither_matrix; { register unsigned char *data; /* ptr to current data input */ register short *matrix; /* ptr to current dither value */ register unsigned char *bitmap_byte; /* ptr to current output byte */ register int bitmap_bit; /* current bit in current output byte */ unsigned char *data_row; short *matrix_row; short *matrix_row_end; short *matrix_end; unsigned char *data_row_end; unsigned char *bitmap_row; short x_step; short y_step; short bitmap_first_bit; short i; /* point register pointer to data buffer */ data_row = byte_data; bitmap_row = bitmap + (y * bytes_per_line) + (x / 8); bitmap_first_bit = x & 7; /* same as %8 */ matrix_row = dither_matrix; matrix_row_end = matrix_row + 16; matrix_end = matrix_row + 256; x_step = zoom; y_step = data_width * x_step; /* process one row at a time */ if( color.halftone.inverse ) { for( i = 0; i < height; i++ ) { matrix = matrix_row; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; /* process through the row */ while( data < data_row_end ) { if( lookup[*data] <= *matrix ) *bitmap_byte |= 1 << bitmap_bit; data += x_step; ++matrix; /* check for next byte */ if( ++bitmap_bit == 8 ) { bitmap_bit = 0; ++bitmap_byte; if( matrix >= matrix_row_end ) matrix = matrix_row; } } bitmap_row += bytes_per_line; data_row += y_step; matrix_row = matrix_row_end; matrix_row_end += 16; if( matrix_row >= matrix_end ) { matrix_row = matrix; matrix_row_end = matrix_row + 16; } } } else { for( i = 0; i < height; i++ ) { matrix = matrix_row; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; /* process through the row */ while( data < data_row_end ) { if( lookup[*data] > *matrix ) *bitmap_byte |= 1 << bitmap_bit; data += x_step; ++matrix; /* check for next byte */ if( ++bitmap_bit == 8 ) { bitmap_bit = 0; ++bitmap_byte; if( matrix >= matrix_row_end ) matrix = matrix_row; } } bitmap_row += bytes_per_line; data_row += y_step; matrix_row = matrix_row_end; matrix_row_end += 16; if( matrix_row >= matrix_end ) { matrix_row = matrix; matrix_row_end = matrix_row + 16; } } } } /* * Subroutine: byte_diffuse_sample * Purpose: Perform subsampling and error diffusion to produce a bitmap * image from 16 bit signed data through a scaling lookup table. * Used when bitmap is same size or smaller than data image. * Method: Sample every zoom'th data element in each direction * Note: This is a copy of the DispDiffuse code but for byte data */ static void byte_diffuse_sample ( byte_data, data_width, zoom, bitmap, bytes_per_line, x, y, width, height, lookup, errbuf ) unsigned char *byte_data; int data_width; int zoom; unsigned char *bitmap; int bytes_per_line; int x, y, width, height; register unsigned long *lookup; short *errbuf; { register int val; register short *error; register unsigned char *data; register unsigned char *bitmap_byte; register int maxval; unsigned char *bitmap_row; unsigned char *data_row; unsigned char *data_row_end; short error0; short bitmap_bit; short bitmap_first_bit; short x_step, y_step; short i; data_row = byte_data; bitmap_row = bitmap + (y * bytes_per_line) + (x / 8); bitmap_first_bit = x & 7; /* same as %8 */ /* halftone standard of 256 levels */ maxval = 256; error0 = 0; /* subsample line skipping */ x_step = zoom; y_step = data_width * zoom; if( color.halftone.inverse ) { /* go through each row of the bitmap */ for( i = 0; i < height; i++ ) { error = errbuf; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; while( data < data_row_end ) { /* val is data value plus average of error remnants */ val = lookup[*data] + ((*error + error0 + error[1] + error[2]) >> 2); /* save earlier error */ error0 = *(++error); /* replace old error with this error */ if( val < maxval ) { *bitmap_byte |= 1 << bitmap_bit; *error = val; } else *error = val - maxval; data += x_step; /* update word and bit pointers */ if( ++bitmap_bit > 7 ) { bitmap_byte++; bitmap_bit = 0; } } data_row += y_step; /* advance to next line in bitmap_byte */ bitmap_row += bytes_per_line; } } else { /* go through each row of the bitmap */ for( i = 0; i < height; i++ ) { error = errbuf; data = data_row; data_row_end = data + width; bitmap_byte = bitmap_row; bitmap_bit = bitmap_first_bit; while( data < data_row_end ) { /* val is data value plus average of error remnants */ val = lookup[*data] + ((*error + error0 + error[1] + error[2]) >> 2); /* save earlier error */ error0 = *(++error); /* replace old error with this error */ if( val >= maxval ) { *bitmap_byte |= 1 << bitmap_bit; *error = val - maxval; } else *error = val; data += x_step; /* update word and bit pointers */ if( ++bitmap_bit > 7 ) { bitmap_byte++; bitmap_bit = 0; } } data_row += y_step; /* advance to next line in bitmap_byte */ bitmap_row += bytes_per_line; } } } saoimage-1.08/grphdraw.c 666 21641 13 12442 4613616573 10344 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphdraw.c (Color Graph Draw) * Purpose: Draw color graph lines * Subroutine: draw_colorbar() returns: void * Subroutine: draw_cgraph() returns: void * Subroutine: highlight_active_cgraph_vertex() returns: void * Subroutine: install_draw_queue_end() returns: void * Subroutine: replace_draw_queue_end() returns: void * Xlib calls: XPutImage(), XDrawLines(), XDrawRectangles(), XFillRectangles() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 June 1989 * {1} MVH added graphbox colorbar to draw_colorbar 21 Oct 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ #include "hfiles/cgraph.h" /* color graph structs */ extern struct cgraphRec cgraph; extern struct colbarRec colorbar; /* * Subroutine: draw_colorbar * Purpose: Put the color bar on the screen * Xlib calls: XPutImage() */ void draw_colorbar ( graph ) int graph; /* i: graphbox colorbar, else colorbox colorbar */ { GC gc, set_gc(), set_gc_with_background(); if( cgraph.ncolors > 1 ) gc = set_gc(cgraph.disp); else gc = set_gc_with_background(cgraph.disp, cgraph.disp->background); if( graph ) XPutImage(cgraph.bar.display, cgraph.bar.ID, gc, cgraph.bar.image, 0, 0, 0, 0, cgraph.bar.width, cgraph.bar.height); else XPutImage(colorbar.display, colorbar.ID, gc, colorbar.image, 0, 0, 0, 0, colorbar.width, colorbar.height); } /* * Subroutine: draw_cgraph * Purpose: Draw the cgraph graph lines and hash marks * Xlib calls: XDrawLines(), XDrawRectangles() */ void draw_cgraph ( redo, highlight ) int redo; /* i: recalculate-all-line-coordinates */ int highlight; /* i: highlight-vertex-hash-being-manipulated */ { int i; GC gc, set_gc(); int set_cgraph_hash(); void mark_colorline_overlap(); void highlight_active_cgraph_vertex(), set_cgraph_line(); if( cgraph.inactive ) return; XClearWindow(cgraph.graph.display, cgraph.graph.ID); for( i=0; iunset ) { if( cgraph.queue[i]->table->do_gamma ) set_cgraph_line(cgraph.queue[i]->table->gammamap, cgraph.queue[i]->line); else set_cgraph_line(cgraph.queue[i]->table->cellmap, cgraph.queue[i]->line); cgraph.queue[i]->hash_0 = set_cgraph_hash(cgraph.queue[i]->table, cgraph.queue[i]->hash, &cgraph.queue[i]->hash_cnt); cgraph.queue[i]->unset = 0; } gc = set_gc(cgraph.queue[i]->draw); XDrawLines(cgraph.graph.display, cgraph.graph.ID, gc, cgraph.queue[i]->line, cgraph.point_cnt, CoordModeOrigin); } /* draw the hash marks */ for( i=0; ihash_cnt ) { gc = set_gc(cgraph.queue[i]->draw); XDrawRectangles(cgraph.graph.display, cgraph.graph.ID, gc, cgraph.queue[i]->hash, cgraph.queue[i]->hash_cnt); } } if( highlight ) highlight_active_cgraph_vertex(); else mark_colorline_overlap(); } /* * Subroutine: highlight_active_cgraph_vertex * Purpose: Draw active hash mark as filled box * Xlib calls: XFillRectangles() */ void highlight_active_cgraph_vertex ( ) { GCspec *draw; XRectangle *hash = NULL; if( cgraph.red.active ) { hash = &cgraph.red.hash[cgraph.red.active_hash]; draw = cgraph.red.draw; } if( cgraph.green.active ) { if( hash == NULL ) { hash = &cgraph.green.hash[cgraph.green.active_hash]; draw = cgraph.green.draw; } else draw = cgraph.black; } if( cgraph.blue.active ) { if( hash == NULL ) { hash = &cgraph.blue.hash[cgraph.blue.active_hash]; draw = cgraph.blue.draw; } else draw = cgraph.black; } if( hash != NULL ) { GC gc, set_gc(); gc = set_gc(draw); XFillRectangles(cgraph.graph.display, cgraph.graph.ID, gc, hash, 1); } } /* * Subroutine: install_draw_queue_end * Purpose: Installed newly active line to be last drawn */ void install_draw_queue_end ( col ) struct colgRec *col; { if( cgraph.queue_cnt != 3 ) return; if( cgraph.queue[2] == col ) { return; } else if( cgraph.queue[1] == col ) { cgraph.queue[1] = cgraph.queue[2]; cgraph.queue[2] = col; } else if( cgraph.queue[0] == col ) { cgraph.queue[0] = cgraph.queue[1]; cgraph.queue[1] = cgraph.queue[2]; cgraph.queue[2] = col; } } /* * Subroutine: replace_draw_queue_end * Purpose: Replace end of the draw queue when end color is no longer * active */ void replace_draw_queue_end ( ) { struct colgRec *col; if( cgraph.queue_cnt != 3 ) return; if( cgraph.queue[1]->active ) { col = cgraph.queue[2]; cgraph.queue[2] = cgraph.queue[1]; cgraph.queue[1] = cgraph.queue[0]; cgraph.queue[0] = col; } else if( cgraph.queue[0]->active ) { col = cgraph.queue[2]; cgraph.queue[2] = cgraph.queue[0]; cgraph.queue[0] = col; } } saoimage-1.08/editline.c 666 21641 13 12621 4617467226 10325 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: editline.c (Editor Line) * Purpose: Manipulate the popup editor character string * Subroutine: insert_chars() returns: void * Subroutine: delete_chars_backward() returns: void * Subroutine: delete_chars_forward() returns: void * Subroutine: next_word_end() returns: int * Subroutine: last_word_end() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 July 1989 * {n} -- -- */ #include #include #include "hfiles/edit.h" /* * Subroutine: insert_chars * Purpose: Insert new characters into the edit line * Returns: Number of characters inserted */ void insert_chars ( edit, str, len ) EditStruct *edit; char *str; int len; { int i, j; void redraw_after_insert(); /* check for end of buffer */ if( (edit->char_cnt + len) > edit->max_char_cnt ) { (void)fprintf(stderr, "Line buffer full!\n"); if( edit->char_cnt < edit->max_char_cnt ) { len = edit->max_char_cnt - edit->char_cnt; } else return; } /* move later characters forward */ for( i = edit->char_cnt, j = i + len; i >= edit->active_position; i--, j-- ) { edit->charsz[j] = edit->charsz[i]; edit->string[j] = edit->string[i]; } /* insert new characters */ for( j = 0, ++i; j < len; j++, i++ ) { edit->string[i] = str[j]; edit->charsz[i] = XTextWidth(edit->fontstruct, &str[j], 1); edit->pixlen[i+1] = edit->pixlen[i] + edit->charsz[i]; } edit->char_cnt += len; edit->active_position += len; /* update running lengths */ for( i--; i <= edit->char_cnt; i++ ) edit->pixlen[i+1] = edit->pixlen[i] + edit->charsz[i]; redraw_after_insert(edit, len); } /* * Subroutine: delete_chars_backward * Purpose: Delete characters before the active position */ void delete_chars_backward ( edit, len ) EditStruct *edit; int len; { int i, j; void redraw_after_delete(); /* delete before beginning of line? */ if( len > edit->active_position ) { (void)fprintf(stderr, "Beginning of line!\n"); if( edit->active_position > 0 ) len = edit->active_position; else return; } /* move later characters backward */ for( i = edit->active_position, j = i - len; i <= edit->char_cnt; i++, j++ ) { edit->charsz[j] = edit->charsz[i]; edit->string[j] = edit->string[i]; } edit->char_cnt -= len; edit->active_position -= len; /* update running lengths */ for( i=edit->active_position; i<=edit->char_cnt; i++ ) edit->pixlen[i+1] = edit->pixlen[i] + edit->charsz[i]; redraw_after_delete(edit); } /* * Subroutine: delete_chars_forward * Purpose: Delete characters from the active position forward */ void delete_chars_forward ( edit, len ) EditStruct *edit; int len; { int i, j; void redraw_after_delete(); /* delete beyond end of line? */ if( (edit->active_position + len) > edit->char_cnt ) { if( edit->active_position < edit->char_cnt ) len = edit->char_cnt - edit->active_position; else return; } /* move later characters backward */ for( j = edit->active_position, i = j + len; i <= edit->char_cnt; i++, j++ ) { edit->charsz[j] = edit->charsz[i]; edit->string[j] = edit->string[i]; } edit->char_cnt -= len; /* update running lengths */ for( i=edit->active_position; i<=edit->char_cnt; i++ ) edit->pixlen[i+1] = edit->pixlen[i] + edit->charsz[i]; redraw_after_delete(edit); } /* * Subroutine: next_word_end * Returns: The distance from the active position to the next space * following a character (or the end of the line) */ int next_word_end ( edit ) EditStruct *edit; { int i; for( i=edit->active_position; (i < edit->char_cnt) && ((edit->string[i] == ' ') || (edit->string[i] == '/') || (edit->string[i] == ',') || (edit->string[i] == '.') || (edit->string[i] == ';') || (edit->string[i] == ':')); i++ ); /* string[char_cnt]==' ', so loop will stop there, if nowhere else */ if( i < edit->char_cnt ) { while( (edit->string[i] != ' ') && (edit->string[i] != '/') && (edit->string[i] != ',') && (edit->string[i] != '.') && (edit->string[i] != ';') && (edit->string[i] != ':') ) i++; } return( i - edit->active_position ); } /* * Subroutine: last_word_start * Returns: The distance from the active position to the first character * following a space found in a backward search (or the start of * the line) */ int last_word_start ( edit ) EditStruct *edit; { int i; if( edit->active_position == 0 ) return( 0 ); for( i = edit->active_position - 1; (i >= 0) && ((edit->string[i] == ' ') || (edit->string[i] == '/') || (edit->string[i] == ',') || (edit->string[i] == '.') || (edit->string[i] == ';') || (edit->string[i] == ':')); i-- ); if( i >= 0 ) { while( (i >= 0) && ((edit->string[i] != ' ') && (edit->string[i] != '/') && (edit->string[i] != ',') && (edit->string[i] != '.') && (edit->string[i] != ';') && (edit->string[i] != ':')) ) i--; } return( (i+1) - edit->active_position ); } saoimage-1.08/sclmap.c~ 666 21641 13 27151 5564733607 10212 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: sclmap.c (Scale Map) * Purpose: Map image values to display screen values using various * functions * Subroutine: make_scalemap() returns: void * Copyright: 1993 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {2} Doug Mink find range from histogram 10 November 1993 * {n} -- -- */ #include /* get stderr, NULL, etc. */ #include /* get the math definitions */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ #ifndef SUN #define expm1(a) (exp(a)-1) #endif /* * Subroutine: make_scalemap * Purpose: Make scale map according to type selected * Note: Map goes from image value to hardware value (through ideal * map value using pixels array from XAllocColors) */ void make_scalemap ( image_min, image_max ) int image_min, image_max; /* i: range of mapping for image data input */ { void histogram_equalize(); static void linear_scale(), wrap_scale(), sqrt_scale(), log_scale(); /* note the range of data for which mapping is to be calculated */ if( image_max == image_min ) ++image_max; if( image_max < image_min ) { int temp; temp = image_max; image_max = image_min; image_min = temp; } { /* fill in map below min with mincolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[0]; for( imageval = -32768; imageval < image_min; imageval++ ) lookup[imageval] = pixval; } /* create the image map straight or with some form of scaling */ switch( color.scale.mode ) { case SOP_HistEq: /* if there are levels to distribute, call the routine, else do the next */ if( color.ncolors < (image_max - image_min) ) { histogram_equalize(buffer.scalemap + SCALEOFF, buffer.histogram + SCALEOFF, buffer.hist_area, image_min, image_max, color.ncolors, color.pixvalmap); break; } /* fall through to linear if there is nothing to distribute */ case SOP_Linear: linear_scale(image_min, image_max); break; case SOP_Wrap: wrap_scale(image_min, image_max); /* don't fill in the top of map */ return; case SOP_Sqrt: sqrt_scale(image_min, image_max); break; case SOP_Log: log_scale(image_min, image_max); break; default: (void)fprintf(stderr,"Unknown scaling type request!\n"); } { /* fill in top of map with maxcolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[color.ncolors - 1]; for( imageval = image_max; imageval < 32768; imageval++ ) lookup[imageval] = pixval; } } /* * Subroutine: linear_scale * Purpose: Distribute color levels in the map evenly */ static void linear_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double upper_bound; int maxcolor; int level; int range_min, range_max; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; static void get_histogram_range(); range_min = image_min; range_max = image_max; if (buffer.cmdMax <= buffer.cmdMin && !img.imtool_200) { get_histogram_range (buffer.histogram, &range_min, &range_max); } lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ scale = (double)(range_max - range_min + 1) / (double)color.ncolors; imageval = image_min; pixval = pixels[0]; /* fill in at bottom if range_min > image_min */ while( imageval < range_min ) lookup[imageval++] = pixval; /* upper bound is ideal edge between colors (offset for rounding) */ upper_bound = range_min + 0.5; level = 0; while( level++ < maxcolor ) { upper_bound += scale; imagelim = (int)upper_bound; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if range_max < image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: wrap_scale * Purpose: Create the image map with a repeating linear scale * Note: Levels below image_min are not mapped */ static void wrap_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double range; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ imagelim = (image_max - image_min + 1) / color.scale.wrap_cnt; scale = (double)imagelim / (double)color.ncolors; /* start at image_min with color level = 0 */ imageval = image_min; level = 0; /* use range as floating point boundary between levels */ range = (double)imageval; while( imageval < 32768 ) { do { /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; range += scale; imagelim = (int)(range + 0.5); if( imagelim >= 32768 ) imagelim = 32767; do { lookup[imageval] = pixval; } while( ++imageval <= imagelim ); if( imageval >= 32768 ) return; } while( ++level <= maxcolor ); /* pixval at level 0 lowest color again */ level = 0; } } /* * Subroutine: sqrt_scale * Purpose: Distribute color levels in the map by a root or power function. * Method: (level / maxlevel) ranges from 0 to 1. Raise to a power. * Result curves from 0 to 1. Map result directly back to * pixel value. */ static void sqrt_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double range; double power; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; power = color.scale.root_power; ncolors = (double)color.ncolors; range = image_max - image_min + 1; imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { imagelim = image_min + (int) ((pow(((double)level / ncolors), power) * range) + 0.5); /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: log_scale * Purpose: Distribute color levels in the map by a logorithmic or * exponential curve (powers of e). */ static void log_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double expo; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; expo = color.scale.log_expo; ncolors = (double)color.ncolors; /* base distribution on e**n as n goes from 0 to expo (expm1 is exp()-1) */ if( color.scale.log_expo >= 0 ) { scale = (double)(image_max - image_min + 1) / expm1(expo); } else { /* negative exponents allocate more levels toward the high values */ scale = (double)(image_max - image_min + 1) / (1.0 - exp(expo)); } imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { if( expo > 0 ) { imagelim = image_min + (int) ((expm1(((double)level / ncolors) * expo) * scale) + 0.5); } else { imagelim = image_min + (int) ((1.0-exp(((double)level / ncolors) * expo) * scale) + 0.5); } /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: get_histogram_range * Purpose: Find a range from the peak of the pixel value distribution */ static void get_histogram_range ( histogram, imin, imax) int *histogram; int *imin; /* minimum pixel value */ int *imax; /* maximum pixel value */ { register int *hist; register int vmin; register int i; register int minhist, maxhist; float lfrac; int vpeak; int ipeak, ppeak; int pmin, pmax; int hwidth,hoff; /* offset hist to zero (+32768 or 0x8000) */ hist = histogram + SCALEOFF; /* find histogram peak */ maxhist = SCALEMAX; minhist = SCALEMIN; vpeak = 0; ipeak = 0; for( i = minhist; (i <= maxhist); i++ ) { if (hist[i] > vpeak) { ipeak = i; vpeak = hist[i]; } } /* Convert peak from histogram bin to pixel value */ if ( img.fiscaled ) ppeak = ((float) ipeak * img.fiscale) + img.fibias; else ppeak = ipeak; /* Find first pixel value at peak of histogram - lfrac */ i = ipeak; if ( buffer.lfrac > 0 ) lfrac = buffer.lfrac; else lfrac = 0.01; vmin = hist[ipeak] * lfrac; *imin = minhist; for (i = ipeak; i > minhist; i--) { if (hist[i] > 0 && hist[i] < vmin) { *imin = i+1; break; } } /* Convert range minimum from histogram bin to pixel value */ if ( img.fiscaled ) pmin = ((float) *imin * img.fiscale) + img.fibias; else pmin = *imin; /* Find last pixel value at peak of histogram - lfrac */ *imax = maxhist; for (i = ipeak; i < maxhist; i++) { if (hist[i] > 0 && hist[i] < vmin) { *imax = i - 1; break; } } /* Convert range maximum from histogram bin to pixel value */ if ( img.fiscaled ) pmax = ((float) *imax * img.fiscale) + img.fibias; else pmax = *imax; (void)printf("Linear display autoscaled from %d to %d\n", pmin, pmax); if (control.verbose) (void)printf("Limits at %5.3f of most common value = %d\n", lfrac, ppeak); return; } saoimage-1.08/Readme 666 21641 13 1061 5561242712 7446 This is Doug Mink's revision of SAOIMAGE, completed May 2, 1994. It is identical to NOAO's version 1.07 with two differences: 1: Version 1.08 autoscales images linearly between limits set as a fraction of the peak histogram value. Version 1.07 scales linearly between the minimum and maximum images values, often producing a black initial image. 2: Version 1.08 correctly displays floating point FITS images on machines, such as Decstations, where the byte order is the reverse of the FITS byte order. Copies of the changed files are in the New directory. saoimage-1.08/shfile.c 666 21641 13 4577 5003371657 7765 #include #include #include #include #include "hfiles/image.h" #include "hfiles/extern.h" static int x0,y0,x1,y1; /* Add this pixel to the current pixel list */ addpixel (x, y) int x, y; { int ipos, strlen(); char line[11]; FILE *stream; char *pixlist; len = strlen (image->filename); if ((reglist = malloc(len+7)) == NULL) { fprintf(stderr,"Can't allocate %d byte reglist\n",len+7); exit(1); } strncpy (pixlist,image->filename,len); pixlist[len] = 0; strcat (imageinfo->pixlist,".plist"); /* Open file to append */ if ((stream = fopen (pixlist,"a")) == NULL ) { fprintf (stderr,"Can't open file for pixel list %s\n",pixlist); return; } /* Write this point to end of file */ fprintf (stream,"%5d %5d\n",x,y); fclose (stream); fprintf (stderr,"Col %d, Row %d added to pixel list\n", x,y); if (pixlist != NULL) free (pixlist); return; } /* Save this pixel position as first region corner */ addreg1 (x, y) int x, y; { x0 = x; y0 = y; fprintf (stderr,"Col %d, Row %d lower left of region\n", x,y); return; } /* Save this pixel position as second region corner */ addreg2 (x, y) int x, y; { x1 = x; y1 = y; fprintf (stderr,"Col %d, Row %d upper right of region\n", x,y); return; } /* write the position and intenity out into the zoom text subwindow */ /* Add current region to the current region list file */ addregion () { FILE *stream; int x,y; char *reglist; len = strlen (image->filename); if ((reglist = malloc(len+7)) == NULL) { fprintf(stderr,"Can't allocate %d byte reglist\n",len+7); exit(1); } strncpy (reglist,image->filename,len); reglist[len] = 0; strcat (imageinfo->reglist,".rlist"); /* Open file to append */ if ((stream = fopen (imageinfo->reglist,"a")) == NULL ) { fprintf (stderr,"Can't open file for region list %s\n",imageinfo->reglist); return; } if (x1 < x0) { x = x1; x1 = x0; x0 = x; } if (y1 < y0) { y = y1; y1 = y0; y0 = y; } /* Write this region to end of file */ fprintf (stream,"%5d %5d %5d %5d\n",x0, x1, y0, y1); fclose (stream); fprintf (stderr,"(%d %d) (%d %d) region marked\n",x0, y0, x1, y1); /* Reset corners to 0 */ x0 = 0; x1 = 0; y0 = 0; y1 = 0; if (reglist != NULL) free (reglist); return; } saoimage-1.08/shfile.c~ 666 21641 13 3747 5003371241 10146 #include #include #include #include #include "image.h" #include "hfiles/extern.h" static int x0,y0,x1,y1; static char *pixlist; static char *reglist; /* Add this pixel to the current pixel list */ addpixel (x, y) int x, y; { int ipos, strlen(); char line[11]; FILE *stream; len = strlen (image->filename); if ((reglist = malloc(len+7)) == NULL) { fprintf(stderr,"Can't allocate %d byte reglist\n",len+7); exit(1); } /* Open file to append */ if ((stream = fopen (imageinfo->pixlist,"a")) == NULL ) { fprintf (stderr,"Can't open file for pixel list %s\n",imageinfo->pixlist); return; } /* Write this point to end of file */ fprintf (stream,"%5d %5d\n",x,y); fclose (stream); fprintf (stderr,"Col %d, Row %d added to pixel list\n", x,y); return; } /* Save this pixel position as first region corner */ addreg1 (x, y) int x, y; { x0 = x; y0 = y; fprintf (stderr,"Col %d, Row %d lower left of region\n", x,y); return; } /* Save this pixel position as second region corner */ addreg2 (x, y) int x, y; { x1 = x; y1 = y; fprintf (stderr,"Col %d, Row %d upper right of region\n", x,y); return; } /* write the position and intenity out into the zoom text subwindow */ /* Add current region to the current region list file */ addregion () { FILE *stream; int x,y; /* Open file to append */ if ((stream = fopen (imageinfo->reglist,"a")) == NULL ) { fprintf (stderr,"Can't open file for region list %s\n",imageinfo->reglist); return; } if (x1 < x0) { x = x1; x1 = x0; x0 = x; } if (y1 < y0) { y = y1; y1 = y0; y0 = y; } /* Write this region to end of file */ fprintf (stream,"%5d %5d %5d %5d\n",x0, x1, y0, y1); fclose (stream); fprintf (stderr,"(%d %d) (%d %d) region marked\n",x0, y0, x1, y1); /* Reset corners to 0 */ x0 = 0; x1 = 0; y0 = 0; y1 = 0; return; } saoimage-1.08/editinit.c 666 21641 13 15107 4617467131 10336 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: editinit.c (Editor Initialization) * Subroutine: get_edit_struct() returns: EditStruct * * Subroutine: init_edit_struct() returns: void * Subroutine: load_edit_string() returns: void * Subroutine: load_edit_struct() returns: void * Subroutine: store_edit_struct() returns: void * Subroutine: recall_edit_struct() returns: void * Subroutine: clear_edit_buf() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 July 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {2} MVH load_edit_string() without save 18 March 1990 * {n} -- -- */ #include #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include #include "hfiles/edit.h" /* * Subroutine: get_edit_struct * Returns: Newly allocated popup editor structure */ EditStruct *get_edit_struct ( max_char_cnt ) int max_char_cnt; { EditStruct *edit; char *editbuf; int line_sz, i; char *calloc_errchk(); /* set line_sz to first int boundary after (maxchar + 1) */ line_sz = ((max_char_cnt + sizeof(int)) / sizeof(int)) * sizeof(int); editbuf = calloc_errchk(1, (unsigned int)sizeof(EditStruct) + (line_sz * (((STACK_SZ + 2) * sizeof(int)) + STACK_SZ + 1)), (char *)NULL); if( editbuf == NULL ) return( NULL ); edit = (EditStruct *)editbuf; editbuf += sizeof(EditStruct); edit->string = editbuf; for( i=0; ibuf[i].string = editbuf; } editbuf += line_sz; line_sz = line_sz * sizeof(int); edit->pixlen = (int *)editbuf; editbuf += line_sz; edit->charsz = (int *)editbuf; for( i=0; ibuf[i].charsz = (int *)editbuf; } edit->max_char_cnt = max_char_cnt; edit->pixlen[0] = 0; return( edit ); } /* * Subroutine: init_edit_struct * Purpose: Initialize font and drawing info for popup editor structure */ void init_edit_struct ( display, w, edit, fontstruct, foreground, background ) Display *display; /* i: display which has popup window */ Window w; /* i: popup window */ EditStruct *edit; /* i: struct for edit strings */ XFontStruct *fontstruct; /* i: info about the font */ unsigned long foreground; /* i: needed for text GC */ unsigned long background; { edit->display = display; edit->ID = w; edit->fontstruct = fontstruct; edit->font = fontstruct->fid; edit->foreground = foreground; edit->background = background; edit->area_height = fontstruct->max_bounds.ascent + fontstruct->max_bounds.descent; if( edit->charsz[0] == 0 ) { edit->string[0] = ' '; edit->charsz[0] = XTextWidth(fontstruct, edit->string, 1); edit->pixlen[1] = edit->charsz[0]; } edit->stack_cnt = 0; edit->stack_index = -1; } /* * Subroutine: load_edit_string * Purpose: Store a passed string in the current string buffer */ void load_edit_string ( edit, string, char_cnt ) EditStruct *edit; char *string; int char_cnt; { int i; if( char_cnt >= edit->max_char_cnt ) char_cnt = edit->max_char_cnt - 1; (void)strncpy(edit->string, string, char_cnt); edit->char_cnt = char_cnt; edit->string[char_cnt] = ' '; edit->string[char_cnt+1] = '\0'; for( i=0; i<=char_cnt; i++ ) { edit->charsz[i] = XTextWidth(edit->fontstruct, &(edit->string[i]), 1); edit->pixlen[i+1] = edit->pixlen[i] + edit->charsz[i]; } if( edit->pixlen[char_cnt + 1] > edit->max_pixlen ) edit->oversize = 1; else edit->oversize = 0; } /* * Subroutine: load_edit_struct * Purpose: Store a passed string in the editor storage stack * Note: Also makes it the default entry * Exception: Assume no other stored strings (erases any) */ void load_edit_struct ( edit, string, char_cnt ) EditStruct *edit; char *string; int char_cnt; { void store_edit_struct(), load_edit_string(); load_edit_string(edit, string, char_cnt); store_edit_struct(edit); } /* * Subroutine: recall_edit_struct * Purpose: Retrieve a line from the storage stack */ void recall_edit_struct ( edit, next, clear ) EditStruct *edit; int next; int clear; /* next <0 clears current string */ { int i, char_cnt; void clear_edit_buf(); if( next >= edit->stack_cnt ) { edit->stack_index = edit->stack_cnt - 1; return; } else if( next < 0 ) { if( clear ) clear_edit_buf (edit); edit->stack_index = -1; return; } char_cnt = edit->buf[next].char_cnt; edit->char_cnt = char_cnt; bcopy(edit->buf[next].string, edit->string, char_cnt + 1); bcopy((char *)edit->buf[next].charsz, (char *)edit->charsz, (char_cnt + 1) * sizeof(int)); for( i=0; i<=char_cnt; i++ ) { edit->pixlen[i+1] = edit->pixlen[i] + edit->charsz[i]; } if( edit->pixlen[edit->char_cnt + 1] > edit->max_pixlen ) edit->oversize = 1; else edit->oversize = 0; edit->active_position = 0; edit->stack_index = next; } /* * Subroutine: store_edit_struct * Purpose: Put current line in the store stack */ void store_edit_struct ( edit ) EditStruct *edit; { int *charsz, i; char *string; if( edit->stack_cnt < STACK_SZ ) (edit->stack_cnt)++; charsz = edit->buf[edit->stack_cnt-1].charsz; string = edit->buf[edit->stack_cnt-1].string; for( i=edit->stack_cnt-1; i>0; i-- ) { edit->buf[i].char_cnt = edit->buf[i-1].char_cnt; edit->buf[i].charsz = edit->buf[i-1].charsz; edit->buf[i].string = edit->buf[i-1].string; } edit->buf[0].char_cnt = edit->char_cnt; edit->buf[0].charsz = charsz; edit->buf[0].string = string; bcopy(edit->string, string, edit->char_cnt + 1); bcopy((char *)edit->charsz, (char *)charsz, (edit->char_cnt + 1) * sizeof(int)); edit->active_position = edit->char_cnt; edit->stack_index = -1; } /* * Subroutine: clear_edit_buf * Purpose: Set edit buffer string to no characters */ void clear_edit_buf ( edit ) EditStruct *edit; { edit->string[0] = edit->string[edit->char_cnt]; edit->charsz[0] = edit->charsz[edit->char_cnt]; edit->pixlen[1] = edit->charsz[0]; edit->char_cnt = 0; edit->active_position = 0; } saoimage-1.08/editemcs.c 666 21641 13 10350 4613616100 10301 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: editemcs.c (Editor Emacs) * Purpose: Provide EMACS like response for popup line editor * Subroutine: emacs_response() returns: int * Xlib calls: XLookupString() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 July 1989 * {n} -- -- */ #include #include #include #include #include "hfiles/edit.h" #define MAX_MAPPED_STRING_LENGTH 16 #define MetaMask Mod1Mask /* * Subroutine: emacs_response * Purpose: Respond to keys in emacs fashion * Returns: 1 on event indicating entry, -1 on cancel, else 0 * Xlib calls: XLookupString() */ int emacs_response ( xkey, edit ) XKeyEvent *xkey; EditStruct *edit; { KeySym keysym; XComposeStatus compose; int char_cnt; static int escape = 0; static int bufsize = MAX_MAPPED_STRING_LENGTH; char buffer[MAX_MAPPED_STRING_LENGTH]; void place_edit_cursor(), move_edit_cursor(), clear_edit_buf(); void delete_chars_forward(), delete_chars_backward(), insert_chars(); void store_edit_struct(), recall_edit_struct(), draw_new_string(); int next_word_end(), last_word_start(); /* decode the key event to ascii */ char_cnt = XLookupString(xkey, buffer, bufsize, &keysym, &compose); /* ignore modifier key pressing */ if( (keysym >= XK_Shift_L) && (keysym <= XK_Hyper_R) ) return( 0 ); /* escape char ignores modifiers */ if( (xkey->state & MetaMask) || escape ) { escape = 0; switch( keysym ) { case XK_d: case XK_D: delete_chars_forward(edit, next_word_end(edit)); break; case XK_f: case XK_F: move_edit_cursor(edit, next_word_end(edit)); break; case XK_b: case XK_B: move_edit_cursor(edit, last_word_start(edit)); default: return( 0 ); } } else if( (xkey->state & ControlMask) || (keysym >= 0xF000) ) { /* check for control function */ if( (xkey->state & ControlMask) && ((keysym < XK_A) || (keysym > XK_z)) ) return( 0 ); if( (keysym >= 0xF000) && (xkey->state & (ControlMask | MetaMask)) ) return( 0 ); switch( keysym ) { case XK_A: case XK_a: case XK_Begin: place_edit_cursor(edit, 0); break; case XK_B: case XK_b: case XK_BackSpace: case XK_Left: move_edit_cursor(edit, -1); break; case XK_C: case XK_c: /* restore the string to how we started, then exit */ recall_edit_struct(edit, 0, 1); return( -1 ); case XK_D: case XK_d: delete_chars_forward(edit, 1); break; case XK_E: case XK_e: case XK_End: place_edit_cursor(edit, edit->char_cnt); break; case XK_F: case XK_f: case XK_Right: move_edit_cursor(edit, 1); break; case XK_G: case XK_g: escape = 0; break; case XK_K: case XK_k: delete_chars_forward(edit, edit->char_cnt - edit->active_position); break; case XK_P: case XK_p: case XK_Up: case XK_Prior: recall_edit_struct(edit, edit->stack_index + 1, 0); draw_new_string(edit, 1); break; case XK_N: case XK_n: case XK_Next: recall_edit_struct(edit, edit->stack_index - 1, 1); draw_new_string(edit, 1); break; case XK_Down: recall_edit_struct(edit, edit->stack_index - 1, 0); draw_new_string(edit, 1); break; case XK_T: case XK_t: break; case XK_Tab: break; case XK_Clear: clear_edit_buf(edit); draw_new_string(edit, 1); break; case XK_Linefeed: case XK_Return: if( edit->char_cnt > 0 ) store_edit_struct(edit); return( 1 ); case XK_Escape: escape = 1; break; case XK_Delete: delete_chars_backward(edit, 1); break; default: break; } } else if( (char_cnt > 0) && (buffer[0] >= ' ') ) { insert_chars(edit, buffer, char_cnt); } return( 0 ); } saoimage-1.08/editrdrw.c 666 21641 13 13763 4613616150 10350 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: editrdrw.c (Editor Redraw) * Purpose: Move cursor and redraw the line after editing * Subroutine: move_edit_cursor() returns: void * Subroutine: place_edit_cursor() returns: void * Subroutine: redraw_after_delete() returns: void * Subroutine: redraw_after_insert() returns: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 July 1989 * {n} -- -- */ #include #include #include "hfiles/edit.h" /* * Subroutine: move_edit_cursor */ void move_edit_cursor ( edit, movement ) EditStruct *edit; int movement; { void place_edit_cursor(); place_edit_cursor(edit, edit->active_position + movement); } /* * Subroutine: place_edit_cursor */ void place_edit_cursor ( edit, new_position ) EditStruct *edit; int new_position; { int first_char, nchars; int size, i; void draw_edit_string(), draw_edit_cursor(); if( new_position < 0 ) new_position = 0; if( new_position > edit->char_cnt ) new_position = edit->char_cnt; if( edit->oversize ) { if( new_position < edit->first_char_shown ) { first_char = new_position; edit->first_char_shown = new_position; size = edit->pixlen[first_char] + edit->max_pixlen; for( i = edit->char_cnt; edit->pixlen[i] > size; i-- ); nchars = i - first_char; edit->active_position = new_position; draw_edit_string(edit, first_char, 0, nchars); } else if( new_position > edit->last_char_shown ) { size = edit->pixlen[new_position + 1] - edit->max_pixlen; for( i = 0; edit->pixlen[i] < size; i++ ); first_char = i; edit->first_char_shown = i; nchars = 1 + new_position - i; edit->active_position = new_position; draw_edit_string(edit, first_char, 0, nchars); } else { draw_edit_cursor(edit, 1); edit->active_position = new_position; draw_edit_cursor(edit, 0); } } draw_edit_cursor (edit, 1); edit->active_position = new_position; draw_edit_cursor (edit, 0); } /* * Subroutine: redraw_after_delete * Purpose: Update the displayed string after character deletion * Note: Characters not moved are not redrawn * Note: Characters after any change are redrawn. If proportional * spacing font is used, they might need it. */ void redraw_after_delete ( edit ) EditStruct *edit; { int i; int first_char, first_x, nchars; int size, excess; void draw_edit_string(); /* this section covers deciding what to print */ first_char = edit->active_position; first_x = edit->pixlen[first_char]; nchars = 1 + edit->char_cnt - edit->active_position; if( edit->oversize ) { /* line was oversized before */ if( (edit->pixlen[edit->active_position+1] <= edit->max_pixlen) ) { /* line is no longer oversized */ edit->oversize = 0; first_char = 0; first_x = 0; nchars = edit->char_cnt + 1; edit->first_char_shown = 0; } else { /* line is still oversized */ if( edit->active_position < edit->first_char_shown ) /* active position moves back before section shown */ edit->first_char_shown = edit->active_position; size = edit->pixlen[edit->first_char_shown] + edit->max_pixlen; if( (excess = size - edit->pixlen[edit->char_cnt+1]) > edit->charsz[edit->first_char_shown - 1]) { /* offset section ends short of end of window (space for more chars) */ for( i = edit->first_char_shown - 1; (i >= 0) && (excess > edit->charsz[i]); i-- ) excess -= edit->charsz[i]; /* move first_char_shown to use up entire space */ edit->first_char_shown = i + 1; first_char = edit->first_char_shown; nchars = 1 + edit->char_cnt - first_char; } else { /* line will run beyond space, determine how many chars will fit */ for( i = edit->char_cnt; edit->pixlen[i+1] > size; i-- ); nchars = 1 + i - first_char; } first_x = edit->pixlen[edit->first_char_shown] - edit->pixlen[first_char]; } } draw_edit_string(edit, first_char, first_x, nchars); } /* * Subroutine: redraw_after_insert * Purpose: Update the displayed string after character insertion * Note: Insertion is assumed to be directly before active position * Note: Characters not moved are not redrawn * Note: Characters after any change are redrawn. If proportional * spacing font is used, they might need it. */ void redraw_after_insert ( edit, insert_cnt ) EditStruct *edit; int insert_cnt; /* i: number of characters just inserted */ { int i; int first_char, first_x, nchars; int excess, size; void draw_edit_string(); if( edit->pixlen[edit->char_cnt + 1] > edit->max_pixlen ) { edit->oversize = 1; if( (edit->pixlen[edit->active_position + 1] - edit->pixlen[edit->first_char_shown]) > edit->max_pixlen ) { /* first_char_shown must be moved up to put active position in display */ excess = edit->pixlen[edit->active_position + 1] - edit->max_pixlen; for( i=0; (i < edit->char_cnt) && (edit->pixlen[i] < excess); i++ ); edit->first_char_shown = i; first_char = i; nchars = 1 + edit->active_position - i; } else { /* first_char_shown can stay in place, which chars must be drawn? */ first_char = edit->active_position - insert_cnt; size = edit->max_pixlen + edit->pixlen[edit->first_char_shown]; for( i = edit->char_cnt; edit->pixlen[i] > size; i-- ); nchars = 1 + i - first_char; } first_x = edit->pixlen[first_char] - edit->pixlen[edit->first_char_shown]; } else { first_char = edit->active_position - insert_cnt; nchars = 1 + edit->char_cnt - first_char; first_x = edit->pixlen[first_char]; } draw_edit_string(edit, first_char, first_x, nchars); } saoimage-1.08/grphctrl.c 666 21641 13 15553 4613616525 10356 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphctrl.c (Color Graph Control) * Purpose: Manipulate the color graph * Subroutine: map_graphbox() returns: void * Subroutine: display_graphbox() returns: void * Subroutine: control_cgraph() returns: void * Xlib calls: XUnmapWindow(), XMapWindow() * Xlib calls: XSync(), XCheckWindowEvent(), XStoreColors() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 June 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cgraph.h" #define BUTTONMASK (Button1Mask|Button2Mask|Button3Mask) #define EVENTMASK (ButtonPressMask|ButtonReleaseMask|ButtonMotionMask) #include "defs/cgraph.def" /* declare the cgraph struct */ /* * Subroutine: map_graphbox * Purpose: Varify size and get everything set when mapping the graphbox * Xlib calls: XUnmapWindow(), XMapWindow() */ void map_graphbox ( ) { int init; void create_graphbox(), display_graphbox(); if( graphbox.active ) { XUnmapWindow(graphbox.display, graphbox.ID); graphbox.active = 0; cgraph.inactive = 1; } else { if( graphbox.ID == NULL ) { init = 1; create_graphbox(); } else init = 0; XMapWindow(graphbox.display, graphbox.ID); display_graphbox(init, 1); } } /* * Subroutine: display_graphbox * Purpose: Put up the graphbox when it is mapped or reexposed */ void display_graphbox ( init, wait ) int init; /* i: initialize graphbox parameters */ int wait; /* i: wait for result of mapping before getting dimensions */ { void draw_colorbar(), draw_cgraph(), label_colorbar(); void get_window_dimensions(), adjust_color_graph(), init_color_graph_label(); void init_graph_colorbar(), adjust_graph_colorbar(), label_color_graph(); get_window_dimensions(&graphbox, wait, 1); graphbox.active = 1; cgraph.inactive = 0; if( init ) { init_color_graph_label(); adjust_color_graph(); init_graph_colorbar(); } else { adjust_color_graph(); adjust_graph_colorbar(); } draw_cgraph(1, 0); label_color_graph(); label_colorbar(); draw_colorbar(1); } /* * Subroutine: control_cgraph * Purpose: Mouse controlled interaction to alter color table. * Called by: control_event_loop in MainEvent.c * Xlib calls: XSync(), XCheckWindowEvent(), XStoreColors() */ void control_cgraph ( ) { static int not_active = 1; static int oldmode = MOP; int drop_cgraph_vertex(); void draw_cgraph(), move_cgraph_vertices(), get_cgraph_vertex(); void highlight_active_cgraph_vertex(), make_cellstore_from_tables(); void replace_draw_queue_end(); /* make sure this an event which we want */ if( (control.event.xbutton.window != cgraph.graph.ID) && (control.priority == 0) ) return; /* we assume this event was meant to be fielded exclusively here */ control.completed = 1; switch( control.event.type ) { case MotionNotify: /* get only the most recent move */ XSync(dispbox.display, 0); while( XCheckWindowEvent(cgraph.graph.display, cgraph.graph.ID, ButtonMotionMask, &control.event) ); if( (control.event.xmotion.state & BUTTONMASK) == 0 ) { /* if no buttons are down, we must be done */ control.priority = 0; control.mode = oldmode; return; } /* alter table(s) and graph */ move_cgraph_vertices(control.event.xmotion.x, control.event.xmotion.y); /* make color cellmap and send colors to the display */ make_cellstore_from_tables(&color); XStoreColors(color.display, color.colormap, color.cellstore, color.ncolors); /* shift will cause the graph to track the changes as well */ if( ((control.event.xmotion.state & (ShiftMask | LockMask)) !=0) ^ (control.tracking !=0) ) draw_cgraph (0, 1); break; case ButtonPress: /* if one of the three mouse buttons was pressed */ if( (control.event.xbutton.state & BUTTONMASK) == 0 ) { /* if no mouse button was previously down */ if( control.event.xbutton.state & ControlMask ) { /* lone button with control key means delete vertex */ if( drop_cgraph_vertex(&control.event) == 0 ) /* if nothing is deleted, do nothing */ return; } else if( (control.event.xbutton.button == Button1) || (control.event.xbutton.button == Button2) || (control.event.xbutton.button == Button3) ) { /* first button to grab a vertex starts priority mode */ oldmode = control.mode; control.mode = GOP; /* events to send through here in any case */ control.priority = EVENTMASK; } else { return; } } else if( not_active || (control.event.xbutton.state & ControlMask) ) /* don't respond if things don't look right */ return; /* if this was not a delete command, it is a grab vertex command */ if( (control.event.xbutton.state & ControlMask) == 0 ) { not_active = 0; get_cgraph_vertex(&control.event); } /* make color cellmap and send colors to the display */ make_cellstore_from_tables(&color); XStoreColors(color.display, color.colormap, color.cellstore, color.ncolors); /* redraw the graph with newly grabbed vertex */ draw_cgraph(0, 1); highlight_active_cgraph_vertex(); break; case ButtonRelease: /* draw the color graph when any button is released */ draw_cgraph(0, 0); switch( control.event.xbutton.button ) { case Button1: cgraph.red.active = 0; if( (control.event.xbutton.state & BUTTONMASK) == Button1Mask ) not_active = 1; else if( cgraph.queue[2] == &cgraph.red ) replace_draw_queue_end(); break; case Button2: cgraph.green.active = 0; if( (control.event.xbutton.state & BUTTONMASK) == Button2Mask ) not_active = 1; else if( cgraph.queue[2] == &cgraph.green ) replace_draw_queue_end(); break; case Button3: cgraph.blue.active = 0; if( (control.event.xbutton.state & BUTTONMASK) == Button3Mask ) not_active = 1; else if( cgraph.queue[2] == &cgraph.blue ) replace_draw_queue_end(); break; } if( not_active ) { /* if the last button was just released */ control.priority = 0; control.mode = oldmode; } else /* if there are still active vertices, rehighlight them */ highlight_active_cgraph_vertex(); break; default: /* this event was not meant for us */ control.completed = 0; break; } } saoimage-1.08/mainbffr.c 666 21641 13 20153 5470231547 10304 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mainbffr.c (Main Buffers) * Purpose: Allocate or reallocate large buffers * Subroutine: init_imaging buffers() returns: void * Subroutine: init_display_buffers() returns: void * Subroutine: init_colorbarbuf() returns: void * Subroutine: init_panbuf() returns: void * Subroutine: init_dispbuf() returns: void * Subroutine: init_imagebuf() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 25 May 1989 * {1} MVH fix in init_imagebuf to note square buf 4 April 1990 * {n} -- -- */ #include /* get stderr, NULL, etc */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define MIN, MAX, etc. */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ /* * Subroutine: init_imaging_buffers * Purpose: Allocate major buffers used for imaging */ void init_imaging_buffers () { char *calloc_errchk(); int init_imagebuf(); buffer.scalemap = (unsigned char *) calloc_errchk(SCALEBUFSZ, sizeof(char), "scaling map"); buffer.histogram = (int *) calloc_errchk(SCALEBUFSZ, sizeof(int), "histogram table"); (void)init_imagebuf (); } /* * Subroutine: init_display_buffers * Purpose: Allocate buffers used for each window's display */ void init_display_buffers () { void init_panbuf(), init_dispbuf(); init_panbuf(); init_dispbuf(); } /* * Subroutine: init_panbuf * Purpose: Allocate or reallocate panbox display buffers */ void init_panbuf () { int buf_sz; char *calloc_errchk(); buf_sz = panbox.xwidth * panbox.yheight; /* test if the current buffers are adequate, else allocate or reallocate */ if( buf_sz > buffer.panbuf_sz ) { if( buffer.panbuf != NULL ) free( (char *)buffer.panbuf ); if( panbox.image.data != NULL ) { free( panbox.image.data ); panbox.image.data = NULL; panbox.data_size = 0; } /* reserve exact window sized buffer for the panbox short integer image */ buffer.panbuf = (short *) calloc_errchk(buf_sz, sizeof(short), "Panbox map"); buffer.panbuf_sz = buf_sz; /* reserve buffer for the panbox display image */ if( color.screen_depth <= 1 ) { /* if only bitmap will be used */ panbox.image.bytes_per_line = (panbox.xwidth + 7) / 8; buf_sz = panbox.image.bytes_per_line * panbox.yheight; } panbox.image.data = calloc_errchk(buf_sz, sizeof(char), "Panbox display"); panbox.data_size = buf_sz; } panbox.image.width = panbox.xwidth; panbox.image.height = panbox.yheight; } /* * Subroutine: init_dispbuf * Purpose: Allocate or reallocate dispbox display buffer */ void init_dispbuf () { int buf_sz; char *calloc_errchk(); void set_coordsys(), set_tdisp(); dispbox.image.width = dispbox.xwidth; dispbox.image.height = dispbox.yheight; if( color.screen_depth <= 1 ) { /* if only bitmap will be used */ dispbox.image.bytes_per_line = (dispbox.xwidth + 7) / 8; buf_sz = dispbox.image.bytes_per_line * dispbox.yheight; } else buf_sz = dispbox.xwidth * dispbox.yheight; /* test if the current buffer is adequate, else allocate or reallocate */ if( buf_sz > dispbox.data_size ) { if( dispbox.image.data != NULL ) free( dispbox.image.data ); dispbox.image.data = calloc_errchk(buf_sz, sizeof(char), "Display image"); dispbox.data_size = buf_sz; } /* set the display coord system and propose new display parameters */ set_coordsys(&coord.disp, 0.5, (int)dispbox.width, (int)dispbox.height, dispbox.xzero, dispbox.yzero, dispbox.xzero + dispbox.xwidth - 1, dispbox.yzero + dispbox.yheight - 1); /* complete tdi parameters, must already have center and zoom */ set_tdisp(&coord); } /* * Subroutine: init_imagebuf * Purpose: Allocate or reallocate main image buffer to fit img or as * much as allowed. Also allocate file data buffer if data * cannot be read directly into i*2 buf. * Returns: 1 on success, else 0. * Post-state: buffer.load_filebuf set to 0 if alloc's failed. * Method: Try to allocate enough for entire given image subsection. * If the display is to be rotated, make the short buf square * or double (whichever is less). * Parameters: * buffer: i/o: record structure for imaging buffers * coord.img: i: coordinate system of image or image subsection * coord.buf: o: coordinate system of short integer image buffer */ static char imgbuf_error[] = "Unable to allocate sufficient memory for requested image.\n"; int init_imagebuf () { int width, height; int img_sz, buf_sz; int shortbuf_double = 0; int shortbuf_square = 0; int did_alloc = 0; char *calloc_errchk(); void set_coordsys(); /* calculate buffer size, use img if within limit, else use limit */ width = coord.img.width; height = coord.img.height; img_sz = width * height; /* if image is to be rotated 90% (aspect ratio changed) */ if( img.rotate_code & 1 ) { /* make short buffer square or double for rotation algorithm */ buf_sz = SQR(MAX(width, height)); if( buf_sz > (2 * img_sz) ) { buf_sz = 2 * img_sz; shortbuf_double = 1; } else shortbuf_square = 1; } else buf_sz = img_sz; /* buf_sz is in shorts, img_sz will now be in bytes (as is filebuf_sz) */ img_sz *= img.bytepix; /* free filebuf if unique and inadequate, or unneeded */ if( buffer.filebuf == (char *)buffer.shortbuf ) { buffer.filebuf = NULL; buffer.filebuf_sz = 0; } else if( (buffer.filebuf != NULL) && ((img.bytepix <= 2) || (img_sz > buffer.filebuf_sz)) ) { free( buffer.filebuf ); buffer.filebuf = NULL; buffer.filebuf_sz = 0; } /* check the adequacy of current short integer image buf */ if( buf_sz > buffer.shortbuf_sz ) { if( buffer.shortbuf != NULL ) free( (char *)buffer.shortbuf ); buffer.shortbuf = (short *)calloc_errchk(buf_sz, sizeof(short), NULL); if( buffer.shortbuf == 0 ) { /* if failed, clear the slate, report error, and continue */ buffer.shortbuf_sz = 0; if( buffer.filebuf != NULL ) { free( buffer.filebuf ); buffer.filebuf = NULL; buffer.filebuf_sz = 0; } (void)fprintf(stderr, imgbuf_error); buffer.load_filebuf = 0; return( 0 ); } buffer.shortbuf_sz = buf_sz; did_alloc = 1; } /* check on file data buf (if it still exists, it must be adequate) */ if( buffer.filebuf == NULL ) { if( img.bytepix > 2 ) { /* force worst case allignment */ buffer.filebuf = calloc_errchk((img_sz + 7) / 8, 8, NULL); if( buffer.filebuf == NULL ) { /* if failed, clear the slate, report error, and continue */ buffer.filebuf_sz = 0; free( (char *)buffer.shortbuf ); buffer.shortbuf = NULL; buffer.shortbuf_sz = 0; fputs (imgbuf_error, stderr); buffer.load_filebuf = 0; return( 0 ); } buffer.filebuf_sz = img_sz; did_alloc++; } else { /* no special input buffer needed */ buffer.filebuf = (char *)buffer.shortbuf; /* shortbuf_sz is shorts, filebuf_sz is bytes */ buffer.filebuf_sz = buffer.shortbuf_sz * sizeof(short); } } /* note rotation space status */ buffer.shortbuf_double = shortbuf_double; buffer.shortbuf_square = shortbuf_square; /* set basic buffer coord system parameters (fill buffer) */ set_coordsys(&coord.buf, 0.5, width, height, 0, 0, width - 1, height - 1); /* flag that buffer must be loaded */ coord.buferror = 1; buffer.load_filebuf = 1; /* report buffer size */ if( control.verbose && did_alloc ) { (void)printf("Reserved %d x %d image data buffer", width, height); if( did_alloc > 1 ) (void)printf("s.\n"); else (void)printf(".\n"); } return( 1 ); } saoimage-1.08/imgcheck.c 666 21641 13 14200 4617470005 10262 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: imgcheck.c (Image Check) * Purpose: Check parameters for consistency and check image file size * Subroutine: check_image() returns: int * Xlib calls: none * Unix calls: stat() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Eric Mandel, M VanHilst initial version 9 January 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* define sqrt */ #include #include /* define stat */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/image.h" #include "hfiles/cmdparse.h" /* define parse status bits */ /* * Subroutine: check_image * Purpose: Do some consistency checks on image type and size * Returns: 0 if no errors found, else -1 */ int check_image ( img, got_status ) struct imageRec *img; int got_status; { int len; static int check_array(); /* if no image type given, check name suffix or assume an array */ if( (got_status & CMD_FTYPE) == 0 ) { if( img->filename != NULL ) { len = strlen(img->filename); if( strcmp(&img->filename[len - 5], ".fits") == 0 ) { img->file_type = SOP_FITS; #ifdef OIF } else if( strcmp(&img->filename[len - 4], ".imh") == 0 ) { img->file_type = SOP_IRAF; #endif } else img->file_type = SOP_Array; } else /* if no name, default */ img->file_type = SOP_Logo; } /* check for file existence and validity early on */ if( (img->file_type != SOP_Imtool) && (img->file_type != SOP_PROS) && (img->file_type != SOP_Logo) && (img->filename != NULL) ) { struct stat statbuf; if( stat(img->filename, &statbuf) <0 ) { (void)fprintf(stderr, "Error: cannot access image: %s\n", img->filename); perror(img->filename); return( -1 ); } } /* for arrays, we can make some checks and some calculations */ if( img->file_type == SOP_Array ) { if( check_array(img) <0 ) { return( -1 ); } } /* conflicting zoom factors? */ if( img->fdblock == 0 ) { img->fdblock = img->fiblock; } else if( (img->fdblock < img->fiblock) && ((img->fdblock % img->fiblock) != 0) ) { (void)fprintf(stderr, "Error: incompatible display and buffer zooms\n"); return( -1 ); } /* if we are dealing with fits files on a little endian (vax), swap bytes */ #ifdef LSB /* Standard FITS images are fixed order (not in native order to VAX) */ if( img->file_type == SOP_FITS ) img->byte_swap = !img->byte_swap; #endif return( 0 ); } /* * Subroutine: check_array * Purpose: Check array size vs file size etc * Returns: 0 if size determined and/or OK, else -1 */ static int check_array ( img ) struct imageRec *img; { long fsize; long arrsize; float posdim; /* possible dimension */ int headersize; /* size in bytes of header */ int rawsize; static long size_imagefile(); /* get header size */ headersize = img->headersize; /* get file size */ fsize = size_imagefile(img, headersize, &rawsize); /* we might be able to figure out the dimensions for a square */ if( (img->filerows == 0) || (img->filecols == 0) ) { /* if there is an image data type specified, try it */ if( img->storage_type != ARR_None ){ posdim = (int)sqrt((double)fsize); if( fsize == (posdim * posdim) ){ img->filecols = (int)posdim; img->filerows = (int)posdim; } else { (void)fprintf(stderr, "File size neither given nor square: %d (%d)\n", rawsize, fsize); return( -1 ); } } else { /* check 2, 4 byte data size */ /* check for I2 default */ fsize /= 2; posdim = (int)sqrt((double)fsize); if( fsize == (posdim * posdim) ){ img->storage_type = ARR_I2; } else { /* check for R4 default */ fsize /= 2; posdim = (int)sqrt((double)fsize); if( fsize == (posdim * posdim) ){ img->storage_type = ARR_R4; } else { (void)fprintf(stderr, "File size not square I2 or R4: %d (%d)\n", rawsize, rawsize - headersize); return( -1 ); } } img->filecols = posdim; img->filerows = posdim; } } else if( img->storage_type == ARR_None ) { /* get product of array dimensions in bytes */ arrsize = img->filecols * img->filerows; /* we might find pixel size for a default, if only rows&cols given */ if( fsize == arrsize ) { img->storage_type = ARR_U1; } else if( fsize == (arrsize*2) ) { img->storage_type = ARR_I2; } else if( fsize == (arrsize*4) ) { img->storage_type = ARR_R4; } else if( fsize == (arrsize*8) ) { img->storage_type = ARR_R8; } else { (void)fprintf(stderr, "File size does not scale to any type: %d (%d)\n", rawsize, rawsize - headersize); return( -1 ); } } else { /* in any case, image must not exceed file */ arrsize = img->filecols * img->filerows; if( arrsize > fsize ) { (void)fprintf(stderr, "Request (%d) exceeds file size: %d (%d)\n", arrsize, rawsize, fsize); return( -1 ); } } return( 0 ); } /* * Subroutine: size_imagefile * Purpose: return size of file adjusted for header and storage type */ static long size_imagefile ( img, headersize, rawsize ) struct imageRec *img; int headersize; /* given size of file header area */ int *rawsize; /* raw file size in bytes */ { struct stat buf; int fsize; /* get the file length in bytes */ (void)stat(img->filename, &buf); *rawsize = buf.st_size; /* computed the equivalent array size */ switch( img->storage_type ) { case ARR_R8: fsize = (*rawsize - headersize) / sizeof(double); break; case ARR_I4: case ARR_R4: fsize = (*rawsize - headersize) / sizeof(float); break; case ARR_U2: case ARR_I2: fsize = (*rawsize - headersize) / sizeof(short); break; case ARR_U1: default: fsize = *rawsize - headersize; break; } return( fsize ); } saoimage-1.08/grphlbl.c 666 21641 13 22600 4613617022 10143 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphlbl.c (Color Graph Label) * Purpose: Initialize or reset color bar and graph * Subroutine: label_colorbar() returns: void * Subroutine: label_color_graph() returns: void * Subroutine: label_gamma() returns: void * Subroutine: init_graph_text() returns: void * Extern: normform, minform in WndwDesktop.c * Extern: cgraph in CgraphCtrl.c (from Cgraph.def) * Xlib call: XDrawImageString(), XTextExtents(), XTextWidth() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 22 June 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define MIN, etc. */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cgraph.h" extern struct cgraphRec cgraph; /* * Subroutine: label_colorbar * Purpose: Label the maximum color level by that end of the color bar * Xlib call: XDrawImageString() */ void label_colorbar ( ) { char max[4]; GC gc, set_edit_gc(); if( cgraph.graphlabel.active ) { gc = set_edit_gc(cgraph.font, cgraph.menu->foreground, cgraph.menu->background); XDrawImageString(cgraph.bar.display, cgraph.barlabel.min_ID, gc, cgraph.barlabel.min_x, cgraph.barlabel.min_y, "0", 1); if( color.ncolors > 1 ) sprintf(max, "%3d", color.ncolors - 1); else sprintf(max, "255"); XDrawImageString(cgraph.bar.display, cgraph.barlabel.max_ID, gc, cgraph.barlabel.max_x, cgraph.barlabel.max_y, max, 3); } } /* * Subroutine: label_color_graph * Purpose: Draw entire graph label */ void label_color_graph ( ) { GC gc, set_edit_gc(); void label_gamma(); if( cgraph.graphlabel.active && graphbox.active ) { gc = set_edit_gc(cgraph.font, cgraph.menu->foreground, cgraph.menu->background); if( cgraph.graphlabel.geq_active ) XDrawImageString(cgraph.graph.display, cgraph.graphlabel.geq_ID, gc, cgraph.graphlabel.geq_text_x, cgraph.graphlabel.geq_text_y, "g=", 2); XDrawImageString(cgraph.graph.display, cgraph.graphlabel.minmax_ID, gc, cgraph.graphlabel.min_x, cgraph.graphlabel.min_y, "min", 3); XDrawImageString(cgraph.graph.display, cgraph.graphlabel.minmax_ID, gc, cgraph.graphlabel.max_x, cgraph.graphlabel.max_y, "max", 3); label_gamma(1, 1, 1); } } /* * Subroutine: label_gamma * Purpose: Label color gamma levels * Xlib call: XDrawImageString() */ void label_gamma ( red, green, blue ) int red, green, blue; { double gamma; char string[8]; GC gc, set_edit_gc(); if( cgraph.graphlabel.active && graphbox.active ) { gc = set_edit_gc(cgraph.font, cgraph.menu->foreground, cgraph.menu->background); if( red ) { gamma = MIN(color.ctable.red.gamma, 9.99); sprintf(string, "%3.2f", gamma); XDrawImageString(cgraph.graph.display, cgraph.graphlabel.red_ID, gc, cgraph.graphlabel.box_x, cgraph.graphlabel.box_y, string, 4); } if( green ) { if( color.ctable.green.gamma != gamma ) { gamma = MIN(color.ctable.green.gamma, 9.99); sprintf(string, "%3.2f", gamma); } XDrawImageString(cgraph.graph.display, cgraph.graphlabel.green_ID, gc, cgraph.graphlabel.box_x, cgraph.graphlabel.box_y, string, 4); } if( blue ) { if( color.ctable.blue.gamma != gamma ) { gamma = MIN(color.ctable.blue.gamma, 9.99); sprintf(string, "%3.2f", gamma); } XDrawImageString(cgraph.graph.display, cgraph.graphlabel.blue_ID, gc, cgraph.graphlabel.box_x, cgraph.graphlabel.box_y, string, 4); } } } /* * Subroutine: init_cgraph_text * Purpose: Set basic text parameters for color bar and graph labels * Xlib calls: XTextExtents(), XTextWidth() * Note: To be called before the color and graph windows are created */ void init_cgraph_text ( ) { int dir, ascent, descent; /* l: character image bitmap extents */ XCharStruct charstruct; /* l: character bitmap pattern extents */ XFontStruct *get_fontstruct(); /* determine if colorbar will be vertical or horizontal */ if( graphbox.hints.height > graphbox.hints.width ) cgraph.vertical = 1; else cgraph.vertical = 0; /* get measurements of string using mini (0) font (check for failure) */ if( (cgraph.fontstruct = get_fontstruct(0)) == NULL ) { cgraph.graphlabel.active = 0; return; } cgraph.graphlabel.active = 1; cgraph.font = cgraph.fontstruct->fid; XTextExtents(cgraph.fontstruct, "2.00", 4, &dir, &ascent, &descent, &charstruct); /* define a box which nicely encloses text bitmap for "2.00" */ cgraph.graphlabel.box_x = descent - (charstruct.lbearing); cgraph.graphlabel.box_width = descent + descent + (charstruct.rbearing - charstruct.lbearing); if( charstruct.descent > 1 ) /* character's y position is defined high (above baseline) */ cgraph.graphlabel.box_y = descent + charstruct.ascent - 1; else cgraph.graphlabel.box_y = descent + charstruct.ascent; cgraph.graphlabel.box_height = cgraph.graphlabel.box_y + descent; cgraph.graphlabel.geq_height = cgraph.graphlabel.box_height; if( cgraph.vertical ) { /* all boxes leave one pixel between border and top and bottom of window */ cgraph.graphlabel.geq_y = 1; cgraph.graphlabel.red_y = 1; cgraph.graphlabel.green_y = 1; cgraph.graphlabel.blue_y = 1; cgraph.graphlabel.height = cgraph.graphlabel.box_height + 4; /* barlabel area has same height, minimum width */ cgraph.barlabel.height = cgraph.graphlabel.height; cgraph.barlabel.base_width = 2 + cgraph.graphlabel.box_width - XTextWidth(cgraph.fontstruct, ".", 1); cgraph.barlabel.width = cgraph.barlabel.base_width; cgraph.barlabel.max_y = cgraph.graphlabel.box_y + 2; cgraph.barlabel.min_y = cgraph.barlabel.max_y; /* determine placement of "g=" */ cgraph.graphlabel.geq_width = XTextWidth(cgraph.fontstruct, "g=", 2) + 5; cgraph.graphlabel.geq_text_x = 3; cgraph.graphlabel.geq_text_y = cgraph.graphlabel.box_y; /* limits are in x dimension (for labels and the color bar) */ cgraph.graphlabel.three_limit = (3 * cgraph.graphlabel.box_width) + 9 + cgraph.barlabel.width; cgraph.graphlabel.four_limit = cgraph.graphlabel.three_limit + cgraph.graphlabel.geq_width + 4; /* "min" and "max" y is offset from bottom, "max" is offset from right */ cgraph.graphlabel.minmax_xoff = XTextWidth(cgraph.fontstruct,"max", 3) + 3; cgraph.graphlabel.minmax_yoff = cgraph.graphlabel.height - (cgraph.graphlabel.box_y + 1); cgraph.graphlabel.min_x = 4 - charstruct.lbearing + cgraph.barlabel.width; /* max_x depends on the graphbox width and must be set later */ /* set window parameters tied to the text size */ graphbox.yzero = cgraph.graphlabel.height + BDRWDTH; /* set recommended graphbox sizes in structure used do determine size */ graphbox.hints.min_width = cgraph.graphlabel.three_limit; graphbox.hints.width = cgraph.graphlabel.four_limit; } else { /* all boxes leave one pixel between border and sides of subwindow */ cgraph.graphlabel.geq_x = 1; cgraph.graphlabel.red_x = 1; cgraph.graphlabel.green_x = 1; cgraph.graphlabel.blue_x = 1; cgraph.graphlabel.width = cgraph.graphlabel.box_width + 4; /* barlabel area has same width, minimum height */ cgraph.barlabel.width = cgraph.graphlabel.width; cgraph.barlabel.height = cgraph.graphlabel.box_height; /* determine placement of "g=" */ cgraph.graphlabel.geq_width = cgraph.graphlabel.box_width; cgraph.graphlabel.geq_text_x = (cgraph.graphlabel.box_width - XTextWidth(cgraph.fontstruct, "g=", 2)) / 2; cgraph.graphlabel.geq_text_y = cgraph.graphlabel.box_y; /* limits are in y dimension (enough for labels and the color bar) */ cgraph.graphlabel.three_limit = (3 * cgraph.graphlabel.box_height) + 10 + cgraph.barlabel.height; cgraph.graphlabel.four_limit = (4 * cgraph.graphlabel.box_height) + 12 + cgraph.barlabel.height; /* "min" and "max" x is offset from right, min y is offset from bottom */ cgraph.graphlabel.minmax_xoff = XTextWidth(cgraph.fontstruct, "max", 3) + 3; cgraph.graphlabel.minmax_yoff = descent + 3 + cgraph.barlabel.height; cgraph.graphlabel.max_y = ascent + 2; /* graphlabel.min_y is dependent on height and must be set later */ /* width is fixed so x's can be determined now */ cgraph.graphlabel.min_x = cgraph.graphlabel.width - cgraph.graphlabel.minmax_xoff; cgraph.graphlabel.max_x = cgraph.graphlabel.min_x; /* 0 and ncolors-1 are placed near side toward colorbar */ cgraph.barlabel.max_x = 4 + charstruct.lbearing; cgraph.barlabel.min_x = cgraph.barlabel.width - (XTextWidth(cgraph.fontstruct, "0", 1) + 4); /* set window parameters tied to the text size */ graphbox.xzero = cgraph.graphlabel.width + BDRWDTH; graphbox.hints.min_height = cgraph.graphlabel.three_limit; graphbox.hints.height = cgraph.graphlabel.four_limit; } } saoimage-1.08/grphbar.c 666 21641 13 5120 4613616346 10124 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphbar.c (Color Graph Bar) * Purpose: Fill a buffer with a color chart of the allocated colors * Subroutine: fill_colorbar() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {n} -- -- */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ /* * Subroutine: fill_colorbar * Purpose: Fill byte buffer with bars of increasing value covering * colormap range * PostState: Buffer will contain data to represent a color sweep in one * diirection while repeating itself in the other. For a * horizontal color bar, there will be vertical stripes of * increasing (or decreasing) colors from left to right. * Note: Positive polarity is from left (horizontal) or top (vertical). */ void fill_colorbar ( data, width, height, low, high, vertical, descend, pixels ) unsigned char data[]; /* i/o: space to recieve sweep data */ int width, height; /* i: buffer dimensions */ int low, high; /* i: limits of the sweep range */ int vertical; /* i: 0=horizontal sweep, else vertical */ int descend; /* i: descend-val-with-increasing-coord */ unsigned long pixels[]; /* i: continuous array of pixel values */ { double valinc; int latitude, longitude; int range; int row; int next_row; unsigned char val; register unsigned char *buf; register int i, bufinc; /* axis of 0 has horizontal bar, else vertical */ if( vertical ) { /* vertical */ latitude = height; longitude = width; bufinc = 1; next_row = 0; } else { /* horizontal */ latitude = width; longitude = height; bufinc = width; next_row = 1 - (width * height); } range = high - low; if( range < 0 ) range -= 1; else range += 1; valinc = (double)range / (double)latitude; buf = data; for( row=0; row -- -- */ #include /* stderr, NULL, etc. */ #include /* get struct timeval */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/cgraph.h" /* color graph structures */ #include "hfiles/extern.h" /* extern main parameter structures */ extern struct cgraphRec cgraph; /* get access to subwindow ID's */ extern struct windowRec desktop; extern Display *display; /* server connection */ #if VMS && IMTOOL void XZ_ast(); int XZ_efn = 10; #endif /* * Subroutine: control_event_loop * Purpose: Main event loop and dispatcher * Xlib calls: XNextEvent(); */ void control_event_loop ( ) { #ifdef SYSV int mask[2]; #else int mask[4]; #endif GC set_gc_with_background(); int *response, *control_buttonbox(); void map_windows(), dispatch_select(), redraw_window(); void control_cursor(), control_cgraph(), control_pan(), control_color(); void magnify_disp(), magnify_pan(), map_graphbox(), close_input_pipe(); void adjust_desktop(), adjust_graphbox(), key_response(), control_blink(); #ifdef VMS #ifdef IMTOOL /* Set asynch notification for all Xwindow events and Imtool pipe * (`Z') events. Note that buttonbox event notification is set * separately (see buttonlib/makebox.c and buttonlib/remotectrl.c). * The same goes for some other dynamic window/displays (see * editctrl.c and grphcinit.c). */ { extern Window root; int all_events = 0xFFFFFFFF; sys$clref (XZ_efn); XSelectAsyncInput (display, root, all_events, XZ_ast, XZ_efn); } #endif #endif /* the event loop */ control.priority = 0; /* set mask to screen events */ while( 1 ) { if( control.remote_connected ) { #ifdef IMTOOL #ifndef VMS /* AIX is the only UNIX we have seen which can't handle the select!! */ if( XPending(display) ) { XNextEvent(display, &control.event); } else { mask[0] = control.select_mask[0]; mask[1] = control.select_mask[1]; /* check for either pipe or X server event */ if( select(control.select_size, (fd_set *)mask, (fd_set *)0, (fd_set *)0, (struct timeval *)0) <0 ) { perror("select error"); continue; } if( (mask[0] & control.Xserver.mask[0]) || (mask[1] & control.Xserver.mask[1]) ) { XNextEvent(display, &control.event); } else { /* call routine to read from pipe */ respond_to_connection(mask); continue; } } #else /* For VMS, do the equivalent of Unix select() by * using ASTs and event flags. */ if( XPending(display) ) { XNextEvent(display, &control.event); } else { int not_found, i; struct connectRec *port = control.Xserver.next; not_found = 1; for( i=0; (port != NULL) && (ifd) ) { respond_to_connection(&port->fd); /* reset AST on connections for which events can be pending */ ZSelectAsyncInput(port->fd, XZ_ast, XZ_efn); port = NULL; not_found = 0; } else { port = port->next; } } if( not_found ) { /* Wait for event flag. When set, clear it for the next go around * and jump back to the while loop and process all the events that * are pending. */ sys$waitfr (XZ_efn); sys$clref (XZ_efn); continue; } else { continue; } } #endif #endif } else { XNextEvent(display, &control.event); } control.completed = 0; /* priority event loop invoked by certain eventloop subroutines */ /* usual application is to track mouse while buttons held down */ if( control.event.type & control.priority ) { switch( control.mode ) { case COP: control_cursor(); break; case VOP: control_color(); break; case GOP: control_cgraph(); break; case ZOP: control_pan(); break; case SOP: control_blink(); break; default: (void)fprintf(stderr, "do-nothing mode\n"); } } /* priority events can speed up by returning to the while(1) */ /* from here - by setting event processing completed flag */ /* if a priority event has not claimed an exclusive */ if( control.completed ) continue; /* check for buttonbox events */ /* set the colors for the button menu bitmaps, in case it draws */ (void)set_gc_with_background(&color.gcset.menu, color.gcset.menu.background); if( (response = control_buttonbox(&control.event)) != 0 ) { /* respond to the buttonbox event (uses extern.h) */ dispatch_select (response); /* ok, go directly for the next event */ continue; } /* check the type of event */ switch( control.event.type ) { /* if all or part of the window is newly exposed */ case Expose: /* redraw entire window once (not parts of windows) */ if( control.event.xexpose.count == 0 ) redraw_window(control.event.xexpose.window); break; case MotionNotify: /* track with magnibox if in picturbox w/o shift key */ if( control.event.xmotion.window == dispbox.ID ) { int shift; shift = ((control.event.xmotion.state & (ShiftMask | LockMask)) !=0); /* if magni_track or shift, but not both */ if( control.magni_track != shift ) { magnify_disp(&control.event, 1, control.coord_track || shift); } else if( control.coord_track && (!shift) ) /* else if coord_track alone, just show coords */ magnify_disp(&control.event, 0, 1); } else if( (control.event.xmotion.window == panbox.ID) && (control.event.xmotion.state & ShiftMask) ) { magnify_pan(&control.event); } break; case ButtonPress: /* if a mouse button is pressed */ if( control.event.xbutton.window == dispbox.ID ) { /* avoid duplication with same response under priority */ if( !control.priority ) { /* simple button pressed response depends on mode */ switch( control.mode ) { case COP: control_cursor(); break; case VOP: control_color(); break; case ZOP: control_pan(); break; case SOP: control_blink(); break; default: (void)fprintf(stderr, "do-nothing mode\n"); } } } else if( control.event.xbutton.window == cgraph.graph.ID ) { /* button pressed in color graph window */ /* avoid duplication with priority response to same */ if( !control.priority ) { control_cgraph(); } } else if( control.event.xbutton.window == panbox.ID ) { /* button pressed in pan window */ /* avoid duplication with priority response to same */ if( !control.priority ) { control_pan(); } } else if( control.event.xbutton.window == colorbox.ID ) { /* button pressed in color bar window */ /* this window is not used with halftone */ if( color.ncolors > 1 ) map_graphbox(); } break; case KeyPress: /* if a key is pressed */ key_response(); break; case ConfigureNotify: /* if the main window is reconfigured */ if( control.event.xconfigure.window == desktop.ID ) adjust_desktop(&control.event.xconfigure); else if( control.event.xconfigure.window == graphbox.ID ) adjust_graphbox(&control.event.xconfigure); break; default: break; } } } #ifdef VMS #ifdef IMTOOL /* XZ_ast - Asynchronous System Trap routine for X window and Z events. * Simply set the appropriate event flag. */ void XZ_ast (int efn) { sys$setef (efn); } #endif #endif saoimage-1.08/pancopy.c 666 21641 13 16700 4613632605 10172 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: pancopy.c (Pan Copy) * Purpose: Copy data between short integer image buffers in different * flavors of blocking (used to fill pan buffer) * Subroutine: copy_buf_subsample() returns: void * Subroutine: copy_buf_replicate() returns: void * Subroutine: copy_buf_sum() returns: void * Subroutine: copy_buf_max() returns: void * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 3 December 1988 * {n} -- -- */ #include /* define stderr, NULL, etc. */ #include "hfiles/define.h" /* define MIN, MAX, etc. */ /* * Subroutine: copy_buf_replicate * Purpose: Copy data from main buffer to pan buffer, zooming UP by * replicating. (for zoom > 1) * Exception: Assumes a perfect fit (edge to edge, all pixels mapped) */ void copy_buf_replicate ( ibuf, obuf, dupe, iwidth, owidth, oheight ) short *ibuf; /* pointer to input buffer */ register short *obuf; /* pointer in output buffer */ register int dupe; /* imbuf to panbuf duplicating count */ int iwidth; /* width of input buffer */ int owidth, oheight; /* dimensions of output buffer */ { register short *ptr; /* loop pointer in either buffer */ register short *rowend; /* loop pointer to end of a row */ short *obufend; /* pointer at end of output buffer */ short *thisband; /* pointer to line to replicate for band */ short *nextband; /* pointer to end of replicated band */ int bandsz; /* pixels between bands */ #ifdef DEBUG if( dupe <= 0 ) { (void)fprintf(stderr, "pan zoom error\n"); return; } #endif obufend = obuf + (owidth * oheight); bandsz = dupe * owidth; /* quit when obuf is full */ while( obuf < obufend ) { /* mark end of row replication */ thisband = obuf; nextband = obuf + bandsz; /* first make one row with column replication */ ptr = ibuf; rowend = ibuf + iwidth; do { register int rep; rep = 0; while( rep++ < dupe ) *obuf++ = *ptr; } while( ++ptr < rowend ); /* replicate this row as needed */ rowend = obuf; while( obuf < nextband ) { ptr = thisband; while( ptr < rowend ) *obuf++ = *ptr++; } ibuf += iwidth; } } /* * Subroutine: copy_buf_subsample * Purpose: Copy data between buffers, zooming down by sub-sampling * Exception: Assumes a perfect fit */ void copy_buf_subsample ( ibuf, obuf, subsample, iwidth, owidth, oheight ) short *ibuf; /* pointer to input buffer */ register short *obuf; /* pointer in output buffer */ register int subsample; /* in to out sub-sampling increment */ int iwidth; /* width of input buffer */ int owidth, oheight; /* dimensions of output buffer */ { register short *iptr; /* pointer within ibuf */ register int iptr_advance; /* to advance iptr to start next row */ register short *rowend; /* loop reference pointer to end of obuf row */ register short *obufend; /* loop reference pointer to end of obuf */ int bufoff; /* subsample offset into sample block */ #ifdef DEBUG if( subsample <= 0 ) { (void)fprintf(stderr, "pan zoom error\n"); return; } #endif /* initialize parameter values */ /* choose offsets to center the sample in block (not just start at 0) */ bufoff = MAX (0, ((subsample - 1) / 2)); /* center area of data by splitting remainder */ iptr = ibuf + ((bufoff * iwidth) + bufoff); /* advance zoom lines minus what was ticked off (i*z - o*z) */ iptr_advance = (iwidth - owidth) * subsample; /* quit when obuf is full */ obufend = obuf + (owidth * oheight); /* loop through sub-sampling */ while( obuf < obufend ) { /* MAKE A SUB-SAMPLED LINE */ rowend = obuf + owidth; while( obuf < rowend ) { *obuf++ = *iptr; iptr += subsample; } iptr += iptr_advance; } } /* * Subroutine: copy_buf_sum * Purpose: Copy data between buffers, zoom down by summing or averaging * Exception: Assumes a perfect fit */ void copy_buf_sum ( ibuf, obuf, block, av, iwidth, owidth, oheight ) short *ibuf; /* pointer to input buffer */ register short *obuf; /* pointer in output buffer */ register int block; /* blocking factor */ int av; /* flag to select averaging */ int iwidth; /* width of input buffer */ int owidth, oheight; /* dimensions of output buffer */ { register short *iptr, *inextsum, *onextline; short *isumline; int blocksq, halfbsq; int iadvance; int oline; #ifdef DEBUG if( block <= 0 ) { (void)fprintf(stderr, "pan zoom error\n"); return; } #endif if( av ) { blocksq = block * block; halfbsq = blocksq / 2; } iadvance = block * iwidth; /* count the output lines */ for( oline=0; oline *obuf ) *obuf = *iptr; } while( ++iptr < inextsum ); obuf++; } /* reset outline, advance inline */ obuf -= owidth; ibuf += iwidth; } /* go on to next line */ obuf = onextline; } } saoimage-1.08/mainkey.c 666 21641 13 13575 4741002500 10150 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mainkey.c (Main Key) * Purpose: Dispatch responses mapped to various keyboard keys * Subroutine: key_response() returns: void * Subroutine: set_iraf_key_trigger() returns: void * Xlib calls: XWarpPointer(), XSync() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 29 June 1989 * {1} MVH display window key to trigger IRAF write 16 Aug 1989 * {2} MVH support for text cursor 1 Jun 1991 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include #include #include "hfiles/constant.h" /* Define codes */ #include "hfiles/struct.h" /* Declare structure types */ #include "hfiles/extern.h" /* Extern main parameter structures */ #define MAX_MAPPED_STRING_LENGTH 16 #define MetaMask Mod1Mask #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void grab_keys_for_textcursor( int state); void set_iraf_key_trigger( int state); void key_response(); #endif static int textcursor = 0; /* Subroutine: grab_keys_for_textcursor * Purpose: Direct all key input to the text cursor editor */ #ifdef ANSIC void grab_keys_for_textcursor ( int state ) #else void grab_keys_for_textcursor ( state ) int state; #endif { textcursor = state; } #ifdef IMTOOL static int iraf_trigger = 0; /* Subroutine: set_iraf_key_trigger * Purpose: Set and clear trigger for cursor readback through IRAF pipe */ #ifdef ANSIC void set_iraf_key_trigger ( int state ) #else void set_iraf_key_trigger ( state ) int state; #endif { iraf_trigger = state; } #endif /* Subroutine: key_response * Purpose: Respond to a key stroke */ void key_response() { KeySym keysym; XComposeStatus compose; int char_cnt; int x, y; static int bufsize = MAX_MAPPED_STRING_LENGTH; char buffer[MAX_MAPPED_STRING_LENGTH]; #ifdef IMTOOL int trigger_curpos_to_iraf(); #endif void magnify_pan(), magnify_disp(), say_goodbye(), disp_panbox(); void disp_dispbox(), raise_windows(), get_new_cmd(), print_table(); void ascii_region(), textcursor_keyentry(); /* Decode the key event to ascii */ char_cnt = XLookupString(&control.event.xkey, buffer, bufsize, &keysym, &compose); /* Key input from display window may be redirected for special purposes */ if( control.event.xkey.window == dispbox.ID ) { #ifdef IMTOOL if( iraf_trigger && (char_cnt == 1) && trigger_curpos_to_iraf(&control.event.xkey, (int)buffer[0]) ) return; #endif /* Redirect keyboard input for textcursor editor */ if( textcursor ) { textcursor_keyentry(&control.event.xkey, keysym); return; } } /* Ignore modifier key pressing */ if( ((control.event.xkey.state & (ControlMask | MetaMask)) == 0) || (keysym >= XK_BackSpace) ) { switch( keysym ) { case XK_Shift_L: case XK_Shift_R: #ifdef IMTOOL /* Don't update tracking now if in IRAF interactive mode */ if( iraf_trigger ) return; #endif if( control.event.xkey.window == panbox.ID ) { /* Update magnifier if in panbox */ magnify_pan (&control.event); } else if( (control.event.xkey.window == dispbox.ID) && (!control.magni_track) ) { /* If in disp window and not now tracking, update magnifier */ magnify_disp (&control.event, 1, !control.coord_track); } break; #ifdef SUN /* Shifted arrow keys on Sun keypad */ case XK_R8: case XK_R10: case XK_R12: case XK_R14: if( keysym == XK_R8 ) keysym = XK_Up; else if( keysym == XK_R10 ) keysym = XK_Left; else if( keysym == XK_R12 ) keysym = XK_Right; else if( keysym == XK_R14 ) keysym = XK_Down; #endif case XK_Up: case XK_Down: case XK_Left: case XK_Right: /* Use the mouse coordinates at time of key strike */ if( keysym == XK_Up ) y = control.event.xkey.y - 1; else if( keysym == XK_Down ) y = control.event.xkey.y + 1; else y = control.event.xkey.y; if( keysym == XK_Right ) x = control.event.xkey.x + 1; else if( keysym == XK_Left ) x = control.event.xkey.x - 1; else x = control.event.xkey.x; /* Move the mouse (supercede any recent mouse movement) */ XSync (control.event.xkey.display, 0); XWarpPointer(control.event.xkey.display, None, control.event.xkey.window, 0, 0, 0, 0, x, y); break; case XK_A: case XK_a: /* a or r (?) TO RAISE ALL WINDOWS OUT OF KAOS */ disp_panbox(); disp_dispbox(); raise_windows(); break; case XK_L: case XK_l: /* Debugging print_table without scaling (fool it about scaling) */ x = img.fiscaled; img.fiscaled = 0; print_table(); img.fiscaled = x; break; case XK_N: case XK_n: /* Open a new image file (see CmdNew.c) */ get_new_cmd(); break; #ifdef QUITKEY case XK_Q: case XK_q: /* q FOR QUIT */ say_goodbye(0); break; #endif case XK_R: case XK_r: raise_windows(); break; case XK_T: case XK_t: /* Print table of image values if in display or pan windows */ print_table(); break; case XK_Delete: case XK_D: case XK_d: case XK_E: case XK_e: case XK_S: case XK_s: /* Character control in region (cursor) mode */ if( control.mode == COP ) { if( (control.event.xkey.window == dispbox.ID) || (cursor.type == COP_Text) ) ascii_region(&control.event.xkey, keysym); } break; default: break; } } } saoimage-1.08/Old/sclmap.c 666 21641 13 22357 4613635305 10523 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: sclmap.c (Scale Map) * Purpose: Map image values to display screen values using various * functions * Subroutine: make_scalemap() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {n} -- -- */ #include /* get stderr, NULL, etc. */ #include /* get the math definitions */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ #ifndef SUN #define expm1(a) (exp(a)-1) #endif /* * Subroutine: make_scalemap * Purpose: Make scale map according to type selected * Note: Map goes from image value to hardware value (through ideal * map value using pixels array from XAllocColors) */ void make_scalemap ( image_min, image_max ) int image_min, image_max; /* i: range of mapping for image data input */ { void histogram_equalize(); static void linear_scale(), wrap_scale(), sqrt_scale(), log_scale(); /* note the range of data for which mapping is to be calculated */ if( image_max == image_min ) ++image_max; if( image_max < image_min ) { int temp; temp = image_max; image_max = image_min; image_min = temp; } { /* fill in map below min with mincolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[0]; for( imageval = -32768; imageval < image_min; imageval++ ) lookup[imageval] = pixval; } /* create the image map straight or with some form of scaling */ switch( color.scale.mode ) { case SOP_HistEq: /* if there are levels to distribute, call the routine, else do the next */ if( color.ncolors < (image_max - image_min) ) { histogram_equalize(buffer.scalemap + SCALEOFF, buffer.histogram + SCALEOFF, buffer.hist_area, image_min, image_max, color.ncolors, color.pixvalmap); break; } /* fall through to linear if there is nothing to distribute */ case SOP_Linear: linear_scale(image_min, image_max); break; case SOP_Wrap: wrap_scale(image_min, image_max); /* don't fill in the top of map */ return; case SOP_Sqrt: sqrt_scale(image_min, image_max); break; case SOP_Log: log_scale(image_min, image_max); break; default: (void)fprintf(stderr,"Unknown scaling type request!\n"); } { /* fill in top of map with maxcolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[color.ncolors - 1]; for( imageval = image_max; imageval < 32768; imageval++ ) lookup[imageval] = pixval; } } /* * Subroutine: linear_scale * Purpose: Distribute color levels in the map evenly */ static void linear_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double upper_bound; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ scale = (double)(image_max - image_min + 1) / (double)color.ncolors; imageval = image_min; /* upper bound is ideal edge between colors (offset for rounding) */ upper_bound = image_min + 0.5; level = 0; pixval = pixels[0]; while( level++ < maxcolor ) { upper_bound += scale; imagelim = (int)upper_bound; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: wrap_scale * Purpose: Create the image map with a repeating linear scale * Note: Levels below image_min are not mapped */ static void wrap_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double range; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ imagelim = (image_max - image_min + 1) / color.scale.wrap_cnt; scale = (double)imagelim / (double)color.ncolors; /* start at image_min with color level = 0 */ imageval = image_min; level = 0; /* use range as floating point boundary between levels */ range = (double)imageval; while( imageval < 32768 ) { do { /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; range += scale; imagelim = (int)(range + 0.5); if( imagelim >= 32768 ) imagelim = 32767; do { lookup[imageval] = pixval; } while( ++imageval <= imagelim ); if( imageval >= 32768 ) return; } while( ++level <= maxcolor ); /* pixval at level 0 lowest color again */ level = 0; } } /* * Subroutine: sqrt_scale * Purpose: Distribute color levels in the map by a root or power function. * Method: (level / maxlevel) ranges from 0 to 1. Raise to a power. * Result curves from 0 to 1. Map result directly back to * pixel value. */ static void sqrt_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double range; double power; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; power = color.scale.root_power; ncolors = (double)color.ncolors; range = image_max - image_min + 1; imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { imagelim = image_min + (int) ((pow(((double)level / ncolors), power) * range) + 0.5); /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: log_scale * Purpose: Distribute color levels in the map by a logorithmic or * exponential curve (powers of e). */ static void log_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double expo; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; expo = color.scale.log_expo; ncolors = (double)color.ncolors; /* base distribution on e**n as n goes from 0 to expo (expm1 is exp()-1) */ if( color.scale.log_expo >= 0 ) { scale = (double)(image_max - image_min + 1) / expm1(expo); } else { /* negative exponents allocate more levels toward the high values */ scale = (double)(image_max - image_min + 1) / (1.0 - exp(expo)); } imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { if( expo > 0 ) { imagelim = image_min + (int) ((expm1(((double)level / ncolors) * expo) * scale) + 0.5); } else { imagelim = image_min + (int) ((1.0-exp(((double)level / ncolors) * expo) * scale) + 0.5); } /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } saoimage-1.08/Old/rgnwrite.c 666 21641 13 13423 4613634731 11101 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgnwrite.c (Region Write) * Purpose: Write descriptions of saved regions to a file * Subroutine: write_regions() returns: void * Subroutine: timestamp() returns: void * UNIX calls: time(), asctime(), localtime(), fclose() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 July 1989 * {1} MVH removed comma from list output 7 Dec 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, FILE, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* needed for asctime() */ #include /* get X types and constants */ #include /* X window manager, visual stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/color.h" /* colors used by cursor */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* define SZ_FNAME, MIN, MAX, etc. */ #include "hfiles/image.h" /* image description structure */ #include "hfiles/edit.h" /* define EditStruct */ #ifndef VMS #define IRAFFILE "frame.%d.%d" #else #define IRAFFILE "frame.%d_%d" #endif char *ProsName = "saoimage.reg"; EditStruct *region_edit; /* * Subroutine: write_regions * Purpose: Write region info to a file */ void write_regions ( cursor, image, output_type ) struct cursorRec *cursor; struct imageRec *image; int output_type; /* i: SOP_Imtool or SOP_PROS */ { FILE *fd; static int last_output_type = 0; char fname[SZ_FNAME]; static void write_region_imtool(); int open_output_file(); EditStruct *init_edit_popup(); void set_path_iraf(), write_region_pros(), load_edit_struct(), timestamp(); /* return if there is nothing to write */ if( cursor->next_region == NULL ) { (void)fprintf(stderr, "WARNING: no saved cursors to write!\n"); return; } /* imtool type output is different */ if( output_type == SOP_Imtool ) { if( last_output_type != SOP_Imtool ) { /* get name of coordinate output file */ sprintf(fname, IRAFFILE, 1, 1); set_path_iraf(fname); if( region_edit == NULL ) region_edit = init_edit_popup(fname, SZ_FNAME); else load_edit_struct(region_edit, fname, strlen(fname)); last_output_type = SOP_Imtool; } /* open coordinate output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for IRAF list:") <= 0 ) return; /* timestamp the first entry in the output file. */ timestamp(fd, image->filename); /* put in a line to explain parameter list */ (void)fprintf(fd, "# (x y)\n"); write_region_imtool(fd, cursor->next_region, image); } else { if( last_output_type != SOP_PROS ) { if( region_edit == NULL ) region_edit = init_edit_popup(ProsName, SZ_FNAME); else load_edit_struct(region_edit, ProsName, strlen(fname)); last_output_type = SOP_PROS; } /* open region output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for regions:") <= 0 ) return; /* timestamp the first entry in the output file. */ timestamp(fd, image->filename); /* put in a line to explain parameter list */ (void)fprintf(fd,"# shape x, y, [x dimension, y dimension], [angle]\n"); /* write the pros region specifications */ write_region_pros(fd, cursor->next_region); } (void)fclose(fd); } /* * Subroutine: write_region_imtool * Purpose: Write region info in imtool's format (iraf "list") * Note: Output is a list of ascii pairs giving only center coords */ static void write_region_imtool ( fd, region, image ) FILE *fd; struct cursorRec *region; struct imageRec *image; { if( region != NULL ) { /* recurse first to reverse order of regions */ if( region->next_region != NULL ) write_region_imtool(fd, region->next_region, image); if( image->index_base ) (void)fprintf(fd, "%d %d\n", RND(region->file.X), RND(region->file.Y)); else (void)fprintf(fd, "%d %d\n", (int)region->file.X, (int)region->file.Y); } } /* * Subroutine: timestamp * Purpose: Write date and filename (if known) to region file */ void timestamp ( fd, imagename ) FILE *fd; char *imagename; { char line[SZ_LINE]; int len; static void set_time_string(); /* timestamp the first entry in the output file. */ set_time_string (line); /* get rid of any trailing new line */ len = MAX(0, strlen(line) - 1); if (line[len] == '\n') line[len] = '\0'; /* print file name if one is given */ if ((imagename != NULL) && (strlen(imagename)) != 0) { (void)fprintf(fd, "# %s\n", imagename); } /* print date and time */ (void)fprintf(fd, "# %s\n", line); } /* * Subroutine: set_time_string (time) * Purpose: Print the time in the passed string * UNIX calls: time(), asctime(), localtime() */ static void set_time_string ( time_string ) char *time_string; { long timeofday; #ifndef VMS /* I don't know where this should be defined, it's not in */ /* it's a time_t which is defined as a long in */ long time(); #endif timeofday = time((long *)0); /* note asctime(localtime()) can be replaced by ctime() in newer OS's */ (void)strcpy(time_string, asctime(localtime(&timeofday))); } saoimage-1.08/Old/readfits.c 666 21641 13 15442 4705136412 11037 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readfits.c (Read FITS) * Purpose: Read a FITS file header and prepare file for basic array read * Subroutine: int init_fits() * Note: Only SIMPLE = T is permitted, but will handle BITPIX = 8, 16, * 32, -16(u_short), -32(float), -64(double). If img->nimage * is set to a value greater than 1, file will be lseeked to the * nimage'th image (assuming there are several images stored as * a stack (on 3rd dimension). * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 23 January 1989 * {n} -- -- */ #include /* define stderr, NULL, etc. */ #include /* needed for control.h */ #include "hfiles/constant.h" #include "hfiles/control.h" /* define IOP codes */ #include "hfiles/image.h" #define FITSBLOCK 2880 /* * Subroutine: init_fits * Purpose: Open fits file, get parameters and get ready to read data. * Returns: -1 if failure, else fd of file, positioned at start of data * Note: Data read will be handled as standard array read. */ int init_fits ( img ) struct imageRec *img; { float scale, bias; int fd; int headlen; int bitpix, naxis, naxes[3]; char *header; static char *load_fitsheader(); int read_fitsheader(), open_disk(), lseek_disk(); void close_disk(); /* open the image file */ if( (fd = open_disk(img->filename, IOP_Read, 0)) <= 0 ) return( -1 ); headlen = img->headersize; /* read and interpret the header */ if( (header = load_fitsheader(fd, &headlen, img->filename)) == NULL ) { close_disk(fd, img->filename); return( -1 ); } if( read_fitsheader(header, headlen, &bitpix, &naxis, naxes, &scale, &bias) != 0 ) { free(header); switch( bitpix ) { case 8: img->storage_type = ARR_U1; img->bytepix = 1; break; case 16: img->storage_type = ARR_I2; img->bytepix = 2; break; case 32: img->storage_type = ARR_I4; img->bytepix = 4; break; case -16: img->storage_type = ARR_U2; img->bytepix = 2; break; case -32: img->storage_type = ARR_R4; img->bytepix = 4; break; case -64: img->storage_type = ARR_R8; img->bytepix = 8; break; default: (void)fprintf(stderr,"Illegal FITS BITPIX: %d\n",bitpix); close_disk(fd, img->filename); return( -1 ); } if( img->nimage > 1 ) { if( (naxis <= 2) || (naxes[2] < img->nimage) ) { (void)fprintf(stderr, "Only %d images in file %s\n", naxis, img->filename); close_disk(fd, img->filename); return( -1 ); } img->headersize = headlen + (naxes[0] * naxes[1] * img->bytepix); if( lseek_disk(fd, img->headersize, img->filename) < 0 ) { img->headersize = 0; close_disk(fd, img->filename); return( -1 ); } } else { img->headersize = headlen; } img->filecols = naxes[0]; img->filerows = naxes[1]; if( (scale != 1.0) || (bias != 0.0) ) { img->fscale = scale; img->fbias = bias; img->fscaled = 1; } else img->fscaled = 0; return( fd ); } else { free(header); close_disk(fd, img->filename); return( -1 ); } } /* * Subroutine: load_fitsheader * Purpose: Load the FITS header from the disk file into memory. * Notes: FITS headers are made in block units (2880 bytes each). * If length is not initially zero, it is taken as a directive * to override FITS standard (header of given size is loaded). * FITS header must have "SIMPLE =" in first 10 bytes (and 'T' * in next 20 for ximage use). */ static char *load_fitsheader ( fd, length, filename ) int fd; int *length; char *filename; { int headlen, nbytes; char *header; char TorF[4]; static char *get_keyfield(); char *realloc(), *calloc_errchk(); int read_disk(); void no_fitscomment(); if( *length > 0 ) headlen = *length; else headlen = FITSBLOCK; /* allocate initial sized buffer */ header = calloc_errchk(headlen, 1, "FITS header"); /* read in first block */ if( (nbytes = read_disk(fd, header, headlen, 1, filename, "FITS header")) != headlen ) { free (header); return( NULL ); } /* consistency check for FITS header */ if( strncmp(header, "SIMPLE =", 9) != 0) { (void)fprintf(stderr,"No SIMPLE keyword in FITS header"); free(header); return( NULL ); } /* we only support SIMPLE = T */ no_fitscomment(header+10, 20); if( (sscanf(header+10, "%1s", TorF) <= 0) || (TorF[0] != 'T') ) { (void)fprintf(stderr,"SIMPLE = %c not supported\n", TorF[0]); free(header); return( NULL ); } if( *length != 0 ) { /* if header length was given, it must check out with an END */ if( get_keyfield(header, "END ", headlen, 0) == NULL ) { (void)fprintf(stderr,"%d byte FITS header has no END card!\n", headlen); free(header); return( NULL ); } } else { /* if END keyword not found, read in more header until END is found */ while( get_keyfield(header, "END ", headlen, 0) == NULL ) { if( (header = realloc(header, (unsigned)(headlen+FITSBLOCK))) == NULL ) { fputs("Reallocation failure reading header\n", stderr); return( NULL ); } if( (nbytes = read_disk(fd, header+headlen, FITSBLOCK, 1, filename, "extended header")) != FITSBLOCK ) { (void)fprintf(stderr, "Read %d bytes of header with no END card!\n", headlen + nbytes); (void)fflush(stderr); free( header ); return( NULL ); } headlen += FITSBLOCK; } *length = headlen; } return( header ); } /* * Subroutine: get_keyfield * Purpose: Return the data field for a given FITS header keyword * Returns: If key not found, return NULL (0). */ static char *get_keyfield ( header, keyword, length, report_error ) char *header; /* buffer start */ char *keyword; /* keyword to match */ int length; /* if zero, search up to "END" keyword */ int report_error; /* if > 0, fatal if key not found */ { int key_not_end, i; void no_fitscomment(); key_not_end = (strncmp(keyword, "END ", 8) != 0); for( i=0; i -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ extern int init_done; /* flag set at end of initialization indicates redo */ #ifdef ALLIANT extern int bad_buttons; #endif /* * Subroutine: parse_cmdline * Purpose: Process options to set filename and change defaults * Returns: -1 on error, 0 OK but no filename, 1 OK and new filename given */ int parse_cmdline ( argc, argv, displayname ) int argc; char *argv[]; char **displayname; /* i/o: gets server name only at init time */ { int i, status; int got, init; int parse_display(), parse_filename(), parse_filetype(), parse_connection(); int parse_rotate(), parse_scale(), parse_color(), parse_fileread(), usage(); void init_cmdline(); static int parse_etc(); if( displayname != NULL ) { /* if initial program command line, strip off program name, store line */ argc--; argv = &(argv[1]); /* store the initial command string */ init_cmdline(argc, argv); init = 1; } else init = 0; /* initialize parse history */ got = 0; status = 1; /* check command line arguments for option requests */ for( i = 0; (status == 1) && (i < argc); i++ ) { if( (status = parse_display(argc, argv, &i, &got, displayname)) ) { /* check for server or window dressing specifications */ ; } else if( ((got & CMD_FTYPE) == 0) && ((status = parse_filetype(argc, argv, &i, &got)) != 0) ) { /* check for the image file type */ ; } else if( (status = parse_connection(argc, argv, &i, &got, init)) != 0 ) { /* check for change in remote connection status */ ; } else if( (status = parse_fileread(argc, argv, &i, &got)) != 0 ) { /* check for image file reading parameters */ ; } else if( (status = parse_rotate(argc, argv, &i, &got)) != 0 ) { /* check for image rotation */ ; } else if( (status = parse_scale(argc, argv, &i, &got)) != 0 ) { /* check for scaling specifications */ ; } else if( (status = parse_color(argc, argv, &i, &got)) != 0 ) { /* check for color map selection */ ; } else if( (status = parse_etc(argc, argv, i)) != 0 ) { /* check for miscelaneous environment switches */ ; } else if( ((got & CMD_FNAME) == 0) && ((status = parse_filename(argc, argv, &i, &got)) != 0) ) { /* check for a possible image file name */ ; } else { if( argv[i][0] == '-' ) status = usage("unexpected switch", argc, argv, i, i); else status = usage("unrecognized token", argc, argv, i, i); } } if( status == 1 ) { return( got ); } else return( -1 ); } /* * Subroutine: parse_etc * Purpose: Parse command line for things settings from the etc menu */ static int parse_etc ( argc, argv, i ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int i; /* arg to check */ { void set_submenu_toggle(); if( (strcmp(argv[i], "-ct") == 0) || (strcmp(argv[i], "-coord") == 0) ) { if( control.coord_track == 1 ) { control.coord_track = 0; if( init_done ) set_submenu_toggle(EOP, EOP_TextTrack, 0); } } else if( (strcmp(argv[i], "+ct") == 0) || (strcmp(argv[i], "+coord") == 0) ) { if( control.coord_track != 1 ) { control.coord_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_TextTrack, 1); } } else if( (strcmp(argv[i], "-mt") == 0) || (strcmp(argv[i], "-magnifier") == 0) ) { if( control.magni_track != 1 ) { /* track updates windows as mouse moves */ control.magni_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Track, 1); } } else if( (strcmp(argv[i], "+mt") == 0) || (strcmp(argv[i], "+magnifier") == 0) ) { if( control.magni_track == 1 ) { /* track updates windows as mouse moves */ control.magni_track = 0; if( init_done ) set_submenu_toggle(EOP, EOP_Track, 0); } } else if( (strcmp(argv[i], "-q") == 0) || (strcmp(argv[i], "-quiet") == 0) || (strcmp(argv[i], "-v") == 0) || (strcmp(argv[i], "-verbose") == 0) ) { /* verbosity to control reporting of positions and measurements */ control.verbose = 0; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 0); } else if( (strcmp(argv[i], "+v") == 0) || (strcmp(argv[i], "+verbose") == 0) ) { control.verbose = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 1); #ifdef ALLIANT } else if (strcmp(argv[i], "-alliant")==0) { bad_buttons = 1; #endif } else { return( 0 ); } return( 1 ); } /* * Subroutine: string_cmdline * Purpose: Print tokens on one line to be like original command line */ void string_cmdline ( argc, argv, cmdline, linemax ) int argc; char *argv[]; char *cmdline; int linemax; { int i; if( argc <= 0 ) { cmdline[0] = '\0'; } else { (void)strcpy(cmdline, argv[0]); for( i=1; i= argc ) { (void)fprintf(stderr, "Missing arg(s) to switch\n"); last = argc - 1; } /* print message and offending tokens */ (void)fprintf(stderr,"Command line %s error:", what); for( i=first; i<=last; i++ ) { (void)fprintf(stderr, " %s", argv[i]); } (void)fprintf(stderr, "\n"); /* list switch options */ (void)fprintf(stderr,"usage: saoimage [ options ] [ - filename ]\n"); (void)fprintf(stderr," where options are one or more of:\n"); (void)fprintf(stderr," [(-display) (-d) ]"); (void)fprintf(stderr," [[(-geometry) (-g) ] [-gd ]]\n"); (void)fprintf(stderr," [[(-fits) (-oif)] [(-u1) (-u2)"); (void)fprintf(stderr," (-i2) (-i4) (-r4) (-r8) ]]\n"); (void)fprintf(stderr," [(-skip) (-sk) ] [(-byteswap) (-bswap)]\n"); (void)fprintf(stderr," [[-zero] [-one]]"); (void)fprintf(stderr," [[(-lowerleft) (-ll)] [(-upperleft) (-ul)]]\n"); (void)fprintf(stderr," [(-rotate) (-rot) <1,2,3>]\n"); (void)fprintf(stderr," [-rmin ]"); (void)fprintf(stderr," [-rmax ]\n"); (void)fprintf(stderr," [-linear] [-wrap ] [-histeq]"); (void)fprintf(stderr," [-sqrt ] [-log ]\n"); (void)fprintf(stderr," [-min ] [-max ]\n"); (void)fprintf(stderr," [(-palette) (-p) ]"); (void)fprintf(stderr," [(-neg) (-n)]\n"); (void)fprintf(stderr," [(-vertgraph) (-vg)] [(-horizgraph) (-hg)]\n"); (void)fprintf(stderr," [(+/-verbose) (+/-v) (-quiet) (-q)]"); (void)fprintf(stderr," [(+/-coord) (+/-ct)]\n"); (void)fprintf(stderr," [(+/-magnifier) (+/-mt)]"); (void)fprintf(stderr," [-mag ]\n"); (void)fprintf(stderr," [(+/-imtool) (-pros)]\n"); (void)fprintf(stderr," [-idev ] [-odev ]"); (void)fprintf(stderr," [-fbconfig ]\n"); (void)fprintf(stderr," [(-red) (-green) (-blue)]\n"); (void)fprintf(stderr," [(-panboxav) (-panboxsamp) (-panboxsum)"); (void)fprintf(stderr," (-panboxmax)]\n"); (void)fprintf(stderr," [-lprbuttons] [-mtf]"); (void)fprintf(stderr," [(-bordercolor) (-bc) ]\n"); #ifdef ALLIANT (void)fprintf(stderr," [-alliant]"); #endif (void)fprintf(stderr,"In most cases, the image filename needs no switch"); (void)fprintf(stderr," and can appear anywhere\nin the options list\n"); return( -1 ); } saoimage-1.08/Old/cmdimage.c 666 21641 13 27033 4705137427 11012 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: cmdimage.c (Command Image File) * Purpose: Set options from command line * Subroutine: parse_filename() returns: int * Subroutine: parse_filetype() returns: int * Subroutione: parse_fileread() returns: int * Subroutione: parse_connection() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 5 Jan 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {2} John Add Socket connection 8 May 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* for atof (see Ultrx atof man page) */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ /* * Subroutine: parse_filename * Purpose: Parse commandline to find an image file name */ int parse_filename ( argc, argv, argi, got_name ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_name; /* status word (use bit for found a file name) */ { int i; int usage(); i = *argi; /* --- check for the filename as an unidentified string --- */ if( (argv[i][0] != '-') && ((argv[i][0] == '/') || (isalpha(argv[i][0]))) ) { if( *got_name & CMD_FNAME ) { (void)fprintf(stderr, "More than 1 possible file name: %s %s.\n", img.filename, argv[i]); return( usage("filename", argc, argv, i, i) ); } else { img.filename = argv[i]; *got_name |= CMD_FNAME; } return( 1 ); } /* --- check for filename as an identified string --- */ if( (strcmp(argv[i], "-name") == 0) || (strcmp(argv[i], "-") == 0) ) { if( ++i >= argc ) return( usage("filename", argc, argv, i-1, i) ); if( *got_name & CMD_FNAME ) { (void)fprintf(stderr, "More than 1 possible file name: %s %s.\n", img.filename, argv[i]); return( usage("filename", argc, argv, i, i) ); } else { img.filename = argv[i]; *got_name |= CMD_FNAME; } *argi = i; return( 1 ); } return( 0 ); } /* * Subroutine: parse_filetype * Purpose: Parse command line for image file type */ int parse_filetype ( argc, argv, argi, got_type ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_type; /* status word (bit for got an image type switch) */ { int i; i = *argi; /* --- IMAGE FILE TYPE --- */ if( strcmp(argv[i], "-iraf") == 0 ) { /* --- IRAF image --- */ img.file_type = SOP_IRAF; } else if( strcmp(argv[i], "-oif") == 0 ) { /* --- Iraf OIF .imh headed image file --- */ img.file_type = SOP_IRAF; } else if( strcmp(argv[i], "-fits") == 0 ) { /* --- FITS image --- */ img.file_type = SOP_FITS; } else if( strcmp(argv[i], "-dfits") == 0 ) { /* --- FITS image in non-standard byte swap order --- */ img.file_type = SOP_FITS; img.byte_swap = !img.byte_swap; } else if( strcmp(argv[i], "-saoccd") == 0 ) { /* --- SAOCCD image --- */ img.file_type = SOP_SAOCCD; } else if( strcmp(argv[i], "-ros") == 0 ) { /* --- ROSAT HOPR HRI image --- */ img.file_type = SOP_ROSAT; } else { /* --- check array type specification --- */ if( (strcmp(argv[i], "-chararray") == 0) || (strcmp(argv[i], "-u1" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_U1; img.bytepix = 1; } else if( (strcmp(argv[i], "-shortarray") == 0) || (strcmp(argv[i], "-i2" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_I2; img.bytepix = 2; } else if( (strcmp(argv[i], "-ushortarray") == 0) || (strcmp(argv[i], "-u2" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_U2; img.bytepix = 2; } else if( (strcmp(argv[i], "-longarray") == 0) || (strcmp(argv[i], "-i4" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_I4; img.bytepix = 4; } else if( (strcmp(argv[i], "-floatarray") == 0) || (strcmp(argv[i], "-r4" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_R4; img.bytepix = 4; } else if( (strcmp(argv[i], "-doublearray") == 0) || (strcmp(argv[i], "-r8" ) == 0) ) { img.file_type = SOP_Array; img.storage_type = ARR_R8; img.bytepix = 8; } else { /* --- got here if no match of any type --- */ return( 0 ); } /* --- got here by finding an array type identifier --- */ /* if there are more arguments and the first does not start with '-' */ if( (argc > (i+2)) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { /* --- if giving args like this, 2 must be given --- */ if( ((i+2) >= argc) || ((img.filecols = atoi (argv[++i])) <= 0) || ((img.filerows = atoi (argv[++i])) <= 0) ) return( usage("array size", argc, argv, i-3, i) ); } } /* --- got here after finding a match --- */ *got_type |= CMD_FTYPE; *argi = i; return( 1 ); } /* * Subroutine: parse_fileread * Purpose: Parse command line for image file reading parameters */ int parse_fileread ( argc, argv, argi, got_read ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_read; /* status word (bit that there were read parameters) */ { int i; i = *argi; if( (strcmp(argv[i], "-sk") == 0) || (strcmp(argv[i], "-skip") == 0) || (strcmp(argv[i], "-header") == 0) ) { /* --- skip header of given size --- */ if( (++i >= argc) || ((img.headersize = atoi(argv[i])) < 0) ) return( usage("header size", argc, argv, i-1, i) ); } else if( (strcmp(argv[i], "-bswap") == 0) || (strcmp(argv[i], "-byteswap") == 0) ) { /* --- selecting byteswap gets reverse byteswap of whatever it was --- */ img.byte_swap = !img.byte_swap; } else if( (strcmp(argv[i], "-sb") == 0) || (strcmp(argv[i], "-scalebias") == 0) ) { /* --- scale and bias for image file data --- */ double scale; float bias; if( (i + 2) >= argc ) return( usage("args for scale and bias", argc, argv, i, i) ); if( (scale = atof(argv[++i])) <= 0.0 ) return( usage("value for scale", argc, argv, i-1, i) ); if( sscanf(argv[++i], "%f", &bias) != 1 ) return( usage("value for bias", argc, argv, i-2, i) ); /* store values and flag if they represent remapping of the values */ if( ((img.fscale = scale) != 1.0) || ((img.fbias = (double)bias) != 0.0) ) img.fscaled = 1; else img.fscaled = 0; } else if( (strcmp(argv[i], "-dc") == 0) || (strcmp(argv[i], "-dispcen") == 0) ) { /* --- initial display location --- */ if( ((i+2) >= argc) || (img.fdcenX = atof(argv[++i]) <= 0.0) || (img.fdcenY = atof(argv[++i]) <= 0.0) ) return( usage("display center", argc, argv, i-3, i) ); if( (argc >= (i+1)) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { if( (img.fdblock = atoi(argv[++i]) == 0) ) return( usage("display blocking", argc, argv, i-1, i) ); } } else if( (strcmp(argv[i], "-buf") == 0) || (strcmp(argv[i], "-bufmax") == 0) ) { /* --- maximum buffer array size (1 side of square) --- */ if( (++i >= argc) || ((img.bufmax = atoi(argv[i])) <= 0) ) return( usage("buffer limit", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-fbconfig") == 0 ) { /* --- iraf display configuration --- */ if( (++i >= argc) || ((img.fbconfig = atoi(argv[i])) == 0) ) return( usage("fbconfig", argc, argv, i-1, i) ); } else { return( 0 ); } *got_read |= CMD_FREAD; *argi = i; return( 1 ); } /* * Subroutine: parse_connection * Purpose: Parse command line for socket or pipe connection stuff */ int parse_connection ( argc, argv, argi, got_read, init ) int argc; /* i: total number of arg tokens */ char *argv[]; /* i: array of arg tokens */ int *argi; /* i/o: first arg to check, (return last arg used) */ int *got_read; /* o: status word (bit for connection parameters) */ int init; /* i: this is init time */ { int i; void open_imtool_connection(), close_imtool_connection(); void rename_imtool_connection(); #ifdef REALTIME void open_rtsock_connection(); void open_rtfifo_connection(); #endif i = *argi; if( strcmp(argv[i], "-pros") == 0 ) { /* --- Imtool pipe with pros extensions --- */ if( init ) { control.IRAF_in.open = 1; control.IRAF_in.func = open_imtool_connection; } else if( control.IRAF_in.open == 0 ) open_imtool_connection(); control.IRAF_out.protocol = IOP_PROS; } else if( strcmp(argv[i], "-imtool") == 0 ) { /* --- Imtool pipe --- */ if( init ) { control.IRAF_in.open = 1; control.IRAF_in.func = open_imtool_connection; } else if( control.IRAF_in.open == 0 ) open_imtool_connection(); control.IRAF_out.protocol = IOP_Imtool; } else if( strcmp(argv[i], "-imtool-") == 0 ) { /* --- Close imtool pipe --- */ if( (init == 0) && (control.IRAF_in.open != 0) ) close_imtool_connection(); control.IRAF_in.open = 0; control.IRAF_in.func = NULL; } else if( strcmp(argv[i], "-idev") == 0 ) { /* --- iraf input pipe device --- */ if( ++i >= argc ) return( usage ("idev", argc, argv, i-1, i) ); rename_imtool_connection(argv[i], 1); } else if( strcmp(argv[i], "-odev") == 0 ) { /* --- iraf output pipe device --- */ if( ++i >= argc ) return( usage("odev", argc, argv, i-1, i) ); rename_imtool_connection(argv[i], 0); #ifdef REALTIME } else if( strcmp(argv[i], "-rtsock") == 0 ) { /* --- RTIO Socket --- */ if( init ) { control.aux_in.open = 1; control.aux_in.func = open_rtsock_connection; if( (argc >= i) && (argv[i+1][0] != '-') && isdigit(argv[i+1][0]) ) { int j = 0; i++; while ( argv[i][j] != '@' && argv[i][j] != '\0' ) j++; if ( argv[i][j] == '@' ) { argv[i][j] = '\0'; control.aux_in.name = &argv[i][++j]; } else control.aux_in.name = NULL; } else return( usage("port", argc, argv, i-1, i ) ); control.aux_in.address = atoi(argv[i]); } else if( control.aux_in.open == 0 ) open_rtsock_connection(&control.aux_in); control.aux_in.protocol = IOP_socket; } else if( strcmp(argv[i], "-rtfifo") == 0 ) { /* --- RTIO FIFO --- */ if( init ) { control.aux_in.open = 1; control.aux_in.func = open_rtfifo_connection; if( ++i >= argc ) { return( usage("odev", argc, argv, i-1, i) ); } else { control.aux_in.name = argv[i]; }; } else if( control.aux_in.open == 0 ) open_rtfifo_connection(&control.aux_in); #endif } else { return( 0 ); } *got_read |= CMD_CONNECT; *argi = i; return( 1 ); } saoimage-1.08/grphpos.c 666 21641 13 16316 4616421103 10176 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphpos.c (Color Graph Position) * Subroutine: select_best_hash_position() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 June 1989 * {n} -- -- */ #include /* X window stuff */ #define ABS(a) ((a) < 0 ? (-(a)) : (a)) /* * Subroutine: select_best_hash_position * Purpose: Select the best place in the list for a new hash mark, based * on its coordinates and those of existing hash marks. * Returns: The hash index to give the new hash mark. * Note: match is used to force new vertex to use same cell_level as * the vertex which it is next to. When vertexes have same * screen coordinate, converting to a real may produce values * in the wrong order. */ int select_best_hash_position ( x, y, hash, hash_cnt, match, vertical ) int x, y; XRectangle hash[]; int hash_cnt; int *match; /* o: close hash with same x value */ int vertical; /* i: flag for vertical, else horizontal */ { int i; /* initially no existing hash with which to match level */ *match = -1; if( hash_cnt == 0 ) return( 0 ); if( vertical ) { /* vertical */ for( i = 0; ((i < hash_cnt) && (y < hash[i].y)); i++ ); if( (i == hash_cnt) || (y > hash[i].y) ) /* y between this and previous hash mark (or beyond either end) */ return( i ); *match = i; /* else y same as hash i's y */ if( y == (hash_cnt - 1) ) { /* same as last hash mark */ if( x > hash[i].x ) { if( hash[i-1].x > hash[i].x ) return( i ); else return( i+1 ); } else { if( hash[i-1].x < hash[i].x ) return( i ); else return( i+1 ); } } if( y > hash[i+1].y ) { /* same y as one other hash mark */ if( i == 0 ) { /* same as first one */ if( x > hash[i].x ) { if( hash[i+1].x < hash[i].x ) return( i ); else return( i+1 ); } else { if( hash[i+1].x < hash[i].x ) return( i ); else return( i+1 ); } } /* not same as first one */ if( x > hash[i].x ) { if( hash[i-1].x > hash[i+1].x ) return( i ); else return( i+1 ); } else { if( hash[i-1].x < hash[i+1].x ) return( i ); else return( i+1 ); } } { int close, dx, j; /* y matches two or more hashes' y */ close = ABS(x - hash[i].x); /* advance to closest hash with same y */ for( j=i+1; (j hash[i].x ) { if( hash[i+1].x < hash[i].x ) return( i ); else return( i+1 ); } else { if( hash[i+1].x > hash[i].x ) return( i ); else return( i+1 ); } } if( i == (hash_cnt - 1) ) { /* last hash (previous also same y) */ if( x > hash[i].x ) { if( hash[i-1].x > hash[i].x ) return( i ); else return( i+1 ); } else { if( hash[i-1].x < hash[i].x ) return( i ); else return( i+1 ); } } /* not an extreme hash, at least one other with same y */ if( hash[i-1].y == hash[i+1].y ) { /* middle of three with same y */ if( x > hash[i].x ) { if( hash[i-1].x > hash[i+1].x ) return( i ); else return( i+1 ); } else { if( hash[i-1].x < hash[i+1].x ) return( i ); else return( i+1 ); } } if( hash[i-1].y == y ) { if( x > hash[i].x ) { if( hash[i-1].x > hash[i].x ) /* new position between two with same y */ return( i ); else return( i+1 ); } else { if( hash[i-1].x < hash[i].x ) /* new position between two with same y */ return( i ); else return( i+1 ); } } else { if( x > hash[i].x ) { if( hash[i+1].x > hash[i].x ) /* new position between two with same y */ return( i+1 ); else return( i ); } else { if( hash[i+1].x < hash[i].x ) /* new position between two with same y */ return( i+1 ); else return( i ); } } } else { /* horizontal */ for( i = 0; ((i < hash_cnt) && (x > hash[i].x)); i++ ); if( (i == hash_cnt) || (x < hash[i].x) ) /* x between this an previous hash mark (or beyond either end) */ return( i ); /* else x same as hash i's x */ *match = i; if( x == (hash_cnt - 1) ) { /* same as last hash mark */ if( y > hash[i].y ) { if( hash[i-1].y > hash[i].y ) return( i ); else return( i+1 ); } else { if( hash[i-1].y < hash[i].y ) return( i ); else return( i+1 ); } } if( x < hash[i+1].x ) { /* same x as one other hash mark */ if( i == 0 ) { /* same as first one */ if( y > hash[i].y ) { if( hash[i+1].y < hash[i].y ) return( i ); else return( i+1 ); } else { if( hash[i+1].y < hash[i].y ) return( i ); else return( i+1 ); } } /* not same as first one */ if( y > hash[i].y ) { if( hash[i-1].y > hash[i+1].y ) return( i ); else return( i+1 ); } else { if( hash[i-1].y < hash[i+1].y ) return( i ); else return( i+1 ); } } { int close, dy, j; /* x matches two or more hashes' x */ close = ABS(y - hash[i].y); /* advance to closest hash with same x */ for( j=i+1; (j hash[i].y ) { if( hash[i+1].y < hash[i].y ) return( i ); else return( i+1 ); } else { if( hash[i+1].y > hash[i].y ) return( i ); else return( i+1 ); } } if( i == (hash_cnt - 1) ) { /* last hash (previous also same x) */ if( y > hash[i].y ) { if( hash[i-1].y > hash[i].y ) return( i ); else return( i+1 ); } else { if( hash[i-1].y < hash[i].y ) return( i ); else return( i+1 ); } } /* not an extreme hash, at least one other with same x */ if( hash[i-1].x == hash[i+1].x ) { /* middle of three with same x */ if( y > hash[i].y ) { if( hash[i-1].y > hash[i+1].y ) return( i ); else return( i+1 ); } else { if( hash[i-1].y < hash[i+1].y ) return( i ); else return( i+1 ); } } if( hash[i-1].x == x ) { if( y > hash[i].y ) { if( hash[i-1].y > hash[i].y ) /* new position between two with same x */ return( i ); else return( i+1 ); } else { if( hash[i-1].y < hash[i].y ) /* new position between two with same x */ return( i ); else return( i+1 ); } } else { if( y > hash[i].y ) { if( hash[i+1].y > hash[i].y ) /* new position between two with same x */ return( i+1 ); else return( i ); } else { if( hash[i+1].y < hash[i].y ) /* new position between two with same x */ return( i+1 ); else return( i ); } } } } saoimage-1.08/grphmove.c 666 21641 13 15264 4613617246 10360 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphmove.c (Color Graph Move) * Subroutine: move_cgraph_vertices() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 June 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ #include "hfiles/cgraph.h" extern struct cgraphRec cgraph; /* * Subroutine: move_cgraph_vertices * Purpose: Change values (and position) of designated vertices in * response to mouse movement */ void move_cgraph_vertices ( x, y ) int x, y; { double cell_level, intensity; int hash_x, hash_y; static void move_color_vertex(); /* clip against limits */ if( x < cgraph.graph.xzero ) x = cgraph.graph.xzero; else if( x > cgraph.graph.xmax ) x = cgraph.graph.xmax; if( y < cgraph.graph.yzero ) y = cgraph.graph.yzero; else if( y > cgraph.graph.ymax ) y = cgraph.graph.ymax; hash_x = x - HASH_RAY; hash_y = y - HASH_RAY; if( cgraph.vertical ) { cell_level = (cgraph.hash.Ymax - (double)hash_y) / cgraph.hash.Yheight; intensity = ((double)hash_x - cgraph.hash.Xzero) / cgraph.hash.Xwidth; } else { cell_level = ((double)hash_x - cgraph.hash.Xzero) / cgraph.hash.Xwidth; intensity = (cgraph.hash.Ymax - (double)hash_y) / cgraph.hash.Yheight; } /* clip against limits */ if( cell_level < 0.0 ) cell_level = 0.0; else if( cell_level > 1.0 ) cell_level = 1.0; if( intensity < 0.0 ) intensity = 0.0; else if( intensity > 1.0 ) intensity = 1.0; /* move all active vertices */ if( cgraph.red.active ) move_color_vertex (&cgraph.red, hash_x, hash_y, cell_level, intensity); if( cgraph.green.active ) move_color_vertex (&cgraph.green, hash_x, hash_y, cell_level, intensity); if( cgraph.blue.active ) move_color_vertex (&cgraph.blue, hash_x, hash_y, cell_level, intensity); } /* * Subroutine: move_color_vertex * Purpose: Move one ccolor graph vertex */ static void move_color_vertex ( col, x, y, new_cell_level, new_intensity ) struct colgRec *col; int x, y; double new_cell_level; double new_intensity; { int active_hash; XRectangle *hash; active_hash = col->active_hash; hash = col->hash; if( cgraph.vertical ) { if( hash[active_hash].y == y ) { /* no change in y (cell_level) */ if( hash[active_hash].x != x ) { hash[active_hash].x = x; col->table->intensity[col->active_vertex] = new_intensity; } return; } else { /* both x and y changed */ double *cell_level = col->table->cell_level; double *base_level = col->table->base_level; double *intensity = col->table->intensity; int active_vertex = col->active_vertex; int vertex_cnt = col->table->vertex_cnt; if( y < hash[active_hash].y ) { /* moved up */ if( (active_vertex < (vertex_cnt - 1)) && (cell_level[active_vertex + 1] < new_cell_level) ) { /* position in list must change */ register int i, j; for( i = active_vertex, j = i + 1; ((j < vertex_cnt) && (cell_level[j] < new_cell_level)); i = j, j++ ) { cell_level[i] = cell_level[j]; base_level[i] = base_level[j]; intensity[i] = intensity[j]; hash[active_hash].x = hash[active_hash+1].x; hash[active_hash].y = hash[active_hash+1].y; active_hash++; } active_vertex = i; col->active_vertex = i; col->active_hash = active_hash; } } else { /* moved down */ if( (active_vertex > 0) && (cell_level[active_vertex - 1] > new_cell_level) ) { /* position in list must change */ register int i, j; for( i = active_vertex, j = i - 1; ((i > 0) && (cell_level[j] > new_cell_level)); i = j, j-- ) { cell_level[i] = cell_level[j]; base_level[i] = base_level[j]; intensity[i] = intensity[j]; hash[active_hash].x = hash[active_hash+1].x; hash[active_hash].y = hash[active_hash+1].y; active_hash--; } active_vertex = i; col->active_vertex = i; col->active_hash = active_hash; } } cell_level[active_vertex] = new_cell_level; base_level[active_vertex] = (new_cell_level - col->table->bias) / col->table->contrast; col->table->intensity[active_vertex] = new_intensity; hash[active_hash].x = x; hash[active_hash].y = y; } } else { /* horizontal */ if( hash[active_hash].x == x ) { if( hash[active_hash].y != y ) { hash[active_hash].y = y; col->table->intensity[col->active_vertex] = new_intensity; } return; } else { /* cell_level changed */ double *cell_level = col->table->cell_level; double *base_level = col->table->base_level; double *intensity = col->table->intensity; int active_vertex = col->active_vertex; int vertex_cnt = col->table->vertex_cnt; if( x > hash[active_hash].x ) { /* moved up */ if( (active_vertex < (vertex_cnt - 1)) && (cell_level[active_vertex + 1] < new_cell_level) ) { /* position in list must change */ register int i, j; for( i = active_vertex, j = i + 1; ((j < vertex_cnt) && (cell_level[j] < new_cell_level)); i = j, j++ ) { cell_level[i] = cell_level[j]; base_level[i] = base_level[j]; intensity[i] = intensity[j]; hash[active_hash].x = hash[active_hash+1].x; hash[active_hash].y = hash[active_hash+1].y; active_hash++; } active_vertex = i; col->active_vertex = i; col->active_hash = active_hash; } } else { /* moved down */ if( (active_vertex > 0) && (cell_level[active_vertex - 1] > new_cell_level) ) { /* position in list must change */ register int i, j; for( i = active_vertex, j = i - 1; ((i > 0) && (cell_level[j] > new_cell_level)); i = j, j-- ) { cell_level[i] = cell_level[j]; base_level[i] = base_level[j]; intensity[i] = intensity[j]; hash[active_hash].x = hash[active_hash+1].x; hash[active_hash].y = hash[active_hash+1].y; active_hash--; } active_vertex = i; col->active_vertex = i; col->active_hash = active_hash; } } cell_level[active_vertex] = new_cell_level; base_level[active_vertex] = (new_cell_level - col->table->bias) / col->table->contrast; col->table->intensity[active_vertex] = new_intensity; hash[active_hash].x = x; hash[active_hash].y = y; } } col->unset = 1; } saoimage-1.08/histlist.c 666 21641 13 35744 5030502244 10362 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: histlist.c (Histogram List) * Subroutine: make_equalized_list() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 May 1989 * {1} MVH constraints based on best history 15 Dec 1989 * {2} JRW limit to get out of infinite loop 19 Jun 1991 * {n} -- -- */ #include #include "hfiles/histeq.h" /* define SubrangeList */ #define MAXITERATIONS 1000 /* --jrw */ #ifdef DEBUG #define HDEBUG #endif /* * Subroutine: make_equalized_list * Purpose: Distributing levels for a subrange section of the histogram */ void make_equalized_list ( histogram, list, low_entry, high_entry, pixel_area, color_levels ) int *histogram; SubrangeList *list; int low_entry, high_entry; int pixel_area, color_levels; { int shrink_level, stretch_level; int max_shrink, min_stretch; int average_area, end_area, min_area, max_area; int levels_given; /* levels which equalize_simply used */ int correction; /* correction for asymptotic convergence */ int iterations; /* avoid infinite loop --jrw */ int end_error; /* deviation from ideal of last level */ int best_levels_over; /* levels from an equalize worth remembering */ int best_levels_under; int best_average_over = 0; /* average_area used to get best_levels */ int best_average_under = 0; static int equalize_simply(); #ifdef JIGGLE static void adjust_list(); #endif /* else allocation distribution must first be determined */ /* run through histgram section making basic allocation and taking notes */ average_area = pixel_area / color_levels; max_area = max_shrink = 0; min_area = min_stretch = pixel_area + 1; /* use 2*color_levels to allow allocation to exceed limit */ levels_given = equalize_simply(histogram, list, 0, average_area, low_entry, high_entry, color_levels + color_levels, &shrink_level, &stretch_level, &end_area, &min_area, &max_area, &min_stretch, &max_shrink); if( levels_given != color_levels ) { /* make approximation for large errors */ correction = ((color_levels - levels_given) * average_area) / -100; /* default correction if error was relatively small */ if( (correction < 2) && (correction > -2) ) { if( color_levels > levels_given ) correction = -2; else correction = 2; } /* record what has been learned so far */ if( levels_given > color_levels ) { best_levels_over = levels_given; best_average_over = average_area; } else { best_levels_under = levels_given; best_average_under = average_area; } } else /* if first try was good enough, go with it */ correction = 0; end_error = 0; iterations = 0; /* --jrw */ while( (correction != 0) && (iterations++ < MAXITERATIONS) ) { /* --jrw */ average_area += correction; levels_given = equalize_simply(histogram, list, 0, average_area, low_entry, high_entry, color_levels + color_levels, &shrink_level, &stretch_level, &end_area, &min_area, &max_area, &min_stretch, &max_shrink); if( levels_given != color_levels ) { if( levels_given > color_levels ) { /* is this the closest overshoot */ if( (best_average_over == 0) || (levels_given < best_levels_over) ) { best_levels_over = levels_given; best_average_over = average_area; } if( correction < 0 ) { /* went too far, turn back if that is an option */ if( (correction == -1) && (end_error == 0) ) /* done if we never got to a true result */ correction = 0; else /* asymtotic correction to converge on solution */ correction = (correction - 1) / -2; } else if( (best_average_under != 0) && (best_average_under <= (average_area + correction)) ) /* if continue in same direction, don't pass previous best */ correction = (best_average_under - average_area) - 1; } else { /* is this the closest undershoot */ if( (best_average_under == 0) || (levels_given < best_levels_under) ) { best_levels_under = levels_given; best_average_under = average_area; } if( correction > 0 ) { if( (correction == 1) && (end_error == 0) ) /* done if we never got to a true result */ correction = 0; else /* asymtotic correction to converge on solution */ correction = (correction + 1) / -2; } else if( (best_average_over != 0) && (best_average_over <= (average_area + correction)) ) /* if continue in same direction, don't pass previous best */ correction = (best_average_over - average_area) + 1; } } else if( (end_area > max_area) || (end_area < min_area) ) { if( correction < -16 ) correction = -16; else if( correction > 16 ) correction = 16; if( end_area > average_area ) { if( correction < 0 ) { /* this is an overshoot */ correction = correction / -2; if( (end_error == 0) || ((end_area - average_area) > end_error) ) { /* go back if we might do better */ if( correction == 0 ) correction = 1; } end_error = end_area - average_area; } } else { if( correction > 0 ) { /* this is an overshoot */ correction = correction / -2; if( (end_error == 0) || ((average_area - end_area) > end_error) ) { /* go back if we might do better */ if( correction == 0 ) correction = -1; } end_error = average_area - end_area; } } } else correction = 0; } if (correction != 0) { (void)printf("SAOimage: histeq could not converge on best distribution,"); (void)printf(" proceeding anyway\n"); (void)fflush(stdout); } /* if no fit yet, force one by making last level stretch */ if( (levels_given != color_levels) && (best_average_over != 0) ) { levels_given = equalize_simply(histogram, list, 0, best_average_over, low_entry, high_entry, color_levels, &shrink_level, &stretch_level, &end_area, &min_area, &max_area, &min_stretch, &max_shrink); } #ifdef JIGGLE /* This section to directly adjust level boundaries for a better fit * is experimental. It is not currently used, because the improvement * is not important relative to the processing time that can occur * in non-stable situations. In some situations, such as when * levels != color_levels coming out of the previous loop, a few * passes could yield worthwhile improvements. */ #ifdef HDEBUG (void)printf("Before adjustment: %d (between: %d %d), end: %d\n", max_area - min_area, min_area, max_area, end_area); (void)fflush(stdout); #endif /* jiggle the allocations for a better fit (reduce maximum error) */ if( (end_area > max_area) && (end_area > min_stretch) ) { /* bunch toward the end to make it smaller */ while( (end_area > max_area) && (end_area > min_stretch) ) { average_area = min_stretch; adjust_list(1, histogram, list, color_levels, low_entry, high_entry, average_area, &stretch_level, &shrink_level, &end_area, &min_area, &max_area, &min_stretch, &max_shrink); } } else if( (end_area < min_area) && (end_area < max_shrink) ) { /* bunch away from the end to make it bigger */ while( (end_area < min_area) && (end_area < max_shrink) ) { average_area = max_shrink; adjust_list(0, histogram, list, color_levels, low_entry, high_entry, average_area, &stretch_level, &shrink_level, &end_area, &min_area, &max_area, &min_stretch, &max_shrink); } } #ifdef HDEBUG (void)printf("After adjustment: %d (between: %d %d), end: %d\n", max_area - min_area, min_area, max_area, end_area); (void)fflush(stdout); #endif #endif } /* * Subroutine: equalize_simply * Purpose: Make a list to describe map using basic allocation method * Note: Allocate levels from "level" to "color_levels" */ static int equalize_simply ( histogram, histlist, level, average_area, low_entry, high_entry, color_levels, shrink_level, stretch_level, end_area, min_area, max_area, min_stretch, max_shrink ) int *histogram; SubrangeList *histlist; int level, average_area; int low_entry, high_entry; int color_levels; int *shrink_level, *stretch_level; int *end_area, *min_area, *max_area; int *min_stretch, *max_shrink; { int entry, neighbor_entry; int area, old_area; int err_low, err_high; int init_next; /* initialize parameters */ init_next = 0; area = 0; histlist[level].first = low_entry; /* reduce by one for indexing to end on last list level */ color_levels--; /* in this pass, assign levels by simple method */ for( entry = low_entry; entry <= high_entry; entry++ ) { if( init_next ) { ++level; histlist[level].first = entry; area = 0; init_next = 0; } old_area = area; area += histogram[entry]; /* while levels last, scan till exceed average area */ if( (level < color_levels) && (area >= average_area) ) { err_low = average_area - old_area; err_high = area - average_area; if( err_high < err_low ) { /* err to excess */ histlist[level].last = entry; histlist[level].pixel_area = area; /* shrink option would be to exclude this entry */ histlist[level].shrink_area = old_area; histlist[level].shrink_entry = entry - 1; /* look for next non-zero entry to include for stretch option */ neighbor_entry = entry; do { ++neighbor_entry; } while( (neighbor_entry <= high_entry) && (histogram[neighbor_entry] == 0) ); if( neighbor_entry > high_entry ) { /* if at high end, exagerate to preclude this option */ histlist[level].stretch_area = 10 * area; histlist[level].stretch_entry = high_entry; } else { histlist[level].stretch_area = area + histogram[neighbor_entry]; histlist[level].stretch_entry = neighbor_entry; } } else { /* err short */ /* exclude this entry */ neighbor_entry = entry - 1; histlist[level].last = neighbor_entry; histlist[level].pixel_area = old_area; /* including this entry is the stretch option */ histlist[level].stretch_area = area; histlist[level].stretch_entry = entry; /* look for previous non-zero entry for shrink option (check limit) */ while( (neighbor_entry >= low_entry) && (histogram[neighbor_entry] == 0) ) --neighbor_entry; if( neighbor_entry < low_entry ) { /* if at low end, preclude this option */ histlist[level].shrink_area = 0; histlist[level].shrink_entry = low_entry; } else { histlist[level].shrink_area = old_area - histogram[neighbor_entry]; histlist[level].shrink_entry = neighbor_entry - 1; } /* leave this entry for the next level */ --entry; } /* check for new champions of excess */ if( histlist[level].pixel_area < *min_area ) *min_area = histlist[level].pixel_area; if( histlist[level].pixel_area > *max_area ) *max_area = histlist[level].pixel_area; if( histlist[level].stretch_area <= *min_stretch ) { *min_stretch = histlist[level].stretch_area; *stretch_level = level; } if( histlist[level].shrink_area >= *max_shrink ) { *max_shrink = histlist[level].shrink_area; *shrink_level = level; } init_next = 1; } } /* mark end of list (level should be last one (color_levels - 1)) */ histlist[level].pixel_area = area; *end_area = area; histlist[level].last = entry - 1; return( level + 1 ); } #ifdef JIGGLE /* * Subroutine: adjust_list * Purpose: Alter a level of the map and remake section above altered level */ static void adjust_list ( stretch_this_entry, histogram, histlist, color_levels, low_entry, high_entry, average_area, stretch_level, shrink_level, end_area, min_area, max_area, min_stretch, max_shrink ) int stretch_this_entry; /* i: stretch an entry, else shrink one */ int *histogram; SubrangeList *histlist; int color_levels; int low_entry, high_entry, average_area; int *shrink_level, *stretch_level; int *end_area, *min_area, *max_area; int *min_stretch, *max_shrink; { int level, j, neighbor_entry; int equalize_simply(); /* make an adjustment */ if( stretch_this_entry ) { /* stretch an entry */ level = *stretch_level; /* shrink returns to what it was */ histlist[level].shrink_area = histlist[level].pixel_area; histlist[level].shrink_entry = histlist[level].last; /* current was stretch option before */ histlist[level].pixel_area = histlist[level].stretch_area; histlist[level].last = histlist[level].stretch_entry; /* find the next non-zero entry for the new stretch option */ neighbor_entry = histlist[level].last; do { ++neighbor_entry; } while( (neighbor_entry <= high_entry) && (histogram[neighbor_entry] == 0) ); if( neighbor_entry > high_entry ) { /* don't go off the edge */ histlist[level].stretch_area *= 10; histlist[level].stretch_entry = high_entry; } else { histlist[level].stretch_area += histogram[neighbor_entry]; histlist[level].stretch_entry = neighbor_entry; } } else { /* shrink an entry */ level = *shrink_level; /* stretch option becomes what it was */ histlist[level].stretch_area = histlist[level].pixel_area; histlist[level].stretch_entry = histlist[level].last; /* current was shrink option before */ histlist[level].last = histlist[level].shrink_entry; histlist[level].pixel_area = histlist[level].shrink_area; /* look for last non-zero entry to exclude for new shrink option */ neighbor_entry = histlist[level].last; while( (neighbor_entry >= low_entry) && (histogram[neighbor_entry] == 0) ) --neighbor_entry; if( neighbor_entry < low_entry ) { /* don't go off the edge */ histlist[level].shrink_area = 0; histlist[level].shrink_entry = low_entry; } else { histlist[level].shrink_area -= histogram[neighbor_entry]; histlist[level].shrink_entry = neighbor_entry - 1; } } /* remake list with this change */ *min_area = *min_stretch = average_area * 3; *max_shrink = *max_area = 0; /* retake notes up to point of change */ for( j = 0; j <= level; j++ ) { if( histlist[j].pixel_area < *min_area ) *min_area = histlist[j].pixel_area; if( histlist[j].pixel_area > *max_area ) *max_area = histlist[j].pixel_area; if( histlist[j].stretch_area <= *min_stretch ) { *min_stretch = histlist[j].stretch_area; *stretch_level = j; } if( histlist[j].shrink_area >= *max_shrink ) { *max_shrink = histlist[j].shrink_area; *shrink_level = j; } } if( (level < color_levels) && (histlist[level].last < high_entry) ) /* make rest of list in normal way */ (void)equalize_simply(histogram, histlist, j, average_area, histlist[level].last + 1, high_entry, color_levels, shrink_level, stretch_level, end_area, min_area, max_area, min_stretch, max_shrink); } #endif saoimage-1.08/grphinit.c 666 21641 13 30027 4613617554 10351 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphinit.c (Color Graph Initialize) * Purpose: Initialize or reset color bar and graph * Subroutine: init_colorbox() returns: void * Subroutine: init_main_colorbar() returns: void * Subroutine: adjust_main_colorbar() returns: void * Subroutine: init_graph_colorbar() returns: void * Subroutine: adjust_graph_colorbar() returns: void * Subroutine: map_halftone_colorbar() returns: void * Subroutine: adjust_color_graph() returns: void * Extern: cgraph in CgraphCtrl.c (from Cgraph.def) * Xlib calls: XCreateSimpleWindow(), XSelectInput(), XMapSubwindows() * Xlib calls: XUnmapWindow(), XMapWindow() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 June 1989 * {1} Jay Travisano (STScI) VMS,IMTOOL changes 10 Nov 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cgraph.h" extern struct cgraphRec cgraph; extern struct colbarRec colorbar; /* flag to set color graph background black, else white */ int black_graph_background = 0; #if VMS && IMTOOL extern void XZ_ast(); extern int XZ_efn; #endif /* * Subroutine: init_colorbox * Purpose: Handle program init-time color bar and graph initialization */ void init_colorbox ( ) { static void init_main_colorbar(); cgraph.ncolors = color.ncolors; cgraph.red.table = &color.ctable.red; cgraph.green.table = &color.ctable.green; cgraph.blue.table = &color.ctable.blue; cgraph.red.draw = &color.gcset.red; cgraph.green.draw = &color.gcset.green; cgraph.blue.draw = &color.gcset.blue; cgraph.queue[cgraph.red.queue_index] = &cgraph.red; cgraph.queue[cgraph.green.queue_index] = &cgraph.green; cgraph.queue[cgraph.blue.queue_index] = &cgraph.blue; init_main_colorbar(); } /* * Subroutine: init_main_colorbar * Purpose: Initialize color bar and related params * Xlib calls: XCreateSimpleWindow(), XMapSubwindows() */ static void init_main_colorbar ( ) { char *calloc_errchk(); static void set_colorbar_image(), set_colorbar_params(); colorbar.display = colorbox.display; colorbar.ref_width = colorbox.width; colorbar.ref_height = colorbox.height; colorbar.image = &colorbox.image; set_colorbar_params(&colorbar, colorbox.xwidth, colorbox.yheight); colorbar.ID = XCreateSimpleWindow(colorbar.display, colorbox.ID, colorbox.xzero - BDRWDTH, colorbox.yzero - BDRWDTH, colorbar.width, colorbar.height, BDRWDTH, color.gcset.menu.foreground, color.gcset.menu.background); XMapWindow(colorbox.display, colorbar.ID); set_colorbar_image(&colorbar, 0); } /* * Subroutine: adjust_main_colorbar * Purpose: Adjust color bar size params and/or color data if needed */ void adjust_main_colorbar ( ) { char *calloc_errchk(); static void set_colorbar_image(), set_colorbar_params(); if( (colorbox.width != colorbar.ref_width) || (colorbox.height != colorbar.ref_height) ) { set_colorbar_params(&colorbar, colorbox.xwidth, colorbox.yheight); /* set flag in case somebody wants to coordinate */ XResizeWindow(colorbar.display, colorbar.ID, colorbar.width, colorbar.height); set_colorbar_image(&colorbar, 0); } else if( color.ncolors != colorbar.ncolors ) set_colorbar_image(&colorbar, 0); } /* * Subroutine: init_graph_colorbar * Purpose: Initialize color bar and related params * Xlib calls: XMapSubwindows() */ void init_graph_colorbar ( ) { Window create_cgraph_box(); char *calloc_errchk(); static void set_colorbar_image(), set_colorbar_params(); cgraph.bar.display = graphbox.display; cgraph.bar.ref_width = graphbox.width; cgraph.bar.ref_height = graphbox.height; cgraph.bar.image = &graphbox.image; if( cgraph.vertical ) { set_colorbar_params(&cgraph.bar, cgraph.barlabel.width - 4, cgraph.graph.height); cgraph.bar.ID = create_cgraph_box(1, graphbox.yzero - 1, cgraph.bar.width, cgraph.bar.height, graphbox.display, graphbox.ID, color.hard.true_black, NorthWestGravity); } else { set_colorbar_params(&cgraph.bar, cgraph.graph.width, cgraph.barlabel.height - 4); cgraph.bar.ID = create_cgraph_box(graphbox.xzero - 1, graphbox.height - cgraph.barlabel.height, cgraph.bar.width, cgraph.bar.height, graphbox.display, graphbox.ID, color.hard.true_black, SouthWestGravity); } XMapWindow(graphbox.display, cgraph.bar.ID); set_colorbar_image(&cgraph.bar, cgraph.vertical); } /* * Subroutine: adjust_graph_colorbar * Purpose: Adjust color bar size params and/or color data if needed */ void adjust_graph_colorbar ( ) { int resize = 0; char *calloc_errchk(); static void set_colorbar_image(), set_colorbar_params(); if( cgraph.vertical ) { if( graphbox.height != cgraph.bar.ref_height ) { set_colorbar_params(&cgraph.bar, cgraph.barlabel.width - 5, cgraph.graph.height); resize = 1; } } else { if( graphbox.width != cgraph.bar.ref_width ) { set_colorbar_params(&cgraph.bar, cgraph.graph.width, cgraph.barlabel.height - 3); resize = 1; } } if( resize ) XResizeWindow(cgraph.bar.display, cgraph.bar.ID, cgraph.bar.width, cgraph.bar.height); /* if size was or the number of colors were changed */ if( resize || (color.ncolors != cgraph.bar.ncolors) ) set_colorbar_image(&cgraph.bar, cgraph.vertical); } /* * Subroutine: map_halftone_colorbar * Purpose: Create and draw the color bar */ void map_halftone_colorbar ( disp, graph ) int disp; int graph; /* graphbox colorbar, else colorbox colorbar */ { struct colbarRec *bar; void make_halftone_colorbar(), draw_colorbar(); /* distinguish between two possible colorbars */ if( graph ) bar = &cgraph.bar; else bar = &colorbar; make_halftone_colorbar((unsigned char *)bar->byte_data, (unsigned char *)bar->bit_data, (int)bar->width, (int)bar->height, bar->bytes_per_bit_line); if( disp ) draw_colorbar(graph); } static void set_colorbar_params ( bar, width, height ) struct colbarRec *bar; int width, height; { int data_sz; char *calloc_errchk(); bar->width = width; bar->height = height; bar->bytes_per_bit_line = (bar->width + 7) / 8; bar->image->width = bar->width; bar->image->height = bar->height; data_sz = bar->width * (bar->height + bar->bytes_per_bit_line); if( data_sz > bar->data_size ) { if( bar->byte_data != NULL ) free(bar->byte_data); bar->byte_data = calloc_errchk(data_sz, sizeof(char), "color bar"); bar->bit_data = &bar->byte_data[bar->width * bar->height]; bar->data_size = data_sz; } } /* * Subroutine: set_colorbar_image * Purpose: Set the color bar for display of current color set */ static void set_colorbar_image ( bar, vertical ) struct colbarRec *bar; int vertical; { void fill_colorbar(), make_halftone_colorbar(); cgraph.disp = &(color.gcset.disp); cgraph.menu = &(color.gcset.menu); bar->ncolors = color.ncolors; if( color.ncolors > 1 ) { fill_colorbar((unsigned char *)bar->byte_data, (int)bar->width, (int)bar->height, 0, bar->ncolors - 1, vertical, vertical, color.pixvalmap); bar->image->data = bar->byte_data; bar->image->bytes_per_line = bar->width; bar->image->format = ZPixmap; bar->image->depth = color.screen_depth; } else { fill_colorbar((unsigned char *)bar->byte_data, (int)bar->width, (int)bar->height, 0, 255, vertical, vertical, color.pixvalmap); make_halftone_colorbar((unsigned char *)bar->byte_data, (unsigned char *)bar->bit_data, (int)bar->width, (int)bar->height, bar->bytes_per_bit_line); bar->image->data = bar->bit_data; bar->image->bytes_per_line = bar->bytes_per_bit_line; bar->image->format = XYBitmap; bar->image->depth = 1; } } /* * Subroutine: adjust_color_graph * Purpose: Adjust color graph size params and/or graph if needed * Xlib calls: XCreateSimpleWindow(), XSelectInput(), XMapSubwindows() */ void adjust_color_graph ( ) { int resize, bkgd, graph_x; void init_cgraph_lines(), init_cgraph_hash(); if( (cgraph.graph.ref_width != graphbox.width) || (cgraph.graph.ref_height != graphbox.height) ) { cgraph.graph.ref_width = graphbox.width; cgraph.graph.ref_height = graphbox.height; if( cgraph.vertical ) { cgraph.graph.width = graphbox.xwidth - (cgraph.barlabel.width + 1); cgraph.graph.height = graphbox.yheight; graph_x = cgraph.barlabel.width; } else { cgraph.graph.width = graphbox.xwidth; cgraph.graph.height = graphbox.yheight - cgraph.barlabel.height; graph_x = graphbox.xzero - BDRWDTH; } /* server call placed as soon as possible to reduce delay */ if( cgraph.graph.ID == NULL ) { cgraph.graph.display = graphbox.display; /* black used to show where cgraph lines overlap (white if black bkgd) */ if( black_graph_background ) { bkgd = color.hard.true_black; cgraph.black = &(color.gcset.white); } else { bkgd = color.hard.std_white; cgraph.black = &(color.gcset.black); } /* graph window takes defaults NorthWestGravity, and spectial events */ cgraph.graph.ID = XCreateSimpleWindow(graphbox.display, graphbox.ID, graph_x, graphbox.yzero - BDRWDTH, cgraph.graph.width, cgraph.graph.height, BDRWDTH, color.hard.true_black, bkgd); #if VMS && IMTOOL XSelectAsyncInput (cgraph.graph.display, cgraph.graph.ID, ButtonPressMask | ButtonMotionMask | ButtonReleaseMask, XZ_ast, XZ_efn); #endif XSelectInput(cgraph.graph.display, cgraph.graph.ID, ButtonPressMask | ButtonMotionMask | ButtonReleaseMask); XMapSubwindows(graphbox.display, graphbox.ID); } else { XResizeWindow(cgraph.graph.display, cgraph.graph.ID, cgraph.graph.width, cgraph.graph.height); } /* offset "min" from bottom */ cgraph.graphlabel.min_y = graphbox.height - cgraph.graphlabel.minmax_yoff; if( cgraph.vertical ) { cgraph.graph.xzero = INDENT; cgraph.graph.xwidth = cgraph.graph.width - (INDENT + INDENT); cgraph.graph.yzero = 0; cgraph.graph.yheight = cgraph.graph.height; cgraph.graphlabel.max_x = graphbox.width - cgraph.graphlabel.minmax_xoff; cgraph.graphlabel.max_y = cgraph.graphlabel.min_y; } else { cgraph.graph.xzero = 0; cgraph.graph.xwidth = cgraph.graph.width; cgraph.graph.yzero = INDENT; cgraph.graph.yheight = cgraph.graph.height - (INDENT + INDENT); } cgraph.graph.Xwidth = (double)cgraph.graph.xwidth; cgraph.graph.Yheight = (double)cgraph.graph.yheight; cgraph.graph.xmax = cgraph.graph.xzero + cgraph.graph.xwidth; cgraph.graph.ymax = cgraph.graph.yzero + cgraph.graph.yheight; resize = 1; } else resize = 0; if( resize || (cgraph.graph.ncolors != color.ncolors) ) { cgraph.graph.ncolors = color.ncolors; cgraph.point_cnt = cgraph.graph.ncolors; cgraph.graph.Xinc = cgraph.graph.Xwidth/(double)cgraph.graph.ncolors; cgraph.graph.Yinc = cgraph.graph.Yheight/(double)cgraph.graph.ncolors; init_cgraph_lines(cgraph.red.line, cgraph.green.line, cgraph.blue.line); init_cgraph_hash(); } } saoimage-1.08/histmap.c 666 21641 13 16701 4613621775 10175 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: histmap.c (Histogram Map) * Subroutine: make_HE_scalemap() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 May 1989 * {n} -- -- */ #include #include "hfiles/histeq.h" /* define SubrangeLink, List */ /* * Subroutine: generate_scalemap * Purpose: Make scalemap, applying standard histgoram equalization * one subrange group at a time * Note: Value range was broken into groups with an assigned number * of levels for each group. Each group is either a single * value or a range of values with no excessive peaks, such that * standard (non-optimizing) histogram equaliztion algorithm can * safely be applied. * Note: The original link-list of groups is freed. */ void generate_scalemap ( hist, subrange, scalemap, pixels ) int *hist; /* i: histogram (for signed offsets) */ SubrangeLink *subrange; /* i: linklist of subranges */ unsigned char *scalemap; /* i: scalemap (for signed indexing) */ unsigned long *pixels; /* i: map to hardware entries */ { int baselevel; SubrangeLink *trash; static void make_subrange_scalemap(); baselevel = 0; while( subrange != 0 ) { make_subrange_scalemap(hist, subrange, scalemap, baselevel, pixels); if( subrange->color_levels > 0 ) baselevel += subrange->color_levels; trash = subrange; subrange = subrange->next; free((char *)trash); } } /* * Subroutine: make_subrange_scalemap * Purpose: Make a section of scale map using histgroup link as guide * Called by: make_HE_scalemap() in HistEqual.c */ static void make_subrange_scalemap ( histogram, subrange, scalemap, baselevel, pixels ) int *histogram; SubrangeLink *subrange; unsigned char *scalemap; /* scalemap (for signed indexing) */ int baselevel; unsigned long *pixels; /* i: map to hardware entries */ { int i, color_levels; SubrangeList *list; unsigned char dispval; char *calloc_errchk(); void make_equalized_list(); static void make_gapped_list(), list_to_map(); /* if only one level, make map section */ if( subrange->color_levels <= 1 ) { dispval = pixels[baselevel]; for( i = subrange->low; i <= subrange->high; i++ ) { scalemap[i] = dispval; } return; } color_levels = subrange->color_levels; /* allocate excess space as initial efforts may overshoot number of levels */ list = (SubrangeList *) calloc_errchk(2 * color_levels, sizeof(SubrangeList), "HistList"); /* if normal processing will not work, choose special */ if( color_levels < subrange->nz_entries ) { make_equalized_list(histogram, list, subrange->low, subrange->high, subrange->pixel_area, color_levels); } else { make_gapped_list(histogram, list, subrange->low, subrange->high, color_levels); } #ifdef DEBUG /* check work done */ if( list[color_levels - 1].last != subrange->high ) { (void)fprintf(stderr, "ERROR: histogram list not right\n"); (void)fprintf(stderr, "levels: %d, list: %d, link: %d\n", color_levels, list[color_levels - 1].last, subrange->high); } #endif /* make section of map as defined by list */ list_to_map(scalemap, list, baselevel, color_levels, pixels); /* free the list space */ free( (char *)list ); } /* * Subroutine: list_to_map * Purpose: Make section of map as defined by list * Called by: make_subrange_scalemap() above */ static void list_to_map ( scalemap, histlist, baselevel, levels, pixels ) unsigned char *scalemap; /* scalemap (for signed indexing) */ SubrangeList *histlist; int baselevel, levels; unsigned long *pixels; /* i: map to hardware entries */ { int i, level; int first, last, imageval; unsigned char dispval; level = baselevel; for( i = 0; i < levels; i++ ) { first = histlist[i].first; last = histlist[i].last; dispval = pixels[level]; for( imageval = first; imageval <= last; imageval++ ) { scalemap[imageval] = dispval; } level++; } } /* * Subroutine: make_gapped_list * Purpose: Allocate levels for a histogram subrange. Special process * for situation when more levels than actually used values. */ static void make_gapped_list ( histogram, list, low, high, levels ) int *histogram; SubrangeList *list; int low, high, levels; { int range_j, max_range; int levels_used; static int first_shortlist_pass(); static void add_level_to_short_list(); levels_used = first_shortlist_pass(histogram, list, low, high, levels, &max_range, &range_j); while( levels_used < levels ) { add_level_to_short_list(list, levels_used - 1, &max_range, &range_j); ++levels_used; } } /* * Subroutine: first_shortlist_pass * Purpose: Make a list to describe map allocation using special * allocation method. Fill the list with each entry ending * at the next actually used value. */ static int first_shortlist_pass ( histogram, list, low_entry, high_entry, levels, max_range, range_j ) int *histogram; SubrangeList *list; int low_entry, high_entry, levels; int *range_j, *max_range; { int i, area, level; /* initialize parameters (index starts at 0) */ level = 0; area = 0; *max_range = -1; list[level].first = low_entry; /* first pass, assign levels by simple method */ for( i = low_entry; i <= high_entry; i++ ) { area += histogram[i]; /* while levels last, scan till value which is used */ if( (area > 0) || (i == high_entry) ) { list[level].last = i; list[level].pixel_area = area; list[level].shrink_entry = (i - list[level].first) + 1; /* find the lowest entry with the highest range */ if( list[level].shrink_entry > *max_range ) { *max_range = list[level].shrink_entry; *range_j = level; } if( i < high_entry ) { /* start for next group */ list[++level].first = i + 1; #ifdef DEBUG if( level > levels ) { (void)fprintf(stderr, "Actual exceeds levels\n"); level--; } #endif } else if (level >= levels) { list[level - 1].last = i; } area = 0; } } return( level+1 ); } /* * Subroutine: add_level_to_short_list */ static void add_level_to_short_list ( list, top, max_range, range_j ) SubrangeList *list; int top; int *max_range, *range_j; { int i, j, mark; mark = *range_j; *max_range = -1; for( i = top, j = top + 1; j > mark; i--, j-- ) { list[j].first = list[i].first; list[j].last = list[i].last; list[j].pixel_area = list[i].pixel_area; list[j].shrink_entry = list[i].shrink_entry; /* find the lowest entry with the highest range */ if( list[j].shrink_entry >= *max_range ) { *max_range = list[j].shrink_entry; *range_j = j; } } i++; j++; list[i].last = list[i].first + ((list[i].shrink_entry / 2) - 1); list[j].first = list[i].last + 1; list[i].pixel_area = 0; list[i].shrink_entry = (list[i].last - list[i].first) + 1; list[j].shrink_entry = (list[j].last - list[j].first) + 1; for( ; j >= 0; j-- ) { /* find the lowest entry with the highest range */ if( list[j].shrink_entry >= *max_range ) { *max_range = list[j].shrink_entry; *range_j = j; } } } saoimage-1.08/panctrl.c 666 21641 13 21076 4613632630 10164 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: panctrl.c (Pan Control) * Purpose: Respond to inputs which control pan and zoom * Subroutine: control_pan() returns: void * Subroutine: select_pan() returns: void * Xlib calls: XSync(); * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 May 1989 * {n} -- -- */ #include /* define stderr, NULL, etc. */ #include /* X window stuff */ #include /* window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* define MIN, MAX, etc */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ /* * Subroutine: control_pan * Purpose: Respond to mouse commands in pan mode */ void control_pan ( ) { static int moved = 0; static int buttons = 0; static int downbutton = -1; static int oldmode = ZOP; float bufx, bufy; Bool statedmotion_in_disp(); /* Function for XCheckIfEvent */ void i_transform(), d_transform(), draw_scope(), set_tdisp(), reset_tdisp(); void panedge_zoom(), new_pancursor(), new_display(), show_dispcoords(); void print_table(), draw_magnifier(); /* if mouse button pressed (and no others), start tracking */ switch( control.event.type ) { case ButtonPress: /* check for patch request */ if( control.event.xbutton.button == Button3 ) { print_table(); if( control.event.xbutton.state & ShiftMask ) { i_transform(&coord.pantoimg, control.event.xbutton.x, control.event.xbutton.y, &bufx, &bufy); d_transform(&coord.imgtobuf, (double)bufx, (double)bufy, &bufx, &bufy); draw_magnifier((double)bufx, (double)bufy); } return; } else if( (control.event.xbutton.button != Button1) && (control.event.xbutton.button != Button2) ) return; #ifdef DEBUG if( (buttons <0) || (buttons > 1) ) { (void)fprintf(stderr, "Lost track of panning buttons: %d\n",buttons); buttons = 1; } #endif buttons++; /* set up variables for interactive mode */ downbutton = control.event.xbutton.button; /* if second button, no added set-up, don't respond till move */ if( buttons > 1 ) { return; } /* store mode (may be called from other mode) */ oldmode = control.mode; control.mode = ZOP; /* set filter for events we will track on priority basis */ control.priority = MotionNotify | ButtonPress | ButtonRelease | LeaveNotify; /* continue into moved type response */ case MotionNotify: /* we must be tracking a button to do the this */ if( downbutton < 0 ) return; /* must be mouse moved - call relevant cursor activity */ if( control.event.xmotion.window == dispbox.ID ) { /* get only the most recent move */ XSync(control.event.xmotion.display, 0); while( XCheckIfEvent(control.event.xmotion.display, &control.event, statedmotion_in_disp, (char *)(&control.event.xmotion.state)) ); /* if moved outside the window, cancel tracking */ if( (control.event.xmotion.x < 0) || (control.event.xmotion.x >= dispbox.width) || (control.event.xmotion.y < 0) || (control.event.xmotion.y >= dispbox.height) ) { /* clear image change mark */ moved = 0; buttons = 0; downbutton = -1; reset_tdisp(&coord); new_pancursor(1); /* unset tracking priority and mode */ control.mode = oldmode; control.priority = 0; return; } switch( downbutton ) { case Button1: /* case pan - transform center to img coordinates */ i_transform(&coord.disptoimg, control.event.xmotion.x, control.event.xmotion.y, &coord.tid.cenX, &coord.tid.cenY); moved = 1; break; case Button2: /* case zoom - transform edge to img coordinates and choose a zoom */ panedge_zoom(&coord, &coord.disptoimg, control.event.xmotion.x, control.event.xmotion.y); moved = 1; break; default: break; } } else if( control.event.xbutton.window == panbox.ID ) { /* get only the most recent move */ while( XCheckWindowEvent(panbox.display, panbox.ID, ButtonMotionMask, &control.event) ); switch( downbutton ) { case Button1: /* case pan - transform center to image coordinates */ i_transform(&coord.pantoimg, control.event.xmotion.x, control.event.xmotion.y, &coord.tid.cenX, &coord.tid.cenY); moved = 1; break; case Button2: /* case zoom - transform edge to img coordinates and choose a zoom */ panedge_zoom(&coord, &coord.pantoimg, control.event.xmotion.x, control.event.xmotion.y); moved = 1; break; default: break; } if( control.event.xbutton.state & ShiftMask ) { i_transform(&coord.pantoimg, control.event.xmotion.x, control.event.xmotion.y, &bufx, &bufy); d_transform(&coord.imgtobuf, (double)bufx, (double)bufy, &bufx, &bufy); draw_magnifier((double)bufx, (double)bufy); } } /* keep the center coords within the image */ if( coord.tid.cenX < coord.img.X1 ) coord.tid.cenX = coord.img.X1 + 0.001; else if( coord.tid.cenX > coord.img.X2 ) coord.tid.cenX = coord.img.X2 - 0.001; if( coord.tid.cenY < coord.img.Y1 ) coord.tid.cenY = coord.img.Y1 + 0.001; else if( coord.tid.cenY > coord.img.Y2 ) coord.tid.cenY = coord.img.Y2 - 0.001; /* set needed parameters for proposed display parameters */ set_tdisp(&coord); /* draw panbox cursor */ new_pancursor(1); break; case ButtonRelease: /* act only if this button is the last trackable button */ if( control.event.xbutton.button == Button3 ) return; if( (buttons <= 0) || (--buttons > 0) ) return; downbutton = -1; /* redraw the cursor correctly if we have been Xor'ing */ if( color.cursor_overlay == 0 ) new_pancursor(0); if( moved == 0 ) return; /* prepare and display new image */ new_display(1, 0, 0, 0); if( control.verbose ) { /* report disp coordinates to user */ show_dispcoords(); } /* clear image change mark */ moved = 0; /* unset tracking priority */ control.mode = oldmode; control.priority = 0; break; case LeaveNotify: /* leaving the window undo's any selection activity */ if( downbutton != -1 ) { buttons = 0; downbutton = -1; reset_tdisp(&coord); new_pancursor(0); } /* clear image change mark */ moved = 0; /* unset tracking priority and mode */ control.mode = oldmode; control.priority = 0; break; } } /* * Subroutine: select_pan * Purpose: Respond to a menu selection in the pan and zoom menu * Xlib calls: XSync(); */ void select_pan ( ) { float zoom; void reset_tdisp(), set_tdisp(), new_pancursor(), new_display(); void show_dispcoords(); if( control.response[0] != ZOP ) return; control.mode = ZOP; switch( control.response[1] ) { /* main menu selections have 0, change only main mode */ case 0: return; case ZOP_ZPan14: zoom = coord.id.zoom * 0.25; break; case ZOP_ZPan12: zoom = coord.id.zoom * 0.5; break; case ZOP_ZPan1: zoom = 1; break; case ZOP_ZPan2: zoom = coord.id.zoom * 2.0; break; case ZOP_ZPan4: zoom = coord.id.zoom * 4.0; break; case ZOP_Center: /* center on image (same zoom) */ coord.tid.cenX = coord.img.cenX; coord.tid.cenY = coord.img.cenY; zoom = coord.id.zoom; break; default: (void)fprintf(stderr,"Unknown menu zoom factor!\n"); return; } /* check against the limits before proceeding */ if( (0.01 > zoom) || (zoom > 400.0) ) { (void)fprintf(stderr, "WARNING: Attempt to exceed zooming limits!\n"); reset_tdisp(&coord); } /* tid.zoom = zoom but force exact integer alignment (int or 1/int) */ if( zoom > 0.75 ) coord.tid.zoom = (double)((int)(zoom + 0.5)); else coord.tid.zoom = 1.0 / (double)((int)((1.0 / zoom) + 0.5)); /* calculate new display coordinates (in CoordTemp.c) */ set_tdisp(&coord); /* create and draw new panbox cursor */ new_pancursor(0); /* make sure this stuff appears before doing anything else */ XSync(panbox.display, 0); /* prepare and display new image */ new_display(1, 0, 0, 0); /* update record and report status */ if( control.verbose ) { /* report disp coordinates to user */ show_dispcoords(); } } saoimage-1.08/histscan.c 666 21641 13 11400 4613622024 10317 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: histscan.c (Histogram Scan) * Subroutine: scan_histogram_for_peaks() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 May 1989 * {n} -- -- */ #include "hfiles/histeq.h" /* * Subroutine: scan_histogram_for_peaks * Purpose: Scan the image histogram picking out large cell count values * make sub-groups of the histogram between the large count levels */ void scan_histogram_for_peaks ( subrange, histogram, pixel_area, map_levels, average ) SubrangeLink *subrange; /* i/o: link (initially covers range) */ int *histogram; /* i: histogram (for signed index) */ int *pixel_area; /* i/o: number of pixels to account for */ int *map_levels; /* i/o: number of levels left to map */ int *average; /* i/o: average pixels per color map level */ { int i; int scan_end; /* l: end of subrange in histogram */ int scan_start; /* l: histogram entry after last peak */ int pixel_count; /* l: number of pixels at histogram entry */ int sr_nzentries; /* l: number of non-zero entries in subrange */ int sr_pixel_area; /* l: number of pixels in current subrange */ int sr_max_peak; /* l: highest peak within current subrange */ static SubrangeLink *get_new_subrange_record(); static void fill_subrange_record(); /* set initial pixel_count values */ sr_pixel_area = 0; sr_nzentries = 0; sr_max_peak = 0; scan_start = subrange->low; scan_end = subrange->high; /* run through values in histogram mapping excessive entries */ for( i = scan_start; i <= scan_end; i++ ) { pixel_count = histogram[i]; /* if this pixel value alone is enough for one level, mark it */ if( pixel_count >= *average ) { /* take this count out of equalization distribution */ *pixel_area -= pixel_count; *map_levels -= 1; /* compute new average, (peaks in prior range will be rechecked later */ if( *map_levels > 0 ) *average = (*pixel_area / *map_levels) + 1; /* make a subrange between peaks if there was a valley & get new link */ if( i > scan_start ) { fill_subrange_record(subrange, scan_start, i - 1, i - scan_start, sr_nzentries, sr_pixel_area, sr_max_peak); subrange = get_new_subrange_record(subrange); } /* make a subrange of one for this peak */ fill_subrange_record(subrange, i, i, -1, 1, pixel_count, pixel_count); subrange->color_levels = 1; /* if entries remain, put them in a subrange */ if (i < scan_end) { subrange = get_new_subrange_record(subrange); fill_subrange_record(subrange, i + 1, scan_end, scan_end - i, 0, 0, 0); } /* reset scan values */ sr_pixel_area = 0; sr_nzentries = 0; sr_max_peak = 0; scan_start = i + 1; } else { /* update scan values */ if( pixel_count > 0 ) { sr_pixel_area += pixel_count; ++sr_nzentries; if( pixel_count > sr_max_peak ) sr_max_peak = pixel_count; } } } /* mark the final group */ if( scan_start < scan_end ) { fill_subrange_record(subrange, scan_start, scan_end, (scan_end - scan_start) + 1, sr_nzentries, sr_pixel_area, sr_max_peak); } } /* * Subroutine: get_new_subrange_record * Purpose: Create a new link in histogram link list, after one given * Returns: Pointer to new subrange link */ static SubrangeLink *get_new_subrange_record ( old_link ) SubrangeLink *old_link; { SubrangeLink *new_link; char *calloc_errchk(); /* create new record for histogram link list */ new_link = (SubrangeLink *) calloc_errchk(1, sizeof(SubrangeLink), "histeq link"); new_link->next = old_link->next; old_link->next = new_link; new_link->color_levels = 0; new_link->excess_pixels = 0; return( new_link ); } /* * Subroutine: fill_subrange_record * Purpose: Set parameters in subrange link list record */ static void fill_subrange_record ( link, low, high, range, nz_entries, pixel_area, max_entry ) SubrangeLink *link; int low, high; /* i: first and last index in histogram */ int range; /* i: span of histogram entries */ int nz_entries; /* i: non-zero entries in range */ int pixel_area; /* i: sum of histogram entry values (pixels) */ int max_entry; /* i: highest histogram entry value */ { link->low = low; link->high = high; link->range = range; link->nz_entries = nz_entries; link->pixel_area = pixel_area; link->max_entry = max_entry; } saoimage-1.08/maininit.c 666 21641 13 20151 5470220362 10317 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: maininit.c (Main Initialize) * Purpose: Start of the saoimage package * Program: main() * Subroutine: crash_on_error() * Xlib calls: XSetErrorHandler(), XCloseDisplay(), XGetErrorText() * UNIX calls: setrlimit(), ieee_handler(), abrupt_underflow_() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {2} Doug Mink version 1.07: autoscale 10 Nov 1993 * {n} -- -- */ #include /* stderr, FILE, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* struct timeval used in */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ #include "hfiles/struct.h" /* declare structure types */ #ifdef DEBUG #ifdef SUN /* DEBUG and SUN(OS4.xx) */ #include /* SIGFPE_ABORT ieee exception switch */ #endif #else #ifndef VMS /* NOT DEBUG AND NOT VMS */ #ifndef SYSV #include /* rlimit, RLIMIT_CORE for setrlimit */ #endif #endif #endif char *RevMsg = "release 1.08 10 November 1993"; int init_done = 0; /* declare and initialize parameter structs */ #include "defs/control.def" #include "defs/color.def" #include "defs/image.def" #include "defs/dispbox.def" #include "defs/magnibox.def" #include "defs/colorbox.def" #include "defs/graphbox.def" #include "defs/panbox.def" #include "defs/btnbox.def" #include "defs/desktop.def" #include "defs/cursor.def" /* declare uninitialized structs */ struct bufferRec buffer; struct coordRec coord; Display *display; /* display connection */ /* * Program: main * Purpose: Get things started, then call event_loop * Xlib calls: XSetErrorHandler() * UNIX calls: setrlimit() */ main(argc, argv) int argc; char **argv; { static void init_params(), init_packages(); void crash_on_error(), control_event_loop(); void say_goodbye(); #ifdef DEBUG /* install special error handler to force crash so we can trace problem */ XSetErrorHandler(crash_on_error); #ifdef SUN /* Under SunOS4 we can force floating point exceptions to report errors */ ieee_handler("set", "common", SIGFPE_ABORT); abrupt_underflow_(); #endif #else #ifndef VMS #ifndef SYSV { struct rlimit rlp; /* l: UNIX resourse limit structure */ /* disable core dumping */ rlp.rlim_cur = 0; rlp.rlim_max = 0; setrlimit(RLIMIT_CORE, &rlp); } #endif #endif #endif /* set up, read, and check parameters */ init_params(argc, argv); if( control.verbose ) { (void)printf("\n Smithsonian Astrophysical Observatory image utility\n"); (void)printf(" %s\n\n", RevMsg); } init_packages(argc, argv); /* CALL MAIN EVENT LOOP (uses extern.h) */ init_done = 1; control_event_loop(); say_goodbye(0); } /* * Subroutine: say_goodbye * Purpose: Free server resources before exiting * Xlib calls: XCloseDisplay() */ void say_goodbye ( code ) int code; /* i: code to identify exit */ { void free_gc(); if( desktop.display != NULL ) { free_gc(); XCloseDisplay(desktop.display); } exit(code); } /* * Subroutine: init_params * Purpose: Initialize parameters in the records * Note: Resource or default file not yet used */ static void init_params ( argc, argv ) int argc; char **argv; { char *name; /* l: both flag for init and return display name */ int parse_stat; static void init_server(); int parse_cmdline(), check_image(); void say_goodbye(), init_connections(); name = NULL; /* get parameters from the command line (uses extern.h) */ if( (parse_stat = parse_cmdline(argc, argv, &name)) < 0 ) say_goodbye(1); /* check image parameters for consistency (uses extern.h) */ if( check_image(&img, parse_stat) ) img.file_type = SOP_Logo; /* connect to the display server */ init_server(name, &desktop, &color); init_connections(); } /* * Subroutine: init_packages * Purpose: Initialize all of the subroutine packages and windows */ static void init_packages ( argc, argv ) int argc; char **argv; { GC gc; int init_image(); GC set_gc_with_background(); void init_windows1(), init_windows2(), init_panbox_coords(), disp_dispbox(); void disp_panbox(), init_imaging_buffers(), init_mousepointers(), init_gc(); void init_display_buffers(), init_region_draw(), init_color(), new_display(); void init_software_cursors(), init_buttonmenu(), init_buttonbox_settings(); void init_magnifier(), set_magnifier(), redraw_magnifier(), init_colorbox(); void say_goodbye(), mount_buttonmenu(), new_panimage(), init_cgraph_text(); /* get the image dimensions (need file name, type), exit if failure */ if( init_image() == 0 ) { (void)fprintf(stderr, "No image given and no input device connected.\n"); say_goodbye(1); } /* get the colors ready (need display) */ init_color(&color, 1); /* map the desktop(need image dimensions, color) */ init_windows1(argc, argv); /* set up the mouse pointer icons (need display, hardcolors) */ init_mousepointers(desktop.display, desktop.display); /* initialize color bar and graph labeling text font and parameters */ init_gc(desktop.display, desktop.ID); init_cgraph_text(); /* set up the image buffer (need image) */ init_imaging_buffers(); /* get desktop dimensions and create windows (need colors, mouse cursors) */ init_windows2(); /* get the soft cursors ready(need colors, img coords) */ init_software_cursors(); /* set up color bar */ init_colorbox(); /* set up display buffers (need window dimensions) */ init_display_buffers(); /* set params and get image data (need colors, buffers, scope, imageinit) */ init_panbox_coords(); init_magnifier(control.magni_track, control.coord_track); new_display(0, 1, 1, 1); /* move image data into the panbox's buffer */ new_panimage(); /* set up the button menu */ gc = set_gc_with_background(&color.gcset.menu, color.gcset.menu.background); init_buttonmenu(&btnbox, gc, color.visual, (unsigned long)color.hard.std_black, (unsigned long)color.hard.std_white); init_buttonbox_settings(); /* set up region action flags and drawing stuff (draw and label on) */ init_region_draw(1, 1); mount_buttonmenu(); } #ifdef DEBUG /* * Subroutine: crash_on_error * Purpose: Special error handler to force crash on error * Xlib calls: XGetErrorText() */ void crash_on_error ( dt_display, error ) Display *dt_display; XErrorEvent *error; { int *foo; char msg[SZ_LINE]; (void)fprintf(stderr,"XError Reported: type code: %d\n",error->error_code); XGetErrorText(dt_display, (int)error->error_code, msg, SZ_LINE); (void)fprintf(stderr, "%s\n", msg); /* cause fatal core dump */ foo = 0; *foo = 0; exit( 0 ); } #endif /* * Subroutine: init_server * Purpose: Open connection with chosen or default display server */ static void init_server ( displayname, desktop, color ) char *displayname; struct windowRec *desktop; struct colorRec *color; { Display *dt_display; int dt_screen; char errmsg[SZ_FNAME]; void exit_errmsg(); /* make contact with the display server */ if( !(dt_display = XOpenDisplay(displayname)) ) { (void)strcpy(errmsg, "Could not connect to display: "); if( displayname != NULL ) (void)strcat(errmsg, displayname); exit_errmsg(errmsg); } desktop->display = dt_display; color->display = dt_display; dt_screen = DefaultScreen(dt_display); desktop->screen = dt_screen; color->screen = dt_screen; display = dt_display; } saoimage-1.08/histzero.c 666 21641 13 6364 4613622057 10355 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: histzero.c (Histogram Zero) * Subroutine: resolve_zeroes() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 May 1989 * {n} -- -- */ #include #include "hfiles/histeq.h" /* define SubrangeLink */ /* * Subroutine: resolve_zeroes * Purpose: Combine groups with zero alloted levels with adjoining groups * Note: Adjoining groups are large count single level groups * Called by: histrogram_equalize() above */ void resolve_zeroes ( PriorLink, zeroes ) SubrangeLink *PriorLink; int zeroes; { SubrangeLink *ThisLink, *NextLink; int a_count, b_count, z1count, z2count; static void merge_links(); /* if very first entry is a zero allocated link */ if( PriorLink->color_levels == 0 ) { /* merge this and next */ merge_links(PriorLink); zeroes--; } /* scan for the zero allocated links */ while( zeroes > 0 ) { ThisLink = PriorLink->next; #ifdef DEBUG /* if reached the end of the list, we had an error */ if( ThisLink == 0 ) { (void)fprintf(stderr,"Zero error\n"); return; } #endif /* if we are about to hit a zero */ if( ThisLink->color_levels == 0 ) { /* if it is the last zero merge with prior */ NextLink = ThisLink->next; if( NextLink == 0 ) { merge_links(PriorLink); return; } a_count = PriorLink->pixel_area; b_count = NextLink->pixel_area; /* if the preceding link is smaller than the trailing link */ if( a_count > b_count ) { merge_links(PriorLink); zeroes--; } else { /* probe beyond */ if( NextLink->next != 0 ) { if( NextLink->next->color_levels != 0 ) { /* if new competition, merge with next link */ merge_links(ThisLink); zeroes--; } else { z1count = ThisLink->pixel_area; z2count = NextLink->next->pixel_area; /* where would the next one go? */ if( (NextLink->next->next == 0) || (NextLink->next->next->pixel_area > (b_count + z2count)) ) { if( (b_count + z2count) > (a_count + z1count) ) { merge_links(PriorLink); } else { merge_links(ThisLink); } } else merge_links(ThisLink); zeroes--; } } else { merge_links(PriorLink); zeroes--; } } } PriorLink = ThisLink; } } /* * Subroutine: merge_links * Purpose: Combine two links of histogram group list */ static void merge_links ( subrange ) SubrangeLink *subrange; { SubrangeLink *lostlink; lostlink = subrange->next; subrange->next = lostlink->next; subrange->max_entry = MAX(subrange->max_entry, lostlink->max_entry); subrange->pixel_area += lostlink->pixel_area; subrange->high = lostlink->high; subrange->range += lostlink->range; subrange->nz_entries += lostlink->nz_entries; subrange->excess_pixels += lostlink->excess_pixels; subrange->color_levels += lostlink->color_levels; free( (char *)lostlink ); } saoimage-1.08/cmdparse.c~ 666 21641 13 22774 5466553115 10532 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: cmdparse.c (Command Parse) * Purpose: Set options from command line * Subroutine: parse_cmdline() returns: int * Subroutine: string_cmdline() returns: void * Subroutine: usage() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 5 January 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {2} Rick Schumeyer (Naval Research Lab) 8 May 1991 * Added -button option. * The -button option get parsed in parse_etc(). * I added the extern variable bad_buttons, which is defined * in btnlib/draw.c. * {3} MVH added + type switches, new error message 21 Jun 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ extern int init_done; /* flag set at end of initialization indicates redo */ #ifdef ALLIANT extern int bad_buttons; #endif /* * Subroutine: parse_cmdline * Purpose: Process options to set filename and change defaults * Returns: -1 on error, 0 OK but no filename, 1 OK and new filename given */ int parse_cmdline ( argc, argv, displayname ) int argc; char *argv[]; char **displayname; /* i/o: gets server name only at init time */ { int i, status; int got, init; int parse_display(), parse_filename(), parse_filetype(), parse_connection(); int parse_rotate(), parse_scale(), parse_color(), parse_fileread(), usage(); void init_cmdline(); static int parse_etc(); if( displayname != NULL ) { /* if initial program command line, strip off program name, store line */ argc--; argv = &(argv[1]); /* store the initial command string */ init_cmdline(argc, argv); init = 1; } else init = 0; /* initialize parse history */ got = 0; status = 1; /* check command line arguments for option requests */ for( i = 0; (status == 1) && (i < argc); i++ ) { if( (status = parse_display(argc, argv, &i, &got, displayname)) ) { /* check for server or window dressing specifications */ ; } else if( ((got & CMD_FTYPE) == 0) && ((status = parse_filetype(argc, argv, &i, &got)) != 0) ) { /* check for the image file type */ ; } else if( (status = parse_connection(argc, argv, &i, &got, init)) != 0 ) { /* check for change in remote connection status */ ; } else if( (status = parse_fileread(argc, argv, &i, &got)) != 0 ) { /* check for image file reading parameters */ ; } else if( (status = parse_rotate(argc, argv, &i, &got)) != 0 ) { /* check for image rotation */ ; } else if( (status = parse_scale(argc, argv, &i, &got)) != 0 ) { /* check for scaling specifications */ ; } else if( (status = parse_color(argc, argv, &i, &got)) != 0 ) { /* check for color map selection */ ; } else if( (status = parse_etc(argc, argv, i)) != 0 ) { /* check for miscelaneous environment switches */ ; } else if( ((got & CMD_FNAME) == 0) && ((status = parse_filename(argc, argv, &i, &got)) != 0) ) { /* check for a possible image file name */ ; } else { if( argv[i][0] == '-' ) status = usage("unexpected switch", argc, argv, i, i); else status = usage("unrecognized token", argc, argv, i, i); } } if( status == 1 ) { return( got ); } else return( -1 ); } /* * Subroutine: parse_etc * Purpose: Parse command line for things settings from the etc menu */ static int parse_etc ( argc, argv, i ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int i; /* arg to check */ { void set_submenu_toggle(); if( (strcmp(argv[i], "-ct") == 0) || (strcmp(argv[i], "-coord") == 0) ) { if( control.coord_track == 1 ) { control.coord_track = 0; if( init_done ) set_submenu_toggle(EOP, EOP_TextTrack, 0); } } else if( (strcmp(argv[i], "+ct") == 0) || (strcmp(argv[i], "+coord") == 0) ) { if( control.coord_track != 1 ) { control.coord_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_TextTrack, 1); } } else if( (strcmp(argv[i], "-mt") == 0) || (strcmp(argv[i], "-magnifier") == 0) ) { if( control.magni_track != 1 ) { /* track updates windows as mouse moves */ control.magni_track = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Track, 1); } } else if( (strcmp(argv[i], "+mt") == 0) || (strcmp(argv[i], "+magnifier") == 0) ) { if( control.magni_track == 1 ) { /* track updates windows as mouse moves */ control.magni_track = 0; if( init_done ) set_submenu_toggle(EOP, EOP_Track, 0); } } else if( (strcmp(argv[i], "-q") == 0) || (strcmp(argv[i], "-quiet") == 0) || (strcmp(argv[i], "-v") == 0) || (strcmp(argv[i], "-verbose") == 0) ) { /* verbosity to control reporting of positions and measurements */ control.verbose = 0; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 0); } else if( (strcmp(argv[i], "+v") == 0) || (strcmp(argv[i], "+verbose") == 0) ) { control.verbose = 1; if( init_done ) set_submenu_toggle(EOP, EOP_Verbose, 1); #ifdef ALLIANT } else if (strcmp(argv[i], "-alliant")==0) { bad_buttons = 1; #endif } else { return( 0 ); } return( 1 ); } /* * Subroutine: string_cmdline * Purpose: Print tokens on one line to be like original command line */ void string_cmdline ( argc, argv, cmdline, linemax ) int argc; char *argv[]; char *cmdline; int linemax; { int i; if( argc <= 0 ) { cmdline[0] = '\0'; } else { (void)strcpy(cmdline, argv[0]); for( i=1; i= argc ) { (void)fprintf(stderr, "Missing arg(s) to switch\n"); last = argc - 1; } /* print message and offending tokens */ (void)fprintf(stderr,"Command line %s error:", what); for( i=first; i<=last; i++ ) { (void)fprintf(stderr, " %s", argv[i]); } (void)fprintf(stderr, "\n"); /* list switch options */ (void)fprintf(stderr,"usage: saoimage [ options ] [ - filename ]\n"); (void)fprintf(stderr," where options are one or more of:\n"); (void)fprintf(stderr," [(-display) (-d) ]"); (void)fprintf(stderr," [[(-geometry) (-g) ] [-gd ]]\n"); (void)fprintf(stderr," [[(-fits) (-oif)] [(-u1) (-u2)"); (void)fprintf(stderr," (-i2) (-i4) (-r4) (-r8) ]]\n"); (void)fprintf(stderr," [(-skip) (-sk) ] [(-byteswap) (-bswap)]\n"); (void)fprintf(stderr," [[-zero] [-one]]"); (void)fprintf(stderr," [[(-lowerleft) (-ll)] [(-upperleft) (-ul)]]\n"); (void)fprintf(stderr," [(-rotate) (-rot) <1,2,3>]\n"); (void)fprintf(stderr," [-rmin ]"); (void)fprintf(stderr," [-rmax ]\n"); (void)fprintf(stderr," [-linear] [-wrap ] [-histeq]"); (void)fprintf(stderr," [-sqrt ] [-log ]\n"); (void)fprintf(stderr," [-min ] [-max ]\n"); (void)fprintf(stderr," [(-palette) (-p) ]"); (void)fprintf(stderr," [(-neg) (-n)]\n"); (void)fprintf(stderr," [(-vertgraph) (-vg)] [(-horizgraph) (-hg)]\n"); (void)fprintf(stderr," [(+/-verbose) (+/-v) (-quiet) (-q)]"); (void)fprintf(stderr," [(+/-coord) (+/-ct)]\n"); (void)fprintf(stderr," [(+/-magnifier) (+/-mt)]"); (void)fprintf(stderr," [-mag ]\n"); (void)fprintf(stderr," [(+/-imtool) (-pros)]\n"); (void)fprintf(stderr," [-idev ] [-odev ]"); (void)fprintf(stderr," [-fbconfig ]\n"); (void)fprintf(stderr," [(-red) (-green) (-blue)]\n"); (void)fprintf(stderr," [(-panboxav) (-panboxsamp) (-panboxsum)"); (void)fprintf(stderr," (-panboxmax)]\n"); (void)fprintf(stderr," [-lprbuttons] [-mtf]"); (void)fprintf(stderr," [(-bordercolor) (-bc) ]\n"); #ifdef ALLIANT (void)fprintf(stderr," [-alliant]"); #endif (void)fprintf(stderr,"In most cases, the image filename needs no switch"); (void)fprintf(stderr," and can appear anywhere\nin the options list\n"); return( -1 ); } saoimage-1.08/histeql.c 666 21641 13 13206 4613621717 10172 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: histeql.c (Histogram Equalize) * Purpose: Fill the scalemap by histogram equalization * Subroutine: histogram_equalize() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 May 1989 * {n} -- -- */ #include #include "hfiles/histeq.h" /* define SubrangeLink */ /* * Subroutine: histogram_equalize * Purpose: Create a scaling map which equalizes image cells per * output level optimization accounts for large cell counts * for single levels (e.g. half of all pixels with value 0) */ void histogram_equalize ( scalemap, histogram, area, pmin, pmax, color_levels, pixels ) unsigned char *scalemap; /* i/o: scalemap (for signed indexing) */ int *histogram; /* i: histogram (for signed indexing) */ int area; /* i: area in pixels when histogram was made */ int pmin, pmax; /* i: min and max values in histogram */ int color_levels; /* i: number of levels in color map */ unsigned long *pixels; /* i: map to hardware entries */ { SubrangeLink *linklist; /* l: beginning of subrange linklist */ int average_area; /* l: average area covered by each level */ int pixel_area; int map_levels; int nz_entries; /* l: non-zero entries in histogram */ int empties; /* l: subranges with no alloted levels */ char *calloc_errchk(); int distribute_levels(); void generate_scalemap(), scan_histogram_for_peaks(), resolve_zeroes(); static int count_nonzero_histogram_entries(), rescan_histogram(); static void unmark_peak_links(); /* initialize link list */ linklist = (SubrangeLink *)calloc_errchk(10, sizeof(int), "HElink"); linklist->next = 0; linklist->low = pmin; linklist->high = pmax; linklist->range = (pmax - pmin) + 1; linklist->pixel_area = area; linklist->max_entry = 0; /* if not enough non-zero entries to make distribution, bypass work */ nz_entries = count_nonzero_histogram_entries(histogram, pmin, pmax); if( nz_entries <= color_levels ) { linklist->color_levels = color_levels; linklist->nz_entries = nz_entries; generate_scalemap(histogram, linklist, scalemap, pixels); return; } /* initialize count and level variables */ pixel_area = area; map_levels = color_levels; /* desired number of pixels at each level */ /* average is rounded strongly upward to be stingy with levels */ average_area = (pixel_area / map_levels) + 1; /* go through histogram seeking histogram entries above the map mean */ scan_histogram_for_peaks(linklist, histogram, &pixel_area, &map_levels, &average_area); /* repeat scans until no more treetops emerge */ while( rescan_histogram(linklist, histogram, &pixel_area, &map_levels, &average_area) != 0 ); /* allocate levels */ empties = distribute_levels(linklist, pixel_area, map_levels, pmin, pmax, color_levels); /* make peak and valley links look the same (peaks have range 1) */ unmark_peak_links(linklist, color_levels); if( empties > 0 ) { resolve_zeroes(linklist, empties); } /* make map and free memory */ generate_scalemap(histogram, linklist, scalemap, pixels); } /* * Subroutine: rescan_histogram * Purpose: Repeat scanning for large count levels as saturation level * is modified. Repeats until all large count levels are * marked and residual is stable * Returns: 1 if a range was modified, 0 if nothing was changed */ static int rescan_histogram ( subrange, histogram, pixel_area, map_levels, average_area ) SubrangeLink *subrange; int *histogram; int *pixel_area; int *map_levels; int *average_area; { int process; void scan_histogram_for_peaks(); process = 0; while( subrange != 0 ) { /* if subrange has values that exceed current average */ if( (subrange->range > 1) && (subrange->max_entry >= *average_area) ) { scan_histogram_for_peaks(subrange, histogram, pixel_area, map_levels, average_area); /* indicate that additional processing has taken place */ process = 1; } subrange = subrange->next; } return( process ); } /* * Subroutine: unmark_peak_links * Purpose: Make singularity links non_uniquely marked (range > 0) and * check count against reference * Called by: histogram_equalize() above */ static void unmark_peak_links ( subrange, nlevels ) SubrangeLink *subrange; int nlevels; { #ifdef DEBUG int levels = 0; #endif while( subrange != 0 ) { if( subrange->range <0 ) { subrange->range = -subrange->range; } #ifdef DEBUG if( (subrange->next != 0) && (subrange->next->low != (subrange->high + 1)) ) (void)fprintf(stderr, "Missing Link in list.\n"); if( subrange->color_levels > subrange->range ) (void)fprintf(stderr, "Excess levels in a Link.\n"); levels += subrange->color_levels; #endif subrange = subrange->next; } #ifdef DEBUG if( levels != nlevels ) { (void)fprintf(stderr, "Levels = %d\n",levels); } #endif } /* * Subroutine: count_nonzero_histogram_entries * Called by: histogram_equalize() in HistEqual.c */ static int count_nonzero_histogram_entries ( histogram, pmin, pmax ) register int *histogram; int pmin; register int pmax; { register int i, npix; npix = 0; for( i = pmin; i <= pmax; i++ ) { if( histogram[i] > 0 ) ++npix; } return( npix ); } saoimage-1.08/rgnanli.c 666 21641 13 13230 4613633737 10155 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgnanli.c (Region Annuli) * Purpose: Create annuli and parse lists of radii * Subroutine: fit_annuli_edge() returns: void * Subroutine: new_annulus_edge() returns: void * Subroutine: parse_radii() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 May 1989 * {n} -- -- */ #include /* stderr, sscanf, NULL */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/cursor.h" /* cursorRec */ /* * Subroutine: fit_annuli_edge * Purpose: If annuli edge matches previous edge, free redundancy * Note: By saoimage convention, base cursor record of annuli is * redundant to the last ring manipulated (this enables * the manipulation) */ void fit_annuli_edge ( cursor ) struct cursorRec *cursor; { struct cursorRec *region; struct cursorRec *edge; int not_different(); void free_cursor(); region = cursor->next_region; edge = region->next_region; while( edge->next_annulus != NULL ) edge = edge->next_annulus; if( (region->type == edge->type) && not_different(region->rot.angle, edge->rot.angle) && not_different(region->file.X, edge->file.X) && not_different(region->file.Y, edge->file.Y) && not_different(region->file.Xdim, edge->file.Xdim) && not_different(region->file.Ydim, edge->file.Ydim) ) { /* region is part of annuli, not a separate region */ cursor->next_region = region->next_region; if( cursor->next_region->annuli ) { /* if annuli exist, we don't need this edge */ free_cursor(region); } else { /* if creating the first ring around a cursor, make redundant */ edge->annuli = 1; edge->next_annulus = region; } } } /* * Subroutine: new_annuli_edge * Purpose: reposition region to be an annular edge */ void new_annulus_edge ( cursor ) struct cursorRec *cursor; { struct cursorRec *region; struct cursorRec *edge; edge = cursor->next_region; region = edge->next_region; cursor->next_region = region; if( region->annuli == 0 ) /* this is an error condition (see fit_annuli_edge above) */ region->annuli = 1; while( region->next_annulus != NULL ) region = region->next_annulus; region->next_annulus = edge; } /* * Subroutine: parse_radii * Purpose: Get a list of radii from line * Returns: Number of radii found * Note: "vala valb valc ..." and "val1 val2 n=int" are both * permitted syntax forms */ int parse_radii ( line, radius, maxcnt ) char *line; /* i: string with first radius as next token */ float *radius; /* o: buffer for float radius vals */ int maxcnt; /* i: size of radius buffer */ { int i, cnt; static int expand_radii(); static char *got_nequal(); char *next_token(); i = 0; /* while there are tokens, look at the next one */ while( (line != 0) && (i < maxcnt) ) { if( sscanf(line, "%f", &radius[i]) == 1 ) { /* next token was a number, got next radius */ i++; } else { /* next token not a number, check for n=integer statement */ if( ((line = got_nequal(line)) != NULL) && (sscanf(line, "%d", &cnt) == 1) ) { /* got n=cnt, add cnt radii between previous two radii */ i = expand_radii(radius, i, maxcnt, cnt); } else { /* token neither radius nor n=int, must be error, keep prior radii */ (void)fprintf(stderr,"WARNING: cannot parse radii params: %s\n",line); return( i ); } } line = next_token(line, 1); } return( i ); } /* * Subroutine: expand_radii * Purpose: Given an n=cnt, install cnt radii in list between last * two radii * Returns: Total number of radii in radius buffer */ static int expand_radii ( radius, i, maxcnt, cnt ) float *radius; /* i/o: array list of radii */ int i; /* i: current array size */ int maxcnt; /* i: maximum allowed size */ int cnt; /* i: number of bands to divide last interval */ { double first, last, inc; /* last radius will be placed at end of new listing */ i--; /* get the limits and the increment to make cnt bands in this interval */ last = radius[i]; first = radius[i-1]; inc = (last - first) / (double)cnt; /* set cnt to the last index, and move last radius */ cnt += i-1; /* do not exceed max array index */ if( cnt > maxcnt ) cnt = maxcnt - 1; else radius[cnt] = radius[i]; /* fill in the intermediate radii */ while( i -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* Define codes */ #include "hfiles/struct.h" /* Declare structure types */ #include "hfiles/extern.h" /* Extern main parameter structures */ #ifdef ANSIC void dispatch_select( int *response_data); static void select_environment( int response[]); #else static void select_environment(); void select_cursor(), select_region(), select_halftone(), select_scalemap(); void new_dispboxmouse(), select_color(), select_pan(); #endif /* Subroutine: dispatch_select * Purpose: Dispatcher for selections from the buttonbox or other * selection interface */ #ifdef ANSIC void dispatch_select ( int *response_data ) #else void dispatch_select ( response_data ) int *response_data; #endif { /* Check for no selection data */ if( response_data == NULL ) return; /* Check for selection with control key down */ if( control.event.xbutton.state & ControlMask ) return; /* Check for switching out of cursor in text mode */ if( control.mode == COP ) { if( (cursor.type == COP_Text) && (response_data[1] == 0) && (response_data[0] != COP) && (response_data[0] != ROP) ) grab_keys_for_textcursor(0); } control.response = response_data; /* Check pane (mode) part of response */ switch( response_data[0] ) { /* Environment panel selection */ case EOP: select_environment(response_data); control.mode = EOP; break; case SOP: /* From the image scale pane */ select_scalemap(); control.mode = SOP; break; case ZOP: /* From the pan pane */ select_pan(); break; case COP: /* From the cursor menu pane */ select_cursor(); break; case MOP: case VOP: /* From the color menu pane */ select_color(); break; case BOP: select_halftone(); break; case ROP: select_region(); break; } /* Install the correct mouse icon for the new mode */ new_dispboxmouse(); } /* Subroutine: select_environment * Purpose: Response to selections from the environment button sub-menu */ #ifdef ANSIC static void select_environment ( int response[] ) #else static void select_environment ( response ) int response[]; #endif { void say_goodbye(), raise_windows(), get_new_cmd(); void screen_dump(), disp_dispbox(); /* Check the response code */ switch( response[1] ) { case 0: return; case EOP_Verbose: /* Toggle verbose output of text */ control.verbose = !control.verbose; break; case EOP_Exit: /* Selected exit */ say_goodbye(0); break; case EOP_Raise: raise_windows(); break; case EOP_NewFile: /* Read new command line with a popup window (see CmdNew.c) */ get_new_cmd(); break; case EOP_Output: /* Output hardcopy to a printer */ screen_dump(!control.print_buttons); break; case EOP_Track: /* Flip the tracking mode flags */ control.tracking ^= 1; control.magni_track ^= 1; break; case EOP_TextTrack: /* Flip the tracking mode flag */ control.coord_track ^= 1; break; default: break; } } saoimage-1.08/imgread.c 666 21641 13 14463 5175643677 10154 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: imgread.c (Image Read) * Purpose: Read image headers and image files * Subroutine: init_image() returns: int * Subroutine: load_image() * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 1 July 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* constants and codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ static int init_imtool; /* * Subroutine: init_image * Purpose: Set the image dimensions * Returns: 1 if OK, 0 if trouble * Method: set image info from known values or read from a header */ int init_image ( ) { int get_fbconfig(); /* get IRAF expected frame size */ void init_img(), init_dispcen(); #ifdef FITS int init_fits(); #endif #ifdef OIF int init_irafimh(); #endif /* read and strip subsection suffix */ /* %% get_subsection(&img); */ switch( img.file_type ) { case SOP_Array: #ifdef DEBUG if( (img.filerows <= 0) || (img.filecols <= 0) ) { (void)fprintf(stderr, "Error: array dimensions not set"); return( 0 ); } #endif img.block_type = SOP_ZoomNone; break; case SOP_FITS: #ifdef FITS if( (img.fd = init_fits(&img)) < 0 ) return( 0 ); img.block_type = SOP_ZoomNone; break; #else (void)fprintf(stderr, "WARNING: not compiled with -DFITS switch\n"); return( 0 ); #endif case SOP_IRAF: #ifdef OIF if( (img.fd = init_irafimh(&img)) < 0 ) return( 0 ); img.block_type = SOP_ZoomNone; break; #else (void)fprintf(stderr, "WARNING: not compiled with -DIRAF switch\n"); return( 0 ); #endif case SOP_SAOCCD: #ifdef SAOCCD init_saoccd(&img); img.block_type = SOP_ZoomNone; break; #else (void)fprintf(stderr, "WARNING: not compiled with -DSAOCCD switch\n"); return( 0 ); #endif case SOP_Imtool: case SOP_PROS: #ifdef IMTOOL /* remote access from iraf, start with standard screen size */ fprintf (stdout,"DBG: img.fbconfig=%d -> ",img.fbconfig); if( get_fbconfig(img.fbconfig, &img.filecols, &img.filerows) == 0 ) { img.filecols = 512; img.filerows = 512; } fprintf (stdout,"filecols=%d filerows=%d\n",img.filecols,img.filecols);fflush(stdout); img.block_type = SOP_ZoomNone; /* signal load_image to load a default image */ init_imtool = 1; break; #else (void)fprintf(stderr, "Note: IRAF pipe support not compiled.\n"); return( 0 ); #endif case SOP_Logo: default: img.filerows = 512; img.filecols = 512; img.block_type = SOP_ZoomNone; break; } /* fix up image record parameters and img to file conversions */ init_img(&img, &coord); init_dispcen(&img, &coord); return( 1 ); } /* * Subroutine: load_image * Purpose: Open if necessary, then read the appropriate image file * and create a 16 bit image array */ void load_image ( fb, buf, bftrans, imgbuf, filebuf, buf_squared, buf_doubled ) Edges *fb; /* coord structures (for disp or pan) */ Coordsys *buf; Transform *bftrans; short *imgbuf; char *filebuf; int buf_squared, buf_doubled; /* buf is larger to enable rotation */ { static int init = 1; /* signal first time through */ int x, y; int width, height; int read_image; /* avoid doing rotate if there is nothing to rotate */ void read_array(), rotate_buf(), clear_coord_area(), load_logo(); #ifdef SUBSEC float X, Y; void i_transform(); /* THIS ISN'T RIGHT (WHAT IF IMAGE IS ROTATED OR FLIPPED?) */ /* get file coords of buffer's 0,0 element */ i_transform(bftrans, 0, 0, &X, &Y); x = (int)(X + 0.5); y = (int)(Y + 0.5); #else x = 0; y = 0; fb->block = 1; #endif /* if rotation has a 90 degree component, get cross zoom factor */ if( img.rotate_code & 1 ) { width = buf->height; height = buf->width; } else { width = buf->width; height = buf->height; } read_image = 0; switch(img.file_type) { case SOP_Array: read_array(-1, &img, imgbuf, filebuf, width, height, x, y, fb->block, control.verbose); read_image = 1; break; #ifdef FITS case SOP_FITS: #endif #ifdef OIF case SOP_IRAF: #endif read_array(img.fd, &img, imgbuf, filebuf, width, height, x, y, fb->block, control.verbose); read_image = 1; break; #ifdef SAOCCD case SOP_SAOCCD: load_saoccd(&img, imgbuf, width, height, x, y, fb->block); read_image = 1; break; #endif #ifdef XRAY case SOP_HRI: case SOP_IPC: load_einstein(&img, imgbuf, width, height, fb->cenX, fb->cenY, fb->block); read_image = 1; break; #endif #ifdef ROSAT case SOP_ROSAT: load_rosat(&img, imgbuf, width, height, fb->cenX, fb->cenY, fb->block); read_image = 1; break; #endif #ifdef IMTOOL case SOP_Imtool: case SOP_PROS: if( init ) load_logo(imgbuf, width, height); if( init_imtool ) { init_imtool = 0; } break; #endif case SOP_Logo: if( init ) load_logo(imgbuf, width, height); default: break; } if( read_image ) { if( (img.row_order != 0) || (img.rotate_code != 0) ) { rotate_buf(imgbuf, img.row_order, img.rotate_code, width, height, buf_squared, buf_doubled); } if( (img.file_type != SOP_Imtool) && (img.file_type != SOP_PROS) ) { /* we loaded a non-imtool image */ img.imtool_200 = 0; /* if there was a second coordinate system, cancel it */ if( coord.imtool_aux ) { clear_coord_area(); coord.imtool_aux = 0; } /* if artificial limits were applied to input, mark short_buf extremes */ if( img.fimin < img.fimax ) { buffer.clipmin = (int)((img.fimin - img.fibias) / img.fiscale); buffer.clipmax = (int)((img.fimax - img.fibias) / img.fiscale); } else { /* imtool limits are set when an image is read from the pipe */ buffer.clipmin = -32768; buffer.clipmax = 32767; } } } } saoimage-1.08/imgparam.c 666 21641 13 13553 4613623113 10313 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: imgparam.c (Image Parameters) * Purpose: Resolve missing image and display parameters * Subroutine: init_img() returns: void * Subroutine: init_dispcen() returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 August 1988 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include "hfiles/coord.h" /* coord structs */ #include "hfiles/define.h" /* MIN, MAX, and more */ #include "hfiles/image.h" /* image struct */ /* * Subroutine: init_img * Purpose: Resolve readable subsection selection and fill in * missing params * Called by: init_image in ImageRead.c * Called by: imtool_reinit in RemoteImtool.c */ void init_img ( image, coord ) struct imageRec *image; struct coordRec *coord; { double ioff; int width, height; int low_edge, wide_edge, high_edge; void set_coordsys(), set_imgtran(); /* set img parameters */ /* file to buffer must never use replication */ if( image->fiblock < 1 ) image->fiblock = 1; /* file coordinates must work for either 0 based or 1 based indexing */ /* offset of 0.5 is used in 0 based indexing, 0.0 is used in 1 based */ low_edge = image->index_base; if( low_edge == 0 ) { ioff = 0.5; wide_edge = image->filecols - 1; high_edge = image->filerows - 1; } else { ioff = 0.0; wide_edge = image->filecols; high_edge = image->filerows; } /* clip inputs to file coordinate limits */ if( image->fiX1 < low_edge ) image->fiX1 = low_edge; if( image->fiY1 < low_edge ) image->fiY1 = low_edge; if( image->fiX2 > wide_edge ) image->fiX2 = wide_edge; if( image->fiY2 > high_edge ) image->fiY2 = high_edge; width = image->fiX2 - image->fiX1 + 1; height = image->fiY2 - image->fiY1 + 1; /* if image section not set or incorrectly set, default to full file */ if( (width <= 1) || (height <= 1) ) { width = image->filecols; height = image->filerows; image->fiX1 = low_edge; image->fiY1 = low_edge; image->fiX2 = wide_edge; image->fiY2 = high_edge; } /* set up the description of the file coordinate system */ set_coordsys(&coord->file, ioff, image->filecols, image->filerows, image->fiX1, image->fiY1, image->fiX2, image->fiY2); image->ficenX = coord->file.cenX; image->ficenY = coord->file.cenY; /* calculate size of img (check for 1 since it is the most common case) */ if( image->fiblock != 1 ) { width /= image->fiblock; height /= image->fiblock; } /* account for rotation of the axes in going from file to display */ /* set up the description of the img coordinate system */ if( image->rotate_code & 1 ) { set_coordsys(&coord->img, 0.5, height, width, 0, 0, height - 1, width - 1); } else { set_coordsys(&coord->img, 0.5, width, height, 0, 0, width - 1, height - 1); } /* create the transformation matrices between img and file */ set_imgtran(image, &coord->img, &coord->file, &coord->imgtofile, &coord->filetoimg); } /* * Subroutine: init_dispcen * Purpose: Adjust chosen or default display parameters * Called by: init_image in ImageRead.c * Called by: imtool_reinit in RemoteImtool.c */ void init_dispcen ( image, coord ) struct imageRec *image; struct coordRec *coord; { int spec; void d_transform(); /* if disp size is not given choose one within limits */ if( image->dispcols <= 0 ) image->dispcols = MAX( MIN( 512, coord->img.width ), 200 ); if( image->disprows <= 0 ) image->disprows = MAX( MIN( 512, coord->img.height ), 200 ); /* set center of display, or use that which was given */ spec = 0; if( image->fdcenX > 0 ) { if( image->fdcenX < image->fiX1 ) image->fdcenX = image->fiX1; if( image->fdcenX > image->fiX2 ) image->fdcenX = image->fiX2; spec = 1; } else image->fdcenX = image->ficenX; if( image->fdcenY > 0 ) { if( image->fdcenY < image->fiY1 ) image->fdcenY = image->fiY1; if( image->fdcenY > image->fiY2 ) image->fdcenY = image->fiY2; spec = 1; } else image->fdcenY = image->ficenY; /* get display center in img coords */ if( spec ) { /* translate from file to img coords */ d_transform(&coord->filetoimg, image->fdcenX, image->fdcenY, &(coord->tid.cenX), &(coord->tid.cenY)); } else { /* use default (center of img) */ coord->tid.cenX = coord->img.cenX; coord->tid.cenY = coord->img.cenY; } /* calculate disptoimg zoom factor */ /* allow only positive blocking when reading file */ if( image->fiblock < 0 ) image->fiblock = -image->fiblock; /* if display blocking not set, make it that of img */ if( image->fdblock == 0 ) { image->fdblock = image->fiblock; coord->tid.zoom = 1.0; coord->tid.block = 1; } else { double dzoom; if( image->fdblock > 0 ) dzoom = 1.0 / (double)image->fdblock; else dzoom = (double)-(image->fdblock); if( image->fiblock != 1 ) dzoom *= image->fiblock; /* set id block and zoom (make sure zoom is integerized) */ if( dzoom > 0.75 ) { coord->tid.block = -(int)(dzoom + 0.5); coord->tid.zoom = (double)(-coord->tid.block); } else { coord->tid.block = (int)((1.0 / dzoom) + 0.5); coord->tid.zoom = 1.0 / (double)coord->tid.block; } } } saoimage-1.08/rgnctrl.c 666 21641 13 20402 4741005153 10160 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgnctrl.c (Region Control) * Purpose: Respond to region commands from various sources * Subroutine: point_region() returns: void * Subroutine: ascii_region() returns: void * Subroutine: select_region() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {n} -- -- */ #include /* Define stderr, NULL */ #include /* X window stuff */ #include /* X window manager stuff, visuals */ #include #include #include "hfiles/constant.h" /* Define codes */ #include "hfiles/struct.h" /* Declare structure types */ #include "hfiles/extern.h" /* Extern main parameter structures */ struct cursorRec *cycle_region = 0; #ifdef ANSIC void point_region( XButtonEvent *xbutton); void ascii_region( XKeyEvent *xkey, KeySym keysym); static void cycle_regions(); static void reset_regions(); #else struct cursorRec *region_indicated_by_pointer(); int match_region(); void unsave_region(), set_cursor_file_coords(), disp_dispbox(); void save_cursor_as_region(), disp_region(), unsave_region(); void enable_annuli_button(), delete_annuli(), erase_cursor(); void copy_region_to_cursor(), disp_cursor(), d_transform(), draw_magnifier(); void label_region_cycle_magnifier(), touch_submenu_button(); void set_submenu_toggle(), enable_ortho_button(); void toggle_region_labeling(), toggle_region_visibility(); void write_regions(), read_regions(), free_cursor(); static void cycle_regions(), reset_regions(); #endif /* Subroutine: point_region * Purpose: Respond to a mouse activated request for a point region * Note: In cursor point mode the mouse buttons map directly: * left - save for include, middle - save for exclude, right - delete */ #ifdef ANSIC void point_region ( XButtonEvent *xbutton ) #else void point_region ( xbutton ) XButtonEvent *xbutton; #endif { struct cursorRec *region; /* Right button is a delete request in point cursor mode */ if( xbutton->button == Button3 ) { /* See if mouse indicates a region to delete */ region = region_indicated_by_pointer(&cursor, xbutton->x, xbutton->y, 1); if( region != NULL ) { unsave_region(&cursor, region); disp_dispbox(); } } else if( (xbutton->button == Button1) || (xbutton->button == Button2) ) { cursor.win.x = xbutton->x; cursor.win.y = xbutton->y; cursor.win.X = (double)cursor.win.x + 0.5; cursor.win.Y = (double)cursor.win.y + 0.5; /* Force file coordinates into agreement with window coordinates */ set_cursor_file_coords(&cursor, &coord.disptofile, 1); /* Save cursor as a region */ if( xbutton->button == Button1 ) save_cursor_as_region(&cursor, 0); else save_cursor_as_region(&cursor, 1); cursor.index = cursor.next_region->index; disp_region(cursor.next_region); } } /* Subroutine: ascii_region * Purpose: Keyboard control of regions */ #ifdef ANSIC void ascii_region ( XKeyEvent *xkey, KeySym keysym ) #else void ascii_region ( xkey, keysym ) XKeyEvent *xkey; KeySym keysym; #endif { int exclude; struct cursorRec *region; if( cursor.type == COP_Point ) { cursor.win.x = xkey->x; cursor.win.y = xkey->y; cursor.win.X = (double)cursor.win.x + 0.5; cursor.win.Y = (double)cursor.win.y + 0.5; } /* Initialize values used or switched in overlapping functions */ region = cursor.next_region; exclude = 0; switch( keysym ) { case XK_E: case XK_e: exclude = 1; case XK_S: case XK_s: /* Force file coordinates into agreement with window coordinates */ set_cursor_file_coords(&cursor, &coord.disptofile, 0); set_cursor_file_coords(&cursor, &coord.disptofile, 1); save_cursor_as_region(&cursor, exclude); disp_region(cursor.next_region); break; case XK_D: case XK_d: region = region_indicated_by_pointer(&cursor, xkey->x, xkey->y, 0); case XK_Delete: if( region != NULL ) { unsave_region(&cursor, region); disp_dispbox(); } break; default: break; } } /* Subroutine: select_region * Purpose: Act on commands from the region button panel */ void select_region ( ) { switch( control.response[1] ) { /* This case comes up when the main menu button is pressed */ case 0: break; case ROP_Cycle: cycle_regions(); break; case ROP_Label: toggle_region_labeling(); break; case ROP_Omit: if( match_region(&cursor, cycle_region) ) { unsave_region(&cursor, cycle_region); /* Redisplay without the omitted region */ disp_dispbox(); } break; case ROP_View: toggle_region_visibility(); break; case ROP_Reset: reset_regions(); break; case ROP_Write: write_regions(&cursor, &img, img.file_type); break; case ROP_Read: read_regions(); break; default: break; } } /* Subroutine: cycle_regions * Purpose: Cylce cursor through saved regions */ static void cycle_regions() { float bufx, bufy; int annuli_disabled, annuli_on; /* There must be saved regions through which to cycle */ if( cursor.next_region == NULL ) { (void)fprintf(stderr, "Warning: no saved regions.\n"); return; } /* Determine if annuli button is currently disabled or on */ annuli_on = 0; if( (cursor.type != COP_Point) && (cursor.type != COP_Polygon) ) { annuli_disabled = 0; if( cursor.annuli ) annuli_on = 1; } else annuli_disabled = 1; /* Erase the cursor while we still know it */ if( cursor.overwrites_image_data ) { /* Redraw image and any saved cursors, but not the cursor */ if( cursor.next_annulus != NULL ) delete_annuli (&cursor, 0); cursor.annuli = 0; cursor.point_cnt = 0; cursor.rectangle_cnt = 0; disp_dispbox(); } else { if( cursor.next_annulus != NULL ) /* Delete_annuli does an erase cursor */ delete_annuli(&cursor, 0); else erase_cursor(&cursor); } /* Get next region in cycle */ if( cycle_region == NULL ) cycle_region = cursor.next_region; else cycle_region = cycle_region->next_region; /* If at end of list, go back to head of list */ if( cycle_region == NULL ) cycle_region = cursor.next_region; /* Make cursor be a copy of this region */ copy_region_to_cursor(&cursor, cycle_region); /* If this is a text cursor, set the editor info for this string */ if( cursor.type == COP_Text ) reload_textcursor(); if( cursor.type != COP_Point ) /* Draw the cursor */ disp_cursor(&cursor); /* Show exact region position in magnifier */ d_transform(&coord.disptobuf, cursor.win.X, cursor.win.Y, &bufx, &bufy); draw_magnifier((double)bufx, (double)bufy); /* Label what we just drew */ label_region_cycle_magnifier (cycle_region, 1); /* Make sure cursor buttons are correct */ touch_submenu_button(COP, cursor.type); if( (cursor.type == COP_Box) || (cursor.type == COP_Circle) || (cursor.type == COP_Ellipse) ) { if( annuli_disabled ) enable_annuli_button(1); if( annuli_on != cursor.annuli ) set_submenu_toggle(COP, COP_Annuli, cursor.annuli); if( cursor.type == COP_Circle ) enable_ortho_button(0); else enable_ortho_button(1); } else if( !annuli_disabled ) { enable_annuli_button(0); enable_ortho_button(0); } } /* Subroutine: reset_regions * Purpose: Reset all save cursor areas */ static void reset_regions() { struct cursorRec *region, *next, *annulus; if( (next = cursor.next_region) != NULL ) { while( next != NULL ) { region = next; next = next->next_region; /* Free deleted region and any annuli it might have */ do { annulus = region->next_annulus; free_cursor(region); region = annulus; } while( region != NULL ); } /* Reset cycle pointer */ cycle_region = NULL; cursor.next_region = NULL; /* Redisplay image without the regions */ disp_dispbox(); } } saoimage-1.08/irafcrd.c 666 21641 13 15350 4613623662 10136 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: irafcrd.c (IRAF Coordinates) * Purpose: Parse wcs filename string for IRAF subsection coordinates * Subroutine: guess_true_file_coords() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst 7 Nov 1989 * {1} MVH bug fix in guess_true_file_coords 7 Dec 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #ifdef IMTOOL #include /* stderr, FILE, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #define strchr index #define strrchr rindex #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* isspace */ #include /* get X types and constants */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ /* * Subroutine: guess_true_file_coords * Purpose: Parse wcs filename string for the user's "rect" subsection. * If found and parsed, compute new transform for file coord. * Returns: 1 if subsection found and parsed successfully, else 0 */ int guess_true_file_coords ( title ) char *title; { int xoff, yoff, block; float fblock; Transform imgtoaux; static int parse_iraf_subsection(); void set_trans_speed(), combine_transform(), clear_coord_area(); if( parse_iraf_subsection(title, &xoff, &yoff, &block) == 0 ) { if( coord.imtool_aux ) clear_coord_area(); return( 0 ); } /* if this does nothing, don't bother */ if( (xoff == 0) && (yoff == 0) && (block == 1) ) return( 0 ); /* install its coordinate transform matrix */ fblock = (float)block; imgtoaux.inx_outx = coord.imgtofile.inx_outx * fblock; imgtoaux.iny_outx = coord.imgtofile.iny_outx * fblock; imgtoaux.inx_outy = coord.imgtofile.inx_outy * fblock; imgtoaux.iny_outy = coord.imgtofile.iny_outy * fblock; imgtoaux.iadd_outx = (xoff - 1) + ((fblock * coord.imgtofile.iadd_outx) - ((fblock - 1) * 0.5)); imgtoaux.iadd_outy = (yoff - 1) + ((fblock * coord.imgtofile.iadd_outy) - ((fblock - 1) * 0.5)); /* fill in the missing add_out params */ if( imgtoaux.iny_outx == 0.0 ) { imgtoaux.add_outx = imgtoaux.iadd_outx - (0.5 * imgtoaux.inx_outx); imgtoaux.add_outy = imgtoaux.iadd_outy - (0.5 * imgtoaux.iny_outy); } else { imgtoaux.add_outx = imgtoaux.iadd_outx - (0.5 * imgtoaux.iny_outx); imgtoaux.add_outy = imgtoaux.iadd_outy - (0.5 * imgtoaux.inx_outy); } /* compute speedy integer computation parameters */ set_trans_speed(&imgtoaux); /* compute transform from file to aux (by going file to img to aux) */ combine_transform(&coord.filetoaux, &coord.filetoimg, &imgtoaux); return( 1 ); } /* * Subroutine: parse_iraf_subsection * Purpose: Parse for subsection and blocking from the image name * Returns: 1 if subsection or blocking was used, else 0 */ static int parse_iraf_subsection ( s, xoff, yoff, block ) char *s; /* i: file name */ int *xoff; /* o: x offset */ int *yoff; /* o: y offset */ int *block; /* o: block */ { char *t, *u; /* temp char pointers */ static char *fn_substr(); /* look for a substr */ static void get_subsection_offsets(); /* seed the default values */ *xoff = 1; *yoff = 1; *block=1; /* look for a left bracket */ t = fn_substr(s, "["); /* no bracket => no offsets or block */ if( t ==0 ) return( 0 ); /* check for qp file identifier */ u = fn_substr(s, ".qp"); if( (u !=0) && (u < t) ) { /* look for the rect substring */ u = fn_substr(t, "rect=(" ); /* if we find rect, grab the initial x offset */ if( u !=0 ) get_subsection_offsets (u, xoff, yoff, 1); /* look for the block substring */ u = fn_substr(t, "block=" ); /* if we find the block, grab the block factor */ if( u !=0 ) { /* might have to skip '(' */ while( *u == '(' ) *u++; *block = atoi(u); } } else { /* iraf sends subsection coords for qp with "rect=", else file coords */ return( 0 ); } return( 1 ); } /* * Subroutine: get_subsection_offsets * Purpose: parse subsection syntax for x and y offsets of subsection */ static void get_subsection_offsets ( s, xoff, yoff, is_qp ) char *s; int *xoff, *yoff; int is_qp; /* i: file is qp (uses () around subsection) */ { int x1, x2; int y1, y2; char *sy, *s2, *st; static char *fn_substr(); /* if not qp, grab the initial x offset right after the '[' */ sy = fn_substr(s, ","); if( is_qp ) st = strchr(s, ')'); else st = strchr(s, ']'); if( (x1 = atoi(s)) > 1 ) { s2 = fn_substr(s, ":"); /* make sure ':' was found and isn't that for y coords */ if( (s2 != NULL) && ((sy == NULL) || (s2 < sy)) ) { x2 = atoi(s2); if( (x2 <= 0) || (x2 > x1) ) *xoff = x1; else /* giving lower x2 reverses column order, offset is from x2 */ *xoff = x2; } else *xoff = x1; } /* if there was a comma and a y subsection given */ if( (sy != NULL) && (sy < st) && ((y1 = atoi(sy)) > 1) ) { s2 = fn_substr(sy, ":"); /* make sure ':' was found and is for the subsection */ if( (s2 != NULL) && (s2 < st) ) { y2 = atoi(s2); if( (y2 <= 0) || (y2 > y1) ) *yoff = y1; else *yoff = y2; } else *yoff = y1; } if( *xoff <= 0 ) *xoff = 1; if( *yoff <= 0 ) *yoff = 1; } /* * Subroutine: fn_substr * Purpose: Find the next instance of a string in another string * Note: This routine is a bit different in that it ignores spaces * in checking and returns a pointer after the substring */ static char *fn_substr ( s, p ) char *s; /* i: string to be searched */ char *p; /* i: pattern sought in s */ { char *sl; /* pointer to the local part of s */ char *tp; /* local pointer in p */ char *sp; /* local pointer in s */ /* if the pattern we are searching is null, no sense going on */ if( *p == '\0' ) return( NULL ); sl = s; /* look through the mother string */ while( (sl = strchr(sl,*p)) != 0 ) { for( sp=sl,tp=p; (*tp)&&((*sp == *tp)||(isspace(*sp))); sp++ ) /* if we found a space, we can't bump the t pointer */ if( !isspace(*sp) ) tp++; if( *tp == '\0' ) return(sp); /* found one */ sl++; /* advance a character */ } return( NULL ); } #endif saoimage-1.08/imgtrans.c 666 21641 13 10554 4613623452 10346 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: imgtrans.c (Image Transformation) * Purpose: Routines to orthogonally translate buffers. * Subroutine: rotate_buf() returns: void * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 8 December 1988 * {n} -- -- */ #include /* define stderr */ #include "hfiles/define.h" /* define MIN, MAX, etc. */ /* * Subroutine: rotate_buf * Purpose: Rotate a buffer as indicated by the code * Parameter: rotcode * 0-3 = rotate clockwise by code * 90 degrees * 4-7 = flip y axis then rotate clockwise by (code - 4) * 90 degrees * Called by: load_image() in ImageRead.c */ void rotate_buf ( buf, flip, rotcode, width, height, buf_squared, buf_doubled ) short *buf; int flip; int rotcode; int width, height; int buf_squared, buf_doubled; { int maxdim; void xflip_buf(), yflip_buf(), zflip_buf(), cwturn_buf(), ccwturn_buf(); void transfer_buf(); static void square_buf(), unsquare_buf(); if( flip ) rotcode += 4; if( rotcode & 1 ) { if( buf_doubled ) { short *dst; dst = buf + (width * height); transfer_buf(buf, dst, width, height, rotcode); transfer_buf(dst, buf, width, height, 0); return; } else if( buf_squared || (width == height) ) { maxdim = MAX(width, height); } else { (void)fprintf(stderr, "ERROR: no buffer to rotate image\n"); return; } } /* if not a square or like a square with filler on bottom */ switch( rotcode ) { case 0: return; case 2: /* 180 degree rotation */ zflip_buf(buf, width, height); break; case 4: /* flip along y axis */ xflip_buf(buf, width, height); break; case 6: /* flip then rotate 180 degrees clockwise */ yflip_buf(buf, width, height); break; case 5: /* flip along y axis, then rotate */ xflip_buf(buf, width, height); case 1: /* 90 degree clockwise rotation */ if( width < height ) square_buf(buf, width, height, 1); cwturn_buf(buf, maxdim); if( height < width ) unsquare_buf(buf, width, height, 0); break; case 7: /* flip along y axis, then rotate */ xflip_buf(buf, width, height); case 3: /* 270 degree clockwise rotation */ if( width < height ) square_buf(buf, width, height, 0); ccwturn_buf(buf, maxdim); if( height < width ) unsquare_buf(buf, width, height, 1); break; } } /* * Subroutine: square_buf * Purpose: Rearrange lines in a buffer for square symmetry * Exception: Assumes that height of rectangle is greater than width * Parameter: left * left = 1 will put reactangle on left with lines padded out * left = 0 will put rectangle on right with padded in front of lines */ static void square_buf ( buf, width, height, left ) short *buf; int width, height; int left; { short *rectline, *sqline; int bytes; /* make buf square with lines filled to end */ rectline = buf + ((height - 1) * width); if( left == 0 ) sqline = buf + (height * height) - width; else sqline = buf + (height * height) - height; bytes = width * sizeof(short); while( sqline > rectline ) { bcopy((char *)rectline, (char *)sqline, bytes); rectline -= width; sqline -= height; } } /* * Subroutine: unsquare_buf * Purpose: Make rectangular data in square buffer occupy rectangle at top * Exception: Assumes output height is greater than width * left = 1 moves data which is on left side of square * left = 0 moves data which is on right side of square */ static void unsquare_buf ( buf, width, height, left ) short *buf; int width, height; int left; { short *rectline, *sqline; int bytes; int i; /* make buf square with lines filled to end */ if( left == 0 ) { rectline = buf; sqline = buf + (height - width); } else { rectline = buf + width; sqline = buf + height; } bytes = width * sizeof(short); for( i=0; i -- -- */ #include /* stderr, FILE, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define SMALL_NUMBER */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ static char *errnote = " allocation failure\n"; /* * Subroutine: calloc_errchk * Purpose: Calloc with printf'less error message and exit for failure * Note: If message is given, print it and exit on failure * Note: If no message is given, return 0 on failure */ char *calloc_errchk ( count, size, errmess ) int count; unsigned int size; char *errmess; { char *space; char *calloc(); if( (space = (char *)calloc((unsigned)count, size)) == NULL ) { if( errmess == NULL ) return(0); else { fputs (errmess, stderr); fputs (errnote, stderr); exit( 100 ); } } return( space ); } static char *exitnote = "SAO_IMAGE EXIT ON ERROR: "; static char *exitcr = "\n"; /* * Subroutine: exit_errmsg * Purpose: Exit with a message */ void exit_errmsg ( errmess ) char *errmess; { void say_goodbye(); fputs (exitnote, stderr); if( errmess != NULL ) fputs (errmess, stderr); fputs (exitcr, stderr); say_goodbye( 10 ); } /* * Subroutine: not_different * Purpose: compare two values for a significant difference * Returns: 1 if there is virtually no difference, else 0 */ int not_different ( val1, val2 ) double val1; double val2; { if( val1 > val2 ) { if( (val1 - val2) > SMALL_NUMBER ) return( 0 ); } else { if( (val2 - val1) > SMALL_NUMBER ) return( 0 ); } return( 1 ); } /* * Subroutine: statemotion_in_disp * Purpose: Subroutine to use with XCheckIfEvent to get the latest * ButtonMotion event in the dispbox. Track until all masked * buttons or states return to 0. */ Bool statemotion_in_disp ( display, event, arg ) Display *display; XEvent *event; char *arg; { unsigned int mask = *((unsigned int *)arg); if( (event->type == MotionNotify) && (event->xmotion.window == dispbox.ID) && ((event->xmotion.state & mask) != 0) ) return( True ); else return( False ); } /* * Subroutine: specificmotion_in_disp * Purpose: Subroutine to use with XCheckIfEvent to get the latest * ButtonMotion event in the dispbox. Track until any masked * button or state returns to 0. */ Bool specificmotion_in_disp ( display, event, arg ) Display *display; XEvent *event; char *arg; { unsigned int mask = *((unsigned int *)arg); if( (event->type == MotionNotify) && (event->xmotion.window == dispbox.ID) && ((event->xmotion.state & mask) == mask) ) return( True ); else return( False ); } /* * Subroutine: statedmotion_in_disp * Purpose: Subroutine to use with XCheckIfEvent to get the latest * ButtonMotion event in the dispbox. Track until any state * differs from initial mask. */ Bool statedmotion_in_disp ( display, event, arg ) Display *display; XEvent *event; char *arg; { unsigned int mask = *((unsigned int *)arg); if( (event->type == MotionNotify) && (event->xmotion.window == dispbox.ID) && (event->xmotion.state == mask) ) return( True ); else return( False ); } saoimage-1.08/irafdisp.c 666 21641 13 20350 5265422144 10315 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: irafdisp.c (Iraf Display) * Purpose: Respond to input from IRAF meant for Imtool * Subroutine: imtool_reinit() returns: int * Subroutine: disp_subpiece() returns: void * Subroutine: set_imtool_scale() returns: void * Subroutine: set_imtool_color() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst 7 Nov 1989 * {1} MVH don't set imtool_colors if halftone 24 Nov 1989 * {2} FV change scale_max to 199 to insure 9 Oct 1992 * unit scaling * {n} -- -- */ #ifdef IMTOOL #include /* stderr, FILE, NULL, etc. */ #include /* get X types and constants */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ /* * Subroutine: imtool_reinit * Purpose: Reinitialize parameters after any buffer size change and * before loading new */ void imtool_reinit ( width, height ) int width, height; { void init_img(), init_dispcen(), d_transform(), new_panbox(); int init_imagebuf(); img.fiX1 = 1; img.fiY1 = 1; img.fiX2 = width; img.fiY2 = height; /* force default of display center on new size, else use current center */ if( (img.filecols != width) || (img.filerows != height) ) { img.filecols = width; img.filerows = height; img.fdcenX = 0.0; img.fdcenY = 0.0; img.fdblock = 0; } else { float fdx, fdy; /* translate from file to img coords */ d_transform(&coord.imgtofile, coord.id.cenX, coord.id.cenY, &fdx, &fdy); img.fdcenX = (double)fdx; img.fdcenY = (double)fdy; img.fdblock = coord.id.block; } /* initialize imaging parameters */ if( control.IRAF_out.protocol == IOP_PROS ) img.file_type = SOP_PROS; else img.file_type = SOP_Imtool; /* imtool packets are 8bit (for now, anyway) */ img.bytepix = 1; init_img(&img, &coord); init_dispcen(&img, &coord); (void)init_imagebuf(); /* don't flag that buffer must be loaded, it's not that kind of load */ coord.buferror = 0; buffer.load_filebuf = 0; /* set up the panbox accordingly */ new_panbox(1); } /* * Subroutine: disp_subpiece * Purpose: Map and display a sub-section of the full buffer. */ void disp_subpiece ( x1, y1, x2, y2 ) int x1, y1, x2, y2; /* i: coordinates in buffer.shortbuf */ { float dx1, dy1, dx2, dy2; float iX1, iY1, iX2, iY2; Coordsys disp; Edges bd; int dy, dh; int bh, block, py_off; char *data; short *sb, *pb; void d_transform(), set_edges(), map_dispbox(), disp_dispbox(); void set_dispoff(), new_panimage(); /* set box to map only the given section */ bcopy((char *)&coord.disp, (char *)&disp, sizeof(Coordsys)); bcopy((char *)&coord.bd, (char *)&bd, sizeof(Edges)); d_transform(&coord.buftoimg, (double)x1, (double)y1, &iX1, &iY1); d_transform(&coord.imgtodisp, (double)iX1, (double)iY1, &dx1, &dy1); d_transform(&coord.buftoimg, (double)(x2 + 1), (double)(y2 + 1), &iX2, &iY2); d_transform(&coord.imgtodisp, (double)iX2, (double)iY2, &dx2, &dy2); /* ignore if section is not visible in the display window */ if( (dx1 <= (float)dispbox.width) && (dx2 > 1.0) && (dy1 <= (float)dispbox.height) && (dy2 > 1.0) ) { /* clip edges to the display window */ if( dx1 < 0.0 ) dx1 = 0.0; if( dx2 > (float)dispbox.width ) dx2 = (float)dispbox.width; if( dy1 < 0.0 ) dy1 = 0.0; if( dy2 > (float)dispbox.height ) dy2 = (float)dispbox.height; coord.disp.X1 = dx1; coord.disp.Y1 = dy1; coord.disp.X2 = dx2; coord.disp.Y2 = dy2; coord.disp.Y1i = (int)dy1; coord.disp.Y2i = (int)dy2 - 1; coord.disp.Yhght = 1 + coord.disp.Y2i - coord.disp.Y1i; set_edges(&coord.disptobuf, &coord.buf, &coord.disp, &coord.bd); /* redefine the edges in the display window if at edge of buffer */ if( coord.bd.block < 0 ) set_dispoff(&coord.disptobuf, &coord.disp, &coord.bd); map_dispbox(); bcopy((char *)&disp, (char *)&coord.disp, sizeof(Coordsys)); bcopy((char *)&bd, (char *)&coord.bd, sizeof(Edges)); /* set box to only draw the given section */ dy = dispbox.yzero; dh = dispbox.yheight; data = dispbox.image.data; dispbox.yzero = dy1; dispbox.yheight = (int)(0.5 + dy2 - dy1); /* note this works for halftone (bit/pixel) and color (byte/pixel) */ dispbox.image.data += (dispbox.yzero * dispbox.image.bytes_per_line); disp_dispbox(); dispbox.yzero = dy; dispbox.yheight = dh; dispbox.image.data = data; } /* replace the panbox with a new one */ block = (int)coord.pantoimg.inx_outx; bh = coord.pan.Yhght; dh = panbox.yheight; dy = panbox.yzero; data = panbox.image.data; pb = buffer.panbuf; sb = buffer.shortbuf; /* this should always be true, since imtool doesn't do less than 512 */ if( block >= 1 ) { y1 = (y1 / block) * block; y2 = (((y2 / block) + 1) * block) - 1; if( y2 >= coord.buf.Yhght ) y2 = coord.buf.Yhght - 1; py_off = y1 / block; buffer.shortbuf += (y1 * coord.buf.width); buffer.panbuf += (py_off * coord.pan.Xwdth); coord.pan.Yhght = (1 + y2 - y1) / block; panbox.yzero = py_off; panbox.yheight = coord.pan.Yhght; panbox.image.data += (panbox.yzero * panbox.image.bytes_per_line); } else py_off = -1; new_panimage(); disp_panbox(); if( py_off >= 0 ) { buffer.shortbuf = sb; buffer.panbuf = pb; panbox.yzero = dy; panbox.yheight = dh; panbox.image.data = data; } coord.pan.Yhght = bh; } /* * Subroutine: set_imtool_scale * Purpose: Force the scalemap to match the range of imtool image data */ void set_imtool_scale() { void set_imtool_colors(), make_scalemap(), touch_submenu_button(); /* identify min and max used by imtool */ buffer.clipmin = 1; buffer.clipmax = 200; buffer.scale_min = 0; buffer.scale_max = 199; /* force new scaling, but not hisotgram equalize if it would be invoked */ if( (color.scale.mode == SOP_HistEq) && (color.ncolors < 200) && (color.ncolors > 1) ) { color.scale.mode = SOP_Linear; touch_submenu_button(SOP, SOP_Linear); } if( color.ncolors == 1 ) { color.ncolors = 256; make_scalemap(0, 199); color.ncolors = 1; } else { make_scalemap(0, 199); set_imtool_colors(); } } /* * Subroutine: set_imtool_colors * Purpose: Map colors used as graphics options in imtool */ void set_imtool_colors () { unsigned char *lookup; lookup = buffer.scalemap + SCALEOFF; /* imtool cursor color */ lookup[201] = (unsigned char)color.gcset.draw.foreground; lookup[202] = (unsigned char)color.hard.true_black; lookup[203] = (unsigned char)color.hard.true_white; lookup[204] = (unsigned char)color.hard.red; lookup[205] = (unsigned char)color.hard.green; lookup[206] = (unsigned char)color.hard.blue; lookup[207] = (unsigned char)color.hard.yellow; lookup[208] = (unsigned char)color.hard.std_black; /* imtool cyan */ lookup[209] = (unsigned char)color.hard.std_white; /* imtool magenta */ lookup[210] = (unsigned char)color.hard.yellow; /* imtool coral */ lookup[211] = (unsigned char)color.hard.red; /* imtool maroon */ lookup[212] = (unsigned char)color.hard.yellow; /* imtool orange */ lookup[213] = (unsigned char)color.hard.std_white; /* imtool khaki */ lookup[214] = (unsigned char)color.hard.red; /* imtool orchid */ lookup[215] = (unsigned char)color.hard.green; /* imtool turquoise */ lookup[216] = (unsigned char)color.hard.blue; /* imtool violet */ lookup[217] = (unsigned char)color.hard.std_white; /* imtool wheat */ } #endif saoimage-1.08/irafenv.c 666 21641 13 23071 4613624065 10153 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: irafenv.c (IRAF Environment) * Purpose: Do things needed to coorinate paths and coordinates with IRAF * Subroutine: update_wcs() returns: int * Subroutine: get_fbconfig() returns: int * Subroutine: set_path_iraf() returns: void * Unix calls: fopen(), fclose(), getenv() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 July 1989 * {1} Jay Travisano (STScI) VMS changes 10 Nov 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include #include /* define FILE, stderr, fopen(), fclose() */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include "hfiles/coord.h" #include "hfiles/define.h" /* SZ_FNAME, etc. */ #include "hfiles/image.h" #include "hfiles/imtool.h" /* * Subroutine: set_path_iraf * Purpose: Construct the pathname of a user datafile by IRAF convention. */ void set_path_iraf ( filename ) char *filename; /* i: root filename */ { static char temproot[64]; char *udir, *getenv(); /* were we passed an absolute pathname as input? */ if( *filename == '/' ) { return; } (void)strcpy(temproot, filename); /* get defined directory in order of preference */ if( (udir = getenv("WCSDIR")) == NULL ) if( (udir = getenv("wcsdir")) == NULL ) if( (udir = getenv("HOME")) == NULL ) /* at this point we should be checking ~user/iraf/uparm */ #ifndef VMS udir = "/tmp"; #else udir = "TMP:"; #endif if( udir[strlen(udir)-1] == '/' ) sprintf(filename, "%s%s", udir, temproot); else #if VMS /* don't need slash */ sprintf(filename, "%s%s", udir, temproot); #else sprintf(filename, "%s/%s", udir, temproot); #endif } #ifdef IMTOOL static char title[SZ_FNAME]; /* static char comment[SZ_FNAME]; */ /* * Subroutine: update_wcs * Purpose: Load the screen WCS, if not yet validated, from the user * wcs file, if any. (wcs = "WORLD COORDINATE SYSTEM") * UNIX calls: fopen(), fclose() * Note: File format (two lines): * image title (imtool header label string)\n * a b c d tx ty (WCS coordinate transformation matrix) */ int update_wcs ( image, coord, frame_number, wcsbuf ) struct imageRec *image; struct coordRec *coord; int frame_number; char *wcsbuf; { float xx, yx, xy, yy, xo, yo; /* l: wcs matrix values */ float low, high; /* l: scaling limits */ int w_type; /* l: scaling code */ int tokens; /* l: number of tokens successfully parsed */ FILE *fp; char label[1024]; /* l: file title */ char wcs_file[SZ_FNAME]; char root_name[64]; int guess_true_file_coords(); void set_path_iraf(), rotate_transform(), set_trans_speed(), show_filename(); void invert_transform(), combine_transform(); if( wcsbuf == NULL ) { /* get location of WCSFILE from environment */ sprintf(root_name, WCSFILE, frame_number); (void)strcpy(wcs_file, root_name); set_path_iraf(wcs_file); fp = fopen(wcs_file, "r"); /* if environment not correctly set, try Imtool's defaults, then IRAF's */ if( fp == NULL ) { sprintf(wcs_file, "%s%s\0", "uparm/", root_name); fp = fopen(wcs_file, "r"); } #ifndef VMS if( fp == NULL ) { sprintf(wcs_file, "%s%s\0", "~/iraf/uparm/", root_name); fp = fopen(wcs_file, "r"); } if( fp == NULL ) { sprintf(wcs_file, "%s%s\0", "/tmp/", root_name); fp = fopen(wcs_file, "r"); } #else if( fp == NULL ) { char *getenv(); (void)strcpy(wcs_file, getenv("HOME")); (void)strcat(&wcs_file[strlen(wcs_file)-1], ".IRAF.UPARM]"); (void)strcat(wcs_file, root_name); fp = fopen(wcs_file, "r"); } if( fp == NULL ) { sprintf(wcs_file, "%s%s\0", "TMP:", root_name); fp = fopen(wcs_file, "r"); } #endif if( fp == NULL ) { (void)fprintf(stderr, "WARNING: cannot find imtool coordinate matrix - %s\n", wcs_file); return( 0 ); } /* get iraf coordinate transform matrix */ tokens = fscanf(fp, "%[^\n]\n%f%f%f%f%f%f%f%f%d", label, &xx, &yx, &xy, &yy, &xo, &yo, &low, &high, &w_type); (void)fclose(fp); } else { tokens = sscanf(wcsbuf, "%[^\n]\n%f%f%f%f%f%f%f%f%d", label, &xx, &yx, &xy, &yy, &xo, &yo, &low, &high, &w_type); } if( tokens < 7 ) { (void)fprintf(stderr, "WARNING: error reading imtool.wcs file\n"); coord->imgtofile.inx_outx = 1.0; coord->imgtofile.iny_outx = 0.0; coord->imgtofile.inx_outy = 0.0; coord->imgtofile.iny_outy = 1.0; coord->imgtofile.iadd_outx = 0.5; coord->imgtofile.iadd_outy = 0.5; coord->imgtofile.add_outx = 0.0; coord->imgtofile.add_outy = 0.0; image->fiscaled = 0; /* update the transform for tracking info */ combine_transform(&coord->buftofile, &coord->buftoimg, &coord->imgtofile); return( 0 ); } else { /* copy the name */ (void)strncpy(title, label, SZ_FNAME); label[SZ_FNAME - 1] = '\0'; image->filename = title; /* install its coordinate transform matrix */ coord->imgtofile.inx_outx = xx; coord->imgtofile.iny_outx = yx; coord->imgtofile.inx_outy = xy; coord->imgtofile.iny_outy = yy; coord->imgtofile.iadd_outx = xo; coord->imgtofile.iadd_outy = yo; /* fill in the missing add_out params */ if( yx == 0.0 ) { coord->imgtofile.add_outx = xo - (0.5 * xx); coord->imgtofile.add_outy = yo - (0.5 * yy); } else { coord->imgtofile.add_outx = xo - (0.5 * yx); coord->imgtofile.add_outy = yo - (0.5 * xy); } /* apply any additional user requested rotation */ if( (!image->row_order) || (image->rotate_code != 0) ) rotate_transform(&coord->img, &coord->imgtofile, !image->row_order, image->rotate_code); /* compute speedy integer computation parameters */ set_trans_speed(&coord->imgtofile); /* compute the inverse parameters (complete) */ invert_transform(&coord->filetoimg, &coord->imgtofile, 0.0); /* update the transform for tracking info */ combine_transform(&coord->buftofile, &coord->buftoimg, &coord->imgtofile); /* check for subsection in title and compute true coords (if qp) */ coord->imtool_aux = guess_true_file_coords(title); /* get IRAF/display scaling (uses linear scaling between low and high) */ if( (tokens < 10) || (low == high) || (w_type != 1) ) { image->fiscaled = 0; } else { image->fiscaled = 1; image->fiscale = (high - low) / (CMS_DATARANGE - 1); image->fibias = low - image->fiscale; } show_filename(); return( 1 ); } } /* * Subroutine: get_fbconfig * Purpose: Read the IMTOOL startup file to get frame buffer sizes. * UNIX calls: fopen(), fclose(), getenv() * File format: configno nframes width height [extra fields] * e.g., 1 2 512 512 * 2 2 800 800 * 3 1 1024 1024 # comment */ int get_fbconfig ( config_number, width, height ) int config_number; int *width, *height; { register char *ip; register FILE *fp; int config, nframes; char lbuf[SZ_LINE+1], *fname, *getenv(); /* 0 chooses the default configuration */ if( config_number == 0 ) { *width = DEF_FRAME_WIDTH; *height = DEF_FRAME_HEIGHT; return( 1 ); } /* attempt to open the config file. */ fp = NULL; if( (fname=getenv(FBCONFIG_ENV1)) || (fname=getenv(FBCONFIG_ENV2)) ) fp = fopen(fname, "r"); if( !fp && (fname = getenv("HOME")) ) { #ifndef VMS sprintf(lbuf, "%s/%s", fname, FBCONFIG_1); #else sprintf(lbuf, "%s%s", fname, FBCONFIG_1); #endif fp = fopen(fname = lbuf, "r"); } if( !fp ) fp = fopen(fname = FBCONFIG_2, "r"); /* if cannot find a config file, return error */ if( !fp ) { (void)fprintf(stderr, "Error: cannot find imtool configuration table\n"); return( 0 ); } /* scan the frame buffer configuration file. */ do { /* read in next line and check for eof */ if( fgets (lbuf, SZ_LINE, fp) == NULL ) { (void)fprintf(stderr, "Error: configuration not found in %s table\n", fname); return( 0 ); } config = 0; /* skip over leading spaces and tabs */ for( ip=lbuf; (*ip == ' ') || (*ip == '\t'); ip++ ); /* skip comment lines and blank lines. */ if( *ip == '\n' || *ip == '#' ) continue; if( !isdigit(*ip) ) continue; switch( sscanf (ip, "%d%d%d%d", &config, &nframes, width, height) ) { case 4: break; /* normal case */ case 3: *height = *width; /* default to square format */ break; default: (void)fprintf(stderr, "imtool: bad config `%s'\n", ip); config = 0; continue; } /* is this the configuration we want? */ } while( config != config_number ); if( *width < 1 ) *width = 1; if( *height < 1 ) *height = 1; (void)fclose(fp); return( 1 ); } #endif saoimage-1.08/irafimtl.c 666 21641 13 22303 4617475322 10331 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: irafimtl.c (IRAF Imtool) * Purpose: Respond to input from IRAF meant for Imtool * Subroutine: imtool_response() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} based on code from Doug Tody's IRAF Imtool (NOAO) * {1} Michael VanHilst adapted 9 July 1989 * {2} MVH Hacked for Ultrix fifo problems 6 Oct 1989 * {3} Jay Travisano (STScI) VMS,DEBUG_IMTOOL 10 Nov 1989 * {n} -- -- * "For the moment we take an IIS model 70 command/data stream as input; this * is used to load images into the image display. This is a kludge interface * for the prototype, convenient since the high level software is written for * the IIS." - explanation by Doug Tody */ #ifdef IMTOOL #include /* stderr, FILE, NULL, etc. */ #include /* get X types and constants */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main ximage parameter structures */ #include "hfiles/imtool.h" static int frame_number = 1; static int packet_y1, packet_y2; static int imtool_cols=512; static int imtool_rows=512; static int packet_cols=512; static int wcs_piped=0; /* l: set if wcs info sent through pipe */ static char wcsbuf[SZ_WCSBUF]; /* * Subroutine: imtool_response * Purpose: Read imtool messages from iraf (return 1 if pipe trouble) */ void imtool_response ( port, imhead, ndatabytes ) struct connectRec *port; /* i: struct of port for IRAF input */ struct imtoolRec *imhead; /* i: packet header, already read in */ int ndatabytes; /* i: number of bytes in expected message */ { char ibuf[SZ_FIFOBUF]; int bytes, n; int temp; int imtool_input(), write_connection(), update_wcs(), read_connection(); void imtool_newimage(), map_dispbox(), disp_dispbox(); void set_curpos_to_iraf_trigger(), set_cursor_from_iraf(), imtool_output(); void set_imtool_scale(), set_cursor_to_iraf(), disp_subpiece(); void map_panbox(), disp_panbox(), send_curpos_to_iraf(), flush_connection(); static int get_frame_no(); switch( imhead->subunit & 077 ) { case FEEDBACK: /* The IIS feedback unit is used to clear the screen */ bzero(buffer.filebuf, buffer.filebuf_sz); if( buffer.filebuf != (char *)buffer.shortbuf ) bzero((char *)buffer.shortbuf, buffer.shortbuf_sz * sizeof(short)); map_dispbox(); disp_dispbox(); /* clear the panbox */ bzero((char *)buffer.panbuf, buffer.panbuf_sz * sizeof(short)); map_panbox(); disp_panbox(); /* this must be a new start, so reset everything just in case we haven't */ imtool_newimage(0, imhead); break; case WCS: /* Read or write the WCS for a frame. The frame number to * which the WCS applies is passed in Z and the frame buffer * configuration in T. The client changes the frame buffer * configuration in a WCS set. The WCS text follows the header * as byte packed ASCII data. */ if( imhead->tid & IIS_READ ) { if( control.IRAF_out.open ) { #ifdef FRAMERR /* include this code if requested frame must match our wcs */ /* Return the WCS for the referenced frame. */ int frame; frame = get_frame_no(imhead->z); if( frame != fb_frameno ) { char emsg[SZ_WCSBUF]; (void)strcpy(emsg, "[NOSUCHFRAME]\n"); (void)write_connection(&control.IRAF_out, emsg, SZ_WCSBUF); } else #endif (void)write_connection(&control.IRAF_out, wcsbuf, SZ_WCSBUF); } else (void)fprintf(stderr, "Warning: output pipe not open\n"); } else { int new_wcs; char buf[SZ_WCSBUF]; /* Read in and set up the WCS. */ if( (bytes = read_connection(port, buf, ndatabytes)) == ndatabytes ) { if( strncmp(wcsbuf, buf, SZ_WCSBUF) != 0 ) new_wcs = 1; else new_wcs = 0; strncpy(wcsbuf, buf, SZ_WCSBUF); wcs_piped = update_wcs(&img, &coord, frame_number, wcsbuf); if( new_wcs ) imtool_newimage(1, imhead); } ndatabytes -= bytes; } break; case IMCURSOR: /* Read or write the logical image cursor. This is an extension * added to provide a high level cursor read facility; this is * not the same as a low level access to the IIS cursor subunit. * Cursor reads may be either nonblocking (immediate) or blocking, * using the keyboard or mouse to terminate the read, and * coordinates may be returned in either image (world) or frame * buffer pixel coordinates. */ frame_number = get_frame_no(imhead->z); if( imhead->tid & IIS_READ ) { /* Read the logical image cursor. In the case of a blocking * read all we do is initiate a cursor read; completion occurs * when the user hits a key or button. */ if( imhead->tid & IMC_SAMPLE ) { /* Sample the cursor position. */ /* Return the cursor value on the output datastream encoded * in a fixed size ascii buffer. */ send_curpos_to_iraf(cursor.file.X, cursor.file.Y, frame_number, imhead->z, 0, ""); } else { /* Initiate a user triggered cursor read. */ set_curpos_to_iraf_trigger(frame_number, imhead->z); } } else set_cursor_from_iraf((double)(imhead->x & 077777), (double)(imhead->y & 077777)); break; case MEMORY: frame_number = get_frame_no(imhead->z); if( imhead->tid & IIS_READ ) { imtool_output(imhead, &control.IRAF_out, buffer.shortbuf, img.filecols, img.filerows); } else { temp = imtool_input(imhead, &control.IRAF_in, ibuf, packet_cols, imtool_cols, &packet_y1, &packet_y2, (short *)buffer.filebuf, buffer.shortbuf_sz * 2); if( img.imtool_200 == 0 ) { /* if we were caught unawares! */ img.imtool_200 = 1; set_imtool_scale(); } if( temp >= 0 ) ndatabytes = 0; /* if not doing full reset, map and display just this piece */ disp_subpiece(0, packet_y1, imtool_cols - 1, packet_y2 - 1); } if( ndatabytes == 0 ) return; default: /* Ignore unsupported command input. */ break; } /* Discard any extra data */ if( !(imhead->tid & IIS_READ) ) { for( bytes = ndatabytes; bytes > 0; bytes -= n ) { n = (bytes < SZ_FIFOBUF) ? bytes : SZ_FIFOBUF; if( (n = read_connection(&control.IRAF_in, ibuf, n)) <= 0 ) break; } } } /* * Procedure: imtool_newimage * Purpose: Reset buffer sizes, coordinate systems and parameters as * needed. */ void imtool_newimage ( is_wcs, imhead ) int is_wcs; struct imtoolRec *imhead; { int fbconfig; int cols, rows; int get_fbconfig(), update_wcs(); void set_disptran(), combine_transform(), set_edges(), set_dispoff(); void adjust_cursor_coords(), set_magnifier(), disp_subpiece(), set_tdisp(); void set_imtool_scale(), imtool_reinit(), new_pancursor(); static int get_frame_no(); /* set size and frame */ if( is_wcs ) fbconfig = (imhead->t & 077) + 1; else fbconfig = (imhead->tid & IMT_FBCONFIG) + 1; frame_number = get_frame_no(imhead->z); /* config values assume a zero based array, table starts at 1 */ if( img.fbconfig != fbconfig ) { img.fbconfig = fbconfig; /* reset defaults if failed on config set and no known size */ if( (get_fbconfig(fbconfig, &cols, &rows) == 0) && (cols <=0) ) { (void)get_fbconfig(0, &cols, &rows); } packet_cols = cols; imtool_cols = cols; imtool_rows = rows; } /* fix up img coordsys parameters and make sure enough space is alloc'd */ imtool_reinit(imtool_cols, imtool_rows); /* reinit sets imgtofile to a default, restore true wcs if we know it */ if( wcs_piped ) (void)update_wcs(&img, &coord, frame_number, wcsbuf); /* update the coords right away (correct or default) */ /* set display params to center the new image with zoom 1 */ coord.tid.cenX = coord.img.cenX; coord.tid.cenY = coord.img.cenY; coord.tid.zoom = 1.0; set_tdisp(&coord); /* set disp to img and disp to file transforms */ set_disptran(&coord); /* set transform to get from disp to buf coords */ combine_transform(&coord.disptobuf, &coord.disptoimg, &coord.imgtobuf); set_edges(&coord.disptobuf, &coord.buf, &coord.disp, &coord.bd); /* redefine the edges in the display window if at edge of buffer */ if( (coord.bd.block < 0) || (coord.bd.clip != 0) ) set_dispoff(&coord.disptobuf, &coord.disp, &coord.bd); /* update the panbox cursor (again) since we reset the display center */ new_pancursor(0); /* update cursor and magnifier info to correspond to current display */ adjust_cursor_coords(&cursor, &coord); set_magnifier(); /* set scale and colors for the standard imtool range and options */ img.imtool_200 = 1; set_imtool_scale(); } /* * Subroutine: get_frame_no * Purpose: Figure out the integer frame number for its mask */ static int get_frame_no ( mask ) int mask; { int bit, bitmask; mask = mask & 07777; bit = 0; bitmask = 1; while( bitmask <= mask ) { bitmask = bitmask << 1; ++bit; } return( bit ); } #endif saoimage-1.08/pancrsr.c 666 21641 13 6354 4617501355 10156 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: pancrsr.c (Pan Cursor) * Purpose: Handle the pan window cursor * Subroutine: draw_pancursor() returns: void * Subroutine: new_pancursor() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 29 May 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/define.h" /* define MIN */ static int pancur_x, pancur_y; static unsigned int pancur_width, pancur_height; static int pancur_present = 0; /* * Subroutine: draw_pancursor * Purpose: Draw the pan window cursor */ void draw_pancursor ( ) { GC gc, set_gc(); if( pancur_present ) { gc = set_gc(&color.gcset.draw); XDrawRectangle(panbox.display, panbox.ID, gc, pancur_x, pancur_y, pancur_width, pancur_height); } } /* * Subroutine: new_pancursor * Purpose: Create and draw panbox cursor given image coordinates */ void new_pancursor ( track ) int track; { float panX1, panX2, panY1, panY2; GC gc, set_gc(); void disp_window(), i_transform(); static void set_pancursor(); if( pancur_present ) { /* erase the old box if it was visible */ if( (color.cursor_overlay) || track ) { gc = set_gc(&color.gcset.undraw); XDrawRectangle(panbox.display, panbox.ID, gc, pancur_x, pancur_y, pancur_width, pancur_height); } else { /* draw a new image to erase old cursor */ disp_window(&panbox); } } /* calculate display corners in pan coords */ i_transform(&coord.imgtopan, coord.tid.srcX1, coord.tid.srcY1, &panX1, &panY1); i_transform(&coord.imgtopan, coord.tid.srcX2, coord.tid.srcY2, &panX2, &panY2); set_pancursor(&coord.pan, (int)panX1, (int)panX2, (int)panY1, (int)panY2); /* draw the new box if it is visible */ if( pancur_present ) { if( track ) gc = set_gc(&color.gcset.track); else gc = set_gc(&color.gcset.draw); XDrawRectangle(panbox.display, panbox.ID, gc, pancur_x, pancur_y, pancur_width, pancur_height); } } /* * Subroutine: set_pancursor * Purpose: Set points in a panbox cursor */ static void set_pancursor ( pan, left_x, right_x, top_y, low_y ) Coordsys *pan; int left_x, right_x, top_y, low_y; { /* limit pan cursor to the panbox dimensions */ if( left_x < pan->X1i ) pancur_x = pan->X1i; else pancur_x = left_x; if( right_x > pan->X2i ) pancur_width = pan->X2i - pancur_x; else pancur_width = right_x - pancur_x; if( top_y < pan->Y1i ) pancur_y = pan->Y1i; else pancur_y = top_y; if( low_y > pan->Y2i ) pancur_height = pan->Y2i - pancur_y; else pancur_height = low_y - pancur_y; if( (pancur_width > 0) && (pancur_height > 0) ) pancur_present = 1; else pancur_present = 0; } saoimage-1.08/irafpipe.c 666 21641 13 13313 4617475436 10330 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: irafpipe.c (IRAF Pipe Connection) * Purpose: Read an image in from the IRAF pipe * Subroutine: read_imtool_packet() returns: void * Copyright: 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} based on code from Doug Tody's IRAF Imtool (NOAO) * {1} Michael VanHilst adapted 9 July 1989 * {2} MVH rearranged structure 29 March 1990 * {n} -- -- * "For the moment we take an IIS model 70 command/data stream as input; this * is used to load images into the image display. This is a kludge interface * for the prototype, convenient since the high level software is written for * the IIS." - explanation by Doug Tody */ #ifdef IMTOOL #include /* stderr, FILE, NULL, etc. */ #include /* get X types and constants */ #include "hfiles/control.h" /* struct connectRec */ #include "hfiles/imtool.h" /* struct imtoolRec, codes */ /* * Subroutine: read_imtool_packet() * Purpose: event handler for packet input from iraf */ void read_imtool_packet( port ) struct connectRec *port; { int ndatabytes; int bytes; int last_packet; struct imtoolRec imhead; static int byteswap = 0; /* l: flag to byteswap packets */ static int errcnt=0; /* l: count packet errors (before giving up) */ static int noblock=0; /* l: check if in non-blocking loop */ #ifdef DEBUG int pkt; /* l: make packet code discrete variable */ #endif int read_connection(); void imtool_response(), swap_bytes(); static int check_packet_sum(); /* read the header */ bytes = read_connection(port, (char *)&imhead, sizeof(struct imtoolRec)); /* check size of read */ if( bytes < sizeof(struct imtoolRec) ) { /* if EOF, must be problem with this end of pipe, call plumber */ /* read 0 may happen once on EOF, happens forever if non-blocking */ if( bytes == 0 ) { /* pipe mustn't be blocking, count the bad passes through here */ /* noblock is set to zero everywhere but here */ ++noblock; return; } else { noblock = 0; #ifdef DEBUG (void)fprintf(stderr, "Pipe read error\n"); #endif return; } } #if DEBUG if( getenv("DEBUG_IMTOOL") ) { char *s; short su; (void)fprintf(stderr, "\n=== Imtool header ===\n"); (void)fprintf(stderr, " tid: %d -- ", imhead.tid); if(imhead.tid & PACKED) (void)fprintf(stderr, "PACKED "); if( imhead.tid & COMMAND ) (void)fprintf(stderr, "COMMAND "); if( imhead.tid & IIS_READ ) (void)fprintf(stderr, "IIS_READ "); if( imhead.tid & IMC_SAMPLE ) (void)fprintf(stderr, "IMC_SAMPLE "); (void)fprintf(stderr, "\n"); (void)fprintf (stderr, " count: %d\n", -imhead.thingct); su = imhead.subunit & 077; if( su == MEMORY ) s = "MEMORY"; else if( su == LUT ) s = "LUT"; else if( su == FEEDBACK ) s = "FEEDBACK"; else if( su == WCS ) s = "WCS"; else if( su == IMCURSOR ) s = "IMCURSOR"; else if( su == 12 ) s = "ZOOM/PAN (ignored)"; else s = "???"; (void)fprintf(stderr, " subunit: %d -- %s\n", su, s); /* (void)fprintf(stderr, " chksum: %x\n", imhead.checksum); */ (void)fprintf(stderr, " x: %d y: %d z: %d t: %d\n", imhead.x & 077777, imhead.y & 077777, imhead.z & 07777, imhead.t & 077); } #endif noblock = 0; if( byteswap ) swap_bytes((char *)&imhead, sizeof(struct imtoolRec)); /* check the packet checksum (debug it after 2nd try), don't die */ if( !check_packet_sum((char *)&imhead, sizeof(struct imtoolRec), &byteswap, (errcnt > 2), 0) ) { /* no hope of syncing on next read, better flush out pipe */ flush_connection(port); errcnt++; return; } /* read the count field */ if( (ndatabytes = -(int)imhead.thingct) < 0 ) { (void)fprintf(stderr,"bad packet\n"); return; } /* check for packed short's (we wish) */ if( !(imhead.tid & PACKED) ) ndatabytes *= 2; imtool_response(port, &imhead, ndatabytes); } /* * Subroutine: check_packet_sum * Purpose: Check packet sum against checksum (and verify byteswap) * Returns: 1 */ static int check_packet_sum ( packet, size, byteswap, errmsg, die ) char *packet; int size; int *byteswap, errmsg, die; { int i, sum, second_try=0; register short *p; void swap_bytes(), exit_errmsg(); while( 1 ) { /* add up the sum */ for( i=0, sum=0, p=(short *)packet; i < 8; i++ ) sum += *p++; /* sum (including checksum) should roll at 0177777 */ if( (sum & 0177777) == 0177777 ) return( 1 ); /* if not, bswap and try again (note danger of swab in place) */ swap_bytes(packet, size); *byteswap = !(*byteswap); if( second_try++ ) { /* after retry, report the error */ if( errmsg ) { (void)fprintf(stderr, "imtool: bad data header checksum\n"); #ifdef DEBUG /* display first few bytes both swapped and unswapped */ if( *byteswap ) /* if was byteswapped, start unswapped */ swap_bytes(packet, size); /* what it looks like unswapped */ (void)fprintf(stderr, "noswap:"); for( i=0, p=(short *)packet; i < 8; i++ ) (void)fprintf(stderr, " %6o", p[i]); (void)fprintf(stderr, "\n"); /* what it looks like swapped */ swap_bytes(packet, size); (void)fprintf(stderr, " swap:"); for( i=0, p=(short *)packet; i < 8; i++ ) (void)fprintf(stderr, " %6o", p[i]); (void)fprintf(stderr, "\n"); #endif } /* imtool dies at this point */ if( die ) exit_errmsg("FATAL ERROR: imtool pipe datastream synch lost\n"); else return( 0 ); } } } #endif saoimage-1.08/mgfyctrl.c 666 21641 13 26362 4623105725 10354 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mgfyctrl.c (Magnify Control) * Purpose: Initialize params and organize drawing the magnifier window * Subroutine: magnify_disp() returns: void * Subroutine: magnify_pan() returns: void * Subroutine: clear_coord_area() returns: void * Subroutine: redraw_magnifier() returns: void * Xlib calls: XCheckWindowEvent(), XSync() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 6 June 1989 * {1} MVH added support for second set of coords 7 Nov 1989 * {n} -- -- */ #include #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/constant.h" /* codes */ #include "hfiles/magnify.h" /* magnifier quick access structure */ extern struct windowRec desktop; extern struct magRec magset; #define VAL_SZ 10 /* * Subroutine: magnify_disp * Purpose: Magnify location of a dispbox event * Xlib calls: XCheckWindowEvent(), XSync() */ void magnify_disp ( event, view, text ) XEvent *event; /* i: XEvent for location of mouse */ int view, text; { void draw_magnifier(); static void label_file_coords(), label_file_coords_proportional(); /* get only the most recent mouse moved event */ XSync(dispbox.display, 0); while( XCheckWindowEvent(dispbox.display, dispbox.ID, PointerMotionMask, event) ); /* draw image fragment in scope magnibox if desired */ if( view ) { /* get buffer coordinates */ magset.buf.X = ((float)event->xmotion.x * coord.disptobuf.inx_outx) + coord.disptobuf.iadd_outx; magset.buf.Y = ((float)event->xmotion.y * coord.disptobuf.iny_outy) + coord.disptobuf.iadd_outy; draw_magnifier((double)magset.buf.X, (double)magset.buf.Y); if( text ) { if( magset.text.proportional ) label_file_coords_proportional((double)magset.buf.X, (double)magset.buf.Y); else label_file_coords((double)magset.buf.X, (double)magset.buf.Y); } } else if( text ) { float bufx, bufy; /* get buffer coordinates */ bufx = ((float)event->xmotion.x * coord.disptobuf.inx_outx) + coord.disptobuf.iadd_outx; bufy = ((float)event->xmotion.y * coord.disptobuf.iny_outy) + coord.disptobuf.iadd_outy; if( magset.text.proportional ) label_file_coords_proportional((double)bufx, (double)bufy); else label_file_coords((double)bufx, (double)bufy); } } /* * Subroutine: magnify_pan * Purpose: Magnify location of a panbox event * Xlib calls: XCheckWindowEvent(), XSync() */ void magnify_pan ( event ) XEvent *event; /* i: XEvent for location of mouse */ { void draw_magnifier(); /* get only the most recent mouse moved event */ XSync(panbox.display, 0); while( XCheckWindowEvent(panbox.display, panbox.ID, PointerMotionMask, event) ); /* draw image fragment in scope magnibox */ /* get buffer coordinates */ magset.buf.X = (coord.imgtobuf.inx_outx * (((float)event->xmotion.x * coord.pantoimg.inx_outx) + coord.pantoimg.iadd_outx)) + coord.imgtobuf.add_outx; magset.buf.Y = (coord.imgtobuf.iny_outy * (((float)event->xmotion.y * coord.pantoimg.iny_outy) + coord.pantoimg.iadd_outy)) + coord.imgtobuf.add_outy; draw_magnifier((double)magset.buf.X, (double)magset.buf.Y); } /* * Subroutine: redraw_magnifier * Purpose: Draw image piece in zoombox window, using last coords or * dispbox center */ void redraw_magnifier ( ) { void draw_magnifier(), d_transform(); /* if called by a window redraw event, redraw as it last was */ if( magset.buf.X < 0 ) d_transform(&coord.disptobuf, (double)coord.disp.cenX, (double)coord.disp.cenY, &magset.buf.X, &magset.buf.Y); draw_magnifier((double)magset.buf.X, (double)magset.buf.Y); } /* * Subroutine: label_file_coords * Purpose: Show pointer coordinates and image value in display window * Xlib calls: XDrawImageString() */ static void label_file_coords ( bufX, bufY ) double bufX, bufY; { int val; static char string[48]; float fileX, fileY; GC gc, set_edit_gc(); void d_transform(); static void draw_proportional_coord(); gc = set_edit_gc(magset.text.font, magset.text.foreground, magset.text.background); d_transform(&coord.buftofile, bufX, bufY, &fileX, &fileY); if( (bufX < coord.buf.X1) || (bufX > coord.buf.X2) || (bufY < coord.buf.Y1) || (bufY > coord.buf.Y2) ) { sprintf(string, " %6.1f %6.1f x ", fileX, fileY); if( img.fiscaled ) XDrawImageString(desktop.display, desktop.ID, gc, magset.text.x_x, magset.text.y, string, 26); else XDrawImageString(desktop.display, desktop.ID, gc, magset.text.x_x, magset.text.y, string, 23); } else if( img.fiscaled ) { double rval; if( (buffer.filebuf == NULL) || (buffer.filebuf == (char *)buffer.shortbuf) ) { /* values scaled, originals not available */ val = buffer.shortbuf[(int)bufX + ((int)bufY * coord.buf.width)]; rval = ((double)val * img.fiscale) + img.fibias; /* print strings with spaces padding out the end */ if( val <= buffer.clipmin ) sprintf(string, " %6.1f %6.1f <%.4g ", fileX, fileY, rval); else if( val >= buffer.clipmax ) sprintf(string, " %6.1f %6.1f >%.4g ", fileX, fileY, rval); else sprintf(string, " %6.1f %6.1f %.4g ", fileX, fileY, rval); } else { /* values scaled, originals in filebuf */ float fbX, fbY; d_transform(&coord.buftofbuf, bufX, bufY, &fbX, &fbY); if( img.storage_type == ARR_I4 ) { rval = (double) *((int *)(buffer.filebuf + (((int)fbX + ((int)fbY * coord.fbuf.width)) * sizeof(int)))); } else if( img.storage_type == ARR_R4 ) { rval = (double) *((float *)(buffer.filebuf + (((int)fbX + ((int)fbY * coord.fbuf.width)) * sizeof(float)))); } else if( img.storage_type == ARR_R8 ) { rval = *((double *)(buffer.filebuf + (((int)fbX + ((int)fbY * coord.fbuf.width)) * sizeof(double)))); } else rval = 0.0; if( img.fscaled ) rval = img.fbias + (rval * img.fscale); sprintf(string, " %6.1f %6.1f %.4g ", fileX, fileY, rval); } XDrawImageString(desktop.display, desktop.ID, gc, magset.text.x_x, magset.text.y, string, 26); } else { val = buffer.shortbuf[(int)bufX + ((int)bufY * coord.buf.width)]; sprintf(string, " %6.1f %6.1f %6d ", fileX, fileY, val); XDrawImageString(desktop.display, desktop.ID, gc, magset.text.x_x, magset.text.y, string, 23); } } /* * Subroutine: clear_coord_area * Purpose: Erase area of coords, esp. when imtool_aux is no longer used */ void clear_coord_area () { int height; height = magset.text.yoff * 2 + 1; XClearArea(desktop.display, desktop.ID, btnbox.y - (height + 1), 1, panbox.x - 2, height, False); } /* * Subroutine: label_file_coords_proportional * Purpose: Show pointer coordinates and image value in display window * Special handling for proporitonal fonts is good for the coords, * but has not been refined for the val section. * Xlib call: XDrawImageString() */ static void label_file_coords_proportional ( bufX, bufY ) double bufX, bufY; { int val; static char string[48]; float fileX, fileY; GC gc, set_edit_gc(); void d_transform(); static void draw_proportional_number(); gc = set_edit_gc(magset.text.font, magset.text.foreground, magset.text.background); d_transform(&coord.buftofile, bufX, bufY, &fileX, &fileY); sprintf(string, " %6.1f ", fileX); draw_proportional_number(string, 8, magset.text.x_x, magset.text.width, gc); sprintf(string, " %6.1f ", fileY); draw_proportional_number(string, 8, magset.text.y_x, magset.text.width, gc); if( (bufX < coord.buf.X1) || (bufX > coord.buf.X2) || (bufY < coord.buf.Y1) || (bufY > coord.buf.Y2) ) { sprintf(string, " x "); draw_proportional_number(string, 24, magset.text.val_x, 2 * magset.text.width, gc); } else { double dval; int ival, clip, i; if( get_pixel_val((int)bufX, (int)bufY, &ival, &dval, &clip) ) { /* value is an integer */ integer_string(ival, clip, &(string[16]), VAL_SZ); } else { real_string(dval, &string[17], VAL_SZ - 1); if( clip ) { if( clip > 0 ) string[16] = '>'; else string[16] = '<'; } else string[16] = ' '; } for( i = 0; i < 16; i++ ) string[i] = ' '; for( i = 16 + VAL_SZ; i < (VAL_SZ + 20); i++ ) string[i] = ' '; draw_proportional_number(string, 16, magset.text.val_x, 2 * magset.text.width, gc); } } /* * Subroutine: draw_proportional_coord * Purpose: Draw proportional text to cover area and place decimal point */ static void draw_proportional_number ( string, first_num, x, width, gc ) char *string; int first_num; /* i: where number begins (after leading spaces) */ int x; int width; /* i: pixel width to fill with label */ GC gc; { int size, count, offset; int letter, leading, not_done; leading = 1; not_done = 1; /* do a quick XTextWidth using a restricted table */ for( count = 0, size = 0; not_done; count++ ) { letter = string[count + first_num]; if( letter == ' ' ) { if( leading ) size += magset.text.space; else /* label ends at first space after text */ not_done = 0; } else { leading = 0; if( (letter >= '0') && (letter <= '9') ) /* sizes of numbers */ size += magset.text.numsz[letter - '0']; else if( letter == '.' ) size += magset.text.dot; else if( (letter == '-') || (letter == '+') ) size += magset.text.dash; else if( letter == '\0' ) { char *space; /* oops, no trailing spaces - put them in */ space = &(string[count + first_num]); *space = ' '; *(space + 1) = ' '; *(space + 2) = '\0'; not_done = 0; } else /* this covers whatever else ('e', 'E', '<'. '>') */ size += magset.text.e; } } /* determine number of extra spaces to cover area and their x offset */ offset = (width - size) / magset.text.space; x += (width - (size + (offset * magset.text.space))); if( (first_num -= offset) < 0 ) { /* move starting posisiont forward, shorten string */ x -= (first_num * magset.text.space); count += first_num; first_num = 0; } count += (offset + 2); XDrawImageString(desktop.display, desktop.ID, gc, x, magset.text.y, &(string[first_num]), count); } /* * Subroutine: blank_scope * Purpose: Fill scope with blank data */ void blank_scope() { GC gc, set_gc(); void mark_Zmagnifier(); /* blank field */ bzero(magset.data, magset.data_size); if( !magset.halftone ) { /* install the sighting mark */ mark_Zmagnifier(); } else { #ifdef NOTYET /* %% */ mark_XYmagnifier(); #endif } gc = set_gc(magset.gcset_disp); XPutImage(magset.win.display, magset.win.ID, gc, magset.image, 0, 0, magset.win.x, magset.win.y, magset.win.width, magset.win.height); } saoimage-1.08/rtcmd.c 666 21641 13 4777 4622545172 7627 #include #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ #include "hfiles/struct.h" /* define the works */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/rtcmd.h" /* command protocol and ID's */ #define SOP_Count 56 int si_command(cmd) cmdrec *cmd; { switch ( cmd->command ) { case NOPER: break; case PIXEL: if ( cmd->count == 1 ) si_pixel(cmd->count, cmd->mode, &cmd->x); else; /* read in a list of pixels */ /* saqhack_dispix(cmd.count, */ break; case FILER: si_filer(cmd); break; case FRAME: default: fprintf(stderr, "si_command: bad command.\n"); } return 1; } int ITypeMap[] = { SOP_Count }; si_filer(cmd) cmdrec *cmd; { switch ( cmd->mode ) { case INITI: si_init(cmd); break; default: fprintf(stderr, "si_filer: bad mode.\n"); }; } si_init(cmd) cmdrec *cmd; { img.file_type = ITypeMap[cmd->x]; if ( !img.file_type ) img.filename = "Counts read from InterNet"; img.fd = 0; img.filerows = cmd->dx; img.filecols = cmd->dy; new_display(); make_scalemap(0, 10); buffer.scale_min = 0; buffer.scale_max = 10; } si_pixel(count, mode, list) int count; int mode; position *list; { while ( count-- ) { switch ( mode ) { case SET: fprintf(stderr, "Set a pixel at %d, %d to %d\n" , list->x, list->y, list->z); break; case ADD: disp_pixel(list->x, list->y, buffer.shortbuf [list->x + coord.buf.width * list->y] += list->z); break; case XOR: default: fprintf(stderr, "mode %d at %d, %d to %d" , mode, list->x, list->y, list->z); fprintf(stderr, "si_pixel: bad mode\n"); }; }; } disp_pixel(x, y, value) int x, y, value; { float xr, yr; unsigned long original; GC gc, set_gc(); /* i_transform(&coord.buftodisp, x, y, &xr, &yr); x = xr; y = yr; */ if ( ( x < 0 ) || ( y < 0 ) || ( x > coord.disp.X2i ) || ( y > coord.disp.Y2i ) ) return; dispbox.image.data[x + y * coord.disp.width] = value = buffer.scalemap[value]; original = color.gcset.disp.foreground; /* From MvH */ color.gcset.disp.foreground = (unsigned long)value; gc = set_gc(&color.gcset.disp); XDrawPoint(dispbox.display, dispbox.ID, gc, x, y); color.gcset.disp.foreground = original; /* check n pix/ sec check tot pix ? write check pixels / kbytes ? partition write */ } saoimage-1.08/mgfyinit.c 666 21641 13 17634 4613630623 10354 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mgfyinit.c (Magnify Initialize) * Purpose: Initialize parameters for drawing the zoomed piece of image * in the magnifier box * Subroutine: init_magnifier() returns: void * Subroutine: set_magnifier() returns: void * Subroutine: set_magnifier_dither() * Xlib calls: XTextWidth() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 6 June 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define MAX, etc. */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/scale.h" /* get SCALEOFF */ #include "hfiles/magnify.h" /* magnifier quick access structure */ extern struct magRec magset; /* * Subroutine: init_magnifier * Purpose: Init that which gets set only once, and then the rest as well * Xlib calls: XTextWidth() */ void init_magnifier ( scope_track, text_track ) int scope_track, text_track; { XFontStruct *get_fontstruct(); void set_magnifier(); /* set initial tracking status */ magset.view = scope_track; magset.label = text_track; /* default magnification factor */ magset.magnify = 4; /* set window known info */ magset.win.display = magnibox.display; magset.win.ID = magnibox.ID; magset.win.x = magnibox.xzero; magset.win.y = magnibox.yzero; magset.image = &magnibox.image; magset.gcset_disp = &color.gcset.disp; magset.gcset_aim = &color.gcset.menu; /* set pointer to scalemap for signed indexing */ magset.lookup = buffer.scalemap + SCALEOFF; /* set initial coords to default to display center */ magset.buf.X = -1.0; /* note that buffer is not yet declared */ magset.data_size = 0; /* set up initial test label params */ magset.text.fontstruct = get_fontstruct(1); magset.text.font = magset.text.fontstruct->fid; magset.text.space = XTextWidth(magset.text.fontstruct, " ", 1); /* check for proportional fonts */ if( XTextWidth(magset.text.fontstruct, "0", 1) != magset.text.space ) { char num[2]; int i, max = 0; for( i=0; i<10; i++ ) { num[0] = '0' + i; if( (magset.text.numsz[i] = XTextWidth(magset.text.fontstruct, num, 1)) > max ) max = magset.text.numsz[i]; } magset.text.dash = XTextWidth(magset.text.fontstruct, "-", 1); magset.text.dot = XTextWidth(magset.text.fontstruct, ".", 1); magset.text.e = XTextWidth(magset.text.fontstruct, "e", 1); magset.text.width = 6 * max; /* this value may need to be tweeked */ magset.text.x_x = 3; magset.text.y_x = magset.text.x_x + (7 * max); magset.text.val_x = magset.text.y_x + (7 * max); magset.text.proportional = 1; } else { /* uniform width font */ magset.text.width = 23; magset.text.x_xoff = 5; magset.text.x_x = 5; magset.text.proportional = 0; } magset.text.yoff = (2 * magset.text.fontstruct->descent) + magset.text.fontstruct->ascent; magset.text.foreground = color.hard.std_white; magset.text.background = color.hard.std_black; magset.matrix = color.halftone.matrix; magset.matrix_end = magset.matrix + 256; magset.inverse = color.halftone.inverse; set_magnifier(); } /* * Subroutine: set_magnifier() * Purpose: Set up initial parameters for magnifier box * Use: Call whenever the magnifier box is resized or the image buffer * is altered (reloaded or altered) */ void set_magnifier ( ) { int buf_sz; float hot_x, hot_y; char *calloc_errchk(); void init_magnifier_XYmark(), init_magnifier_Zmark(); /* set source buffer */ magset.buf.shortbuf = buffer.shortbuf; magset.buf.width = coord.buf.width; /* set current window drawing area parameters */ magset.win.width = magnibox.xwidth; magset.win.height = magnibox.yheight; if( color.ncolors <= 1 ) { magset.halftone = 1; magset.bytes_per_line = (magset.win.width + 7) / 8; magset.image->format = XYBitmap; magset.image->depth = 1; magset.image->bits_per_pixel = 1; } else { magset.halftone = 0; magset.bytes_per_line = magset.win.width; magset.image->format = ZPixmap; magset.image->depth = color.screen_depth; magset.image->bits_per_pixel = 8; } buf_sz = magset.bytes_per_line * (magset.win.height + 1); if( buf_sz > magset.data_size ) { if( magset.data != NULL ) free((char *)magset.data); /* recoverable alloc (we could settle for less) */ if( (magset.data = calloc_errchk(buf_sz, sizeof(char), (char *)NULL)) == 0 ) { magset.win.width = 128; magset.win.height = 128; if( magset.halftone ) magset.bytes_per_line = (magset.win.width + 7) / 8; else magset.bytes_per_line = magset.win.width; buf_sz = magset.bytes_per_line * (magset.win.height + 1); /* this is our minimum request */ magset.data = calloc_errchk(buf_sz, sizeof(char), "magnifier buffer"); } magset.data_size = buf_sz; } magset.bitmap_size = magset.bytes_per_line * magset.win.height; magset.image->data = magset.data; magset.image->bytes_per_line = magset.bytes_per_line; magset.image->width = magset.win.width; magset.image->height = magset.win.height; /* determine where to place aim sighting mark */ magset.data_x_hot = (magset.win.width - 1) / 2; magset.data_y_hot = (magset.win.height - 1) / 2; /* disp to magnibox zoom must not be less than 1 (needless extra work) */ if( magset.magnify < 1 ) magset.magnify = 1; /* calculate buffer to magnifier zoom */ if( coord.disptobuf.inx_outx != 0.0 ) { magset.zoom_rep = MAX(1, (int)(0.5 + ((float)magset.magnify / coord.disptobuf.inx_outx))); } else if( coord.disptobuf.iny_outx != 0.0 ) { magset.zoom_rep = MAX(1, (int)(0.5 + ((float)magset.magnify / coord.disptobuf.iny_outx))); } else magset.zoom_rep = magset.magnify; /* define the margin regions (that clip against an edge) */ hot_x = 0.5 + (float)((magset.win.width - 1) / 2); hot_y = 0.5 + (float)((magset.win.height - 1) / 2); magset.buf.Xcen = hot_x / (float)magset.zoom_rep; magset.buf.X2bdr = (float)coord.buf.width - magset.buf.Xcen; magset.buf.X2lim = (float)coord.buf.width + magset.buf.Xcen; magset.buf.X1lim = (hot_x - (float)magset.win.width) / (float)magset.zoom_rep; magset.buf.Ycen = hot_y / (float)magset.zoom_rep; magset.buf.Y2bdr = (float)coord.buf.height - magset.buf.Ycen; magset.buf.Y2lim = (float)coord.buf.height + magset.buf.Ycen; magset.buf.Y1lim = (hot_y - (float)magset.win.height) / (float)magset.zoom_rep; init_magnifier_XYmark(); init_magnifier_Zmark(); /* set parameters for text label */ magset.text.y = btnbox.y - (magset.text.yoff + 2); #ifdef FOO /* this would center the label, else left justify */ if( magset.text.proportional == 0 ) magset.text.x_x = (panbox.x - (magset.text.width * magset.text.space)) / 2; #endif } /* * Subroutine: set_magnifier_matrix * Purpose: Change the dither matrix used by scope */ void set_magnifier_matrix ( matrix, inverse ) short *matrix; int inverse; { void redraw_magnifier(); if( (magset.matrix != matrix) || (magset.inverse != inverse) ) { magset.matrix = matrix; magset.matrix_end = matrix + 256; magset.inverse = inverse; redraw_magnifier(); } } saoimage-1.08/panimage.c 666 21641 13 12432 4613633042 10274 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: panimage.c (Pan Image) * Purpose: Make and put the pan window display * Subroutine: disp_panbox() returns: void * Subroutine: map_panbox() returns: void * Subroutine: show_dispcoords() returns: void * Xlib calls: XSync() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 29 May 1989 * {n} -- -- */ #include /* define stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define MIN, MAX, DONT_CARE, etc. */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ /* * Subroutine: disp_panbox * Purpose: Redraw the panbox window display * Xlib calls: XSync() */ void disp_panbox ( ) { void disp_window(), draw_pancursor(); /* put up the image and make sure it is up before drawing the cursor */ disp_window(&panbox); XSync(panbox.display, 0); draw_pancursor(); } /* * Subroutine: map_panbox * Purpose: Fill the panbox display buffer, mapping from its short buffer */ void map_panbox ( ) { static void map_panbuf(); #ifdef SUMBLOCK static void map_adj_panbuf(); #endif void panimage_halftone(); if( color.ncolors <= 1 ) { panbox.image.format = XYBitmap; panbox.image.depth = 1; panbox.image.bits_per_pixel = 1; panbox.image.bytes_per_line = (panbox.image.width + 7) / 8; panimage_halftone(); } else { panbox.image.format = ZPixmap; panbox.image.depth = color.screen_depth; panbox.image.bits_per_pixel = 8; panbox.image.bytes_per_line = panbox.image.width; #ifdef SUMBLOCK /* CHANGE SCALE WHEN SUMMED ZOOMING GAVE A DIFFERENT VALUE RANGE */ if( buffer.panbuf_summing != buffer.scalemap_summing ) { int ratio_num, ratio_denom; /* select largest denominator which won't overflow */ /* WARNING: make sure panbuf_max > 0!!! */ ratio_denom = 32767 / buffer.scale_max; ratio_num = (ratio_denom * buffer.scale_max) / buffer.panbuf_max; map_adj_panbuf(ratio_num, ratio_denom); } else #endif map_panbuf(); } } /* * Subroutine: show_dispcoords * Purpose: Print the file coordinates of the display's center and zoom */ void show_dispcoords ( ) { float cenX, cenY; float zoom; void d_transform(); /* calculate file coords of center of display */ d_transform(&coord.imgtofile, (double)coord.id.cenX, (double)coord.id.cenY, &cenX, &cenY); if( coord.filetoimg.inx_outx != 0.0 ) zoom = coord.filetoimg.inx_outx * coord.imgtodisp.inx_outx; else zoom = coord.filetoimg.iny_outx * coord.imgtodisp.inx_outx; /* take abs */ if( zoom < 0.0 ) zoom = -zoom; (void)printf("Display from image file:\n"); if( zoom < 1.0 ) (void)printf("Center: X=%.2f, Y=%.2f, Blocking: %.4f (%d)\n", (double)cenX, (double)cenY, zoom, (int)(-1.0/zoom)); else (void)printf("Center: X=%.2f, Y=%.2f, Blocking: %.1f\n", (double)cenX, (double)cenY, zoom); } /* * Subroutine: map_panbuf * Purpose: Map short image data to display buffer * Exception: Buffers both buffers have same size */ static void map_panbuf ( ) { register unsigned char *display; /* l: pointer to display buffer */ register unsigned char *dispend; /* l: end of display buffer ptr */ register short *image; /* l: pointer to short integer data */ register unsigned char *lookup; /* l: pointer to lookup table */ image = buffer.panbuf; lookup = buffer.scalemap + SCALEOFF; display = (unsigned char *)panbox.image.data; dispend = display + (panbox.xwidth * panbox.yheight); /* loop through both buffers */ while( display < dispend ) { *display++ = lookup[*image++]; } } #ifdef SUMBLOCK /* * Subroutine: map_adj_panbuf * Purpose: Map short integer data to byte display buffer, adjusting * for value changes due to summed blocking applied to short buf. * Exception: Buffers have same size * Note: Blocking factor may differ from that used for scale map. */ static void map_adj_panbuf ( numerator, denominator ) register int numerator; /* i: scale adjustment numberator */ register int denominator; /* i: scale adjustment denominator */ { register unsigned char *display; /* l: pointer to display buffer */ register unsigned char *dispend; /* l: end of display buffer ptr */ register short *image; /* l: pointer to short integer data */ register unsigned char *lookup; /* l: pointer to lookup table */ register int imval, round; image = buffer.panbuf; lookup = buffer.scalemap + SCALEOFF; display = panbox.byteimage; dispend = display + (panbox.xwidth * panbox.yheight); round = (denominator + 1) / 2; while( display < dispend ) { if( (imval = *image++) != 0 ) { if (imval > 0) imval = ((imval * numerator) + round) / denominator; else imval = ((imval * numerator) - round) / denominator; } *display++ = lookup[imval]; } } #endif saoimage-1.08/readarr.c 666 21641 13 10145 4617501722 10135 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readarr.c (Read Array) * Purpose: Read in raster line array images * Subroutine: read_array() returns: void * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 October 1988 * {n} -- -- */ #include /* define stderr */ #include /* needed for control.h */ #include "hfiles/constant.h" /* define data type codes */ #include "hfiles/control.h" /* define IOP codes */ #include "hfiles/image.h" /* * Subroutine: read_array * Purpose: Read array data from a file * Note: Assumes file was tested benignly, exits here if trouble */ void read_array ( fd, img, imgbuf, filebuf, width, height, X, Y, block, verbose ) int fd; /* if >=0 handle to open & ready image file */ struct imageRec *img; /* record describing image file and its use */ short *imgbuf; /* buffer to receive i*2 data */ char *filebuf; /* buffer to receive raw data */ int width, height; /* width and height of buffer */ int X, Y; /* starting point in image file (no support) */ int block; /* blocking factor (not yet supported */ int verbose; /* whether to print explanatory messages */ { int vals; static int read_data(); int open_disk(), lseek_disk(); void close_disk(); void say_goodbye(), scale_data_u1(), scale_data_i2(), scale_data_u2(); void scale_data_i4(), scale_data_r4(), scale_data_r8(); if( (X!=0) || (Y!=0) || (block!=1) ) { (void)fprintf(stderr, "Error: no subsection support yet\n"); return; } /* if not passed an open file, open it and move past the header */ if( fd == -1 ) { /* open the image file */ if( (fd = open_disk(img->filename, IOP_Read, 0)) < 0 ) return; /* skip header if necessary */ if( img->headersize > 0 ){ if( lseek_disk(fd, img->headersize, img->filename) < 0 ) { close_disk(fd, img->filename); return; } } } /* FOR NOW, READ ARRAY CANNOT HANDLE OVERSIZED ARRAYS */ if( (width != img->filecols) || (height != img->filerows) ) { (void)fprintf(stderr, "Error: cannot handle %d x %d array\n", img->filecols, img->filerows); return; } /* read in the data */ vals = read_data(fd, img, filebuf); /* read the image into the picture buffer */ switch( img->storage_type ) { case ARR_U1: scale_data_u1(img, imgbuf, (unsigned char *)filebuf, vals); break; case ARR_I2: scale_data_i2(img, imgbuf, (short *)filebuf, vals); break; case ARR_U2: scale_data_u2(img, imgbuf, (unsigned short *)filebuf, vals); break; case ARR_I4: scale_data_i4(img, imgbuf, (long *)filebuf, vals, verbose); break; case ARR_R4: scale_data_r4(img, imgbuf, (float *)filebuf, vals, verbose); break; case ARR_R8: scale_data_r8(img, imgbuf, (double *)filebuf, vals, verbose); break; default: (void)fprintf(stderr, "illegal array type: %d\n", img->storage_type); exit(1); } /* adjust buffer scale and bias to include that of original file */ if( img->fscaled ) { if( img->fiscaled ) { img->fiscale *= img->fscale; img->fibias = (img->fscale * img->fibias) + img->fbias; } else { img->fiscaled = img->fscaled; img->fiscale = img->fscale; img->fibias = img->fbias; } } /* close the file */ close_disk(fd, img->filename); } /* * Subroutine: read_data * Purpose: Read in the array data * UNIX calls: read */ static int read_data ( fd, img, databuf ) int fd; struct imageRec *img; char *databuf; { int vals, nbytes; int read_disk(); /* find size of image */ vals = img->filecols * img->filerows; nbytes = vals * img->bytepix; /* read the file */ if( read_disk(fd, databuf, nbytes, 1, img->filename, "data") != nbytes ) return( 0 ); else return( vals ); } saoimage-1.08/mgfydraw.c 666 21641 13 24322 5030502277 10333 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mgfydraw.c (Magnify Draw) * Purpose: Quickly draw the zoomed piece of image in the zoom box * Subroutine: draw_magnifier() returns: void * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 3 December 1988 * {1} MVH improved limit checking, added comments 1 Jan 1991 * {2} MVH same fix as 1, for bitmap display 21 Jun 1991 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* define GCspec */ #include "hfiles/magnify.h" /* magnifier quick access structure */ struct magRec magset; #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void draw_magnifier( double bufx, double bufy ); #else void draw_magnifier(); GC set_gc(), set_gc_with_background(); void blank_scope(), mark_Zmagnifier(), mark_XYmagnifier(); #endif /* Subroutine: draw_magnifier * Purpose: Draw image in zoombox, quickly (use magset parameters) */ #ifdef ANSIC void draw_magnifier( double bufx, double bufy ) #else void draw_magnifier ( bufx, bufy ) double bufx, bufy; #endif { int magXwdth, magYhght; /* Dimensions of destination area drawn */ int magX1, magY1; /* Upper left coords of destination drawn */ int bufX1, bufY1; /* Upper left coords of source area */ int Xrep1, Yrep1; /* Repetitions of first pixel (on UL edge) */ int margin; int imgjump; /* Memory offset from end to start of next */ /* Variables used in display loop */ int rep; unsigned char *lookup; unsigned char *magline; int yline; int yrepend; /* Check for special handling */ margin = 0; /* Check for being completely beyoind buffer and set initial dimensions */ if( bufx < magset.buf.X1lim ) { blank_scope(); return; } if( bufx <= magset.buf.X2bdr ) magXwdth = magset.win.width; else { if( bufx > magset.buf.X2lim ) { blank_scope(); return; } /* Note rounding for a negative number */ magXwdth = magset.win.width + (int)(((magset.buf.X2bdr - bufx) * (float)magset.zoom_rep) - 0.5); margin = 1; } if( bufy < magset.buf.Y1lim ) { blank_scope(); return; } if( bufy <= magset.buf.Y2bdr ) magYhght = magset.win.height; else { if( bufy > magset.buf.Y2lim ) { blank_scope(); return; } /* Note rounding for a negative number */ magYhght = magset.win.height + (int)(((magset.buf.Y2bdr - bufy) * (float)magset.zoom_rep) - 0.5); margin = 1; } /* Convert to buffer coordinates, and calculate partial offsets */ bufx -= magset.buf.Xcen; if( bufx >= 0.0 ) { int xrepoff; /* Left edge of magnifier within buffer */ magX1 = 0; bufX1 = (int)bufx; /* Number of replications of first pixel is less fractional overlap */ xrepoff = (int)((bufx - (float)bufX1) * magset.zoom_rep); if( xrepoff < magset.zoom_rep ) { Xrep1 = magset.zoom_rep - xrepoff; imgjump = magset.buf.width - (1 + ((magXwdth + xrepoff - 1) / magset.zoom_rep)); } else { /* If rounds to next edge, skip first pixel */ bufX1 += 1; Xrep1 = magset.zoom_rep; imgjump = magset.buf.width - (1 + ((magXwdth - 1) / magset.zoom_rep)); } } else { /* Left edge of magnifier beyond buffer */ magX1 = -(int)(0.5 + (bufx * magset.zoom_rep)); magXwdth -= magX1; bufX1 = 0; Xrep1 = magset.zoom_rep; imgjump = magset.buf.width - (1 + ((magXwdth - 1) / magset.zoom_rep)); margin = 1; } bufy -= magset.buf.Ycen; if( bufy >= 0.0 ) { /* Top edge of magnifier within buffer */ magY1 = 0; bufY1 = (int)bufy; /* Number of replications of first pixel is less fractional overlap */ Yrep1 = magset.zoom_rep - (int)((bufy - (float)bufY1) * (float)magset.zoom_rep); /* If rounds to next edge, skip first pixel */ if( Yrep1 <= 0 ) { bufY1 += 1; Yrep1 = magset.zoom_rep; } } else { /* Top edge of magnifier beyond buffer */ magY1 = -(int)(0.5 + (bufy * (float)magset.zoom_rep)); magYhght -= magY1; bufY1 = 0; Yrep1 = magset.zoom_rep; margin = 1; } if( !magset.halftone ) { /* Variables used only in color loop */ int magjump; register unsigned char *magbuf; if( margin == 1 ) { /* Image doesn't cover entire field, blank field, compute offset start */ bzero(magset.data, magset.data_size); magbuf = (unsigned char *)magset.data + magX1 + (magset.win.width * magY1); } else { /* Simple start at top left corner of magnibox buffer */ magbuf = (unsigned char *)magset.data; } { register unsigned char *xrowend; register unsigned char *xrepend; register short *imgbuf; /* Compute start in data buffer, get scaling lookup table */ imgbuf = magset.buf.shortbuf + bufX1 + (bufY1 * magset.buf.width); lookup = magset.lookup; magjump = magset.win.width - magXwdth; rep = magset.zoom_rep; yline = 0; yrepend = Yrep1; while( yline < magYhght ) { magline = magbuf; /* Create row of magnibuf from image buffer data */ xrowend = magbuf + magXwdth; xrepend = magbuf + Xrep1; while( magbuf < xrowend ) { unsigned char val; val = lookup[*imgbuf++]; /* Make sure repetition does not run beyond end */ if( xrepend > xrowend ) xrepend = xrowend; while( magbuf < xrepend ) *magbuf++ = val; xrepend += rep; } magbuf += magjump; imgbuf += imgjump; /* Make sure repetition does not run beyond end */ if( yrepend > magYhght ) yrepend = magYhght; /* Copy original row for rep'd lines (magnification in Y direction) */ while( ++yline < yrepend ) { register unsigned char *copy; copy = magline; while( copy < xrowend ) *magbuf++ = *copy++; magbuf += magjump; } yrepend += rep; } } { GC gc; /* Install the sighting mark */ mark_Zmagnifier(); gc = set_gc(magset.gcset_disp); XPutImage(magset.win.display, magset.win.ID, gc, magset.image, 0, 0, magset.win.x, magset.win.y, magset.win.width, magset.win.height); } } else { /* Variables used only in bitmap loop */ unsigned char *bitmap_row; short *matrix_row; int first_bit; unsigned char *valbuf; unsigned char linebuf[1024]; /* Blank field */ bzero((char *)magset.data, magset.bitmap_size); if( margin == 1 ) { /* Image doesn't cover entire field - compute offset start */ bitmap_row = (unsigned char *) magset.data + (magX1 / 8) + (magset.bytes_per_line * magY1); first_bit = magX1 & 7; } else { /* Simple start at top left corner of magnibox buffer */ bitmap_row = (unsigned char *)magset.data; first_bit = 0; } { register unsigned char *bitmap_byte_or_xrepend; register unsigned char *xrowend; register short *imgbuf; /* Compute start in data buffer, get scaling lookup table */ imgbuf = magset.buf.shortbuf + bufX1 + (bufY1 * magset.buf.width); lookup = magset.lookup; rep = magset.zoom_rep; matrix_row = magset.matrix; yline = 0; xrowend = linebuf + magXwdth; yrepend = Yrep1; while( yline < magYhght ) { /* Load scaled image data into temporary value buffer */ valbuf = linebuf; bitmap_byte_or_xrepend = valbuf + Xrep1; while( valbuf < xrowend ) { unsigned char val; val = lookup[*imgbuf++]; if( bitmap_byte_or_xrepend > xrowend ) bitmap_byte_or_xrepend = xrowend; while( valbuf < bitmap_byte_or_xrepend ) *valbuf++ = val; bitmap_byte_or_xrepend += rep; } imgbuf += imgjump; /* Copy data line row for rep'd lines, using dither mask */ bitmap_byte_or_xrepend = bitmap_row; if( magset.inverse ) { if( yrepend > magYhght ) yrepend = magYhght; while( yline < yrepend ) { register short *matrix; register int bitmap_bit; /* Count lines when actually written */ yline++; /* Set markers for start of a line */ bitmap_bit = first_bit; valbuf = linebuf; /* Point mask at start of dither mtrx row (each row is 16 wide) */ matrix = matrix_row; while( valbuf < xrowend ) { /* Set bit by comparing val to matrix entry */ if( *valbuf++ <= matrix[bitmap_bit] ) *bitmap_byte_or_xrepend |= 1 << bitmap_bit; /* Check for next bitmap word */ if( ++bitmap_bit >= 8 ) { bitmap_bit = 0; ++bitmap_byte_or_xrepend; if( matrix == matrix_row ) matrix += 8; else matrix = matrix_row; } } if( (matrix_row += 16) >= magset.matrix_end ) matrix_row = magset.matrix; bitmap_byte_or_xrepend = (bitmap_row += magset.bytes_per_line); } yrepend += rep; } else { if( yrepend > magYhght ) yrepend = magYhght; while( yline < yrepend ) { register short *matrix; register int bitmap_bit; /* Count lines when actually written */ yline++; /* Set markers for start of a line */ bitmap_bit = first_bit; valbuf = linebuf; /* Point mask at start of dither mtrx row (each row is 16 wide) */ matrix = matrix_row; while( valbuf < xrowend ) { /* Set bit by comparing val to matrix entry */ if( *valbuf++ > matrix[bitmap_bit] ) *bitmap_byte_or_xrepend |= 1 << bitmap_bit; /* Check for next bitmap word */ if( ++bitmap_bit >= 8 ) { bitmap_bit = 0; ++bitmap_byte_or_xrepend; if( matrix == matrix_row ) matrix += 8; else matrix = matrix_row; } } if( (matrix_row += 16) >= magset.matrix_end ) matrix_row = magset.matrix; bitmap_byte_or_xrepend = (bitmap_row += magset.bytes_per_line); } yrepend += rep; } } } { GC gc; /* Install the sighting mark */ mark_XYmagnifier(); gc = set_gc_with_background(magset.gcset_disp, magset.gcset_disp->background); XPutImage(magset.win.display, magset.win.ID, gc, magset.image, 0, 0, magset.win.x, magset.win.y, magset.win.width, magset.win.height); } } } saoimage-1.08/panwndw.c 666 21641 13 12525 4613633126 10177 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: panwndw.c (Pan Window) * Purpose: Size the pan window to fit the image area and set it up * Subroutine: init_panbox_dimensions() returns: void * Subroutine: init_panbox_coords() returns: void * Subroutine: new_panbox() returns: void * Extern: screen_width, screen_height in WndwInit.c * Extern: button_left, button_middle, button_hmin in WndwConfig.c * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 21 December 1988 * {n} -- -- */ #include /* X window stuff */ #include /* window manager stuff */ #include "hfiles/define.h" /* define MIN, MAX, etc */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ /* root window dimensions in wndwinit.c */ extern int screen_width, screen_height; static double ip_zoom; static int pan_xwidth, pan_yheight; /* * Subroutine: init_panbox_dimensions * Purpose: Set size of the panbox to fit exact area of image img specs. * Called by: new_panbox() below * Called by: configure_windowgroup() in WndwConfig.c to init or regroup. */ void init_panbox_dimensions ( ) { int xzoom, yzoom; /* calculate the drawing area for the given window size */ pan_xwidth = panbox.hints.max_width - (2 * panbox.xzero); pan_yheight = panbox.hints.max_height - (2 * panbox.yzero); /* select a zoom factor which fits image within pan window */ xzoom = (coord.img.width - 1) / pan_xwidth + 1; yzoom = (coord.img.height - 1) / pan_yheight + 1; if( (xzoom > 1) || (yzoom > 1) ) { /* big image rule: zoom for which one dimension is window size or less */ ip_zoom = 1.0 / (double)MAX(xzoom,yzoom); } else { /* small image rule: zoom for which one side is greater than 1/2 window */ xzoom = pan_xwidth / coord.img.width; yzoom = pan_yheight / coord.img.height; ip_zoom = (double)MIN(xzoom,yzoom); } /* specify pan window size for perfect fit to zoomed img */ pan_xwidth = (int)((double)coord.img.width * ip_zoom); pan_yheight = (int)((double)coord.img.height * ip_zoom); panbox.hints.width = pan_xwidth + (2 * panbox.xzero); panbox.hints.height = pan_yheight + (2 * panbox.yzero); /* aspect ratio may put one side below minimum */ if( panbox.hints.min_width > panbox.hints.width ) panbox.hints.min_width = panbox.hints.width; if( panbox.hints.min_height > panbox.hints.height ) panbox.hints.min_height = panbox.hints.height; /* set sizing guidlines to maintain image aspect ratio */ panbox.hints.min_aspect.x = coord.img.width; panbox.hints.max_aspect.x = coord.img.width; panbox.hints.min_aspect.y = coord.img.height; panbox.hints.max_aspect.y = coord.img.height; } /* * Subroutine: init_panbox_coords * Purpose: Set the panbox coordinate system for the actual window. * Note: Drawing area must be as decided above in init_panbox1. */ void init_panbox_coords ( ) { void get_window_dimensions(); void set_coordsys(), set_transform(), combine_transform(), set_edges(); panbox.xzero = MAX(0, ((int)panbox.width - pan_xwidth)/2); panbox.yzero = MAX(0, ((int)panbox.height - pan_yheight)/2); panbox.xwidth = pan_xwidth; panbox.yheight = pan_yheight; /* fill out pan window coordinate system parameters */ set_coordsys(&coord.pan, 0.5, (int)panbox.width, (int)panbox.height, panbox.xzero, panbox.yzero, panbox.xzero + panbox.xwidth - 1, panbox.yzero + panbox.yheight - 1); /* compute coordinate conversions between pan and img systems */ set_transform(coord.img.cenX, coord.img.cenY, ip_zoom, &coord.pan, &coord.img, &coord.pantoimg, &coord.imgtopan); combine_transform(&coord.pantofile, &coord.pantoimg, &coord.imgtofile); set_edges(&coord.pantofile, &coord.file, &coord.pan, &coord.fp); } /* * Subroutine: new_panbox * Purpose: Create or readjust panbox (coord.img must be set). * Called by: imtool_response() */ void new_panbox ( newdata ) int newdata; /* boolean to force loading new image */ { int diff; int changed = 0; void init_panbox_dimensions(), init_panbox_coords(), init_panbuf(); void new_panimage(), new_pancursor(); /* choose size to fit image aspect ratio for blocked pan image */ init_panbox_dimensions(); /* if window was changed */ if( (panbox.hints.width != panbox.width) || (panbox.hints.height != panbox.height) ) { /* resize the window (this causes an expose event) */ diff = panbox.width - panbox.hints.width; panbox.width = panbox.hints.width; panbox.height = panbox.hints.height; if( diff ) { panbox.x += diff; XMoveResizeWindow(panbox.display, panbox.ID, panbox.x, panbox.y, panbox.width, panbox.height); } else XResizeWindow(panbox.display, panbox.ID, panbox.width, panbox.height); changed = 1; } init_panbox_coords(); /* get bigger buffer if needed */ init_panbuf(); if( newdata || changed ) { /* create a new image to fit the panbox */ new_panimage(); /* set up the new panbox display area cursor */ new_pancursor(0); } } saoimage-1.08/rgndraw.c 666 21641 13 24422 4617514443 10170 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgndraw.c (Region Draw) * Purpose: Draw regions and their labels * Subroutine: init_region_draw() returns: void * Subroutine: toggle_region_visibility() returns: void * Subroutine: toggle_region_labeling() returns: void * Subroutine: disp_regions() returns: void * Subroutine: disp_region() returns: void * Subroutine: label_region_cycle_magnifier() returns: void * Xlib calls: XDrawImageString(), XDrawString(), XDrawLine(), XTextWidth() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* define stderr, NULL */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define MIN, MAX, U_DONT_CARE, etc. */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/region.h" /* regdrawRec region drawing parameters */ struct regdrawRec rgdraw; /* * Subroutine: init_region_draw */ void init_region_draw ( view, label ) { XFontStruct *get_fontstruct(); void set_submenu_toggle(); /* set button panel buttons */ if( (rgdraw.visible = view) ) set_submenu_toggle (ROP, ROP_View, 1); if( (rgdraw.label = label) ) set_submenu_toggle (ROP, ROP_Label, 1); /* get the medium font for legible numbers but limited size */ rgdraw.fontstruct = get_fontstruct(1); rgdraw.label_xoff = 1; if( rgdraw.filled_label ) { rgdraw.label_yoff = -rgdraw.fontstruct->descent; rgdraw.label_height = rgdraw.fontstruct->descent + rgdraw.fontstruct->ascent; } else { rgdraw.label_yoff = 0; rgdraw.label_height = rgdraw.fontstruct->ascent + 1; } } /* * Subroutine: toggle_region_visibility */ void toggle_region_visibility ( ) { void disp_dispbox(); rgdraw.visible ^= 1; /* redraw the image, (it will call disp_regions) */ disp_dispbox(); } /* * Subroutine: toggle_region_labeling */ void toggle_region_labeling ( ) { void disp_dispbox(); rgdraw.label ^= 1; /* redraw the image, (it will call disp_regions) */ disp_dispbox(); } /* * Subroutine: disp_regions * Purpose: Draw all saved cursor regions */ void disp_regions ( cursor ) struct cursorRec *cursor; { struct cursorRec *region; void disp_region(); if( rgdraw.visible ) { region = cursor->next_region; while( region != NULL ) { disp_region (region); region = region->next_region; } } } /* * Subroutine: disp_region * Purpose: Draw one saved cursor region and its labels */ void disp_region ( region ) struct cursorRec *region; { GC gc; static GC set_region_gc(); static void label_annuli(), label_region(), draw_region(); if( rgdraw.visible && (region != NULL) ) { gc = set_region_gc(region); draw_region(region, gc); if( rgdraw.label ) { if( region->annuli ) label_annuli(region, gc); else label_region(region, gc); } } } /* * Subroutine: label_region_cycle_magnifier * Purpose: Label cycle zoombox display * Xlib calls: XDrawImageString(), XTextWidth() */ void label_region_cycle_magnifier ( region, do_index ) struct cursorRec *region; int do_index; { int text_y, index_x, center_x; char index[4], center[32]; GC gc, set_edit_gc(); /* make center label (round to correct integer pixel coordinate) */ if( img.index_base ) (void)sprintf(center, "(%d,%d)", RND(region->file.X), RND(region->file.Y)); else (void)sprintf(center, "(%d,%d)", (int)region->file.X, (int)region->file.Y); text_y = magnibox.height - (rgdraw.fontstruct->ascent + rgdraw.fontstruct->descent); index_x = rgdraw.fontstruct->max_bounds.rbearing; center_x = magnibox.width - (XTextWidth(rgdraw.fontstruct, center, strlen(center)) + index_x); gc = set_edit_gc(rgdraw.fontstruct->fid, region->draw->foreground, region->draw->background); XDrawImageString(magnibox.display, magnibox.ID, gc, center_x, text_y, center, strlen(center)); if( do_index ) { (void)sprintf(index, " %d ", region->index); XDrawImageString(magnibox.display, magnibox.ID, gc, index_x, text_y, index, strlen(index)); } } /* * Subroutine: set_region_gc * Purpose: Set up the gc with only as much detail as needed */ static GC set_region_gc ( region ) struct cursorRec *region; { GC gc, set_edit_gc(), set_text_gc(), set_gc(); if( rgdraw.label ) { if( rgdraw.filled_label ) gc = set_edit_gc(rgdraw.fontstruct->fid, region->draw->foreground, region->draw->background); else gc = set_text_gc(rgdraw.fontstruct->fid, region->draw->foreground, U_DONT_CARE, GXcopy, AllPlanes); } else gc = set_gc(region->draw); return( gc ); } /* * Subroutine: draw_region_label * Xlib calls: XDrawImageString(), XDrawString() */ static void draw_region_label ( string, cnt, gc, x, y ) char *string; int cnt; GC gc; int x, y; { if( (x > 0) && (x <= (dispbox.width - rgdraw.fontstruct->max_bounds.rbearing)) && (y >= rgdraw.fontstruct->max_bounds.ascent) && (y <= (dispbox.height - rgdraw.fontstruct->max_bounds.descent)) ) { if( rgdraw.filled_label ) XDrawImageString(dispbox.display, dispbox.ID, gc, x, y, string, cnt); else XDrawString(dispbox.display, dispbox.ID, gc, x, y, string, cnt); } } /* * Subroutine: draw_region * Purpose: Draw one saved cursor region outline or point index * Note: gc is already set, hence NULL GCspec in draw calls */ static void draw_region ( region, gc ) struct cursorRec *region; GC gc; { static void draw_region_label(); void draw_annuli(), draw_cursor(); if( region->type != COP_Point ) { if( region->annuli ) /* if there are annuli, draw them (GC is already set) */ draw_annuli(region, (GCspec *)NULL); else draw_cursor(region, (GCspec *)NULL); } else { #ifdef LBLPNT if( !rgdraw.label ) { char label[32]; sprintf(label, "%d", region->index); draw_region_label(label, strlen(label), gc, region->win.x + rgdraw.label_xoff, region->win.y + rgdraw.label_yoff); } #endif XDrawPoint(dispbox.display, dispbox.ID, gc, region->win.x, region->win.y); } } /* * Subroutine: label_annuli */ static void label_annuli ( region, gc ) struct cursorRec *region; GC gc; { struct cursorRec *annulus; static void label_region(); /* apply label to outer annulus */ annulus = region; while( annulus->next_annulus != NULL ) annulus = annulus->next_annulus; annulus->index = region->index; annulus->draw = region->draw; annulus->exclude_region = region->exclude_region; label_region(annulus, gc); } /* * Subroutine: label_region * Purpose: Draw one region's label line and text for center and edge * Xlib calls: XDrawLine() */ static void label_region ( region, gc ) struct cursorRec *region; GC gc; { int x0, y0, x1, y1, yt; char center_string[16]; char edge_string[132]; int len; static int mark_include(); static void draw_region_label(); /* if label not requested or don't know how to label or will another part */ if( (!rgdraw.label) || (region->type == COP_Polygon) ) return; /* make center label (round to correct integer pixel coordinate) */ if( img.index_base ) sprintf(center_string, "(%d,%d)", RND(region->file.X), RND(region->file.Y)); else sprintf(center_string, "(%d,%d)", (int)region->file.X,(int)region->file.Y); x0 = region->win.x; y0 = region->win.y; if( region->type == COP_Point ) { len = mark_include(center_string, region->exclude_region); draw_region_label(center_string, len, gc, x0 + rgdraw.label_xoff, y0 + rgdraw.label_yoff); } else { /* prepare and draw a line between center and edge of region */ switch( region->type ) { case COP_Circle: x1 = region->win.x; y1 = region->win.y - (int)(region->win.rayX + 0.5); sprintf(edge_string, "%d", (int)(region->file.Xdim + 0.5)); break; case COP_Box: case COP_Ellipse: if( region->rot.angle == 0.0 ) { x1 = region->win.x; y1 = region->win.y - (int)(region->win.rayY + 0.5); } else { /* transform back to unrotated coords */ x1 = region->win.x - RND(region->win.rayY * region->rot.sin); y1 = region->win.y + RND(region->win.rayY * region->rot.cos); } sprintf(edge_string, "%d", (int)(region->file.Ydim + 0.5)); break; default: return; } /* place text at end of line, but not over other label */ if( y1 <= y0 ) { if( y1 > (y0 - rgdraw.label_height) ) yt = y0 - rgdraw.label_height; else yt = y1; } else { if( y1 < (y0 + rgdraw.label_height) ) yt = y0 + rgdraw.label_height; else yt = y1; } if( ((x0 >= 0) && (x0 < dispbox.width) && (y0 >= 0) && (y0 < dispbox.height)) || ((x1 >= 0) && (x1 < dispbox.width) && (yt >= 0) && (yt < dispbox.height)) ) { /* draw the line if it is in the window */ XDrawLine(dispbox.display, dispbox.ID, gc, x0, y0, x1, y1); /* make label indicate function of region */ len = mark_include(edge_string, region->exclude_region); draw_region_label(edge_string, len, gc, x1 + 1, yt + rgdraw.label_yoff); draw_region_label(center_string, strlen(center_string), gc, x0 + 1, y0 + rgdraw.label_yoff); } } } /* * Subroutine: mark_include * Purpose: Add include symbol to string */ static int mark_include ( string, exclude ) char *string; int exclude; { int len; len = strlen(string); if( exclude > 0 ) { string[len] = '-'; } else if( exclude == 0 ) { string[len] = '+'; } else return( len ); string[++len] = '\0'; return( len ); } saoimage-1.08/mgfyval.c 666 21641 13 21606 4740231412 10157 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mgfyval.c (Magnify Value) * Purpose: Get file pixel value and make a formatted string to show it * Subroutine: get_pixel_val() returns: int * Subroutine: integer_string() returns: void * Subroutine: real_string() returns: void * Copyright: 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Note: Table based on code from Bill Wyatt's showimg * Modified: {0} Michael VanHilst initial version 21 February 1990 * {1} MVH improved G formatter (c)MVH 1 Jan 1991 * {n} -- -- */ #include /* Get stderr */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #define strchr index /* Needed for a few unenlightened BSD's */ #define strrchr rindex #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* Declare structure types */ #include "hfiles/constant.h" /* Define ARR_ codes */ #include "hfiles/extern.h" /* Extern main parameter structures */ #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ int get_pixel_val( int bufx, int bufy, int* ival, double* dval, int* clip); void integer_string( int ival, int clip, char *string, int width); void real_string( double val, char *string, int width); static void mark_overflow( char *string, int string_width, char* label, int label_width); #else void i_transform(); int get_pixel_val(); void integer_string(), real_string(); static void mark_overflow(); #endif /* Subroutine: get_pixel_val * Purpose: Return pixel value and code representing best format * Returns: 1 if value is an integer, else 0 * Note: Puts integer val in ival * Note: If float, double or scaled, puts float val in dval * Note: Sets clip if buffer value is at clipped value edge (IRAF) */ #ifdef ANSIC int get_pixel_val( int bufx, int bufy, int* ival, double* dval, int* clip ) #else int get_pixel_val ( bufx, bufy, ival, dval, clip ) int bufx, bufy; /* shortbuf ("buf") coordinates */ int *ival; /* gets integer value */ double *dval; /* gets floating point value (unless just integer) */ int *clip; /* -1 if at clipping min, 1 if at clipping max */ #endif { int val; *clip = 0; if( img.fiscaled == 0 ) { *ival = buffer.shortbuf[(bufy * coord.buf.width) + bufx]; return( 1 ); } else { if( (buffer.filebuf == NULL) || (buffer.filebuf == (char *)buffer.shortbuf) ) { /* values scaled, originals not available */ val = buffer.shortbuf[bufx + (bufy * coord.buf.width)]; *dval = ((double)val * img.fiscale) + img.fibias; /* Print strings with spaces padding out the end */ if( val <= buffer.clipmin ) *clip = -1; else if( val >= buffer.clipmax ) *clip = 1; } else { /* Values scaled, originals in filebuf */ float fbX, fbY; i_transform(&coord.buftofbuf, bufx, bufy, &fbX, &fbY); if( img.storage_type == ARR_I4 ) { *dval = (double) *((int *)(buffer.filebuf + (((int)fbX + ((int)fbY * coord.fbuf.width)) * sizeof(int)))); } else if( img.storage_type == ARR_R4 ) { *dval = (double) *((float *)(buffer.filebuf + (((int)fbX + ((int)fbY * coord.fbuf.width)) * sizeof(float)))); } else if( img.storage_type == ARR_R8 ) { *dval = *((double *)(buffer.filebuf + (((int)fbX + ((int)fbY * coord.fbuf.width)) * sizeof(double)))); } else *dval = 0.0; if( img.fscaled ) *dval = img.fbias + (*dval * img.fscale); } *ival = (int)(*dval); if( ((double)(*ival)) == *dval ) return( 1 ); else return( 0 ); } } static char *iform[16] = { "x", "%d", "%2d", "%3d", "%4d", "%5d", "%6d", "%7d", "%8d", "%9d", "%10d", "%11d", "%12d", "%13d", "%14d", "%15d" }; /* Subroutine: integer_string * Purpose: Create an integer string, include clipping mark if appropriate * Note: to be called with full column width * Note: 2<=width<=15 */ #ifdef ANSIC void integer_string( int ival, int clip, char *string, int width ) #else void integer_string ( ival, clip, string, width ) int ival; int clip; char *string; int width; #endif { char *edge; (void)sprintf(string, iform[width], ival); if( clip ) { if( string[0] != ' ' ) { if( width > 8 ) real_string((double)ival, &string[1], width-1); else mark_overflow(string, width, "CLIP", 4); edge = string; } else edge = strrchr(string, ' '); /* If value known to be clipped, indicate true value is beyond this */ if( clip > 0 ) *edge = '>'; else *edge = '<'; } else { if( string[width] != '\0' ) { if( width > 8 ) { real_string((double)ival, &string[1], width-1); *string = ' '; } else mark_overflow(string, width, "ovfl", 4); } } } /* Subroutine: mark_overflow * Purpose: Print overflow message in place of value */ #ifdef ANSIC static void mark_overflow( char *string, int string_width, char* label, int label_width ) #else static void mark_overflow ( string, string_width, label, label_width ) char *string; int string_width; char *label; int label_width; #endif { int i; *string = ' '; for( i=0; i= 0.0 ) { if( (val < 0.001) || (val >= emax[width-1]) ) { /* Outside range for simple %f format */ if( (val >= 1e-9) && (val < 1e10) ) { /* Inside range for 1 digit exponent (move digit 2 over) */ if( val >= 1.0 ) { /* Positive number with 1 digit positive exponent */ (void)sprintf(string, eform[width-4], val); string[width-1] = string[width+1]; } else { /* Positive number with 1 digit negative exponent */ (void)sprintf(string, eform[width-5], val); string[width-1] = string[width]; } } else if( val >= 1.0 ) { /* Positive number with 2 digit positive exponent */ (void)sprintf(string, eform[width-5], val); string[width-2] = string[width-1]; string[width-1] = string[width]; } else /* Positive number with 2 digit negative exponent */ (void)sprintf(string, eform[width-6], val); } else /* Positive number in fixed point notation */ (void)sprintf(string, fform[width], val); } else { if( (val > -0.001) || (val <= emin[width]) ) { if( (val <= -1e-9) && (val > -1e10) ) { /* Inside range for 1 digit exponent (move digit 2 over) */ if( val > -1.0 ) { /* Negative number with 1 digit negative exponent */ (void)sprintf(string, eform[width-6], val); string[width-1] = string[width]; } else { /* Negative number with 1 digit positive exponent */ (void)sprintf(string, eform[width-5], val); string[width-1] = string[width+1]; } } else if( val <= -1.0 ) { /* Negative number with 2 digit positive exponent */ (void)sprintf(string, eform[width-6], val); string[width-2] = string[width-1]; string[width-1] = string[width]; } else /* Negative number with 2 digit negative exponent */ (void)sprintf(string, eform[width-7], val); } else /* Negative number in fixed point notation */ (void)sprintf(string, fform[width], val); } string[width] = '\0'; } saoimage-1.08/mgfymark.c 666 21641 13 12000 4613631014 10314 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mgfymark.c (Magnify Mark) * Purpose: Quickly put the sighting mark in the magnified image * Subroutine: init_magnifier_Zmark() returns: void * Subroutine: mark_magnifierZ() returns: void * Subroutine: init_magnifier_XYmark() returns: void * Subroutine: mark_magnifierXY() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 6 June 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* define GCspec */ #include "hfiles/magnify.h" /* magnifier quick access structure */ #include "defs/magnify.def" /* masks for sighting mark */ extern struct magRec magset; struct { char *top_left; char *top_right; char *bot_left; char *bot_right; int tl_br_next; int tr_bl_next; } Zmark; /* * Subroutine: init_magnifier_Zmark */ void init_magnifier_Zmark ( ) { char *line_center; line_center = magset.data + magset.data_x_hot + ((magset.data_y_hot - Zmark_y_hot) * magset.win.width); Zmark.top_left = line_center - Zmark_x_hot; Zmark.top_right = line_center + Zmark_x_hot; line_center = magset.data + magset.data_x_hot + ((magset.data_y_hot + Zmark_y_hot) * magset.win.width); Zmark.bot_left = line_center - Zmark_x_hot; Zmark.bot_right = line_center + Zmark_x_hot; Zmark.tl_br_next = magset.win.width - Zmark_x_hot; Zmark.tr_bl_next = magset.win.width + Zmark_x_hot; } /* * Subroutine: mark_Zmagnifier */ void mark_Zmagnifier ( ) { register char *top_left, *top_right; register char *bot_left, *bot_right; register int *mark; register int foreground, background; top_left = Zmark.top_left; bot_left = Zmark.bot_left; top_right = Zmark.top_right; bot_right = Zmark.bot_right; foreground = magset.gcset_aim->foreground; background = magset.gcset_aim->background; mark = (int *)Zmark_mask; while( top_left < bot_left ) { while( top_left < top_right ) { if( *mark ) { if( *mark > 1 ) { *top_left = foreground; *top_right = foreground; *bot_left = foreground; *bot_right = foreground; } else { *top_left = background; *top_right = background; *bot_left = background; *bot_right = background; } } mark++; top_left++; top_right--; bot_left++; bot_right--; } /* pointers converge at center, just do left */ if( *mark ) { if( *mark > 1 ) { *top_left = foreground; *bot_left = foreground; } else { *top_left = background; *bot_left = background; } } mark++; top_left += Zmark.tl_br_next; bot_right -= Zmark.tl_br_next; top_right += Zmark.tr_bl_next; bot_left -= Zmark.tr_bl_next; } /* pointers converge on middle line, just do top */ while( top_left < top_right ) { if( *mark ) { if( *mark > 1 ) { *top_left = foreground; *top_right = foreground; } else { *top_left = background; *top_right = background; } } mark++; top_left++; top_right--; } /* pointers converge at center, just do left */ if( *mark ) { if( *mark > 1 ) { *top_left = foreground; } else { *top_left = background; } } } struct { char *top_left; char *mark; char *mask; char *last_mark; int bytes; int next_line; } XYmark; /* * Subroutine: init_magnifier_XYmark */ void init_magnifier_XYmark ( ) { int xoff; xoff = magset.data_x_hot - XYmark_x_hot; XYmark.top_left = magset.data + (xoff / 8) + ((magset.data_y_hot - XYmark_y_hot) * magset.bytes_per_line); xoff = xoff & 7; XYmark.mark = XYmark_mark[xoff] - 1; XYmark.mask = XYmark_mask[xoff] - 1; if( xoff < 4 ) { XYmark.bytes = 2; XYmark.next_line = magset.bytes_per_line - 1; XYmark.last_mark = XYmark.mark + 26; } else { XYmark.bytes = 3; XYmark.next_line = magset.bytes_per_line - 2; XYmark.last_mark = XYmark.mark + 39; } } /* * Subroutine: mark_XYmagnifier */ void mark_XYmagnifier ( ) { register unsigned char *data, *mark, *mask, *last_mark; register int next_line; data = (unsigned char *)XYmark.top_left; mark = (unsigned char *)XYmark.mark; mask = (unsigned char *)XYmark.mask; last_mark = (unsigned char *)XYmark.last_mark; next_line = XYmark.next_line; if( XYmark.bytes == 2 ) { while( mark < last_mark ) { *data = (*data & *(++mask)) | *(++mark); data++; *data = (*data & *(++mask)) | *(++mark); data += next_line; } } else { while( mark < last_mark ) { *data = (*data & *(++mask)) | *(++mark); data++; *data = ((*data & *(++mask)) | *(++mark)); data++; *data = (*data & *(++mask)) | *(++mark); data += next_line; } } } saoimage-1.08/readfits.c 666 21641 13 15442 4617502351 10322 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readfits.c (Read FITS) * Purpose: Read a FITS file header and prepare file for basic array read * Subroutine: int init_fits() * Note: Only SIMPLE = T is permitted, but will handle BITPIX = 8, 16, * 32, -16(u_short), -32(float), -64(double). If img->nimage * is set to a value greater than 1, file will be lseeked to the * nimage'th image (assuming there are several images stored as * a stack (on 3rd dimension). * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 23 January 1989 * {n} -- -- */ #include /* define stderr, NULL, etc. */ #include /* needed for control.h */ #include "hfiles/constant.h" #include "hfiles/control.h" /* define IOP codes */ #include "hfiles/image.h" #define FITSBLOCK 2880 /* * Subroutine: init_fits * Purpose: Open fits file, get parameters and get ready to read data. * Returns: -1 if failure, else fd of file, positioned at start of data * Note: Data read will be handled as standard array read. */ int init_fits ( img ) struct imageRec *img; { float scale, bias; int fd; int headlen; int bitpix, naxis, naxes[3]; char *header; static char *load_fitsheader(); int read_fitsheader(), open_disk(), lseek_disk(); void close_disk(); /* open the image file */ if( (fd = open_disk(img->filename, IOP_Read, 0)) <= 0 ) return( -1 ); headlen = img->headersize; /* read and interpret the header */ if( (header = load_fitsheader(fd, &headlen, img->filename)) == NULL ) { close_disk(fd, img->filename); return( -1 ); } if( read_fitsheader(header, headlen, &bitpix, &naxis, naxes, &scale, &bias) != 0 ) { free(header); switch( bitpix ) { case 8: img->storage_type = ARR_U1; img->bytepix = 1; break; case 16: img->storage_type = ARR_I2; img->bytepix = 2; break; case 32: img->storage_type = ARR_I4; img->bytepix = 4; break; case -16: img->storage_type = ARR_U2; img->bytepix = 2; break; case -32: img->storage_type = ARR_R4; img->bytepix = 4; break; case -64: img->storage_type = ARR_R8; img->bytepix = 8; break; default: (void)fprintf(stderr,"Illegal FITS BITPIX: %d\n",bitpix); close_disk(fd, img->filename); return( -1 ); } if( img->nimage > 1 ) { if( (naxis <= 2) || (naxes[2] < img->nimage) ) { (void)fprintf(stderr, "Only %d images in file %s\n", naxis, img->filename); close_disk(fd, img->filename); return( -1 ); } img->headersize = headlen + (naxes[0] * naxes[1] * img->bytepix); if( lseek_disk(fd, img->headersize, img->filename) < 0 ) { img->headersize = 0; close_disk(fd, img->filename); return( -1 ); } } else { img->headersize = headlen; } img->filecols = naxes[0]; img->filerows = naxes[1]; if( (scale != 1.0) || (bias != 0.0) ) { img->fscale = scale; img->fbias = bias; img->fscaled = 1; } else img->fscaled = 0; return( fd ); } else { free(header); close_disk(fd, img->filename); return( -1 ); } } /* * Subroutine: load_fitsheader * Purpose: Load the FITS header from the disk file into memory. * Notes: FITS headers are made in block units (2880 bytes each). * If length is not initially zero, it is taken as a directive * to override FITS standard (header of given size is loaded). * FITS header must have "SIMPLE =" in first 10 bytes (and 'T' * in next 20 for ximage use). */ static char *load_fitsheader ( fd, length, filename ) int fd; int *length; char *filename; { int headlen, nbytes; char *header; char TorF[4]; static char *get_keyfield(); char *realloc(), *calloc_errchk(); int read_disk(); void no_fitscomment(); if( *length > 0 ) headlen = *length; else headlen = FITSBLOCK; /* allocate initial sized buffer */ header = calloc_errchk(headlen, 1, "FITS header"); /* read in first block */ if( (nbytes = read_disk(fd, header, headlen, 1, filename, "FITS header")) != headlen ) { free (header); return( NULL ); } /* consistency check for FITS header */ if( strncmp(header, "SIMPLE =", 9) != 0) { (void)fprintf(stderr,"No SIMPLE keyword in FITS header"); free(header); return( NULL ); } /* we only support SIMPLE = T */ no_fitscomment(header+10, 20); if( (sscanf(header+10, "%1s", TorF) <= 0) || (TorF[0] != 'T') ) { (void)fprintf(stderr,"SIMPLE = %c not supported\n", TorF[0]); free(header); return( NULL ); } if( *length != 0 ) { /* if header length was given, it must check out with an END */ if( get_keyfield(header, "END ", headlen, 0) == NULL ) { (void)fprintf(stderr,"%d byte FITS header has no END card!\n", headlen); free(header); return( NULL ); } } else { /* if END keyword not found, read in more header until END is found */ while( get_keyfield(header, "END ", headlen, 0) == NULL ) { if( (header = realloc(header, (unsigned)(headlen+FITSBLOCK))) == NULL ) { fputs("Reallocation failure reading header\n", stderr); return( NULL ); } if( (nbytes = read_disk(fd, header+headlen, FITSBLOCK, 1, filename, "extended header")) != FITSBLOCK ) { (void)fprintf(stderr, "Read %d bytes of header with no END card!\n", headlen + nbytes); (void)fflush(stderr); free( header ); return( NULL ); } headlen += FITSBLOCK; } *length = headlen; } return( header ); } /* * Subroutine: get_keyfield * Purpose: Return the data field for a given FITS header keyword * Returns: If key not found, return NULL (0). */ static char *get_keyfield ( header, keyword, length, report_error ) char *header; /* buffer start */ char *keyword; /* keyword to match */ int length; /* if zero, search up to "END" keyword */ int report_error; /* if > 0, fatal if key not found */ { int key_not_end, i; void no_fitscomment(); key_not_end = (strncmp(keyword, "END ", 8) != 0); for( i=0; i -- -- */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #define strchr index #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* get stderr, define sscanf */ #include /* sin, cos, etc */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* TWO_PI */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ /* Amount of space for string is actually (CURSOR_MAX - 1)*sizeof(XPoint) */ struct curText { int char_cnt; char string[CURSOR_MAX*2]; }; #ifdef ANSIC void make_next_region( int type, char *line, int exclude, int draw, float *scratch, int scratch_max); static void parse_error( char* line); static void make_annuli( struct cursorRec *region, char *line, float *radii, int radii_max); void make_polygon( char *line, int exclude, int draw, float *vertex_coord, int coord_max); void make_polygon( char *line, int exclude, int draw, float *vertex_coord, int coord_max); static int parse_coords( char *line, float *coord, int maxcnt); #else static void make_annuli(), parse_error(); static int parse_coords(); struct cursorRec *get_new_cursor(); char *next_token(); void set_cursor_from_file_coords(), disp_cursor(); void make_polygon(), free_cursor(); int parse_radii(); void set_cursor_from_file_coords(), make_new_annulus(); void set_polygon_from_file_coords(); #endif #define DEG(r) ((360.0 / TWO_PI) * (r)) #define RAD(d) ((TWO_PI / 360.0) * (d)) extern int CircleCnt; extern int EllipseCnt; /* Subroutine: make_next_region * Purpose: Make and install a region given basic file coord parameters */ #ifdef ANSIC void make_next_region( int type, char *line, int exclude, int draw, float *scratch, int scratch_max ) #else void make_next_region( type, line, exclude, draw, scratch, scratch_max ) int type; /* i: cursor type */ char *line; /* i: ascii string with parameters */ int exclude; /* i: region-is-exclude_region */ int draw; /* i: draw-region-after-making-it */ float *scratch; /* i: scratch space for list of floats */ int scratch_max; /* i: size of scratch space */ #endif { struct cursorRec *region; float angle, tempX, tempY; int point_cnt, tokens, char_cnt; int annuli = 0; switch( type ) { case COP_Point: point_cnt = 0; break; case COP_Box: point_cnt = 5; break; case COP_Annuli: annuli = 1; type = COP_Circle; case COP_Circle: point_cnt = CircleCnt + 1; break; case COP_Ellipse: point_cnt = EllipseCnt + 1; break; case COP_Arrow: point_cnt = 6; break; case COP_Text: if( 3 != sscanf(line, "%f%f%d", &tempX, &tempY, &char_cnt) ) { parse_error(line); return; } point_cnt = ((char_cnt + 1) / sizeof(XPoint)) + 2; break; case COP_Polygon: make_polygon(line, exclude, draw, scratch, scratch_max); default: return; } region = get_new_cursor(point_cnt, 0); region->type = type; region->point_cnt = point_cnt; if( (region->next_region = cursor.next_region) != NULL ) region->index = cursor.next_region->index + 1; else region->index = 1; cursor.next_region = region; /* Put in text cursor info */ if( type == COP_Text ) { struct curText *curtext = (struct curText *)cursor.next_region->points; curtext->char_cnt = char_cnt; line = strchr(line, '\"'); (void)strncpy(curtext->string, &line[1], char_cnt); region->file.X = tempX; region->file.Y = tempY; } else { tokens = sscanf(line, "%f%f%f%f%f", ®ion->file.X, ®ion->file.Y, ®ion->file.Xdim, ®ion->file.Ydim, &angle); if( type == COP_Box ) { /* Boxes in PROS use diameter, internally they use radius */ region->file.Xdim *= 0.5; region->file.Ydim *= 0.5; } if( (tokens > 4) && (type != COP_Circle) && (type != COP_Point) ) { region->rot.angle = RAD((double)angle); region->rot.cos = cos(PI - region->rot.angle); region->rot.sin = sin(PI - region->rot.angle); } else { region->rot.angle = 0.0; region->rot.cos = -1.0; region->rot.sin = 0.0; if( (tokens < 3) || (type == COP_Point) ) { if( type != COP_Point ) { parse_error(line); cursor.next_region = region->next_region; free_cursor (region); return; } else { region->file.Xdim = 0.0; /* Recurse on a list of points */ if( tokens >= 4 ) { /* Advance to next coordinate pair */ line = next_token (line, 2); make_next_region(type, line, exclude, draw, scratch, scratch_max); } } if( (tokens < 4) || (type == COP_Circle) ) region->file.Ydim = region->file.Xdim; } } } if( (region->exclude_region = exclude) ) region->draw = &color.gcset.excl; else region->draw = &color.gcset.incl; region->win.display = dispbox.display; region->win.ID = dispbox.ID; region->overwrites_image_data = 1; /* in case of circular annuli, this was just the beginning */ if( annuli ) { region->annuli = 1; make_annuli(region, line, scratch, scratch_max); } else { set_cursor_from_file_coords(region, &coord.filetodisp); } if( draw ) disp_cursor(region); } /* Subroutine: parse_error * Purpose: Print parsing error message */ #ifdef ANSIC static void parse_error( char* line ) #else static void parse_error( line ) char* line; #endif { (void)fprintf(stderr, "Parse error: too few parameters parsed\n"); (void)fprintf(stderr, "-> %s\n", line); } /* Subroutine: make_annuli * Purpose: Make circular annuli given base region and string of radii * Note: Base region is circle of first radius * Method: Make base region as each ring, then copy as one of its annuli * (mimics procedure user would take). * Called by: make_region() above */ #ifdef ANSIC static void make_annuli ( struct cursorRec *region, char *line, float *radii, int radii_max ) #else static void make_annuli ( region, line, radii, radii_max ) struct cursorRec *region; char *line; float *radii; int radii_max; #endif { int i, cnt; /* Advance beyond center coords */ line = next_token(line, 2); cnt = parse_radii(line, radii, radii_max); /* Reverse order for ascending insert sort from list in ascending order */ for( i = cnt - 1; i >= 0; i-- ) { region->file.Xdim = radii[i]; region->file.Ydim = region->file.Xdim; set_cursor_from_file_coords(region, &coord.filetodisp); make_new_annulus(region); } } /* Subroutine: parse_coords * Purpose: Parse coordinate pairs off the line * Called by: make_polygon() below */ #ifdef ANSIC static int parse_coords ( char *line, float *coord, int maxcnt ) #else static int parse_coords ( line, coord, maxcnt ) char *line; float *coord; int maxcnt; #endif { int i; /* Keep reading while there are tokens on the line */ for( i=0; (line != NULL) && (i < maxcnt); i+= 2 ) { if( sscanf(line, "%f%f", &coord[i], &coord[i+1]) != 2 ) return( 0 ); line = next_token(line, 2); } return( i ); } /* Subroutine: make_polygon * Purpose: Parse line and make a polygon region */ #ifdef ANSIC void make_polygon ( char *line, int exclude, int draw, float *vertex_coord, int coord_max ) #else void make_polygon ( line, exclude, draw, vertex_coord, coord_max ) char *line; int exclude; int draw; float *vertex_coord; int coord_max; #endif { int i, j; int cnt; struct cursorRec *region; cnt = parse_coords(line, vertex_coord, coord_max); if( cnt % 2 ) { (void)fprintf(stderr, "Parse error: odd number for pairs: %d\n", cnt); (void)fprintf(stderr, "-> %s\n", line); return; } cnt /= 2; region = get_new_cursor(cnt + 1, cnt); region->type = COP_Polygon; region->poly_cnt = cnt; region->point_cnt = cnt + 1; for( j=0, i=0; ipoly[i].fileX = vertex_coord[j++]; region->poly[i].fileY = vertex_coord[j++]; } region->file.X = vertex_coord[0]; region->file.Y = vertex_coord[1]; set_polygon_from_file_coords(region, &coord.filetodisp, 0); if( (region->next_region = cursor.next_region) != NULL ) region->index = cursor.next_region->index + 1; else region->index = 1; cursor.next_region = region; if( (region->exclude_region = exclude) ) region->draw = &color.gcset.excl; else region->draw = &color.gcset.incl; region->win.display = dispbox.display; region->win.ID = dispbox.ID; region->overwrites_image_data = 1; if( draw ) disp_cursor(region); } saoimage-1.08/make.com 666 21641 13 6426 5022772240 7751 $!------------------------------------------------------------------------- $! $! MAKE.COM - Build SAOimage on a VMS system $! $! Parameters: $! P1 null Build everything $! LINK Link SAOIMAGE.EXE $! CLEAN Clean up build residue $! xxx Source module - compile and update library $! P2 options If P1=LINK, VMS Linker option (e.g. /DEBUG) $! If P1=source module, CC compiler option $! $!------------------------------------------------------------------------- $ $ $ gosub BUILD_SETUP $ $ if p1 .eqs. "" then goto BUILD_ALL $ if p1 .eqs. "LINK" then goto LINK_ONLY $ if p1 .eqs. "CLEAN" then goto DISPOSE $ $ gosub COMPILE_MODULE $ exit $ $ $BUILD_SETUP: $ $ set noon $ $ define/nolog c$include [.hfiles],decw$include,sys$library $ define/nolog vaxc$include c$include $ define/nolog X11 decw$include ! for #include $ define/nolog sys sys$library ! for #include $ $ compile := cc/define=(FITS,OIF,IMTOOL,LSB,XV11R2,PSCRIPT,NODEBUG)/nodebug/optimize $ libname := libsao.olb $ makefile:= make.lst $ $ return $ $ $COMPILE_MODULE: $ $ p1 = p1 - ".C" $ compile 'p1' 'p2' 'make_options' $ library/log 'libname' 'p1' $ $ return $ $ $LINK_ONLY: $ $ if f$locate("/DEBUG",p2) .eqs. f$length(p2) $ then $ outname = "SAOIMAGE" $ else $ outname = "D_SAOIMAGE" $ endif $ $ link 'p2' /nomap='outname' /exe='outname' - []libsao/include=maininit/lib, - [.btnlib]libbtn/lib, - [.vms]libvms/lib, - sys$input/opt sys$share:decw$xlibshr/share sys$share:vaxcrtl/share $ $ exit $ $ $BUILD_ALL: $ $ $ write sys$output "----- Building local source modules -----" $ $ if f$search(libname) .eqs. "" then library/create 'libname' $ $ open/read make_input 'makefile' $ $ on control_y then goto CLEANUP $ $ReadLoop: $ read/end=ReadEOF/err=CLEANUP make_input line $ first = f$extract(0,1,line) $ if first .nes. "!" .and. first .nes. "#" $ then $ make_options = f$extract(f$locate("/",line),f$length(line),line) $ $ p1 = f$edit(line,"UPCASE") - ".C" - make_options $ p1s = p1 + ".C" $ p1o = p1 + ".OBJ" $ if f$search(p1s) .eqs. "" $ then $ write sys$output p1s + " not found!" $ goto ReadLoop $ endif $ if f$search(p1o) .eqs. "" then goto Recompile $ $ srcdate = f$file_attributes(p1s,"RDT") $ objdate = f$file_attributes(p1o,"RDT") $ bin_srcdate = f$cvtime(srcdate) $ bin_objdate = f$cvtime(objdate) $ $ if bin_srcdate .les. bin_objdate $ then $ write sys$output "Up-to-date... " + p1 $ goto ReadLoop $ endif $Recompile: $ write sys$output "Compiling... " + p1 $ $ p1 = p1 - ".C" $ compile 'p1' 'p2' 'make_options' $ library/log 'libname' 'p1' $ $ endif $ goto ReadLoop $ $ReadEOF: $ close make_input $ $ $ write sys$output "----- Building BTNLIB subdirectory -----" $ $ set default [.btnlib] $ @make $ set default [-] $ $ $ write sys$output "----- Building VMS subdirectory -----" $ $ set default [.vms] $ @make $ set default [-] $ $ $ write sys$output "----- Building special-case source modules -----" $ $ set default [.panel] $ $ libname := [-]libsao.olb $ $ p1 := MAKEMENU.C $ write sys$output "Compiling... " + "[.PANEL]" + p1 $ gosub COMPILE_MODULE $ $ set default [-] $ $ $ write sys$output "----- Linking SAOimage -----" $ $ goto LINK_ONLY $ exit $ $DISPOSE: $ delete [...]*.obj;, [...]*.olb;, spool.log;, saoimage.exe; $ exit $ $CLEANUP: $ if f$logical("MAKE_INPUT") .nes. "" then close make_input $ exit saoimage-1.08/readfith.c 666 21641 13 12713 4613633421 10304 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readfith.c (Read FITS Header) * Purpose: Parse FITS header for specific parameter fields * Subroutine: read_fitsheader() returns: void * Subroutine: no_fitscomment() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 23 January 1989 * {1} Tim Cornwell (NRAO) not reject BITPIX < 0 1 Feb 1990 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* get stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif /* * Subroutine: read_fitsheader * Purpose: Find important FITS parameters in FITS header * Returns: 1 if success, else 0 */ int read_fitsheader ( header, length, bitpix, naxis, naxes, scale, bias ) char *header; int length; int *bitpix; int *naxis; int *naxes; float *scale; float *bias; { static int get_keyint(), get_keyfloat(); /* first card is assumed to be SIMPLE = T, so skip it */ header += 80; if( (*bitpix = get_keyint(header,"BITPIX ", 80, 1)) == 0 ) return(0); if( (*bitpix % 8) != 0 ) { (void)fprintf(stderr, "BITPIX = %d: not 8, 16, 32, -16, -32, or -64\n", *bitpix); return(0); } header += 80; if( (*naxis = get_keyint(header, "NAXIS ", 80, 1)) <= 0 ) return(0); header += 80; if( (naxes[0] = get_keyint(header, "NAXIS1 ", 80, 1)) <= 0 ) return(0); header += 80; if( (naxes[1] = get_keyint(header, "NAXIS2 ", 80, 1)) <= 0 ) return(0); header += 80; length -= 400; if( *naxis > 2 ) { if( (naxes[2] = get_keyint(header, "NAXIS3 ", 80, 1)) <= 0 ) return(0); header += 80; length -= 80; } if( get_keyfloat(header, "BZERO ", length, bias, 0) == 0 ) *bias = 0.0; if( get_keyfloat(header, "BSCALE ", length, scale, 0) == 0 ) *scale = 1.0; return(1); } /* * Subroutine: get_keyint * Purpose: Return the int value in the data field for a given FITS * header keyword. If key not found, return 0. */ static int get_keyint ( header, keyword, length, report_error) char *header; /* buffer start */ char *keyword; /* keyword to match */ int length; /* if zero, search up to "END" keyword */ int report_error; /* if > 0, fatal if key not found */ { int key_not_end, val; int i; void no_fitscomment(); key_not_end = (strncmp(keyword, "END ", 8) != 0); for( i=0; i 0, fatal if key not found */ { int key_not_end; int i; static void fix_exponent(); void no_fitscomment(); key_not_end = (strncmp(keyword, "END ", 8) != 0); for( i=0; i -- -- */ #include /* needed for ntohl (net to host long) */ #ifndef VMS #include /* needed for ntohl (net to host long) */ #endif #include "hfiles/scale.h" /* define SCALEWIDTH, etc. */ #include "hfiles/image.h" /* image struct */ /* * Subroutine: scale_data_u1 * Purpose: Read an 8-bit array into a 16-bit buffer * Method: Copy from end so byte data may occupy beginning of same buf */ void scale_data_u1 ( image, imgbuf, databuf, vals ) struct imageRec *image; register short *imgbuf; register unsigned char *databuf; int vals; { databuf += (vals - 1); imgbuf += (vals - 1); /* and pad the picture */ while( vals-- > 0 ) *imgbuf-- = (short)*databuf--; image->fiscaled = 0; image->fibias = 0.0; image->fiscale = 1.0; } /* * Subroutine: scale_data_i2 * Purpose: Scale 16-bit signed short data into the (short) img array * Method: Data is assumed to be already in the buffer. Only byte-swap * might be needed. */ void scale_data_i2 ( image, imgbuf, databuf, vals ) struct imageRec *image; short *imgbuf; short *databuf; int vals; { static void byte_swap(); /* do byte swap if called for */ if( image->byte_swap ) byte_swap((char *)databuf, (char *)imgbuf, vals * sizeof(short)); image->fiscaled = 0; image->fibias = 0.0; image->fiscale = 1.0; } /* * Subroutine: scale_data_u2 * Purpose: Scale 16 bit unsigned short data into the (short) img array */ void scale_data_u2 ( image, imgbuf, databuf, vals ) struct imageRec *image; register short *imgbuf; register unsigned short *databuf; int vals; { register unsigned short *dataend; register int bias; static void byte_swap(); bias = -SCALEOFF; /* do byte swap if called for */ if( image->byte_swap ) byte_swap((char *)databuf, (char *)imgbuf, vals * sizeof(short)); /* start from back end since data may occupy beginning of buf */ dataend = databuf + vals; do { *imgbuf++ = (short)((int)*databuf + bias); } while( ++databuf < dataend ); image->fiscaled = 1; image->fibias = -(double)bias; image->fiscale = 1.0; } /* * Subroutine: scale_data_i4 * Purpose: Scale 32 bit integer data into the (short) img array */ void scale_data_i4 ( image, imgbuf, databuf, vals, verbose ) struct imageRec *image; short *imgbuf; long *databuf; int vals; int verbose; /* whether to print explanatory messages */ { register long *lbuf, *lbufend; int datamin, datamax; { register int lmin, lmax; lbuf = databuf; lbufend = lbuf + vals; /* find the min and the max (byteswap if needed) */ if( image->byte_swap ) { *lbuf = (long)ntohl((unsigned long)*lbuf); lmin = lmax = *lbuf; /* skip the first val since we just used it */ while( ++lbuf < lbufend ) { *lbuf = (long)ntohl((unsigned long)*lbuf); if( *lbuf < lmin ) lmin = *lbuf; else if( *lbuf > lmax ) lmax = *lbuf; } } else { lmin = lmax = *lbuf; while( ++lbuf < lbufend ) { if( *lbuf < lmin ) lmin = *lbuf; else if( *lbuf > lmax ) lmax = *lbuf; } } datamin = lmin; datamax = lmax; } /* make announcement if requested */ if( verbose ) { (void)printf("min and max as read: %d, %d\n", datamin, datamax); if( image->fimin < image->fimax ) { (void)printf("using given limits: %d, %d\n", (int)image->fimin, (int)image->fimax); } } /* apply preset limits if given */ if( image->fimin < image->fimax ) { if( image->fimin < 0.0 ) datamin = (int)(image->fimin - 0.5); else datamin = (int)(image->fimin + 0.5); if( image->fimax < 0.0 ) datamax = (int)(image->fimax - 0.5); else datamax = (int)(image->fimax + 0.5); } { register short *sbuf; register long bias; double scale; register int smin, smax; /* * I inserted a number of (float) conversions to stop the problem * with overflow. * Stephan Jansen */ smin = SCALEMIN; smax = SCALEMAX; /* reset buf pointer for another pass through lbuf */ lbuf = databuf; sbuf = imgbuf; if( ((double)datamax - (double)datamin) <= (double)SCALEWIDTH ) { /* if a simple offset suffices */ register long ltemp; if( (datamin >= SCALEMIN) && (datamax <= SCALEMAX) ) { /* if possible to truncate to short without bias, do so. */ bias = 0; image->fiscaled = 0; image->fibias = 0.0; } else { /* offset by average to center within range */ bias = -((datamin + datamax) / 2); image->fiscaled = 1; image->fibias = (double)(-bias); } image->fiscale = 1.0; do { ltemp = *lbuf + bias; if( ltemp < smin ) { *sbuf++ = smin; } else if( ltemp > smax ) { *sbuf++ = smax; } else *sbuf++ = (short)ltemp; } while( ++lbuf < lbufend ); } else { /* full-up scaling required. (+/- (tmax-tmin)/2) */ double dtemp, dmin, dmax, dbias; /* offset values to be zero centered */ dbias = -(((double)datamin + (double)datamax) * 0.5); /* get the scale factor (no divide by zero gets past prior test) */ scale = (double)SCALEWIDTH / ((double)datamax - (double)datamin); /* use min and max to mark out limits as float values */ dmin = (double)SCALEMIN; dmax = (double)SCALEMAX; /* scale the picture */ do { dtemp = ((double)(*lbuf) + dbias) * scale; if( dtemp < 0.0 ) { dtemp -= 0.5; if( dtemp < dmin ) *sbuf++ = smin; else *sbuf++ = (short)dtemp; } else { dtemp += 0.5; if( dtemp > dmax ) *sbuf++ = smax; else *sbuf++ = (short)dtemp; } } while( ++lbuf < lbufend ); image->fiscaled = 1; image->fibias = -dbias; image->fiscale = 1.0 / scale; } } } /* * Subroutine: byte_swap * Purpose: Equivalent of UNIX swab, but guaranteed to work in place * and usable under VMS */ static void byte_swap( inbuf, outbuf, nbytes ) char *inbuf; char *outbuf; int nbytes; { register char *from, *to, *last_byte; register unsigned temp; from = inbuf; to = outbuf; last_byte = from + nbytes; while( from < last_byte ) { temp = *from; ++from; *to = *from; ++to; *to = temp; ++to; ++from; } } saoimage-1.08/rgnread.c 666 21641 13 17111 4742503745 10145 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgnread.c (Region Read) * Purpose: Open and read ASCII region specification files and cursor lists * Subroutine: read_regions() returns: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 August 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* toupper, isalpha, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* SZ_FNAME, SZ_LINE */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #include "hfiles/edit.h" /* EditStruct */ #include "hfiles/region.h" /* region parsing record (reg_param) */ extern EditStruct *region_edit; /* key to popup editor for file name input */ #ifdef ANSIC void read_regions(); static int check_special( char *line); static int determine_file_type(char *line, int len); static void parse_imtool_points(char *line); static void parse_pros_regions ( char *line ) static void parse_point( char *line, int exclude); #else static int check_special(); static int determine_file_type(); static void parse_imtool_points(), parse_pros_regions(), parse_point(); EditStruct *init_edit_popup(); int open_input_file(); void disp_dispbox(); int check_parens(), burst_line(); void make_next_region(), fit_annuli_edge(), new_annulus_edge(); struct cursorRec *get_new_cursor(); void set_cursor_from_file_coords(), free_cursor(), disp_region(); #endif /* * Subroutine: read_regions * Purpose: Read cursors into the save cursor records from a file * Note: Each new entry is added at base of list */ void read_regions ( ) { FILE *fd; int type; char line[SZ_LINE]; if( region_edit == NULL ) region_edit = init_edit_popup((char *)NULL, SZ_FNAME); /* Open coordinate output file for writing */ if( open_input_file(&fd, region_edit, 0, "Enter file name of IRAF list or PROS regions:") <= 0 ) return; while( (fgets(line, SZ_LINE, fd) != NULL) && ((type = determine_file_type(line, SZ_LINE)) == 0) ); if( type == SOP_Imtool ) { do { /* Parse the line, allocating region records */ parse_imtool_points (line); } while( fgets(line, SZ_LINE, fd) != NULL ); } else if( type == SOP_PROS ) { do { /* Parse the line, allocating region records */ parse_pros_regions (line); } while( fgets(line, SZ_LINE, fd) != NULL ); } /* Close the region file */ (void)fclose(fd); /* Draw the display with regions labeled as per display selection */ (void)disp_dispbox(); } /* Subroutine: determine_file_type * Purpose: Determine if line is commented or blank * Returns: 0 if line is blank fo comment, SOP_Imtool if starts with a * number, SOP_PROS if starts with a letter, +, or - */ #ifdef ANSIC static int determine_file_type ( char *line, int len ) #else static int determine_file_type ( line, len ) char *line; int len; #endif { int i; if( check_special(line) ) return( SOP_PROS ); for( i=0; inext_region != NULL ) fit_annuli_edge(&cursor); make_next_region(records[0].type, records[0].line, records[0].exclude, 1, scratch, scratch_sz); new_annulus_edge(&cursor); } else { for( i=0; itype = COP_Point; region->exclude_region = exclude; if( sscanf(line, "%f%*c%f", ®ion->file.X, ®ion->file.Y) != 2 ) { free_cursor(region); } else { /* Set up this point region */ set_cursor_from_file_coords(region, &coord.filetodisp); if( (region->next_region = cursor.next_region) != NULL ) region->index = cursor.next_region->index + 1; else region->index = 1; cursor.next_region = region; if( (region->exclude_region = exclude) ) region->draw = &color.gcset.excl; else region->draw = &color.gcset.incl; region->win.display = dispbox.display; region->win.ID = dispbox.ID; region->overwrites_image_data = 1; disp_region(region); } } /* Subroutine: check_special * Purpose: Look for special label type cursor declaration */ #ifdef ANSIC static int check_special( char *line ) #else static int check_special( line ) char *line; #endif { if( (strncmp(line, "# ARROW(", 8) == 0) || (strncmp(line, "#-ARROW(", 8) == 0) || (strncmp(line, "# TEXT(", 7) == 0) || (strncmp(line, "#-TEXT(", 7) == 0) ) return( 1 ); else return( 0 ); } saoimage-1.08/readiraf.c 666 21641 13 16601 4617503071 10274 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readiraf.c (Read IRAF) * Purpose: Read "old style" IRAF OIF (.imh) files directly * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 23 January 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* define stderr, FD, and NULL */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #define strchr index #define strrchr rindex #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* needed for control.h */ #include "hfiles/constant.h" #include "hfiles/control.h" /* define IOP codes */ #include "hfiles/image.h" /* just read in a nice power of two enough to cover the interesting parts */ /* actual size is (LEN_IMHDR + 1) * sizeof(int) */ #define READHEAD 1024 /* parameters from iraf/lib/imhdr.h */ #define SZ_IMPIXFILE 79 #define LEN_IMHDR 513 /* offsets into header in sizeof(int) units for various parameters */ #define IM_PIXTYPE 4 /* datatype of the pixels */ #define IM_NDIM 5 /* number of dimensions */ #define IM_PHYSLEN 13 /* physical length (as stored) */ #define IM_PIXOFF 22 /* offset of the pixels */ #define IM_CTRAN 52 /* coordinate transformations */ #define IM_PIXFILE 103 /* name of pixel storage file */ /* The Coordinate Transformation Structure (IM_CTRAN) from iraf/lib/imhdr.h */ /* None of this stuff is supported by IRAF applications, yet */ #define LEN_CTSTRUCT 50 #define CT_VALID 0 /* (y/n) is structure valid? */ #define CT_BSCALE 1 /* pixval scale factor */ #define CT_BZERO 2 /* pixval offset */ #define CT_CRVAL 3 /* value at pixel (for each dim) */ #define CT_CRPIX 10 /* index of pixel (for each dim) */ #define CT_CDELT 17 /* increment along axis for each dim */ #define CT_CROTA 24 /* rotation angle (for each dim) */ #define CT_CTYPE 36 /* coord units string */ /* codes from iraf/unix/hlib/iraf.h */ #define TY_CHAR 2 #define TY_SHORT 3 #define TY_INT 4 #define TY_LONG 5 #define TY_REAL 6 #define TY_DOUBLE 7 #define TY_COMPLEX 8 /* * Subroutine: init_irafimh * Purpose: Open and read the iraf .imh file and set up the pixfile for reading * Returns: -1 if failure, else FD to image file ready for reading data * Notes: The imhdr format is defined in iraf/lib/imhdr.h, some of * which defines or mimiced, above. */ int init_irafimh ( img ) struct imageRec *img; { int fd; int *header; static int check_immagic(), open_pixfile(); int open_disk(), lseek_disk(), read_disk(); char *calloc_errchk(); void close_disk(); /* open the image header file */ if( (fd = open_disk(img->filename, IOP_Read, 0)) <= 0 ) return( -1 ); /* allocate initial sized buffer */ header = (int *)calloc_errchk(LEN_IMHDR, sizeof(int), "FITS header"); /* read in first block */ if( read_disk(fd, (char *)header, READHEAD, 1, img->filename, "IRAF header") != READHEAD ) { free((char *)header); close_disk(fd, img->filename); return( -1 ); } close_disk (fd, img->filename); /* check header magic word */ if( check_immagic((char *)header) ) { free ((char *)header); (void)fprintf(stderr, "File %s not valid SPP imhdr.\n", img->filename); return( -1 ); } /* check number of image dimensions */ if( header[IM_NDIM] < 2 ) { free ((char *)header); (void)fprintf(stderr, "File does not contain 2d image\n", img->filename); return(-1); } /* get file parameters */ switch( header[IM_PIXTYPE] ) { case TY_SHORT: img->storage_type = ARR_I2; img->bytepix = 2; break; case TY_INT: case TY_LONG: img->storage_type = ARR_I4; img->bytepix = 4; break; case TY_REAL: img->storage_type = ARR_R4; img->bytepix = 4; break; case TY_DOUBLE: img->storage_type = ARR_R8; img->bytepix = 8; break; default: (void)fprintf(stderr,"Unsupported data type: %d\n",header[IM_PIXTYPE]); free((char *)header); return( -1 ); } img->filecols = header[IM_PHYSLEN]; img->filerows = header[IM_PHYSLEN+1]; /* check for existence and open pix file */ if( (fd = open_pixfile((char *)&header[IM_PIXFILE],img->filename)) < 0 ) { free((char *)header); return( -1 ); } if( lseek_disk(fd, (header[IM_PIXOFF]-1) * sizeof(short), img->filename) < 0 ) { free((char *)header); close_disk(fd, img->filename); return( -1 ); } free((char *)header); return( fd ); } /* * Subroutine: open_pixfile * Purpose: Open the pixfile * Returns: -1 if failure, else fd of open file * Note: IRAF pixfile name includes machine name in case file system * is specific to a machine (i.e. /tmp). We try with machine * name only if it cannot be read without the machine name. */ static int open_pixfile ( pixname, hdrname ) char *pixname; char *hdrname; { int fd; char *bang; int open_disk(); static void pack_SPPstring(), same_path(); pack_SPPstring(pixname, SZ_IMPIXFILE); if( strncmp(pixname, "HDR$", 4) == 0 ) same_path(pixname, hdrname); if( (bang = strchr(pixname, '!')) != NULL ) { if( (fd = open_disk(bang + 1, IOP_Read, 0)) >= 0 ) return( fd ); } if( (fd = open_disk(pixname, IOP_Read, 0)) >= 0 ) { return( fd ); } return( -1 ); } /* * Subroutine: check_immagic * Purpose: verify that file is valid IRAF imhdr by checking first 5 chars * Returns: 0 on success, 1 on failure */ static int check_immagic ( line ) char *line; { static void pack_SPPstring(); pack_SPPstring (line, 5); if( strncmp(line, "imhdr", 5) != 0 ) return(1); else return(0); } /* * Subroutine: pack_SPPstring * Purpose: Convert ASCII string from SPP char per short to C char per byte */ static void pack_SPPstring ( line, len ) char *line; int len; { int i, j; /* adaptive byte selection (whichever byte order) chars alternate w/ \0 */ if( line[0] == '\0' ) j=1; else j=0; for( i=0; i 0) && (pixname[len-1] != '/') ) #else while( (len > 0) && (pixname[len-1] != ']') && (pixname[len-1] != ':') ) #endif len--; /* add name */ pixname[len] = '\0'; (void)strncat(pixname, temp, SZ_IMPIXFILE); } } saoimage-1.08/make.lst 666 21641 13 2505 5017244225 7770 CLRALLOC.C CLRCTRL.C CLRHARD.C CLRINIT.C CLRMAP.C CLRMENU.C CLRREAD.C CLRSETUP.C CLRVARY.C CMDDISP.C CMDIMAGE.C CMDNEW.C CMDPARSE.C CRDINVRT.C CRDROT.C CRDSET.C CRDSYNTH.C CRDTEMP.C CRDTRANS.C CSRANLI.C CSRAREA.C CSRCOORD.C CSRCTRL.C CSRDRAW.C CSRGRAB.C CSRMOVE.C CSRPOLY1.C CSRPOLY2.C CSRPOLY3.C CSRSAVE.C CSRSHAPE.C CSRSLCT.C CSRTEXT.C CTRLCNTN.C CTRLDISK.C CTRLFILE.C CTRLGC.C CTRLMBOX.C CTRLPIPE.C CTRLSCKT.C DISPBLNK.C DISPBTMP.C DISPDFSE.C DISPDTHR.C DISPLAY.C DISPPSCT.C DISPPXMP.C EDITCTRL.C EDITDRAW.C EDITEMCS.C EDITINIT.C EDITLINE.C EDITRDRW.C GRPHBAR.C GRPHBTMP.C GRPHCTRL.C GRPHDRAW.C GRPHGRAB.C GRPHINIT.C GRPHLBL.C GRPHLINE.C GRPHMOVE.C GRPHOLAP.C GRPHPOS.C GRPHTEXT.C HISTDIST.C HISTEQL.C HISTLIST.C HISTMAP.C HISTSCAN.C HISTZERO.C IMGCHECK.C IMGFLIP.C IMGLOGO.C IMGNEW.C IMGPARAM.C IMGREAD.C IMGROT.C IMGTRANS.C IRAFCRD.C IRAFDISP.C IRAFENV.C IRAFFDBK.C IRAFIMTL.C IRAFIO.C IRAFPIPE.C MAINBFFR.C MAINEVNT.C MAININIT.C MAINKEY.C MAINSLCT.C MAINUTIL.C MENUCTRL.C MENUINIT.C MGFYCTRL.C MGFYDRAW.C MGFYINIT.C MGFYMARK.C MGFYTABL.C MGFYVAL.C PANCOPY.C PANCRSR.C PANCTRL.C PANIMAGE.C PANWNDW.C READARR.C READFITH.C READFITS.C READINT.C READIRAF.C READREAL.C RGNANLI.C RGNCTRL.C RGNDRAW.C RGNDROP.C RGNMAKE.C RGNREAD.C RGNTOKEN.C RGNWPROS.C RGNWRITE.C RTCMD.C RTIO.C SCLCTRL.C SCLMAP.C WNDWADJ.C WNDWCONF.C WNDWCRE.C WNDWINIT.C WNDWMAUS.C saoimage-1.08/readreal.c 666 21641 13 15013 5561224754 10301 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: readreal.c (Read Real) * Purpose: Scale real image data to fit in a short (int*2) buffer * Subroutine: scale_data_r4() returns: void * Subroutine: scale_data_r8() returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 31 October 1988 * {1} Doug Mink added byte swapping May 2, 1994 * {n} -- -- */ #include "hfiles/image.h" /* image struct */ #include "hfiles/scale.h" /* define SCALEWIDTH, etc. */ /* * Subroutine: scale_data_r4 * Purpose: scale 32 bit real data into the (short) img array */ void scale_data_r4 ( image, imgbuf, databuf, vals, verbose ) struct imageRec *image; short *imgbuf; float *databuf; int vals; int verbose; /* whether to print explanatory messages */ { register float *fbuf, *fbufend; float fmin, fmax; /* set buf start and end pointers for a pass through fbuf */ fbuf = databuf; fbufend = fbuf + vals; /* find the min and the max (byteswap if needed) */ if( image->byte_swap ) { bswap4 ((char *)fbuf); fmin = fmax = *fbuf; /* skip the first val since we just used it */ while( ++fbuf < fbufend ) { bswap4 ((char *)fbuf); if( *fbuf < fmin ) fmin = *fbuf; else if( *fbuf > fmax ) fmax = *fbuf; } } else { fmin = fmax = *fbuf; /* skip the first val since we just used it */ while( ++fbuf < fbufend ) { if( *fbuf < fmin ) fmin = *fbuf; else if( *fbuf > fmax ) fmax = *fbuf; } } /* make announcement if requested */ if( verbose ) { (void)printf("Data min and max as read: %g, %g\n", fmin, fmax); if( image->fimin < image->fimax ) { (void)printf("Using given limits: %g, %g\n", image->fimin, image->fimax); } } /* apply preset limits if given */ if( image->fimin < image->fimax ) { fmin = image->fimin; fmax = image->fimax; } { float scale, bias; float ftemp; register short *sbuf; /* set bias to offset values to zero center the range */ bias = -((fmin + fmax) / (float)2.0); /* get the scale factor */ if( (fmax - fmin) > 0.0 ) { scale = (float)SCALEWIDTH / (fmax - fmin); } else { scale = 1.0; } /* reset buf for another pass through fbuf */ /* while loop changed to current form from: * buf = databuf; * while( buf < bufend ) * *sbuf RND((*buf++ + bias) * scale; * because Sun compiler was inc'ing buf by 8 bytes */ fbuf = databuf; sbuf = imgbuf; /* use min and max to mark out limits */ fmin = (float)SCALEMIN; fmax = (float)SCALEMAX; /* scale the picture */ do { ftemp = (*fbuf + bias) * scale; if( ftemp < 0.0 ) { ftemp -= 0.5; if( ftemp < fmin ) *sbuf++ = fmin; else *sbuf++ = (short)ftemp; } else { ftemp += 0.5; if( ftemp > fmax ) *sbuf++ = fmax; else *sbuf++ = (short)ftemp; } } while( ++fbuf < fbufend ); image->fiscaled = 1; image->fibias = (double)(-bias); image->fiscale = 1.0 / (double)scale; } } /* * Subroutine: scale_data_r8 * Purpose: Scale 64 bit real data into the (short) img array */ void scale_data_r8 ( image, imgbuf, databuf, vals, verbose ) struct imageRec *image; short *imgbuf; double *databuf; int vals; int verbose; /* whether to print explanatory messages */ { register double *dbuf, *dbufend; double dmin, dmax; /* set buf start and end pointers for a pass through dbuf */ dbuf = databuf; dbufend = dbuf + vals; /* find the min and the max (byteswap if needed) */ if( image->byte_swap ) { bswap8 ((char *)dbuf); dmin = dmax = *dbuf; /* skip the first val since we just used it */ while( ++dbuf < dbufend ) { bswap8 ((char *)dbuf); if( *dbuf < dmin ) dmin = *dbuf; else if( *dbuf > dmax ) dmax = *dbuf; } } else { dmin = dmax = *dbuf; /* skip the first val since we just used it */ while( ++dbuf < dbufend ) { if( *dbuf < dmin ) dmin = *dbuf; else if( *dbuf > dmax ) dmax = *dbuf; } } /* make announcement if requested */ if( verbose ) { (void)printf("Data min and max as read: %g, %g\n", dmin, dmax); if( image->fimin < image->fimax ) { (void)printf("Using given limits: %g, %g\n", image->fimin, image->fimax); } } /* apply preset limits if given */ if( image->fimin < image->fimax ) { dmin = image->fimin; dmax = image->fimax; } { double scale, bias; double dtemp; register short *sbuf; /* set bias to offset values to zero center the range */ bias = -((dmin + dmax) / (double)2.0); /* get the scale factor */ if( (dmax - dmin) > 0.0 ) { scale = (double)SCALEWIDTH / (dmax - dmin); } else { scale = 1.0; } /* reset buf for another pass through dbuf */ dbuf = databuf; sbuf = imgbuf; /* use min and max to mark out limits */ dmin = (double)SCALEMIN; dmax = (double)SCALEMAX; /* scale the picture */ do { dtemp = (*dbuf + bias) * scale; if( dtemp < 0.0 ) { dtemp -= 0.5; if( dtemp < dmin ) *sbuf++ = dmin; else *sbuf++ = (short)dtemp; } else { dtemp += 0.5; if( dtemp > dmax ) *sbuf++ = dmax; else *sbuf++ = (short)dtemp; } } while( ++dbuf < dbufend ); image->fiscaled = 1; image->fibias = -bias; image->fiscale = 1.0 / scale; } } bswap4 (string) /* Reverse bytes of 4-byte variable * * string Address of 4-byte variable */ char *string; { char temp0, temp1, temp2, temp3; temp3 = string[0]; temp2 = string[1]; temp1 = string[2]; temp0 = string[3]; string[0] = temp0; string[1] = temp1; string[2] = temp2; string[3] = temp3; return; } bswap8 (string) /* Reverse bytes of 8-byte number * * string Address of 8-byte number */ char *string; { char temp[8]; temp[7] = string[0]; temp[6] = string[1]; temp[5] = string[2]; temp[4] = string[3]; temp[3] = string[4]; temp[2] = string[5]; temp[1] = string[6]; temp[0] = string[7]; string[0] = temp[0]; string[1] = temp[1]; string[2] = temp[2]; string[3] = temp[3]; string[4] = temp[4]; string[5] = temp[5]; string[6] = temp[6]; string[7] = temp[7]; return; } saoimage-1.08/rgntoken.c 666 21641 13 15533 4742503632 10353 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgntoken.c (Region Token) * Purpose: Parse tokens from a region descriptor file * Subroutine: check_parens() returns: int * Subroutine: burst_line() returns: int * Subroutine: next_token() returns: *char * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 August 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* toupper, isalpha, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/region.h" /* region parsing record (reg_param) */ #define TYPECNT 9 struct reg_types { int code; char name[16]; }; static struct reg_types types[TYPECNT] = { COP_Annuli, "ANNULUS", COP_Arrow, "ARROW", COP_Box, "BOX", COP_Circle, "CIRCLE", COP_Ellipse, "ELLIPSE", COP_PieSlice, "PIE", COP_Point, "POINT", COP_Polygon, "POLYGON", COP_Text, "TEXT" }; /* Subroutine: check_parens * Purpose: Check nesting of parentheses. Also, turn all token * separators into ascii spaces * Returns: length of parsable line up to EOL or # (comment), else -1 */ #ifdef ANSIC int check_parens ( char *orig, char *line ) #else int check_parens ( orig, line ) char *orig; /* original line */ char *line; /* workspace with line copy */ #endif { int i; int error = 0; int paren = 0; char space = ' '; /* check nesting of parentheses and strip all parens, tabs, and commas */ for( i=0; (line[i] != '\0') && (line[i] != '#'); i++ ) { if( line[i] == ')' ) { paren--; if( paren < 0 ) error++; line[i] = space; } else if( line[i] == '(' ) { paren++; line[i] = space; } else if( line[i] == '\n' ) { if( paren > 0 ) line[i] = space; else break; } else if( (line[i] == ',') || (line[i] == '\t') ) { line[i] = space; } else if( ((line[i] == ';') || (line[i] == '&') || (line[i] == '|')) && (paren != 0) ) /* also check region separators */ error++; } /* make termination a null (removes comments and \n) */ line[i] = '\0'; if( error || (paren != 0) ) { (void)fprintf(stderr,"WARNING: unbalanced parens:\n%s\n",orig); return( -1 ); } else { return( i ); } } /* * Subroutine: burst_line * Purpose: Find each region descriptor and its identifying token * Returns: Number of regions found */ int burst_line ( orig, line, len, records ) char *orig; /* original line */ char *line; /* workspace with line copy */ int len; /* length of meaningful part of line */ struct reg_param *records; /* region parse note pad */ { int i; int starting; /* 1=fresh line, 2=fresh & must find region, 0=found */ int count, no_error; int set_region_type(); /* clear error flag, set count to 0, clear first record */ no_error = 1; count = 0; bzero((char *)&records[0], sizeof(struct reg_param)); /* initial state is looking for beginning of a region descriptor */ starting = 1; for( i=0; (no_error) && (i 1 ) no_error = 0; starting = 1; /* terminate line of parameters for first record */ line[i] = '\0'; } } if( no_error && (starting <= 1) ) { return( count ); } else { (void)fprintf(stderr,"WARNING: improper region separation:\n%s\n",orig); return( -1 ); } } /* * Subroutine: next_token * Purpose: Advance the line position beyond the first cnt tokens * Note: All token separators are ascii spaces (see check_parens) * Note: line termination is a null ('\0') or new_line ('\n') * Returns: NULL if insufficient or no more tokens, else ptr to line */ char *next_token ( line, cnt ) char *line; int cnt; { int i, j; i = 0; for( j = 0; j < cnt; j++ ) { /* check for premature end */ if( (line[i] == '\0') || (line[i] == '\n') ) return( NULL ); /* advance to token */ while( line[i] == ' ' ) i++; /* advance to end of token */ while( (line[i] != ' ') && (line[i] != '\0') && (line[i] != '\n') ) i++; } /* advance to next token */ while( line[i] == ' ' ) i++; if( line[i] == '\0' ) /* report no more tokens */ return( NULL ); else /* report location of next token */ return( &line[i] ); } /* * Subroutine: set_region_type * Purpose: Check the name for a unique match with a known region type * Called by: burst_line() in RegionParse.c */ int set_region_type ( record, line ) struct reg_param *record; char *line; { int i, j; int match = 0; for( i=0; line[i] != ' '; i++ ) { /* convert all lower case characters to uppercase */ if( islower(line[i]) ) line[i] = toupper(line[i]); /* check for line end overrun */ if( line[i] == '\0' ) { (void)fprintf(stderr,"WARNING: missing region specification: %s\n",line); return( -1 ); } } /* null terminate name token */ line[i] = '\0'; /* point record at parameter field */ record->line = &line[i+1]; for( i=0; i 0) && (line[j] == '\0') ) { record->line = &line[j+1]; record->type = types[i].code; match++; } } /* possible outcomes: match == 1, match > 1, match < 1 */ if( match == 1 ) { return( 0 ); } else if( match > 1 ) { (void)fprintf(stderr, "WARNING: non-unique region abbreviation: %s\n",line); } else { (void)fprintf(stderr,"WARNING: unknown region type: %s\n",line); } return( -1 ); } saoimage-1.08/rgndrop.c 666 21641 13 13475 4613634552 10205 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgndrop.c (Region Drop) * Purpose: Select and remove a region no longer wanted * Subroutine: unsave_region() returns: void * Subroutine: region_indicated_by_pointer() returns: struct cursorRec * * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 27 June 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* declare sqrt */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* define SQR, SMALL_NUMBER */ extern struct cursorRec *cycle_region; /* * Subroutine: unsave_region * Purpose: Remove and discard region from region list */ void unsave_region ( cursor, dead_meat ) struct cursorRec *cursor; /* i: main cursor record */ struct cursorRec *dead_meat; /* i: ptr to region being deleted */ { struct cursorRec *region; void free_cursor(); if( (cursor->next_region == NULL) || (dead_meat == NULL) ) return; region = cursor; while( region->next_region != dead_meat ) { region = region->next_region; region->index--; } region->next_region = dead_meat->next_region; /* if deleting region pointed at by cycle region, change cycle region */ if( cycle_region == dead_meat ) cycle_region = region; /* free deleted region and any annuli it might have */ do { region = dead_meat->next_annulus; free_cursor (dead_meat); dead_meat = region; } while( dead_meat != NULL ); } /* * Subroutine: region_indicated_by_pointer * Purpose: Identify which region if any is indicated by the pointer * Method: Chooses smallest region which encloses pointer. (Point * cursors enclose one or two digit label but have 0 area). * In case of equal areas (i.e. points), closer center is used. */ struct cursorRec *region_indicated_by_pointer ( cursor, x, y, point_only ) struct cursorRec *cursor; int x, y; int point_only; { struct cursorRec *region, *chosen; static int pointer_is_inside_region(); static int closer_to_center(); chosen = NULL; region = cursor->next_region; /* erase smallest region which encloses the mouse */ while( region != NULL ) { if( !point_only || region->type == COP_Point ) { if( pointer_is_inside_region(x, y, region) ) { if( (chosen == NULL) || (region->file.area < chosen->file.area) ) { chosen = region; } else if( (region->file.area == chosen->file.area) && closer_to_center(region, chosen, x, y) ) /* compare distance from center */ chosen = region; } } region = region->next_region; } return( chosen ); } /* * Subroutine: closer_to_center */ static int closer_to_center ( challenger, champ, x, y ) struct cursorRec *challenger, *champ; int x, y; { double X, Y, Xn, Yn; X = (double)x + 0.5 - champ->win.X; Y = (double)y + 0.5 - champ->win.Y; Xn = (double)x + 0.5 - challenger->win.X; Yn = (double)y + 0.5 - challenger->win.Y; if( (SQR(Xn) + SQR(Yn)) > (SQR(X) + SQR(Y)) ) return( 1 ); else return( 0 ); } /* * Subroutine: is_inside_region * Purpose: Determine if mouse is within a region */ static int pointer_is_inside_region ( x, y, region ) int x, y; struct cursorRec *region; { double rayX, rayY, ray; int inside; static int pointer_is_inside_polygon(); if( region->type == COP_Polygon ) return( pointer_is_inside_polygon((double)x, (double)y, region->poly, region->poly_cnt) ); rayX = (double)x + 0.5 - region->win.X; rayY = (double)y + 0.5 - region->win.Y; inside = 0; switch( region->type ) { case COP_Circle: if( (SQR(rayX) + SQR(rayY)) < (region->win.rayX * region->win.rayY) ) inside = 1; break; case COP_Box: if( region->rot.angle != 0.0 ) { /* rotate mouse coords into the rotated space */ ray = (rayX * region->rot.cos) + (rayY * region->rot.sin); rayY = (rayY * region->rot.cos) - (rayX * region->rot.sin); rayX = ray; } if( (rayX < region->win.rayX) && (rayX > -region->win.rayX) && (rayY < region->win.rayY) && (rayY > -region->win.rayY) ) inside = 1; break; case COP_Point: /* cursor is over point index marker (one or two 6x13 characters) */ if( (rayX >= -2) && (rayX <= 6) && (rayY <= 2) && (rayY >= (-11)) ) inside = 1; break; case COP_Ellipse: rayX *= region->ctrl.axis_ratio; ray = sqrt(SQR(rayX) + SQR(rayY)); if( (ray < region->win.rayY) && ((ray / region->ctrl.axis_ratio) < region->win.rayX) ) inside = 1; break; default: break; } return( inside ); } /* * Subroutine: pointer_is_inside_polygon * Purpose: Determine if mouse is within a polygon */ static int pointer_is_inside_polygon ( x, y, polypt, poly_cnt ) double x, y; PolyPoint *polypt; int poly_cnt; { double yi, yj, xi, xj; int i, j, crossings; crossings = 0; j = poly_cnt - 1; for( i=0; i= x) != (polypt[j].winX > x) ) { yi = polypt[i].winY; yj = polypt[j].winY; if( (yi < y) || (yj < y) ) { if( (yi < y) && (yj < y) ) crossings++; else { xi = polypt[i].winX; xj = polypt[j].winX; if( xj != xi ) { if( ((x - xj) * (yi-yj)/(xi-xj) + yj) < y ) crossings++; } } } } } if( crossings & 1 ) return(1); else return(0); } saoimage-1.08/rgnwpros.c 666 21641 13 20645 4742512252 10403 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgnwpros.c (Region Write Pros) * Purpose: Write regions to a file readable by the IRAF PROS system * Subroutine: write_regions_pros() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 July 1989 * {1} MVH made boxes write diameter, not radius 7 Dec 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {3} MVH if center, point are int, write as int 22 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* get X types and constants */ #include /* X window manager stuff, visuals */ #include "hfiles/color.h" /* gcset needed by cursor */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* define PI */ #define DEG(r) ((360.0 / TWO_PI) * (r)) #define RAD(d) ((TWO_PI / 360.0) * (d)) /* * Subroutine: write_region_pros * Purpose: Write ROSAT PROS style region description to file * Method: Recurse first to start writing from end of link list */ void write_region_pros ( fd, region ) FILE *fd; struct cursorRec *region; { static void cat_annulus(), write_annuli(), cat_shape(); /* Check for pointer before doing anything */ if( region == NULL ) return; /* Recurse for higher regions so as to reverse order */ if( region->next_region != NULL ) write_region_pros(fd, region->next_region); { /* Declare locals here so as not to put them on stack while recursing */ char line[512]; if( region->exclude_region ) line[0] = '-'; else line[0] = ' '; line[1] = '\0'; if( region->annuli ) { if( region->type == COP_Circle ) { cat_annulus (region, line); } else { write_annuli(region, line, fd); } } else { cat_shape(region, line); } (void)strcat(line, "\n"); /* And write it out */ fputs(line, fd); } } /* Subroutine: cat_shape * Purpose: Put simple PROS description of given cursor in line buffer */ static void cat_shape ( region, line ) struct cursorRec *region; char *line; { int params; void write_text_region(); static void cat_polypts(), cat_cen(), cat_params(); switch( region->type ) { case COP_Box: (void)strcat(line, "BOX("); if( region->rot.angle == 0.0 ) params = 2; else params = 3; break; case COP_Circle: (void)strcat(line, "CIRCLE("); params = 1; break; case COP_Ellipse: (void)strcat(line, "ELLIPSE("); params = 3; break; case COP_Point: (void)strcat(line, "POINT("); params = 0; break; case COP_Polygon: if( region->poly_cnt >= 3 ) { (void)strcat(line, "POLYGON("); cat_polypts(region, line); (void)strcat(line, ")"); } return; case COP_Arrow: /* Make regionless cursor appear as a comment to most region parsers */ line[1] = line[0]; line[0] = '#'; (void)strcpy(&line[2], "ARROW("); params = 3; break; case COP_Text: /* Make regionless cursor appear as a comment to most region parsers */ line[1] = line[0]; line[0] = '#'; (void)strcpy(&line[2], "TEXT("); cat_cen(region, line); write_text_region(region, line); return; default: return; } /* Put it all together */ cat_cen(region, line); cat_params(region, line, params); (void)strcat(line, ")"); } /* Subroutine: cat_params * Purpose: Add appropriate number of cursor shape parameters to * line buffer */ static void cat_params ( region, line, count ) struct cursorRec *region; char *line; int count; /* i: number of shape parameters wanted */ { char params[32]; switch( count ) { case 1: sprintf(params, ",%.2f", region->file.Xdim); break; case 2: if( region->type == COP_Box ) /* PROS software expects boxes to use diameter instead of radius */ sprintf(params, ",%.2f,%.2f", region->file.Xdim * 2.0, region->file.Ydim * 2.0); else sprintf(params, ",%.2f,%.2f", region->file.Xdim, region->file.Ydim); break; case 3: if( region->type == COP_Box ) sprintf(params, ",%.2f,%.2f,%.3f", region->file.Xdim * 2.0, region->file.Ydim * 2.0, DEG(region->rot.angle)); else sprintf(params, ",%.2f,%.2f,%.3f", region->file.Xdim, region->file.Ydim, DEG(region->rot.angle)); break; default: return; } (void)strcat(line, params); } /* * Subroutine: cat_cen * Purpose: Add center coordinates to line buffer */ static void cat_cen ( region, line ) struct cursorRec *region; char *line; { int ix, iy; char center[20]; ix = (int)region->file.X; iy = (int)region->file.Y; /* print the center */ if( ((double)ix == region->file.X) && ((double)iy == region->file.Y) ) sprintf(center, "%d,%d", ix, iy); else sprintf(center, "%.2f,%.2f", region->file.X, region->file.Y); (void)strcat(line, center); } /* * Subroutine: cat_polypts * Purpose: Add list of point coordinates to line buffer (for polygon) */ static void cat_polypts ( region, line ) struct cursorRec *region; char *line; { int i; static void cat_pt(); cat_pt((double)region->poly[0].fileX, (double)region->poly[0].fileY, line, 0); for( i=1; ipoly_cnt; i++ ) { cat_pt((double)region->poly[i].fileX, (double)region->poly[i].fileY, line, 1); } } /* * Subroutine: cat_pt * Purpose: Add given coordinates in parentheses to line buffer */ static void cat_pt ( x, y, line, comma ) double x, y; char *line; int comma; { int ix, iy; char point[20]; ix = (int)x; iy = (int)y; /* print the point's coords */ if( ((double)ix == x) && ((double)iy == y) ) { if( comma ) sprintf(point, ",%d,%d", ix, iy); else sprintf(point, "%d,%d", ix, iy); } else { if( comma ) sprintf(point, ",%.2f,%.2f", x, y); else sprintf(point, "%.2f,%.2f", x, y); } (void)strcat(line, point); } /* * Subroutine: cat_annulus * Purpose: Put a PROS style description of circular annuli on the * line buffer */ static void cat_annulus ( region, line ) struct cursorRec *region; char *line; { char radius[16]; static void cat_cen(); (void)strcat(line, "ANNULUS("); cat_cen(region, line); /* first region is not one of the annuli */ while( (region = region->next_annulus) != NULL ) { sprintf(radius, ",%.2f", region->file.Xdim); (void)strcat(line, radius); } (void)strcat(line, ")"); } /* * Subroutine: write_annuli * Purpose: Write PROS type description to produce annuli of given shapes */ static void write_annuli ( region, line, fd ) struct cursorRec *region; char *line; FILE *fd; { struct cursorRec *annulus; static struct cursorRec *cat_annular(); static void cat_shape(); /* annuli start with next_annulus (base region is not one of them) */ if( (annulus = region->next_annulus) != NULL ) { /* first line is the inner ring */ cat_shape(annulus, line); (void)strcat(line, "\n"); fputs(line, fd); line[0] = 0; while( annulus != NULL ) { annulus = cat_annular(annulus, line); /* write if there is a line, and it's not the last one */ if( (annulus != NULL) && (annulus->next_annulus != NULL) ) { (void)strcat(line, "\n"); /* and write it out */ fputs(line, fd); line[0] = 0; } } } } /* * Subroutine: cat_annular * Purpose: Add outer shape anded with not of inner shape to make * an annular ring */ static struct cursorRec *cat_annular ( region, line ) struct cursorRec *region; char *line; { static void cat_shape(); if( region->next_annulus != NULL ) { if( region->exclude_region ) line[0] = '-'; else line[0] = ' '; line[1] = '\0'; cat_shape(region->next_annulus, line); (void)strcat (line, " & !"); cat_shape(region, line); } return( region->next_annulus ); } saoimage-1.08/rgnwrite.c 666 21641 13 13651 5012620122 10345 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rgnwrite.c (Region Write) * Purpose: Write descriptions of saved regions to a file * Subroutine: write_regions() returns: void * Subroutine: timestamp() returns: void * UNIX calls: time(), asctime(), localtime(), fclose() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 July 1989 * {1} MVH removed comma from list output 7 Dec 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, FILE, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* needed for asctime() */ #include /* get X types and constants */ #include /* X window manager, visual stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/color.h" /* colors used by cursor */ #include "hfiles/cursor.h" /* define cursor parameter structures */ #include "hfiles/define.h" /* define SZ_FNAME, MIN, MAX, etc. */ #include "hfiles/image.h" /* image description structure */ #include "hfiles/edit.h" /* define EditStruct */ #include "hfiles/extern.h" /* pass common structures */ #ifndef VMS #define IRAFFILE "frame.%d.%d" #else #define IRAFFILE "frame.%d_%d" #endif char *ProsName = "saoimage.reg"; EditStruct *region_edit; /* * Subroutine: write_regions * Purpose: Write region info to a file */ void write_regions ( cursor, image, output_type ) struct cursorRec *cursor; struct imageRec *image; int output_type; /* i: SOP_Imtool or SOP_PROS */ { FILE *fd; static int last_output_type = 0; char fname[SZ_FNAME]; static void write_region_imtool(); int open_output_file(); EditStruct *init_edit_popup(); void set_path_iraf(), write_region_pros(), load_edit_struct(), timestamp(); /* return if there is nothing to write */ if( cursor->next_region == NULL ) { (void)fprintf(stderr, "WARNING: no saved cursors to write!\n"); return; } /* imtool type output is different */ if( output_type == SOP_Imtool ) { if( last_output_type != SOP_Imtool ) { /* get name of coordinate output file */ strcpy (fname,img.filename); strcat (fname,".plist"); /* sprintf(fname, IRAFFILE, 1, 1); */ /* set_path_iraf(fname); */ if( region_edit == NULL ) region_edit = init_edit_popup(fname, SZ_FNAME); else load_edit_struct(region_edit, fname, strlen(fname)); last_output_type = SOP_Imtool; } /* open coordinate output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for IRAF list:") <= 0 ) return; /* timestamp the first entry in the output file. */ /* timestamp(fd, image->filename); */ /* put in a line to explain parameter list */ /* (void)fprintf(fd, "# (x y)\n"); */ write_region_imtool(fd, cursor->next_region, image); } else { if( last_output_type != SOP_PROS ) { if( region_edit == NULL ) region_edit = init_edit_popup(ProsName, SZ_FNAME); else load_edit_struct(region_edit, ProsName, strlen(fname)); last_output_type = SOP_PROS; } /* open region output file for writing */ if( open_output_file(&fd, region_edit, 0, "Enter file name for regions:") <= 0 ) return; /* timestamp the first entry in the output file. */ timestamp(fd, image->filename); /* put in a line to explain parameter list */ (void)fprintf(fd,"# shape x, y, [x dimension, y dimension], [angle]\n"); /* write the pros region specifications */ write_region_pros(fd, cursor->next_region); } (void)fclose(fd); } /* * Subroutine: write_region_imtool * Purpose: Write region info in imtool's format (iraf "list") * Note: Output is a list of ascii pairs giving only center coords */ static void write_region_imtool ( fd, region, image ) FILE *fd; struct cursorRec *region; struct imageRec *image; { if( region != NULL ) { /* recurse first to reverse order of regions */ if( region->next_region != NULL ) write_region_imtool(fd, region->next_region, image); if( image->index_base ) (void)fprintf(fd, "%5d %5d\n", RND(region->file.X), RND(region->file.Y)); else (void)fprintf(fd, "%5d %5d\n", (int)region->file.X, (int)region->file.Y); } } /* * Subroutine: timestamp * Purpose: Write date and filename (if known) to region file */ void timestamp ( fd, imagename ) FILE *fd; char *imagename; { char line[SZ_LINE]; int len; static void set_time_string(); /* timestamp the first entry in the output file. */ set_time_string (line); /* get rid of any trailing new line */ len = MAX(0, strlen(line) - 1); if (line[len] == '\n') line[len] = '\0'; /* print file name if one is given */ if ((imagename != NULL) && (strlen(imagename)) != 0) { (void)fprintf(fd, "# %s\n", imagename); } /* print date and time */ (void)fprintf(fd, "# %s\n", line); } /* * Subroutine: set_time_string (time) * Purpose: Print the time in the passed string * UNIX calls: time(), asctime(), localtime() */ static void set_time_string ( time_string ) char *time_string; { long timeofday; #ifndef VMS /* I don't know where this should be defined, it's not in */ /* it's a time_t which is defined as a long in */ long time(); #endif timeofday = time((long *)0); /* note asctime(localtime()) can be replaced by ctime() in newer OS's */ (void)strcpy(time_string, asctime(localtime(&timeofday))); } saoimage-1.08/sclctrl.c 666 21641 13 23015 5030502310 10143 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: sclctrl.c (Scale Control) * Purpose: Construct the image-to-display map * Subroutine: select_scalemap() returns: void * Subroutine: new_scalemap() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 May 1989 * {1} MVH enable setting one limit w/o other 24 November 1989 * {2} MVH use full area for small image histogram 19 June 1991 * {n} -- -- */ #include /* get stderr */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* define MIN, MAX, DONT_CARE, etc. */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ #ifdef ANSIC static void new_histogram(); static void get_histlims ( int *histogram, int *pmin, int *pmax ); static int get_histogram_total ( int *histogram, int pmin, int pmax ); static void make_histogram ( short *shortbuf, int *histogram, int ncols, int x, y, width, height, int *area ); #else static void new_histogram(); static void get_histlims(); static int get_histogram_total(); static void make_histogram(); #endif /* * Subroutine: select_scalemap * Purpose: Respond to input from the scale menu (mostly rescaling) */ void select_scalemap () { void new_scalemap(), save_blink(); void map_panbox(), disp_panbox(), map_dispbox(), disp_dispbox(); if( (control.response[0] == SOP) && (control.response[1] != 0) ) { if( control.response[1] == SOP_Blink ) { save_blink((int)control.event.xbutton.button); } else { color.scale.mode = control.response[1]; /* make the new lookup table */ new_scalemap(); /* refill display buffers with rescaled values and display */ map_panbox(); disp_panbox(); /* panbox first because it is faster */ map_dispbox(); disp_dispbox(); } } } /* * Subroutine: new_scalemap * Purpose: Scalemap calculation for a new image */ void new_scalemap ( ) { static double cmdMin = 0.0; static double cmdMax = 0.0; static int min_given = 0; /* stored values to detect change */ static int max_given = 0; static int imtool_200 = 0; static int init = 1; /* identify first time called */ static void new_histogram(); void make_scalemap(), color_logo(); #ifdef IMTOOL void set_imtool_colors(); #endif /* if the image has been changed, recompute min, max, and histogram */ if( (buffer.mm.img_leftX != coord.id.srcX1) || (buffer.mm.img_topY != coord.id.srcY1) || (buffer.mm.img_rightX != coord.id.srcX2) || (buffer.mm.img_lowY != coord.id.srcY2) || (img.imtool_200 != imtool_200) || (min_given != buffer.min_given) || (cmdMin != buffer.cmdMin) || (max_given != buffer.max_given) || (cmdMax != buffer.cmdMax) ) { new_histogram(); min_given = buffer.min_given; max_given = buffer.max_given; cmdMin = buffer.cmdMin; cmdMax = buffer.cmdMax; imtool_200 = img.imtool_200; } /* make the scale map */ if( color.ncolors == 1 ) { color.ncolors = 256; make_scalemap(buffer.scale_min, buffer.scale_max); color.ncolors = 1; } else { make_scalemap(buffer.scale_min, buffer.scale_max); /* if this is imtool, map its graphics image levels */ if( init && (img.file_type == SOP_Logo) ) color_logo(buffer.scalemap + SCALEOFF, color.hard.blue, color.hard.yellow); #ifdef IMTOOL else if( img.imtool_200 ) set_imtool_colors(); #endif init = 0; } } /* * Subroutine: new_histogram * Purpose: Do all coordinate stuff surrounding histogram calculation * and call make_histogram */ static void new_histogram ( ) { float X1, Y1, X2, Y2; void i_transform(); /* calculate min, max, and histogram but not completely to the edges */ if( (coord.buf.Xwdth > 32) && (coord.buf.Yhght > 32) ) { if( control.verbose ) (void)printf("Assessment of window display (in 1 from edges):\n"); i_transform(&coord.imgtobuf, coord.id.srcX1 + 1, coord.id.srcY1 + 1, &X1, &Y1); i_transform(&coord.imgtobuf, coord.id.srcX2 - 1, coord.id.srcY2 - 1, &X2, &Y2); } else { if( control.verbose ) (void)printf("Assessment of window display:\n"); i_transform(&coord.imgtobuf, coord.id.srcX1, coord.id.srcY1, &X1, &Y1); i_transform(&coord.imgtobuf, coord.id.srcX2, coord.id.srcY2, &X2, &Y2); } make_histogram(buffer.shortbuf, buffer.histogram, coord.buf.width, (int)X1, (int)Y1, 1+(int)X2-(int)X1, 1+(int)Y2-(int)Y1, &buffer.hist_area); get_histlims(buffer.histogram, &buffer.scale_min, &buffer.scale_max); if( control.verbose ) { if( img.fiscaled == 0 ) { (void)printf("Pixel minimum = %d, pixel maximum = %d\n", buffer.scale_min, buffer.scale_max); } else { float fmin, fmax; fmin = (buffer.scale_min * img.fiscale) + img.fibias; fmax = (buffer.scale_max * img.fiscale) + img.fibias; (void)printf("Pixel minimum = %g, pixel maximum = %g\n", fmin, fmax); #ifdef DEBUG (void)printf("(unscaled - min: %d, max: %d)\n", buffer.scale_min, buffer.scale_max); #endif } } /* store info about this calculation for future reference */ buffer.mm.img_leftX = coord.id.srcX1; buffer.mm.img_topY = coord.id.srcY1; buffer.mm.img_rightX = coord.id.srcX2; buffer.mm.img_lowY = coord.id.srcY2; buffer.scalemap_summing = buffer.shortbuf_summing; /* allow command line limit override */ if( buffer.min_given || buffer.max_given ) { int histmin, histmax; if( buffer.min_given ) { if( img.fiscaled ) buffer.cmdmin = (buffer.cmdMin - img.fibias) / img.fiscale; else buffer.cmdmin = buffer.cmdMin; histmin = MAX(buffer.cmdmin, buffer.scale_min); buffer.scale_min = buffer.cmdmin; if( control.verbose ) (void)printf(" min clipped at %g", buffer.cmdMin); } else histmin = buffer.scale_min; if( buffer.max_given ) { if( img.fiscaled ) buffer.cmdmax = (buffer.cmdMax - img.fibias) / img.fiscale; else buffer.cmdmax = buffer.cmdMax; histmax = MIN(buffer.cmdmax, buffer.scale_max); buffer.scale_max = buffer.cmdmax; if( control.verbose ) (void)printf(" max clipped at %g for scaling\n", buffer.cmdMax); } else { histmax = buffer.scale_max; (void)printf(" for scaling\n"); } buffer.hist_area = get_histogram_total(buffer.histogram, histmin, histmax); } } /* * Subroutine: make_histogram * Purpose: Fill in a data histogram for specified buffer subsection */ #ifdef ANSIC static void make_histogram ( short *shortbuf, int *histogram, int ncols, int x, y, width, height, int *area ) { *area = width * height; memset((void *)histogram, 0, SCALEBUFSZ * sizeof(int)); #else static void make_histogram ( shortbuf, histogram, ncols, x, y, width, height, area ) short *shortbuf; /* data buffer */ int *histogram; /* histogram buffer */ int ncols; /* width of data buffer */ int x, y, width, height; /* subsection specification */ int *area; /* returned values */ { *area = width * height; bzero((char *)histogram, SCALEBUFSZ * sizeof(int)); #endif { register short *buf; register short *bufend; register int *hist; /* initialize min and max */ buf = shortbuf + (y * ncols) + x; /* offset to zero (+32768 or 0x8000) */ hist = histogram + SCALEOFF; /* if we are reading an entire array, use a simple approach */ if( ncols == width ) { bufend = buf + (*area); while( buf < bufend ) { ++hist[*buf++]; } } else { register short *lineend, *bufend; register int jump; /* if we are reading part of an array, allow for partial line */ lineend = buf + width; jump = ncols - width; bufend = buf + (height * ncols); while( buf < bufend ) { while( buf < lineend ) { ++hist[*buf++]; } buf += jump; lineend += ncols; } } } } /* * Subroutine: get_histlims * Purpose: Find the min and max non-zero entries in the histogram */ #ifdef ANSIC static void get_histlims ( int *histogram, int *pmin, int *pmax ) #else static void get_histlims ( histogram, pmin, pmax ) int *histogram; int *pmin; int *pmax; #endif { register int *hist; register int i, limit; /* offset hist to zero (+32768 or 0x8000) */ hist = histogram + SCALEOFF; /* count up to first value for min */ limit = SCALEMAX; for( i = SCALEMIN; ((i <= limit) && (hist[i] == 0)); i++ ); *pmin = i; /* count down to last value for max */ limit = SCALEMIN; for( i = SCALEMAX; ((i >= limit) && (hist[i] == 0)); i-- ); *pmax = i; } /* * Subroutine: get_histogram_total * Purpose: Find the min and max non-zero entries in the histogram */ #ifdef ANSIC static int get_histogram_total ( int *histogram, int pmin, int pmax ) #else static int get_histogram_total ( histogram, pmin, pmax ) int *histogram; int pmin; int pmax; #endif { register int *hist; register int *end; register int count; /* offset hist to zero (+32768 or 0x8000) */ hist = histogram + SCALEOFF; end = hist + pmax; hist -= pmin; count = 0; do { count += (int)(*hist); } while( ++hist <= end ); return( count ); } saoimage-1.08/sclmap.c 666 21641 13 27257 5564737753 10031 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: sclmap.c (Scale Map) * Purpose: Map image values to display screen values using various * functions * Subroutine: make_scalemap() returns: void * Copyright: 1993 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 26 May 1989 * {2} Doug Mink find range from histogram 10 November 1993 * {n} -- -- */ #include /* get stderr, NULL, etc. */ #include /* get the math definitions */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ #ifndef SUN #define expm1(a) (exp(a)-1) #endif /* * Subroutine: make_scalemap * Purpose: Make scale map according to type selected * Note: Map goes from image value to hardware value (through ideal * map value using pixels array from XAllocColors) */ void make_scalemap ( image_min, image_max ) int image_min, image_max; /* i: range of mapping for image data input */ { void histogram_equalize(); static void linear_scale(), wrap_scale(), sqrt_scale(), log_scale(); /* note the range of data for which mapping is to be calculated */ if( image_max == image_min ) ++image_max; if( image_max < image_min ) { int temp; temp = image_max; image_max = image_min; image_min = temp; } { /* fill in map below min with mincolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[0]; for( imageval = -32768; imageval < image_min; imageval++ ) lookup[imageval] = pixval; } /* create the image map straight or with some form of scaling */ switch( color.scale.mode ) { case SOP_HistEq: /* if there are levels to distribute, call the routine, else do the next */ if( color.ncolors < (image_max - image_min) ) { histogram_equalize(buffer.scalemap + SCALEOFF, buffer.histogram + SCALEOFF, buffer.hist_area, image_min, image_max, color.ncolors, color.pixvalmap); break; } /* fall through to linear if there is nothing to distribute */ case SOP_Linear: linear_scale(image_min, image_max); break; case SOP_Wrap: wrap_scale(image_min, image_max); /* don't fill in the top of map */ return; case SOP_Sqrt: sqrt_scale(image_min, image_max); break; case SOP_Log: log_scale(image_min, image_max); break; default: (void)fprintf(stderr,"Unknown scaling type request!\n"); } { /* fill in top of map with maxcolor */ register int imageval; register int pixval; register unsigned char *lookup; /* l: scalemap base (signed index) */ lookup = buffer.scalemap + SCALEOFF; pixval = color.pixvalmap[color.ncolors - 1]; for( imageval = image_max; imageval < 32768; imageval++ ) lookup[imageval] = pixval; } } /* * Subroutine: linear_scale * Purpose: Distribute color levels in the map evenly */ static void linear_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double upper_bound; int maxcolor; int level; int range_min, range_max; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; static void get_histogram_range(); range_min = image_min; range_max = image_max; if (buffer.cmdMax <= buffer.cmdMin && !img.imtool_200) { get_histogram_range (buffer.histogram, &range_min, &range_max); } lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ scale = (double)(range_max - range_min + 1) / (double)color.ncolors; imageval = image_min; pixval = pixels[0]; /* fill in at bottom if range_min > image_min */ while( imageval < range_min ) lookup[imageval++] = pixval; /* upper bound is ideal edge between colors (offset for rounding) */ upper_bound = range_min + 0.5; level = 0; while( level++ < maxcolor ) { upper_bound += scale; imagelim = (int)upper_bound; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if range_max < image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: wrap_scale * Purpose: Create the image map with a repeating linear scale * Note: Levels below image_min are not mapped */ static void wrap_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double range; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; /* input range / output range yields input cells per ouput cell */ imagelim = (image_max - image_min + 1) / color.scale.wrap_cnt; scale = (double)imagelim / (double)color.ncolors; /* start at image_min with color level = 0 */ imageval = image_min; level = 0; /* use range as floating point boundary between levels */ range = (double)imageval; while( imageval < 32768 ) { do { /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; range += scale; imagelim = (int)(range + 0.5); if( imagelim >= 32768 ) imagelim = 32767; do { lookup[imageval] = pixval; } while( ++imageval <= imagelim ); if( imageval >= 32768 ) return; } while( ++level <= maxcolor ); /* pixval at level 0 lowest color again */ level = 0; } } /* * Subroutine: sqrt_scale * Purpose: Distribute color levels in the map by a root or power function. * Method: (level / maxlevel) ranges from 0 to 1. Raise to a power. * Result curves from 0 to 1. Map result directly back to * pixel value. */ static void sqrt_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double range; double power; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; power = color.scale.root_power; ncolors = (double)color.ncolors; range = image_max - image_min + 1; imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { imagelim = image_min + (int) ((pow(((double)level / ncolors), power) * range) + 0.5); /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: log_scale * Purpose: Distribute color levels in the map by a logorithmic or * exponential curve (powers of e). */ static void log_scale ( image_min, image_max ) int image_min, image_max; /* i: limits of values in display */ { double scale; double expo; double ncolors; int maxcolor; int level; unsigned long *pixels; /* l: ideal byte to hardare byte map */ register unsigned char *lookup; /* l: scalemap base (signed offsets) */ register int imageval; register int pixval; register int imagelim; lookup = buffer.scalemap + SCALEOFF; maxcolor = color.ncolors - 1; pixels = color.pixvalmap; expo = color.scale.log_expo; ncolors = (double)color.ncolors; /* base distribution on e**n as n goes from 0 to expo (expm1 is exp()-1) */ if( color.scale.log_expo >= 0 ) { scale = (double)(image_max - image_min + 1) / expm1(expo); } else { /* negative exponents allocate more levels toward the high values */ scale = (double)(image_max - image_min + 1) / (1.0 - exp(expo)); } imageval = image_min; level = 0; /* pixval at level 0 is pixoffset (lshifted 0 is still 0) */ pixval = pixels[0]; while( level++ < maxcolor ) { if( expo > 0 ) { imagelim = image_min + (int) ((expm1(((double)level / ncolors) * expo) * scale) + 0.5); } else { imagelim = image_min + (int) ((1.0-exp(((double)level / ncolors) * expo) * scale) + 0.5); } /* limit map range to image values */ if( imagelim > image_max ) imagelim = image_max; while( imageval < imagelim ) lookup[imageval++] = pixval; /* level was inc'd after loop test, make pixval for next round */ pixval = pixels[level]; } /* fill in at top if short of image_max */ while( imageval <= image_max ) lookup[imageval++] = pixval; } /* * Subroutine: get_histogram_range * Purpose: Find a range from the peak of the pixel value distribution */ static void get_histogram_range ( histogram, imin, imax) int *histogram; int *imin; /* minimum pixel value */ int *imax; /* maximum pixel value */ { register int *hist; register int vmin; register int i; register int minhist, maxhist; float lfrac; int vpeak; int ipeak, ppeak; int pmin, pmax; int hwidth,hoff; if (buffer.lfrac <= 0 || buffer.lfrac >= 1.) return; /* offset hist to zero (+32768 or 0x8000) */ hist = histogram + SCALEOFF; /* find histogram peak */ maxhist = SCALEMAX; minhist = SCALEMIN; vpeak = 0; ipeak = 0; for( i = minhist; (i <= maxhist); i++ ) { if (hist[i] > vpeak) { ipeak = i; vpeak = hist[i]; } } /* Convert peak from histogram bin to pixel value */ if ( img.fiscaled ) ppeak = ((float) ipeak * img.fiscale) + img.fibias; else ppeak = ipeak; /* Find first pixel value at peak of histogram - lfrac */ i = ipeak; if ( buffer.lfrac > 0 ) lfrac = buffer.lfrac; else lfrac = 0.01; vmin = hist[ipeak] * lfrac; *imin = minhist; for (i = ipeak; i > minhist; i--) { if (hist[i] > 0 && hist[i] < vmin) { *imin = i+1; break; } } /* Convert range minimum from histogram bin to pixel value */ if ( img.fiscaled ) pmin = ((float) *imin * img.fiscale) + img.fibias; else pmin = *imin; /* Find last pixel value at peak of histogram - lfrac */ *imax = maxhist; for (i = ipeak; i < maxhist; i++) { if (hist[i] > 0 && hist[i] < vmin) { *imax = i - 1; break; } } /* Convert range maximum from histogram bin to pixel value */ if ( img.fiscaled ) pmax = ((float) *imax * img.fiscale) + img.fibias; else pmax = *imax; if (control.verbose) { (void)printf("Linear display autoscaled from %d to %d\n", pmin, pmax); (void)printf("Limits at %5.3f of most common value = %d\n", lfrac, ppeak); } return; } saoimage-1.08/wndwinit.c 666 21641 13 20745 4742705203 10366 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: wndwinit.c (Window Initialize) * Purpose: Create (and raise) the various windows used by ximage. * Declared: int screen_width, screen_height; * Subroutine: init_windows1() returns: void * Subroutine: init_windows2() returns: void * Subroutine: create_graphbox() returns: void * Subroutine: redraw_window() returns: void * Subroutine: raise_windows() returns: void * Xlib calls: DisplayWidth(), DisplayHeight(), XMapWindow(), XRaiseWindow() * Xlib calls: XSetTransientForHint(), XSelectInput() * Xlib calls: XCreateImage(), XDestroyImage() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 28 January 1989 * {1} MVH Revised for X11 26 April 1989 * {n} -- -- */ #include /* stderr, FILE, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ extern struct windowRec desktop; /* Root window info used by many routines */ Window root; int screen_width, screen_height; int border_color = -1; char *border_color_name = NULL; static int cmd_argc; /* i: command line arg count param */ static char **cmd_argv; /* i: command line args */ /* * Subroutine: init_windows1 * Purpose: Send request for desktop area to screen's window manager * Uses: init_desktop() in WndwDesktop.c * Uses: set_configuration() in WndwConfig.c * Uses: create_window() in WndwCreate.c * Xlib calls: DisplayWidth(), DisplayHeight(); */ void init_windows1 ( argc, argv ) int argc; /* i: command line arg count param */ char **argv; /* i: command line args */ { static void set_window_basics(); void init_desktop(), create_window(); /* set display screen parameters for all to see */ root = DefaultRootWindow(desktop.display); screen_width = DisplayWidth(desktop.display, desktop.screen); screen_height = DisplayHeight(desktop.display, desktop.screen); cmd_argc = argc; cmd_argv = argv; /* determine how much of the screen to use up and get default border color */ init_desktop(); set_window_basics(&desktop, root, (int)color.hard.std_black, (int)color.hard.std_white, NULL); create_window(&desktop, "SAOimage", argc, argv, 0, 1); } /* * Subroutine: init_windows2 * Purpose: Create the actual windows used by SAOimage. * PreState: Recieved expose event for desktop window, colors known * Uses: configure_windows() in WndwConfig.c * Uses: get_window_dimensions(), create_window() in WndwCreate.c */ void init_windows2 ( ) { static void init_window_basics(), set_border_color(); void get_window_dimensions(), configure_windowgroup(), create_window(); /* install runtime environment parameters for all windows */ if( border_color_name != NULL ) set_border_color(border_color_name); if( border_color < 0 ) border_color = (int)color.hard.std_black; init_window_basics(border_color); /* wait for expose event of desktop */ get_window_dimensions(&desktop, 1, 1); /* set up the window configurations */ configure_windowgroup (1); /* create the windows */ /* create the main display window (must be first to be group leader) */ create_window(&dispbox, "display", cmd_argc, cmd_argv, 1, 1); /* create the color bar window */ create_window(&colorbox, "color", cmd_argc, cmd_argv, 1, 1); /* create the magnifier window */ create_window(&magnibox, "magnifier", cmd_argc, cmd_argv, 1, 1); /* create the pan window */ create_window(&panbox, "pan", cmd_argc, cmd_argv, 1, 1); /* create the buttonbox window */ create_window(&btnbox, "buttons", cmd_argc, cmd_argv, 1, 1); } /* * Subroutine: create_graphbox * Purpose: Create the graphbox window (when needed, i.e. well after init) * Xlib calls: XSetTransientForHint(), XSelectInput() */ void create_graphbox ( ) { void configure_graphbox(), create_window(); /* set location of graphbox in relation to colorbox */ configure_graphbox(); /* create the color graph window (not mapped) and connect to desktop */ create_window(&graphbox, "RGBgraph", cmd_argc, cmd_argv, 1, 0); } /* * Subroutine: redraw_window * Purpose: Redraw the specified window. * Called by: control_event_loop in MainEvent.c on an Expose event. * Note: The btnbox handles its own expose events for the buttons. */ void redraw_window ( wndwID ) Window wndwID; { void disp_dispbox(), redraw_magnifier(), draw_colorbar(), label_colorbar(); void disp_panbox(), draw_cgraph(), label_color_graph(), show_filename(); void display_graphbox(); if( wndwID == dispbox.ID ) { disp_dispbox(); } else if( wndwID == magnibox.ID ) { redraw_magnifier(); } else if( wndwID == colorbox.ID ) { draw_colorbar(0); } else if( wndwID == graphbox.ID ) { /* window may be mapped by window manager */ if( graphbox.active == 0 ) display_graphbox(0, 0); else { draw_cgraph(0, 0); label_color_graph(); draw_colorbar(1); label_colorbar(); } } else if( wndwID == panbox.ID ) { disp_panbox(); } else if( wndwID == desktop.ID ) show_filename(); } /* * Subroutine: raise_windows * Purpose: Raise the window should they have been obscured * Xlib calls: XRaiseWindow() */ void raise_windows ( ) { XRaiseWindow(desktop.display, desktop.ID); if( graphbox.active ) XRaiseWindow(graphbox.display, graphbox.ID); } /* * Subroutine: init_window_basics, set_window_basics * Purpose: Set the runtime environment parameters */ static void init_window_basics ( border_pixel ) int border_pixel; { XImage *ximage; static void set_window_basics(); ximage = XCreateImage(desktop.display, color.visual, color.screen_depth, dispbox.image.format, 0, malloc(4), 2, 2, dispbox.image.bitmap_pad, (unsigned)2); set_window_basics(&dispbox, desktop.ID, border_pixel, (int)desktop.attrs.background_pixel, ximage); set_window_basics(&panbox, desktop.ID, border_pixel, (int)desktop.attrs.background_pixel, ximage); set_window_basics(&magnibox, desktop.ID, border_pixel, (int)desktop.attrs.background_pixel, ximage); set_window_basics(&btnbox, desktop.ID, border_pixel, (int)desktop.attrs.background_pixel, ximage); set_window_basics(&colorbox, desktop.ID, border_pixel, (int)desktop.attrs.background_pixel, ximage); set_window_basics(&graphbox, root, (int)desktop.attrs.border_pixel, (int)desktop.attrs.background_pixel, ximage); (void)XDestroyImage(ximage); } static void set_window_basics ( window, parent, border_pixel, background, template ) struct windowRec *window; Window parent; int border_pixel; int background; XImage *template; { window->display = color.display; window->screen = color.screen; window->parent = parent; window->depth = color.screen_depth; window->image.depth = color.screen_depth; window->visual = color.visual; window->attrs.colormap = color.colormap; if( color.map.private_used ) window->valuemask |= CWColormap; if( color.colormap_mode != VOP_Halftone ) window->image.format = ZPixmap; else window->image.format = XYBitmap; if( background >= 0 ) { window->attrs.background_pixel = (unsigned long)background; window->valuemask |= CWBackPixel; } if( border_pixel >= 0 ) { window->attrs.border_pixel = (unsigned long)border_pixel; window->valuemask |= CWBorderPixel; } if( template != NULL ) window->image.f = template->f; } /* * Subroutine: set_border_color */ static void set_border_color ( color_name ) char *color_name; { XColor colordef, ideal; /* set up default border color for all windows */ if( color_name != NULL ) { if( (color.screen_depth > 2) && XAllocNamedColor(desktop.display, color.colormap, color_name, &colordef, &ideal) ) { border_color = (int)colordef.pixel; } else { if( (strcmp(color_name, "white") == 0) ) border_color = (int)WhitePixel(desktop.display, desktop.screen); else if( (strcmp(color_name, "black") == 0) ) border_color = (int)BlackPixel(desktop.display, desktop.screen); } } } saoimage-1.08/makefile 666 21641 13 12741 5046627652 10065 # # Makefile for SAOimage # # To build: # % make aix # IBM RS/6000 running AIX # % make alliant # Alliant FX series # % make apollo # Any Apollo, software floating point # % make apollo_68882 # Apollo for MC68882 fp # % make apollo_fpa # Apollo for FPA1 # % make apollo_prism # Apollo for PRISM architecture (a88k) # % make hp # HP-UX # % make mips # MIPStation running RISCOS # % make sgi # SGI Personal Iris running Irix # % make sun # All Sun architectures, maybe software fp # % make sun_sparc # Sun SPARC # % make sun_ffpa # Sun-3 floating point accelerator # % make sun_f68881 # Sun-3 motorola f68881 floating point # % make sun_fswitch # All Suns, switchable floating point # % make ultrix # DECstation and VAXstation # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or, % make install SAOBINDIR = "/ourown/local/bindir") # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install iraf fifo's # % make install_imtoolrc # just install iraf imtoolrc file # # NOTICE: You can't run the installation targets from this umbrella makefile. # You must run the correct makefile. for the workstation you are # installing on. For instance, # # % make -f makefile.dec install # # Other options: # % make manual # make manual.dvi file in doc subdirectory # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) SAOIMAGE = saoimage oops: @echo No architecture specified. Please re-run as \"make ARCH\", \ where ARCH is one of @grep '^[a-z].*:' makefile | grep -v $@ | sed 's/:.*$$//' # It would be nicer to print out the supported architectures in a pretty # table, but the AIX awk complains that END is a syntax error, so we will # leave this out for now. # awk '{printf (" %-14.14s", $$0); np++; \ # if (np == 3) {printf ("\n"); np=0} \ # } END {if (np > 0) print ""}' # Following are targets for all the supported architecures. Note that there # is a different makefile. for each workstation manufacturer; this # is sufficient at this stage. The only changes that should be required in # selecting a particular architecture is the adjustment of the ADFLAGS macro, # which sets the architecture-dependent flags for compilation and linking. aix: # IBM RT6000 (AIX) $(MAKE) -f makefile.ibm $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-D_BSD" alliant: # Alliant FX $(MAKE) -f makefile.alnt $(SAOIMAGE) ARCH=$@ # For Apollo, note that you need ADFLAGS = -DXV11R2 for OS prior to SR10.2. # The XV11R2 flag is necessary when libX11 does not contain an entry for # "XVisualIDFromVisual"; the relevant ifdef is in clrinit.c. apollo: # Apollo, software floating pt $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-ndb -L/usr/lib/X11" apollo_68882: # Apollo, MC68882 floating pt $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-cpu,3000,-ndb -L/usr/lib/X11" apollo_fpa: # Apollo, Weitek FPA floating pt $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-cpu,FPA1,-ndb -L/usr/lib/X11" apollo_prism: # Apollo, PRISM architecture $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-cpu,a88k,-ndb -L/usr/lib/X11" apollo_a88k: $(MAKE) apollo_prism apollo_m68k: $(MAKE) apollo_68882 hp: # Hewlett-Packard (HPUX) $(MAKE) -f makefile.hp $(SAOIMAGE) ARCH=$@ mips: # MIPS, Inc. (RISCOS) $(MAKE) -f makefile.mips $(SAOIMAGE) ARCH=$@ sgi: # SGI Personal Iris (Irix) $(MAKE) -f makefile.sgi $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-I/usr/include/sun -I/usr/include/bsd" sun: # Sun generic => SPARC $(MAKE) sun_sparc sun_sparc: # Sun, sparc architecture $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ sun_f68881: # Sun3, mc68881 floating pt $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-f68881" sun_ffpa: # Sun3, ffpa floating pt $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-ffpa" sun_fswitch: # Suns, switchable fp $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-fswitch" ultrix: # DECstation/VAXstation (Ultrix) $(MAKE) -f makefile.dec $(SAOIMAGE) ARCH=$@ dec: # DEC (Ultrix) $(MAKE) ultrix # Some of the utility targets are generic enough that we can just point to # one of the architecture-specific makefiles. MAKEUTIL = makefile.dec ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: # $(MAKE) -f makefile`ls .buildarch.* | sed 's/\.buildarch//'` $@ $(MAKE) -f $(MAKEUTIL) $@ ARCFILE=$(ARCFILE) pipe: $(MAKE) -f $(MAKEUTIL) -s tar ARCFILE=- tape: $(MAKE) -f $(MAKEUTIL) tar ARCFILE=$(TAPEDEV) clean: $(MAKE) -f $(MAKEUTIL) $@ install: @echo You can\'t run install from this umbrella makefile. \ You must run the correct @echo makefile.machine for the workstation \ you are installing on. For instance, @echo @echo " % make -f makefile.dec install" manual: cd doc; latex $@ @echo $@.dvi created in `pwd`. @echo You must run a DVI translator appropriate for \ your printer, e.g., dvips. saoimage-1.08/crdinvrt.c 666 21641 13 14347 4613612772 10364 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: crdinvrt.c (Coordinate Invert) * Purpose: Compute reverse transform and unknown transform parameters * Subroutine: invert_matrix() returns: void * Subroutine: compute_iadd_invert() returns: void * Xlib calls: none * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 16 March 1988 * {n} -- -- */ #include /* stderr, NULL, etc */ #include /* get trig functions, sqrt, and fabs */ #include "hfiles/coord.h" /* Transform and other coord structs */ #define N 3 /* all matrices are 3x3 */ /* * Subroutine: invert_matrix * Purpose: Compute parameters of the inverse transform * Method: Uses LU decomposition method */ void invert_matrix ( old, new ) Transform *old, *new; { float scratch[3][3], column[3]; int pivots[3]; static void lu_decompose(), lu_backsub(); scratch[0][0] = old->inx_outx; scratch[1][0] = old->iny_outx; scratch[2][0] = old->add_outx; scratch[0][1] = old->inx_outy; scratch[1][1] = old->iny_outy; scratch[2][1] = old->add_outy; scratch[0][2] = scratch[1][2] = 0.0; scratch[2][2] = 1.0; lu_decompose(scratch, pivots); /* solve for out X */ column[1] = column[2] = 0.0; column[0] = 1.0; lu_backsub(scratch, pivots, column); new->inx_outx = column[0]; new->iny_outx = column[1]; new->add_outx = column[2]; /* solve for out Y */ column[0] = column[2] = 0.0; column[1] = 1.0; lu_backsub(scratch, pivots, column); new->inx_outy = column[0]; new->iny_outy = column[1]; new->add_outy = column[2]; } /* * Subroutine: compute_iadd_invert * Purpose: Compute the offsets used for integer transforms * Method: Uses matrix inversion */ void compute_iadd_invert ( old, new, ioff ) Transform *old, *new; float ioff; { float scratch[3][3], column[3]; int pivots[3]; static void lu_decompose(), lu_backsub(); /* set transform equations in matrix form */ scratch[0][0] = old->inx_outx; scratch[1][0] = old->iny_outx; scratch[2][0] = old->add_outx + ioff; scratch[0][1] = old->inx_outy; scratch[1][1] = old->iny_outy; scratch[2][1] = old->add_outy + ioff; scratch[0][2] = scratch[1][2] = 0.0; scratch[2][2] = 1.0; lu_decompose(scratch, pivots); /* solve for out X */ column[1] = column[2] = 0.0; column[0] = 1.0; lu_backsub(scratch, pivots, column); new->iadd_outx = column[2]; /* solve for out Y */ column[0] = column[2] = 0.0; column[1] = 1.0; lu_backsub(scratch, pivots, column); new->iadd_outy = column[2]; } /* * Subroutine: lu_decompose * Purpose: lower upper decompose matrix (in place) for matrix inversion */ static void lu_decompose ( mtrx, pivots ) float mtrx[3][3]; int pivots[3]; { int i, j, k, imax; double sum, mag, column_max; float merit; float rescale[3]; /* find the maximum values in each column */ for( i=0; i column_max ) column_max = mag; } /* save scaling value */ rescale[i] = 1.0 / column_max; } /* loop through columns for Crouts method */ for( j=0; j 0 ) { for( i=0; i 0 ) { for( k=0; k 0 ) { for( k=0; k= column_max ) { column_max = merit; imax = i; } } /* need to interchange rows? */ if( j != imax ) { for( k=0; k=0 ) { for( j=index; j=0; i-- ) { sum = result[i]; if( i < (N-1) ) { for( j=i+1; j -- -- */ #include /* define stderr, NULL */ #include /* X window stuff */ #include /* X window manager stuff */ #include "btnlib/buttons.h" #include "hfiles/constant.h" #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ extern ButtonBox MainPanel[1]; extern ButtonBox ColorPanel[1]; extern ButtonBox CursorPanel[2]; extern ButtonBox ScalePanel[1]; extern ButtonBox PanPanel[1]; extern ButtonBox EtcPanel[1]; extern ButtonBox RegionPanel[1]; extern ButtonBox CmapPanel[1]; extern ButtonBox MonoPanel[1]; /* * Subroutine: touch_submenu_button * Purpose: Make the button panel respond (as if the given button had been * clicked by the mouse) to set submenu button to agree with * current internal status */ void touch_submenu_button ( mode, action ) int mode; int action; { int button; GC set_gc_with_background(); /* set the forground and background for drawing buttons */ (void)set_gc_with_background(&color.gcset.menu, color.gcset.menu.background); switch( mode ) { case COP: if( (button = ButtonNumber(CursorPanel[0], 1, action)) >= 0 ) (void)TouchButton(CursorPanel[0], button, 0, 0); break; case ROP: if( (button = ButtonNumber(RegionPanel[0], 1, action)) >= 0 ) (void)TouchButton(RegionPanel[0], button, 0, 0); break; case VOP: if( (button = ButtonNumber(ColorPanel[0], 1, action)) >= 0 ) (void)TouchButton(ColorPanel[0], button, 0, 0); break; case MOP: if( (button = ButtonNumber(CmapPanel[0], 1, action)) >= 0 ) (void)TouchButton(CmapPanel[0], button, 0, 0); break; case BOP: if( (button = ButtonNumber(MonoPanel[0], 1, action)) >= 0 ) (void)TouchButton(MonoPanel[0], button, 0, 0); break; case SOP: if( (button = ButtonNumber(ScalePanel[0], 1, action)) >= 0 ) (void)TouchButton(ScalePanel[0], button, 0, 0); break; case ZOP: if( (button = ButtonNumber(PanPanel[0], 1, action)) >= 0 ) (void)TouchButton(PanPanel[0], button, 0, 0); break; case EOP: if( (button = ButtonNumber(EtcPanel[0], 1, action)) >= 0 ) (void)TouchButton(EtcPanel[0], button, 0, 0); break; default: break; } } /* * Subroutine: set_submenu_toggle * Purpose: Set submenu toggle button to agree with current status */ void set_submenu_toggle ( mode, action, status ) int mode; int action; int status; { int button; GC set_gc_with_background(); /* set the forground and background for drawing buttons */ (void)set_gc_with_background(&color.gcset.menu, color.gcset.menu.background); switch( mode ) { case COP: if( (button = ButtonNumber(CursorPanel[0], 1, action)) >= 0 ) (void)SetToggleButton(CursorPanel[0], button, status); break; case ROP: if( (button = ButtonNumber(RegionPanel[0], 1, action)) >= 0 ) (void)SetToggleButton(RegionPanel[0], button, status); break; case VOP: if( (button = ButtonNumber(ColorPanel[0], 1, action)) >= 0 ) (void)SetToggleButton(ColorPanel[0], button, status); break; case MOP: if( (button = ButtonNumber(CmapPanel[0], 1, action)) >= 0 ) (void)SetToggleButton(CmapPanel[0], button, status); break; case BOP: if( (button = ButtonNumber(MonoPanel[0], 1, action)) >= 0 ) (void)SetToggleButton(MonoPanel[0], button, status); break; case SOP: if( (button = ButtonNumber(ScalePanel[0], 1, action)) >= 0 ) (void)SetToggleButton(ScalePanel[0], button, status); break; case ZOP: if( (button = ButtonNumber(PanPanel[0], 1, action)) >= 0 ) (void)SetToggleButton(PanPanel[0], status, button); break; case EOP: if( (button = ButtonNumber(EtcPanel[0], 1, action)) >= 0 ) (void)SetToggleButton(EtcPanel[0], button, status); break; default: break; } } /* * Subroutine: enable_annuli_button * Purpose: Enable and disable anuulus button depending on current cursor */ void enable_annuli_button ( enable ) int enable; /* i: enable vs. disable */ { int button; static int disabled = 0; GC set_gc_with_background(); if( (button = ButtonNumber(CursorPanel[0], 1, COP_Annuli)) >= 0 ) { if( enable ) { if( disabled ) { (void)EnableButton(CursorPanel[0], button, BTNToggle); disabled = 0; } } else { if( disabled == 0 ) { (void)set_gc_with_background(&color.gcset.menu, color.gcset.menu.background); (void)SetToggleButton(CursorPanel[0], button, 0); (void)DisableButton(CursorPanel[0], button); disabled = 1; } } } } /* * Subroutine: enable_ortho_button * Purpose: Enable and disable ortho button depending on current cursor */ void enable_ortho_button ( enable ) int enable; /* i: enable vs. disable */ { int button; static int disabled = 0; if( (button = ButtonNumber(CursorPanel[0], 1, COP_Orthogonal)) >= 0 ) { if( enable ) { if( disabled ) { (void)EnableButton(CursorPanel[0], button, BTNFlash); disabled = 0; } } else { if( disabled == 0 ) { (void)DisableButton(CursorPanel[0], button); disabled = 1; } } } } /* * Subroutine: init_buttonbox_settings * Purpose: Set buttons to states corresponding to initial defaults * Note: region's buttons are set from init_region */ void init_buttonbox_settings ( ) { int button; /* cursor */ touch_submenu_button (COP, cursor.type); if( (cursor.type == COP_Polygon) || (cursor.type == COP_Point) ) { enable_annuli_button(0); enable_ortho_button(0); } else if( cursor.annuli ) { set_submenu_toggle(COP, COP_Annuli, 1); enable_ortho_button(0); } else if( cursor.type == COP_Circle ) enable_ortho_button(0); /* color */ if( color.inverse ) set_submenu_toggle(VOP, VOP_Invert, 1); if( color.halftone.inverse ) set_submenu_toggle (BOP, BOP_Invert, 1); /* set the modes */ button = ButtonNumber(ColorPanel[0], 1, VOP_Halftone); if( ((color.screen_depth <= 1) || (color.colormap_mode == VOP_Halftone)) && (button >= 0) ) { /* halftone only?, set mono and then freeze (disable) it */ (void)SetToggleButton (ColorPanel[0], button, 1); (void)DisableButton(ColorPanel[0], button); } else { /* color possible? set control mode, then set mono if chosen */ touch_submenu_button(VOP, color.control_mode); if( color.cells.overlay ) set_submenu_toggle(VOP, VOP_Overlay, 1); } if( color.halftone.mode == BOP_Diffuse ) { touch_submenu_button(BOP, BOP_Diffuse); } else if( color.halftone.matrixID == BOP_Matrix1 ) { touch_submenu_button(BOP, BOP_Matrix1); } else if( color.halftone.matrixID == BOP_Matrix2 ) { touch_submenu_button(BOP, BOP_Matrix2); } /* scale */ touch_submenu_button (SOP, color.scale.mode); /* control */ if( control.magni_track ) set_submenu_toggle(EOP, EOP_Track, 1); if( control.coord_track ) set_submenu_toggle(EOP, EOP_TextTrack, 1); if( control.verbose ) set_submenu_toggle(EOP, EOP_Verbose, 1); /* main menu */ if( (button = ButtonNumber(MainPanel[0], 0, control.mode)) >= 0 ) (void)TouchButton(MainPanel[0], button, 0, 0); } saoimage-1.08/grphgrab.c 666 21641 13 20335 4613616667 10326 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphgrab.c (Color Graph Grab Vertex) * Purpose: Get or drop a color graph vertex as per a mouse button event * Subroutine: grab_cgraph_vertex() returns: void * Subroutine: drop_cgraph_vertex() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 June 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ #include "hfiles/cgraph.h" #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ extern struct cgraphRec cgraph; #define GRAB_RANGE 8 /* radius in screen pixels within which to grab mark */ /* * Subroutine: grab_cgraph_vertex * Purpose: When a mouse button is pressed, assign a vertex to that button */ void get_cgraph_vertex ( event ) XEvent *event; { static void get_color_vertex(); switch( event->xbutton.button ) { case Button1: /* note: Sun compiler sometimes muffs these pointers */ get_color_vertex(event->xbutton.x, event->xbutton.y, &(cgraph.red)); cgraph.red.active = 1; break; case Button2: get_color_vertex(event->xbutton.x, event->xbutton.y, &(cgraph.green)); cgraph.green.active = 1; break; case Button3: get_color_vertex(event->xbutton.x, event->xbutton.y, &(cgraph.blue)); cgraph.blue.active = 1; break; } } /* * Subroutine: drop_cgraph_vertex * Purpose: Delete a vertex if one is under the mouse pointer for drop * event * Returns: 1 if a vertex was dropped, else 0 */ int drop_cgraph_vertex ( event ) XEvent *event; { static int drop_color_vertex(); switch( event->xbutton.button ) { case Button1: return( drop_color_vertex(&cgraph.red, event->xbutton.x, event->xbutton.y) ); case Button2: return( drop_color_vertex(&cgraph.green, event->xbutton.x, event->xbutton.y) ); case Button3: return( drop_color_vertex(&cgraph.blue, event->xbutton.x, event->xbutton.y) ); default: return( 0 ); } } /* * Subroutine: get_color_vertex * Purpose: Handle grab vertex event for single color * Method: Grab old vertex or make new vertex - under mouse pointer */ static void get_color_vertex ( x, y, col ) int x, y; struct colgRec *col; { void install_draw_queue_end(); static int grab_old_color_vertex(); static void install_new_color_vertex(); /* clip against limits */ if( x < cgraph.graph.xzero ) x = cgraph.graph.xzero; else if( x > cgraph.graph.xmax ) x = cgraph.graph.xmax; if( y < cgraph.graph.yzero ) y = cgraph.graph.yzero; else if( y > cgraph.graph.ymax ) y = cgraph.graph.ymax; if( grab_old_color_vertex(x, y, col) == 0 ) install_new_color_vertex(x, y, col); install_draw_queue_end(col); } /* * Subroutine: grab_old_color_vertex * Purpose: Check to see if position is close to an existing hash mark. * If so, set active markers. * Returns: 1 if a vertex was grabbed, else 0 */ static int grab_old_color_vertex ( x, y, col ) int x, y; struct colgRec *col; { int i, match; XRectangle *hash; hash = col->hash; if( col->hash_cnt <= 0 ) return( 0 ); /* hash mark positions are upper left corner of hash box */ x -= HASH_RAY; y -= HASH_RAY; match = -1; /* loop to look for close vertices */ for( i = 0; i < col->hash_cnt; i++) { if( (abs(hash[i].x - x) < GRAB_RANGE) && (abs(hash[i].y - y) < GRAB_RANGE) ) { if( match < 0 ) { match = i; } else if( (SQR(hash[match].x - x) + SQR(hash[match].y - y)) > (SQR(hash[i].x - x) + SQR(hash[i].y - y)) ) { /* if not only point within range, compare */ match = i; } } } if( match >= 0 ) { col->active_hash = match; /* hash marks may be a contiguous subset of vertexes, use offset */ col->active_vertex = match + col->hash_0; return( 1 ); } else return( 0 ); } /* * Subroutine: install_new_color_vertex * Purpose: Given hash position, install a new vertex, and make active */ static void install_new_color_vertex ( x, y, col ) int x, y; /* i: position of ULcorner of new hash mark */ struct colgRec *col; /* i: color info structure for one color */ { double intensity, cell_level; int match; int select_best_hash_position(); static void add_color_vertex(), add_color_vertex_hash(); col->active_hash = select_best_hash_position(x, y, col->hash, col->hash_cnt, &match, cgraph.vertical); col->active_vertex = col->active_hash + col->hash_0; if( match >= 0 ) { /* new vertex must have same level as an existing one */ cell_level = col->table->cell_level[match + col->hash_0]; } else { if( cgraph.vertical ) cell_level = (cgraph.hash.Ymax - (double)(y - HASH_RAY)) / cgraph.hash.Yheight; else cell_level = ((double)(x - HASH_RAY) - cgraph.hash.Xzero) / cgraph.hash.Xwidth; if( cell_level > 1.0 ) cell_level = 1.0; else if( cell_level < 0.0 ) cell_level = 0.0; } if( cgraph.vertical ) intensity = ((double)(x - HASH_RAY) - cgraph.hash.Xzero) / cgraph.hash.Xwidth; else intensity = (cgraph.hash.Ymax - (double)(y - HASH_RAY)) / cgraph.hash.Yheight; if( intensity > 1.0 ) intensity = 1.0; else if( intensity < 0.0 ) intensity = 0.0; add_color_vertex(col->table, col->active_vertex, cell_level, intensity); add_color_vertex_hash(col, col->active_hash, x, y); col->unset = 1; } /* * Subroutine: add_color_vertex * Purpose: Install new vertex in a color subtableRec. */ static void add_color_vertex ( table, index, new_cell_level, new_intensity ) struct subtableRec *table; /* i/o: table structure for one color */ int index; /* i: index of new vertex */ double new_cell_level; /* i: cell_level and intensity of new vertex */ double new_intensity; { register int i, j; int count = table->vertex_cnt; double *cell_level = table->cell_level; double *base_level = table->base_level; double *intensity = table->intensity; /* make room for the new entry */ for( i = count, j=i-1; i > index; i=j, j-- ) { cell_level[i] = cell_level[j]; base_level[i] = base_level[j]; intensity[i] = intensity[j]; } /* install the new entry */ cell_level[i] = new_cell_level; base_level[i] = (new_cell_level - table->bias) / table->contrast; intensity[i] = new_intensity; ++(table->vertex_cnt); } /* * Subroutine: add_color_vertex_hash * Purpose: Add a new hash mark */ static void add_color_vertex_hash ( col, index, x, y ) struct colgRec *col; int index; int x, y; { register int i, j; XRectangle *hash; int hash_cnt; hash_cnt = col->hash_cnt; hash = col->hash; for( i = hash_cnt, j = i - 1; i > index; i = j, j-- ) { hash[i].x = hash[j].x; hash[i].y = hash[j].y; } hash[i].x = x - HASH_RAY; hash[i].y = y - HASH_RAY; ++(col->hash_cnt); } /* * Subroutine: drop_color_vertex * Purpose: Delete a color table vertex if one is under the mouse position * Returns: 1 if vertex was dropped, else 0 */ static int drop_color_vertex ( col, x, y ) struct colgRec *col; int x, y; { static int grab_old_color_vertex(); /* hash mark positions are upper left corner of hash box */ x -= HASH_RAY; y -= HASH_RAY; if( grab_old_color_vertex(x, y, col) ) { register int i, j; { int count = col->table->vertex_cnt; double *cell_level = col->table->cell_level; double *base_level = col->table->base_level; double *intensity = col->table->intensity; for( i = col->active_vertex, j=i+1; j < count; i=j, j++ ) { cell_level[i] = cell_level[j]; base_level[i] = base_level[j]; intensity[i] = intensity[j]; } --(col->table->vertex_cnt); } { int count = col->hash_cnt; XRectangle *hash = col->hash; for( i = col->active_hash, j=i+1; j < count; i=j, j++ ) { hash[i].x = hash[j].x; hash[i].y = hash[j].y; } --(col->hash_cnt); } col->unset = 1; return( 1 ); } else return( 0 ); } saoimage-1.08/mgfytabl.c 666 21641 13 21542 4613631232 10321 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mgfytabl.c (Magnify Table) * Purpose: print a table of image values on the screen * Subroutine: print_table() returns: void * Copyright: 1989, 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Note: Based on code by Bill Wyatt's showimg * Modified: {0} Michael VanHilst initial version 29 September 1988 * {1} MVH redone for modularity, was ImageTable.c 21 Feb 1990 * {n} -- -- */ #include /* get stderr */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ /* * Subroutine: print_table * Purpose: Print out the values of memory image given the event * coordinates * Note: Uses event coords in control struct (control.event.xkey) */ void print_table () { int bufx, bufy; int filex, filey; int xarray[16]; int yarray[16]; int table_size; int col_width; int rot; static int get_key_buf_coords(), set_table_params(); static void output_column_labels(), output_pixval_table(); /* determine the buffer coordinates of the event */ if( get_key_buf_coords(&control.event.xkey, &bufx, &bufy) == 0 ) { (void)printf("SORRY: portion of image not in buffer.\n"); return; } /* note if there is something special about the values */ if( buffer.shortbuf_summing > 1 ) { (void)printf("Image buffer has summed values:\n"); (void)printf("Each pixel summed from %d by %d square of pixels in file\n", coord.fb.block, coord.fb.block); (void)printf("Square starts at file coordinates shown in table\n"); } /* set a table size that fits with the word size needed */ if( img.fiscaled ) { table_size = 7; col_width = 10; } else { table_size = 11; col_width = 6; } /* decide which pixels and get the relevant file coordinates */ rot = set_table_params(bufx, bufy, table_size, table_size, xarray, yarray); filex = xarray[table_size]; filey = yarray[table_size]; /* identify the pixel and note any coordinate oddities */ (void)printf("\n\nFile Column: %d, Row: %d\n", filex, filey); if( rot > 1 ) { (void)printf("WARNING: image coordinates rotated from file\n"); (void)printf(" Table labels give image buffer offsets\n"); filex = 0; filey = 0; } else if( rot > 0 ) { (void)printf("Image is orthogonally rotated from file\n"); (void)printf(" File rows read across, file columns read up and down\n"); } /* make the table header line */ output_column_labels(xarray, table_size, col_width, filex); /* print a table of values in a table_size x table_size picture region */ output_pixval_table(xarray, yarray, table_size, table_size, col_width, xarray[table_size + 1], yarray[table_size + 1], filex, filey); } /* * Subroutine: get_key_buf_coords * Purpose: Determine the buffer coordinates of the pixel identified * with a key event. * Returns: 1 if the pixel is in the image data buffer, else 0. */ static int get_key_buf_coords ( xkey, bufX, bufY ) XKeyEvent *xkey; int *bufX, *bufY; { float x, y; void i_transform(), d_transform(); /* translate event to buffer coordinates */ if( xkey->window == dispbox.ID ) { i_transform(&coord.disptobuf, xkey->x, xkey->y, &x, &y); } else if( xkey->window == panbox.ID ) { i_transform(&coord.pantoimg, xkey->x, xkey->y, &x, &y); d_transform(&coord.imgtobuf, (double)x, (double)y, &x, &y); } else return; *bufX = (int)x; *bufY = (int)y; /* check if within buffer */ if ((*bufX < 0) || (*bufX >= coord.buf.width) || (*bufY < 0) || (*bufY >= coord.buf.height) ) return( 0 ); return( 1 ); } /* * Subroutine: output_column_labels * Purpose: Print a line of column indexes and underline it. */ static void output_column_labels ( xarray, cols, col_width, filex ) int xarray[]; /* array of column labels */ int cols; /* number of cols */ int col_width; /* width of each column */ int filex; /* given coord to be highlighted */ { int i; char format[32]; /* space down and start next line over from row labels */ (void)printf("\n "); /* print the column numbers */ for( i=0; i and the row label (reverse video if chosen row) */ if( yarray[j] == filey ) (void)printf("\n %c[7m%4d%c[0m |", 27, yarray[j], 27); else (void)printf("\n%5d |", yarray[j]); /* print the data */ for( i=0; i 0 ) *string = '>'; else *string = '<'; } else *string = ' '; } if( (xarray[i] == filex) && (yarray[j] == filey) ) (void)printf("%c[7m%s%c[0m", 27, string, 27); else (void)printf("%s", string); } } (void)printf("\n"); } /* * Subroutine: set_table_params * Purpose: Put pixval table parameters in the x and y arrays * 0 to (dim-1) has file coords, * _array[dim]: main file coord, _array[dim+1]: starting buf coord */ static int set_table_params ( bufx, bufy, xdim, ydim, xarray, yarray ) int bufx, bufy; int xdim, ydim; int *xarray, *yarray; { float x0, x1, x2, y0, y1, y2; int xinc, yinc; int fx0, fx1, fx2, fy0, fy1, fy2; int bufx0, bufy0, bufoff; int i, rot; void i_transform(); /* determine starting buffer position */ bufoff = (xdim - 1) / 2; bufx0 = bufx - bufoff; if( bufx0 < 0 ) bufx0 = 0; else if( (bufoff = bufx0 + xdim - coord.buf.width) > 0 ) bufx0 -= bufoff; bufoff = (ydim - 1) / 2; bufy0 = bufy - bufoff; if( bufy0 < 0 ) bufy0 = 0; else if( (bufoff = bufy0 + ydim - coord.buf.height) > 0 ) bufy0 -= bufoff; /* store the coordinates of the first buffer element */ xarray[xdim+1] = bufx0; yarray[ydim+1] = bufy0; /* set buf0 to offset from focus pixel */ bufx0 = bufx0 - bufx; bufy0 = bufy0 - bufy; /* determine file coordinates of focus and two other pixels */ i_transform (&coord.buftofile, bufx, bufy, &x0, &y0); i_transform (&coord.buftofile, bufx+1, bufy, &x1, &y1); i_transform (&coord.buftofile, bufx, bufy+1, &x2, &y2); if( coord.file.ioff > 0.1 ) { fx0 = (int)x0; fy0 = (int)y0; fx1 = (int)x1; fy1 = (int)y1; fx2 = (int)x2; fy2 = (int)y2; } else { fx0 = (int)(x0 + 0.5); fy0 = (int)(y0 + 0.5); fx1 = (int)(x1 + 0.5); fy1 = (int)(y1 + 0.5); fx2 = (int)(x2 + 0.5); fy2 = (int)(y2 + 0.5); } /* store the focus coordinates */ xarray[xdim] = fx0; yarray[ydim] = fy0; /* determine the file increments along both axes and rotation */ if( (fx1 != fx0) && (fy1 == fy0) ) { xinc = fx1 - fx0; yinc = fy2 - fy0; rot = 0; } else if( (fx2 != fx0) && (fy2 = fy0) ) { xinc = fx2 - fx0; yinc = fy1 - fy0; rot = 1; } else { for( i=0; i -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ #include "hfiles/cgraph.h" /* color graph structs */ extern struct cgraphRec cgraph; /* * Subroutine: mark_colorline_overlap * Purpose: Make line representing more than one color black (or white) */ void mark_colorline_overlap ( ) { int i, j; int x, y; int x1, y1; XSegment line[256]; static void mark_hashmark_overlap(); j = 0; if( cgraph.vertical ) { /* if vertical */ x1 = -1; y1 = 0; /* not really needed, but lint will complain */ for( i = 0; i < cgraph.point_cnt; i++ ) { if( ((x = cgraph.red.line[i].x) == cgraph.green.line[i].x) || ((x = cgraph.green.line[i].x) == cgraph.blue.line[i].x) || ((x = cgraph.blue.line[i].x) == cgraph.red.line[i].x) ) { if( x1 >= 0 ) { /* start overlap section */ line[j].x1 = x1; line[j].y1 = y1; line[j].x2 = x; line[j].y2 = cgraph.red.line[i].y; j++; } x1 = x; y1 = cgraph.red.line[i].y; } else x1 = -1; } } else { /* if horizontal */ x1 = 0; /* not really needed, but lint will complain */ y1 = -1; for( i = 0; i < cgraph.point_cnt; i++ ) { if( ((y = cgraph.red.line[i].y) == cgraph.green.line[i].y) || ((y = cgraph.green.line[i].y) == cgraph.blue.line[i].y) || ((y = cgraph.blue.line[i].y) == cgraph.red.line[i].y) ) { if( y1 >= 0 ) { /* start overlap section */ line[j].x1 = x1; line[j].y1 = y1; line[j].x2 = cgraph.red.line[i].x; line[j].y2 = y; j++; } x1 = cgraph.red.line[i].x; y1 = y; } else y1 = -1; } } if( j > 0 ) { GC gc, set_gc(); gc = set_gc(cgraph.black); XDrawSegments(cgraph.graph.display, cgraph.graph.ID, gc, line, j); mark_hashmark_overlap(); } } /* * Subroutine: mark_hashmark_overlap * Purpose: Make hashmarks which represent more than one color black */ static void mark_hashmark_overlap ( ) { int ri, bi, gi, j; int red_cnt, blue_cnt, green_cnt; int x, y; XRectangle hash[256]; bi = 0; gi = 0; j = 0; red_cnt = cgraph.red.hash_cnt; blue_cnt = cgraph.blue.hash_cnt; green_cnt = cgraph.green.hash_cnt; if( cgraph.vertical ) { /* catch matches between red and another */ for( ri = 0; ri < red_cnt; ri++ ) { x = cgraph.red.hash[ri].x; y = cgraph.red.hash[ri].y; while( (bi < blue_cnt) && (cgraph.blue.hash[bi].y > y) ) bi++; if( (x == cgraph.blue.hash[bi].x) && (y == cgraph.blue.hash[bi].y) ) { hash[j].x = x; hash[j].y = y; hash[j].width = HASH_SZ; hash[j].height = HASH_SZ; j++; } else { while( (gi < green_cnt) && (cgraph.green.hash[gi].y > y) ) gi++; if( (x == cgraph.green.hash[gi].x) && (y == cgraph.green.hash[gi].y) ) { hash[j].x = x; hash[j].y = y; hash[j].width = HASH_SZ; hash[j].height = HASH_SZ; j++; } } } gi = 0; ri = 0; /* catch matches between blue and green and not red */ for( bi = 0; bi < blue_cnt; bi++ ) { x = cgraph.blue.hash[bi].x; y = cgraph.blue.hash[bi].y; while( (gi < green_cnt) && (cgraph.green.hash[gi].y > y) ) gi++; if( (x == cgraph.green.hash[gi].x) && (y == cgraph.green.hash[gi].y) ) { while( (ri < red_cnt) && (cgraph.red.hash[ri].y > y) ) ri++; if( (x != cgraph.red.hash[ri].x) || (y == cgraph.red.hash[ri].y) ) { hash[j].x = x; hash[j].y = y; hash[j].width = HASH_SZ; hash[j].height = HASH_SZ; j++; } } } } else { /* catch matches between red and another */ for( ri = 0; ri < red_cnt; ri++ ) { x = cgraph.red.hash[ri].x; y = cgraph.red.hash[ri].y; while( (bi < blue_cnt) && (cgraph.blue.hash[bi].x < x) ) bi++; if( (x == cgraph.blue.hash[bi].x) && (y == cgraph.blue.hash[bi].y) ) { hash[j].x = x; hash[j].y = y; hash[j].width = HASH_SZ; hash[j].height = HASH_SZ; j++; } else { while( (gi < green_cnt) && (cgraph.green.hash[gi].x < x) ) gi++; if( (x == cgraph.green.hash[gi].x) && (y == cgraph.green.hash[gi].y) ) { hash[j].x = x; hash[j].y = y; hash[j].width = HASH_SZ; hash[j].height = HASH_SZ; j++; } } } gi = 0; ri = 0; /* catch matches between blue and green and not red */ for( bi = 0; bi < blue_cnt; bi++ ) { x = cgraph.blue.hash[bi].x; y = cgraph.blue.hash[bi].y; while( (gi < green_cnt) && (cgraph.green.hash[gi].x < x) ) gi++; if( (x == cgraph.green.hash[gi].x) && (y == cgraph.green.hash[gi].y) ) { while( (ri < red_cnt) && (cgraph.red.hash[ri].x < x) ) ri++; if( (x != cgraph.red.hash[ri].x) || (y == cgraph.red.hash[ri].y) ) { hash[j].x = x; hash[j].y = y; hash[j].width = HASH_SZ; hash[j].height = HASH_SZ; j++; } } } } if( j > 0 ) { GC gc, set_gc(); gc = set_gc(cgraph.black); XDrawRectangles(cgraph.graph.display, cgraph.graph.ID, gc, hash, j); } } saoimage-1.08/grphline.c 666 21641 13 17375 4613617171 10343 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphline.c (Color Graph Line) * Purpose: Assemble lines and hash marks for the color graph * Subroutine: init_cgraph_lines() returns: void * Subroutine: set_cgraph_line() returns: void * Subroutine: init_cgraph_bars() returns: void * Subroutine: set_cgraph_bar() returns: void * Subroutine: init_cgraph_hash() returns: void * Subroutine: set_cgraph_hash() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 11 June 1989 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* color structs */ #include "hfiles/cgraph.h" /* color graph structs */ extern struct cgraphRec cgraph; /* * Subroutine: init_cgraph_lines * Purpose: Set the fixed color_linegraph coordinates (aligning segments * with the corresponding colorbar stripe) */ void init_cgraph_lines ( rline, gline, bline ) XPoint rline[]; XPoint gline[]; XPoint bline[]; { double inc; /* l: ideal increment from one point to the next */ register int i; if( cgraph.vertical ) { double Y; /* vertical */ inc = cgraph.graph.Yinc; Y = (double)cgraph.graph.yzero + (inc / 2.0); for( i=0; i=0; i--, j++ ) line[i].x = xzero + (int)(cellmap[j] * Xwidth); } else { double Yheight = cgraph.graph.Yheight; int ymax = cgraph.graph.ymax; /* horizontal */ for( i=0; i=0; i--, j-=2 ) { x = xzero + (int)(cellmap[i] * Xwidth); line[j].x = x; line[j+1].x = x; } } else { double Yheight = cgraph.graph.Yheight; int ymax = cgraph.graph.ymax; register int y; /* horizontal */ for( i=0, j=0; icell_level; intensity = table->intensity; vertex_cnt = table->vertex_cnt; for( i=0; i -- -- */ /* Subroutine: xflip_buf * Purpose: Flip buf to make Y coordinates run in opposite direction * (upside down) */ #ifdef ANSIC void xflip_buf ( short *buf, int cols, int rows ) #else void xflip_buf ( buf, cols, rows ) short *buf; int cols, rows; #endif { register int bytes; short *linebuf; short *toprow, *botrow; char *calloc_errchk(); linebuf = (short *)calloc_errchk(cols, sizeof(short), "Temp line"); toprow = buf; botrow = buf + ((rows - 1) * cols); bytes = cols * sizeof(short); while( toprow < botrow ) { #ifdef ANSIC (void)memcpy((void *)linebuf, (void *)botrow, (size_t)bytes); (void)memcpy((void *)botrow, (void *)toprow, (size_t)bytes); (void)memcpy((void *)toprow, (void *)linebuf, (size_t)bytes); #else bcopy((char *)botrow, (char *)linebuf, bytes); bcopy((char *)toprow, (char *)botrow, bytes); bcopy((char *)linebuf, (char *)toprow, bytes); #endif toprow += cols; botrow -= cols; } free((char *)linebuf); } /* Subroutine: yflip_buf * Purpose: Mirror buf to make x coordinates run in opposite direction */ #ifdef ANSIC void yflip_buf ( short *buf, int cols, int rows ) #else void yflip_buf ( buf, cols, rows ) short *buf; int cols, rows; #endif { short *row; register short *right, *left; int wdth; int i; short temp; row = buf; wdth = cols - 1; for( i=0; i -- -- */ #include /* stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #define strchr index #define strrchr rindex #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define SZ_FNAME */ #include "hfiles/constant.h" /* constants and codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ extern struct windowRec desktop; /* Subroutine: new_display * Purpose: Create all image coordinate parameters from the beginning * and take care of all that might be affected */ void new_display ( dispnow, clear, load, scale ) int dispnow; /* i: put-display-in-window-now flag */ int clear; /* i: clear img buf before reading flag */ int load; /* i: load-the-buffer flag */ int scale; /* i: make-new-scalemap flag (must have load) */ { void set_disptran(), new_pancursor(), new_scalemap(); void combine_transform(), set_edges(), set_dispoff(), set_magnifier(); void adjust_cursor_coords(), map_dispbox(), disp_dispbox(); static void load_mainbuf(); /* Set disp to img and disp to file transforms */ set_disptran(&coord); /* If the buffer needs new contents, fill it */ if( load || coord.buferror ) { /* Load main buffer and set related coordinate parameters */ load_mainbuf(clear); /* Set up or redraw the panbox cursor */ new_pancursor(0); /* If none exists, set up buffer-to-display scaling map(s) */ if( scale ) new_scalemap(); } /* Set transform to get from disp to buf coords */ combine_transform(&coord.disptobuf, &coord.disptoimg, &coord.imgtobuf); set_edges(&coord.disptobuf, &coord.buf, &coord.disp, &coord.bd); /* Redefine the edges in the display window if at edge of buffer */ if( (coord.bd.block < 0) || (coord.bd.clip != 0) ) set_dispoff(&coord.disptobuf, &coord.disp, &coord.bd); /* Update cursor and magnifier info to correspond to current display */ adjust_cursor_coords(&cursor, &coord); set_magnifier(); /* Fill display buffer with new display image */ map_dispbox(); if( dispnow ) /* Display the image */ disp_dispbox(); } /* Subroutine: load_mainbuf * Purpose: Set buf related coords and load image data into main buffer */ static void load_mainbuf ( clear ) int clear; { int zoom; void set_buftran(), set_fbuftran(), load_image(), show_filename(); /* Select appropriate buffer contents in image field and file coords */ set_buftran(&coord); /* Set file data buffer transform */ set_fbuftran(&img, &coord.buf, &coord.fbuf, &coord.buftofbuf); /* Announce the loading */ if( control.verbose ) (void)printf("Loading new image data into main buffer, please wait.\n"); /* Clear the buffer */ if( clear ) { bzero((char *)buffer.shortbuf, buffer.shortbuf_sz * sizeof(short)); /* need to zero file buffer too? bzero((char *)buffer.filebuf, buffer.filebuf_sz); */ } /* Load the image */ load_image(&coord.fb, &coord.buf, &coord.buftofile, buffer.shortbuf, buffer.filebuf, buffer.shortbuf_square, buffer.shortbuf_double); coord.buferror = 0; /* Set the summed value compensation flag */ if( (img.block_type == SOP_ZoomSum) && ((zoom = coord.fb.block) > 1) ) buffer.shortbuf_summing = zoom * zoom; else buffer.shortbuf_summing = 1; /* Free data buffer if we don't need to keep it */ if( (!img.buffix) && ((char *)buffer.shortbuf != buffer.filebuf) ) { free( buffer.filebuf ); buffer.filebuf = NULL; buffer.filebuf_sz = 0; } show_filename(); } /* Subroutine: new_panimage * Purpose: Read image data into the panbox short buffer */ void new_panimage () { int block; void load_image(), copy_buf_replicate(), copy_buf_max(), map_panbox(); buffer.panbuf_summing = 1; block = coord.fp.block; /* If main buffer does not cover entire image, read from the file */ if( coord.bufcheck ) { if( control.verbose ) (void)printf("Loading image data for wide view panning window.\n"); /* Load in image data directly (%% warning, rework is needed aka filebuf */ load_image(&coord.fp, &coord.pan, &coord.pantofile, buffer.panbuf, buffer.filebuf, 0, 0); if( img.block_type == SOP_ZoomSum ) buffer.panbuf_summing = block * block; } else { if( coord.pantoimg.inx_outx < 1.0 ) { copy_buf_replicate(buffer.shortbuf, buffer.panbuf, coord.pantoimg.ixzoom, coord.buf.width, coord.pan.Xwdth, coord.pan.Yhght); } else { if( (block = (int)coord.pantoimg.inx_outx) > 1 ) { /* Subzoom, blockaverage or zoommax may be used */ switch( img.panbox_zoomtype ) { case SOP_ZoomSamp: copy_buf_subsample(buffer.shortbuf, buffer.panbuf, block, coord.buf.width, coord.pan.Xwdth, coord.pan.Yhght); break; case SOP_ZoomSum: copy_buf_sum(buffer.shortbuf, buffer.panbuf, block, 0, coord.buf.width, coord.pan.Xwdth, coord.pan.Yhght); break; case SOP_ZoomAv: copy_buf_sum(buffer.shortbuf, buffer.panbuf, block, 1, coord.buf.width, coord.pan.Xwdth, coord.pan.Yhght); break; case SOP_ZoomMax: default: copy_buf_max(buffer.shortbuf, buffer.panbuf, block, coord.buf.width, coord.pan.Xwdth, coord.pan.Yhght); break; } } else { bcopy((char *)buffer.shortbuf, (char *)buffer.panbuf, coord.pan.Xwdth * coord.pan.Yhght * sizeof(short)); } } /* Same zoom summing as buffer */ buffer.panbuf_summing = buffer.shortbuf_summing; } /* Calculate the max value in the buffer for scaling purposes */ if( img.block_type == SOP_ZoomSum ) { register int buf_max; register short *buf, *bufend; buf = buffer.panbuf; bufend = buf + (panbox.xwidth * panbox.yheight * sizeof(short)); buf_max = *buf; while( buf < bufend ) { if( *buf > buf_max ) buf_max = *buf; buf++; } buffer.panbuf_max = buf_max; } /* Map the short data into the display buffer */ map_panbox(); } /* Subroutine: show_filename * Purpose: Print the image file name in the desktop */ void show_filename ( ) { int len, dir_len, file_len; int dir_x, dir_y, file_y; char *dir_end; char dir_string[SZ_FNAME]; char file_string[SZ_FNAME]; static XFontStruct *fontstruct = NULL; GC gc, set_edit_gc(); XFontStruct *get_fontstruct(); if( fontstruct == NULL ) fontstruct = get_fontstruct(1); file_y = 2 * fontstruct->ascent; dir_y = file_y + fontstruct->ascent + fontstruct->descent; dir_x = 5; XClearArea(desktop.display, desktop.ID, 0, 0, panbox.x, btnbox.y, False); if( (img.filename != NULL) && ((len = strlen(img.filename)) > 0) ) { if( (img.file_type == SOP_Imtool) || (img.file_type == SOP_PROS) ) { dir_len = strlen(strcpy(dir_string, "(IRAF)")); file_len = strlen(strcpy(file_string, img.filename)); } else { #ifndef VMS (void)strcpy(file_string, "file: "); if( (dir_end = strrchr(img.filename, '/')) == NULL ) { (void)strcpy(dir_string, "dir: ."); dir_len = 6; (void)strcat(file_string, img.filename); file_len = len + 6; } else { (void)strcpy(dir_string, "dir: "); dir_len = dir_end - img.filename; (void)strncat(dir_string, img.filename, dir_len); dir_len += 5; (void)strcat(file_string, dir_end+1); file_len = 10 + len - dir_len; } #else /* Parse VMS-style directory/filename */ (void)strcpy(file_string, "file: "); (void)strcpy(dir_string, "dir: "); if( (dir_end = strrchr(img.filename, '/')) == NULL ) if( (dir_end = strrchr(img.filename, ']')) == NULL ) dir_end = strrchr(img.filename, ':'); if( dir_end == NULL ) { (void)strcat(dir_string, "[]"); (void)strcat(file_string, img.filename); } else { dir_len = dir_end - img.filename + 1; (void)strncat(dir_string, img.filename, dir_len); (void)strcat(file_string, dir_end+1); } dir_len = strlen(dir_string); file_len = strlen(file_string); #endif } gc = set_edit_gc(fontstruct->fid, color.gcset.menu.foreground, color.gcset.menu.background); XDrawImageString(desktop.display, desktop.ID, gc, dir_x, file_y, file_string, file_len); XDrawImageString(desktop.display, desktop.ID, gc, dir_x, dir_y, dir_string, dir_len); } } saoimage-1.08/grphtext.c 666 21641 13 24630 4613617451 10371 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: grphtext.c (Color Graph Text) * Purpose: Initialize or reset color bar and graph * Subroutine: init_colorbar_label() returns: void * Subroutine: init_color_graph_label() returns: void * Subroutine: create_cgraph_box() returns: Window * Xlib calls: XMoveWindow(), XResizeWindow(), XMapWindow(), XCreateWindow() * Xlib calls: XTextWidth() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 22 June 1989 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/cgraph.h" extern struct cgraphRec cgraph; /* * Subroutine: init_color_graph_label * Purpose: Set labeling pieces according to the graph window size * Xlib calls: XMoveWindow(), XResizeWindow(), XMapWindow() */ void init_color_graph_label ( ) { int new = 0; int move = 0; int resize = 0; Window create_cgraph_box(); void init_color_graph_label(); static void init_colorbar_label(); if( cgraph.graphlabel.active == 0 ) return; if( cgraph.vertical ) { if( (cgraph.graphlabel.gamma_ID != NULL) && (cgraph.graphlabel.width != graphbox.width) ) resize = 1; cgraph.graphlabel.width = graphbox.width - cgraph.barlabel.width; /* place boxes together (side-by-side) and centered */ if( graphbox.width >= cgraph.graphlabel.four_limit ) { cgraph.graphlabel.geq_x = 2 + ((graphbox.width - cgraph.graphlabel.four_limit) / 2); cgraph.graphlabel.red_x = cgraph.graphlabel.geq_x + cgraph.graphlabel.geq_width + 3; if( (cgraph.graphlabel.gamma_ID != NULL) && (cgraph.graphlabel.geq_active == 0) ) { /* prior state existed without use of geq window */ move = 1; if( cgraph.graphlabel.geq_ID == NULL ) { cgraph.graphlabel.geq_ID = create_cgraph_box(cgraph.graphlabel.geq_x, cgraph.graphlabel.geq_y, cgraph.graphlabel.geq_width, cgraph.graphlabel.geq_height, graphbox.display, cgraph.graphlabel.gamma_ID, -1, CenterGravity); } else { /* geq window exists but isn't mapped */ XMoveWindow(cgraph.graph.display, cgraph.graphlabel.geq_ID, cgraph.graphlabel.geq_x, cgraph.graphlabel.geq_y); XMapWindow(cgraph.graph.display, cgraph.graphlabel.geq_ID); } } cgraph.graphlabel.geq_active = 1; } else { cgraph.graphlabel.red_x = ((graphbox.width - cgraph.graphlabel.three_limit) / 2); if( cgraph.graphlabel.geq_ID && cgraph.graphlabel.active ) { XUnmapWindow(cgraph.graph.display, cgraph.graphlabel.geq_ID); move = 1; } cgraph.graphlabel.geq_active = 0; } cgraph.graphlabel.green_x = cgraph.graphlabel.red_x + cgraph.graphlabel.box_width + 3; cgraph.graphlabel.blue_x = cgraph.graphlabel.green_x + cgraph.graphlabel.box_width + 3; /* offset "min" and "max" from bottom, offset "max" from right */ cgraph.graphlabel.min_y = graphbox.height - cgraph.graphlabel.minmax_yoff; cgraph.graphlabel.max_y = cgraph.graphlabel.min_y; cgraph.graphlabel.max_x = graphbox.width - cgraph.graphlabel.minmax_xoff; if( cgraph.graphlabel.gamma_ID == NULL ) { cgraph.graphlabel.gamma_ID = create_cgraph_box(cgraph.barlabel.width, 0, cgraph.graphlabel.width, cgraph.graphlabel.height, graphbox.display, graphbox.ID, -1, NorthGravity); cgraph.graphlabel.minmax_ID = graphbox.ID; new = 1; } } else { if( (cgraph.graphlabel.gamma_ID != NULL) && (cgraph.graphlabel.height != graphbox.height) ) resize = 1; cgraph.graphlabel.height = graphbox.height; /* place boxes together (one_above-the-other) and centered */ if( cgraph.graphlabel.height >= cgraph.graphlabel.four_limit ) { cgraph.graphlabel.geq_y = (1 + cgraph.graphlabel.height - cgraph.graphlabel.four_limit) / 2; cgraph.graphlabel.red_y = cgraph.graphlabel.geq_y + cgraph.graphlabel.box_height + 3; if( (cgraph.graphlabel.gamma_ID != NULL) && (cgraph.graphlabel.geq_active == 0) ) { /* prior state existed without use of geq window */ move = 1; if( cgraph.graphlabel.geq_ID == NULL ) cgraph.graphlabel.geq_ID = create_cgraph_box(cgraph.graphlabel.geq_x, cgraph.graphlabel.geq_y, cgraph.graphlabel.geq_width, cgraph.graphlabel.geq_height, graphbox.display, cgraph.graphlabel.gamma_ID, -1, CenterGravity); else /* geq window exists but isn't mapped */ XMoveWindow(cgraph.graph.display, cgraph.graphlabel.geq_ID, cgraph.graphlabel.geq_x, cgraph.graphlabel.geq_y); XMapWindow(cgraph.graph.display, cgraph.graphlabel.geq_ID); } cgraph.graphlabel.geq_active = 1; } else { cgraph.graphlabel.red_y = 1 + ((cgraph.graphlabel.height - cgraph.graphlabel.three_limit) / 2); if( cgraph.graphlabel.geq_ID && cgraph.graphlabel.active ) { XUnmapWindow(cgraph.graph.display, cgraph.graphlabel.geq_ID); move = 1; } cgraph.graphlabel.geq_active = 0; } cgraph.graphlabel.green_y = cgraph.graphlabel.red_y + cgraph.graphlabel.box_height + 3; cgraph.graphlabel.blue_y = cgraph.graphlabel.green_y + cgraph.graphlabel.box_height + 3; /* offset "min" from bottom */ cgraph.graphlabel.min_y = graphbox.height - cgraph.graphlabel.minmax_yoff; if( cgraph.graphlabel.gamma_ID == NULL ) { cgraph.graphlabel.gamma_ID = create_cgraph_box((int)graphbox.width - cgraph.graphlabel.width, 0, cgraph.graphlabel.width, cgraph.graphlabel.height, graphbox.display, graphbox.ID, -1, EastGravity); cgraph.graphlabel.minmax_ID = graphbox.ID; new = 1; } } if( new ) { if( cgraph.graphlabel.geq_active ) cgraph.graphlabel.geq_ID = create_cgraph_box(cgraph.graphlabel.geq_x, cgraph.graphlabel.geq_y, cgraph.graphlabel.geq_width, cgraph.graphlabel.geq_height, graphbox.display, cgraph.graphlabel.gamma_ID, -1, CenterGravity); cgraph.graphlabel.red_ID = create_cgraph_box(cgraph.graphlabel.red_x, cgraph.graphlabel.red_y, cgraph.graphlabel.box_width, cgraph.graphlabel.box_height, graphbox.display, cgraph.graphlabel.gamma_ID, color.hard.red, CenterGravity); cgraph.graphlabel.green_ID = create_cgraph_box(cgraph.graphlabel.green_x, cgraph.graphlabel.green_y, cgraph.graphlabel.box_width, cgraph.graphlabel.box_height, graphbox.display, cgraph.graphlabel.gamma_ID, color.hard.green, CenterGravity); cgraph.graphlabel.blue_ID = create_cgraph_box(cgraph.graphlabel.blue_x, cgraph.graphlabel.blue_y, cgraph.graphlabel.box_width, cgraph.graphlabel.box_height, graphbox.display, cgraph.graphlabel.gamma_ID, color.hard.blue, CenterGravity); init_colorbar_label(); XMapSubwindows(graphbox.display, cgraph.graphlabel.gamma_ID); } else { if( resize ) { XResizeWindow(graphbox.display, cgraph.graphlabel.gamma_ID, cgraph.graphlabel.width, cgraph.graphlabel.height); } if( move ) { XMoveWindow(graphbox.display, cgraph.graphlabel.red_ID, cgraph.graphlabel.red_x, cgraph.graphlabel.red_y); XMoveWindow(graphbox.display, cgraph.graphlabel.green_ID, cgraph.graphlabel.green_x, cgraph.graphlabel.green_y); XMoveWindow(graphbox.display, cgraph.graphlabel.blue_ID, cgraph.graphlabel.blue_x, cgraph.graphlabel.blue_y); } } } /* * Subroutine: init_colorbar_label * Xlib calls: XResizeWindow() */ static void init_colorbar_label ( ) { Window create_cgraph_box(); if( (cgraph.graphlabel.active == 0) || (cgraph.barlabel.max_ID != NULL) ) return; if( cgraph.vertical ) { cgraph.barlabel.max_ID = create_cgraph_box(0, 0, cgraph.barlabel.width, cgraph.barlabel.height, graphbox.display, graphbox.ID, -1, NorthWestGravity); cgraph.barlabel.min_ID = create_cgraph_box(0, (int)graphbox.height - cgraph.barlabel.height, cgraph.barlabel.width, cgraph.barlabel.height, graphbox.display, graphbox.ID, -1, SouthWestGravity); /* 3 digits are centered, "0" uses same right justification */ cgraph.barlabel.max_x = cgraph.graphlabel.box_x + ((3 + cgraph.barlabel.width - cgraph.barlabel.base_width) / 2); cgraph.barlabel.min_x = cgraph.barlabel.max_x + XTextWidth(cgraph.fontstruct, "20", 2); } else { cgraph.barlabel.min_ID = create_cgraph_box(0, (int)graphbox.height - cgraph.barlabel.height, cgraph.barlabel.width, cgraph.barlabel.height, graphbox.display, graphbox.ID, -1, SouthWestGravity); cgraph.barlabel.max_ID = create_cgraph_box((int)graphbox.width - cgraph.graphlabel.width, (int)graphbox.height - cgraph.barlabel.height, cgraph.barlabel.width, cgraph.barlabel.height, graphbox.display, graphbox.ID, -1, SouthEastGravity); cgraph.barlabel.max_y = cgraph.graphlabel.box_y + ((cgraph.barlabel.height - cgraph.graphlabel.box_height) / 2); cgraph.barlabel.min_y = cgraph.barlabel.max_y; } } /* * Subroutine: create_cgraph_box * Purpose: Create window with window gravity and optional colored border * Xlib call: XCreateWindow() */ Window create_cgraph_box ( x, y, width, height, display, parent, border_color, window_gravity ) int x, y, width, height; Display *display; Window parent; int border_color; int window_gravity; { XSetWindowAttributes attributes; Window wndw; attributes.win_gravity = window_gravity; attributes.background_pixel = color.hard.std_white; attributes.event_mask = ExposureMask; if( border_color < 0 ) { wndw = XCreateWindow(display, parent, x, y, (unsigned int)width, (unsigned int)height, (unsigned int)0, CopyFromParent, CopyFromParent, CopyFromParent, CWBackPixel | CWWinGravity | CWEventMask, &attributes); } else { unsigned long valuemask; attributes.border_pixel = (unsigned long)border_color; valuemask = CWBackPixel | CWWinGravity | CWEventMask | CWBorderPixel; wndw = XCreateWindow(display, parent, x, y, (unsigned int)width, (unsigned int)height, (unsigned int)1, CopyFromParent, CopyFromParent, CopyFromParent, valuemask, &attributes); } return( wndw ); } saoimage-1.08/wndwcre.c 666 21641 13 13142 4742705155 10173 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: wndwcre.c (Window Create) * Purpose: Create a window with proper X11 protocol * Subroutine: create_window() returns: void * Subroutine: get_window_dimensions() returns: void * Xlib calls: XCreateWindow(), XMapWindow() * Xlib calls: XSetStandardProperties(), XSetWMHints() * Xlib calls: XWindowEvent(), XIfEvent(), XGetGeometry() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 April 1989 * {1} David Muchmore (astro.umontreal.ca) for SGI 23 June 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* window manager hint stuff */ #include "hfiles/window.h" #ifdef VMS #ifdef IMTOOL /* get the VMS event flag number that will be used to detect events * from all windows and mailbox connections */ extern int XZ_efn; #endif #endif /* * Subroutine: create_window * Purpose: Send window request to X server or window manager * Xlib calls: XCreateWindow(), XMapWindow() * Xlib calls: XSetStandardProperties(), XSetWMHints() * PostState: The first created window (dispbox) becomes the group leader */ void create_window ( window, title, argc, argv, set, map ) struct windowRec *window; /* i: window info record */ char *title; /* i: name for use by window manager */ int argc; /* i: command line arg count param */ char **argv; /* i: command line args */ int set; /* i: adopt the parameters untested */ int map; /* i: map window immediately */ { XWMHints wmhints; void exit_errmsg(); /* Create the window */ window->ID = XCreateWindow(window->display, window->parent, window->hints.x, window->hints.y, window->hints.width, window->hints.height, window->bdrwidth, CopyFromParent, InputOutput, window->visual, window->valuemask, &window->attrs); /* Old code (prior to SGI version which reserves its own colormap * * CopyFromParent, window->valuemask, &window->attrs); */ if( !window->ID ) { if( title != NULL ) (void)fprintf(stderr, "Window: %s - ", title); exit_errmsg("XCreateWindow window failed"); } /* Hint desired dimensions or adopt them immediately */ if( window->hints.flags ) XSetStandardProperties(window->display, window->ID, title, NULL, None, argv, argc, &window->hints); if( window->attrs.event_mask & KeyPressMask ) { /* Tell window manager to handle keyboard focus for us */ wmhints.input = True; wmhints.flags = InputHint; XSetWMHints(window->display, window->ID, &wmhints); } if( set ) { window->x = window->hints.x; window->y = window->hints.y; window->width = window->hints.width; window->height = window->hints.height; window->xwidth = window->width - (window->xzero + window->xzero); window->yheight = window->height - (window->yzero + window->yzero); window->rightx = window->x + window->width + window->bdrtotal; window->lowery = window->y + window->height + window->bdrtotal; } if( map ) XMapWindow(window->display, window->ID); #ifdef VMS #ifdef IMTOOL { int all_events = 0xFFFFFFFF; void XZ_ast(); XSelectAsyncInput(window->display, window->ID, all_events, XZ_ast, XZ_efn); } #endif #endif } /* * Subroutine: check_expose * Purpose: Function callable by XIfEvent from within xlib to check if * event is Expose for given window. * Note: Calling sequence is fixed, no xlib calls may be made. */ Bool check_expose ( display, event, arg ) Display *display; /* i: server ID */ XEvent *event; /* i: pointer to xlib event */ char *arg; /* i: generic pointer passed to XIfEvent */ { struct windowRec *window; /* i: arg is actually a struct pointer */ window = (struct windowRec *)arg; if( (display == window->display) && (event->type == Expose) && (event->xexpose.window == window->ID) ) return( True ); else return( False ); } /* * Subroutine: get_window_dimensions * Purpose: Get window dimensions after window is first mapped * PreState: Window's existence announced by Expose event. * PostState: Window struct's dimensions filled in. * Xlib calls: XWindowEvent(), XIfEvent(), XGetGeometry() * Method: If disposing the Expose events, we dispose of all of the * window,s expose events (they count down to 0). */ void get_window_dimensions ( window, wait, discard ) struct windowRec *window; int wait; /* i: look for an expose event for this window */ int discard; /* i: dispose of the expose event */ { Window parent; /* l: returned parent of this window */ XEvent event; /* l: event Bool check_expose(); /* l: function to identify window's expose event /* if waiting for an Expose event before querying window */ if( wait ) { if( discard ) { do { XWindowEvent(window->display, window->ID, ExposureMask, &event); } while( event.xexpose.count != 0 ); } else { XIfEvent(window->display, &event, check_expose, window); } } (void)XGetGeometry(window->display, window->ID, &parent, &window->x, &window->y, &window->width, &window->height, &window->bdrwidth, &window->depth); window->bdrtotal = 2 * window->bdrwidth; window->xwidth = window->width - (window->xzero + window->xzero); window->yheight = window->height - (window->yzero + window->yzero); } saoimage-1.08/wndwadj.c 666 21641 13 7753 5030507246 10143 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: wndwadj.c (Window Adjust) * Subroutine: adjust_desktop() returns: void * Subroutine: adjust_graphbox() returns: void * Xlib calls: XResizeWindow() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 6 July 1989 * {1} MVH added adjust_graphbox() 21 Oct 1989 * {2} RPS added code to set the init_button flag when window is * resized. 13 May 1991 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ #include "hfiles/cgraph.h" extern struct cgraphRec cgraph; extern struct windowRec desktop; #ifdef ALLIANT extern int init_button; #endif /* * Subroutine: adjust_desktop * Purpose: Adjust displays when the main desktop window is adjusted. */ void adjust_desktop ( configure ) XConfigureEvent *configure; { int diff; int do_dispbox = 0; int do_graphbox = 0; void map_graphbox(), adjust_main_colorbar(), free_blink(); void init_dispbuf(), new_pancursor(), new_display(), adjust_buttonmenu(); if( configure->window != desktop.ID ) return; if( configure->height != desktop.height ) { diff = configure->height - desktop.height; desktop.height = configure->height; desktop.yheight += diff; dispbox.height += diff; dispbox.yheight += diff; do_dispbox = 1; colorbox.y += diff; } if( configure->width != desktop.width ) { diff = configure->width - desktop.width; desktop.width = configure->width; desktop.xwidth += diff; colorbox.width += diff; colorbox.xwidth += diff; XResizeWindow(colorbox.display, colorbox.ID, colorbox.width, colorbox.height); adjust_main_colorbar(); btnbox.width += diff; btnbox.xwidth += diff; XResizeWindow(btnbox.display, btnbox.ID, btnbox.width, btnbox.height); adjust_buttonmenu (&btnbox); #ifdef ALLIANT init_button=1; #endif dispbox.width += diff; dispbox.xwidth += diff; do_dispbox = 1; panbox.x += diff; magnibox.x += diff; } if( do_dispbox ) { /* dump the blink buffers and pixmaps, they are no linger usable */ free_blink(); XResizeWindow(dispbox.display, dispbox.ID, dispbox.width, dispbox.height); init_dispbuf(); new_pancursor(0); new_display(0, 0, 0, 0); } if( do_graphbox ) /* remap the graphbox (it checks for its location) */ map_graphbox(); } /* * Subroutine: adjust_graphbox() * Purpose: respond to a resizing of the color graph window */ void adjust_graphbox ( configure ) XConfigureEvent *configure; { void adjust_color_graph(), adjust_graph_colorbar(), draw_cgraph(); graphbox.x = configure->x; graphbox.y = configure->y; graphbox.width = configure->width; graphbox.height = configure->height; graphbox.xwidth = graphbox.width - (graphbox.xzero + graphbox.xzero); graphbox.yheight = graphbox.height - (graphbox.yzero + graphbox.yzero); adjust_color_graph(); adjust_graph_colorbar(); if( graphbox.active ) draw_cgraph(1, 0); } #ifdef FOO /* * Subroutine: set_dispborder */ void set_dispborder ( dispbdr ) int dispbdr; { desktop.bdrwidth = dispbdr; desktop.bdrtotal = dispbdr + dispbdr; graphbox.bdrwidth = dispbdr; graphbox.bdrtotal = dispbdr + dispbdr; } /* * Subroutine: set_auxborder */ void set_auxborder ( auxbdr ) int auxbdr; { panbox.bdrwidth = auxbdr; panbox.bdrtotal = auxbdr + auxbdr; magnibox.bdrwidth = auxbdr; magnibox.bdrtotal = auxbdr + auxbdr; dispbox.bdrwidth = auxbdr; dispbox.bdrtotal = auxbdr + auxbdr; } #endif saoimage-1.08/csranli.c 666 21641 13 12101 4613613566 10150 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: csranli.c (Cursor Annuli) * Purpose: Deal with annuli of the software cursor * Subroutine: make_new_annulus() * Subroutine: move_annuli() * Subroutine: update_annuli_centers() returns: void * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 4 June 1989 * {n} -- -- * * The interaction for annuli is as follows: * On menu button: set annuli flag (turn button off if point or polygon). * On middle button: * Push: free annuli if grabbed. Make cursor at mouse or inc position. * Move: size with annuli restrictions * Release: install new annuli record, redraw all cursors. * Left button: move all centers */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/color.h" /* cursor colors needed by Cursor.h */ #include "hfiles/cursor.h" /* define cursor parameter structures */ extern struct colorRec color; /* need to know color.gcset */ /* * Subroutine: make_new_annulus * Purpose: Copy the cursor onto an annulus */ void make_new_annulus ( cursor ) struct cursorRec *cursor; { struct cursorRec *annulus; struct cursorRec *annuli; struct cursorRec *copy_cursor(); int index; annulus = copy_cursor (cursor); /* annuli are always include regions */ annulus->exclude_region = 0; if( cursor->next_annulus == 0 ) { annulus->next_annulus = 0; annulus->index = 1; cursor->next_annulus = annulus; } else { if( cursor->next_annulus->win.rayX > annulus->win.rayX ) { annulus->next_annulus = cursor->next_annulus; annulus->index = 1; cursor->next_annulus = annulus; } else { annuli = cursor->next_annulus; /* find sort position for new annulus */ while( (annuli->next_annulus != 0) && (annuli->next_annulus->win.rayX < annulus->win.rayX) ) { annuli = annuli->next_annulus; } /* splice in the new annulus */ annulus->next_annulus = annuli->next_annulus; annulus->index = annuli->index + 1; annuli->next_annulus = annulus; } /* updates everybody's index */ index = annulus->index; annuli = annulus->next_annulus; while( annuli != NULL ) { annuli->index = ++index; annuli = annuli->next_annulus; } } } /* * Subroutine: delete_annuli * Purpose: Remove all but the innermost annulus * Called by: select_cursor() in CursorCtrl.c */ void delete_annuli ( cursor, collapse ) struct cursorRec *cursor; int collapse; /* i: inner-ring-becomes-cursor */ { struct cursorRec *annulus, *temp; void make_cursor(), draw_annuli(), free_cursor(); if( (annulus = cursor->next_annulus) != NULL ) { if( collapse ) { /* make cursor like the innermost annulus */ cursor->win.rayX = annulus->win.rayX; cursor->win.rayY = annulus->win.rayY; make_cursor (cursor); } /* if image will not be redrawn, erase the annuli */ if( !cursor->overwrites_image_data ) draw_annuli(cursor, &color.gcset.undraw); /* delete and free all annuli */ do { temp = annulus->next_annulus; free_cursor(annulus); annulus = temp; } while( annulus != 0 ); cursor->next_annulus = NULL; } } /* * Subroutine: move_annuli * Purpose: Change annuli location */ void move_annuli ( cursor, winx, winy ) struct cursorRec *cursor; int winx, winy; { int dxm, dym; struct cursorRec *annulus; void draw_annuli(); /* HOW MUCH DID WE MOVE? */ dxm = winx - cursor->win.x; dym = winy - cursor->win.y; cursor->win.x = winx; cursor->win.y = winy; cursor->win.X = (double)cursor->win.x + 0.5; cursor->win.Y = (double)cursor->win.y + 0.5; /* erase the current annuli */ draw_annuli (cursor, &color.gcset.undraw); /* move all the annuli */ annulus = cursor; while( annulus != 0 ) { register XPoint *points; register int i; int point_cnt; /* MOVE ALL POINTS */ point_cnt = annulus->point_cnt; points = annulus->points; for( i=0; i < point_cnt; i++ ) { points[i].x += dxm; points[i].y += dym; } /* UPDATE RECORD OF CENTER */ annulus->win.x = cursor->win.x; annulus->win.y = cursor->win.y; annulus->win.X = cursor->win.X; annulus->win.Y = cursor->win.Y; annulus = annulus->next_annulus; } /* draw the new annuli */ draw_annuli (cursor, &color.gcset.track); } /* * Subroutine: recenter_annuli_centers * Purpose: Update cursor location params */ void update_annuli_centers ( cursor ) struct cursorRec *cursor; { struct cursorRec *annulus; annulus = cursor->next_annulus; while( annulus != 0 ) { annulus->file.X = cursor->file.X; annulus->file.Y = cursor->file.Y; annulus = annulus->next_annulus; } } saoimage-1.08/imgrot.c 666 21641 13 7712 4742157463 10014 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: imgrot.c (Image Rotate) * Purpose: Routines to rotate the img buffer 90 degrees * Subroutine: cwturn_buf() returns: void * Subroutine: ccwturn_buf() returns: void * Copyright: 1988 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 3 December 1988 * {n} -- -- */ /* * Subroutine: cwturn_buf * Purpose: Rotate a square buffer 90 degrees clockwise */ void cwturn_buf ( buf, bufdim ) short *buf; int bufdim; { register short *row, *rowend, *col; register int bufwdth = bufdim; short *linebuf, *toprow, *botrow; int linedim; int ring, center; char *calloc_errchk(); /* allocate space for temporary storage for two lines */ linebuf = (short *)calloc_errchk(bufwdth, sizeof(short), "Temp line"); /* perform rotations from outer ring in toward center */ center = bufwdth / 2; linedim = bufwdth - 1; for( ring = 0; ring < center; ring++ ) { /* store top row of ring */ toprow = buf + (ring * (bufwdth + 1)); botrow = toprow + (linedim * bufwdth) + 1; bcopy((char *)toprow, (char *)linebuf, linedim * sizeof(short)); /* copy left column onto top row */ row = toprow + linedim - 1; rowend = toprow; col = toprow + bufwdth; do { *row = *col; col += bufwdth; } while( --row >= rowend ); /* copy bottom row onto left column */ row = botrow; rowend = row + linedim; col = toprow + bufwdth; do { *col = *row; col += bufwdth; } while( ++row < rowend ); /* copy right column onto bottom row */ row--; rowend = botrow; col = toprow + linedim; do { *row = *col; col += bufwdth; } while( --row >= rowend ); /* copy saved top line onto right column */ row = linebuf; rowend = row + linedim; col = toprow + linedim; do { *col = *row; col += bufwdth; } while( ++row < rowend ); linedim -= 2; } /* free work space */ free((char *)linebuf); } /* * Subroutine: ccwturn_buf * Purpose: Rotate a square buffer 90 degrees counter-clockwise */ void ccwturn_buf ( buf, bufdim ) short *buf; int bufdim; { register short *row, *rowend, *col; register int bufwdth = bufdim; short *linebuf, *toprow, *botrow; int linedim; int ring, center; char *calloc_errchk(); /* allocate space for temporary storage for two lines */ linebuf = (short *)calloc_errchk(bufwdth, sizeof(short), "Temp line"); /* perform rotations from outer ring in toward center */ center = bufwdth / 2; linedim = bufwdth - 1; for( ring = 0; ring < center; ring++ ) { /* store top row of ring */ toprow = buf + (ring * (bufwdth + 1)); botrow = toprow + (linedim * bufwdth) + 1; bcopy((char *)toprow, (char *)linebuf, linedim * sizeof(short)); /* copy right column onto top row */ row = toprow; rowend = toprow + linedim; col = toprow + linedim; do { *row = *col; col += bufwdth; } while( ++row < rowend ); /* copy bottom row onto right column */ rowend = botrow; row = rowend + linedim - 1; col = toprow + linedim; do { *col = *row; col += bufwdth; } while( --row >= rowend ); /* copy left column onto bottom row */ ++row; rowend = row + linedim; col = toprow + bufwdth; do { *row = *col; col += bufwdth; } while( ++row < rowend ); /* copy saved top line onto left column */ rowend = linebuf; row = rowend + linedim - 1; col = toprow + bufwdth; do { *col = *row; col += bufwdth; } while( --row >= rowend ); linedim -= 2; } /* free work space */ free((char *)linebuf); } saoimage-1.08/wndwconf.c 666 21641 13 22326 4754402172 10347 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: wndwconf.c (Window Configure) * Purpose: Determine size of desktop and mode of presentation to * display screen window manager (to later establish location * and dimension of individual windows - see WndwConfig.c * Subroutine: init_desktop() returns: void * Subroutine: configure_windowgroup() returns: void * Subroutine: configure_graphbox() returns: void * Subroutine: parse_geometry() returns: int * Xlib calls: XParseGeometry(), XTranslateCoordinates() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 April 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* MIN, MAX, and more */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ extern struct windowRec desktop; extern int screen_width, screen_height; /* screen dimensions in WndwInit.c */ static int geo_flag = 0; /* flag & vals from XParseGeometry */ static int geo_x, geo_y; static unsigned int geo_width, geo_height; /* * Subroutine: init_desktop * Purpose: Select the SAOimage window area. * PostState: Windows size hints altered or set * Called by: init_windows() in WndwInit.c * Method: The size can be given or set to norm. If given but less * than min (i.e. 0,0) it becomes the minimum configuration. */ void init_desktop ( ) { static void set_parsed_geometry(); desktop.hints.min_width = (2 * desktop.xzero) + (2 * dispbox.bdrwidth) + dispbox.hints.min_width; desktop.hints.max_width = (2 * desktop.xzero) + (2 * dispbox.bdrwidth) + dispbox.hints.width; desktop.hints.min_height = desktop.yzero + panbox.bdrtotal + panbox.hints.min_height + btnbox.bdrtotal + btnbox.hints.min_height + 2 + dispbox.bdrtotal + dispbox.hints.min_height + colorbox.bdrtotal + colorbox.hints.min_height; desktop.hints.max_height = desktop.yzero + panbox.bdrtotal + panbox.hints.height + btnbox.bdrtotal + btnbox.hints.height + 2 + dispbox.bdrtotal + dispbox.hints.height + colorbox.bdrtotal + colorbox.hints.height; /* if the user specified geometry */ if( geo_flag ) set_parsed_geometry(); if( (geo_flag & WidthValue) == 0 ) desktop.hints.width = desktop.hints.max_width; if( (geo_flag & HeightValue) == 0 ) desktop.hints.height = desktop.hints.max_height; } /* * Subroutine: configure_windowgroup * Purpose: Set the x, y, width, and height, of all windows * Called by: init_windows in WndwInit.c * Called by: regroup_windows in WndwAdjust.c */ void configure_windowgroup ( adjust_defaults ) int adjust_defaults; { void init_panbox_dimensions(); if( adjust_defaults ) { /* choose relative sizes based on overall desktop area */ if( desktop.width < desktop.hints.max_width ) { magnibox.hints.width = magnibox.hints.min_width; panbox.hints.max_width = panbox.hints.min_width; } if( desktop.height < desktop.hints.max_height ) { magnibox.hints.height = magnibox.hints.min_height; panbox.hints.max_height = panbox.hints.min_height; btnbox.hints.height = btnbox.hints.min_height; if( desktop.height < 500 ) { colorbox.hints.height = colorbox.hints.min_height; graphbox.hints.height = graphbox.hints.min_height; graphbox.hints.width = graphbox.hints.min_width; } } /* choose a panbox size within the guidelines */ init_panbox_dimensions(); } /* sizes now known, fill in the rest based on the configuration */ magnibox.hints.y = desktop.yzero; magnibox.hints.x = desktop.width - (desktop.xzero + magnibox.bdrtotal + magnibox.hints.width); panbox.hints.y = magnibox.hints.y; panbox.hints.x = magnibox.hints.x - ((2 * desktop.xzero) + panbox.bdrtotal + panbox.hints.width); btnbox.hints.y = MAX(magnibox.hints.height, panbox.hints.height) + btnbox.bdrwidth + magnibox.hints.y + magnibox.bdrtotal + 1; if( btnbox.bdrwidth > 0 ) { btnbox.hints.x = desktop.xzero; btnbox.hints.width = desktop.xwidth - btnbox.bdrtotal; } else { btnbox.hints.x = 0; btnbox.hints.width = desktop.width; } colorbox.hints.y = desktop.height - (colorbox.bdrwidth + colorbox.hints.height + colorbox.bdrtotal); if( colorbox.bdrwidth > 0 ) { colorbox.hints.x = desktop.xzero; colorbox.hints.width = desktop.xwidth - colorbox.bdrtotal; } else { colorbox.hints.x = 0; colorbox.hints.width = desktop.width; } dispbox.hints.x = desktop.xzero; dispbox.hints.y = 1 + btnbox.hints.y + btnbox.bdrtotal + btnbox.hints.height + btnbox.bdrwidth; dispbox.hints.width = desktop.width - ((2 * desktop.xzero) + dispbox.bdrtotal); dispbox.hints.height = (colorbox.hints.y - dispbox.hints.y) - (dispbox.bdrtotal + btnbox.bdrwidth + colorbox.bdrwidth); } /* * Subroutine: configure_graphbox * Purpose: Set the graphbox to appear undereath colorbar * Xlib calls: XTranslateCoordinates() */ void configure_graphbox () { Window child, *ch; Window parent, root; int left_x, right_x, lo_y, hi_y; int head_y, head_height; unsigned int nch; /* get desktop's parent and root */ if( XQueryTree(desktop.display, desktop.ID, &root, &parent, &ch, &nch) == 0 ) return; XFree((char *)ch); /* get current root window coords of desktop */ (void)XTranslateCoordinates(desktop.display, desktop.ID, root, desktop.width, desktop.height, &right_x, &lo_y, &child); (void)XTranslateCoordinates(desktop.display, desktop.ID, root, 0, 0, &left_x, &hi_y, &child); /* if desktop's parent is not root, window manager gave it a header */ if( parent != root ) { (void)XTranslateCoordinates(desktop.display, parent, root, 0, 0, &left_x, &head_y, &child); head_height = hi_y - head_y; } else { head_height = 0; head_y = hi_y; } if( graphbox.hints.height > graphbox.hints.width ) { graphbox.hints.y = hi_y - 2; if( (right_x + graphbox.hints.width) < screen_width ) graphbox.hints.x = right_x + 2; else graphbox.hints.x = left_x - (graphbox.hints.width + 4); } else { graphbox.hints.x = left_x - 2; graphbox.hints.width = desktop.width; /* put graphbox above colorbox if desktop is too close to bottom */ if( (screen_height - lo_y) < (graphbox.hints.height + head_height + graphbox.bdrtotal) ) graphbox.hints.y = MAX(head_y - (head_height + 4), 0); else graphbox.hints.y = lo_y + head_height + 3; } } /* * Subroutine: parse_geometry * Purpose: Parse a user given geometry string * Returns: 0 if no values were successfully parsed, else 1 * Xlib calls: XParseGeometry() */ int parse_geometry ( geometry, disp_size ) char *geometry; int disp_size; /* i: apply size to: 1=dispbox, 0=desktop */ { geo_flag = XParseGeometry(geometry, &geo_x, &geo_y, &geo_width, &geo_height); if( geo_flag != 0 ) { if( disp_size ) { if( geo_flag & WidthValue ) { dispbox.hints.width = geo_width; geo_flag ^= WidthValue; } if( geo_flag & HeightValue ) { dispbox.hints.height = geo_height; geo_flag ^= HeightValue; } } return( 1 ); } else return( 0 ); } /* * Subroutine: set_parsed_geometry * Purpose: Set up the desktop window's size_hints as per any parsed * user specified geometry */ static void set_parsed_geometry ( ) { if( geo_flag == 0 ) return; if( geo_flag & WidthValue ) desktop.hints.width = (unsigned int) MIN(MAX(geo_width, desktop.hints.min_width), screen_width); if( geo_flag & HeightValue ) desktop.hints.height = (unsigned int) MIN(MAX(geo_height, desktop.hints.min_height), screen_height); if( geo_flag & XValue ) { if( geo_flag & XNegative ) { /* I'm not sure what the standard is supposed to be here */ if( geo_x < 0 ) desktop.hints.x = screen_width - (desktop.hints.width - geo_x); else desktop.hints.x = screen_width - (desktop.hints.width + geo_x); desktop.hints.x -= desktop.bdrtotal; } else desktop.hints.x = geo_x; } if( geo_flag & YValue ) { if( geo_flag & YNegative ) { if( geo_y < 0 ) desktop.hints.y = screen_height - (desktop.hints.height - geo_y); else desktop.hints.y = screen_height - (desktop.hints.height + geo_y); desktop.hints.y -= desktop.bdrtotal; } else desktop.hints.y = geo_y; } if( (geo_flag & XValue) || (geo_flag & YValue) ) { desktop.hints.flags = (USPosition | USSize) | (desktop.hints.flags & (~(PPosition | PSize))); } else if( (geo_flag & WidthValue) || (geo_flag & HeightValue) ) { desktop.hints.flags = USSize | (desktop.hints.flags & (~PSize)); } } saoimage-1.08/wndwmaus.c 666 21641 13 23104 4613635774 10374 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: wndwmaus.c (Window Mouse) * Purpose: Set the mouse pointer icon for each window and mode * Subroutine: init_mousepointers() returns: void * Subroutine: new_dispboxmouse() returns: void * Subroutine: set_trigger_key_mouse() returns: void * Xlib calls: DefaultScreen, DefaultRootWindow, DefaultColormap * Xlib calls: BlackPixel, WhitePixel, XQueryColors() * Xlib calls: XCreateBitmapFromData(), XCreatePixmapCursor(), XFreePixmap() * Xlib calls: XDefineCursor(), XSync(), XQueryPointer(), XWarpPointer() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 30 April 1989 * {1} MVH icon for key to trigger IRAF write 16 Aug 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* X window stuff */ #include /* window manager stuff */ #include "hfiles/constant.h" /* constants and codes */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ #include "defs/mouse.def" /* bitmaps for mouse cursors */ extern Window root; static Cursor pancursor; static Cursor cursorcursor; static Cursor colorcursor; static Cursor shuttlecursor; static Cursor missilecursor; #ifdef NOTUSED static Cursor plaincursor; #endif #ifdef IMTOOL static Cursor keycursor; #endif /* * Subroutine: init_mousepointers * Purpose: Set up the various mouse pointer icons for all windows */ void init_mousepointers ( dispdisplay, auxdisplay ) Display *dispdisplay; /* i: display for the dispbox */ Display *auxdisplay; /* i: display for the auxiliary windows */ { static Cursor make_mouse_cursor(); /* create special btnbox cursor for button menu window */ btnbox.attrs.cursor = make_mouse_cursor(auxdisplay, button_bits, button_mask_bits, button_width, button_height, button_x_hot, button_y_hot); btnbox.valuemask |= CWCursor; /* create special missile cursor for magnifier window */ magnibox.attrs.cursor = make_mouse_cursor(auxdisplay, missile_bits, missile_mask_bits, missile_width, missile_height, missile_x_hot, missile_y_hot); magnibox.valuemask |= CWCursor; /* create special color graph manipulation cursor */ colorbox.attrs.cursor = make_mouse_cursor(auxdisplay, cgraph_bits, cgraph_bits, cgraph_width, cgraph_height, cgraph_x_hot, cgraph_y_hot); colorbox.valuemask |= CWCursor; graphbox.attrs.cursor = colorbox.attrs.cursor; graphbox.valuemask |= CWCursor; /* create special pan and zoom cursor */ panbox.attrs.cursor = make_mouse_cursor(auxdisplay, pan_bits, pan_mask_bits, pan_width, pan_height, pan_x_hot, pan_y_hot); panbox.valuemask |= CWCursor; /* create selection of cursors for display window */ /* create special pan and zoom cursor */ if( dispdisplay == auxdisplay ) { pancursor = panbox.attrs.cursor; } else { pancursor = make_mouse_cursor(dispdisplay, pan_bits, pan_mask_bits, pan_width, pan_height, pan_x_hot, pan_y_hot); } /* create special color manipulation cursor */ colorcursor = make_mouse_cursor(dispdisplay, cgraph_bits, color_mask_bits, cgraph_width, cgraph_height, cgraph_x_hot, cgraph_y_hot); /* create special cursor manipulation cursor */ cursorcursor = make_mouse_cursor(dispdisplay, cursor_bits, cursor_mask_bits, cursor_width, cursor_height, cursor_x_hot, cursor_y_hot); #ifdef IMTOOL /* create special key triggered cursor readback cursor for IRAF */ keycursor = make_mouse_cursor(dispdisplay, key_bits, key_mask_bits, key_width, key_height, key_x_hot, key_y_hot); #endif /* create special shuttle cursor */ shuttlecursor = make_mouse_cursor(dispdisplay, shuttle_bits, shuttle_mask_bits, shuttle_width, shuttle_height, shuttle_x_hot, shuttle_y_hot); /* install the appropriate cursor in dispbox */ switch( control.mode ) { case VOP: /* COLOR */ dispbox.attrs.cursor = colorcursor; break; case ZOP: /* PAN */ dispbox.attrs.cursor = pancursor; break; case COP: /* CURSOR */ dispbox.attrs.cursor = cursorcursor; break; case EOP: /* ENV */ case SOP: /* SCALE */ default: dispbox.attrs.cursor = shuttlecursor; break; } } /* * Subroutine: make_mouse_cursor * Purpose: Make Xlib calls to actually produce a mouse cursor * Returns: Cursor handle ready for use * Xlib calls: DefaultScreen, DefaultRootWindow, DefaultColormap * Xlib calls: BlackPixel, WhitePixel, XQueryColors() * Xlib calls: XCreateBitmapFromData(), XCreatePixmapCursor(), XFreePixmap() * Note: Uses black and white of display's root window's color map */ static Cursor make_mouse_cursor ( display, bits, mask_bits, width, height, x_hot, y_hot ) Display *display; char *bits, *mask_bits; unsigned int width, height; unsigned int x_hot, y_hot; { static XColor foreback[2]; static Display *display_base = NULL; Cursor cursor; Pixmap source, mask; /* renew basic params only if display is different */ if( display_base != display ) { foreback[0].pixel = (unsigned long)color.hard.std_black; foreback[1].pixel = (unsigned long)color.hard.std_white; XQueryColors(display, color.colormap, foreback, 2); display_base = display; } source = XCreateBitmapFromData(display, root, bits, width, height); mask = XCreateBitmapFromData(display, root, mask_bits, width, height); cursor = XCreatePixmapCursor (display, source, mask, &foreback[0], &foreback[1], x_hot, y_hot); XFreePixmap(display, source); XFreePixmap(display, mask); return( cursor ); } static short oldmode = -1; #ifdef IMTOOL /* mouse positions saved for cursor interaction with IRAF */ static int freeze_dispboxmouse = 0; static int trigger_x = -1; static int trigger_y; /* * Subroutine: note_trigger_key_position * Purpose: set the reference position for placing the cursor in next * trigger key from iraf */ void note_trigger_key_position ( x, y ) int x, y; { trigger_x = x; trigger_y = y; } /* * Subroutine: set_trigger_key_mouse * Purpose: set special displaybox cursor to indicate cursor readback * trigger on any key is in effect * Xlib calls: XDefineCursor(), XSync(), XQueryPointer(), XWarpPointer() */ void set_trigger_key_mouse ( state ) int state; { static int root_x, root_y = 0; Window root_ret, child_ret; int win_x, win_y; int temp; unsigned int mask; void new_dispboxmouse(), raise_windows(); if( (freeze_dispboxmouse = state) ) { /* save current mouse position unless it is not on this screen */ if( XQueryPointer(dispbox.display, root, &root_ret, &child_ret, &root_x, &root_y, &win_x, &win_y, &mask) == False ) root_y = 0; /* change pointer appearance for this function */ XDefineCursor(dispbox.display, dispbox.ID, keycursor); /* raise the main set of windows, before warp (but not the graphbox) */ temp = graphbox.active; graphbox.active = 0; raise_windows(); XSync(dispbox.display, 0); graphbox.active = temp; /* if pointer is not in display window, move it there */ if( child_ret != dispbox.ID ) { /* if trigger not set, or cursor was moved more recently, use curpos */ if( trigger_x < 0 ) { if( (cursor.win.x > 0) && (cursor.win.x < dispbox.width) && (cursor.win.y > 0) && (cursor.win.y < dispbox.height) ) XWarpPointer(dispbox.display, None, dispbox.ID, 0, 0, 0, 0, cursor.win.x, cursor.win.y); else /* if cursor position wouldn't work, just center it */ XWarpPointer(dispbox.display, None, dispbox.ID, 0, 0, 0, 0, dispbox.width / 2, dispbox.height / 2); } else /* return to last trigger position set by IRAF routines */ XWarpPointer(dispbox.display, None, dispbox.ID, 0, 0, 0, 0, trigger_x, trigger_y); } else root_y = 0; XSync(dispbox.display, 0); oldmode = -1; } else { /* restore mouse position (NOW) if it was saved */ if( root_y > 0 ) { XWarpPointer(dispbox.display, dispbox.ID, root, 0, 0, 0, 0, root_x, root_y); XSync(dispbox.display, 0); root_y = 0; } new_dispboxmouse(); } } #endif /* * Subroutine: new_dispboxmouse * Purpose: Install dispbox mouse cursor appropriate for the mode * Xlib calls: XDefineCursor() * Note: Does installation only if mode is actually different */ void new_dispboxmouse ( ) { #ifdef IMTOOL if( freeze_dispboxmouse ) return; #endif if( control.mode == oldmode ) return; oldmode = control.mode; switch( control.mode ) { /* COLOR */ case VOP: XDefineCursor(dispbox.display, dispbox.ID, colorcursor); break; /* PAN */ case ZOP: XDefineCursor(dispbox.display, dispbox.ID, pancursor); break; /* CURSOR */ case COP: XDefineCursor(dispbox.display, dispbox.ID, cursorcursor); break; /* ENV */ case EOP: XDefineCursor(dispbox.display, dispbox.ID, shuttlecursor); break; /* SCALE */ case SOP: XDefineCursor(dispbox.display, dispbox.ID, shuttlecursor); break; } } saoimage-1.08/iraffdbk.c 666 21641 13 21644 4617472541 10301 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: iraffdbk.c (IRAF Feedback) * Purpose: Set the mouse pointer icon for each window and mode * Subroutine: set_cursor_from_iraf() returns: void * Subroutine: send_curpos_to_iraf() returns: void * Subroutine: trigger_curpos_to_iraf() returns: int * Subroutine: set_curpos_to_iraf_trigger() returns: void * Origin: Some sections modeled after code by Doug Tody, NOAO * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 15 Aug 1989 * {1} MVH use generalized remote connection IO 28 March 1990 * {n} -- -- */ #ifdef IMTOOL #include /* stderr, NULL, etc. */ #include /* isspace, isprint, etc. */ #include /* X window stuff */ #include /* window manager stuff */ #include "hfiles/constant.h" /* constants and codes */ #include "hfiles/struct.h" /* all struct record types */ #include "hfiles/extern.h" /* major declared structs */ #define SZ_IMCURVAL 160 static char *NO_OUT_MSG = "Warning: output connection not open\n"; /* * Subroutine: set_cursor_from_iraf * Purpose: Respond to an imtool IMCURSOR/IIS_WRITE packet from the pipe * Note: imtool equiv.: Write (set) the logical image cursor position. */ void set_cursor_from_iraf ( fileX, fileY ) double fileX, fileY; /* i: cursor coords in file coord system */ { float winX, winY; float bufX, bufY; PolyPoint *poly; unsigned long background; /* l: temp for switch of colors */ void d_transform(), add_polygon_vertex(), draw_magnifier(), disp_region(); void set_cursor_from_file_coords(), set_annuli_from_file_coords(); void label_region_cycle_magnifier(), save_cursor_as_region(), erase_cursor(); void disp_cursor(), disp_dispbox(); /* erase current cursor if it can be erased */ if( cursor.overwrites_image_data == 0 ) erase_cursor(&cursor); cursor.file.X = (float)fileX; cursor.file.Y = (float)fileY; /* get window coordinates */ d_transform(&coord.filetodisp, fileX, fileY, &winX, &winY); if( cursor.type == COP_Polygon ) { /* add polygon vertex at end of vertex list */ cursor.win.X = winX; cursor.win.Y = winY; cursor.win.x = (int)winX; cursor.win.y = (int)winY; poly = &cursor.poly[cursor.poly_cnt]; add_polygon_vertex(&cursor, cursor.poly_cnt, (int)winX, (int)winY); poly->winX = winX; poly->winY = winY; poly->fileX = (float)fileX; poly->fileY = (float)fileY; poly->unset = 0; } else { if( cursor.annuli ) { /* move center for all annuli */ set_annuli_from_file_coords(&cursor, &coord.filetodisp); } else /* move cursor center */ set_cursor_from_file_coords(&cursor, &coord.filetodisp); } if( cursor.type == COP_Point ) { /* save point as region, and draw it */ save_cursor_as_region(&cursor, 0); cursor.index = cursor.next_region->index; disp_region(cursor.next_region); } else { if( cursor.overwrites_image_data ) /* redraw image and any saved cursors */ disp_dispbox(); else disp_cursor(&cursor); } /* show cursor position in magnifier, including coordinate label */ d_transform(&coord.disptobuf, cursor.win.X, cursor.win.Y, &bufX, &bufY); draw_magnifier ((double)bufX, (double)bufY); background = cursor.draw->background; cursor.draw->background = color.gcset.excl.background; label_region_cycle_magnifier (&cursor, 0); cursor.draw->background = background; } /* * Subroutine: send_curpos_to_iraf * Purpose: Return the cursor value on the output datastream to the * client which requested the cursor read. * Note: imtool equivalent subroutine: gio_retcursorval() */ void send_curpos_to_iraf ( fileX, fileY, frameno, z, key, strval ) double fileX, fileY; /* i: cursor coordinates */ int frameno; /* i: frame number given by last WCS packet */ int z; /* i: value of request packet iis.z */ int key; /* i: keystroke used as trigger */ char *strval; /* i: optional string value */ { char curval[SZ_IMCURVAL]; char keystr[20]; int write_connection(); if( control.IRAF_out.open == 0 ) { (void)fprintf(stderr, NO_OUT_MSG); return; } if( key == EOF ) { /* user indicated abort of readback process */ sprintf(curval, "EOF\n"); } else { if( isprint(key) && (!isspace(key)) ) { keystr[0] = key; keystr[1] = '\0'; } else sprintf(keystr, "\\%03o", key); /* Encode the cursor value and key. */ sprintf(curval, "%10.3f %10.3f %d %s %s\n", fileX, fileY, (frameno * 100) + z, keystr, strval); } /* Send it to the client program. */ /* Send it to the client program. */ (void)write_connection(&control.IRAF_out, curval, sizeof(curval)); } static int trigger_request_count = 0; static int frame, iis_z; /* * Subroutine: set_curpos_to_iraf_trigger * Purpose: Set up mode to send cursor position when a key is struck * Note: Equivalent imtool subroutine: gio_readcursor() * GIO_READCURSOR -- Initiate an image cursor read. Save the current * mouse coordinates if outside the imtool window, restore the mouse to the * imtool window, and change the cursor shape to indicate that a cursor read * is in progress. May be called while a cursor read is already in progress * to reset the cursor-read cursor pixrect. */ void set_curpos_to_iraf_trigger ( frameno, z ) int frameno; int z; /* i: z value from iis packet which requested mode */ { void set_trigger_key_mouse(), set_iraf_key_trigger(); if( control.IRAF_out.open == 0 ) { (void)fprintf(stderr, NO_OUT_MSG); return; } if( trigger_request_count == 0 ) { /* change display window cursor */ set_trigger_key_mouse(1); /* put trigger in key response subroutine */ set_iraf_key_trigger(1); } frame = frameno; iis_z = z; trigger_request_count++; } /* * Subroutine: trigger_curpos_to_iraf * Purpose: Send cursor position to IRAF in response to trigger event */ int trigger_curpos_to_iraf ( event, key ) XKeyEvent *event; int key; { float fileX, fileY; PolyPoint *poly; void update_annuli_centers(), send_curpos_to_iraf(), set_trigger_key_mouse(); void i_transform(), erase_cursor(), disp_dispbox(), set_cursor_file_coords(); void save_cursor_as_region(), set_iraf_key_trigger(), add_polygon_vertex(); void note_trigger_key_position(), move_annuli(), disp_region(); void make_cursor(); if( control.IRAF_out.open == 0 ) { (void)fprintf(stderr, NO_OUT_MSG); return(0); } /* Map ctrl/d and ctrl/z into EOF. */ i_transform(&coord.disptofile, event->x, event->y, &fileX, &fileY); if( (key == '\004') || (key == '\032') ) { key = EOF; } else { #ifdef CURTOO if( control.mode == COP ) { if( cursor.annuli ) { move_annuli(&cursor, event->x, event->y); update_annuli_centers(&cursor); save_cursor_as_region(&cursor, 0); } else { if( cursor.overwrites_image_data == 0 ) erase_cursor(&cursor); cursor.win.X = (double)event->x + 0.5; cursor.win.Y = (double)event->y + 0.5; cursor.win.x = event->x; cursor.win.y = event->y; if( cursor.type == COP_Polygon ) { /* add polygon vertex at end of vertex list */ poly = &cursor.poly[cursor.poly_cnt]; add_polygon_vertex(&cursor, cursor.poly_cnt, event->x, event->y); poly->winX = (double)event->x; poly->winY = (double)event->y; poly->fileX = fileX; poly->fileY = fileY; poly->unset = 0; } else { /* force file coordinates into agreement with window coordinates */ set_cursor_file_coords(&cursor, &coord.disptofile, 0); set_cursor_file_coords(&cursor, &coord.disptofile, 1); /* make new drawing vertices */ make_cursor(&cursor); save_cursor_as_region(&cursor, 0); } } if( cursor.overwrites_image_data ) /* redraw image and any saved cursors */ disp_dispbox(); if( cursor.type != COP_Polygon ) disp_region(cursor.next_region); } #endif } /* send the coords and key through the fifo */ send_curpos_to_iraf((double)fileX, (double)fileY, frame, iis_z, key, ""); /* note the current position for returning the mouse pointer */ note_trigger_key_position((int)event->x, (int)event->y); if( --trigger_request_count <= 0 ) { /* restore display window cursor */ set_trigger_key_mouse(0); /* clear trigger in key response subroutine */ set_iraf_key_trigger(0); } return( 1 ); } #endif saoimage-1.08/ctrlcntn.c 666 21641 13 34672 5014333173 10352 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrlcntn.c (Control Connection) * Purpose: Handle all IO with remote independent processes * Subroutine: init_connections() returns: void * Subroutine: open_connection() returns: int * Subroutine: close_connection() returns: void * Subroutine: flush_connection() returns: void * Subroutine: respond_to_connection() returns: void * Subroutine: read_connection() returns: int * Subroutine: write_connection() returns: int * Copyright: 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} M. VanHilst initial version 10 March 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include "hfiles/control.h" /* declare control structure types */ extern struct controlRec control; extern Display *display; #define IOP_socket_listener 777 #define IOP_socket_acceptee 555 /* * Subroutine: init_connections * Purpose: set up connections after display connection has been opened * Note: necessary since parser precedes display connection */ void init_connections () { if( control.IRAF_in.open == 1 ) { control.IRAF_in.open = 0; if( control.IRAF_in.func != NULL ) (*control.IRAF_in.func)(); } if( control.AIPS_in.open == 1 ) { control.AIPS_in.open = 0; if( control.AIPS_in.func != NULL ) (*control.AIPS_in.func)(); } if( control.aux_in.open == 1 ) { control.aux_in.open = 0; if( control.aux_in.func != NULL ) (*control.aux_in.func)(); } } /* * Subroutine: open_connection * Purpose: Open a connection to a remote process and update event handlers * Returns: -1 on failure, else IPC number */ int open_connection ( connection ) struct connectRec *connection; { int ipc, flush_flag; #ifdef VMS extern int open_mailbox(); #else extern int ButtonSelectMask(), open_pipe(); extern int open_socket_listener(); extern struct connectRec *accept_socket_connection(); static void init_select(); #endif #ifdef NOPIPEFLUSH flush_flag = 0; #else flush_flag = 1; #endif if( ((connection->type != IOP_socket) && (connection->name == NULL)) || ((connection->type == IOP_socket) && (connection->address <= 0)) ) { if( connection->direction == IOP_Write ) (void)fprintf(stderr,"Error: output device not defined\n"); else (void)fprintf(stderr,"Error: input device not defined\n"); return( -1 ); } if( (connection->type != IOP_socket_listener) && (connection->open && (connection->fd >= 0)) ) { (void)fprintf(stderr, "Warning: connection already open: %s\n", connection->name); return(connection->fd); } #ifdef VMS if( connection->type == IOP_mailbox ) { ipc = open_mailbox(connection->name, connection->direction, 1); } #else if( connection->type == IOP_pipe ) { ipc = open_pipe(connection->name, connection->direction, flush_flag); } else if( connection->type == IOP_socket ) { ipc = open_socket_listener(&(connection->name), connection->address); } else if( connection->type == IOP_socket_listener ) { struct connectRec *temp; if( (temp = accept_socket_connection(connection)) != NULL ) { connection = temp; ipc = connection->fd; connection->type = IOP_socket_acceptee; } else ipc = -1; } #endif if( ipc < 0 ) { if( connection->direction == IOP_Write ) (void)fprintf(stderr,"Error: No remote output possible.\n"); else (void)fprintf(stderr,"Error: No remote input possible.\n"); connection->fd = -1; connection->open = 0; return( -1 ); } else { connection->fd = ipc; connection->open = 1; #ifdef VMS { extern int XZ_efn; extern void XZ_ast(); ZSelectAsyncInput(ipc, XZ_ast, XZ_efn); } #else if( (control.select_size <= 0) || (control.Xserver.open != 1) ) init_select(); /* compute IPC channel's select mask and set up event handling */ if( ipc < 32 ) { connection->mask[0] = (1 << ipc); connection->mask[1] = 0; connection->mask[2] = 0; connection->mask[3] = 0; } else if( ipc < 64 ) { connection->mask[0] = 0; connection->mask[1] = (1 << (ipc - 32)); connection->mask[2] = 0; connection->mask[3] = 0; } else if( ipc < 96 ) { connection->mask[0] = 0; connection->mask[1] = 0; connection->mask[2] = (1 << (ipc - 64)); connection->mask[3] = 0; } else if( ipc < 128 ) { connection->mask[0] = 0; connection->mask[1] = 0; connection->mask[2] = 0; connection->mask[3] = (1 << (ipc - 96)); } else { (void)fprintf(stderr, "device channel out of range\n"); return 0; } #endif if( (connection->direction != IOP_Write) || (connection->type == IOP_socket) ) { /* if connnection used to read, add it to event accepting list */ connection->next = control.Xserver.next; control.Xserver.next = connection; ++control.remote_connected; #ifndef VMS /* add bits to client's mask and adjust client's mask size */ control.select_mask[0] |= connection->mask[0]; control.select_mask[1] |= connection->mask[1]; control.select_mask[2] |= connection->mask[2]; control.select_mask[4] |= connection->mask[3]; /* inform the event handler in buttonlib about our ipc messages */ if( ButtonSelectMask(display, connection->mask, control.select_size, 1) != 1 ) (void)fprintf(stderr,"Warning: error setting button event mask\n"); #endif } } return ipc; } /* * Subroutine: close_connection * Purpose: Close the remote process connection and update event handlers */ void close_connection ( connection ) struct connectRec *connection; { #ifdef VMS extern int close_mailbox(); #else extern int ButtonSelectMask(); extern void close_pipe(), close_socket(); #endif if( connection->open ) { #ifdef VMS if( connection->type == IOP_mailbox ) (void)close_mailbox(connection->fd, connection->name); #else if( connection->type == IOP_pipe ) { close_pipe(connection->fd, connection->name); } else if( (connection->type == IOP_socket) || (connection->type == IOP_socket_listener) || (connection->type == IOP_socket_acceptee) ) { close_socket(connection->fd, connection->name); } #endif connection->fd = -1; connection->open = 0; if( (connection->type == IOP_socket_listener) || (connection->type == IOP_socket) || (connection->direction != IOP_Write) ) { struct connectRec *port = &control.Xserver; /* remove connection from event servicing queue */ while( (port != NULL) && (port->next != connection) ) port = port->next; if( (port != NULL) && (port->next == connection) ) { port->next = connection->next; connection->next = NULL; --control.remote_connected; } #ifdef VMS } #else /* remove connection from UNIX select event servicing masks */ if( (connection->mask[0] & control.select_mask[0]) || (connection->mask[1] & control.select_mask[1]) || (connection->mask[1] & control.select_mask[1]) || (connection->mask[1] & control.select_mask[1]) ) { if( ButtonSelectMask((Display *)NULL, connection->mask, control.select_size, 0) ) (void)fprintf(stderr, "Warning: error clearing button event mask\n"); if( (connection->mask[0] != 0) && (connection->mask[0] != control.Xserver.mask[0]) ) { control.select_mask[0] &= (~(connection->mask[0])); connection->mask[0] = 0; } if( (connection->mask[1] != 0) && (connection->mask[1] != control.Xserver.mask[1]) ) { control.select_mask[1] &= (~(connection->mask[1])); connection->mask[1] = 0; } if( (connection->mask[2] != 0) && (connection->mask[2] != control.Xserver.mask[1]) ) { control.select_mask[2] &= (~(connection->mask[1])); connection->mask[2] = 0; } if( (connection->mask[3] != 0) && (connection->mask[3] != control.Xserver.mask[1]) ) { control.select_mask[3] &= (~(connection->mask[1])); connection->mask[3] = 0; } } /* if only X connections are sought, turn off remote connection flag */ if( (control.select_mask[0] == control.Xserver.mask[0]) && (control.select_mask[1] == control.Xserver.mask[1]) && (control.select_mask[2] == control.Xserver.mask[2]) && (control.select_mask[3] == control.Xserver.mask[3]) ) control.remote_connected = 0; } connection->mask[0] = 0; connection->mask[1] = 0; connection->mask[2] = 0; connection->mask[3] = 0; /* coordinate sockets reader and listener */ if( connection->type == IOP_socket_acceptee ) { /* closing a connection reopens its listener */ connection->affiliate->type = IOP_socket; connection->affiliate->affiliate = NULL; (void)open_connection(connection->affiliate); /* acceptees are malloc'd space */ free(connection); } } else if( (connection->type == IOP_socket_listener) && (connection->affiliate != NULL) && connection->affiliate->open ) { /* if closing an inactive listener, close its affiliate connection */ if( connection->affiliate->direction == IOP_Write ) { close_socket(connection->affiliate); } else { /* clear up event descritor if not write-only */ connection->affiliate->type = IOP_socket; close_connection(connection->affiliate); } free(connection->affiliate); connection->affiliate = NULL; #endif } } /* * Subroutine: flush_connection * Purpose: Suck all bytes out of a pipe open for reading */ void flush_connection ( connection ) struct connectRec *connection; { #ifdef VMS extern void flush_mailbox(); #else extern void flush_pipe(), flush_socket(); #endif #ifdef VMS if( connection->type == IOP_mailbox ) flush_mailbox(connection->fd, connection->name); #else if( connection->type == IOP_pipe ) flush_pipe(connection->fd, connection->name); else if( connection->type == IOP_socket_acceptee ) flush_socket(connection->fd, connection->name); #endif } /* * Subroutine: respond_to_connection * Purpose: call the function for this connection event */ void respond_to_connection ( id ) int *id; /* call identifier (UNIX bit mask or VMS mailbox number) */ { int i; struct connectRec *port; port = control.Xserver.next; /* loop has redundant terminations which should coincide */ for( i=0; (port != NULL) && (ifd ) #else if( (id[0] & port->mask[0]) || (id[1] & port->mask[1]) || (id[2] & port->mask[2]) || (id[3] & port->mask[3]) ) #endif continue; port = port->next; } if( port != NULL ) { #ifndef VMS if( port->type == IOP_socket ) { /* event on open listener means open socket acceptee, close listener */ port->type = IOP_socket_listener; /* open on redefined listener creates the acceptee */ if( open_connection(port) < 0 ) port->type = IOP_socket; else { close_connection(port); /* set the file descriptor, in case somebody tries to write to it */ port->fd = port->affiliate->fd; } } else #endif if( port->func != NULL ) /* execute the connection's response function */ (*port->func)(port); #ifdef DEBUG } else (void)fprintf(stderr, "Unrecognized select or mailbox event\n"); #else } #endif } /* * Subroutine: read_connection * Purpose: read specified number of bytes from connection into buf */ int read_connection ( connection, buf, bytes ) struct connectRec *connection; char *buf; int bytes; { int status; #ifdef VMS extern int read_mailbox(); if( connection->type == IOP_mailbox ) status = read_mailbox(connection->fd, buf, bytes, 1, connection->name, "mailbox input"); #else extern int read_disk(); if( (connection->type == IOP_pipe) || (connection->type == IOP_socket_acceptee) ) status = read_disk(connection->fd, buf, bytes, 1, connection->name, "remote input"); #endif else status = -1; return( status ); } /* * Subroutine: write_connection * Purpose: write specified number of bytes to connection from buf */ int write_connection ( connection, buf, bytes ) struct connectRec *connection; char *buf; int bytes; { int status; #ifdef VMS extern int write_mailbox(); if( connection->type == IOP_mailbox ) status = write_mailbox(connection->fd, buf, bytes, connection->name); #else extern int write_disk(); if( (connection->type == IOP_pipe) || (connection->type == IOP_socket_acceptee) ) status = write_disk(connection->fd, buf, bytes, connection->name); else if( connection->type == IOP_socket_listener ) status = write_disk(connection->affiliate->fd, buf, bytes, connection->name); #endif else status = -1; return( status ); } #ifndef VMS /* * Subroutine: init_select * Purpose: Initialize event handler parameters * Note: SYSV machines don't have an easy way to get the number of * device bits in the select mask. Most have 64. Under BSD, * Sun uses 32 (1 int), Apollo uses 128 (4 ints). */ static void init_select () { int server_chan; #ifdef SYSV control.select_size = 64; #else control.select_size = getdtablesize(); #endif /* get the x window server channel and compute its mask */ server_chan = ConnectionNumber(display); if( server_chan < 32 ) { control.Xserver.mask[0] = (1 << server_chan); control.Xserver.mask[1] = 0; control.Xserver.mask[2] = 0; control.Xserver.mask[3] = 0; } else if( server_chan < 64 ) { control.Xserver.mask[0] = 0; control.Xserver.mask[1] = (1 << (server_chan - 32)); control.Xserver.mask[2] = 0; control.Xserver.mask[3] = 0; } else if( server_chan < 96 ) { control.Xserver.mask[0] = 0; control.Xserver.mask[1] = 0; control.Xserver.mask[2] = (1 << (server_chan - 64)); control.Xserver.mask[3] = 0; } else if( server_chan < 64 ) { control.Xserver.mask[0] = 0; control.Xserver.mask[1] = 0; control.Xserver.mask[2] = 0; control.Xserver.mask[3] = (1 << (server_chan - 96)); } /* initialize combined mask and open new pipe */ control.select_mask[0] = control.Xserver.mask[0]; control.select_mask[1] = control.Xserver.mask[1]; control.select_mask[2] = control.Xserver.mask[2]; control.select_mask[3] = control.Xserver.mask[3]; control.Xserver.open = 1; } #endif saoimage-1.08/ctrlmbox.c 666 21641 13 12025 4617457552 10361 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrlmbox.c (ControlMailbox) * Purpose: Handle a VMS mailbox for IO * Subroutine: open_mailbox() returns: int * Subroutine: close_mailbox() returns: void * Subroutine: flush_mailbox() returns: void * Copyright: 1989, 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Jay Travisano (STScI) initial version 10 Nov 1989 * {1} MVH simplified for new connect module 10 March 1990 * {n} -- -- */ #ifdef VMS /* * VMS -- Use VMS/IRAF Imtool driver (ZFIOVI) */ #include /* define stderr, FILE, NULL, etc */ #include /* define open */ #include /* X window stuff */ #include "hfiles/control.h" /* declare control structure types */ #define READ_ONLY 1 /* IRAF SPP definitions */ #define READ_WRITE 2 #define WRITE_ONLY 3 /* * Subroutine: open_mailbox * Purpose: Open a VMS mailbox I/O * Returns: Channel number on success else -1. */ int open_mailbox ( device_name, direction, flush_flag ) char *device_name; /* i: name of mailbox device */ int direction; /* i: IOP_Write, IOP_Read, IOP_ReadWrite */ int flush_flag; /* i: 1=flush, 0=don't flush */ { int ipc; /* o: channel of new pipe connection */ int mode; if( direction == IOP_Write ) mode = WRITE_ONLY; else if( direction == IOP_Read ) mode = READ_ONLY; else if( direction == IOP_ReadWrite ) mode = READ_WRITE; else return( -1 ); zopnvi(device_name, &mode, &ipc); if( ipc == -1 ) { (void)fprintf(stderr,"Warning: cannot open %s\n", device_name); return( -1 ); } #ifdef VMS_FLUSH_INPUT /* Don't think we want to do this. Mailboxes are pretty well-behaved, * and we should be able to pick up pending input if we are (re)started * after IRAF has sent data. */ if( flush_flag && (mode != WRITE_ONLY) ) /* if reading, flush old input, if any */ flush_mailbox(ipc, 0, device_name); #endif return( ipc ); } /* * Subroutine: close_mailbox * Purpose: Close a mailbox connection * Returns: 0 on success else -1. */ int close_mailbox ( ipc, device_name ) int ipc; /* i: mailbox channel number */ char *device_name; /* i: name of mailbox device */ { int chan, status; chan = ipc; zclsvi(&chan, &status); if( status == -1 ) { (void)fprintf(stderr,"Warning: cannot close mailbox %s\n", device_name); return( -1 ); } else { return( 0 ); } } /* * Subroutine: flush_mailbox * Purpose: Suck all bytes out of a pipe open for reading */ void flush_mailbox ( ipc, device_name ) int ipc; /* i: mailbox channel number */ char *device_name; /* [i]: name of mailbox device */ { int bytes, total; char buf[8192]; int read_mailbox(); total = 0; while( ZPending(ipc) ) { bytes = read_mailbox(ipc, buf, sizeof(buf), 0, device_name, "junk"); total += bytes; } #ifdef DEBUG if( total > 0 ) (void)fprintf(stderr, "Flushed %d bytes from pipe\n", total); #endif } /* * Subroutine: read_mailbox * Purpose: Read VMS mailbox * Returns: Byte count, 0 on EOF, -1 on error */ int read_mailbox ( ipc, buf, bytes, report_error, device_name, detail ) int ipc; /* i: mailbox channel number */ char *buf; /* i: address of buffer to receive data */ int bytes; /* i: maximum number of bytes to read */ int report_error; /* i: report under-count read */ char *device_name; /* [i]: name of mailbox device */ char *detail; /* [i]: details of operation */ { int chan = ipc; int maxbytes = bytes; int offset = 0; int status; zardvi(&chan, buf, &maxbytes, &offset); zawtvi(&chan, &status); if( report_error ) { if( status <= 0 ) { (void)fprintf(stderr, "Error in reading"); if( detail != NULL ) (void)fprintf(stderr, " %s", detail); if( device_name != NULL ) (void)fprintf(stderr, " from %s", device_name); (void)fprintf(stderr, "\n"); (void)fflush(stderr); } else { if (status < maxbytes) { (void)fprintf(stderr, "Expected %d bytes, read %d\n", maxbytes, status); (void)fflush(stderr); } } } return( status ); } /* * Subroutine: write_mailbox * Purpose: Write to VMS mailbox * Returns: Byte count, 0 on EOF, -1 on error */ int write_mailbox ( ipc, buf, bytes, device_name ) int ipc; /* i: mailbox channel number */ char *buf; /* i: address of buffer to write */ int bytes; /* i: number of bytes to write */ char *device_name; /* i: name of mailbox device */ { int chan = ipc; int nbytes = bytes; int offset = 0; int status; zawrvi(&chan, buf, &nbytes, &offset); zawtvi(&chan, &status); if( status < bytes ) (void)fprintf(stderr, "Write error on %s; wrote %d of %d bytes\n", device_name, status, bytes); return( status ); } #endif saoimage-1.08/update.txt 666 21641 13 6062 5052600117 10347 CHANGES TO SAOIMAGE CODE SINCE 1 May 1990 (Release 1.0) ------------------------ Changes from beta version: file names have all been shortened to an 8.3 (or smaller) format to enable movement through MSDOS file systems. A second button appearance is available. Many internal code changes (to aid in debugging and support socket IO, to name a couple). ------------------------ ------------------------ Fixes: June 3, 1990 - Release 1.02 sclctrl.c: fixed bug which assigned wrong image type at init time clralloc.c: added colormap creation needed for OpenWindows and SiliconGraphics wndwcre.c, editctrl.c: added ICCCM compliant focus message for window manager cmdimage.c: upgraded experimental real-time code ------------------------ ------------------------ Changes: Jan 1, 1991 - Release 1.03 csrcoord.c csrctrl.c csrdraw.c csrmove.c csrsave.c csrshape.c csrslct.c: csrtext.c (new): doc/cursor.txt doc/hardcopy.txt doc/region.txt: editdraw.c: mainkey.c mainslct.c: panel/cursor.menu panel/menucsr.h: rgnctrl.c rgnmake.c rgnread.c rgntoken.c rgnwpros.c: New features for labeling images - arrow and text cursors clralloc.c: Permits users with 4-5 plane machines to try color features cmdimage.c: Removed restrictions on file names starting with non-alpha doc/manual.tex The manual has been Latex'd! (see manual.dvi - 36 pages) imgflip.c: Fixed rotation of long or skinny images imgnew.c: Fixed load_mainbuf buffer zeroing mainevnt.c: Fixed non-portable #ifdefs mgfydraw.c: Fixed fatal magnifier bug (noticed by users of small images) mgfyval.c: Upgraded optimal output format algorithm wndwconf.c wndwinit.c: Match arg typing to new Xlib.h (ANSII C type warning) ------------------------ ------------------------ Changes: June 21, 1991 - Release 1.04 doc/manual.tex: Latex'd manual! all makefiles: Redone by NOAO for better porting ctrlcntn.c: Removed autoflush (bad for MIPS implementations) mainevnt.c: Fixed mask inconsistancy causing "bad file number" errors hfiles/imtool.h:Some new IRAF support (alternate paths to fbconfig) cmdimage.c cmdparse.c: Added + type switches where switch can toggle feature on/off. hfiles/coord.h crdtemp.c dispbtmp.c dispdfse.c dispdthr.c disppxmp.c imgnew.c mgfydraw.c sclctrl.c: Fixed numerous bugs for handling of very small images. histlist.c: Fix for infinite loop problem btnlib/draw.c cmdparse.c wndwadj.c: #ifdef'd kludge switches buttons to ZPixmap format for ALLIANT server which does not display XYBitmap correctly. ------------------------ ------------------------ Changes: August 14, 1991 - Release 1.06 disppsct.c: Generate EPS (Adobe v2.0), CDB ------------------------ Known bugs: 1. Sizes for images being displayed with less than full resolution can be mis-calculated in some circumstances, resulting in an extra, non-image line at the bottom. 2. SAOimage is NOT X11 ICCCM compliant in the following areas: a. It does not use resources for defaults (i.e. background and border colors). b. No cut and paste mechanisms are supported 3. Massively zoomed tiny images may have coloring anomolies at the edges. ----------------------- saoimage-1.08/ctrlsckt.c 666 21641 13 11212 4622543212 10336 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrlsckt.c (Control Socket) * Purpose: Open a pipe device for IO * Subroutine: open_socket_listener() returns: int * Subroutine: accept_socket_connection() returns: struct *connectRec * Subroutine: close_socket() returns: void * Subroutine: flush_socket() returns: void * Copyright: 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} John Roll initial version 1 March 1990 * {1} MVH simplified for new connect module 10 March 1990 * {n} -- -- */ #ifndef VMS #include #include #include /* socket(), bind(), listen(), accept(), etc */ #include #include /* htonl(), struct sockaddr_in */ #ifdef SYSV #include /* strlen(), strcpy(), strncpy(), strrchr() */ #else #include /* strlen(), strcpy(), strncpy(), rindex() */ #endif #include /* X window stuff */ #include "hfiles/control.h" /* define struct connectRec */ /* * Subroutine: open_socket_listener * Purpose: Get a socket on which to listen for connections */ int open_socket_listener ( host_name, port_address ) char **host_name; int port_address; { struct hostent *host_port; struct sockaddr_in net_address; int ipc; static char *local_name; char *calloc_errchk(); bzero(&net_address, sizeof(net_address)); /* if host name not given, use the local host name of this machine */ if( *host_name == NULL ) { /* if local host name not yet known, get it and remember it */ if( local_name == NULL ) { char name[100]; if( gethostname(name, 100) != 0 ) { perror("Can't get user's hostname for socket\n "); return( -1 ); } local_name = calloc_errchk(strlen(name)+2, 1, "socket host name"); (void)strncpy(local_name, name, 100); } *host_name = local_name; } /* get host port address information */ if( (host_port = gethostbyname(*host_name)) == NULL ) { (void)fprintf(stderr, "Unknown host for socket: %d on %s\n", port_address, *host_name); return( -1 ); } /* fill in the network address structure */ net_address.sin_family = AF_INET; /* convert port address from host to network byte order */ net_address.sin_port = htonl(port_address); bcopy(host_port->h_addr, &(net_address.sin_addr), sizeof(net_address.sin_addr)); /* create a socket communication endpoint */ /* use full-duplex byte stream & ARPA Internet protocol */ if( (ipc = socket(PF_INET, SOCK_STREAM, 0)) < 0 ) { perror("Cannot create a socket connection\n "); return( -1 ); } /* bind the socket to the network address */ if( bind(ipc, &net_address, sizeof(net_address)) ) { perror("cannot bind socket to host address\n "); return( -1 ); } /* start listening for connections (allowing a backlog of 5) */ if( listen(ipc, 5) ) { perror("Cannot listen on socket\n "); return( -1 ); } return( ipc ); } /* * Subroutine: accept_socket_connection * Purpose: accept a connection requested of the socket listener */ struct connectRec *accept_socket_connection ( listener ) struct connectRec *listener; { struct sockaddr net_address; int ipc; int address_len; struct connectRec *connection; char *calloc_errchk(); address_len = sizeof(net_address); if( (ipc = accept(listener->fd, &net_address, &address_len)) < 0 ) { perror("Cannot accept socket connection"); return( NULL ); } connection = (struct connectRec *) calloc_errchk(1, sizeof(struct connectRec), "socket descriptor"); connection->fd = ipc; connection->type = IOP_socket; connection->direction = listener->direction; connection->protocol = listener->protocol; connection->func = listener->func; connection->name = listener->name; connection->address = listener->address; connection->affiliate = listener; listener->affiliate = connection; return( connection ); } /* * Subroutine: flush_socket * Purpose: flush all pending input on this socket connection */ void flush_socket ( ipc, socketname ) int ipc; char *socketname; { extern void flush_disk(); if( socketname == NULL ) flush_disk(ipc, "socket"); else flush_disk(ipc, socketname); } /* * Subroutine: close_socket * Purpose: close this socket's file descriptor */ void close_socket ( ipc ) int ipc; { if( close(ipc) ) perror("Error closing socket\n "); } #endif saoimage-1.08/irafio.c 666 21641 13 15667 5266331476 10014 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: irafio.c (IRAF Input Output) * Purpose: Read an image in from the IRAF pipe * Subroutine: open_imtool_connection() returns: void * Subroutine: close_imtool_connection() returns: void * Subroutine: rename_imtool_connection() returns: void * Subroutine: imtool_input() returns: int * Subroutine: imtool_output() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} based on code from Doug Tody's IRAF Imtool (NOAO) * {1} Michael VanHilst adapted 9 July 1989 * {2} Michael VanHilst added output 2 Nov 1989 * {3} MVH used generalized remote connection IO 28 March 1990 * {n} -- -- * "For the moment we take an IIS model 70 command/data stream as input; this * is used to load images into the image display. This is a kludge interface * for the prototype, convenient since the high level software is written for * the IIS." - explanation by Doug Tody */ #include /* stderr, FILE, NULL, etc. */ #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include "hfiles/control.h" /* define struct connectRec */ #include "hfiles/imtool.h" /* define struct imtoolRec, codes */ extern struct controlRec control; /* * Subroutine: open_imtool_connection * Purpose: open the connection for IRAF */ void open_imtool_connection () { #ifdef IMTOOL int open_connection(); extern void read_imtool_packet(); control.IRAF_in.func = read_imtool_packet; if( open_connection(&control.IRAF_in) != -1 ) { if( control.IRAF_in.type != IOP_socket ) (void)open_connection(&control.IRAF_out); if( control.verbose ) (void)printf("Open to accept IRAF input\n"); } #else (void)fprintf(stderr, "IRAF imtool support not compiled\n"); #endif } /* * Subroutine: close_imtool_connection * Purpose: close the connection for IRAF */ void close_imtool_connection () { close_connection(&control.IRAF_in); if( control.IRAF_in.type != IOP_socket ) close_connection(&control.IRAF_out); if( control.verbose ) (void)printf("Closed IRAF input channel\n"); } /* * Subroutine: rename_imtool_connection * Purpose: assign a new name to the imtool connection */ void rename_imtool_connection ( name, in ) char *name; int in; { char *string, *calloc_errchk(); string = calloc_errchk(strlen(name)+2, 1, "string buffer"); strcpy(string, name); if( in ) control.IRAF_in.name = string; else control.IRAF_out.name = string; } #ifdef IMTOOL /* * Subroutine: imtool_output * Purpose: Write image data back to iraf device channel */ void imtool_output ( imhead, odev, imagebuf, width, height ) struct imtoolRec *imhead; struct connectRec *odev; short *imagebuf; int width, height; { int ndatabytes; int x, y; int offset; int nleft; int bytes; int buferr = 0; char fifobuf[SZ_FIFOBUF + 4]; int write_connection(); static int compact_short_to_byte(); ndatabytes = -(int)imhead->thingct; x = imhead->x & 077777; y = imhead->y & 077777; offset = (y * width) + x; /* if requested segment overflows,must be in error */ if( (offset + ndatabytes) > (width * height) ) { (void)fprintf(stderr, "attempted read out of bounds on buffer\n"); (void)fprintf(stderr, "Sending NULL data\n"); imagebuf = NULL; } else imagebuf += offset; bzero(fifobuf, SZ_FIFOBUF + 4); bytes = SZ_FIFOBUF; for( nleft = ndatabytes; nleft > 0; nleft -= bytes ) { if( nleft < SZ_FIFOBUF ) bytes = nleft; /* load buffer for writing */ if( imagebuf != NULL ) { if( compact_short_to_byte(imagebuf, (unsigned char *)fifobuf, bytes) ) buferr = 1; } if( write_connection(odev, fifobuf, bytes) < 0 ) return; imagebuf += bytes; } if( buferr ) (void)fprintf(stderr, "WARNING: data not IRAF compatible\n"); } /* * Subroutine: imtool_input * Purpose: Load image data from iraf input device channel * Called by: imtool_response() in RemoteImtool.c * Returns: -1 if read no bytes, 1 if trouble, else 0 */ int imtool_input ( imhead, idev, readbuf, iwdth, owdth, y1, y2, imagebuf, imbufsz ) struct imtoolRec *imhead; struct connectRec *idev; char *readbuf; int iwdth, owdth; int *y1, *y2; short *imagebuf; int imbufsz; { int ndatabytes, ndatavals; int packed; int errcnt; int x, y; int nvals, nleft; int got, try, gotten; short *obuf; int read_connection(); static void expand_byte_to_short(); /* get data count and packing type */ ndatavals = -(int)imhead->thingct; if( !(imhead->tid & PACKED) ) { ndatabytes = ndatavals * 2; packed = 0; } else { ndatabytes = ndatavals; packed = 1; } /* get bytes and upper left coordinates */ x = imhead->x & 077777; y = imhead->y & 077777; /* check for running out of bounds */ *y1 = y; *y2 = y + (ndatavals / iwdth); if( ((y * owdth + ndatavals) * 2) > imbufsz ) { (void)fprintf(stderr,"Error: Imtool read beyond buffer %d, %d\n", y, *y2); return( -1 ); } /* compute pointer to output buffer starting entry */ obuf = imagebuf + (y * owdth) + x; /* read the data into the frame buffer. */ for( nleft = ndatabytes; nleft > 0; nleft -= nvals ) { try = nvals = (nleft < SZ_FIFOBUF) ? nleft : SZ_FIFOBUF; errcnt = 0; gotten = 0; while( (got = read_connection(idev, &(readbuf[gotten]), try)) < try ) { (void)fprintf(stderr, "Pipe data under-read: %d %d\n", got, try); (void)fflush(stderr); try -= got; gotten += got; if( errcnt++ > 10 ) return( 1 ); } /* move input data to image buffer */ if( packed ) { /* 8 bit integers in */ expand_byte_to_short ((unsigned char *)readbuf, obuf, nvals); obuf += nvals; } else if( readbuf != (char *)obuf ) { /* 16 bit integers in */ bcopy(readbuf, (char *)obuf, nvals); obuf += (nvals / 2); } } return( 0 ); } /* * Subroutine: expand_byte_to_short * Purpose: Unpack byte data for use as shorts */ static void expand_byte_to_short ( bts, ints, cnt ) register unsigned char *bts; register short *ints; register int cnt; { while (cnt-- > 0) { *ints = *bts; ints++; bts++; } } static int compact_short_to_byte ( ints, bts, cnt ) register short *ints; register unsigned char *bts; register int cnt; { int buferr = 0; while( cnt-- > 0 ) { if( *ints > 255 ) { *bts = 255; buferr = 1; } else if( *ints < 0 ) { *bts = 0; buferr = 1; } else *bts = *ints; ++ints; ++bts; } return( buferr ); } #endif saoimage-1.08/imglogo.c 666 21641 13 55703 4615621164 10164 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: imglogo.c * Purpose: Put logo in image buffer * Subroutine: color_logo() returns: void * Subroutine: load_logo() returns: void * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 25 April 1990 */ /* image values of various features of the logo */ #define SUNN 201 #define SURND 1 #define BKGD 200 #define LET 0 /* dimensions of the uncoded and code logo image */ #define LOGO_WIDTH 176 #define LOGO_HEIGHT 197 #define LOGO_SZ 3444 /* * Subroutine: color_logo * Purpose: redirect lookup table to map parts of logo to static colors */ void color_logo ( lookup, blue, yellow ) unsigned char *lookup; int blue; int yellow; { lookup[SURND] = (unsigned char)blue; lookup[SUNN] = (unsigned char)yellow; } /* * Subroutine: make_logo * Purpose: decode run-length encoded saoimage logo into short buffer */ static void make_logo ( logo, logo_len, buf, buf_width ) register unsigned char *logo; int logo_len; short *buf; int buf_width; { int i, j, val, cnt; register int x; int run, line; register short *ob; unsigned char *logo_end; logo_end = logo + logo_len; while( logo < logo_end ) { line = *logo; logo++; cnt = *logo; logo++; ob = &buf[line * buf_width]; x = 0; for( i = 0; i < cnt; i++ ) { run = *logo; logo++; val = *logo; logo++; for( j=0; j makefile # copy machine-specific makefile % make Choosing a makefile: There are several makefiles to choose from: .apo, .dec, .hp, .ibm, .mips, .sgi, and .sun. makefile.sun expects the most in terms of system utilities and up-to date libraries. These are unlikely to be available on non-Sun machines. makefile.hp expects the least, and should work on machines as diverse as Apple, Convex, Cray, and Masscomp; it is an example of a makefile for a System V system. makefile.dec is similar to makefile.hp, but for machines with LSB byte order (this only affects reading FITS files). Editing the makefile: After choosing a closest makefile and copying it to "makefile", you may wish to make further adjustments. All changes are at the top, so don't be discouraged by the size of the makefile. The switches are described at the top of the makefile. If you do not use IRAF, delete the -DIMTOOL switch from IFLAGS. If you leave this switch in, but don't have IRAF installed, SAOimage will give a nasty warning message every time you bring it up. If you don't have a PostScript printer, you may omit the -PSCRIPT switch. If you have gcc, by all means use it! It produces a much better executable than CC. To use gcc, you must remove the "#" signs from the two gcc lines. You may add further optimization switches to the gcc line if you wish. A potentially editless alternative to selecting a makefile: A driver makefile exists that sets architecture-dependent flags for an assortment of popular (and supported) architectures. In a mixed- architecture environment, it is probably simpler to use the entries in the master makefile, and let this file select the appropriate machine- dependent makefile. % cp makefile.main makefile # copy master makefile % make # lists possible architectures % make # do it If you are making your own changes to the source code: To add new image formats, just add appropriate calls in init_image() (to return dimensions) and load_image() (to load the passed buffer) in imgread.c. You should add a commandline switch needed to recognize your image in parse_filetype() in cmdimage.c. If your image file names have a unique suffix, you may use that to recognize the file type in check_image() in imgcheck.c. To add remote IO from other processes, use one of the connection records in hfiles/control.h (initialized defs/control.def) and follow the example in irafio.c. It is very simple: you just put the pointer to your callback in the record and open the connection. To add or change buttons, you must edit the ____.mnu files in the panel subdirectory. You must look at the hfiles in btnlib and btnlib/tool to understand how the buttons are described. You may use text strings and/or your own bitmaps. To make new buttons, compile the library in btnlib/tool and then do the make in the panel subdirectory. The button font is in the code, it does not use any runtime resources. Acknowledgements: SAOimage originated with showimg under X10. Showimg was written by Bill Wyatt, and has continued to be extend under X11 by Doug Mink. The user interface ideas for SAOimage were developed in collaboration with Richard Burg and Eric Mandell. Jay Travisano did the VMS port and has continued to support it as SAOimage evolved. John Roll has put work into the remote IO. Rich Burg and Jay Travisano are both with the Space Telescope Science Institute. The others mentioned are all with the Harvard Smithsonian Center for Astrophysics. Numerous others have contributed bug fixes, porting information, and helpful suggestions. They are credited in the source files where their contributions appear. Copyright: SAOimage is copyrighted by the Smithsonian Institution. It is available without charge, as is, to anyone who wishes to use it. The Smithsonian takes no responsibility for the appropriateness of the code for any application, the timeliness of bug fixes, or the continued compatablility of future versions with any code linked to this program. Others are free to use, distribute, add to, or change the code. In fact fixes, extensions, and improvements are encouraged. We would appreciate donations of such code for inclusion in the generally available version. You may identify yourself with your added code and offer it under whatever arrangement you choose. But you must keep the Smithsonian's copyright on original source code. You may not represent this program as anything other than freely available code made available by the Smithsonian Astrophysical Observatory. Developers should identify themselves to SAO so they can be notified in advance of impending changes, receive advance copies of development code, and be informed of others doing similar work for possible collaboration. email address: vanhilst@cs.washington.edu (INTERNET) mvh@cfa.harvard.edu (INTERNET) mvh@cfa (BITNET) 6699::VANHILST (SPAN) saoimage-1.08/rtio.c 666 21641 13 4453 4622546405 7462 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: rtio.c (Real Time Input Output) * Purpose: Read commands from a Berkeley Socket * Subroutine: open_rtsock_connection() returns: void * Subroutine: open_rtfifo_connection() returns: void * Subroutine: sock_output() returns: int * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0] Initial version John Roll : May 90 * {n} -- -- */ #include /* stderr, FILE, NULL, etc. */ #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include "hfiles/control.h" /* define struct connectRec */ #include "hfiles/rtcmd.h" /* command protocol and ID's */ extern struct controlRec control; /* * Subroutine: open_rtsock_connection * Purpose: open the connection for Sockets */ void open_rtsock_connection () { int open_connection(); void read_rtio_packet(); control.aux_in.func = read_rtio_packet; control.aux_in.type = IOP_socket; if( open_connection(&control.aux_in) != -1 ) { if( control.verbose ) (void)printf("Open to accept real time Socket io\n"); } } /* * Subroutine: open_rtfifo_connection * Purpose: open the connection for FiFo */ void open_rtfifo_connection () { int open_connection(); void read_rtio_packet(); control.aux_in.func = read_rtio_packet; control.aux_in.type = IOP_pipe; if( open_connection(&control.aux_in) != -1 ) { if( control.verbose ) (void)printf("Open to accept feal time FiFo io\n"); } } /* * Subroutine: read_rtio_packet * Purpose: read and decode a socket protical packet * Called by: * Returns: void */ void read_rtio_packet ( port ) struct connectRec *port; { int bytes; cmdrec cmd; bytes = read_connection(port, (char *)&cmd, sizeof(cmdrec)); if ( bytes != sizeof(cmdrec) ) if ( bytes == 0 ) close_connection(port); else flush_connection(port); si_command(&cmd); } saoimage-1.08/mainbffr.c~ 666 21641 13 20153 5564736277 10520 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mainbffr.c (Main Buffers) * Purpose: Allocate or reallocate large buffers * Subroutine: init_imaging buffers() returns: void * Subroutine: init_display_buffers() returns: void * Subroutine: init_colorbarbuf() returns: void * Subroutine: init_panbuf() returns: void * Subroutine: init_dispbuf() returns: void * Subroutine: init_imagebuf() returns: int * Xlib calls: none * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 25 May 1989 * {1} MVH fix in init_imagebuf to note square buf 4 April 1990 * {n} -- -- */ #include /* get stderr, NULL, etc */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/define.h" /* define MIN, MAX, etc. */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main parameter structures */ #include "hfiles/scale.h" /* define scaling constants */ /* * Subroutine: init_imaging_buffers * Purpose: Allocate major buffers used for imaging */ void init_imaging_buffers () { char *calloc_errchk(); int init_imagebuf(); buffer.scalemap = (unsigned char *) calloc_errchk(SCALEBUFSZ, sizeof(char), "scaling map"); buffer.histogram = (int *) calloc_errchk(SCALEBUFSZ, sizeof(int), "histogram table"); (void)init_imagebuf (); } /* * Subroutine: init_display_buffers * Purpose: Allocate buffers used for each window's display */ void init_display_buffers () { void init_panbuf(), init_dispbuf(); init_panbuf(); init_dispbuf(); } /* * Subroutine: init_panbuf * Purpose: Allocate or reallocate panbox display buffers */ void init_panbuf () { int buf_sz; char *calloc_errchk(); buf_sz = panbox.xwidth * panbox.yheight; /* test if the current buffers are adequate, else allocate or reallocate */ if( buf_sz > buffer.panbuf_sz ) { if( buffer.panbuf != NULL ) free( (char *)buffer.panbuf ); if( panbox.image.data != NULL ) { free( panbox.image.data ); panbox.image.data = NULL; panbox.data_size = 0; } /* reserve exact window sized buffer for the panbox short integer image */ buffer.panbuf = (short *) calloc_errchk(buf_sz, sizeof(short), "Panbox map"); buffer.panbuf_sz = buf_sz; /* reserve buffer for the panbox display image */ if( color.screen_depth <= 1 ) { /* if only bitmap will be used */ panbox.image.bytes_per_line = (panbox.xwidth + 7) / 8; buf_sz = panbox.image.bytes_per_line * panbox.yheight; } panbox.image.data = calloc_errchk(buf_sz, sizeof(char), "Panbox display"); panbox.data_size = buf_sz; } panbox.image.width = panbox.xwidth; panbox.image.height = panbox.yheight; } /* * Subroutine: init_dispbuf * Purpose: Allocate or reallocate dispbox display buffer */ void init_dispbuf () { int buf_sz; char *calloc_errchk(); void set_coordsys(), set_tdisp(); dispbox.image.width = dispbox.xwidth; dispbox.image.height = dispbox.yheight; if( color.screen_depth <= 1 ) { /* if only bitmap will be used */ dispbox.image.bytes_per_line = (dispbox.xwidth + 7) / 8; buf_sz = dispbox.image.bytes_per_line * dispbox.yheight; } else buf_sz = dispbox.xwidth * dispbox.yheight; /* test if the current buffer is adequate, else allocate or reallocate */ if( buf_sz > dispbox.data_size ) { if( dispbox.image.data != NULL ) free( dispbox.image.data ); dispbox.image.data = calloc_errchk(buf_sz, sizeof(char), "Display image"); dispbox.data_size = buf_sz; } /* set the display coord system and propose new display parameters */ set_coordsys(&coord.disp, 0.5, (int)dispbox.width, (int)dispbox.height, dispbox.xzero, dispbox.yzero, dispbox.xzero + dispbox.xwidth - 1, dispbox.yzero + dispbox.yheight - 1); /* complete tdi parameters, must already have center and zoom */ set_tdisp(&coord); } /* * Subroutine: init_imagebuf * Purpose: Allocate or reallocate main image buffer to fit img or as * much as allowed. Also allocate file data buffer if data * cannot be read directly into i*2 buf. * Returns: 1 on success, else 0. * Post-state: buffer.load_filebuf set to 0 if alloc's failed. * Method: Try to allocate enough for entire given image subsection. * If the display is to be rotated, make the short buf square * or double (whichever is less). * Parameters: * buffer: i/o: record structure for imaging buffers * coord.img: i: coordinate system of image or image subsection * coord.buf: o: coordinate system of short integer image buffer */ static char imgbuf_error[] = "Unable to allocate sufficient memory for requested image.\n"; int init_imagebuf () { int width, height; int img_sz, buf_sz; int shortbuf_double = 0; int shortbuf_square = 0; int did_alloc = 0; char *calloc_errchk(); void set_coordsys(); /* calculate buffer size, use img if within limit, else use limit */ width = coord.img.width; height = coord.img.height; img_sz = width * height; /* if image is to be rotated 90% (aspect ratio changed) */ if( img.rotate_code & 1 ) { /* make short buffer square or double for rotation algorithm */ buf_sz = SQR(MAX(width, height)); if( buf_sz > (2 * img_sz) ) { buf_sz = 2 * img_sz; shortbuf_double = 1; } else shortbuf_square = 1; } else buf_sz = img_sz; /* buf_sz is in shorts, img_sz will now be in bytes (as is filebuf_sz) */ img_sz *= img.bytepix; /* free filebuf if unique and inadequate, or unneeded */ if( buffer.filebuf == (char *)buffer.shortbuf ) { buffer.filebuf = NULL; buffer.filebuf_sz = 0; } else if( (buffer.filebuf != NULL) && ((img.bytepix <= 2) || (img_sz > buffer.filebuf_sz)) ) { free( buffer.filebuf ); buffer.filebuf = NULL; buffer.filebuf_sz = 0; } /* check the adequacy of current short integer image buf */ if( buf_sz > buffer.shortbuf_sz ) { if( buffer.shortbuf != NULL ) free( (char *)buffer.shortbuf ); buffer.shortbuf = (short *)calloc_errchk(buf_sz, sizeof(short), NULL); if( buffer.shortbuf == 0 ) { /* if failed, clear the slate, report error, and continue */ buffer.shortbuf_sz = 0; if( buffer.filebuf != NULL ) { free( buffer.filebuf ); buffer.filebuf = NULL; buffer.filebuf_sz = 0; } (void)fprintf(stderr, imgbuf_error); buffer.load_filebuf = 0; return( 0 ); } buffer.shortbuf_sz = buf_sz; did_alloc = 1; } /* check on file data buf (if it still exists, it must be adequate) */ if( buffer.filebuf == NULL ) { if( img.bytepix > 2 ) { /* force worst case allignment */ buffer.filebuf = calloc_errchk((img_sz + 7) / 8, 8, NULL); if( buffer.filebuf == NULL ) { /* if failed, clear the slate, report error, and continue */ buffer.filebuf_sz = 0; free( (char *)buffer.shortbuf ); buffer.shortbuf = NULL; buffer.shortbuf_sz = 0; fputs (imgbuf_error, stderr); buffer.load_filebuf = 0; return( 0 ); } buffer.filebuf_sz = img_sz; did_alloc++; } else { /* no special input buffer needed */ buffer.filebuf = (char *)buffer.shortbuf; /* shortbuf_sz is shorts, filebuf_sz is bytes */ buffer.filebuf_sz = buffer.shortbuf_sz * sizeof(short); } } /* note rotation space status */ buffer.shortbuf_double = shortbuf_double; buffer.shortbuf_square = shortbuf_square; /* set basic buffer coord system parameters (fill buffer) */ set_coordsys(&coord.buf, 0.5, width, height, 0, 0, width - 1, height - 1); /* flag that buffer must be loaded */ coord.buferror = 1; buffer.load_filebuf = 1; /* report buffer size */ if( control.verbose && did_alloc ) { (void)printf("Reserved %d x %d image data buffer", width, height); if( did_alloc > 1 ) (void)printf("s.\n"); else (void)printf(".\n"); } return( 1 ); } saoimage-1.08/mainkey.c~ 666 21641 13 15101 5012564430 10340 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: mainkey.c (Main Key) * Purpose: Dispatch responses mapped to various keyboard keys * Subroutine: key_response() returns: void * Subroutine: set_iraf_key_trigger() returns: void * Xlib calls: XWarpPointer(), XSync() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 29 June 1989 * {1} MVH display window key to trigger IRAF write 16 Aug 1989 * {2] Doug Mink add + and - for new image in file 11 Oct 1990 * {3] Doug Mink add h,j,k,l cursor substitutes 11 Oct 1990 * {n} -- -- */ #include /* X window stuff */ #include /* X window manager stuff */ #include #include #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main SAOimage parameter structures */ #define MAX_MAPPED_STRING_LENGTH 16 #define MetaMask Mod1Mask #ifdef IMTOOL static int iraf_trigger = 0; /* * Subroutine: set_iraf_key_trigger * Purpose: Set and clear trigger for cursor readback through IRAF pipe */ void set_iraf_key_trigger ( state ) int state; { iraf_trigger = state; } #endif /* * Subroutine: key_response * Purpose: Respond to a key stroke */ void key_response ( ) { KeySym keysym; XComposeStatus compose; int char_cnt; int x, y; static int bufsize = MAX_MAPPED_STRING_LENGTH; static int new_image(); char buffer[MAX_MAPPED_STRING_LENGTH]; #ifdef IMTOOL int trigger_curpos_to_iraf(); #endif void magnify_pan(), magnify_disp(), say_goodbye(), disp_panbox(); void disp_dispbox(), raise_windows(), get_new_cmd(), print_table(); void ascii_region(); /* decode the key event to ascii */ char_cnt = XLookupString(&control.event.xkey, buffer, bufsize, &keysym, &compose); #ifdef IMTOOL if( iraf_trigger && (control.event.xkey.window == dispbox.ID) && (char_cnt == 1) && trigger_curpos_to_iraf(&control.event.xkey, (int)buffer[0]) ) return; #endif /* ignore modifier key pressing */ if( ((control.event.xkey.state & (ControlMask | MetaMask)) == 0) || (keysym >= XK_BackSpace) ) { switch( keysym ) { case XK_Shift_L: case XK_Shift_R: #ifdef IMTOOL /* don't update tracking now if in IRAF interactive mode */ if( iraf_trigger ) return; #endif if( control.event.xkey.window == panbox.ID ) { /* update magnifier if in panbox */ magnify_pan (&control.event); } else if( (control.event.xkey.window == dispbox.ID) && (!control.magni_track) ) { /* if in disp window and not now tracking, update magnifier */ magnify_disp (&control.event, 1, !control.coord_track); } break; #ifdef SUN /* shifted arrow keys on Sun keypad */ case XK_R8: case XK_R10: case XK_R12: case XK_R14: if( keysym == XK_R8 ) keysym = XK_Up; else if( keysym == XK_R10 ) keysym = XK_Left; else if( keysym == XK_R12 ) keysym = XK_Right; else if( keysym == XK_R14 ) keysym = XK_Down; #endif /* H,J,K,L as substitute for arrow keys on keypad */ case XK_h: case XK_j: case XK_k: case XK_l: if( keysym == XK_h ) keysym = XK_Left; else if( keysym == XK_j ) keysym = XK_Up; else if( keysym == XK_k ) keysym = XK_Down; else if( keysym == XK_l ) keysym = XK_Right; case XK_Up: case XK_Down: case XK_Left: case XK_Right: /* use the mouse coordinates at time of key strike */ if( keysym == XK_Up ) y = control.event.xkey.y - 1; else if( keysym == XK_Down ) y = control.event.xkey.y + 1; else y = control.event.xkey.y; if( keysym == XK_Right ) x = control.event.xkey.x + 1; else if( keysym == XK_Left ) x = control.event.xkey.x - 1; else x = control.event.xkey.x; /* move the mouse (supercede any recent mouse movement) */ XSync (control.event.xkey.display, 0); XWarpPointer(control.event.xkey.display, None, control.event.xkey.window, 0, 0, 0, 0, x, y); break; case XK_A: case XK_a: /* a or r (?) TO RAISE ALL WINDOWS OUT OF KAOS */ disp_panbox(); disp_dispbox(); raise_windows(); break; case XK_L: /* debugging print_table without scaling (fool it about scaling) */ x = img.fiscaled; img.fiscaled = 0; print_table(); img.fiscaled = x; break; case XK_N: case XK_n: /* open a new image file (see CmdNew.c) */ get_new_cmd(); break; #ifdef QUITKEY case XK_Q: case XK_q: /* q FOR QUIT */ say_goodbye(0); break; #endif case XK_R: case XK_r: raise_windows(); break; case XK_T: case XK_t: /* print table of image values if in display or pan windows */ print_table(); break; case XK_Delete: case XK_D: case XK_d: case XK_E: case XK_e: case XK_S: case XK_s: /* character control in region (cursor) mode */ if( (control.mode == COP) && (control.event.xkey.window == dispbox.ID) ) ascii_region(&control.event.xkey, keysym); break; case XK_plus: img.nimage = img.nimage + 1; (void)new_image(); break; case XK_minus: if (img.nimage > 1) img.nimage = img.nimage - 1; (void)new_image(); break; case XK_P: case XK_p: /* save current cursor position within image in pixel list file */ case XK_1: /* save current cursor position within image in region list file */ case XK_2: /* save current cursor position within image in region list file */ default: break; } } } /* * Subroutine: new_image * Purpose: Having the image record set, do all that is needed to load * a new image from the same file */ static int new_image ( ) { int init_image(), init_imagebuf(); void set_tdisp(), new_display(), new_panbox(), disp_panbox(); /* get the image dimensions (need file name, type) */ if( init_image() == 0 ) return(0); /* resize the image buffer */ (void)init_imagebuf(); /* set display params and force reassessing and rescaling the image */ set_tdisp(&coord); buffer.mm.img_leftX = coord.id.srcX1 + 1; /* read new image data */ new_display(1, 1, 1, 1); /* replace the panbox with a new one */ new_panbox(1); disp_panbox(); return( 1 ); } saoimage-1.08/ctrlcntn.c~ 666 21641 13 34672 5564744731 10570 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: ctrlcntn.c (Control Connection) * Purpose: Handle all IO with remote independent processes * Subroutine: init_connections() returns: void * Subroutine: open_connection() returns: int * Subroutine: close_connection() returns: void * Subroutine: flush_connection() returns: void * Subroutine: respond_to_connection() returns: void * Subroutine: read_connection() returns: int * Subroutine: write_connection() returns: int * Copyright: 1990 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} M. VanHilst initial version 10 March 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include "hfiles/control.h" /* declare control structure types */ extern struct controlRec control; extern Display *display; #define IOP_socket_listener 777 #define IOP_socket_acceptee 555 /* * Subroutine: init_connections * Purpose: set up connections after display connection has been opened * Note: necessary since parser precedes display connection */ void init_connections () { if( control.IRAF_in.open == 1 ) { control.IRAF_in.open = 0; if( control.IRAF_in.func != NULL ) (*control.IRAF_in.func)(); } if( control.AIPS_in.open == 1 ) { control.AIPS_in.open = 0; if( control.AIPS_in.func != NULL ) (*control.AIPS_in.func)(); } if( control.aux_in.open == 1 ) { control.aux_in.open = 0; if( control.aux_in.func != NULL ) (*control.aux_in.func)(); } } /* * Subroutine: open_connection * Purpose: Open a connection to a remote process and update event handlers * Returns: -1 on failure, else IPC number */ int open_connection ( connection ) struct connectRec *connection; { int ipc, flush_flag; #ifdef VMS extern int open_mailbox(); #else extern int ButtonSelectMask(), open_pipe(); extern int open_socket_listener(); extern struct connectRec *accept_socket_connection(); static void init_select(); #endif #ifdef NOPIPEFLUSH flush_flag = 0; #else flush_flag = 1; #endif if( ((connection->type != IOP_socket) && (connection->name == NULL)) || ((connection->type == IOP_socket) && (connection->address <= 0)) ) { if( connection->direction == IOP_Write ) (void)fprintf(stderr,"Error: output device not defined\n"); else (void)fprintf(stderr,"Error: input device not defined\n"); return( -1 ); } if( (connection->type != IOP_socket_listener) && (connection->open && (connection->fd >= 0)) ) { (void)fprintf(stderr, "Warning: connection already open: %s\n", connection->name); return(connection->fd); } #ifdef VMS if( connection->type == IOP_mailbox ) { ipc = open_mailbox(connection->name, connection->direction, 1); } #else if( connection->type == IOP_pipe ) { ipc = open_pipe(connection->name, connection->direction, flush_flag); } else if( connection->type == IOP_socket ) { ipc = open_socket_listener(&(connection->name), connection->address); } else if( connection->type == IOP_socket_listener ) { struct connectRec *temp; if( (temp = accept_socket_connection(connection)) != NULL ) { connection = temp; ipc = connection->fd; connection->type = IOP_socket_acceptee; } else ipc = -1; } #endif if( ipc < 0 ) { if( connection->direction == IOP_Write ) (void)fprintf(stderr,"Error: No remote output possible.\n"); else (void)fprintf(stderr,"Error: No remote input possible.\n"); connection->fd = -1; connection->open = 0; return( -1 ); } else { connection->fd = ipc; connection->open = 1; #ifdef VMS { extern int XZ_efn; extern void XZ_ast(); ZSelectAsyncInput(ipc, XZ_ast, XZ_efn); } #else if( (control.select_size <= 0) || (control.Xserver.open != 1) ) init_select(); /* compute IPC channel's select mask and set up event handling */ if( ipc < 32 ) { connection->mask[0] = (1 << ipc); connection->mask[1] = 0; connection->mask[2] = 0; connection->mask[3] = 0; } else if( ipc < 64 ) { connection->mask[0] = 0; connection->mask[1] = (1 << (ipc - 32)); connection->mask[2] = 0; connection->mask[3] = 0; } else if( ipc < 96 ) { connection->mask[0] = 0; connection->mask[1] = 0; connection->mask[2] = (1 << (ipc - 64)); connection->mask[3] = 0; } else if( ipc < 128 ) { connection->mask[0] = 0; connection->mask[1] = 0; connection->mask[2] = 0; connection->mask[3] = (1 << (ipc - 96)); } else { (void)fprintf(stderr, "device channel out of range\n"); return 0; } #endif if( (connection->direction != IOP_Write) || (connection->type == IOP_socket) ) { /* if connnection used to read, add it to event accepting list */ connection->next = control.Xserver.next; control.Xserver.next = connection; ++control.remote_connected; #ifndef VMS /* add bits to client's mask and adjust client's mask size */ control.select_mask[0] |= connection->mask[0]; control.select_mask[1] |= connection->mask[1]; control.select_mask[2] |= connection->mask[2]; control.select_mask[4] |= connection->mask[3]; /* inform the event handler in buttonlib about our ipc messages */ if( ButtonSelectMask(display, connection->mask, control.select_size, 1) != 1 ) (void)fprintf(stderr,"Warning: error setting button event mask\n"); #endif } } return ipc; } /* * Subroutine: close_connection * Purpose: Close the remote process connection and update event handlers */ void close_connection ( connection ) struct connectRec *connection; { #ifdef VMS extern int close_mailbox(); #else extern int ButtonSelectMask(); extern void close_pipe(), close_socket(); #endif if( connection->open ) { #ifdef VMS if( connection->type == IOP_mailbox ) (void)close_mailbox(connection->fd, connection->name); #else if( connection->type == IOP_pipe ) { close_pipe(connection->fd, connection->name); } else if( (connection->type == IOP_socket) || (connection->type == IOP_socket_listener) || (connection->type == IOP_socket_acceptee) ) { close_socket(connection->fd, connection->name); } #endif connection->fd = -1; connection->open = 0; if( (connection->type == IOP_socket_listener) || (connection->type == IOP_socket) || (connection->direction != IOP_Write) ) { struct connectRec *port = &control.Xserver; /* remove connection from event servicing queue */ while( (port != NULL) && (port->next != connection) ) port = port->next; if( (port != NULL) && (port->next == connection) ) { port->next = connection->next; connection->next = NULL; --control.remote_connected; } #ifdef VMS } #else /* remove connection from UNIX select event servicing masks */ if( (connection->mask[0] & control.select_mask[0]) || (connection->mask[1] & control.select_mask[1]) || (connection->mask[1] & control.select_mask[1]) || (connection->mask[1] & control.select_mask[1]) ) { if( ButtonSelectMask((Display *)NULL, connection->mask, control.select_size, 0) ) (void)fprintf(stderr, "Warning: error clearing button event mask\n"); if( (connection->mask[0] != 0) && (connection->mask[0] != control.Xserver.mask[0]) ) { control.select_mask[0] &= (~(connection->mask[0])); connection->mask[0] = 0; } if( (connection->mask[1] != 0) && (connection->mask[1] != control.Xserver.mask[1]) ) { control.select_mask[1] &= (~(connection->mask[1])); connection->mask[1] = 0; } if( (connection->mask[2] != 0) && (connection->mask[2] != control.Xserver.mask[1]) ) { control.select_mask[2] &= (~(connection->mask[1])); connection->mask[2] = 0; } if( (connection->mask[3] != 0) && (connection->mask[3] != control.Xserver.mask[1]) ) { control.select_mask[3] &= (~(connection->mask[1])); connection->mask[3] = 0; } } /* if only X connections are sought, turn off remote connection flag */ if( (control.select_mask[0] == control.Xserver.mask[0]) && (control.select_mask[1] == control.Xserver.mask[1]) && (control.select_mask[2] == control.Xserver.mask[2]) && (control.select_mask[3] == control.Xserver.mask[3]) ) control.remote_connected = 0; } connection->mask[0] = 0; connection->mask[1] = 0; connection->mask[2] = 0; connection->mask[3] = 0; /* coordinate sockets reader and listener */ if( connection->type == IOP_socket_acceptee ) { /* closing a connection reopens its listener */ connection->affiliate->type = IOP_socket; connection->affiliate->affiliate = NULL; (void)open_connection(connection->affiliate); /* acceptees are malloc'd space */ free(connection); } } else if( (connection->type == IOP_socket_listener) && (connection->affiliate != NULL) && connection->affiliate->open ) { /* if closing an inactive listener, close its affiliate connection */ if( connection->affiliate->direction == IOP_Write ) { close_socket(connection->affiliate); } else { /* clear up event descritor if not write-only */ connection->affiliate->type = IOP_socket; close_connection(connection->affiliate); } free(connection->affiliate); connection->affiliate = NULL; #endif } } /* * Subroutine: flush_connection * Purpose: Suck all bytes out of a pipe open for reading */ void flush_connection ( connection ) struct connectRec *connection; { #ifdef VMS extern void flush_mailbox(); #else extern void flush_pipe(), flush_socket(); #endif #ifdef VMS if( connection->type == IOP_mailbox ) flush_mailbox(connection->fd, connection->name); #else if( connection->type == IOP_pipe ) flush_pipe(connection->fd, connection->name); else if( connection->type == IOP_socket_acceptee ) flush_socket(connection->fd, connection->name); #endif } /* * Subroutine: respond_to_connection * Purpose: call the function for this connection event */ void respond_to_connection ( id ) int *id; /* call identifier (UNIX bit mask or VMS mailbox number) */ { int i; struct connectRec *port; port = control.Xserver.next; /* loop has redundant terminations which should coincide */ for( i=0; (port != NULL) && (ifd ) #else if( (id[0] & port->mask[0]) || (id[1] & port->mask[1]) || (id[2] & port->mask[2]) || (id[3] & port->mask[3]) ) #endif continue; port = port->next; } if( port != NULL ) { #ifndef VMS if( port->type == IOP_socket ) { /* event on open listener means open socket acceptee, close listener */ port->type = IOP_socket_listener; /* open on redefined listener creates the acceptee */ if( open_connection(port) < 0 ) port->type = IOP_socket; else { close_connection(port); /* set the file descriptor, in case somebody tries to write to it */ port->fd = port->affiliate->fd; } } else #endif if( port->func != NULL ) /* execute the connection's response function */ (*port->func)(port); #ifdef DEBUG } else (void)fprintf(stderr, "Unrecognized select or mailbox event\n"); #else } #endif } /* * Subroutine: read_connection * Purpose: read specified number of bytes from connection into buf */ int read_connection ( connection, buf, bytes ) struct connectRec *connection; char *buf; int bytes; { int status; #ifdef VMS extern int read_mailbox(); if( connection->type == IOP_mailbox ) status = read_mailbox(connection->fd, buf, bytes, 1, connection->name, "mailbox input"); #else extern int read_disk(); if( (connection->type == IOP_pipe) || (connection->type == IOP_socket_acceptee) ) status = read_disk(connection->fd, buf, bytes, 1, connection->name, "remote input"); #endif else status = -1; return( status ); } /* * Subroutine: write_connection * Purpose: write specified number of bytes to connection from buf */ int write_connection ( connection, buf, bytes ) struct connectRec *connection; char *buf; int bytes; { int status; #ifdef VMS extern int write_mailbox(); if( connection->type == IOP_mailbox ) status = write_mailbox(connection->fd, buf, bytes, connection->name); #else extern int write_disk(); if( (connection->type == IOP_pipe) || (connection->type == IOP_socket_acceptee) ) status = write_disk(connection->fd, buf, bytes, connection->name); else if( connection->type == IOP_socket_listener ) status = write_disk(connection->affiliate->fd, buf, bytes, connection->name); #endif else status = -1; return( status ); } #ifndef VMS /* * Subroutine: init_select * Purpose: Initialize event handler parameters * Note: SYSV machines don't have an easy way to get the number of * device bits in the select mask. Most have 64. Under BSD, * Sun uses 32 (1 int), Apollo uses 128 (4 ints). */ static void init_select () { int server_chan; #ifdef SYSV control.select_size = 64; #else control.select_size = getdtablesize(); #endif /* get the x window server channel and compute its mask */ server_chan = ConnectionNumber(display); if( server_chan < 32 ) { control.Xserver.mask[0] = (1 << server_chan); control.Xserver.mask[1] = 0; control.Xserver.mask[2] = 0; control.Xserver.mask[3] = 0; } else if( server_chan < 64 ) { control.Xserver.mask[0] = 0; control.Xserver.mask[1] = (1 << (server_chan - 32)); control.Xserver.mask[2] = 0; control.Xserver.mask[3] = 0; } else if( server_chan < 96 ) { control.Xserver.mask[0] = 0; control.Xserver.mask[1] = 0; control.Xserver.mask[2] = (1 << (server_chan - 64)); control.Xserver.mask[3] = 0; } else if( server_chan < 64 ) { control.Xserver.mask[0] = 0; control.Xserver.mask[1] = 0; control.Xserver.mask[2] = 0; control.Xserver.mask[3] = (1 << (server_chan - 96)); } /* initialize combined mask and open new pipe */ control.select_mask[0] = control.Xserver.mask[0]; control.select_mask[1] = control.Xserver.mask[1]; control.select_mask[2] = control.Xserver.mask[2]; control.select_mask[3] = control.Xserver.mask[3]; control.Xserver.open = 1; } #endif saoimage-1.08/csrtext.c 666 21641 13 34142 4745657756 10241 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: CrsrText.c (CursorText) * Purpose: Initialize and change states of the software cursor * Subroutine: init_textcursor() returns: void * Subroutine: new_textcursor() returns: void * Subroutine: draw_textcursor() returns: void * Subroutine: reset_textcursor_coords() returns: void * Subroutine: move_textcursor() returns: void * Subroutine: textcursor_keyentry() returns: void * Subroutine: reload_textcursor() returns: void * Subroutine: save_textcursor() returns: void * Copyright: 1990 Michael VanHilst * You may do anything you like with this file except remove * this copyright. Michael VanHilst makes no representations * about the suitability of this software for any purpose. * It is provided "as is" without express or implied warranty. * Modified: {0} Michael VanHilst initial version 1 Jan 1991 * {n} -- -- */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, strcat, strcpy, rindex */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* stderr, NULL, etc. */ #include /* X window stuff */ #include /* X window manager stuff */ #include #include #include "hfiles/constant.h" /* Define codes */ #include "hfiles/struct.h" /* Declare structure types */ #include "hfiles/extern.h" /* Extern main parameter structures */ #include "hfiles/define.h" /* Define DONT_CARE, U_DONT_CARE */ #include "hfiles/edit.h" #include "hfiles/region.h" /* regdrawRec region drawing parameters */ struct regdrawRec rgdraw; /* Ammount of space for string is actually (CURSOR_MAX - 1)*sizeof(XPoint) */ struct curText { int char_cnt; char string[CURSOR_MAX*2]; }; static EditStruct *cursor_edit; static XFontStruct *fontstruct; static int init = 1; #ifdef ANSIC /* Exported declarations must be centralized before ANSI C can be used */ void new_textcursor(); void clear_textcursor(); void save_textcursor( XButtonEvent *xbutton); void reload_textcursor(); void textcursor_keyentry( XKeyEvent *xkey, KeySym keysym); void draw_textcursor( struct cursorRec *crsr, GCspec *draw); void reset_textcursor_coords( struct cursorRec *crsr); void move_textcursor( int xinc, int yinc); static void init_textcursor(); static void draw_text_cursor_cursor( EditStruct *edit, GC gc); static void clear_text_area( EditStruct *edit, int x, int y, int width, int height); static void blacken_textcursor_cursor( EditStruct *edit, int cur_x); void write_text_region( struct cursorRec *region, char* line); #else XFontStruct *get_fontstruct(); EditStruct *get_edit_struct(); void init_edit_struct(), grab_keys_for_textcursor(); void grab_keys_for_textcursor(), clear_edit_buf(); void set_cursor_file_coords(), save_cursor_as_region(), disp_region(); void store_edit_struct(); void load_edit_string(), reset_textcursor_coords(); void set_edit_draw_func(), unset_edit_draw_func(); int emacs_response(); GC set_text_gc(); void draw_textcursor(); static void init_textcursor(), draw_textcursor_cursor(); static void clear_text_area(), blacken_textcursor_cursor(); #endif /* Subroutine: init_textcursor * Purpose: initialize editor parameters for text cursor editing */ static void init_textcursor() { /* Get same font used for region labels */ fontstruct = get_fontstruct(1); /* Allocate text editor struct space */ cursor_edit = get_edit_struct((CURSOR_MAX-1)*4); /* Initialize text editor parameters */ init_edit_struct(dispbox.display, dispbox.ID, cursor_edit, fontstruct, cursor.draw->foreground, cursor.draw->background); cursor_edit->y = cursor.win.y; cursor_edit->x = cursor.win.x; cursor_edit->max_pixlen = 512; cursor_edit->area_y = cursor_edit->y - cursor_edit->fontstruct->max_bounds.ascent; /* Set this value initially so position cursor will appear */ cursor_edit->pixlen[1] = XTextWidth(cursor_edit->fontstruct, "e", 1); } /* Subroutine: new_textcursor() * Purpose: set up cursor struct for text cursor interactions */ void new_textcursor() { struct curText *curtext; if( init ) { init_textcursor(); init = 0; } curtext = (struct curText *)cursor.points; curtext->char_cnt = 0; curtext->string[0] = '\0'; cursor.point_cnt = 2; grab_keys_for_textcursor(1); } /* Subroutine: clear_textcursor * Purpose: empty text cursor buffer and ungrab keyboard input */ void clear_textcursor() { grab_keys_for_textcursor(0); clear_edit_buf(cursor_edit); } /* Subroutine: save_textcursor * Purpose: save string in editor on region save event */ #ifdef ANSIC void save_textcursor ( XButtonEvent *xbutton ) #else void save_textcursor ( xbutton ) XButtonEvent *xbutton; #endif { struct curText *curtext; /* Force file coordinates into agreement with window coordinates */ set_cursor_file_coords(&cursor, &coord.disptofile, 1); /* Save cursor as a region */ if( xbutton->button == Button2 ) save_cursor_as_region(&cursor, 1); else save_cursor_as_region(&cursor, 0); cursor.index = cursor.next_region->index; disp_region(cursor.next_region); store_edit_struct(cursor_edit); curtext = (struct curText *)cursor.next_region->points; --(curtext->char_cnt); curtext->string[curtext->char_cnt] = '\0'; } /* Subroutine: reload_textcursor * Purpose: Put cursor string into editor buffer */ void reload_textcursor() { struct curText *curtext; curtext = (struct curText *)cursor.points; load_edit_string(cursor_edit, curtext->string, curtext->char_cnt); reset_textcursor_coords(&cursor); } /* Subroutine: textcursor_keyentry * Purpose: Respond to key entry while in textcursor mode */ #ifdef ANSIC void textcursor_keyentry ( XKeyEvent *xkey, KeySym keysym ) #else void textcursor_keyentry ( xkey, keysym ) XKeyEvent *xkey; KeySym keysym; #endif { struct curText *curtext; int old_end_x, old_cur_x; /* Always use latest func, mask, and background */ if( cursor.draw->mask != AllPlanes ) { old_end_x = 0; old_cur_x = -1; draw_textcursor(&cursor, &color.gcset.undraw); } else { old_end_x = cursor_edit->pixlen[cursor_edit->char_cnt]; old_cur_x = cursor_edit->pixlen[cursor_edit->active_position]; } /* Intercept Linefeed so editor won't act on it */ if( (keysym == XK_Linefeed) || (keysym == XK_Return) ) { /* Do a save and move cursor for next line on a carriage return */ if( keysym == XK_Return ) ascii_region(&control.event.xkey, XK_s); else ascii_region(&control.event.xkey, XK_e); /* Move line done hight of text and set float coordinate as well */ if( (cursor.win.y += cursor_edit->area_height) < 0 ) cursor.win.Y = (double)cursor.win.y - 0.5; else cursor.win.Y = (double)cursor.win.y + 0.5; curtext = (struct curText *)cursor.points; curtext->string[0] = '\0'; curtext->string[1] = '\0'; curtext->char_cnt = 0; cursor.point_cnt = 2; load_edit_string(cursor_edit, curtext->string, 0); cursor_edit->active_position = 0; reset_textcursor_coords(&cursor); /* Redraw the display window to clean things up and show new positions */ disp_dispbox(); return; } else { /* Suppress drawing by the editor (we do it here) */ set_edit_draw_func(cursor.draw->func, 0); (void)emacs_response(xkey, cursor_edit); /* Update cursor string to account for changes (incl. space on end) */ curtext = (struct curText *)cursor.points; #ifdef ANSIC (void)strncpy(curtext->string, cursor_edit->string, (size_t)(cursor_edit->char_cnt + 1)); #else strncpy(curtext->string, cursor_edit->string, cursor_edit->char_cnt + 1); #endif curtext->string[cursor_edit->char_cnt + 1] = '\0'; curtext->char_cnt = cursor_edit->char_cnt; /* Restore the default editor string drawing functions */ unset_edit_draw_func(); } /* Use point count to reserve space for one byte more than string */ /* Point count is used by save cursor to copy bytes to region record */ cursor.point_cnt = ((curtext->char_cnt + 1) / sizeof(XPoint)) + 2; /* If string got shorter and not erasing, blank stuff no longer covered */ if( old_end_x > cursor_edit->pixlen[cursor_edit->char_cnt] ) { int new_end_x; GC gc; new_end_x = cursor_edit->pixlen[cursor_edit->char_cnt]; clear_text_area(cursor_edit, cursor_edit->x + new_end_x, cursor_edit->y - cursor_edit->fontstruct->max_bounds.ascent, old_end_x - new_end_x, cursor_edit->area_height); } /* If cursor was or will not be erased, set it to background color */ if( old_cur_x >= old_end_x ) blacken_textcursor_cursor(cursor_edit, old_cur_x); /* Draw new string */ draw_textcursor(&cursor, cursor.draw); } /* Subroutine: draw_textcursor * Purpose: draw a cursor, using only cursorRec info */ #ifdef ANSIC void draw_textcursor ( struct cursorRec *crsr, GCspec *draw ) #else void draw_textcursor ( crsr, draw ) struct cursorRec *crsr; GCspec *draw; #endif { struct curText *curtext; GC gc; curtext = (struct curText *)crsr->points; if( draw == NULL ) draw = crsr->draw; /* Make sure info is available */ if( init ) { init_textcursor(); init = 0; } /* Stencil chars if tracking the string or not having a background */ if( (draw->func == GXxor) || (draw->mask != AllPlanes) ) { gc = set_text_gc(cursor_edit->font, draw->foreground, U_DONT_CARE, draw->func, draw->mask); XDrawString(crsr->win.display, crsr->win.ID, gc, crsr->win.x, crsr->win.y, curtext->string, curtext->char_cnt); if( crsr == &cursor ) { /* Update coords (cursor may have been moved in non-text mode) */ cursor_edit->x = cursor.win.x; cursor_edit->y = cursor.win.y; draw_textcursor_cursor(cursor_edit, gc); } } else { unsigned long foreground, background; /* Text and background colors */ /* These backgrounds don't work with overlays, should use image dark */ foreground = draw->foreground; if( draw == &color.gcset.incl ) { /* Include is ALWAYS yellow or white on black */ background = color.hard.true_black; /* This must be keyed to what disppsct.c does for hardcopy */ if( foreground == color.hard.std_black ) foreground == color.hard.true_white; } else if( draw == &color.gcset.excl ) { /* Exclude is ALWAYS red or black on white */ background = color.hard.true_white; /* This must be keyed to what disppsct.c does for hardcopy */ if( foreground == color.hard.std_white ) foreground = color.hard.true_black; } else if( draw->foreground == color.hard.true_black ) background = color.hard.true_white; else background = color.hard.true_black; gc = set_text_gc(cursor_edit->font, foreground, background, draw->func, draw->mask); XDrawImageString(cursor_edit->display, cursor_edit->ID, gc, crsr->win.x, crsr->win.y, curtext->string, curtext->char_cnt); if( crsr == &cursor ) { cursor_edit->background = background; /* Update coords (cursor may have been moved in non-text mode) */ cursor_edit->x = cursor.win.x; cursor_edit->y = cursor.win.y; draw_textcursor_cursor(cursor_edit, gc); } } } /* Subroutine: draw_textcursor_cursor * Xlib calls: XDrawImageString() */ #ifdef ANSIC static void draw_textcursor_cursor ( EditStruct *edit, GC gc ) #else static void draw_textcursor_cursor ( edit, gc ) EditStruct *edit; GC gc; #endif { int x; x = edit->x + edit->pixlen[edit->active_position] - edit->pixlen[edit->first_char_shown]; XDrawLine(edit->display, edit->ID, gc, x, edit->y + 1, x + edit->pixlen[1] - 1, edit->y + 1); } /* Subroutine: reset_textcursor_coords */ #ifdef ANSIC void reset_textcursor_coords( struct cursorRec *crsr ) #else void reset_textcursor_coords( crsr ) struct cursorRec *crsr; #endif { if( crsr == &cursor ) { cursor_edit->x = cursor.win.x; cursor_edit->y = cursor.win.y; cursor_edit->area_y = cursor_edit->y - cursor_edit->fontstruct->max_bounds.ascent; cursor_edit->active_position = cursor_edit->char_cnt; } } /* Subroutine: move_textcursor * Purpose: Move the text drawing coords when text cursor is moved */ #ifdef ANSIC void move_textcursor ( int xinc, int yinc ) #else void move_textcursor ( xinc, yinc ) int xinc, yinc; #endif { cursor_edit->x += xinc; cursor_edit->y += yinc; cursor_edit->area_y += yinc; } /* Subroutine: clear_text_area * Purpose: Clear area around edit string, mindful of mask in use * Note: Assumes only called with GXcopy, AllPlanes, ImageString cursor */ #ifdef ANSIC static void clear_text_area ( EditStruct *edit, int x, int y, int width, int height ) #else static void clear_text_area ( edit, x, y, width, height ) EditStruct *edit; int x, y, width, height; #endif { GC gc; gc = set_text_gc(edit->font, edit->background, U_DONT_CARE, GXcopy, AllPlanes); XFillRectangle(edit->display, edit->ID, gc, x, y, (unsigned int)width, (unsigned int)height); } /* Subroutine: blacken_textcursor_cursor * Xlib calls: XDrawImageString() */ #ifdef ANSIC static void blacken_textcursor_cursor ( EditStruct *edit, int cur_x ) #else static void blacken_textcursor_cursor ( edit, cur_x ) EditStruct *edit; int cur_x; #endif { int x; GC gc; gc = set_text_gc(edit->font, edit->background, U_DONT_CARE, GXcopy, AllPlanes); x = edit->x + cur_x - edit->pixlen[edit->first_char_shown]; XDrawLine(edit->display, edit->ID, gc, x, edit->y + 1, x + edit->pixlen[1] - 1, edit->y + 1); } /* Subroutine: write_text_region * Purpose: Write detail part of region file line for a text cursor */ #ifdef ANSIC void write_text_region ( struct cursorRec *region, char* line ) #else void write_text_region ( region, line ) struct cursorRec *region; char* line; #endif { struct curText *curtext; int len; curtext = (struct curText *)region->points; curtext->string[curtext->char_cnt] = '\0'; len = strlen(line); (void)sprintf(&line[len], ",%1d,\"%s\")", curtext->char_cnt, curtext->string); } saoimage-1.08/cmddisp.c~ 666 21641 13 26330 5564744305 10351 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: cmddisp.c (Command Display) * Purpose: Set options from command line pertaining to display * Subroutine: parse_rotate() returns: int * Subroutine: parse_scale() returns: int * Subroutine: parse_color() returns: int * Subroutine: parse_display() returns: int * Xlib calls: none * Copyright: 1988, 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 20 September 1988 * {1} MVH modified and renamed parse_display 18 May 1989 * {2} MVH BSDonly strings.h compatability 19 Feb 1990 * {3} Doug Mink add linear fraction 19 Feb 1990 * {n} -- -- */ #include /* stderr, NULL, etc. */ #include #ifndef VMS #ifdef SYSV #include #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include #endif #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/struct.h" /* declare structure types */ #include "hfiles/extern.h" /* extern main ximage parameter structures */ #include "hfiles/cmdparse.h" /* define parse status bits */ #include "hfiles/magnify.h" /* magnifier quick access structure */ extern struct magRec magset; extern char *border_color_name; /* Flag in GrphCInit.c to set color graph background black, else white */ extern int black_graph_background; extern int init_done; /* strings to set cursor colors to standard colors */ static char *RedString = "red"; static char *GreenString = "green"; static char *BlueString = "blue"; /* * Subroutine: parse_rotate * Purpose: Parse command line for coordinate adjustment or rotation * parameters * Returns: 1 if one of its parameters was found, else 0 */ int parse_rotate ( argc, argv, argi, new_rotate ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *new_rotate; /* status word knows coordinate parameter was found */ { int i; int usage(); i = *argi; if( (strcmp(argv[i], "-rot") == 0) || (strcmp(argv[i], "-rotate") == 0) ) { if( (++i >= argc) || ((img.rotate_code = (3 & atoi(argv[i]))) < 0) || (img.rotate_code > 3) ) return( usage("rotate code", argc, argv, i-1, i) ); *argi = i; } else if( (strcmp(argv[i], "-ul") == 0) || (strcmp(argv[i], "-upperleft") == 0) ) { /* --- image orientation (first row at top) --- */ img.row_order = 0; } else if( (strcmp(argv[i], "-ll") == 0) || (strcmp(argv[i], "-lowerleft") == 0) ) { /* --- image orientation (first row at bottom) --- */ img.row_order = 1; } else if( strcmp(argv[i], "-zero") == 0 ) { /* --- start file indexing with 0 --- */ img.index_base = 0; } else if( strcmp(argv[i], "-one") == 0 ) { /* --- start file indexing with 1 --- */ img.index_base = 1; } else { return( 0 ); } *argi = i; *new_rotate |= CMD_ROTATE; return( 1 ); } /* * Subroutine: parse_color * Purpose: Parse command line for display color parameters * Returns: 1 if one of its parameters was found, else 0 */ int parse_color ( argc, argv, argi, got_color ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_color; /* status word knows coloring parameter was found */ { int i; int usage(); void set_submenu_toggle(); i = *argi; /* number of planes */ if( (strcmp(argv[i], "-p") == 0) || (strcmp(argv[i], "-palette") == 0) ) { if (++i >= argc) return( usage("planes", argc, argv, i-1, i) ); color.cells.wanted = atoi(argv[i]); /* if planes request is negative, overlay for cursor */ if( color.cells.wanted < 0 ) { color.cells.wanted = -color.cells.wanted; color.cells.overlay = 1; } else color.cells.overlay = 0; if( color.cells.wanted <= 1 ) { color.cells.wanted = 1; color.cells.overlay = 0; color.colormap_mode = VOP_Halftone; } *got_color |= CMD_COLOR; } else if( (strcmp(argv[i], "-n") == 0) || (strcmp(argv[i], "-neg") == 0) ) { /* negative map */ color.inverse = 1; *got_color |= CMD_COLOR; /* on machines with only one functional color, use that color */ } else if( strcmp(argv[i], "-red") == 0 ) { color.cur.desired_cur = RedString; color.cur.desired_one = RedString; color.cur.desired_two = RedString; black_graph_background = 1; } else if( strcmp(argv[i], "-green") == 0 ) { color.cur.desired_cur = GreenString; color.cur.desired_one = GreenString; color.cur.desired_two = GreenString; black_graph_background = 1; } else if( strcmp(argv[i], "-blue") == 0 ) { color.cur.desired_cur = BlueString; color.cur.desired_one = BlueString; color.cur.desired_two = BlueString; black_graph_background = 1; } else if( (strcmp(argv[i], "-vg") == 0) || (strcmp(argv[i], "-vertgragh") == 0) ) { graphbox.hints.width = 143; graphbox.hints.height = 550; graphbox.hints.min_width = 123; graphbox.hints.min_height = 300; } else if( (strcmp(argv[i], "-hg") == 0) || (strcmp(argv[i], "-horizgragh") == 0) ) { graphbox.hints.width = 516; graphbox.hints.height = 84; graphbox.hints.min_width = 404; graphbox.hints.min_height = 69; } else { return( 0 ); } *argi = i; return( 1 ); } /* * Subroutine: parse_scale * Purpose: Parse command line for image scaling parameters * Returns: 1 if one of its parameters was found, else 0 */ int parse_scale ( argc, argv, argi, got_scale ) int argc; /* total number of arg tokens */ char *argv[]; /* array of arg tokens */ int *argi; /* first arg to check, (returned as last arg used) */ int *got_scale; /* flag that scaling parameter was found */ { float val; int i; int usage(); i = *argi; if( strcmp(argv[i], "-wrap") == 0 ) { /* image to display rescaling types */ color.scale.mode = SOP_Wrap; if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) color.scale.wrap_cnt = val; else --i; } else if( strcmp(argv[i], "-linear") == 0 ) { color.scale.mode = SOP_Linear; } else if( strcmp(argv[i], "-sqrt") == 0 ) { color.scale.mode = SOP_Sqrt; if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) color.scale.root_power = val; else --i; } else if( strcmp(argv[i], "-log") == 0 ) { color.scale.mode = SOP_Log; if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) color.scale.log_expo = val; else --i; } else if( strcmp(argv[i], "-histeq") == 0 ) { color.scale.mode = SOP_HistEq; } else if( strcmp(argv[i], "-min") == 0 ) { /* scaling threshold level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { buffer.cmdMin = val; buffer.min_given = 1; } else { --i; buffer.min_given = 0; } } else if( strcmp(argv[i], "-max") == 0 ) { /* scaling saturation level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { buffer.cmdMax = val; buffer.max_given = 1; } else { --i; buffer.max_given = 0; } } else if( strcmp(argv[i], "-rmax") == 0 ) { /* file reading saturation level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { img.fimax = val; *got_scale |= CMD_FREAD; } else return( usage("saturate", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-rmin") == 0 ) { /* file reading threshold level */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { img.fimin = val; *got_scale |= CMD_FREAD; } else return( usage("threshold", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-lfrac") == 0 ) { /* linear scaling limits as fraction of histogram peak */ if( ((++i) < argc) && (sscanf(argv[i], "%f", &val) == 1) ) { buffer.lfrac = val; } else return( usage("linfrac", argc, argv, i-1, i) ); } else { return( 0 ); } *argi = i; *got_scale |= CMD_SCALE; return( 1 ); } /* * Subroutine: parse_display * Purpose: Parse the command line for window and server parameters */ int parse_display ( argc, argv, argi, got_geo, displayname ) int argc; /* i: total number of arg tokens */ char *argv[]; /* i: array of arg tokens */ int *argi; /* i/o: current arg in list */ int *got_geo; /* o: got server or window parameters */ char **displayname; /* o: name of display server */ { int i, temp; int usage(), parse_geometry(); void set_magnifier(), redraw_magnifier(), SetTAEButtonLook(); i = *argi; if( (strcmp(argv[i], "-d") == 0) || (strcmp(argv[i], "-display") == 0) ) { /* X window server socket name (overrides DISPLAY env variable) */ *displayname = argv[++i]; } else if( (strcmp(argv[i], "-g") == 0) || (strcmp(argv[i], "-geometry") == 0) ) { /* initial program desktop size and/or position */ /* X window geometry (size and position) -g x++ */ if( parse_geometry(argv[++i], 0) == 0 ) { (void)fprintf(stderr, "Error: Cannot parse geometry: %s\n", argv[i]); return( 0 ); } } else if( strcmp(argv[i], "-gd") == 0 ) { /* initial display window size and/or desktop position */ /* X window geometry (size and position) -gd x++ */ if( parse_geometry(argv[++i], 1) == 0 ) { (void)fprintf(stderr, "Error: Cannot parse geometry: %s\n", argv[i]); return( 0 ); } } else if( (strcmp(argv[i], "-bc") == 0) || (strcmp(argv[i], "-bordercolor") == 0) ) { /* border color */ if( ++i >= argc ) return( usage("border color", argc, argv, i-1, i) ); border_color_name = argv[i]; } else if( strcmp(argv[i], "-mtf") == 0) { /* make buttons less of a sore thumb when surrounded by motif */ SetTAEButtonLook(2); } else if( strcmp(argv[i], "-mtfa") == 0) { /* as above but with even less highlighting */ SetTAEButtonLook(1); } else if( strcmp(argv[i], "-mag") == 0 ) { /* magnifier magnification */ if( ((++i) < argc) && ((temp = atoi(argv[i])) > 0) ) { magset.magnify = temp; /* if init has already been run, then set must be run to update */ if( init_done && (magset.image == &magnibox.image) ) { set_magnifier(); redraw_magnifier(); } } else return( usage("magnifier", argc, argv, i-1, i) ); } else if( strcmp(argv[i], "-panboxav") == 0 ) { img.panbox_zoomtype = SOP_ZoomAv; } else if( strcmp(argv[i], "-panboxsamp") == 0 ) { img.panbox_zoomtype = SOP_ZoomSamp; } else if( strcmp(argv[i], "-panboxsum") == 0 ) { img.panbox_zoomtype = SOP_ZoomSum; } else if( strcmp(argv[i], "-panboxmax") == 0 ) { img.panbox_zoomtype = SOP_ZoomMax; } else if( strcmp(argv[i], "-lprbuttons") == 0 ) { control.print_buttons = 1; } else { return( 0 ); } *argi = i; *got_geo |= CMD_GEOMETRY; return( 1 ); } saoimage-1.08/imtoolrc 666 21641 13 2767 5015011606 10105 # IMTOOL -- Defined frame buffer configurations. Note that the given nframes # is only a starting point, and may be modified during execution, hence smaller # values are preferred. The configuration numbers may be given in any order, # but must be unique and in the range 1-64. NOTE - corresponding entries must # be present in the dev$graphcap file, for use with IRAF. # # Format: configno nframes width height 1 2 512 512 # imt1|imt512 2 2 800 800 # imt2|imt800 3 2 1024 1024 # imt3|imt1024 4 1 1600 1600 # imt4|imt1600 5 1 2048 2048 # imt5|imt2048 6 1 4096 4096 # imt6|imt4096 7 1 4096 1024 # imt7|imt4x1 8 1 1024 4096 # imt8|imt1x4 9 2 1144 880 # imt9|imtfs full screen (1152x900 minus frame) 10 2 1144 764 # imt10|imtfs35 full screen at 35mm film aspect ratio 11 2 128 128 # imt11|imt128 12 2 256 256 # imt12|imt256 # Some site specific formats for NOAO. 20 2 388 576 # imt20|imtgec GEC CCD detector format 21 1 3040 976 # imt21|imtkpca KPCA detector format (also 2D-Frutti) 22 1 128 1520 # imt22|imt2df1 2D-Frutti 23 1 256 1520 # imt23|imt2df2 2D-Frutti 24 1 512 1520 # imt24|imt2df5 2D-Frutti 25 1 960 1520 # imt25|imt2df9 2D-Frutti 26 1 512 800 # imt26|imtcryo Cryogenic Camera 27 1 348 800 # imt27|imtgcam Gold Camera 28 1 976 3040 # imt28|imt2df9x3 2D-Frutti 29 1 800 256 # imt29|imtgong Gong Cache Monitor 30 1 256 800 # imt30|imtgong Gong Cache Monitor 31 1 1240 400 # imt31|imtret Reticon CCD detector format saoimage-1.08/makefile.alnt 666 21641 13 40441 5046627500 11010 # # makefile.sun for SAOimage # Sun workstations, all architectures # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) MFLAGS = -DALLIANT -DPSCRIPT # OFLAGS: compiler optimization/debug options. #OFLAGS = -g -DDEBUG OFLAGS = -Og # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #XLIB = /usr/openwin/lib/libX11.a # ATTENTION: OpenWindows users... #F77LIB = -lF77 -lI77 -lU77 #LDFLAGS = -Bstatic # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = sun LINT = lint -b MKNOD = /etc/mknod MV = mv -f RANLIB = ranlib RM = rm -f SHELL = /bin/sh MAKE = make CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.o \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. install_fifo: for f in $(FIFO_I) $(FIFO_O); do \ (if [ ! -f $$f ]; then \ $(MKNOD) $$f p; chmod 777 $$f; \ fi;) done; for f in $(FIFO_LN); do \ (if [ ! -f $$f ]; then \ echo OKK; ln -s $(FIFO_O) $(FIFO_LN); fi;) done # Install imtoolrc file if necessary; current hardwired location may change... # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos. install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/makefile.apo 666 21641 13 40524 5054021776 10635 # # makefile.apo for SAOimage # Apollo DN series running Domain OS # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) MFLAGS = -DPSCRIPT # OFLAGS: compiler optimization/debug options. # Included in ADFLAGS, due to funny way these are handled in DomainOS. OFLAGS = # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = -W0,-opt,3,-ndb -L/usr/lib/X11 # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #F77LIB = -lF77 -lI77 -lU77 # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = apollo LINT = lint MKNOD = /etc/mknod MV = mv -f RANLIB = ranlib RM = rm -f SHELL = /bin/sh CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos; nor does the # Apollo if the BSD option has not been installed. Below are special # installation script for fifo's in Domain/BSD at SR10.2 install_fifo: OLDTYPE=$$SYSTYPE SYSTYPE=sys5.3 $(MKNOD) $(FIFO_I) p chmod 777 $(FIFO_I) $(MKNOD) $(FIFO_O) p chmod 777 $(FIFO_O) ln -s $(FIFO_O) $(FIFO_LN) SYSTYPE=$$OLDTYPE # Install imtoolrc file if necessary; current hardwired location may change... install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/makefile.ibm 666 21641 13 40257 5034421674 10627 # # makefile.ibm for SAOimage # IBM RS/6000 running AIX # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) MFLAGS = -DSYSV -DPSCRIPT # OFLAGS: compiler optimization/debug options. #OFLAGS = -g -DDEBUG OFLAGS = -O # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = -D_BSD # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #F77LIB = -lF77 -lI77 -lU77 # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = aix LINT = lint MKNOD = /etc/mknod MV = mv -f RANLIB = ranlib RM = rm -f SHELL = /bin/sh CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos. install_fifo: for f in $(FIFO_I) $(FIFO_O); do \ (if [ ! -f $$f ]; then \ $(MKNOD) $$f p; chmod 777 $$f; \ fi;) done; for f in $(FIFO_LN); do \ (if [ ! -f $$f ]; then \ echo OKK; ln -s $(FIFO_O) $(FIFO_LN); fi;) done # Install imtoolrc file if necessary; current hardwired location may change... install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/makefile.main 666 21641 13 12741 5046627627 11012 # # Makefile for SAOimage # # To build: # % make aix # IBM RS/6000 running AIX # % make alliant # Alliant FX series # % make apollo # Any Apollo, software floating point # % make apollo_68882 # Apollo for MC68882 fp # % make apollo_fpa # Apollo for FPA1 # % make apollo_prism # Apollo for PRISM architecture (a88k) # % make hp # HP-UX # % make mips # MIPStation running RISCOS # % make sgi # SGI Personal Iris running Irix # % make sun # All Sun architectures, maybe software fp # % make sun_sparc # Sun SPARC # % make sun_ffpa # Sun-3 floating point accelerator # % make sun_f68881 # Sun-3 motorola f68881 floating point # % make sun_fswitch # All Suns, switchable floating point # % make ultrix # DECstation and VAXstation # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or, % make install SAOBINDIR = "/ourown/local/bindir") # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install iraf fifo's # % make install_imtoolrc # just install iraf imtoolrc file # # NOTICE: You can't run the installation targets from this umbrella makefile. # You must run the correct makefile. for the workstation you are # installing on. For instance, # # % make -f makefile.dec install # # Other options: # % make manual # make manual.dvi file in doc subdirectory # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) SAOIMAGE = saoimage oops: @echo No architecture specified. Please re-run as \"make ARCH\", \ where ARCH is one of @grep '^[a-z].*:' makefile | grep -v $@ | sed 's/:.*$$//' # It would be nicer to print out the supported architectures in a pretty # table, but the AIX awk complains that END is a syntax error, so we will # leave this out for now. # awk '{printf (" %-14.14s", $$0); np++; \ # if (np == 3) {printf ("\n"); np=0} \ # } END {if (np > 0) print ""}' # Following are targets for all the supported architecures. Note that there # is a different makefile. for each workstation manufacturer; this # is sufficient at this stage. The only changes that should be required in # selecting a particular architecture is the adjustment of the ADFLAGS macro, # which sets the architecture-dependent flags for compilation and linking. aix: # IBM RT6000 (AIX) $(MAKE) -f makefile.ibm $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-D_BSD" alliant: # Alliant FX $(MAKE) -f makefile.alnt $(SAOIMAGE) ARCH=$@ # For Apollo, note that you need ADFLAGS = -DXV11R2 for OS prior to SR10.2. # The XV11R2 flag is necessary when libX11 does not contain an entry for # "XVisualIDFromVisual"; the relevant ifdef is in clrinit.c. apollo: # Apollo, software floating pt $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-ndb -L/usr/lib/X11" apollo_68882: # Apollo, MC68882 floating pt $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-cpu,3000,-ndb -L/usr/lib/X11" apollo_fpa: # Apollo, Weitek FPA floating pt $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-cpu,FPA1,-ndb -L/usr/lib/X11" apollo_prism: # Apollo, PRISM architecture $(MAKE) -f makefile.apo $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-W0,-opt,3,-cpu,a88k,-ndb -L/usr/lib/X11" apollo_a88k: $(MAKE) apollo_prism apollo_m68k: $(MAKE) apollo_68882 hp: # Hewlett-Packard (HPUX) $(MAKE) -f makefile.hp $(SAOIMAGE) ARCH=$@ mips: # MIPS, Inc. (RISCOS) $(MAKE) -f makefile.mips $(SAOIMAGE) ARCH=$@ sgi: # SGI Personal Iris (Irix) $(MAKE) -f makefile.sgi $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-I/usr/include/sun -I/usr/include/bsd" sun: # Sun generic => SPARC $(MAKE) sun_sparc sun_sparc: # Sun, sparc architecture $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ sun_f68881: # Sun3, mc68881 floating pt $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-f68881" sun_ffpa: # Sun3, ffpa floating pt $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-ffpa" sun_fswitch: # Suns, switchable fp $(MAKE) -f makefile.sun $(SAOIMAGE) ARCH=$@ \ ADFLAGS="-fswitch" ultrix: # DECstation/VAXstation (Ultrix) $(MAKE) -f makefile.dec $(SAOIMAGE) ARCH=$@ dec: # DEC (Ultrix) $(MAKE) ultrix # Some of the utility targets are generic enough that we can just point to # one of the architecture-specific makefiles. MAKEUTIL = makefile.dec ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: # $(MAKE) -f makefile`ls .buildarch.* | sed 's/\.buildarch//'` $@ $(MAKE) -f $(MAKEUTIL) $@ ARCFILE=$(ARCFILE) pipe: $(MAKE) -f $(MAKEUTIL) -s tar ARCFILE=- tape: $(MAKE) -f $(MAKEUTIL) tar ARCFILE=$(TAPEDEV) clean: $(MAKE) -f $(MAKEUTIL) $@ install: @echo You can\'t run install from this umbrella makefile. \ You must run the correct @echo makefile.machine for the workstation \ you are installing on. For instance, @echo @echo " % make -f makefile.dec install" manual: cd doc; latex $@ @echo $@.dvi created in `pwd`. @echo You must run a DVI translator appropriate for \ your printer, e.g., dvips. saoimage-1.08/makefile.mips 666 21641 13 40306 5034421721 11014 # # makefile.mips for SAOimage # MIPStation running RISC/OS # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = /bsd43/bin/cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) MFLAGS = -DSYSV -DPSCRIPT -DNOPIPEFLUSH # OFLAGS: compiler optimization/debug options. #OFLAGS = -g -DDEBUG OFLAGS = -O # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #F77LIB = -lF77 -lI77 -lU77 # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = mips LINT = lint MKNOD = /etc/mknod MV = mv -f RANLIB = ranlib RM = rm -f SHELL = /bin/sh CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. install_fifo: for f in $(FIFO_I) $(FIFO_O); do \ (if [ ! -f $$f ]; then \ $(MKNOD) $$f p; chmod 777 $$f; \ fi;) done; for f in $(FIFO_LN); do \ (if [ ! -f $$f ]; then \ echo OKK; ln -s $(FIFO_O) $(FIFO_LN); fi;) done # Install imtoolrc file if necessary; current hardwired location may change... # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos. install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/makefile.sgi 666 21641 13 40341 5034421740 10626 # # makefile.sgi for SAOimage # SGI Irix # # To build: # % make (or `make all') # build libs/program as necessary # # The full "make install" both installs SAOimage in Unix and sets up for # communications with IRAF: # % make install # (or `make install SAOBINDIR="/ourown/local/bindir"') # # Partial installs may also be used: # % make install_saobin # just install binary (can add SAOBINDIR) # % make install_saoman # just install manual page # % make install_fifo # just install IRAF fifo's # % make install_imtoolrc # just install IRAF imtoolrc file # # Other options: # % make clean # clean up object & miscellaneous other files # % make tar # make saoimage.tar in CWD # % make -s pipe # create tarfile on stdout for piping # % make tape # create tarfile on /dev/nrxt8 # # Make macros (parameters) that can be specified on command line: # SAOBINDIR # Destination directory for SAOimage program # SAOMANDIR # Destination directory for on-line manpage # ARCFILE # Disk archive file name (used with make tar) # TAPEDEV # Tape archive device name (used with make tape) # # May 6, 1991 # Installation directories and filenames: edit as necessary or supply on the # command line. If the location of the default imtoolrc file is changed by # modifying either IMTRCDIR or IMTOOLRC, irafenv.c should be recompiled. # (The include file hfiles/imtool.h has an ifdef to detect the value of # FBCONFIG_2, which is set to the value of IMTOOLRC in the definition of # the CFLAGS macro below.) SAOBINDIR = $(ROOT)/usr/local/bin/ SAOMANDIR = $(ROOT)/usr/man/manl/ IMTRCDIR = $(ROOT)/usr/local/lib/ IMTOOLRC = $(IMTRCDIR)imtoolrc FIFO_I = $(ROOT)/dev/imt1i FIFO_O = $(ROOT)/dev/imt1o FIFO_LN = $(ROOT)/dev/imt1 # Compiler specification. CC = cc # Uncomment these two lines to compile with gcc (add any optimizers you wish). #CC = gcc -finline-functions -fdelayed-branch -fstrength-reduce # Delayed branches could win big on RISC: many inner loops have branches # Most loops have already been designed with strength reduction #TARGET_ARCH = # IFLAGS: image reading code to be built into SAOimage. # -DFITS - reads array files with FITS headers # -DOIF - reads IRAF .imh/(.pix) files with detached headers # -DIMTOOL - include code to support imtool interactions with IRAF # Imtool interaction is enabled by default. The consequences of this are # that warning messages about missing fifos are displayed when SAOimage is # fired up on a system where the fifos are absent. Other than this, the # standalone operation is unhindered. IFLAGS = -DFITS -DOIF -DIMTOOL # MFLAGS: machine or library specific code. # -DSUN - SunOS temp file name, IEEE floating point debug, and Sun keyboard # -DLSB - byte swap for FITS (VAX and DECstations) # -DSYSV - substitutes for getdtablesize() and setrlimit() not widely known # -DPSCRIPT - hard copy output to a PostScript printer (else no hardcopy) MFLAGS = -DSYSV -DPSCRIPT # OFLAGS: compiler optimization/debug options. #OFLAGS = -g -DDEBUG OFLAGS = -O # ADFLAGS: architecture-dependent floating point flags, etc. ADFLAGS = -I/usr/include/sun -I/usr/include/bsd # Libraries that move about or may require special specification. # # SAOimage requires the standard libX11.a library; if this is not in the # usual link search path, i.e., it is not in /usr/lib, it may be necessary # to specify its path fully in XLIB. XLIB = -lX11 #F77LIB = -lF77 -lI77 -lU77 # END OF INSTALLATION DEPENDENT SETUP. ======================================== # It should not be necessary to edit anything below this line. ARCH = sgi LINT = lint MKNOD = /etc/mknod MV = mv -f RANLIB = ar ts RM = rm -f SHELL = /bin/sh CFLAGS = $(OFLAGS) $(ADFLAGS) $(MFLAGS) $(IFLAGS) -DFBCONFIG_2=\"$(IMTOOLRC)\" # SAOimage libraries that live in subdirectories with their own makefiles. # This definition must be kept in correspondence with the DEPLIBS target. DEPLIBS=btnlib/libbtn.a LIBS = -lm $(DEPLIBS) $(XLIB) -lsun -lbsd HFILES = \ hfiles/buffer.h hfiles/cgraph.h hfiles/cmdparse.h \ hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/control.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/extern.h \ hfiles/histeq.h hfiles/image.h hfiles/imtool.h \ hfiles/magnify.h hfiles/region.h hfiles/rtcmd.h \ hfiles/scale.h hfiles/struct.h hfiles/window.h DEFILES = \ defs/btnbox.def defs/cgraph.def defs/circle.def \ defs/color.def defs/colorbox.def defs/colormap.def \ defs/control.def defs/cursor.def defs/desktop.def \ defs/dispbox.def defs/dither.def defs/graphbox.def \ defs/image.def defs/magnibox.def defs/magnify.def \ defs/magnify.def defs/mouse.def defs/panbox.def SRCS = cmddisp.c cmdimage.c cmdnew.c cmdparse.c \ clralloc.c clrctrl.c clrhard.c clrinit.c \ clrmap.c clrmenu.c clrread.c clrsetup.c \ clrvary.c \ crdinvrt.c crdrot.c crdset.c crdsynth.c \ crdtemp.c crdtrans.c \ csranli.c csrarea.c csrcoord.c csrctrl.c \ csrdraw.c csrgrab.c csrmove.c csrpoly1.c \ csrpoly2.c csrpoly3.c csrsave.c csrshape.c \ csrslct.c csrtext.c \ ctrlcntn.c ctrldisk.c ctrlfile.c ctrlgc.c \ ctrlmbox.c ctrlpipe.c ctrlsckt.c \ dispblnk.c dispbtmp.c dispdfse.c dispdthr.c \ display.c disppsct.c disppxmp.c \ editctrl.c editdraw.c editemcs.c editinit.c \ editline.c editrdrw.c \ grphbar.c grphbtmp.c grphctrl.c grphdraw.c \ grphgrab.c grphinit.c grphlbl.c grphline.c \ grphmove.c grpholap.c grphpos.c grphtext.c \ histdist.c histeql.c histlist.c histmap.c \ histscan.c histzero.c \ imgcheck.c imgflip.c imglogo.c imgnew.c \ imgparam.c imgread.c imgrot.c imgtrans.c \ irafcrd.c irafdisp.c irafenv.c iraffdbk.c \ irafimtl.c irafio.c irafpipe.c \ mainbffr.c mainevnt.c maininit.c mainkey.c \ mainslct.c mainutil.c \ menuctrl.c menuinit.c \ mgfyctrl.c mgfydraw.c mgfyinit.c mgfymark.c \ mgfytabl.c mgfyval.c \ pancopy.c pancrsr.c panctrl.c panimage.c \ panwndw.c \ readarr.c readfith.c readfits.c readint.c \ readiraf.c readreal.c \ rgnanli.c rgnctrl.c rgndraw.c rgndrop.c \ rgnmake.c rgnread.c rgntoken.c rgnwpros.c \ rgnwrite.c \ rtcmd.c rtio.c \ sclctrl.c sclmap.c \ wndwadj.c wndwconf.c wndwcre.c wndwinit.c \ wndwmaus.c OBJS = clralloc.o clrctrl.o clrhard.o clrinit.o \ clrmap.o clrmenu.o clrread.o clrsetup.o \ clrvary.o \ cmddisp.o cmdimage.o cmdnew.o cmdparse.o \ crdinvrt.o crdrot.o crdset.o crdsynth.o \ crdtemp.o crdtrans.o \ csranli.o csrarea.o csrcoord.o csrctrl.o \ csrdraw.o csrgrab.o csrmove.o csrpoly1.o \ csrpoly2.o csrpoly3.o csrsave.o csrshape.o \ csrslct.o csrtext.o \ ctrlcntn.o ctrldisk.o ctrlfile.o ctrlgc.o \ ctrlmbox.o ctrlpipe.o ctrlsckt.o \ dispblnk.o dispbtmp.o dispdfse.o dispdthr.o \ display.o disppsct.o disppxmp.o \ editctrl.o editdraw.o editemcs.o editinit.o \ editline.o editrdrw.o \ grphbar.o grphbtmp.o grphctrl.o grphdraw.o \ grphgrab.o grphinit.o grphlbl.o grphline.o \ grphmove.o grpholap.o grphpos.o grphtext.o \ histdist.o histeql.o histlist.o histmap.o \ histscan.o histzero.o \ imgcheck.o imgflip.o imglogo.o imgnew.o \ imgparam.o imgread.o imgrot.o imgtrans.o \ irafcrd.o irafdisp.o irafenv.o iraffdbk.o \ irafimtl.o irafio.o irafpipe.o \ mainbffr.o mainevnt.o maininit.o mainkey.o \ mainslct.o mainutil.o \ menuctrl.o menuinit.o menupanl.o \ mgfyctrl.o mgfydraw.o mgfyinit.o mgfymark.o \ mgfytabl.o mgfyval.o \ pancopy.o pancrsr.o panctrl.o panimage.o \ panwndw.o \ readarr.o readfith.o readfits.o readint.o \ readiraf.o readreal.o \ rgnanli.o rgnctrl.o rgndraw.o rgndrop.o \ rgnmake.o rgnread.o rgntoken.o rgnwpros.o \ rgnwrite.o \ sclctrl.o sclmap.o \ wndwadj.o wndwconf.o wndwcre.o wndwinit.o \ wndwmaus.o MANPAGE = doc/saoimage.man PROGRAM = saoimage all: $(MAKE) $(PROGRAM) $(PROGRAM): $(DEPLIBS) $(OBJS) @echo Building $(PROGRAM) for architecture $(ARCH). $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) -o $(PROGRAM) $(LIBS) $(DEPLIBS): @echo Building $(DEPLIBS)... cd btnlib; $(MAKE) CFLAGS="-c $(OFLAGS) $(ADFLAGS) $(MFLAGS)" \ RANLIB="$(RANLIB)" CC=$(CC) lint: $(LINT) -DDEBUG $(MFLAGS) $(IFLAGS) $(SRCS) clean: cd btnlib; $(MAKE) clean $(RM) a.out core spool $(PROGRAM) *.o *.bak $(DEPLIBS) # SAOimage installation. install: install_saobin install_saoman install_fifo install_imtoolrc # Install SAOimage executable. install_saobin: $(PROGRAM) for f in $(SAOBINDIR)$(PROGRAM); do $(RM) $$f; cp $(PROGRAM) $$f; done # Install SAOimage manpage. Note that this assumes that man can process the # raw source file (with *roff -man directives) to display manual pages. If # this is not the case, it may be necessary to run catman or some such program # in order for the manpage to be accessible on-line. install_saoman: $(MANPAGE) for f in $(SAOMANDIR)$(PROGRAM).l; do $(RM) $$f; cp $(MANPAGE) $$f; done # Install named pipes and create symbolic link if necessary; *must be root*. # Note that VAX systems (BSD, Ultrix, VMS) do not have fifos. install_fifo: for f in $(FIFO_I) $(FIFO_O); do \ (if [ ! -f $$f ]; then \ $(MKNOD) $$f p; chmod 777 $$f; \ fi;) done; for f in $(FIFO_LN); do \ (if [ ! -f $$f ]; then \ echo OKK; ln -s $(FIFO_O) $(FIFO_LN); fi;) done # Install imtoolrc file if necessary; current hardwired location may change... install_imtoolrc: for f in $(IMTOOLRC); do \ (if [ -f $$f ]; then \ $(MV) $(IMTOOLRC) $(IMTOOLRC).OLD; fi; \ cp imtoolrc $(IMTOOLRC);); done # Automated archive bundling. ARCFILE = saoimage.tar TAPEDEV = /dev/nrxt8 tar: tar cfv $(ARCFILE) makefile makefile.* \ $(SRCS) $(HFILES) $(DEFILES) \ imtoolrc *.txt doc/* make.* vms/* \ btnlib/*.c btnlib/*.h btnlib/readme btnlib/make.* btnlib/makefile \ btnlib/tool/*.c btnlib/tool/*.h btnlib/tool/makefile \ panel/*.c panel/*.h panel/*.mnu panel/makefile pipe: $(MAKE) ARCFILE=- tar tape: $(MAKE) ARCFILE=$(TAPEDEV) tar XLIBH = /usr/include/X11/Xlib.h /usr/include/X11/Xutil.h STRUCT = hfiles/struct.h hfiles/buffer.h hfiles/color.h hfiles/control.h \ hfiles/coord.h hfiles/cursor.h hfiles/image.h hfiles/window.h WORKS = $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/extern.h clralloc.o : $(XLIBH) hfiles/color.h hfiles/define.h clrbar.o : clrctrl.o : $(WORKS) hfiles/cgraph.h clrhard.o : $(XLIBH) hfiles/color.h clrinit.o : $(XLIBH) hfiles/color.h hfiles/control.h clrmap.o : $(XLIBH) hfiles/color.h hfiles/define.h clrmenu.o : $(XLIBH) hfiles/color.h hfiles/colormap.h hfiles/constant.h \ hfiles/define.h hfiles/edit.h defs/colormap.def clrread.o : hfiles/colormap.h hfiles/define.h clrsetup.o : $(XLIBH) hfiles/color.h clrvary.o : $(WORKS) hfiles/cgraph.h hfiles/define.h cmddisp.o : $(WORKS) hfiles/cmdparse.h cmdimage.o : $(WORKS) hfiles/cmdparse.h cmdnew.o : $(XLIBH) $(STRUCT) hfiles/cmdparse.h hfiles/define.h \ hfiles/extern.h cmdparse.o : $(WORKS) hfiles/cmdparse.h crdinvrt.o : hfiles/coord.h crdrot.o : hfiles/coord.h crdset.o : hfiles/coord.h hfiles/image.h crdsynth.o : hfiles/coord.h crdtemp.o : hfiles/coord.h crdtrans.o : hfiles/coord.h csranli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h csrarea.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrcoord.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrctrl.o : $(WORKS) csrdraw.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrgrab.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrmove.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h csrpoly1.o : $(XLIBH) hfiles/color.h hfiles/coord.h hfiles/cursor.h \ hfiles/define.h csrpoly2.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/coord.h \ hfiles/cursor.h csrpoly3.o : $(XLIBH) csrsave.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h csrshape.o : $(XLIBH) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ defs/circle.def csrslct.o : $(WORKS) csrtext.o : $(WORKS) hfiles/edit.h hfiles/region.h ctrlcntn.o : $(XLIBH) hfiles/control.h ctrldisk.o : ctrlfile.o : $(XLIBH) hfiles/edit.h ctrlgc.o : $(XLIBH) hfiles/color.h hfiles/define.h ctrlmbox.o : $(XLIBH) hfiles/control.h ctrlpipe.o : ctrlsckt.o : $(XLIBH) hfiles/control.h dispblnk.o : $(WORKS) dispbtmp.o : $(WORKS) hfiles/define.h hfiles/scale.h defs/dither.def dispdfse.o : dispdthr.o : display.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h disppsct.o : $(WORKS) hfiles/define.h hfiles/scale.h hfiles/region.h disppxmp.o : hfiles/coord.h grphbar.o : grphbtmp.o : $(XLIBH) hfiles/color.h grphctrl.o : $(WORKS) hfiles/cgraph.h defs/cgraph.def grphdraw.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphgrab.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphinit.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h grphlbl.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/define.h \ hfiles/extern.h grphline.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphmove.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grpholap.o : $(XLIBH) hfiles/cgraph.h hfiles/color.h grphpos.o : $(XLIBH) grphtext.o : $(XLIBH) $(STRUCT) hfiles/cgraph.h hfiles/extern.h editctrl.o : $(XLIBH) hfiles/color.h hfiles/window.h hfiles/edit.h editdraw.o : $(XLIBH) hfiles/define.h hfiles/edit.h editemcs.o : $(XLIBH) hfiles/edit.h editinit.o : $(XLIBH) hfiles/edit.h editline.o : $(XLIBH) hfiles/edit.h editrdrw.o : $(XLIBH) hfiles/edit.h histdist.o : hfiles/histeq.h histeql.o : hfiles/histeq.h histlist.o : hfiles/histeq.h histmap.o : hfiles/histeq.h histscan.o : hfiles/histeq.h histzero.o : hfiles/histeq.h imgcheck.o : hfiles/cmdparse.h hfiles/constant.h hfiles/image.h imgflip.o : imglogo.o : imgnew.o : $(WORKS) hfiles/define.h imgparam.o : hfiles/coord.h hfiles/define.h hfiles/image.h imgread.o : $(WORKS) imgrot.o : imgtrans.o : hfiles/define.h irafcrd.o : $(XLIBH) $(STRUCT) hfiles/extern.h irafdisp.o : $(WORKS) hfiles/scale.h irafenv.o : hfiles/coord.h hfiles/define.h hfiles/image.h hfiles/imtool.h iraffdbk.o : $(WORKS) irafimtl.o : $(WORKS) hfiles/imtool.h irafio.o : $(WORKS) hfiles/control.h hfiles/imtool.h irafpipe.o : hfiles/imtool.h mainbffr.o : $(XLIBH) $(WORKS) hfiles/scale.h mainevnt.o : $(WORKS) hfiles/define.h maininit.o : $(XLIBH) $(STRUCT) hfiles/constant.h hfiles/define.h \ defs/color.def defs/control.def defs/image.def \ defs/dispbox.def defs/magnibox.def defs/panbox.def \ defs/btnbox.def defs/colorbox.def defs/graphbox.def \ defs/desktop.def defs/cursor.def mainkey.o : $(WORKS) /usr/include/X11/keysym.h \ /usr/include/X11/keysymdef.h mainslct.o : $(WORKS) mainutil.o : $(XLIBH) $(STRUCT) hfiles/extern.h menuctrl.o : $(WORKS) btnlib/buttons.h menuinit.o : $(XLIBH) btnlib/buttons.h hfiles/window.h menupanl.o : panel/makemenu.c panel/menucmap.h panel/menuclr.h \ panel/menucsr.h panel/menuetc.h panel/menumain.h \ panel/menumono.h panel/menupan.h panel/menurgn.h \ panel/menuscl.h $(CC) -c $(CFLAGS) panel/makemenu.c; $(MV) makemenu.o menupanl.o mgfyctrl.o : $(WORKS) hfiles/magnify.h mgfydraw.o : $(XLIBH) hfiles/color.h hfiles/magnify.h mgfyinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h \ hfiles/scale.h hfiles/magnify.h mgfymark.o : $(XLIBH) hfiles/color.h hfiles/magnify.h defs/magnify.def mgfytabl.o : $(XLIBH) $(STRUCT) hfiles/extern.h mgfyval.o : $(WORKS) pancopy.o : hfiles/define.h pancrsr.o : $(XLIBH) $(STRUCT) hfiles/extern.h panctrl.o : $(WORKS) panimage.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h panwndw.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h readarr.o : hfiles/constant.h hfiles/image.h readfith.o : readfits.o : hfiles/constant.h hfiles/image.h readint.o : hfiles/image.h hfiles/scale.h readiraf.o : hfiles/constant.h hfiles/image.h readreal.o : hfiles/image.h hfiles/scale.h rgnanli.o : $(XLIBH) hfiles/color.h hfiles/cursor.h rgnctrl.o : $(WORKS) rgndraw.o : $(WORKS) hfiles/define.h hfiles/region.h rgndrop.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h rgnmake.o : $(WORKS) hfiles/define.h rgnread.o : $(WORKS) hfiles/define.h hfiles/edit.h hfiles/region.h rgntoken.o : $(XLIBH) hfiles/constant.h hfiles/region.h rgnwpros.o : $(WORKS) hfiles/color.h hfiles/constant.h hfiles/cursor.h \ hfiles/define.h rgnwrite.o : $(XLIBH) hfiles/constant.h hfiles/color.h hfiles/cursor.h \ hfiles/define.h hfiles/edit.h hfiles/image.h rtcmd.o : $(WORKS) hfiles/rtcmd.h rtio.o : $(XLIBH) hfiles/control.h hfiles/rtcmd.h sclctrl.o : $(WORKS) hfiles/define.h hfiles/scale.h sclmap.o : $(WORKS) hfiles/scale.h wndwadj.o : $(XLIBH) $(STRUCT) hfiles/extern.h hfiles/cgraph.h wndwconf.o : $(XLIBH) $(STRUCT) hfiles/extern.h wndwcre.o : $(XLIBH) hfiles/window.h wndwinit.o : $(XLIBH) $(STRUCT) hfiles/define.h hfiles/extern.h wndwmaus.o : $(WORKS) defs/mouse.def saoimage-1.08/maininit.c~ 666 21641 13 20042 5470220221 10506 #ifndef lint static char SccsId[] = "%W% %G%"; #endif /* Module: maininit.c (Main Initialize) * Purpose: Start of the saoimage package * Program: main() * Subroutine: crash_on_error() * Xlib calls: XSetErrorHandler(), XCloseDisplay(), XGetErrorText() * UNIX calls: setrlimit(), ieee_handler(), abrupt_underflow_() * Copyright: 1989 Smithsonian Astrophysical Observatory * You may do anything you like with this file except remove * this copyright. The Smithsonian Astrophysical Observatory * makes no representations about the suitability of this * software for any purpose. It is provided "as is" without * express or implied warranty. * Modified: {0} Michael VanHilst initial version 9 May 1989 * {1} MVH BSDonly strings.h compatability 19 Feb 1990 * {n} -- -- */ #include /* stderr, FILE, NULL, etc. */ #ifndef VMS #ifdef SYSV #include /* strlen, strcat, strcpy, strrchr */ #else #include /* strlen, etc. for unenlightened BSD's */ #endif #else #include /* strlen, strcat, strcpy, strrchr */ #endif #include /* struct timeval used in */ #include /* X window stuff */ #include /* X window manager stuff */ #include "hfiles/constant.h" /* define codes */ #include "hfiles/define.h" /* YES, NO, MIN, MAX and more */ #include "hfiles/struct.h" /* declare structure types */ #ifdef DEBUG #ifdef SUN /* DEBUG and SUN(OS4.xx) */ #include /* SIGFPE_ABORT ieee exception switch */ #endif #else #ifndef VMS /* NOT DEBUG AND NOT VMS */ #ifndef SYSV #include /* rlimit, RLIMIT_CORE for setrlimit */ #endif #endif #endif char *RevMsg = "release 1.07 9 October 1992"; int init_done = 0; /* declare and initialize parameter structs */ #include "defs/control.def" #include "defs/color.def" #include "defs/image.def" #include "defs/dispbox.def" #include "defs/magnibox.def" #include "defs/colorbox.def" #include "defs/graphbox.def" #include "defs/panbox.def" #include "defs/btnbox.def" #include "defs/desktop.def" #include "defs/cursor.def" /* declare uninitialized structs */ struct bufferRec buffer; struct coordRec coord; Display *display; /* display connection */ /* * Program: main * Purpose: Get things started, then call event_loop * Xlib calls: XSetErrorHandler() * UNIX calls: setrlimit() */ main(argc, argv) int argc; char **argv; { static void init_params(), init_packages(); void crash_on_error(), control_event_loop(); void say_goodbye(); #ifdef DEBUG /* install special error handler to force crash so we can trace problem */ XSetErrorHandler(crash_on_error); #ifdef SUN /* Under SunOS4 we can force floating point exceptions to report errors */ ieee_handler("set", "common", SIGFPE_ABORT); abrupt_underflow_(); #endif #else #ifndef VMS #ifndef SYSV { struct rlimit rlp; /* l: UNIX resourse limit structure */ /* disable core dumping */ rlp.rlim_cur = 0; rlp.rlim_max = 0; setrlimit(RLIMIT_CORE, &rlp); } #endif #endif #endif /* set up, read, and check parameters */ init_params(argc, argv); if( control.verbose ) { (void)printf("\n Smithsonian Astrophysical Observatory image utility\n"); (void)printf(" %s\n\n", RevMsg); } init_packages(argc, argv); /* CALL MAIN EVENT LOOP (uses extern.h) */ init_done = 1; control_event_loop(); say_goodbye(0); } /* * Subroutine: say_goodbye * Purpose: Free server resources before exiting * Xlib calls: XCloseDisplay() */ void say_goodbye ( code ) int code; /* i: code to identify exit */ { void free_gc(); if( desktop.display != NULL ) { free_gc(); XCloseDisplay(desktop.display); } exit(code); } /* * Subroutine: init_params * Purpose: Initialize parameters in the records * Note: Resource or default file not yet used */ static void init_params ( argc, argv ) int argc; char **argv; { char *name; /* l: both flag for init and return display name */ int parse_stat; static void init_server(); int parse_cmdline(), check_image(); void say_goodbye(), init_connections(); name = NULL; /* get parameters from the command line (uses extern.h) */ if( (parse_stat = parse_cmdline(argc, argv, &name)) < 0 ) say_goodbye(1); /* check image parameters for consistency (uses extern.h) */ if( check_image(&img, parse_stat) ) img.file_type = SOP_Logo; /* connect to the display server */ init_server(name, &desktop, &color); init_connections(); } /* * Subroutine: init_packages * Purpose: Initialize all of the subroutine packages and windows */ static void init_packages ( argc, argv ) int argc; char **argv; { GC gc; int init_image(); GC set_gc_with_background(); void init_windows1(), init_windows2(), init_panbox_coords(), disp_dispbox(); void disp_panbox(), init_imaging_buffers(), init_mousepointers(), init_gc(); void init_display_buffers(), init_region_draw(), init_color(), new_display(); void init_software_cursors(), init_buttonmenu(), init_buttonbox_settings(); void init_magnifier(), set_magnifier(), redraw_magnifier(), init_colorbox(); void say_goodbye(), mount_buttonmenu(), new_panimage(), init_cgraph_text(); /* get the image dimensions (need file name, type), exit if failure */ if( init_image() == 0 ) { (void)fprintf(stderr, "No image given and no input device connected.\n"); say_goodbye(1); } /* get the colors ready (need display) */ init_color(&color, 1); /* map the desktop(need image dimensions, color) */ init_windows1(argc, argv); /* set up the mouse pointer icons (need display, hardcolors) */ init_mousepointers(desktop.display, desktop.display); /* initialize color bar and graph labeling text font and parameters */ init_gc(desktop.display, desktop.ID); init_cgraph_text(); /* set up the image buffer (need image) */ init_imaging_buffers(); /* get desktop dimensions and create windows (need colors, mouse cursors) */ init_windows2(); /* get the soft cursors ready(need colors, img coords) */ init_software_cursors(); /* set up color bar */ init_colorbox(); /* set up display buffers (need window dimensions) */ init_display_buffers(); /* set params and get image data (need colors, buffers, scope, imageinit) */ init_panbox_coords(); init_magnifier(control.magni_track, control.coord_track); new_display(0, 1, 1, 1); /* move image data into the panbox's buffer */ new_panimage(); /* set up the button menu */ gc = set_gc_with_background(&color.gcset.menu, color.gcset.menu.background); init_buttonmenu(&btnbox, gc, color.visual, (unsigned long)color.hard.std_black, (unsigned long)color.hard.std_white); init_buttonbox_settings(); /* set up region action flags and drawing stuff (draw and label on) */ init_region_draw(1, 1); mount_buttonmenu(); } #ifdef DEBUG /* * Subroutine: crash_on_error * Purpose: Special error handler to force crash on error * Xlib calls: XGetErrorText() */ void crash_on_error ( dt_display, error ) Display *dt_display; XErrorEvent *error; { int *foo; char msg[SZ_LINE]; (void)fprintf(stderr,"XError Reported: type code: %d\n",error->error_code); XGetErrorText(dt_display, (int)error->error_code, msg, SZ_LINE); (void)fprintf(stderr, "%s\n", msg); /* cause fatal core dump */ foo = 0; *foo = 0; exit( 0 ); } #endif /* * Subroutine: init_server * Purpose: Open connection with chosen or default display server */ static void init_server ( displayname, desktop, color ) char *displayname; struct windowRec *desktop; struct colorRec *color; { Display *dt_display; int dt_screen; char errmsg[SZ_FNAME]; void exit_errmsg(); /* make contact with the display server */ if( !(dt_display = XOpenDisplay(displayname)) ) { (void)strcpy(errmsg, "Could not connect to display: "); if( displayname != NULL ) (void)strcat(errmsg, displayname); exit_errmsg(errmsg); } desktop->display = dt_display; color->display = dt_display; dt_screen = DefaultScreen(dt_display); desktop->screen = dt_screen; color->screen = dt_screen; display = dt_display; }