./ImageMagick/ 755 24 24 0 5556377633 6312 ./ImageMagick/animate.c 644 24 24 260555 5555556164 10233 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % AAA N N IIIII M M AAA TTTTT EEEEE % % A A NN N I MM MM A A T E % % AAAAA N N N I M M M AAAAA T EEE % % A A N NN I M M A A T E % % A A N N IIIII M M A A T EEEEE % % % % % % Animate Machine Independent File Format Image via X11. % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Animate displays a sequence of images in the MIFF format on any % workstation display running an X server. Animate first determines the % hardware capabilities of the workstation. If the number of unique % colors in an image is less than or equal to the number the workstation % can support, the image is displayed in an X window. Otherwise the % number of colors in the image is first reduced to match the color % resolution of the workstation before it is displayed. % % This means that a continuous-tone 24 bits-per-pixel image can display on a % 8 bit pseudo-color device or monochrome device. In most instances the % reduced color image closely resembles the original. Alternatively, a % monochrome or pseudo-color image can display on a continuous-tone 24 % bits-per-pixel device. % % The Animate program command syntax is: % % Usage: animate [options ...] file [ [options ...] file ...] % % Where options include: % -backdrop display image centered on a backdrop % -clip geometry preferred size and location of the clipped image % -colormap type Shared or Private % -colors value preferred number of colors in the image % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -delay milliseconds display the next image after pausing % -density geometry vertical and horizontal density of the image % -display server display image to this X server % -dither apply Floyd/Steinberg error diffusion to image % -gamma value level of gamma correction % -geometry geometry preferred size and location of the image window % -interlace type NONE, LINE, or PLANE % -map type display image using this Standard Colormap % -monochrome transform image to black and white % -reflect reverse image scanlines % -rotate degrees apply Paeth rotation to the image % -scene value image scene number % -treedepth value depth of the color classification tree % -verbose print detailed information about the image % -visual type display image using this visual type % -window id display image to background of this window % % In addition to those listed above, you can specify these standard X % resources as command line options: -background, -bordercolor, % -borderwidth, -font, -foreground, -iconGeometry, -iconic, -name, % -mattecolor, or -title. % % Change '-' to '+' in any option above to reverse its effect. For % example, specify +compress to store the image as uncompressed. % % By default, the image format of `file' is determined by its magic % number. To specify a particular image format, precede the filename % with an image format name and a colon (i.e. ps:image) or specify the % image type as the filename suffix (i.e. image.ps). Specify 'file' as % '-' for standard input or output. % % Buttons: % 1 press and drag to select a command from a pop-up menu % % Keyboard accelerators: % p press to animate the sequence of images % s press to display the next image in the sequence % . press to continually display the sequence of images % a press to automatically reverse the sequence of images % < press to slow the display of the images % > press to speed-up the display of the images % f press to animate in the forward direction % r press to animate in the reverse direction % i press to display information about the image % q press to discard all images and exit program % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "utility.h" #include "compress.h" #include "X.h" #include "widget.h" /* State declarations. */ #define AutoReverseAnimationState 0x0001 #define DefaultState 0x0000 #define ExitState 0x0002 #define ForwardAnimationState 0x0004 #define HighlightState 0x0008 #define PlayAnimationState 0x0010 #define RepeatAnimationState 0x0020 #define StepAnimationState 0x0040 /* Forward declarations. */ static void XMagickCommand _Declare((Display *,XResourceInfo *,XWindows *, KeySym,Image **,unsigned int *)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Usage displays the program command syntax. % % The format of the Usage routine is: % % Usage(terminate) % % A description of each parameter follows: % % o terminate: The program will exit if the value is not zero. % % */ static void Usage(terminate) unsigned int terminate; { char **p; static char *buttons[]= { "1 press and drag to select a command from a pop-up menu", (char *) NULL }, *keys[]= { "0-9 press to change the level of delay", "p press to animate the sequence of images", "s press to display the next image in the sequence", ". press to continually display the sequence of images", "a press to automatically reverse the sequence of images", "< press to slow the display of the images", "> press to speed-up the display of images", "f press to animate in the forward direction", "r press to animate in the reverse direction", "i press to display information about the image", "q press to discard all images and exit program", (char *) NULL }, *options[]= { "-backdrop display image centered on a backdrop", "-clip geometry preferred size and location of the clipped image", "-colormap type Shared or Private", "-colors value preferred number of colors in the image", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-delay milliseconds display the next image after pausing", "-density geometry vertical and horizontal density of the image", "-display server display image to this X server", "-dither apply Floyd/Steinberg error diffusion to image", "-gamma value level of gamma correction", "-geometry geometry preferred size and location of the image window", "-interlace type NONE, LINE, or PLANE", "-map type display image using this Standard Colormap", "-monochrome transform image to black and white", "-reflect reflect the image scanlines", "-rotate degrees apply Paeth rotation to the image", "-scene value image scene number", "-treedepth value depth of the color classification tree", "-verbose print detailed information about the image", "-visual type display image using this visual type", "-window id display image to background of this window", (char *) NULL }; (void) fprintf(stderr, "Usage: %s [-options ...] file [ [-options ...] file ...]\n",client_name); (void) fprintf(stderr,"\nWhere options include: \n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nIn addition to those listed above, you can specify these standard X\n"); (void) fprintf(stderr, "resources as command line options: -background, -bordercolor,\n"); (void) fprintf(stderr, "-borderwidth, -font, -foreground, -iconGeometry, -iconic, -name,\n"); (void) fprintf(stderr,"-mattecolor, or -title.\n"); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect. For\n"); (void) fprintf(stderr, "example, specify +compress to store the image as uncompressed.\n"); (void) fprintf(stderr, "\nBy default, the image format of `file' is determined by its magic\n"); (void) fprintf(stderr, "number. To specify a particular image format, precede the filename\n"); (void) fprintf(stderr, "with an image format name and a colon (i.e. ps:image) or specify the\n"); (void) fprintf(stderr, "image type as the filename suffix (i.e. image.ps). Specify 'file' as\n"); (void) fprintf(stderr,"'-' for standard input or output.\n"); (void) fprintf(stderr,"\nButtons: \n"); for (p=buttons; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr,"\nKeyboard accelerators: \n"); for (p=keys; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); if (terminate) exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X A n i m a t e B a c k g r o u n d I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XAnimateBackgroundImage animates an image sequence in the % background of a window. % % The format of the XAnimateBackgroundImage routine is: % % XAnimateBackgroundImage(display,resource_info,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static int SceneCompare(x,y) const void *x, *y; { Image **image_1, **image_2; image_1=(Image **) x; image_2=(Image **) y; return((int) (*image_1)->scene-(int) (*image_2)->scene); } static void XAnimateBackgroundImage(display,resource_info,images,number_scenes) Display *display; XResourceInfo *resource_info; Image **images; unsigned int number_scenes; { char visual_type[MaxTextLength]; int i, scene; unsigned int height, status, width; Window root_window; XEvent event; XGCValues context_values; XPixelInfo pixel_info, scene_info; XStandardColormap *map_info; XVisualInfo *visual_info; XWindowAttributes window_attributes; XWindowInfo window_info; /* Determine target window. */ window_info.id=(Window) NULL; window_info.ximage=(XImage *) NULL; window_info.pixmap=(Pixmap) NULL; root_window=XRootWindow(display,XDefaultScreen(display)); if (Latin1Compare(resource_info->window_id,"root") == 0) window_info.id=root_window; else { if (isdigit(*resource_info->window_id)) window_info.id=XWindowByID(display,root_window, (Window) strtol((char *) resource_info->window_id,(char **) NULL,0)); if (window_info.id == (Window) NULL) window_info.id= XWindowByName(display,root_window,resource_info->window_id); if (window_info.id == (Window) NULL) Error("No window with specified id exists",resource_info->window_id); } /* Determine window visual id. */ window_attributes.width=XDisplayWidth(display,XDefaultScreen(display)); window_attributes.height=XDisplayHeight(display,XDefaultScreen(display)); (void) strcpy(visual_type,"default"); status=XGetWindowAttributes(display,window_info.id,&window_attributes); if (status != False) (void) sprintf(visual_type,"0x%lx", XVisualIDFromVisual(window_attributes.visual)); resource_info->map_type=(char *) NULL; resource_info->visual_type=visual_type; /* Allocate standard colormap. */ map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Error("Unable to create standard colormap","Memory allocation failed"); map_info->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; /* Initialize visual info. */ visual_info=XBestVisualInfo(display,map_info,resource_info); if (visual_info == (XVisualInfo *) NULL) Error("Unable to get visual",resource_info->visual_type); /* Sort images by increasing scene number. */ i=0; for (scene=0; scene < number_scenes; scene++) i+=images[scene]->scene; if (i > 0) (void) qsort((void *) images,number_scenes,sizeof(Image *),SceneCompare); if (resource_info->map_type == (char *) NULL) if ((visual_info->class != TrueColor) && (visual_info->class != DirectColor)) { unsigned int identical_colormap; /* Determine if the sequence of images has the identical colormap. */ identical_colormap=True; for (scene=0; scene < number_scenes; scene++) { if ((images[scene]->class == DirectClass) || (images[scene]->colors > visual_info->colormap_size)) { /* Image has more colors than the visual supports. */ status=RunlengthDecodeImage(images[scene]); if (status == False) Error("Unable to unpack image",(char *) NULL); QuantizeImage(images[scene],(unsigned int) visual_info->colormap_size,resource_info->tree_depth, resource_info->dither,resource_info->colorspace,False); } if (images[scene]->signature == (char *) NULL) ColormapSignature(images[scene]); status=strcmp(images[scene]->signature,images[0]->signature); if (status != 0) identical_colormap=False; } if (!identical_colormap) { /* Create a single colormap for the sequence of images. */ for (scene=0; scene < number_scenes; scene++) if (images[scene]->packed_pixels != (unsigned char *) NULL) { status=RunlengthDecodeImage(images[scene]); if (status == False) Error("Unable to unpack image",(char *) NULL); } QuantizeImages(images,number_scenes,(Image *) NULL,(unsigned int) visual_info->colormap_size,resource_info->tree_depth, resource_info->dither,resource_info->colorspace,False); } } /* Initialize Standard Colormap. */ if (images[0]->packed_pixels != (unsigned char *) NULL) { status=RunlengthDecodeImage(images[0]); if (status == False) Error("Unable to unpack image",(char *) NULL); } XMakeStandardColormap(display,visual_info,resource_info,images[0],map_info, &pixel_info); /* Graphic context superclass. */ context_values.background=pixel_info.background_color.pixel; context_values.foreground=pixel_info.foreground_color.pixel; pixel_info.annotate_context=XCreateGC(display,window_info.id,GCBackground | GCForeground,&context_values); if (pixel_info.annotate_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); context_values.background=pixel_info.foreground_color.pixel; context_values.foreground=pixel_info.background_color.pixel; context_values.plane_mask= context_values.background ^ context_values.foreground; pixel_info.highlight_context=XCreateGC(display,window_info.id,GCBackground | GCForeground | GCPlaneMask,&context_values); if (pixel_info.highlight_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); /* Initialize image window attributes. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,(XFontStruct *) NULL, resource_info,&window_info); /* Create the X image. */ window_info.width=images[0]->columns; if (window_info.width >= window_attributes.width) window_info.width=window_attributes.width; window_info.height=images[0]->rows; if (window_info.height >= window_attributes.height) window_info.height=window_attributes.height; status=XMakeImage(display,resource_info,&window_info,images[0], images[0]->columns,images[0]->rows); if (status == False) Error("Unable to create X image",(char *) NULL); if (resource_info->debug) { (void) fprintf(stderr,"Image: [%u] %s %ux%u ",images[0]->scene, images[0]->filename,images[0]->columns,images[0]->rows); if (images[0]->colors != 0) (void) fprintf(stderr,"%uc ",images[0]->colors); (void) fprintf(stderr,"%s\n",images[0]->magick); } /* Adjust image dimensions as specified by backdrop or geometry options. */ width=window_info.width; height=window_info.height; if (resource_info->backdrop) { /* Center image on window. */ window_info.x=(window_attributes.width >> 1)-(images[0]->columns >> 1); window_info.y=(window_attributes.height >> 1)-(images[0]->rows >> 1); width=window_attributes.width; height=window_attributes.height; } if (resource_info->image_geometry != (char *) NULL) { char default_geometry[MaxTextLength]; int flags, gravity; XSizeHints *size_hints; /* User specified geometry. */ size_hints=XAllocSizeHints(); if (size_hints == (XSizeHints *) NULL) Error("Unable to display on window","Memory allocation failed"); size_hints->flags=(long) NULL; (void) sprintf(default_geometry,"%ux%u",width,height); flags=XWMGeometry(display,visual_info->screen, resource_info->image_geometry,default_geometry, window_info.border_width,size_hints,&window_info.x,&window_info.y, (int *) &width,(int *) &height,&gravity); if (flags & (XValue | YValue)) { width=window_attributes.width; height=window_attributes.height; } XFree((void *) size_hints); } /* Create the X pixmap. */ window_info.pixmap= XCreatePixmap(display,window_info.id,width,height,window_info.depth); if (window_info.pixmap == (Pixmap) NULL) Error("Unable to create X pixmap",(char *) NULL); if ((width > window_info.width) || (height > window_info.height)) XFillRectangle(display,window_info.pixmap,window_info.highlight_context, 0,0,width,height); XPutImage(display,window_info.pixmap,window_info.annotate_context, window_info.ximage,0,0,window_info.x,window_info.y,window_info.width, window_info.height); /* Initialize image pixmaps structure. */ window_info.pixmaps=(Pixmap *) malloc(number_scenes*sizeof(Pixmap)); if (window_info.pixmaps == (Pixmap *) NULL) Error("Unable to animate images","Memory allocation failed"); window_info.pixmaps[0]=window_info.pixmap; scene_info.pixels=(unsigned long *) NULL; for (scene=1; scene < number_scenes; scene++) { /* Create X image. */ window_info.pixmap=(Pixmap) NULL; if (images[scene]->packed_pixels != (unsigned char *) NULL) { status=RunlengthDecodeImage(images[scene]); if (status == False) Error("Unable to unpack image",(char *) NULL); } if ((resource_info->map_type != (char *) NULL) || (visual_info->class == TrueColor) || (visual_info->class == DirectColor)) if (images[scene]->class == PseudoClass) { /* Get pixel info for this scene. */ XGetPixelInfo(display,visual_info,map_info,resource_info, images[scene],&scene_info); window_info.pixel_info=(&scene_info); } status=XMakeImage(display,resource_info,&window_info,images[scene], images[scene]->columns,images[scene]->rows); /* Create the X pixmap. */ window_info.pixmap= XCreatePixmap(display,window_info.id,width,height,window_info.depth); if (window_info.pixmap == (Pixmap) NULL) Error("Unable to create X pixmap",(char *) NULL); if ((width > window_info.width) || (height > window_info.height)) XFillRectangle(display,window_info.pixmap,window_info.highlight_context, 0,0,width,height); XPutImage(display,window_info.pixmap,window_info.annotate_context, window_info.ximage,0,0,window_info.x,window_info.y,window_info.width, window_info.height); if (resource_info->debug) { (void) fprintf(stderr,"Image: [%u] %s %ux%u ",images[scene]->scene, images[scene]->filename,images[scene]->columns,images[scene]->rows); if (images[scene]->colors != 0) (void) fprintf(stderr,"%uc ",images[scene]->colors); (void) fprintf(stderr,"%s\n",images[scene]->magick); } window_info.pixmaps[scene]=window_info.pixmap; /* Free image pixels. */ if (scene_info.pixels != (unsigned long *) NULL) (void) free((char *) scene_info.pixels); (void) free((char *) images[scene]->pixels); images[scene]->pixels=(RunlengthPacket *) NULL; } /* Display pixmap on the window. */ XSelectInput(display,window_info.id,StructureNotifyMask); event.type=Expose; do { for (scene=0; scene < number_scenes; scene++) { if (XEventsQueued(display,QueuedAfterFlush) > 0) { XNextEvent(display,&event); if (event.type == DestroyNotify) break; } window_info.pixmap=window_info.pixmaps[scene]; XSetWindowBackgroundPixmap(display,window_info.id,window_info.pixmap); XClearWindow(display,window_info.id); XSync(display,False); if (resource_info->delay != 0) XDelay(display,(unsigned long) resource_info->delay); } } while (event.type != DestroyNotify); /* Free resources. */ for (scene=0; scene < number_scenes; scene++) { XFreePixmap(display,window_info.pixmaps[scene]); DestroyImage(images[scene]); } (void) free((char *) window_info.pixmaps); XDestroyImage(window_info.ximage); XFreeStandardColormap(display,visual_info,map_info,&pixel_info); XFreeGC(display,window_info.annotate_context); XFreeGC(display,window_info.highlight_context); XFreeCursor(display,window_info.cursor); XFreeCursor(display,window_info.busy_cursor); if (pixel_info.pixels != (unsigned long *) NULL) (void) free((char *) pixel_info.pixels); XFree((void *) map_info); XFree((void *) visual_info); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X A n i m a t e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XAnimateImage displays an image via X11. % % The format of the XAnimateImage routine is: % % XAnimateImage(display,resource_info,argv,argc,image,number_scenes) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o argv: Specifies the application's argument list. % % o argc: Specifies the number of arguments. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o number_scenes: Specifies the number of scenes to animate. % % */ static void XAnimateImage(display,resource_info,argv,argc,images,number_scenes) Display *display; XResourceInfo *resource_info; char **argv; int argc; Image **images; unsigned int number_scenes; { #define MaxWindows 9 static unsigned char HighlightBitmap[] = {0xaa,0x55,0xaa,0x55,0xaa,0x55,0xaa,0x55}, ShadowBitmap[] = {0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00}; Image *image; int i, scene; unsigned int number_windows, state, status; Window root_window; XClassHint *class_hint; XEvent event; XFontStruct *font_info; XGCValues context_values; XPixelInfo icon_pixel, pixel_info, scene_info; XResourceInfo icon_resources; XStandardColormap *icon_map, *map_info; XVisualInfo *icon_visual, *visual_info; XWindowInfo *magick_windows[MaxWindows]; XWindows *windows; XWMHints *manager_hints; /* Allocate standard colormap. */ if (resource_info->debug) XSynchronize(display,True); map_info=XAllocStandardColormap(); icon_map=XAllocStandardColormap(); if ((map_info == (XStandardColormap *) NULL) || (icon_map == (XStandardColormap *) NULL)) Error("Unable to create standard colormap","Memory allocation failed"); map_info->colormap=(Colormap) NULL; icon_map->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; icon_pixel.pixels=(unsigned long *) NULL; /* Get the best visual this server supports. */ icon_resources=(*resource_info); icon_resources.map_type=(char *) NULL; icon_resources.visual_type="default"; icon_resources.colormap=SharedColormap; visual_info=XBestVisualInfo(display,map_info,resource_info); icon_visual=XBestVisualInfo(display,icon_map,&icon_resources); if ((visual_info == (XVisualInfo *) NULL) || (icon_visual == (XVisualInfo *) NULL)) Error("Unable to get visual",resource_info->visual_type); if (resource_info->debug) { (void) fprintf(stderr,"Visual:\n"); (void) fprintf(stderr," visual id: 0x%lx\n",visual_info->visualid); (void) fprintf(stderr," class: %s\n", XVisualClassName(visual_info->class)); (void) fprintf(stderr," depth: %d planes\n",visual_info->depth); (void) fprintf(stderr," size of colormap: %d entries\n", visual_info->colormap_size); (void) fprintf(stderr," red, green, blue masks: 0x%lx 0x%lx 0x%lx\n", visual_info->red_mask,visual_info->green_mask,visual_info->blue_mask); (void) fprintf(stderr," significant bits in color: %d bits\n", visual_info->bits_per_rgb); } /* Initialize atoms. */ windows=(XWindows *) malloc(sizeof(XWindows)); if (windows == (XWindows *) NULL) Error("Unable to create X windows","Memory allocation failed"); windows->wm_protocols=XInternAtom(display,"WM_PROTOCOLS",False); windows->wm_delete_window=XInternAtom(display,"WM_DELETE_WINDOW",False); /* Allocate class and manager hints. */ class_hint=XAllocClassHint(); manager_hints=XAllocWMHints(); if ((class_hint == (XClassHint *) NULL) || (manager_hints == (XWMHints *) NULL)) Error("Unable to allocate X hints",(char *) NULL); /* Initialize window id's. */ root_window=XRootWindow(display,visual_info->screen); number_windows=0; magick_windows[number_windows++]=(&windows->backdrop); magick_windows[number_windows++]=(&windows->icon); magick_windows[number_windows++]=(&windows->image); magick_windows[number_windows++]=(&windows->info); magick_windows[number_windows++]=(&windows->popup); for (i=0; i < number_windows; i++) magick_windows[i]->id=(Window) NULL; /* Sort images by increasing scene number. */ i=0; for (scene=0; scene < number_scenes; scene++) i+=images[scene]->scene; if (i > 0) (void) qsort((void *) images,number_scenes,sizeof(Image *),SceneCompare); if (resource_info->map_type == (char *) NULL) if ((visual_info->class != TrueColor) && (visual_info->class != DirectColor)) { unsigned int identical_colormap; /* Determine if the sequence of images has the identical colormap. */ identical_colormap=True; for (scene=0; scene < number_scenes; scene++) { if ((images[scene]->class == DirectClass) || (images[scene]->colors > visual_info->colormap_size)) { /* Image has more colors than the visual supports. */ status=RunlengthDecodeImage(images[scene]); if (status == False) Error("Unable to unpack image",(char *) NULL); QuantizeImage(images[scene],(unsigned int) visual_info->colormap_size,resource_info->tree_depth, resource_info->dither,resource_info->colorspace,False); } if (images[scene]->signature == (char *) NULL) ColormapSignature(images[scene]); status=strcmp(images[scene]->signature,images[0]->signature); if (status != 0) identical_colormap=False; } if (!identical_colormap) { /* Create a single colormap for the sequence of images. */ for (scene=0; scene < number_scenes; scene++) if (images[scene]->packed_pixels != (unsigned char *) NULL) { status=RunlengthDecodeImage(images[scene]); if (status == False) Error("Unable to unpack image",(char *) NULL); } QuantizeImages(images,number_scenes,(Image *) NULL,(unsigned int) visual_info->colormap_size,resource_info->tree_depth, resource_info->dither,resource_info->colorspace,False); } } /* Initialize Standard Colormap. */ if (images[0]->packed_pixels != (unsigned char *) NULL) { status=RunlengthDecodeImage(images[0]); if (status == False) Error("Unable to unpack image",(char *) NULL); } XMakeStandardColormap(display,visual_info,resource_info,images[0],map_info, &pixel_info); /* Initialize font info. */ font_info=XBestFont(display,resource_info); if (font_info == (XFontStruct *) NULL) Error("Unable to load font",resource_info->font); /* Initialize graphic context. */ windows->context.id=(Window) NULL; XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->context); class_hint->res_name="superclass"; class_hint->res_class="ImageMagick"; manager_hints->flags=InputHint | StateHint; manager_hints->input=False; manager_hints->initial_state=WithdrawnState; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->context); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (context)\n",windows->context.id); context_values.background=pixel_info.background_color.pixel; context_values.font=font_info->fid; context_values.foreground=pixel_info.foreground_color.pixel; context_values.graphics_exposures=False; pixel_info.annotate_context=XCreateGC(display,windows->context.id, GCBackground | GCFont | GCForeground | GCGraphicsExposures,&context_values); if (pixel_info.annotate_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); context_values.background=pixel_info.depth_color.pixel; pixel_info.widget_context=XCreateGC(display,windows->context.id, GCBackground | GCFont | GCForeground | GCGraphicsExposures,&context_values); if (pixel_info.widget_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); context_values.background=pixel_info.foreground_color.pixel; context_values.foreground=pixel_info.background_color.pixel; pixel_info.highlight_context=XCreateGC(display,windows->context.id, GCBackground | GCFont | GCForeground | GCGraphicsExposures,&context_values); if (pixel_info.highlight_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); XDestroyWindow(display,windows->context.id); /* Initialize icon window. */ XGetWindowInfo(display,icon_visual,icon_map,&icon_pixel,(XFontStruct *) NULL, &icon_resources,&windows->icon); XBestIconSize(display,&windows->icon,images[0]); windows->icon.attributes.colormap= XDefaultColormap(display,icon_visual->screen); windows->icon.attributes.event_mask=StructureNotifyMask; class_hint->res_name="icon"; manager_hints->flags=InputHint | StateHint; manager_hints->input=False; manager_hints->initial_state=IconicState; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->icon); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (icon)\n",windows->icon.id); /* Initialize graphic context for icon window. */ context_values.background=icon_pixel.background_color.pixel; context_values.foreground=icon_pixel.foreground_color.pixel; icon_pixel.annotate_context=XCreateGC(display,windows->icon.id, GCBackground | GCForeground,&context_values); if (icon_pixel.annotate_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); windows->icon.annotate_context=icon_pixel.annotate_context; /* Initialize image window. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->image); windows->image.name=(char *) malloc(MaxTextLength*sizeof(char)); windows->image.icon_name=(char *) malloc(MaxTextLength*sizeof(char)); if ((windows->image.name == NULL) || (windows->image.icon_name == NULL)) Error("Unable to create image window","Memory allocation failed"); if (resource_info->title != (char *) NULL) { /* User specified window name. */ (void) strcpy(windows->image.name,resource_info->title); (void) strcpy(windows->image.icon_name,resource_info->title); } else { register char *p; /* Window name is the base of the filename. */ p=images[0]->filename+strlen(images[0]->filename)-1; while ((p > images[0]->filename) && (*(p-1) != '/')) p--; (void) strcpy(windows->image.name,"ImageMagick: "); (void) strcat(windows->image.name,p); (void) strcpy(windows->image.icon_name,p); } windows->image.geometry=resource_info->image_geometry; windows->image.width=images[0]->columns; if (windows->image.width >= XDisplayWidth(display,visual_info->screen)) windows->image.width=XDisplayWidth(display,visual_info->screen); windows->image.height=images[0]->rows; if (windows->image.height >= XDisplayHeight(display,visual_info->screen)) windows->image.height=XDisplayHeight(display,visual_info->screen); windows->image.attributes.event_mask=ButtonMotionMask | ButtonPressMask | ButtonReleaseMask | EnterWindowMask | ExposureMask | KeyPressMask | LeaveWindowMask | OwnerGrabButtonMask | StructureNotifyMask; XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->backdrop); if (resource_info->backdrop) { /* Initialize backdrop window. */ windows->backdrop.name="ImageMagick Background"; windows->backdrop.flags=USSize | USPosition; windows->backdrop.width=XDisplayWidth(display,visual_info->screen); windows->backdrop.height=XDisplayHeight(display,visual_info->screen); windows->backdrop.border_width=0; windows->backdrop.immutable=True; windows->backdrop.attributes.do_not_propagate_mask= ButtonPressMask | ButtonReleaseMask; windows->backdrop.attributes.override_redirect=True; class_hint->res_name="backdrop"; manager_hints->flags=IconWindowHint | InputHint | StateHint; manager_hints->icon_window=windows->icon.id; manager_hints->input=True; manager_hints->initial_state= resource_info->iconic ? IconicState : NormalState; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->backdrop); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (backdrop)\n", windows->backdrop.id); XSetTransientForHint(display,windows->backdrop.id,windows->backdrop.id); XMapWindow(display,windows->backdrop.id); /* Position image in the center the backdrop. */ windows->image.flags|=USPosition; windows->image.x=(XDisplayWidth(display,visual_info->screen) >> 1)- (windows->image.width >> 1); windows->image.y=(XDisplayHeight(display,visual_info->screen) >> 1)- (windows->image.height >> 1); windows->image.attributes.event_mask|=FocusChangeMask; } if (resource_info->name == (char *) NULL) class_hint->res_name=client_name; else class_hint->res_name=resource_info->name; manager_hints->flags=IconWindowHint | InputHint | StateHint; manager_hints->icon_window=windows->icon.id; manager_hints->input=True; manager_hints->initial_state= resource_info->iconic ? IconicState : NormalState; XMakeWindow(display,(resource_info->backdrop ? windows->backdrop.id : root_window),argv,argc,class_hint,manager_hints,windows->wm_delete_window, &windows->image); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (image)\n",windows->image.id); /* Initialize image X image structure. */ windows->image.x=0; windows->image.y=0; status=XMakeImage(display,resource_info,&windows->image,images[0], images[0]->columns,images[0]->rows); status|=XMakePixmap(display,resource_info,&windows->image); if (status == False) Error("Unable to create X image",(char *) NULL); if (resource_info->debug) { (void) fprintf(stderr,"Image: [%u] %s %ux%u ",images[0]->scene, images[0]->filename,images[0]->columns,images[0]->rows); if (images[0]->colors != 0) (void) fprintf(stderr,"%uc ",images[0]->colors); (void) fprintf(stderr,"%s\n",images[0]->magick); } /* Initialize popup window. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->popup); windows->popup.name=(char *) malloc(MaxTextLength*sizeof(char)); if (windows->popup.name == NULL) Error("Unable to create popup window","Memory allocation failed"); windows->popup.flags|=PPosition; windows->popup.attributes.backing_store=WhenMapped; windows->popup.attributes.save_under=True; windows->popup.attributes.event_mask=ButtonMotionMask | ButtonPressMask | ButtonReleaseMask | EnterWindowMask | ExposureMask | KeyPressMask | LeaveWindowMask | OwnerGrabButtonMask | StructureNotifyMask; class_hint->res_name="popup"; manager_hints->flags=InputHint | StateHint | WindowGroupHint; manager_hints->input=False; manager_hints->initial_state=NormalState; manager_hints->window_group=windows->image.id; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->popup); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (popup)\n",windows->popup.id); windows->popup.highlight_stipple=XCreateBitmapFromData(display, windows->popup.id,(char *) HighlightBitmap,8,8); windows->popup.shadow_stipple=XCreateBitmapFromData(display, windows->popup.id,(char *) ShadowBitmap,8,8); XSetTransientForHint(display,windows->popup.id,windows->image.id); /* Initialize info window. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->info); windows->info.name="ImageMagick Info"; windows->info.x=2; windows->info.y=2; windows->info.flags|=PPosition; windows->info.attributes.win_gravity=UnmapGravity; windows->info.attributes.event_mask=ButtonPressMask | OwnerGrabButtonMask | StructureNotifyMask; class_hint->res_name="info"; manager_hints->flags=InputHint | StateHint | WindowGroupHint; manager_hints->input=False; manager_hints->initial_state=NormalState; manager_hints->window_group=windows->image.id; XMakeWindow(display,windows->image.id,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->info); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (info)\n",windows->info.id); /* Initialize image pixmaps structure. */ windows->image.pixmaps=(Pixmap *) malloc(number_scenes*sizeof(Pixmap)); if (windows->image.pixmaps == (Pixmap *) NULL) Error("Unable to animate images","Memory allocation failed"); windows->image.pixmaps[0]=windows->image.pixmap; scene_info.pixels=(unsigned long *) NULL; for (scene=1; scene < number_scenes; scene++) { /* Create X image. */ windows->image.pixmap=(Pixmap) NULL; if (images[scene]->packed_pixels != (unsigned char *) NULL) { status=RunlengthDecodeImage(images[scene]); if (status == False) Error("Unable to unpack image",(char *) NULL); } if ((resource_info->map_type != (char *) NULL) || (visual_info->class == TrueColor) || (visual_info->class == DirectColor)) if (images[scene]->class == PseudoClass) { /* Get pixel info for this scene. */ XGetPixelInfo(display,visual_info,map_info,resource_info, images[scene],&scene_info); windows->image.pixel_info=(&scene_info); } status=XMakeImage(display,resource_info,&windows->image,images[scene], images[scene]->columns,images[scene]->rows); status|=XMakePixmap(display,resource_info,&windows->image); if (status == False) Error("Unable to create X image",(char *) NULL); if (resource_info->debug) { (void) fprintf(stderr,"Image: [%u] %s %ux%u ",images[scene]->scene, images[scene]->filename,images[scene]->columns,images[scene]->rows); if (images[scene]->colors != 0) (void) fprintf(stderr,"%uc ",images[scene]->colors); (void) fprintf(stderr,"%s\n",images[scene]->magick); } windows->image.pixmaps[scene]=windows->image.pixmap; /* Free image pixels. */ if (scene_info.pixels != (unsigned long *) NULL) (void) free((char *) scene_info.pixels); (void) free((char *) images[scene]->pixels); images[scene]->pixels=(RunlengthPacket *) NULL; } windows->image.pixel_info=(&pixel_info); XMapWindow(display,windows->image.id); /* Respond to events. */ scene=0; image=images[0]; state=ForwardAnimationState | PlayAnimationState | RepeatAnimationState; do { if (XEventsQueued(display,QueuedAfterFlush) == 0) if ((state & PlayAnimationState) || (state & StepAnimationState)) { if (windows->info.mapped) XWithdrawWindow(display,windows->info.id,windows->info.screen); if (resource_info->title == (char *) NULL) { register char *p; XTextProperty window_name; /* Window name is the base of the filename. */ p=images[scene]->filename+strlen(images[scene]->filename)-1; while ((p > images[scene]->filename) && (*(p-1) != '/')) p--; (void) strcpy(windows->image.name,"ImageMagick: "); (void) strcat(windows->image.name,p); status= XStringListToTextProperty(&windows->image.name,1,&window_name); if (status != 0) XSetWMName(display,windows->image.id,&window_name); } /* Copy X pixmap to image window. */ image=images[scene]; windows->image.pixmap=windows->image.pixmaps[scene]; XRefreshWindow(display,&windows->image,(XEvent *) NULL); XSync(display,False); if (state & StepAnimationState) state&=(~StepAnimationState); if (resource_info->delay != 0) XDelay(display,(unsigned long) resource_info->delay); if (state & ForwardAnimationState) { /* Forward animation: increment scene number. */ scene++; if (scene == number_scenes) if (state & AutoReverseAnimationState) { state&=(~ForwardAnimationState); scene--; } else { if (!(state & RepeatAnimationState)) state&=(~PlayAnimationState); scene=0; } } else { /* Reverse animation: decrement scene number. */ scene--; if (scene < 0) if (state & AutoReverseAnimationState) { state|=ForwardAnimationState; scene=0; } else { if (!(state & RepeatAnimationState)) state&=(~PlayAnimationState); scene=number_scenes-1; } } continue; } /* Handle a window event. */ XNextEvent(display,&event); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->image.id) switch (event.xbutton.button) { case Button1: { char command[MaxTextLength]; int command_number; static char *MenuSelections[]= { "Image Info", "Play", "Step", "Repeat", "Auto Reverse", "Slower", "Faster", "Forward", "Reverse", "Quit" }; static KeySym MenuCommand[]= { XK_i, XK_p, XK_s, XK_period, XK_a, XK_less, XK_greater, XK_f, XK_r, XK_q }; /* Select a command from the pop-up menu. */ command_number=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Commands",MenuSelections, sizeof(MenuSelections)/sizeof(char *),command); if (command_number >= 0) XMagickCommand(display,resource_info,windows, MenuCommand[command_number],&image,&state); break; } default: break; } break; } case ClientMessage: { /* If client window delete message, exit. */ if (event.xclient.message_type != windows->wm_protocols) break; if (*event.xclient.data.l != windows->wm_delete_window) break; XWithdrawWindow(display,event.xclient.window,visual_info->screen); if (event.xclient.window == windows->image.id) { state|=ExitState; break; } break; } case ConfigureNotify: { if (resource_info->debug) (void) fprintf(stderr,"Configure Notify: 0x%lx %dx%d+%d+%d\n", event.xconfigure.window,event.xconfigure.width, event.xconfigure.height,event.xconfigure.x,event.xconfigure.y); if (event.xconfigure.window == windows->image.id) { /* Image window has a new configuration. */ windows->image.width=event.xconfigure.width; windows->image.height=event.xconfigure.height; break; } if (event.xconfigure.window == windows->icon.id) { /* Icon window has a new configuration. */ windows->icon.width=event.xconfigure.width; windows->icon.height=event.xconfigure.height; break; } } case EnterNotify: { /* Selectively install colormap. */ if (map_info->colormap != XDefaultColormap(display,visual_info->screen)) if (event.xcrossing.mode != NotifyUngrab) XInductColormap(display,map_info->colormap); break; } case Expose: { if (resource_info->debug) (void) fprintf(stderr,"Expose: 0x%lx %dx%d+%d+%d\n", event.xexpose.window,event.xexpose.width,event.xexpose.height, event.xexpose.x,event.xexpose.y); /* Repaint windows that are now exposed. */ if (event.xexpose.window == windows->image.id) { windows->image.pixmap=windows->image.pixmaps[scene]; XRefreshWindow(display,&windows->image,&event); break; } break; } case FocusOut: { /* Set input focus for backdrop window. */ if (resource_info->debug) (void) fprintf(stderr,"FocusOut Notify: 0x%lx\n",event.xfocus.window); if (event.xfocus.window == windows->image.id) XSetInputFocus(display,windows->image.id,RevertToNone,CurrentTime); break; } case KeyPress: { static char command[MaxTextLength]; static int length; static KeySym key_symbol; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (resource_info->debug) (void) fprintf(stderr,"Key press: 0x%lx (%c)\n",key_symbol,*command); if (key_symbol == XK_Help) Usage(False); else if (!IsCursorKey(key_symbol)) XMagickCommand(display,resource_info,windows,key_symbol,&image, &state); break; } case LeaveNotify: { /* Selectively uninstall colormap. */ if (map_info->colormap != XDefaultColormap(display,visual_info->screen)) if (event.xcrossing.mode != NotifyUngrab) XUninductColormap(display,map_info->colormap); break; } case MapNotify: { if (resource_info->debug) (void) fprintf(stderr,"Map Notify: 0x%lx\n",event.xmap.window); if (event.xmap.window == windows->image.id) { if (windows->backdrop.id != (Window) NULL) { /* Install colormap and set input focus for backdrop window. */ XInstallColormap(display,map_info->colormap); XSetInputFocus(display,windows->image.id,RevertToNone, CurrentTime); break; } windows->image.mapped=True; break; } if (event.xmap.window == windows->info.id) { windows->info.mapped=True; break; } if (event.xmap.window == windows->icon.id) { /* Create an icon image. */ XMakeStandardColormap(display,icon_visual,&icon_resources,images[0], icon_map,&icon_pixel); (void) XMakeImage(display,&icon_resources,&windows->icon,images[0], windows->icon.width,windows->icon.height); (void) XMakePixmap(display,&icon_resources,&windows->icon); XSetWindowBackgroundPixmap(display,windows->icon.id, windows->icon.pixmap); XClearWindow(display,windows->icon.id); windows->icon.mapped=True; break; } break; } case MappingNotify: { XRefreshKeyboardMapping(&event.xmapping); break; } case ReparentNotify: { if (resource_info->debug) (void) fprintf(stderr,"Reparent Notify: 0x%lx=>0x%lx\n", event.xreparent.parent,event.xreparent.window); break; } case UnmapNotify: { if (resource_info->debug) (void) fprintf(stderr,"Unmap Notify: 0x%lx\n",event.xunmap.window); if (event.xunmap.window == windows->image.id) { windows->image.mapped=False; break; } if (event.xunmap.window == windows->info.id) { windows->info.mapped=False; break; } if (event.xunmap.window == windows->icon.id) { windows->icon.mapped=False; break; } break; } default: { if (resource_info->debug) (void) fprintf(stderr,"Event type: %d\n",event.type); break; } } } while (!(state & ExitState)); /* Free X resources. */ (void) free((char *) windows->popup.name); (void) free((char *) windows->image.name); (void) free((char *) windows->image.icon_name); if (resource_info->backdrop) XFreeCursor(display,windows->backdrop.cursor); if (windows->popup.highlight_stipple != (Pixmap) NULL) XFreePixmap(display,windows->popup.highlight_stipple); if (windows->popup.highlight_stipple != (Pixmap) NULL) XFreePixmap(display,windows->popup.shadow_stipple); XFreeGC(display,pixel_info.annotate_context); XFreeGC(display,pixel_info.highlight_context); XFreeFont(display,font_info); /* Destroy X windows. */ for (i=0; i < number_windows; i++) { if (magick_windows[i]->id != (Window) NULL) XDestroyWindow(display,magick_windows[i]->id); if (magick_windows[i]->ximage != (XImage *) NULL) XDestroyImage(magick_windows[i]->ximage); if (magick_windows[i]->pixmap != (Pixmap) NULL) XFreePixmap(display,magick_windows[i]->pixmap); XFreeCursor(display,magick_windows[i]->cursor); XFreeCursor(display,magick_windows[i]->busy_cursor); } for (scene=0; scene < number_scenes; scene++) { XFreePixmap(display,windows->image.pixmaps[scene]); DestroyImage(images[scene]); } (void) free((char *) windows->image.pixmaps); /* Free Standard Colormap. */ XFreeStandardColormap(display,icon_visual,icon_map,&icon_pixel); if (resource_info->map_type == (char *) NULL) XFreeStandardColormap(display,visual_info,map_info,&pixel_info); (void) free((void *) windows); XFree((void *) manager_hints); XFree((void *) class_hint); XFree((void *) icon_visual); XFree((void *) visual_info); XFree((void *) icon_map); XFree((void *) map_info); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a g i c k C o m m a n d % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMagickCommand makes a transform to the image or image window as % specified by a user menu button or keyboard command. % % The format of the XMagickCommand routine is: % % XMagickCommand(display,resource_info,windows,image,key_symbol,state); % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; XMagickCommand % may transform the image and return a new image pointer. % % o state: Specifies an unsigned int; XMagickCommand may return a % modified state. % % */ static void XMagickCommand(display,resource_info,windows,key_symbol,image,state) Display *display; XResourceInfo *resource_info; XWindows *windows; KeySym key_symbol; Image **image; unsigned int *state; { /* Process user command. */ if (windows->info.mapped) XWithdrawWindow(display,windows->info.id,windows->info.screen); switch (key_symbol) { case XK_KP_Space: break; case XK_Help: { Usage(False); break; } case XK_less: { resource_info->delay<<=1; if (resource_info->delay == 0) resource_info->delay=1; break; } case XK_greater: { resource_info->delay>>=1; break; } case XK_period: { *state|=RepeatAnimationState; *state&=(~AutoReverseAnimationState); *state|=PlayAnimationState; break; } case XK_a: { *state|=AutoReverseAnimationState; *state&=(~RepeatAnimationState); *state|=PlayAnimationState; break; } case XK_f: { *state=ForwardAnimationState; *state&=(~AutoReverseAnimationState); break; } case XK_i: { char *text, **textlist, title[MaxTextLength]; int length; /* Display information about the image in the Text View widget. */ length=11*MaxTextLength; if ((*image)->directory != (char *) NULL) length+=strlen((*image)->directory); if ((*image)->comments != (char *) NULL) length+=strlen((*image)->comments); text=(char *) malloc(length*sizeof(char)); if (text == (char *) NULL) { XNoticeWidget(display,windows,"Unable to display image info", "Memory allocation failed"); break; } (void) sprintf(title," Image Info: %s",(*image)->filename); (void) sprintf(text,"X\n visual: %s\n", XVisualClassName(windows->image.class)); (void) sprintf(text,"%s depth: %d\n",text,windows->image.depth); (void) sprintf(text,"%s geometry: %dx%d\n",text, windows->image.ximage->width,windows->image.ximage->height); if (windows->image.clip_geometry != (char *) NULL) (void) sprintf(text,"%s clip geometry: %s\n",text, windows->image.clip_geometry); (void) sprintf(text,"%sImage\n format: %s\n",text,(*image)->magick); if ((*image)->class == DirectClass) (void) strcat(text," class: DirectClass\n"); else (void) strcat(text," class: PseudoClass\n"); (void) sprintf(text,"%sImage geometry: %dx%d\n",text, (*image)->columns,(*image)->rows); if ((*image)->colors != 0) (void) sprintf(text,"%s colors: %u\n",text,(*image)->colors); if ((*image)->signature != (char *) NULL) (void) sprintf(text,"%s signature: %s\n",text,(*image)->signature); if ((*image)->scene != 0) (void) sprintf(text,"%s scene: %u\n",text,(*image)->scene); if ((*image)->montage != (char *) NULL) (void) sprintf(text,"%s montage: %s\n",text,(*image)->montage); if ((*image)->directory != (char *) NULL) (void) sprintf(text,"%s directory:\n\n%s\n",text,(*image)->directory); if ((*image)->label != (char *) NULL) (void) sprintf(text,"%s label: %s\n",text,(*image)->label); if ((*image)->comments != (char *) NULL) (void) sprintf(text,"%s comments:\n\n%s",text,(*image)->comments); textlist=StringToList(text); if (textlist != (char **) NULL) { register int i; XTextViewWidget(display,windows,title,textlist); for (i=0; textlist[i] != (char *) NULL; i++) (void) free((char *) textlist[i]); (void) free((char *) textlist); } (void) free((char *) text); break; } case XK_p: { *state|=PlayAnimationState; *state&=(~AutoReverseAnimationState); break; } case XK_s: case XK_Return: case XK_KP_Enter: { *state|=StepAnimationState; *state&=(~PlayAnimationState); break; } case XK_q: { /* Exit program */ *state|=ExitState; /* exit program */ break; } case XK_r: case XK_BackSpace: { *state&=(~ForwardAnimationState); *state&=(~AutoReverseAnimationState); break; } default: { if (!IsModifierKey(key_symbol)) XBell(display,0); break; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char **argv; { char *clip_geometry, *density, *gamma, *option, *resource_value, *server_name; Display *display; Image **images; int degrees, i, x; unsigned int first_scene, image_number, interlace, last_scene, maximum_images, reflect, scene, verbose; XResourceInfo resource_info; XrmDatabase resource_database, server_database; /* Display usage profile if there are no command line arguments. */ client_name=(*argv); if (argc < 2) Usage(True); /* Set defaults. */ display=(Display *) NULL; first_scene=0; last_scene=0; server_name=(char *) NULL; maximum_images=MaxTextLength; images=(Image **) malloc(maximum_images*sizeof(Image *)); if (images == (Image **) NULL) Error("Unable to animate images","Memory allocation failed"); /* Check for server name specified on the command line. */ for (i=1; i < argc; i++) { /* Check command line for server name. */ option=argv[i]; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) if (strncmp("display",option+1,3) == 0) { /* User specified server name. */ if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; break; } } } /* Open X server connection. */ display=XOpenDisplay(server_name); if (display == (Display *) NULL) Error("Unable to connect to X server",XDisplayName(server_name)); /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Initialize resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); /* Get user defaults from X resource database. */ XGetResourceInfo(resource_database,client_name,&resource_info); clip_geometry=XGetResourceClass(resource_database,client_name, "clipGeometry",(char *) NULL); resource_value=XGetResourceClass(resource_database,client_name,"delay","30"); resource_info.delay=atoi(resource_value); density=XGetResourceClass(resource_database,client_name,"density", (char *) NULL); gamma=XGetResourceClass(resource_database,client_name,"gamma",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"interlace","none"); interlace=UndefinedInterlace; if (Latin1Compare("none",resource_value) == 0) interlace=NoneInterlace; if (Latin1Compare("line",resource_value) == 0) interlace=LineInterlace; if (Latin1Compare("plane",resource_value) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Warning("Unrecognized interlace type",resource_value); resource_value= XGetResourceClass(resource_database,client_name,"reflect","False"); reflect=IsTrue(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"rotate","0"); degrees=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"verbose","False"); verbose=IsTrue(resource_value); /* Parse command line. */ image_number=0; for (i=1; i < argc; i++) { option=argv[i]; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) switch (*(option+1)) { case 'b': { if (strncmp("backdrop",option+1,5) == 0) { resource_info.backdrop=(*option == '-'); break; } if (strncmp("background",option+1,5) == 0) { resource_info.background_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -background",(char *) NULL); resource_info.background_color=argv[i]; } break; } if (strncmp("bordercolor",option+1,7) == 0) { resource_info.border_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -bordercolor",(char *) NULL); resource_info.border_color=argv[i]; } break; } if (strncmp("borderwidth",option+1,7) == 0) { resource_info.border_width=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing width on -borderwidth",(char *) NULL); resource_info.border_width=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 'c': { if (strncmp("clip",option+1,2) == 0) { clip_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -clip",(char *) NULL); clip_geometry=argv[i]; } break; } if (strncmp("colormap",option+1,6) == 0) { resource_info.colormap=PrivateColormap; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colormap",(char *) NULL); option=argv[i]; resource_info.colormap=UndefinedColormap; if (Latin1Compare("private",option) == 0) resource_info.colormap=PrivateColormap; if (Latin1Compare("shared",option) == 0) resource_info.colormap=SharedColormap; if (resource_info.colormap == UndefinedColormap) Error("Invalid colormap type on -colormap",option); } break; } if (strncmp("colors",option+1,7) == 0) { resource_info.number_colors=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing colors on -colors",(char *) NULL); resource_info.number_colors=atoi(argv[i]); } break; } if (strncmp("colorspace",option+1,7) == 0) { resource_info.colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; resource_info.colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) { resource_info.colorspace=GRAYColorspace; resource_info.number_colors=256; resource_info.tree_depth=8; } if (Latin1Compare("ohta",option) == 0) resource_info.colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) resource_info.colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) resource_info.colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) resource_info.colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) resource_info.colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) resource_info.colorspace=YUVColorspace; if (resource_info.colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("debug",option+1,3) == 0) { resource_info.debug=(*option == '-'); break; } if (strncmp("delay",option+1,3) == 0) { resource_info.delay=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing seconds on -delay",(char *) NULL); resource_info.delay=atoi(argv[i]); } break; } if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("display",option+1,3) == 0) { server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } break; } if (strncmp("dither",option+1,3) == 0) { resource_info.dither=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'f': { if (strncmp("font",option+1,3) == 0) { resource_info.font=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing font name on -font",(char *) NULL); resource_info.font=argv[i]; } break; } if (strncmp("foreground",option+1,3) == 0) { resource_info.foreground_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing foreground on -foreground",(char *) NULL); resource_info.foreground_color=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'g': { if (strncmp("gamma",option+1,2) == 0) { gamma=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing value on -gamma",(char *) NULL); gamma=argv[i]; } break; } if (strncmp("geometry",option+1,2) == 0) { resource_info.image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); resource_info.image_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'h': { Usage(True); break; } case 'i': { if (strncmp("iconGeometry",option+1,5) == 0) { resource_info.icon_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -iconGeometry",(char *) NULL); resource_info.icon_geometry=argv[i]; } break; } if (strncmp("iconic",option+1,5) == 0) { resource_info.iconic=(*option == '-'); break; } if (strncmp("interlace",option+1,3) == 0) { if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } Error("Unrecognized option",option); break; } case 'm': { if (strncmp("map",option+1,3) == 0) { resource_info.map_type=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing map type on -map",(char *) NULL); resource_info.map_type=argv[i]; } break; } if (strncmp("mattecolor",option+1,6) == 0) { resource_info.matte_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -mattecolor",(char *) NULL); resource_info.matte_color=argv[i]; } break; } if (strncmp("monochrome",option+1,2) == 0) { resource_info.monochrome=(*option == '-'); if (resource_info.monochrome) { resource_info.number_colors=2; resource_info.tree_depth=8; resource_info.colorspace=GRAYColorspace; } break; } Error("Unrecognized option",option); break; } case 'n': { resource_info.name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing name on -name",(char *) NULL); resource_info.name=argv[i]; } break; } case 'r': { if (strncmp("reflect",option+1,2) == 0) { reflect=(*option == '-'); break; } if (strncmp("rotate",option+1,3) == 0) { degrees=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing degrees on -rotate",(char *) NULL); degrees=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 's': { if (strncmp("scene",option+1,3) == 0) { first_scene=0; last_scene=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing scene number on -scene",(char *) NULL); first_scene=atoi(argv[i]); last_scene=first_scene; (void) sscanf(argv[i],"%u-%u",&first_scene,&last_scene); } break; } Error("Unrecognized option",option); break; } case 't': { if (strncmp("title",option+1,2) == 0) { resource_info.title=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing title on -title",(char *) NULL); resource_info.title=argv[i]; } break; } if (strncmp("treedepth",option+1,2) == 0) { resource_info.tree_depth=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing depth on -treedepth",(char *) NULL); resource_info.tree_depth=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 'v': { if (strncmp("verbose",option+1,2) == 0) { verbose=(*option == '-'); break; } if (strncmp("visual",option+1,2) == 0) { resource_info.visual_type=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing visual class on -visual",(char *) NULL); resource_info.visual_type=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'w': { if (strncmp("window",option+1,2) == 0) { resource_info.window_id=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing id, name, or 'root' on -window", (char *) NULL); resource_info.window_id=argv[i]; } break; } Error("Unrecognized option",option); break; } default: { Error("Unrecognized option",option); break; } } else for (scene=first_scene; scene <= last_scene ; scene++) { double normalized_maximum_error, normalized_mean_error; Image *image, info_image, *next_image; ImageInfo image_info; time_t start_time; unsigned int mean_error_per_pixel; unsigned long total_colors; /* Option is a file name: begin by reading image from specified file. */ start_time=time((time_t *) NULL); GetImageInfo(argv[i],&image_info); if (first_scene != last_scene) { char filename[MaxTextLength]; /* Form filename for multi-part images. */ (void) sprintf(filename,image_info.filename,scene); if (strcmp(filename,image_info.filename) == 0) (void) sprintf(filename,"%s.%u",image_info.filename,scene); (void) strcpy(image_info.filename,filename); } image_info.server_name=resource_info.server_name; image_info.font=resource_info.font; image_info.geometry=resource_info.image_geometry; image_info.density=density; image_info.interlace=interlace; image_info.monochrome=resource_info.monochrome; image_info.verbose=verbose; image=ReadImage(&image_info); if (image == (Image *) NULL) if (*option == '-') break; else continue; do { info_image=(*image); if (image->scene == 0) image->scene=image_number; total_colors=0; /* Transform image as defined by the clip, image and scale geometries. */ TransformImage(&image,clip_geometry,resource_info.image_geometry); if (reflect) { Image *reflected_image; /* Reverse image scanlines. */ reflected_image=ReflectImage(image); if (reflected_image != (Image *) NULL) { DestroyImage(image); image=reflected_image; } } if ((degrees % 360) != 0) { Image *rotated_image; /* Rotate image. */ rotated_image=RotateImage(image,(double) degrees,False); if (rotated_image != (Image *) NULL) { DestroyImage(image); image=rotated_image; } } if (gamma != (char *) NULL) GammaImage(image,gamma); if (resource_info.number_colors != 0) { /* Reduce the number of colors in the image. */ if ((image->class == DirectClass) || (image->colors > resource_info.number_colors) || (resource_info.colorspace == GRAYColorspace)) QuantizeImage(image,resource_info.number_colors, resource_info.tree_depth,resource_info.dither, resource_info.colorspace,True); if (verbose) { /* Measure quantization error. */ QuantizationError(image,&mean_error_per_pixel, &normalized_mean_error,&normalized_maximum_error); total_colors=NumberColors(image,(FILE *) NULL); } SyncImage(image); } if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s",image->scene,info_image.filename); (void) fprintf(stderr," %ux%u",info_image.columns, info_image.rows); if ((info_image.columns != image->columns) || (info_image.rows != image->rows)) (void) fprintf(stderr,"=>%ux%u",image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, image->colors); (void) fprintf(stderr," %u/%.6f/%.6fe",mean_error_per_pixel, normalized_mean_error,normalized_maximum_error); } (void) fprintf(stderr," %s %lds\n",image->magick, time((time_t *) NULL)-start_time+1); } /* Pack image data to conserve memory (memory <=> speed). */ image->matte=False; (void) RunlengthEncodeImage(image); (void) free((char *) image->pixels); image->pixels=(RunlengthPacket *) NULL; if (image_number == maximum_images) { /* Increase size of images array. */ maximum_images<<=1; images=(Image **) realloc((char *) images,maximum_images*sizeof(Image *)); if (images == (Image **) NULL) Error("Unable to animate images","Memory allocation failed"); } images[image_number++]=image; next_image=image->next; if (next_image != (Image *) NULL) image=next_image; } while (next_image != (Image *) NULL); } } if (image_number == 0) Error("Missing an image file name",(char *) NULL); if (resource_info.window_id != (char *) NULL) XAnimateBackgroundImage(display,&resource_info,images,image_number); else XAnimateImage(display,&resource_info,argv,argc,images,image_number); (void) free((char *) images); XCloseDisplay(display); return(False); } XFreeFont(display,font_info); /* Destroy X windows. */ for (i=0; i < number_windows; i++) { if (magick_windows[i]->id != (Window)./ImageMagick/xtp/ 755 24 24 0 5452513223 7103 ./ImageMagick/xtp/regular.c 644 24 24 107466 5440017622 11052 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % RRRR EEEEE GGGG U U L AAA RRRR % % R R E G U U L A A R R % % RRRR EEE G GG U U L AAAAA RRRR % % R R E G G U U L A A R R % % R R EEEEE GGGG UUU LLLLL A A R R % % % % % % Regular Expression Interpreter. % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1993 E. I. Dupont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. Dupont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. Dupont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. Dupont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. Dupont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortious action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % CompileRegularExpression returns NULL for a failure, where failures are % syntax errors, exceeding implementation limits, or applying `+' or `*' % to a possibly-null operand. % % This is essentially the same routine written and copywrited by Henry % Spencer, University of Toronto. I made minor programming changes but % major variable name changes to improve readability. % % A regular expression is zero or more branches, separated by `|'. It % matches anything that matches one of the branches. % % A branch is zero or more pieces, concatenated. It matches a match for % the first, followed by a match for the second, etc. % % A piece is an atom possibly followed by `*', `+', or `?'. An atom % followed by `*' matches a sequence of 0 or more matches of the atom. An % atom followed by `+' matches a sequence of 1 or more matches of the % atom. An atom followed by `?' matches a match of the atom, or the null % pattern. % % An atom is a regular expression in parentheses (matching a match for % the regular expression), a range (see below), `.' (matching any single % character), `^' (matching the null pattern at the beginning of the input % pattern), `$' (matching the null pattern at the end of the input pattern), % a `\' followed by a single character (matching that character), or a % single character with no other significance (matching that character). % % A range is a sequence of characters enclosed in `[]'. It normally % matches any single character from the sequence. If the sequence begins % with `^', it matches any single character not from the rest of the % sequence. If two characters in the sequence are separated by `-', this % is shorthand for the full list of ASCII characters between them (e.g. % `[0-9]' matches any decimal digit). To include a literal `]' in the % sequence, make it the first character (following a possible `^'). To % include a literal `-', make it the first or last character. % % If a regular expression could match two different parts of the input % pattern, it will match the one which begins earliest. If both begin in % the same place but match different lengths, or match the same length % in different ways, life gets messier, as follows. % % In general, the possibilities in a list of branches are considered in % left-to-right order, the possibilities for `*', `+', and `?' are % considered longest-first, nested constructs are considered from the % outermost in, and concatenated constructs are considered % leftmost-first. The match that will be chosen is the one that uses the % earliest possibility in the first choice that has to be made. If there % is more than one choice, the next will be made in the same manner % (earliest possibility) subject to the decision on the first choice. % And so forth. % % For example, `(ab|a)b*c' could match `abc' in one of two ways. The % first choice is between `ab' and `a'; since `ab' is earlier, and does % lead to a successful overall match, it is chosen. Since the `b' is % already spoken for, the `b*' must match its last possibility-the empty % pattern-since it must respect the earlier choice. % % In the particular case where no `|'s are present and there is only one % `*', `+', or `?', the net effect is that the longest possible match % will be chosen. So `ab*', presented with `xabbbby', will match `abbbb'. % Note that if `ab*' is tried against `xabyabbbz', it will match `ab' % just after `x', due to the begins-earliest rule. (In effect, the deci- % sion on where to start the match is the first choice to be made, hence % subsequent choices must respect it even if this leads them to % less-preferred alternatives.) % % */ #include "xtp.h" #include "regular.h" /* Variable declarations. */ char *code, **subpattern_end, *p, start_code, *start_pattern, **subpattern; static char *token; static int number_parenthesis; static long code_size; /* Forward declarations. */ static char *NextToken _Declare((register char *)), *Node _Declare((int)), *Piece _Declare((int *)), *Regular _Declare((int,int *)); static int Repeat _Declare((char *)); static void EmitCode _Declare((int)), Tail _Declare((char *,char *)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % A t o m % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static char *Atom(flagp) int *flagp; { int flags; register char *status; *flagp=WorstCase; switch(*token++) { case '^': { status=Node(MatchBeginningOfLine); break; } case '$': { status=Node(MatchEndOfProgramOfLine); break; } case '.': { status=Node(MatchAnyCharacter); *flagp|=NonNull | Simple; break; } case '[': { register int class, class_end; if (*token != '^') status=Node(MatchAnyCharacterOf); else { /* Complement of range. */ status=Node(MatchAnyCharacterBut); token++; } if ((*token == ']') || (*token == '-')) EmitCode(*token++); while ((*token != '\0') && (*token != ']')) { if (*token != '-') EmitCode(*token++); else { token++; if ((*token == ']') || (*token == '\0')) EmitCode('-'); else { class=((int)*(unsigned char *)(token-2))+1; class_end=((int)*(unsigned char *)(token)); if (class > class_end+1) Fail("invalid [] range"); for(; class <= class_end; class++) EmitCode((char) class); token++; } } } EmitCode('\0'); if (*token != ']') Fail("unmatched []"); token++; *flagp|=NonNull | Simple; break; } case '(': { status=Regular(1,&flags); if (status == NULL) return(NULL); *flagp|=flags & (NonNull | SpecialStart); break; } case '\0': case '|': case ')': { Fail("internal urp"); break; } case '?': case '+': case '*': { Fail("?+* follows nothing"); break; } case '\\': { if (*token == '\0') Fail("trailing \\"); status=Node(MatchExactly); EmitCode(*token++); EmitCode('\0'); *flagp|=NonNull | Simple; break; } default: { register char ender; register int length; token--; length=strcspn(token,Meta); if (length <= 0) Fail("internal disaster"); ender=(*(token+length)); if (length > 1 && MultipleMatches(ender)) length--; *flagp|=NonNull; if (length == 1) *flagp|=Simple; status=Node(MatchExactly); while (length > 0) { EmitCode(*token++); length--; } EmitCode('\0'); break; } } return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % B r a n c h % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Branch Implements the | operator. % % */ static char *Branch(flagp) int *flagp; { int flags; register char *chain, *latest, *status; *flagp=WorstCase; status=Node(MatchThisOrNext); chain=NULL; while ((*token != '\0') && (*token != '|') && (*token != ')')) { latest=Piece(&flags); if (latest == NULL) return(NULL); *flagp|=flags & NonNull; if (chain == NULL) *flagp|=flags & SpecialStart; else Tail(chain,latest); chain=latest; } if (chain == NULL) (void) Node(MatchEmptyString); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % E m i t C o d e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static void EmitCode(opcode) int opcode; { if (code != &start_code) *code++=(char) opcode; else code_size++; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n s e r t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Insert inserts an operator in front of an already-emitted operand. % */ static void Insert(opcode,operand) char opcode, *operand; { register char *p, *place, *q; if (code == &start_code) { code_size+=3; return; } p=code; code+=3; q=code; while (p > operand) *--q=(*--p); place=operand; *place++=opcode; *place++='\0'; *place++='\0'; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a t c h % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static int Match(regular_expression) char *regular_expression; { char *next_token; register char *scan; scan=regular_expression; while (scan != NULL) { next_token=NextToken(scan); switch(OpCode(scan)) { case MatchBeginningOfLine: { if (p != start_pattern) return(0); break; } case MatchEndOfProgramOfLine: { if (*p != '\0') return(0); break; } case MatchAnyCharacter: { if (*p == '\0') return(0); p++; break; } case MatchExactly: { register char *operand; register int length; operand=Operand(scan); /* Inline the first character for speed. */ if (*operand != *p) return(0); length=strlen(operand); if ((length > 1) && (strncmp(operand,p,length) != 0)) return(0); p+=length; break; } case MatchAnyCharacterOf: { if ((*p == '\0' || strchr(Operand(scan),*p) == NULL)) return(0); p++; break; } case MatchAnyCharacterBut: { if ((*p == '\0') || (strchr(Operand(scan),*p) != NULL)) return(0); p++; break; } case MatchEmptyString: break; case Back: break; case Open+1: case Open+2: case Open+3: case Open+4: case Open+5: case Open+6: case Open+7: case Open+8: case Open+9: { register char *save; register int no; no=OpCode(scan)-Open; save=p; if (!Match(next_token)) return(0); else { /* Don't set subpattern if some later invocation of the same parentheses already has. */ if (subpattern[no] == NULL) subpattern[no]=save; return(1); } break; } case Close+1: case Close+2: case Close+3: case Close+4: case Close+5: case Close+6: case Close+7: case Close+8: case Close+9: { register char *save; register int no; no=OpCode(scan)-Close; save=p; if (!Match(next_token)) return(0); else { /* Don't set subpattern_end if some later invocation of the same parentheses already has. */ if (subpattern_end[no] == NULL) subpattern_end[no]=save; return(1); } break; } case MatchThisOrNext: { register char *save; if (OpCode(next_token) != MatchThisOrNext) next_token=Operand(scan); else { do { save=p; if (Match(Operand(scan))) return(1); p=save; scan=NextToken(scan); } while ((scan != NULL) && (OpCode(scan) == MatchThisOrNext)); return(0); } break; } case MatchZeroOrMore: case MatchOneOrMore: { register char next_tokench, *save; register int min, no; /* Lookahead to avoid useless match attempts when we know what character comes next_token. */ next_tokench='\0'; if (OpCode(next_token) == MatchExactly) next_tokench=(*Operand(next_token)); min=(OpCode(scan) == MatchZeroOrMore) ? 0 : 1; save=p; no=Repeat(Operand(scan)); while (no >= min) { /* If it could work, try it. */ if ((next_tokench == '\0') || (*p == next_tokench)) if (Match(next_token)) return(1); /* Couldn't or didn't -- back up. */ no--; p=save+no; } return(0); break; } case EndOfProgram: return(1); break; default: (void) fprintf(stderr,"Regular(3): %s","memory corruption"); return(0); break; } scan=next_token; } (void) fprintf(stderr,"Regular(3): %s","corrupted pointers"); return(0); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % N e x t T o k e n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static char *NextToken(p) register char *p; { register int offset; if (p == &start_code) return(NULL); offset=Next(p); if (offset == 0) return(NULL); if (OpCode(p) == Back) return(p-offset); else return(p+offset); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % N o d e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static char *Node(opcode) int opcode; { register char *ptr, *status; status=code; if (status == &start_code) { code_size+=3; return(status); } ptr=status; *ptr++=(char) opcode; *ptr++='\0'; *ptr++='\0'; code=ptr; return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % O p T a i l % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static void OpTail(p,value) char *p; char *value; { /* "Operandless" and "op != MatchThisOrNext" are synonymous in practice. */ if ((p == NULL) || (p == &start_code) || (OpCode(p) != MatchThisOrNext)) return; Tail(Operand(p),value); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % P i e c e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static char *Piece(flagp) int *flagp; { int flags; register char *next_token, op, *status; status=Atom(&flags); if (status == NULL) return(NULL); op=(*token); if (!MultipleMatches(op)) { *flagp=flags; return(status); } if (!(flags & NonNull) && op != '?') Fail("*+ operand could be empty"); *flagp=(op != '+') ? (WorstCase | SpecialStart) : (WorstCase | NonNull); if (op == '*' && (flags & Simple)) Insert(MatchZeroOrMore,status); else if (op == '*') { /* Emit x* as (x&|), where & means "self". */ Insert(MatchThisOrNext,status); OpTail(status,Node(Back)); OpTail(status,status); Tail(status,Node(MatchThisOrNext)); Tail(status,Node(MatchEmptyString)); } else if ((op == '+') && (flags & Simple)) Insert(MatchOneOrMore,status); else if (op == '+') { /* Emit x+ as x (&|), where & means "self". */ next_token=Node(MatchThisOrNext); Tail(status,next_token); Tail(Node(Back),status); Tail(next_token,Node(MatchThisOrNext)); Tail(status,Node(MatchEmptyString)); } else if (op == '?') { /* Emit x? as (x|) */ Insert(MatchThisOrNext,status); Tail(status,Node(MatchThisOrNext)); next_token=Node(MatchEmptyString); Tail(status,next_token); OpTail(status,next_token); } token++; if (MultipleMatches(*token)) Fail("nested *?+"); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e g u l a r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static char *Regular(parenthesized,flagp) int parenthesized; int *flagp; { int flags; register char *br, *ender, *status; register int count; count=0; *flagp=NonNull; if (!parenthesized) status=NULL; else { /* Make an Open node. */ if (number_parenthesis >= NumberSubExpressions) Fail("too many ()"); count=number_parenthesis; number_parenthesis++; status=Node(Open+count); } /* Pick up the branches, linking them together. */ br=Branch(&flags); if (br == NULL) return(NULL); if (status != NULL) Tail(status,br); else status=br; if (!(flags & NonNull)) *flagp&=(~NonNull); *flagp|=flags & SpecialStart; while (*token == '|') { token++; br=Branch(&flags); if (br == NULL) return(NULL); Tail(status,br); if (!(flags & NonNull)) *flagp &= ~NonNull; *flagp|=flags & SpecialStart; } /* Make a closing node and hook it on the end. */ ender=Node((parenthesized) ? Close+count : EndOfProgram); Tail(status,ender); /* Hook the tails of the branches to the closing node. */ for(br=status; br != NULL; br=NextToken(br)) OpTail(br,ender); /* Check for proper termination. */ if (parenthesized && (*token++ != ')')) Fail("unmatched()") else if (!parenthesized && (*token != '\0')) { if (*token == ')') Fail("unmatched()") else Fail("junk on end") } return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e p e a t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static int Repeat(p) char *p; { register char *operand, *scan; register int count=0; scan=p; operand=Operand(p); switch(OpCode(p)) { case MatchAnyCharacter: { count=strlen(scan); scan+=count; break; } case MatchExactly: { while (*operand == *scan) { count++; scan++; } break; } case MatchAnyCharacterOf: { while ((*scan != '\0') && (strchr(operand,*scan) != NULL)) { count++; scan++; } break; } case MatchAnyCharacterBut: { while ((*scan != '\0') && (strchr(operand,*scan) == NULL)) { count++; scan++; } break; } default: { (void) fprintf(stderr,"Regular(3): %s","internal foulup"); count=0; break; } } p=scan; return(count); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % T a i l % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static void Tail(p,val) char *p; char *val; { register char *scan, *temp; register int offset; if (p == &start_code) return; /* Find last node. */ scan=p; for(;;) { temp=NextToken(scan); if (temp == NULL) break; scan=temp; } if (OpCode(scan) == Back) offset=scan-val; else offset=val-scan; *(scan+1)=(offset >> 8) & 0377; *(scan+2)=offset & 0377; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % T r y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ static int Try(regular_expression,pattern) RegularExpression *regular_expression; char *pattern; { register char **ep, **sp; register int i; p=pattern; subpattern=regular_expression->subpattern; subpattern_end=regular_expression->subpattern_end; sp=regular_expression->subpattern; ep=regular_expression->subpattern_end; for(i=NumberSubExpressions; i > 0; i--) { *sp++=NULL; *ep++=NULL; } if (!Match(regular_expression->program+1)) return(0); else { regular_expression->subpattern[0]=pattern; regular_expression->subpattern_end[0]=p; return(1); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o m p i l e R e g u l a r E x p r e s s i o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CompileRegularExpression compiles a regular expression into a % structure of type RegularExpression and returns a pointer to it. The space % is allocated using function malloc and may be released by function free. % % */ RegularExpression *CompileRegularExpression(regular_expression) char *regular_expression; { int flags; register char *longest, *scan; register RegularExpression *r; register int length; if (regular_expression == NULL) Fail("NULL argument"); /* First pass: determine size. */ token=regular_expression; number_parenthesis=1; code_size=0L; code=(&start_code); EmitCode(Magick); if (Regular(0,&flags) == NULL) return(NULL); /* Allocate space. */ r=(RegularExpression *) malloc((code_size+sizeof(RegularExpression))); if (r == (RegularExpression *) NULL) Fail("out of space"); /* Second pass: emit code. */ token=regular_expression; number_parenthesis=1; code=r->program; EmitCode(Magick); if (Regular(0,&flags) == NULL) return(NULL); /* Dig out information for optimizations. */ r->start_character='\0'; r->anchor=0; r->priority_pattern=NULL; r->pattern_length=0; scan=r->program+1; if (OpCode(NextToken(scan)) == EndOfProgram) { scan=Operand(scan); if (OpCode(scan) == MatchExactly) r->start_character=(*Operand(scan)); else if (OpCode(scan) == MatchBeginningOfLine) r->anchor++; /* If there's something expensive in the regular expression, find the longest literal pattern that must appear and make it the priority_pattern. */ if (flags & SpecialStart) { longest=NULL; length=0; for(; scan != NULL; scan=NextToken(scan)) if ((OpCode(scan) == MatchExactly) && ((int) strlen(Operand(scan)) >= length)) { longest=Operand(scan); length=strlen(Operand(scan)); } r->priority_pattern=longest; r->pattern_length=length; } } return(r); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % E x e c u t e R e g u l a r E x p r e s s i o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ExecuteRegularExpression matches a NULL-terminated pattern against % the compiled regular expression in regular-expression. It returns 1 for % success and 0 for failure. % % */ int ExecuteRegularExpression(regular_expression,pattern) register RegularExpression *regular_expression; register char *pattern; { register char *s; if ((regular_expression == (RegularExpression *) NULL) || (pattern == (char *) NULL)) { (void) fprintf(stderr,"Regular(3): %s","NULL parameter\n"); return(0); } /* Check validity of program. */ if (((int)*(unsigned char *)(regular_expression->program)) != Magick) { (void) fprintf(stderr,"Regular(3): %s","corrupted program"); return(0); } /* If there is a "must appear" pattern, look for it. */ if (regular_expression->priority_pattern != NULL) { s=pattern; while ((s=strchr(s,regular_expression->priority_pattern[0])) != NULL) { if (strncmp(s,regular_expression->priority_pattern, regular_expression->pattern_length) == 0) break; s++; } if (s == NULL) return(0); } /* Mark beginning of line for ^. */ start_pattern=pattern; /* Simplest case: anchored match need be tried only once. */ if (regular_expression->anchor) return(Try(regular_expression,pattern)); /* Messy cases: unanchored match. */ s=pattern; if (regular_expression->start_character != '\0') while ((s=strchr(s,regular_expression->start_character)) != NULL) { if (Try(regular_expression,s)) return(1); s++; } else do { if (Try(regular_expression,s)) return(1); } while (*s++ != '\0'); return(0); } e)->class == DirectClass) (void) strcat(text," class: DirectClass\n"); else (void) strcat(text," class: PseudoClass\n"); (void) sprintf(text,"%sImage geometry: %dx%d\n",tex./ImageMagick/xtp/xtp.man 644 24 24 14450 5440017625 10526 .ad l .nh .TH XTP 1 "10 October 1992" .SH NAME xtp - file transfer program .SH SYNOPSIS .B "xtp" [ \fI-options\fP ... ] \fI\fP [ \fI\fP ] .SH DESCRIPTION .PP .I Xtp is a utility for retrieving, listing, or printing files from a remote network site, or sending files to a remote network site. .I xtp performs most of the same functions as the \fBftp\fP program, but does not require any interactive commands. You simply specify the file transfer task on the command line and \fBxtp\fP performs the task automatically. .SH EXAMPLES .PP To retrieve file display.tar.Z from host wizard.dupont.com, use: .PP .B xtp -binary -retrieve display.tar.Z wizard.dupont.com .PP To retrieve all the files from directory \fIpublic/documents\fP from host wizard.dupont.com, use: .PP xtp -binary -retrieve documents/ wizard.dupont.com public .PP .SH OPTIONS .TP .B "-binary" retrieve files as binary. .TP .B "-exclude \fIexpression\fP" exclude files that match the \fIregular expression\fP. .TP .B "-directory \fIexpression\fP" list the names of files and their attributes that match the \fIregular expression\fP. .TP .B "-ident \fIpassword\fP" specifies password. .TP .B "-port \fInumber\fP" If no port number is specified, \fBxtp\fP attempts to contact a FTP server at the default port. Otherwise, the specfied port number is used. .TP .B "-print \fIexpression\fP" print files that match the \fIregular expression\fP. .TP .B "-prune" do not recursively search for files. .TP .B "-retrieve \fIexpression\fP" retrieve files that match the \fIregular expression\fP. Retrieved files are stored on your local host directory as the full name of the retrieved file. For example, if the retrieved file is named \fBdocuments/xtp.man\fP on the remote FTP server, it will appear in your home directory as \fBdocuments/xtp.man\fP. .TP .B "-send \fIexpression\fP" send files that match the \fIregular expression\fP. .TP .B "-timeout \fIseconds\fP" specifies the maximum seconds to complete your remote FTP server request. If this time expires, the program terminates. The program also terminates if one tenth of this value is exceeded while logging onto the remote FTP server. .TP .B "-user \fIname\fP" identify yourself to the remote FTP server. If \fB-user\fP is specified but not \fB-ident\fP, the password is obtained from you interactively. .TP .B "-verbose" show all responses from the remote server. .PP If neither \fB-print\fP, \fB-retrieve\fP, or \fB-send\fP are specified on the command line, a directory of files is listed for the remote network host. .PP \fBxtp\fP recursively descends the directory hierarchy from the home directory. Some remote hosts may have thousands of files causing a significant delay satisfying your request. This can be wasteful if the files you are interested in reside in a known directory. You can reduce the searching required by specifying \fI\fP on the command line. This limits the filename search to the specified directory and any of its subdirectories. Alternatively, \fB-prune\fP restricts the search to the home directory only. .PP If only the program name is specified on the command line, the program command syntax and options are listed. .SH REGULAR EXPRESSIONS A \fIregular expression\fP is zero or more branches, separated by \fB|\fP. It matches anything that matches one of the branches. .PP A branch is zero or more pieces, concatenated. It matches a match for the first, followed by a match for the second, etc. .PP A piece is an atom possibly followed by \fB*\fP, \fB+\fP, or \fB?\fP. An atom followed by \fB*\fP matches a sequence of 0 or more matches of the atom. An atom followed by \fB+\fP matches a sequence of 1 or more matches of the atom. An atom followed by \fB?\fP matches a match of the atom, or the null pattern. .PP An atom is a \fIregular expression\fP in parentheses (matching a match for the \fIregular expression\fP), a range (see below), \fB.\fP (matching any single character), \fB^\fP (matching the null pattern at the beginning of the input pattern), \fB$\fP (matching the null pattern at the end of the input pattern), a \fB\'\fP followed by a single character (matching that character), or a single character with no other significance (matching that character). .PP A range is a sequence of characters enclosed in \fB[]\fP. It normally matches any single character from the sequence. If the sequence begins with \fB^\fP, it matches any single character not from the rest of the sequence. If two characters in the sequence are separated by \fB-\fP, this is shorthand for the full list of ASCII characters between them (e.g. \fB[0-9]\fP matches any decimal digit). To include a literal \fB]\fP in the sequence, make it the first character (following a possible \fB^\fP). To include a literal \fB-\fP, make it the first or last character. .SH SEE ALSO .B ftp(1C) .SH COPYRIGHT Copyright 1993 E. I. Dupont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. Dupont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. Dupont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. Dupont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. Dupont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortious action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS Steve Singles, University of Delaware, for the initial implementation of this program. .PP Henry Spencer, University of Toronto, for the implementation of the \fIregular expression\fP interpreter and the text in \fBREGULAR EXPRESSIONS\fP. .SH AUTHOR John Cristy, E.I. DuPont De Nemours & Company Incorporated %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % ./ImageMagick/xtp/regular.h 644 24 24 2423 5440017624 11004 /* Definitions etc. for RegularExpression(3) routines. */ #define EndOfProgram 0 #define MatchBeginningOfLine 1 #define MatchEndOfProgramOfLine 2 #define MatchAnyCharacter 3 #define MatchAnyCharacterOf 4 #define MatchAnyCharacterBut 5 #define MatchThisOrNext 6 #define Back 7 #define MatchExactly 8 #define MatchEmptyString 9 #define MatchZeroOrMore 10 #define MatchOneOrMore 11 #define Open 20 #define Close 30 #define WorstCase 0 #define NonNull 1 #define Simple 2 #define SpecialStart 4 #define Fail(m) \ { \ (void) fprintf(stderr,"RegularExpression: %s\n",m); \ return(NULL); \ } #define Magick 0234 #define Meta "^$.[()|?+*\\" #define MultipleMatches(c) (((c) == '*') || ((c) == '+') || ((c) == '?')) #define Next(p) (((*((p)+1) & 0377) << 8 )+(*((p)+2) & 0377)) #define NumberSubExpressions 10 #define OpCode(p) (*(p)) #define Operand(p) ((p)+3) typedef struct _RegularExpression { char *subpattern[NumberSubExpressions], *subpattern_end[NumberSubExpressions], start_character, anchor, *priority_pattern; int pattern_length; char program[1]; } RegularExpression; extern RegularExpression *CompileRegularExpression _Declare((char *)); extern int ExecuteRegularExpression _Declare((RegularExpression *,char *)); ssword is obtained from you interactively. .TP .B "-verbose" show all responses from the remote server. .PP If neither \fB-print\fP, \fB-retrieve\fP, or \fB-send\fP are specified on the command line, a directory of files is listed for th./ImageMagick/xtp/xtp.h 644 24 24 1463 5440017624 10161 /* Include declarations */ #include #if __STDC__ || defined(sgi) || defined(_AIX) #include #else #ifndef vms #include #include #endif #endif #include #include #include /* Define declarations for the Display program. */ #if __STDC__ || defined(sgi) || defined(_AIX) #define _Declare(formal_parameters) formal_parameters #else #define const #define _Declare(formal_parameters) () #endif #define False 0 #define True 1 #define Warning(message,qualifier) \ { \ (void) fprintf(stderr,"%s: %s",client_name,message); \ if (qualifier != (char *) NULL) \ (void) fprintf(stderr," (%s)",qualifier); \ (void) fprintf(stderr,".\n"); \ } #ifndef lint static char Version[]="@(#)ImageMagick 2.1 92/10/10 cristy@dupont.com"; #endif xpressions 10 #define OpCode(p) (*(p)) #define Operand(p) ((p)+3) typedef struct _RegularExpression { char *subpattern[NumberSubExpressions], *subpattern_end[NumberSubExpressions], start_./ImageMagick/xtp/xtp.c 644 24 24 126537 5527066776 10250 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X X TTTTT PPPP % % X X T P P % % X T PPPP % % X X T P % % X X T P % % % % % % File transfer program. % % % % % % % % Software Design % % John Cristy % % October 1992 % % % % % % Copyright 1993 E. I. Dupont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above copyright notice appear in all copies and that % % both that copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. Dupont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. Dupont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. Dupont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. Dupont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortious action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Xtp is a utility for retrieving, listing, or printing files from a % remote network site. Xtp performs most of the same functions as the % FTP program, but does not require any interactive commands. You simply % specify the file transfer task on the command line and xtp performs the % transfer automatically. % % This program was adapted from a similiar program written by Steve Singles, % University of Delaware. % % Command syntax: % % Usage: xtp [-options ...] [ ] % % Where options include: % -account password supplemental password % -binary retrieve files as binary % -exclude expression exclude files that match the expression % -directory expression list file names that match the expression % -ident password specifies password % -port number port number of FTP server % -print expression print files that match the expression % -prune do not recursively search for files % -retrieve expression retrieve files that match the expression % -send expression send files that match the expression % -timeout seconds specifies maximum seconds of XTP session % -user name identify yourself to the remote FTP server % % */ /* Include declarations. */ #define _POSIX_SOURCE 1 #include "xtp.h" #include "regular.h" #include #include #include #include #include #include #include /* Variable declarations. */ static char *client_name, slave_tty[16]; static int master, status; static RegularExpression *directory_expression, *exclude_expression, *print_expression, *retrieve_expression; /* External declarations. */ extern char *GetHostInfo _Declare((char *)); /* Forward declarations. */ static char *Wait _Declare((void)); static void DirectoryRequest _Declare((char *, char *)), PrintRequest _Declare((char *,unsigned int)), RetrieveRequest _Declare((char *,unsigned int)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D i r e c t o r y R e q u e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function DirectoryRequest lists a file name and its attributes. % % The format of the DirectoryRequest routine is: % % DirectoryRequest(fileinfo,filename) % % A description of each parameter follows: % % o filename: Specifies a pointer to a character array that contains % information about the file. % % o filename: Specifies a pointer to a character array that contains % the name of the file. % */ static void DirectoryRequest(fileinfo,filename) char *fileinfo, *filename; { status=0; if (*fileinfo == '\0') (void) fprintf(stdout,"%s\n",filename); else (void) fprintf(stdout,"%s %s\n",fileinfo,filename); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % E r r o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Error displays an error message and then terminates the program. % % The format of the Error routine is: % % Error(message,qualifier) % % A description of each parameter follows: % % o message: Specifies the message to display before terminating the % program. % % o qualifier: Specifies any qualifier to the message. % % */ void Error(message,qualifier) char *message, *qualifier; { (void) fprintf(stderr,"%s: %s",client_name,message); if (qualifier != (char *) NULL) (void) fprintf(stderr," (%s)",qualifier); (void) fprintf(stderr,".\n"); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % E x e c u t e F t p % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ExecuteFtp executes the FTP program as a child process. % % The format of the ExecuteFtp routine is: % % ExecuteFtp(hostname,port) % % A description of each parameter follows: % % o hostname: Specifies a pointer to a character array that contains the % name of the host to establish a connection to a FTP server. % % o port: Specifies a port number. If the port number is NULL, xtp % attempts to contact a FTP server at the default port. % % % */ static void ExecuteFtp(hostname,port) char *hostname, *port; { int slave; struct sigaction action; struct termios attributes; /* Get slave tty line. */ action.sa_handler=SIG_IGN; (void) sigemptyset(&action.sa_mask); action.sa_flags=0; (void) sigaction(SIGTSTP,&action,(struct sigaction *) NULL); if (isatty(STDIN_FILENO)) (void) setsid(); slave=open(slave_tty,O_RDWR | O_NOCTTY); if (slave < 0) Error("Unable to open slave pseudo-terminal",slave_tty); /* Condition slave tty line. */ (void) tcgetattr(slave,&attributes); attributes.c_iflag&=(~(BRKINT | IGNPAR | PARMRK | INPCK | ISTRIP | INLCR | IGNCR | ICRNL | IXON)); attributes.c_iflag|=IGNBRK | IXOFF; attributes.c_oflag&=(~OPOST); attributes.c_lflag&= (~(ECHO | ECHOE | ECHOK | ECHONL | ICANON | ISIG | NOFLSH | TOSTOP)); attributes.c_cflag&=(~(CSIZE | CSTOPB | HUPCL | PARENB)); attributes.c_cflag|=CLOCAL | CREAD | CS8; (void) tcflush(slave,TCIFLUSH); (void) tcsetattr(slave,TCSANOW,&attributes); /* Execute FTP program as a child process. */ (void) close(master); (void) dup2(slave,STDIN_FILENO); (void) dup2(slave,STDOUT_FILENO); (void) dup2(slave,STDERR_FILENO); (void) close(slave); (void) execlp("ftp","ftp","-n","-i","-g","-v",hostname,port,(char *) 0); perror("ftp"); (void) kill(0,SIGTERM); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % G e t P a s s w o r d % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function GetPassword prompts the user for a password. The password is % not echoed on the terminal. % % The format of the GetPassword routine is: % % password=GetPassword(prompt) % % A description of each parameter follows: % % o password: Specifies a pointer to a character array that contains % accepted from the user. % % o prompt: Specifies a pointer to a character array that contains % a message to display to the user. % % */ static char *GetPassword(prompt) char *prompt; { static char password[2048]; struct termios attributes; (void) fprintf(stdout,"%s",prompt); (void) fflush(stdout); (void) tcgetattr(STDIN_FILENO,&attributes); attributes.c_lflag&=(~ECHO); (void) tcsetattr(STDIN_FILENO,TCSANOW,&attributes); (void) gets(password); attributes.c_lflag|=ECHO; (void) tcsetattr(STDIN_FILENO,TCSANOW,&attributes); (void) fprintf(stdout,"\n"); return(password); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % G e t P s e u d o T e r m i n a l % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function GetPseudoTerminal returns a master/slave pair of pseudo-terminals. % % The format of the GetPseudoTerminal routine is: % % GetPseudoTerminal() % % */ static void GetPseudoTerminal() { char master_tty[16]; register char *bank, *cp; struct stat info; for (bank="pqrs"; *bank; bank++) { (void) sprintf(master_tty,"/dev/pty%c0",*bank); if (stat(master_tty,&info) < 0) break; for (cp="0123456789abcdef"; *cp; cp++) { (void) sprintf((char *) master_tty,"/dev/pty%c%c",*bank,*cp); master=open(master_tty,O_RDWR); if (master >= 0) { /* Verify slave side is usable. */ (void) sprintf(slave_tty,"/dev/tty%c%c",*bank,*cp); if (access(slave_tty,R_OK | W_OK) == 0) { struct termios attributes; /* Condition master tty line. */ (void) tcgetattr(master,&attributes); attributes.c_lflag&=(~(ICANON | ECHO)); (void) tcflush(master,TCIFLUSH); (void) tcsetattr(master,TCSANOW,&attributes); return; } (void) close(master); } } } Error("All network ports in use",(char *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a k e D i r e c t o r y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MakeDirectory checks each component of a directory path and if it % does not exist, creates it. % % The format of the MakeDirectory routine is: % % MakeDirectory(directory) % % A description of each parameter follows: % % o directory: Specifies a pointer to a character array that contains % the name of the directory to create. % % */ static int MakeDirectory(directory) char *directory; { register char *p; struct stat info; /* Determine first component of the directory. */ p=strrchr(directory,'/'); if ((p == (char *) NULL) || (p == directory)) return(False); *p='\0'; if (lstat(directory,&info) < 0) { /* Path component does not exist; create it. */ if (MakeDirectory(directory) == 0) if (mkdir(directory,(mode_t) 0777) >= 0) { *p='/'; return(False); } } else if (S_ISDIR(info.st_mode)) { /* Path component already exists. */ *p='/'; return(False); } /* Path component is a file not a directory. */ *p='/'; return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % P r i n t R e q u e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function PrintRequest prints a file on the remote FTP server. % % The format of the PrintRequest routine is: % % PrintRequest(filename,verbose) % % A description of each parameter follows: % % o filename: Specifies a pointer to a character array that contains % the name of the file to print. % % o verbose: An unsigned integer. A value other than zero dhows all % responses from the remote server. % % */ static void PrintRequest(filename,verbose) char *filename; unsigned int verbose; { char command[2048], *response; /* get remote-file [ - | < |zcat > ]. */ (void) sprintf(command,"get %s",filename); if (strcmp(filename+strlen(filename)-2,".Z") == 0) (void) strcat(command," |zcat\n"); else (void) strcat(command," -\n"); (void) write(master,command,strlen(command)); (void) fprintf(stdout,"%s:\n",filename); while ((response=Wait())) if (status == 0) (void) fprintf(stdout,"%s\n",response); else if ((status == 5) || verbose) (void) fprintf(stderr,"%s\n",response); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % P r o c e s s R e q u e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ProcessRequest first records any file in the current directory % of the remote FTP server or any of its subdirectories. Next each filename % is either accepted or rejected based on a user specified regular % expresssion. If any files match the regular expression, its filename is % listed, it is printed, or it is retrieved as specified on the command line. % % The format of the ProcessRequest routine is: % % ProcessRequest(prune,verbose) % % A description of each parameter follows: % % o prune: Specifies whether to recusively search for files. % % o verbose: An unsigned integer. A value other than zero dhows all % responses from the remote server. % % */ static void ProcessRequest(prune,verbose) unsigned int prune, verbose; { typedef struct _DirectoryNode { char *info, *name; struct _DirectoryNode *next; } DirectoryNode; char command[2048], directory[2048], *info, *name, *response; DirectoryNode *next, *root; register char *p; register DirectoryNode **last, *node; RegularExpression *date_expression, *mode_expression; unsigned int unix_filesystem; /* Initialize function variables. */ root=(DirectoryNode *) NULL; last=(&root); *directory='\0'; response=(char *) NULL; unix_filesystem=False; if (!prune) { /* Obtain a time sorted recursive directory if available. */ (void) strcpy(command,"get ls-ltR.Z |zcat\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if ((status == 0) || (status == 5)) break; if (status == 5) { /* Obtain a recursive directory if available. */ while (Wait()); (void) strcpy(command,"get ls-lR.Z |zcat\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if ((status == 0) || (status == 5)) break; } if (status == 5) while (Wait()); else { (void) fprintf(stderr,"Using existing directory listing...\n"); unix_filesystem=True; } } if (prune || !unix_filesystem) { /* Determine if the FTP server has unix-style filenames. */ mode_expression=CompileRegularExpression("^.[rwx-][rwx-][rwx-]"); (void) strcpy(command,"dir\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if (!unix_filesystem) if (*response != '\0') unix_filesystem=ExecuteRegularExpression(mode_expression,response); (void) free((char *) mode_expression); /* Obtain recursive directory listing with the FTP directory command. */ if (prune) (void) strcpy(command,"dir\n"); else if (unix_filesystem) (void) strcpy(command,"ls -ltR\n"); else (void) strcpy(command,"ls [...]\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if ((status == 0) || (status == 5)) break; if (status == 5) { /* Directory command has limited functionality. */ while (Wait()); (void) strcpy(command,"dir\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if (status == 0) break; } } status=(-1); if (response == (char *) NULL) return; if (!unix_filesystem) do { /* Link non unix-style file into file list. */ if ((status > 0) || (*response == '\0')) continue; while (*response == ' ') response++; /* Extract file name & info. */ name=response; info=response; while ((*info != ' ') && *info) info++; *info='\0'; node=(DirectoryNode *) malloc(sizeof(DirectoryNode)); if (node == (DirectoryNode *) NULL) Error("Unable to allocate memory",(char *) NULL); node->name=(char *) malloc((strlen(name)+1)*sizeof(char)); node->info=(char *) malloc((strlen(info)+1)*sizeof(char)); if ((node->name == (char *) NULL) || (node->info == (char *) NULL)) Error("Unable to allocate memory",(char *) NULL); (void) strcpy(node->name,name); (void) strcpy(node->info,info); node->next=(DirectoryNode *) NULL; if (exclude_expression) if (ExecuteRegularExpression(exclude_expression,node->name)) { /* Free allocated memory for this node. */ (void) free((char *) node->info); (void) free((char *) node->name); (void) free((char *) node); continue; } *last=node; last=(&node->next); } while ((response=Wait())); else { RegularExpression *access_expression; access_expression= CompileRegularExpression("Permission denied|not found|cannot access"); date_expression= CompileRegularExpression(" [0-9][0-9][0-9][0-9]|[0-9][0-9]:[0-9][0-9]"); do { /* Link unix-style file into file list. */ if ((status > 0) || (*response == '\0')) continue; while (*response == ' ') response++; p=response+strlen(response)-1; if ((*response == '-') || (*response == 'F')) { if (ExecuteRegularExpression(access_expression,response)) continue; /* Extract file info & name. */ while (p-- > (response+5)) if (*p == ' ') if (!ExecuteRegularExpression(date_expression,p-5)) *p='_'; else break; *p++='\0'; while (*p == ' ') p++; name=p; info=response; node=(DirectoryNode *) malloc(sizeof(DirectoryNode)); if (node == (DirectoryNode *) NULL) Error("Unable to allocate memory",(char *) NULL); node->name=(char *) malloc(strlen(directory)+strlen(name)+1); node->info=(char *) malloc(strlen(info)+1); if ((node->name == (char *) NULL) || (node->info == (char *) NULL)) Error("Unable to allocate memory",(char *) NULL); (void) strcpy(node->name,directory); (void) strcat(node->name,name); (void) strcpy(node->info,info); node->next=(DirectoryNode *) NULL; if (exclude_expression) if (ExecuteRegularExpression(exclude_expression,node->name)) { /* Free allocated memory for this node. */ (void) free((char *) node->info); (void) free((char *) node->name); (void) free((char *) node); continue; } *last=node; last=(&node->next); } else if (*p == ':') { /* File is a directory. */ do { p--; } while (*p == ' '); *(++p)='\0'; (void) strcpy(directory,response); (void) strcat(directory,"/"); } } while ((response=Wait())); (void) free((char *) access_expression); (void) free((char *) date_expression); } /* Traverse the file list and act on a filename if it matches the regular expression. */ status=(-1); node=root; while (node) { if (directory_expression) if (ExecuteRegularExpression(directory_expression,node->name)) (void) DirectoryRequest(node->info,node->name); if (print_expression) if (ExecuteRegularExpression(print_expression,node->name)) (void) PrintRequest(node->name,verbose); if (retrieve_expression) if (ExecuteRegularExpression(retrieve_expression,node->name)) (void) RetrieveRequest(node->name,verbose); /* Free allocated memory for this node. */ (void) free((char *) node->info); (void) free((char *) node->name); next=node->next; (void) free((char *) node); node=next; } if (status < 0) Warning("no files matched your expression",(char *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e t r i e v e R e q u e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function RetrieveRequest retrieves a file from the remote FTP server. % % The format of the RetrieveRequest routine is: % % RetrieveRequest(filename,verbose) % % A description of each parameter follows: % % o filename: Specifies a pointer to a character array that contains % the name of the file to retrieve. % % o verbose: An unsigned integer. A value other than zero dhows all % responses from the remote server. % % */ static void RetrieveRequest(filename,verbose) char *filename; unsigned int verbose; { char command[2048], *response; /* get remote-file */ (void) MakeDirectory(filename); (void) sprintf(command,"get %s\n",filename); (void) write(master,command,strlen(command)); while ((response=Wait())) if (status == 0) (void) fprintf(stdout,"%s\n",response); else if ((status == 5) || verbose) (void) fprintf(stderr,"%s\n",response); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S i g n a l A l a r m % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SignalAlarm is called if the timer expires. % % The format of the SignalAlarm routine is: % % SignalAlarm() % % */ static void SignalAlarm() { char message[2048]; int process_status; while (waitpid((pid_t) NULL,&process_status,WNOHANG) > 0); (void) sprintf(message,"timeout expired, status %x",process_status); Error(message,(char *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S i g n a l C h i l d % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SignalChild is called if the status of the child process changes. % % The format of the SignalChild routine is: % % SignalChild() % % */ static void SignalChild() { char message[2048]; int process_status; while (waitpid((pid_t) NULL,&process_status,WNOHANG) > 0); (void) sprintf(message,"child died, status %x",process_status); Error(message,(char *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Usage displays the program usage; % % The format of the Usage routine is: % % Usage() % % */ static void Usage() { char **p; static char *options[]= { "-account password supplemental password", "-binary retrieve files as binary", "-exclude expression exclude files that match the expression", "-directory expression list file names that match the expression", "-ident password specifies password", "-port number port number of FTP server", "-print expression print files that match the expression", "-prune do not recursively search for files", "-retrieve expression retrieve files that match the expression", "-send expression send files that match the expression", "-timeout seconds specifies maximum seconds of XTP session", "-user name identify yourself to the remote FTP server", "-verbose show all responses from the remote server", NULL }; (void) fprintf(stderr, "Usage: %s [-options ...] [ ]\n", client_name); (void) fprintf(stderr,"\nWhere options include:\n"); for (p=options; *p; p++) (void) fprintf(stderr," %s\n",*p); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W a i t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Wait reads a line of output from the remote FTP server. % % The format of the Wait() routine is: % % response=Wait() % % A description of each parameter follows: % % o response: Function Wait returns this pointer to the output obtained % from the remote FTP server. % % */ static char *Wait() { register char *p; static char buffer[1024], *q; static char line[1024]; static int count=0; status=0; p=line; do { if (count <= 0) { /* The buffer is empty; read output from the remote FTP server. */ count=read(master,buffer,sizeof(buffer)); q=buffer; if (count <= 0) { if (p == line) return((char *) NULL); break; } } count--; *p=(*q++); if (*p == '\n') break; p++; if ((p-line) >= 5) if (!strncmp(p-5,"ftp> ",5)) if (count == 0) return((char *) NULL); } while (p < (line+sizeof(line))); *p='\0'; if (isdigit(*line)) status=atoi(line)/100; return(line); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % m a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; register char **argv; { #include char *account, command[2048], *home_directory, *host_info, *hostname, *ident, *port, *send_expression, *user; int binary, child, dialog, process_status; register char *p, *response; struct sigaction action; unsigned int prune, timeout, verbose; /* Initialize program variables. */ account=(char *) NULL; client_name=argv[0]; binary=False; directory_expression=(RegularExpression *) NULL; exclude_expression=(RegularExpression *) NULL; ident=(char *) NULL; port=(char *) NULL; print_expression=(RegularExpression *) NULL; prune=False; retrieve_expression=(RegularExpression *) NULL; send_expression=(char *) NULL; timeout=0; user=(char *) NULL; verbose=False; /* Parse command line arguments. */ for (p=(*argv++); *argv && (**argv == '-'); argv++) switch (argv[0][1]) { case 'a': { account=(*++argv); break; } case 'b': { binary=True; break; } case 'd': { directory_expression=CompileRegularExpression(*++argv); if (!directory_expression) exit(1); break; } case 'e': { exclude_expression=CompileRegularExpression(*++argv); if (!exclude_expression) exit(1); break; } case 'i': { ident=(*++argv); break; } case 'p': { if (strncmp("port",*argv+1,2) == 0) port=(*++argv); else if (strncmp("prune",*argv+1,3) == 0) prune=(**argv == '-'); else { print_expression=CompileRegularExpression(*++argv); if (!print_expression) exit(1); } break; } case 'r': { retrieve_expression=CompileRegularExpression(*++argv); if (!retrieve_expression) exit(1); break; } case 's': { send_expression=(*++argv); break; } case 't': { timeout=atoi(*++argv); break; } case 'u': { user=(*++argv); break; } case 'v': { verbose=True; break; } default: { Error("Unrecognized option",(char *) NULL); break; } } if ((argc < 2) || (*argv == (char *) NULL)) Usage(); hostname=argv[0]; home_directory=argv[1]; if ((directory_expression == (RegularExpression *) NULL) && (print_expression == (RegularExpression *) NULL) && (retrieve_expression == (RegularExpression *) NULL) && (send_expression == (char *) NULL)) directory_expression=CompileRegularExpression(""); if ((ident == (char *) NULL) && (user == (char *) NULL)) { static char name[2048]; struct passwd *user_info; /* Identify user as user@host.domain. */ user_info=getpwuid(geteuid()); if (user_info == (struct passwd *) NULL) (void) strcpy(name,"anonymous"); else (void) strcpy(name,user_info->pw_name); p=name+strlen(name); *p++='@'; (void) gethostname(p,64); while (*p) p++; *p++='.'; (void) getdomainname(p,64); user="anonymous"; ident=name; } host_info=GetHostInfo(hostname); if (host_info == (char *) NULL) Error("Unknown host",hostname); if (home_directory == (char *) NULL) (void) fprintf(stdout,"%s\n",host_info); else (void) fprintf(stdout,"%s %s\n",host_info,home_directory); (void) GetPseudoTerminal(); /* Set signal handlers. */ action.sa_handler=SignalAlarm; (void) sigemptyset(&action.sa_mask); action.sa_flags=0; (void) sigaction(SIGALRM,&action,(struct sigaction *) NULL); if (timeout != 0) (void) alarm(timeout/10); /* enable login timer. */ action.sa_handler=SignalChild; (void) sigaction(SIGCHLD,&action,(struct sigaction *) NULL); /* Connect and logon to host. */ child=fork(); if (child < 0) Error("Unable to fork",(char *) NULL); if (child == 0) ExecuteFtp(hostname,port); while ((response=Wait())) if (verbose) (void) fprintf(stderr,"%s\n",response); if (user == (char *) NULL) user="anonymous"; (void) sprintf(command,"user %s\n",user); (void) write(master,command,strlen(command)); /* Logon dialog may require a password or account information. */ dialog=0; while ((response=Wait())) { if (verbose) (void) fprintf(stderr,"%s\n",response); if (status == 3) { unsigned int count; switch (dialog) { case 0: { count=read(master,command,sizeof(command)); if (ident == (char *) NULL) { command[count]='\0'; ident=(char *) GetPassword(command); } (void) sprintf(command,"%s\n",ident); (void) write(master,command,strlen(command)); break; } case 1: { (void) read(master,command,sizeof(command)); if (account == (char *) NULL) { command[count]='\0'; account=(char *) GetPassword(command); } (void) sprintf(command,"%s\n",account); (void) write(master,command,strlen(command)); break; } } dialog++; } if (status == 5) Error(response,user); if (strcmp(response,"Not connected.") == 0) Error("unable to connect to remote host",hostname); } if (timeout != 0) (void) alarm(timeout); /* enable session timer. */ if (home_directory != (char *) NULL) { /* Change remote working directory. */ (void) sprintf(command,"cd %s\n",home_directory); (void) write(master,command,strlen(command)); while ((response=Wait())) { if (verbose) (void) fprintf(stderr,"%s\n",response); if (status == 5) Error("No such directory",home_directory); } (void) strcpy(command,"pwd\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if (verbose) (void) fprintf(stderr,"%s\n",response); } if (binary) { /* Set file transfer type. */ (void) strcpy(command,"binary\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if (verbose) (void) fprintf(stderr,"%s\n",response); (void) strcpy(command,"type\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if (verbose) (void) fprintf(stderr,"%s\n",response); } if (retrieve_expression != (RegularExpression *) NULL) { /* Ensure retrieved files are unique. */ (void) strcpy(command,"runique\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if (verbose) (void) fprintf(stderr,"%s\n",response); } if (send_expression == (char *) NULL) ProcessRequest(prune,verbose); else { /* Process send request. */ (void) strcpy(command,"glob on\n"); (void) write(master,command,strlen(command)); while ((response=Wait())) if (verbose) (void) fprintf(stderr,"%s\n",response); (void) sprintf(command,"mput %s\n",send_expression); (void) write(master,command,strlen(command)); while ((response=Wait())) if ((status == 5) || verbose) (void) fprintf(stderr,"%s\n",response); } (void) strcpy(command,"quit\n"); (void) write(master,command,strlen(command)); /* Wait for child to finish. */ action.sa_handler=SIG_DFL; (void) sigemptyset(&action.sa_mask); action.sa_flags=0; (void) sigaction(SIGCHLD,&action,(struct sigaction *) NULL); (void) waitpid(child,&process_status,WNOHANG); (void) close(master); if (directory_expression != (RegularExpression *) NULL) (void) free((char *) directory_expression); if (exclude_expression != (RegularExpression *) NULL) (void) free((char *) exclude_expression); if (print_expression != (RegularExpression *) NULL) (void) free((char *) print_expression); if (retrieve_expression != (RegularExpression *) NULL) (void) free((char *) retrieve_expression); return(status < 0); } nse=Wait())) if (!unix_filesystem) if (*response != '\0') unix_filesystem=ExecuteRegularExpression(mode_expression,response); ./ImageMagick/xtp/Makefile 644 24 24 3255 5421051261 10630 # # Generic makefile for xtp for computers that do not have xmkmf. # # Copyright 1993 E. I. du Pont de Nemours & Company # # Permission to use, copy, modify, distribute, and sell this software and # its documentation for any purpose is hereby granted without fee, # provided that the above Copyright notice appear in all copies and that # both that Copyright notice and this permission notice appear in # supporting documentation, and that the name of E. I. du Pont de Nemours # & Company not be used in advertising or publicity pertaining to # distribution of the software without specific, written prior # permission. E. I. du Pont de Nemours & Company makes no representations # about the suitability of this software for any purpose. It is provided # "as is" without express or implied warranty. # # E. I. du Pont de Nemours & Company disclaims all warranties with regard # to this software, including all implied warranties of merchantability # and fitness, in no event shall E. I. du Pont de Nemours & Company be # liable for any special, indirect or consequential damages or any # damages whatsoever resulting from loss of use, data or profits, whether # in an action of contract, negligence or other tortious action, arising # out of or in connection with the use or performance of this software. # CC= cc -O DESTDIR= /usr/local/bin INSTALL = install -c RM= /bin/rm -f #SYS_LIBRARIES= -lnsl XTPObjects= xtp.o network.o regular.o PROGRAMS= xtp all: $(PROGRAMS) xtp: $(XTPObjects) $(RM) $@ $(CC) -o $@ $(XTPObjects) $(SYS_LIBRARIES) clean:: $(RM) xtp install:: xtp $(INSTALL) xtp $(DESTDIR) clean:: $(RM) *.ln *.bak *.o core errs ,* *~ *.a .emacs_* make.log MakeOut hile (*p == ' ') p++; name=p; info=response; node=(DirectoryNode *) malloc(sizeof(DirectoryNode)); if (node == (DirectoryNode *) NULL) Error("Unable to allocate memory",(char *) NULL); node->name=(char *) malloc(strlen(directory)+strlen(name)+1); ./ImageMagick/xtp/README 644 24 24 3524 5172600731 10054 Xtp is a utility for retrieving, listing, or printing files from a remote network site. Xtp performs most of the same functions as the ftp program, but does not require any interactive commands. You simply specify the file transfer task on the command line and xtp performs the transfer automatically. To retrieve file contrib/ImageMagick.tar.Z from host export.lcs.mit.edu, use: xtp -binary -retrieve ImageMagick.tar.Z export.lcs.mit.edu contrib Xtp requires 4.3 BSD compatibilities. I have successfully executed it on a SUN, DEC Ultrix, MIPS, IBM RS/6000, and Ardent Titan. The author is cristy@dupont.com. Comments, suggestions, etc, are welcome, but be kind. --- Copyright 1990 E. I. Dupont de Nemours & Company Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. Dupont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. Dupont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. E. I. Dupont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. Dupont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortious action, arising out of or in connection with the use or performance of this software. de == (DirectoryNode *) NULL) Error("Unable to allocate memory",(char *) NULL); node->name=(char *) malloc(strlen(directory)+strlen(name)+1); ./ImageMagick/xtp/get 644 24 24 1035 5225226412 7670 #!/usr/bin/perl # # Retrieve files from remote host using standard 'host: filename' string: # # get export.lcs.mit.edu: contrib/ImageMagick.tar.Z # $host=shift || die "Usage: get host/ip-address file\n"; $file=shift || die "Usage: get host/ip-address file\n"; $host=~s/:$//; $directory=`dirname $file`; chop($directory); $file=`basename $file`; chop($file); printf("Getting %s in directory %s from host %s...\n",$file,$directory,$host); $pid=fork; if ($pid == 0) { exec("xtp -r $file -b $host $directory"); exit(0); } exit(0); ltrix, MIPS, IBM RS/6000, and Ardent Titan. The author is cristy@dupont.com. Comments, suggestions, etc, are welcome, but be kind. --- Copyright 1990 E. I. Dupont de Nemours & Company Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentati./ImageMagick/xtp/Imakefile 644 24 24 3331 5442144531 11002 #ifndef XCOMM #define XCOMM # #endif #ifndef NullParameter #define NullParameter #endif XCOMM XCOMM Imakefile for xtp. XCOMM XCOMM Copyright 1993 E. I. du Pont de Nemours & Company XCOMM XCOMM Permission to use, copy, modify, distribute, and sell this software and XCOMM its documentation for any purpose is hereby granted without fee, XCOMM provided that the above Copyright notice appear in all copies and that XCOMM both that Copyright notice and this permission notice appear in XCOMM supporting documentation, and that the name of E. I. du Pont de Nemours XCOMM & Company not be used in advertising or publicity pertaining to XCOMM distribution of the software without specific, written prior XCOMM permission. E. I. du Pont de Nemours & Company makes no representations XCOMM about the suitability of this software for any purpose. It is provided XCOMM "as is" without express or implied warranty. XCOMM XCOMM E. I. du Pont de Nemours & Company disclaims all warranties with regard XCOMM to this software, including all implied warranties of merchantability XCOMM and fitness, in no event shall E. I. du Pont de Nemours & Company be XCOMM liable for any special, indirect or consequential damages or any XCOMM damages whatsoever resulting from loss of use, data or profits, whether XCOMM in an action of contract, negligence or other tortious action, arising XCOMM out of or in connection with the use or performance of this software. XCOMM #include "../Magick.tmpl" XTPObjects= xtp.o network.o regular.o PROGRAMS= xtp AllTarget($(PROGRAMS)) NormalProgramTarget(xtp,$(XTPObjects),NullParameter,NullParameter,NullParameter) InstallProgram(xtp,$(LOCALDIR)) InstallManPage(xtp,$(MANDIR)) DependTarget() tract, negligence or other tortious action, arising out of or in connection with the use or performance of this software. de == (DirectoryNode *) NULL) Error("Unable to allocate memory",(char *) NULL); node->name=(char *) malloc(strlen(directory)+strlen(name)+1); ./ImageMagick/xtp/network.c 644 24 24 12736 5530151334 11054 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % N N EEEEE TTTTT W W OOO RRRR K K % % NN N E T W W O O R R K K % % N N N EEE T W W W O O RRRR KKK % % N NN E T WW WW O O R R K K % % N N EEEEE T W W OOO R R K K % % % % % % Network Routines. % % % % % % Software Design % % John Cristy % % October 1992 % % % % % % Copyright 1993 E. I. Dupont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. Dupont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. Dupont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. Dupont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. Dupont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortious action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ #include "xtp.h" #include "regular.h" #include #include #include #include #include /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % G e t H o s t I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function GetHostInfo accepts a host name or address, verifies it is valid, % and returns both the host name and address from the network host entry. % % The format of the GetHostInfo routine is: % % info=GetHostInfo(name) % % A description of each parameter follows: % % o info: Function GetHostInfo returns a pointer to the host name and % IP address. A null pointer is returned if there the host cannot be % located. % % o name: Specifies a pointer to a character array that contains either % a name of a host or an IP address. % % */ char *GetHostInfo(name) char *name; { char *p; static char info[2048]; struct in_addr in; struct hostent *hp; /* Get host name and address. */ if (isascii(*name) && isdigit(*name)) in.s_addr=inet_addr(name); else { in.s_addr=(unsigned long) -1; hp=gethostbyname(name); if (hp != (struct hostent *) NULL) in.s_addr=(*(int *) hp->h_addr); } hp=gethostbyaddr((char *) &in,sizeof(struct in_addr),AF_INET); if (hp == (struct hostent *) NULL) { hp=gethostbyname(name); if (hp == (struct hostent *) NULL) return((char *) NULL); } /* Convert hostname to lower-case characters. */ p=hp->h_name; while (*p) { if (isupper(*p)) *p=tolower(*p); p++; } (void) sprintf(info,"%s [%s]: ",hp->h_name,inet_ntoa(in)); return(info); } e((char *) node->name); next=n./ImageMagick/images/ 755 24 24 0 5551012303 7526 ./ImageMagick/images/README 644 24 24 460 5523352274 10470 These images are useful for testing the `display' program from contrib/ImageMagick.tar.gz on ftp.x.org. `display' is a program that can display an image on any X server: make display *.miff The aquarium image was rendered with rayshade from a script written by kilian@cray.com and Jerome A. Farm. 6magickt Magick.faq8óX.h1ImageMagick.manO import.man kmiff.manMayß quantize.man±àB display.man ¡ Imakefilenn./ImageMagick/images/view 644 24 24 2526 5554531700 10527 #!/usr/local/bin/perl # # Display one or more images as a montage to an X server. # # Author: John Cristy (cristy@dupont.com) # @filenames=@ARGV; if ($#filenames < 1) { # # Read filenames within a directory. # $image_directory='/usr/home/images' unless $image_directory=shift; opendir(directory,$image_directory) || die "Images directory is not available: $!\n"; @filenames=sort(grep(!/^\.\.?$/,readdir(directory))); closedir(directory); chdir($image_directory) || die "image directory is not available: $!\n"; } # # Display 20 images at a time as a montage image. # while ($#filenames > 20) { system 'montage', '-verbose', '-geometry', '160x160+5+5', '-tiles_per_row', '5', '-frame', '-borderwidth', '5', '-background', '#103040', '-foreground', 'white', '-mattecolor', 'SlateGray', '-label', '%f %wx%h', @filenames[0..19], "montage.$$"; system 'display', '-iconic', '-use_pixmap', "montage.$$"; system '/bin/rm', "montage.$$"; @filenames=@filenames[20..$#filenames]; } system 'montage', '-verbose', '-geometry', '160x160+5+5', '-tiles_per_row', '5', '-frame', '-borderwidth', '5', '-background', '#103040', '-foreground', 'white', '-mattecolor', 'SlateGray', '-label', '%f %wx%h', @filenames, "montage.$$"; system 'display', '-iconic', "montage.$$"; exec '/bin/rm', "montage.$$"; exit(255); er resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortious action, arising % % out of or in connection wi./ImageMagick/images/Makefile 644 24 24 433 5555272526 11256 all: ../montage -colors 256 -title "Image Montage" -geometry 160x160+10+10 \ -frame -borderwidth 15 -background \#103040 -foreground white \ -label "%f %wx%h" -mattecolor SlateGray -verbose dna.miff \ swan.miff aquarium.miff montage.miff clean: /bin/rm -f montage.miff tory=shift; opendir(directory,$image_directory) || die "Images directory is not available: $!\n"; @filenames=sort(grep(!/^\.\.?$/,readdir(directory))); closedir(directory); chdir($image_directory) || die "i./ImageMagick/scenes/ 755 24 24 0 5460161222 7545 ./ImageMagick/scenes/Makefile 644 24 24 11772 5470271117 11330 # # POV Makefile for DNA molecule. # all: povray +Idna.script +Odna.1 -ft +W256 +H256 -Q9 +R5 +A +J +V -K0 povray +Idna.script +Odna.2 -ft +W256 +H256 -Q9 +R5 +A +J +V -K5 povray +Idna.script +Odna.3 -ft +W256 +H256 -Q9 +R5 +A +J +V -K10 povray +Idna.script +Odna.4 -ft +W256 +H256 -Q9 +R5 +A +J +V -K15 povray +Idna.script +Odna.5 -ft +W256 +H256 -Q9 +R5 +A +J +V -K20 povray +Idna.script +Odna.6 -ft +W256 +H256 -Q9 +R5 +A +J +V -K25 povray +Idna.script +Odna.7 -ft +W256 +H256 -Q9 +R5 +A +J +V -K30 povray +Idna.script +Odna.8 -ft +W256 +H256 -Q9 +R5 +A +J +V -K35 povray +Idna.script +Odna.9 -ft +W256 +H256 -Q9 +R5 +A +J +V -K40 povray +Idna.script +Odna.10 -ft +W256 +H256 -Q9 +R5 +A +J +V -K45 povray +Idna.script +Odna.11 -ft +W256 +H256 -Q9 +R5 +A +J +V -K50 povray +Idna.script +Odna.12 -ft +W256 +H256 -Q9 +R5 +A +J +V -K55 povray +Idna.script +Odna.13 -ft +W256 +H256 -Q9 +R5 +A +J +V -K60 povray +Idna.script +Odna.14 -ft +W256 +H256 -Q9 +R5 +A +J +V -K65 povray +Idna.script +Odna.15 -ft +W256 +H256 -Q9 +R5 +A +J +V -K70 povray +Idna.script +Odna.16 -ft +W256 +H256 -Q9 +R5 +A +J +V -K75 povray +Idna.script +Odna.17 -ft +W256 +H256 -Q9 +R5 +A +J +V -K80 povray +Idna.script +Odna.18 -ft +W256 +H256 -Q9 +R5 +A +J +V -K85 povray +Idna.script +Odna.19 -ft +W256 +H256 -Q9 +R5 +A +J +V -K90 povray +Idna.script +Odna.20 -ft +W256 +H256 -Q9 +R5 +A +J +V -K95 povray +Idna.script +Odna.21 -ft +W256 +H256 -Q9 +R5 +A +J +V -K100 povray +Idna.script +Odna.22 -ft +W256 +H256 -Q9 +R5 +A +J +V -K105 povray +Idna.script +Odna.23 -ft +W256 +H256 -Q9 +R5 +A +J +V -K110 povray +Idna.script +Odna.24 -ft +W256 +H256 -Q9 +R5 +A +J +V -K115 povray +Idna.script +Odna.25 -ft +W256 +H256 -Q9 +R5 +A +J +V -K120 povray +Idna.script +Odna.26 -ft +W256 +H256 -Q9 +R5 +A +J +V -K125 povray +Idna.script +Odna.27 -ft +W256 +H256 -Q9 +R5 +A +J +V -K130 povray +Idna.script +Odna.28 -ft +W256 +H256 -Q9 +R5 +A +J +V -K135 povray +Idna.script +Odna.29 -ft +W256 +H256 -Q9 +R5 +A +J +V -K140 povray +Idna.script +Odna.30 -ft +W256 +H256 -Q9 +R5 +A +J +V -K145 povray +Idna.script +Odna.31 -ft +W256 +H256 -Q9 +R5 +A +J +V -K150 povray +Idna.script +Odna.32 -ft +W256 +H256 -Q9 +R5 +A +J +V -K155 povray +Idna.script +Odna.33 -ft +W256 +H256 -Q9 +R5 +A +J +V -K160 povray +Idna.script +Odna.34 -ft +W256 +H256 -Q9 +R5 +A +J +V -K165 povray +Idna.script +Odna.35 -ft +W256 +H256 -Q9 +R5 +A +J +V -K170 povray +Idna.script +Odna.36 -ft +W256 +H256 -Q9 +R5 +A +J +V -K175 povray +Idna.script +Odna.37 -ft +W256 +H256 -Q9 +R5 +A +J +V -K180 povray +Idna.script +Odna.38 -ft +W256 +H256 -Q9 +R5 +A +J +V -K185 povray +Idna.script +Odna.39 -ft +W256 +H256 -Q9 +R5 +A +J +V -K190 povray +Idna.script +Odna.40 -ft +W256 +H256 -Q9 +R5 +A +J +V -K195 povray +Idna.script +Odna.41 -ft +W256 +H256 -Q9 +R5 +A +J +V -K200 povray +Idna.script +Odna.42 -ft +W256 +H256 -Q9 +R5 +A +J +V -K205 povray +Idna.script +Odna.43 -ft +W256 +H256 -Q9 +R5 +A +J +V -K210 povray +Idna.script +Odna.44 -ft +W256 +H256 -Q9 +R5 +A +J +V -K215 povray +Idna.script +Odna.45 -ft +W256 +H256 -Q9 +R5 +A +J +V -K220 povray +Idna.script +Odna.46 -ft +W256 +H256 -Q9 +R5 +A +J +V -K225 povray +Idna.script +Odna.47 -ft +W256 +H256 -Q9 +R5 +A +J +V -K230 povray +Idna.script +Odna.48 -ft +W256 +H256 -Q9 +R5 +A +J +V -K235 povray +Idna.script +Odna.49 -ft +W256 +H256 -Q9 +R5 +A +J +V -K240 povray +Idna.script +Odna.50 -ft +W256 +H256 -Q9 +R5 +A +J +V -K245 povray +Idna.script +Odna.51 -ft +W256 +H256 -Q9 +R5 +A +J +V -K250 povray +Idna.script +Odna.52 -ft +W256 +H256 -Q9 +R5 +A +J +V -K255 povray +Idna.script +Odna.53 -ft +W256 +H256 -Q9 +R5 +A +J +V -K260 povray +Idna.script +Odna.54 -ft +W256 +H256 -Q9 +R5 +A +J +V -K265 povray +Idna.script +Odna.55 -ft +W256 +H256 -Q9 +R5 +A +J +V -K270 povray +Idna.script +Odna.56 -ft +W256 +H256 -Q9 +R5 +A +J +V -K275 povray +Idna.script +Odna.57 -ft +W256 +H256 -Q9 +R5 +A +J +V -K280 povray +Idna.script +Odna.58 -ft +W256 +H256 -Q9 +R5 +A +J +V -K285 povray +Idna.script +Odna.59 -ft +W256 +H256 -Q9 +R5 +A +J +V -K290 povray +Idna.script +Odna.60 -ft +W256 +H256 -Q9 +R5 +A +J +V -K295 povray +Idna.script +Odna.61 -ft +W256 +H256 -Q9 +R5 +A +J +V -K300 povray +Idna.script +Odna.62 -ft +W256 +H256 -Q9 +R5 +A +J +V -K305 povray +Idna.script +Odna.63 -ft +W256 +H256 -Q9 +R5 +A +J +V -K310 povray +Idna.script +Odna.64 -ft +W256 +H256 -Q9 +R5 +A +J +V -K315 povray +Idna.script +Odna.65 -ft +W256 +H256 -Q9 +R5 +A +J +V -K320 povray +Idna.script +Odna.66 -ft +W256 +H256 -Q9 +R5 +A +J +V -K325 povray +Idna.script +Odna.67 -ft +W256 +H256 -Q9 +R5 +A +J +V -K330 povray +Idna.script +Odna.68 -ft +W256 +H256 -Q9 +R5 +A +J +V -K335 povray +Idna.script +Odna.69 -ft +W256 +H256 -Q9 +R5 +A +J +V -K340 povray +Idna.script +Odna.70 -ft +W256 +H256 -Q9 +R5 +A +J +V -K345 povray +Idna.script +Odna.71 -ft +W256 +H256 -Q9 +R5 +A +J +V -K350 povray +Idna.script +Odna.72 -ft +W256 +H256 -Q9 +R5 +A +J +V -K355 cat dna.[0-9] dna.[0-9][0-9] | convert tga:- miff:dna mogrify -verbose -colors 256 dna.[0-9]* clean: /bin/rm -f dna.[0-9]* dna.log (filen./ImageMagick/scenes/README 644 24 24 560 5523351054 10477 DNA sequence useful for testing the `animate' program from contrib/ImageMagick.tar.gz on ftp.x.org. `animate' is a program that can display image sequences on any X server: make -i animate dna.[0-9]* ImageMagick requires POV to generate the DNA image sequence. Alternately, you can get the image sequence from contrib/ImageMagick.animation.tar.gz on ftp.x.org. V -K20 povray +Idna.script +Odna.6 -ft +W256 +H256 -Q9 +R5 +A +J +V -K25 povray +Idna.script +Odna.7 -ft +W256 +H256 -Q9 +R5 +A +J +V -K30 po./ImageMagick/scenes/dna.script 644 24 24 77723 5460160703 11665 // // POV script for creating a spinning DNA molecule image sequence. // // Copyright 1993 E. I. du Pont de Nemours & Company // // Permission to use, copy, modify, distribute, and sell this software and // its documentation for any purpose is hereby granted without fee, // provided that the above Copyright notice appear in all copies and that // both that Copyright notice and this permission notice appear in // supporting documentation, and that the name of E. I. du Pont de Nemours // & Company not be used in advertising or publicity pertaining to // distribution of the software without specific, written prior // permission. E. I. du Pont de Nemours & Company makes no representations // about the suitability of this software for any purpose. It is provided // "as is" without express or implied warranty. // // E. I. du Pont de Nemours & Company disclaims all warranties with regard // to this software, including all implied warranties of merchantability // and fitness, in no event shall E. I. du Pont de Nemours & Company be // liable for any special, indirect or consequential damages or any // damages whatsoever resulting from loss of use, data or profits, whether // in an action of contract, negligence or other tortious action, arising // out of or in connection with the use or performance of this software. // #declare atom_O = sphere { <0.0 0.0 0.0> 2.22429 pigment { color red 0.90 green 0.00 blue 0.00 } finish { ambient 0.2 diffuse 0.80 specular 0.2 reflection 0.00 phong 1.0 phong_size 100 } } #declare atom_C = sphere { <0.0 0.0 0.0> 2.70093 pigment { color red 0.32 green 0.32 blue 0.32 } finish { ambient 0.2 diffuse 0.80 specular 0.2 reflection 0.00 phong 1.0 phong_size 100 } } #declare atom_N = sphere { <0.0 0.0 0.0> 2.44672 pigment { color red 0.00 green 0.00 blue 0.90 } finish { ambient 0.2 diffuse 0.80 specular 0.2 reflection 0.00 phong 1.0 phong_size 100 } } #declare atom_P = sphere { <0.0 0.0 0.0> 2.85981 pigment { color red 0.90 green 0.90 blue 0.00 } finish { ambient 0.2 diffuse 0.80 specular 0.2 reflection 0.00 phong 1.0 phong_size 100 } } #declare molecule_DNA = union { object {atom_O translate <40.71169, 7.07008, -19.96654>} object {atom_C translate <37.85082, 6.08080, -20.30633>} object {atom_C translate <37.49451, 3.45211, -18.52562>} object {atom_O translate <38.32873, 3.99314, -15.61836>} object {atom_C translate <34.51841, 2.21794, -18.35552>} object {atom_O translate <34.71203, -0.70266, -17.64078>} object {atom_C translate <33.52023, 3.89230, -15.79419>} object {atom_C translate <35.99492, 3.13117, -13.87875>} object {atom_N translate <36.03749, 4.88010, -11.25832>} object {atom_C translate <36.92636, 3.82070, -8.70081>} object {atom_O translate <37.67140, 1.31954, -8.53515>} object {atom_N translate <36.90455, 5.49210, -6.42207>} object {atom_C translate <36.01080, 8.17164, -6.60404>} object {atom_N translate <35.88624, 9.80427, -4.23124>} object {atom_C translate <35.07702, 9.31980, -9.15562>} object {atom_C translate <35.11621, 7.59035, -11.53816>} object {atom_P translate <32.73897, -3.13710, -18.92938>} object {atom_O translate <29.80989, -2.23849, -19.56130>} object {atom_O translate <34.33516, -4.55303, -21.20071>} object {atom_O translate <32.36465, -5.16714, -16.25599>} object {atom_C translate <34.68449, -6.67585, -15.05636>} object {atom_C translate <33.44990, -7.80960, -12.35628>} object {atom_O translate <33.48803, -5.51646, -10.36331>} object {atom_C translate <30.39753, -8.91307, -12.52532>} object {atom_O translate <30.15646, -11.74682, -11.38013>} object {atom_C translate <28.79095, -6.59705, -10.89502>} object {atom_C translate <30.95784, -5.60459, -8.70737>} object {atom_N translate <30.48375, -2.56366, -7.96425>} object {atom_C translate <29.88446, -0.41012, -9.80639>} object {atom_N translate <29.66034, 2.12028, -8.53303>} object {atom_C translate <30.14777, 1.53858, -5.78062>} object {atom_C translate <30.16726, 3.41715, -3.42393>} object {atom_O translate <29.73977, 5.98547, -3.38453>} object {atom_N translate <30.81315, 2.01606, -0.96259>} object {atom_C translate <31.39126, -0.79990, -0.67407>} object {atom_N translate <31.97508, -1.77965, 1.97941>} object {atom_N translate <31.35694, -2.55942, -2.88353>} object {atom_C translate <30.71889, -1.25853, -5.35568>} object {atom_P translate <27.18967, -13.35212, -11.00221>} object {atom_O translate <24.95945, -12.07411, -12.77593>} object {atom_O translate <27.65550, -16.41021, -11.43097>} object {atom_O translate <26.44294, -12.83249, -7.74902>} object {atom_C translate <28.26284, -13.92642, -5.58891>} object {atom_C translate <27.19094, -12.70136, -2.86786>} object {atom_O translate <27.28097, -9.69644, -3.05915>} object {atom_C translate <24.15446, -13.41398, -2.19782>} object {atom_O translate <24.03245, -15.73678, -0.25823>} object {atom_C translate <22.93004, -10.68657, -0.99606>} object {atom_C translate <25.39159, -8.62645, -0.97000>} object {atom_N translate <24.47540, -5.90836, -2.20523>} object {atom_C translate <24.37583, -3.55252, -0.56794>} object {atom_O translate <25.00690, -3.78935, 1.95505>} object {atom_N translate <23.63546, -1.07084, -1.72330>} object {atom_C translate <22.98385, -0.89290, -4.46935>} object {atom_N translate <22.33986, 1.67034, -5.64907>} object {atom_C translate <23.04486, -3.27183, -6.20960>} object {atom_C translate <23.81722, -5.84799, -5.00678>} object {atom_P translate <21.07498, -17.05505, 0.69737>} object {atom_O translate <19.00914, -16.62078, -1.59916>} object {atom_O translate <21.56136, -19.97883, 1.65593>} object {atom_O translate <20.24712, -15.15063, 3.33009>} object {atom_C translate <21.99478, -15.13029, 5.81049>} object {atom_C translate <20.63542, -13.14177, 7.88163>} object {atom_O translate <20.53564, -10.34467, 6.68305>} object {atom_C translate <17.59046, -13.83490, 8.68555>} object {atom_O translate <16.87848, -12.69585, 11.35873>} object {atom_C translate <16.01778, -12.28213, 6.34665>} object {atom_C translate <17.63071, -9.50409, 6.55298>} object {atom_N translate <17.27461, -7.72805, 3.98975>} object {atom_C translate <16.68422, -8.53303, 1.26467>} object {atom_N translate <16.49314, -6.32441, -0.51244>} object {atom_C translate <16.97529, -4.07067, 1.17570>} object {atom_C translate <16.99393, -1.13354, 0.49422>} object {atom_O translate <16.58699, 0.01229, -1.80549>} object {atom_N translate <17.49090, 0.48744, 2.85070>} object {atom_C translate <17.95037, -0.45587, 5.54718>} object {atom_N translate <18.32702, 1.52121, 7.61366>} object {atom_N translate <17.95016, -3.20531, 6.18481>} object {atom_C translate <17.44875, -4.85278, 3.91900>} object {atom_P translate <14.40654, -14.08572, 13.19219>} object {atom_O translate <12.08692, -15.04852, 11.28078>} object {atom_O translate <15.64346, -16.22316, 15.08623>} object {atom_O translate <13.38739, -11.39665, 14.97056>} object {atom_C translate <15.46552, -9.51574, 16.17613>} object {atom_C translate <14.23962, -6.60806, 15.89333>} object {atom_O translate <14.04176, -5.99458, 12.94285>} object {atom_C translate <11.24889, -6.21298, 17.06288>} object {atom_O translate <11.17284, -4.12533, 19.27532>} object {atom_C translate <9.47899, -5.52515, 14.41470>} object {atom_C translate <11.68973, -4.12130, 12.55964>} object {atom_N translate <10.96842, -4.45219, 9.52973>} object {atom_C translate <10.62673, -6.91459, 8.03436>} object {atom_N translate <10.25093, -6.48032, 5.24531>} object {atom_C translate <10.32740, -3.63534, 4.99598>} object {atom_C translate <10.07828, -1.81905, 2.59628>} object {atom_N translate <9.69379, -2.83079, -0.08007>} object {atom_N translate <10.23292, 0.96280, 3.05300>} object {atom_C translate <10.63626, 1.93514, 5.67767>} object {atom_N translate <10.91313, 0.48871, 8.07864>} object {atom_C translate <10.72671, -2.33170, 7.56048>} object {atom_P translate <8.31198, -3.29196, 20.86833>} object {atom_O translate <6.27092, -5.65183, 20.68340>} object {atom_O translate <9.05468, -2.20142, 23.70442>} object {atom_O translate <7.11319, -0.67280, 19.11326>} object {atom_C translate <8.46386, 2.03449, 19.34734>} object {atom_C translate <6.80708, 3.92239, 17.43551>} object {atom_O translate <6.64948, 2.42512, 14.80935>} object {atom_C translate <3.74942, 4.50790, 18.29154>} object {atom_O translate <3.21834, 7.48825, 18.68979>} object {atom_C translate <2.07442, 3.06804, 15.92807>} object {atom_C translate <4.11929, 3.35636, 13.47880>} object {atom_N translate <3.58122, 1.22718, 11.22993>} object {atom_C translate <3.44924, -1.65403, 11.49982>} object {atom_N translate <3.14759, -2.98627, 9.00861>} object {atom_C translate <3.10204, -0.85985, 7.09783>} object {atom_C translate <2.93406, -0.87277, 4.07067>} object {atom_N translate <2.81606, -3.31441, 2.52680>} object {atom_N translate <3.00714, 1.62289, 2.75770>} object {atom_C translate <3.20966, 3.99335, 4.28526>} object {atom_N translate <3.38675, 4.28759, 7.08385>} object {atom_C translate <3.32108, 1.73071, 8.36653>} object {atom_P translate <0.10285, 8.68725, 19.28421>} object {atom_O translate <-1.69587, 6.55595, 20.74822>} object {atom_O translate <0.29880, 11.49346, 20.66306>} object {atom_O translate <-1.00951, 9.18168, 16.15198>} object {atom_C translate <0.56804, 10.97234, 14.29226>} object {atom_C translate <-1.14106, 10.93951, 11.62650>} object {atom_O translate <-1.18576, 8.11889, 10.59294>} object {atom_C translate <-4.23792, 11.67035, 12.09402>} object {atom_O translate <-4.76306, 14.57527, 11.41508>} object {atom_C translate <-5.84132, 9.46702, 10.31819>} object {atom_C translate <-3.45581, 8.05449, 8.64679>} object {atom_N translate <-3.87737, 5.00297, 8.04369>} object {atom_C translate <-3.90893, 4.12427, 5.31352>} object {atom_O translate <-3.72337, 5.86854, 3.37203>} object {atom_N translate <-4.09281, 1.28395, 4.78774>} object {atom_C translate <-4.29554, -0.69673, 6.89743>} object {atom_O translate <-4.34892, -3.22205, 6.21828>} object {atom_C translate <-4.37074, 0.25018, 9.69644>} object {atom_C translate <-4.70417, -1.80803, 12.10652>} object {atom_C translate <-4.12056, 3.14431, 10.23620>} object {atom_P translate <-7.89085, 15.85287, 11.39983>} object {atom_O translate <-9.72324, 14.49224, 13.55316>} object {atom_O translate <-7.60254, 18.95671, 11.65319>} object {atom_O translate <-8.95745, 15.10741, 8.26315>} object {atom_C translate <-7.40150, 16.18715, 5.85244>} object {atom_C translate <-8.71765, 14.83838, 3.29831>} object {atom_O translate <-8.79370, 11.86863, 3.87853>} object {atom_C translate <-11.80158, 15.64463, 2.76046>} object {atom_O translate <-12.16064, 17.46813, 0.32030>} object {atom_C translate <-13.35668, 12.77995, 2.71915>} object {atom_C translate <-10.93262, 10.75500, 2.07516>} object {atom_N translate <-11.38384, 7.79605, 3.06720>} object {atom_C translate <-11.18132, 5.60056, 1.20154>} object {atom_O translate <-10.81908, 6.04013, -1.33648>} object {atom_N translate <-11.24996, 2.90154, 2.22196>} object {atom_C translate <-11.58995, 2.32153, 5.04025>} object {atom_O translate <-11.53488, -0.18493, 5.76834>} object {atom_C translate <-11.91936, 4.58141, 6.92688>} object {atom_C translate <-12.36613, 4.07491, 10.05064>} object {atom_C translate <-11.73273, 7.34632, 5.90116>} object {atom_P translate <-15.22212, 18.21168, -0.93759>} object {atom_O translate <-17.41443, 18.11148, 1.28818>} object {atom_O translate <-15.04037, 20.86283, -2.55879>} object {atom_O translate <-15.62313, 15.69229, -3.13922>} object {atom_C translate <-13.58462, 15.32857, -5.38322>} object {atom_C translate <-14.53767, 12.82126, -7.11054>} object {atom_O translate <-14.70058, 10.42008, -5.26183>} object {atom_C translate <-17.43349, 13.06021, -8.49893>} object {atom_O translate <-17.30872, 12.41135, -11.46274>} object {atom_C translate <-19.26123, 11.06004, -6.71123>} object {atom_C translate <-17.10917, 8.76690, -6.07995>} object {atom_N translate <-17.84065, 7.03830, -3.52921>} object {atom_C translate <-17.77837, 4.14757, -3.70737>} object {atom_O translate <-17.39896, 3.04580, -6.03547>} object {atom_N translate <-18.08934, 2.57171, -1.37038>} object {atom_C translate <-18.52488, 3.80079, 1.13248>} object {atom_N translate <-18.80832, 2.16223, 3.48240>} object {atom_C translate <-18.71342, 6.74258, 1.39622>} object {atom_C translate <-18.34058, 8.38877, -1.02085>} object {atom_P translate <-19.67389, 13.58197, -13.60464>} object {atom_O translate <-21.14785, 16.07657, -12.37047>} object {atom_O translate <-18.27830, 13.88998, -16.41424>} object {atom_O translate <-21.90920, 11.05030, -13.75610>} object {atom_C translate <-21.09341, 8.41631, -15.05869>} object {atom_C translate <-23.35880, 6.29836, -14.39437>} object {atom_O translate <-23.15946, 5.68000, -11.42927>} object {atom_C translate <-26.43257, 7.23214, -14.84410>} object {atom_O translate <-28.10651, 4.95912, -15.90731>} object {atom_C translate <-27.31466, 8.06720, -11.86079>} object {atom_C translate <-26.00402, 5.53108, -10.44698>} object {atom_N translate <-25.97373, 5.66899, -7.33000>} object {atom_C translate <-26.11396, 7.92569, -5.52472>} object {atom_N translate <-26.05380, 7.14020, -2.79435>} object {atom_C translate <-25.85595, 4.29289, -2.92294>} object {atom_C translate <-25.68944, 2.25544, -0.69864>} object {atom_O translate <-25.67440, 2.63844, 1.87519>} object {atom_N translate <-25.50154, -0.43660, -1.76101>} object {atom_C translate <-25.47464, -1.20938, -4.54370>} object {atom_N translate <-25.26407, -4.01093, -5.17392>} object {atom_N translate <-25.61191, 0.68402, -6.61569>} object {atom_C translate <-25.77990, 3.34979, -5.64102>} object {atom_P translate <-28.94263, 4.89154, -19.18211>} object {atom_O translate <-31.69737, 6.36064, -19.42847>} object {atom_O translate <-26.58594, 5.98590, -20.93951>} object {atom_O translate <-29.17777, 1.57904, -19.78521>} object {atom_C translate <-26.58657, -0.06292, -19.97396>} object {atom_C translate <-27.00368, -2.86765, -18.48792>} object {atom_O translate <-27.59047, -2.24378, -15.58553>} object {atom_C translate <-29.44532, -4.74304, -19.46004>} object {atom_O translate <-28.63949, -7.67318, -19.74305>} object {atom_C translate <-31.71431, -4.16727, -17.22388>} object {atom_C translate <-29.82981, -4.05097, -14.63311>} object {atom_N translate <-31.15294, -2.47511, -12.26519>} object {atom_C translate <-31.40058, -3.74571, -9.69729>} object {atom_O translate <-30.63331, -6.22273, -9.49414>} object {atom_N translate <-32.39304, -2.28086, -7.48168>} object {atom_C translate <-33.15524, 0.42855, -7.77825>} object {atom_N translate <-34.03838, 1.95166, -5.48702>} object {atom_C translate <-32.98386, 1.78050, -10.38491>} object {atom_C translate <-31.93886, 0.25654, -12.67869>} object {atom_P translate <-30.57823, -9.74750, -21.58138>} object {atom_O translate <-32.10706, -8.03818, -23.70442>} object {atom_O translate <-28.82951, -12.12135, -22.65328>} object {atom_O translate <-32.82625, -10.98759, -19.37043>} object {atom_C translate <-32.08164, -13.32416, -17.54015>} object {atom_C translate <-34.59107, -13.75525, -15.62557>} object {atom_O translate <-34.97344, -11.13779, -14.18867>} object {atom_C translate <-37.50214, -14.33738, -16.99891>} object {atom_O translate <-38.51388, -17.17622, -16.55998>} object {atom_C translate <-39.41101, -12.06097, -15.67344>} object {atom_C translate <-37.74406, -11.30514, -13.02928>} object {atom_N translate <-38.39165, -8.41800, -12.04403>} object {atom_C translate <-38.78164, -6.02847, -13.64425>} object {atom_N translate <-39.31568, -3.73576, -12.05970>} object {atom_C translate <-39.23582, -4.71847, -9.37699>} object {atom_C translate <-39.57624, -3.22756, -6.75889>} object {atom_O translate <-40.03593, -0.69334, -6.35407>} object {atom_N translate <-39.40232, -5.03030, -4.48503>} object {atom_C translate <-38.94434, -7.87294, -4.55430>} object {atom_N translate <-38.95958, -9.27107, -2.03957>} object {atom_N translate <-38.53654, -9.25794, -6.98598>} object {atom_C translate <-38.69881, -7.55392, -9.28590>} object {atom_O translate <-43.67996, 2.27662, 12.88651>} object {atom_C translate <-45.27319, -0.20591, 13.69297>} object {atom_C translate <-43.85134, -2.82549, 12.52342>} object {atom_O translate <-43.94963, -2.75410, 9.47931>} object {atom_C translate <-40.77376, -3.28984, 13.31166>} object {atom_O translate <-40.23019, -6.16490, 14.04801>} object {atom_C translate <-39.22968, -2.33106, 10.64526>} object {atom_C translate <-41.20358, -3.45910, 8.38178>} object {atom_N translate <-41.00255, -1.74109, 5.76135>} object {atom_C translate <-40.31704, -2.94391, 3.22459>} object {atom_O translate <-39.78299, -5.47982, 3.15702>} object {atom_N translate <-40.33695, -1.38796, 0.86387>} object {atom_C translate <-41.04830, 1.33182, 0.94628>} object {atom_N translate <-41.18367, 2.82613, -1.51612>} object {atom_C translate <-41.75711, 2.65835, 3.48897>} object {atom_C translate <-41.73804, 1.03695, 5.94861>} object {atom_P translate <-37.51845, -6.92349, 15.94247>} object {atom_O translate <-35.70618, -4.38123, 16.17084>} object {atom_O translate <-38.39589, -8.24366, 18.66776>} object {atom_O translate <-35.97670, -9.20286, 13.97938>} object {atom_C translate <-37.52226, -11.58222, 12.87824>} object {atom_C translate <-35.67229, -12.66111, 10.56159>} object {atom_O translate <-35.61192, -10.58531, 8.37055>} object {atom_C translate <-32.61124, -13.03755, 11.46084>} object {atom_O translate <-31.72236, -15.89142, 11.06280>} object {atom_C translate <-30.99343, -10.85371, 9.66064>} object {atom_C translate <-32.87540, -10.64590, 7.07305>} object {atom_N translate <-32.65042, -7.79499, 5.81770>} object {atom_C translate <-32.75656, -5.27327, 7.23701>} object {atom_N translate <-32.64238, -3.03161, 5.50015>} object {atom_C translate <-32.44833, -4.17977, 2.89751>} object {atom_C translate <-32.28628, -2.78291, 0.21671>} object {atom_O translate <-32.33415, -0.22285, -0.29551>} object {atom_N translate <-32.03885, -4.69114, -1.96098>} object {atom_C translate <-31.99373, -7.56811, -1.73029>} object {atom_N translate <-31.63805, -9.09461, -4.14820>} object {atom_N translate <-32.19328, -8.87176, 0.78062>} object {atom_C translate <-32.43139, -7.06923, 2.99665>} object {atom_P translate <-28.56810, -16.87456, 11.72267>} object {atom_O translate <-27.31085, -14.90235, 13.79317>} object {atom_O translate <-28.69542, -19.90659, 12.48338>} object {atom_O translate <-27.03863, -16.55130, 8.71140>} object {atom_C translate <-27.92687, -18.21803, 6.31318>} object {atom_C translate <-26.44697, -16.92540, 3.81731>} object {atom_O translate <-27.05156, -13.97810, 3.83426>} object {atom_C translate <-23.24526, -16.98662, 4.01919>} object {atom_O translate <-22.15747, -19.60705, 2.99793>} object {atom_C translate <-22.38986, -14.46745, 2.23722>} object {atom_C translate <-25.08253, -12.74627, 1.95632>} object {atom_N translate <-24.77451, -9.81740, 2.97971>} object {atom_C translate <-24.86179, -7.68462, 1.05601>} object {atom_O translate <-25.00288, -8.32818, -1.46232>} object {atom_N translate <-24.81159, -4.99492, 1.92391>} object {atom_C translate <-24.63788, -4.38589, 4.67653>} object {atom_N translate <-24.64678, -1.63708, 5.55396>} object {atom_C translate <-24.48324, -6.51803, 6.70699>} object {atom_C translate <-24.58259, -9.31513, 5.80456>} object {atom_P translate <-18.85514, -20.22117, 2.69775>} object {atom_O translate <-17.23987, -18.76966, 4.94471>} object {atom_O translate <-18.57911, -23.30425, 2.53887>} object {atom_O translate <-18.08595, -18.96921, -0.33237>} object {atom_C translate <-19.12290, -20.31756, -2.84837>} object {atom_C translate <-18.37935, -18.30807, -5.17901>} object {atom_O translate <-19.10680, -15.57155, -4.06834>} object {atom_C translate <-15.28483, -18.12334, -6.02890>} object {atom_O translate <-14.94123, -18.09856, -9.04907>} object {atom_C translate <-14.22987, -15.49211, -4.45389>} object {atom_C translate <-16.82976, -13.61777, -4.58713>} object {atom_N translate <-16.80412, -11.59048, -2.17155>} object {atom_C translate <-16.19403, -12.09847, 0.62132>} object {atom_N translate <-16.40460, -9.77546, 2.25310>} object {atom_C translate <-17.12591, -7.72021, 0.40715>} object {atom_C translate <-17.62966, -4.77779, 0.89078>} object {atom_O translate <-17.51060, -3.43664, 3.10935>} object {atom_N translate <-18.20946, -3.37606, -1.58730>} object {atom_C translate <-18.35224, -4.53057, -4.21620>} object {atom_N translate <-18.80853, -2.75791, -6.44092>} object {atom_N translate <-17.95292, -7.28531, -4.66170>} object {atom_C translate <-17.35744, -8.73915, -2.28530>} object {atom_P translate <-11.90707, -17.62044, -10.43893>} object {atom_O translate <-9.71053, -18.33052, -8.31060>} object {atom_O translate <-11.68507, -19.09970, -13.18541>} object {atom_O translate <-12.06235, -14.34246, -11.16935>} object {atom_C translate <-14.36058, -13.41059, -12.94540>} object {atom_C translate <-13.91318, -10.41330, -13.86689>} object {atom_O translate <-14.06040, -8.57349, -11.45025>} object {atom_C translate <-11.09404, -9.82482, -15.27900>} object {atom_O translate <-11.32791, -7.70305, -17.41559>} object {atom_C translate <-9.31969, -8.95755, -12.71704>} object {atom_C translate <-11.41413, -7.12240, -11.11872>} object {atom_N translate <-10.86314, -7.14338, -7.99984>} object {atom_C translate <-10.17424, -9.37106, -6.26001>} object {atom_N translate <-9.99249, -8.61988, -3.51354>} object {atom_C translate <-10.58923, -5.82426, -3.53070>} object {atom_C translate <-10.79069, -3.74550, -1.32399>} object {atom_N translate <-10.42167, -4.36025, 1.47714>} object {atom_N translate <-11.38786, -1.08927, -2.09423>} object {atom_C translate <-11.81599, -0.48045, -4.82608>} object {atom_N translate <-11.73761, -2.20417, -7.06351>} object {atom_C translate <-11.09976, -4.86527, -6.22654>} object {atom_P translate <-8.58800, -6.64619, -19.06411>} object {atom_O translate <-6.35057, -8.85396, -18.84359>} object {atom_O translate <-9.36608, -5.77321, -21.97646>} object {atom_O translate <-7.84763, -3.85714, -17.32196>} object {atom_C translate <-9.95457, -1.68496, -17.07983>} object {atom_C translate <-8.60580, 0.80308, -15.64251>} object {atom_O translate <-8.27279, 0.23599, -12.67636>} object {atom_C translate <-5.72947, 1.72415, -16.78855>} object {atom_O translate <-5.69515, 4.70682, -17.31603>} object {atom_C translate <-3.75175, 0.72639, -14.42762>} object {atom_C translate <-5.55746, 1.23904, -11.82350>} object {atom_N translate <-4.77239, -0.67195, -9.45558>} object {atom_C translate <-4.18920, -3.51523, -9.53947>} object {atom_N translate <-3.71701, -4.61933, -6.95865>} object {atom_C translate <-4.03117, -2.38804, -5.20125>} object {atom_C translate <-3.84136, -2.14676, -2.19379>} object {atom_N translate <-3.28613, -4.39584, -0.48024>} object {atom_N translate <-4.26059, 0.40673, -1.06681>} object {atom_C translate <-4.85797, 2.59649, -2.73821>} object {atom_N translate <-5.12022, 2.65221, -5.54082>} object {atom_C translate <-4.67515, 0.04216, -6.63433>} object {atom_P translate <-2.89106, 6.35068, -18.26422>} object {atom_O translate <-0.73285, 4.34987, -19.31006>} object {atom_O translate <-3.69816, 8.70547, -20.15359>} object {atom_O translate <-1.92825, 7.77592, -15.36522>} object {atom_C translate <-3.84644, 9.66382, -13.93065>} object {atom_C translate <-2.45382, 10.35314, -11.15494>} object {atom_O translate <-1.95346, 7.74732, -9.70322>} object {atom_C translate <0.42865, 11.78410, -11.40195>} object {atom_O translate <0.29414, 14.70132, -10.55629>} object {atom_C translate <2.36336, 9.87714, -9.65047>} object {atom_C translate <0.25367, 8.35106, -7.76152>} object {atom_N translate <1.30206, 5.54082, -6.83430>} object {atom_C translate <1.64587, 5.00255, -4.01919>} object {atom_O translate <1.24762, 6.88070, -2.24188>} object {atom_N translate <2.37544, 2.32937, -3.20553>} object {atom_C translate <2.86245, 0.21184, -5.11228>} object {atom_O translate <3.50517, -2.13384, -4.18210>} object {atom_C translate <2.60719, 0.81960, -8.00005>} object {atom_C translate <3.19695, -1.43350, -10.16376>} object {atom_C translate <1.75624, 3.51989, -8.84591>} object {atom_P translate <3.03764, 16.69132, -10.55036>} object {atom_O translate <5.02595, 15.78105, -12.79203>} object {atom_O translate <2.07336, 19.65344, -10.65374>} object {atom_O translate <4.28833, 16.15537, -7.46961>} object {atom_C translate <2.50551, 16.77775, -5.08156>} object {atom_C translate <4.17754, 16.06449, -2.50286>} object {atom_O translate <4.78636, 13.11423, -2.53400>} object {atom_C translate <7.02951, 17.52999, -2.29145>} object {atom_O translate <7.17526, 19.12110, 0.27030>} object {atom_C translate <9.12903, 15.05890, -2.48104>} object {atom_C translate <7.38180, 12.76131, -1.06660>} object {atom_N translate <8.24970, 9.86718, -1.87540>} object {atom_C translate <8.62550, 7.85685, 0.15591>} object {atom_O translate <8.34269, 8.44046, 2.68970>} object {atom_N translate <9.24237, 5.16248, -0.68593>} object {atom_C translate <9.46564, 4.40453, -3.46715>} object {atom_O translate <10.01324, 1.91078, -4.01220>} object {atom_C translate <9.06209, 6.48922, -5.52515>} object {atom_C translate <9.24618, 5.81812, -8.62094>} object {atom_C translate <8.44543, 9.24311, -4.68246>} object {atom_P translate <9.94122, 20.84397, 1.13736>} object {atom_O translate <11.60499, 21.50850, -1.43266>} object {atom_O translate <9.08412, 23.30425, 2.88205>} object {atom_O translate <11.55521, 18.63853, 3.11274>} object {atom_C translate <10.15645, 17.60307, 5.61709>} object {atom_C translate <12.29855, 15.80796, 7.07898>} object {atom_O translate <12.63579, 13.30128, 5.43130>} object {atom_C translate <15.20475, 17.20842, 7.19167>} object {atom_O translate <15.97181, 18.05831, 10.02182>} object {atom_C translate <17.15980, 15.01632, 5.84672>} object {atom_C translate <15.41849, 12.30798, 5.96323>} object {atom_N translate <15.89598, 10.50503, 3.44448>} object {atom_C translate <16.19488, 7.67276, 3.79804>} object {atom_O translate <16.24318, 6.75338, 6.24434>} object {atom_N translate <16.36858, 5.97933, 1.52460>} object {atom_C translate <16.23830, 7.05991, -1.08461>} object {atom_N translate <16.33384, 5.30801, -3.37415>} object {atom_C translate <15.94321, 9.96378, -1.53392>} object {atom_C translate <15.74959, 11.71271, 0.82956>} object {atom_P translate <18.86933, 19.72717, 10.62196>} object {atom_O translate <19.73256, 21.44792, 8.12037>} object {atom_O translate <18.60538, 21.27824, 13.34704>} object {atom_O translate <21.09743, 17.21604, 10.99056>} object {atom_C translate <20.92966, 15.30167, 13.35700>} object {atom_C translate <23.31008, 13.20426, 12.99814>} object {atom_O translate <22.72985, 11.47630, 10.55163>} object {atom_C translate <26.25759, 14.44033, 12.44207>} object {atom_O translate <28.35711, 12.63908, 13.55824>} object {atom_C translate <26.34253, 14.49287, 9.22044>} object {atom_C translate <25.23484, 11.52778, 8.83405>} object {atom_N translate <24.50230, 11.01407, 5.85138>} object {atom_C translate <23.93225, 12.92527, 3.74550>} object {atom_N translate <23.44417, 11.66907, 1.24264>} object {atom_C translate <23.71469, 8.87727, 1.82032>} object {atom_C translate <23.46493, 6.48308, -0.00741>} object {atom_O translate <22.99529, 6.42143, -2.57616>} object {atom_N translate <23.89030, 3.99695, 1.44727>} object {atom_C translate <24.49383, 3.70101, 4.25433>} object {atom_N translate <24.92640, 1.03822, 5.27243>} object {atom_N translate <24.75587, 5.93442, 5.95963>} object {atom_C translate <24.32097, 8.41843, 4.60217>} object {atom_P translate <29.80798, 13.32564, 16.52121>} object {atom_O translate <31.72512, 15.78275, 16.08123>} object {atom_O translate <27.61187, 13.65823, 18.75080>} object {atom_O translate <31.59971, 10.49316, 17.04382>} object {atom_C translate <30.17489, 7.87252, 17.78461>} object {atom_C translate <31.55077, 5.48342, 16.16427>} object {atom_O translate <30.68457, 5.91324, 13.30213>} object {atom_C translate <34.79718, 5.50079, 16.11639>} object {atom_O translate <36.09193, 3.18900, 17.63336>} object {atom_C translate <35.51086, 5.66390, 12.97357>} object {atom_C translate <32.79490, 4.64729, 11.58307>} object {atom_N translate <32.46613, 5.96980, 8.74042>} object {atom_C translate <32.10282, 4.27552, 6.44410>} object {atom_O translate <32.08503, 1.70148, 6.82371>} object {atom_N translate <31.78549, 5.42431, 3.86413>} object {atom_C translate <31.80434, 8.23794, 3.53006>} object {atom_N translate <31.47112, 9.38970, 0.89925>} object {atom_C translate <32.20027, 10.04725, 5.83507>} object {atom_C translate <32.54259, 8.85375, 8.50464>} object {atom_P translate <39.47520, 3.11317, 17.99391>} object {atom_O translate <40.71233, 5.96196, 17.42089>} object {atom_O translate <40.21684, 1.82943, 20.75648>} object {atom_O translate <40.48883, 1.07719, 15.48279>} object {atom_C translate <39.71415, -1.87137, 15.44000>} object {atom_C translate <40.62822, -2.85875, 12.56896>} object {atom_O translate <38.89434, -1.41253, 10.56116>} object {atom_C translate <43.58188, -1.93302, 11.74512>} object {atom_O translate <45.74982, -3.60908, 13.02547>} object {atom_C translate <43.40224, -2.34822, 8.56057>} object {atom_C translate <40.37020, -1.41889, 7.91764>} object {atom_N translate <40.14651, 1.48689, 6.79808>} object {atom_C translate <40.41321, 4.03148, 8.16274>} object {atom_N translate <39.94526, 6.24582, 6.45512>} object {atom_C translate <39.36356, 5.02648, 3.93658>} object {atom_C translate <38.63674, 6.31340, 1.30365>} object {atom_O translate <38.31496, 8.83977, 0.75965>} object {atom_N translate <38.32343, 4.31492, -0.79121>} object {atom_C translate <38.59670, 1.44770, -0.51752>} object {atom_N translate <38.36983, -0.17837, -2.89116>} object {atom_N translate <39.16803, 0.25060, 1.96903>} object {atom_C translate <39.50167, 2.15502, 4.06982>} } object {molecule_DNA rotate } plane { z, -50.0 texture { pigment { marble turbulence 1 color_map { [0.0, 0.8 color red 0.9 green 0.9 blue 0.9 color red 0.5 green 0.5 blue 0.5] [0.8, 1.01 color red 0.5 green 0.5 blue 0.5 color red 0.2 green 0.2 blue 0.2] } scale 30 } finish { ambient 0.3 diffuse 0.7 } } rotate 5*x } light_source { <465.31511, -843.39145, 268.64980> color red 1.00 green 1.00 blue 1.00 } camera { location <0.00, -150.00, 0.0> direction <0.0, -1.33, 0.0> up <0.00, 0.00, 1.00> sky <0.00, 0.00, 1.00> right <-1.0, 0.00, 0.00> look_at <0.00, 0.00, -0.10> } 38, -16.99891>} object {atom_O translate ./ImageMagick/combine.c 644 24 24 56453 5555556164 10211 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % CCCC OOO M M BBBB IIIII N N EEEEE % % C O O MM MM B B I NN N E % % C O O M M M BBBB I N N N EEE % % C O O M M B B I N NN E % % CCCC OOO M N BBBB IIIII N N EEEEE % % % % % % Digitally combine two images. % % % % % % % % Software Design % % John Cristy % % January 1993 % % % % % % Copyright 1994 E. I. Dupont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. Dupont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. Dupont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. Dupont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. Dupont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % The combine program syntax is: % % Usage: combine [options ...] input_file1 input_file2 output_file % % Where options include: % -colors value preferred number of colors in the image % -compose operator composite operator % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -comment string annotate image with comment % -compress type RunlengthEncoded or QEncoded % -density geometry vertical and horizontal density of the image % -display server obtain image or font from this X server % -dither apply Floyd/Steinberg error diffusion to image % -font name X11 font for displaying text % -geometry geometry width and height of the image % -interlace type NONE, LINE, or PLANE % -label name assign a label to an image % -matte store matte channel if the image has one % -monochrome transform image to black and white % -page geometry size and location of the Postscript page % -quality value JPEG quality setting % -scene value image scene number % -stereo combine two images to form red-green stereo image % -treedepth value depth of the color classification tree % -verbose print detailed information about the image % % Change '-' to '+' in any option above to reverse its effect. For % example, specify +matte to store the image without its matte channel. % % */ #include "magick.h" #include "image.h" #include "X.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Usage displays the program usage; % % The format of the Usage routine is: % % Usage() % % */ static void Usage() { char **p; static char *options[]= { "-colors value preferred number of colors in the image", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-comment string annotate image with comment", "-compose operator composite operator", "-compress type RunlengthEncoded or QEncoded", "-density geometry vertical and horizontal density of the image", "-display server obtain image or font from this X server", "-dither apply Floyd/Steinberg error diffusion to image", "-font name X11 font for displaying text", "-geometry geometry width and height of the image", "-interlace type NONE, LINE, or PLANE", "-label name assign a label to an image", "-matte store matte channel if the image has one", "-monochrome transform image to black and white", "-page geometry size and location of the Postscript page", "-quality value JPEG quality setting", "-scene value image scene number", "-stereo combine two images to form red-green stereo image", "-treedepth value depth of the color classification tree", "-verbose print detailed information about the image", (char *) NULL }; (void) fprintf(stderr, "Usage: %s [options ...] input_file1 input_file2 output_file\n", client_name); (void) fprintf(stderr,"\nWhere options include:\n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect. For\n"); (void) fprintf(stderr, "example, specify +matte to store the image without an matte channel.\n"); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char *argv[]; { #define NotInitialized (unsigned int) (~0) char *comment, *density, *filename, *font, *image_geometry, *label, *option, *page_geometry, *server_name; double normalized_maximum_error, normalized_mean_error; Image *alpha_image, *beta_image, *combined_image; ImageInfo image_info; int i, status, x; time_t start_time; unsigned int colorspace, compose, compression, dither, interlace, matte, mean_error_per_pixel, monochrome, number_colors, quality, scene, stereo, tree_depth, verbose; unsigned long total_colors; /* Initialize program variables. */ client_name=argv[0]; if (argc < 4) Usage(); /* Read image and convert to MIFF format. */ alpha_image=(Image *) NULL; beta_image=(Image *) NULL; colorspace=RGBColorspace; comment=(char *) NULL; compose=OverCompositeOp; compression=UndefinedCompression; density=(char *) NULL; dither=False; font=(char *) NULL; image_geometry=(char *) NULL; interlace=NoneInterlace; label=(char *) NULL; matte=NotInitialized; monochrome=False; number_colors=0; page_geometry=(char *) NULL; quality=85; scene=0; server_name=(char *) NULL; start_time=time((time_t *) NULL); stereo=False; tree_depth=0; verbose=False; /* Check command syntax. */ filename=(char *) NULL; for (i=1; i < (argc-1); i++) { option=argv[i]; if (((int) strlen(option) < 2) || ((*option != '-') && (*option != '+'))) { /* Read input images. */ filename=argv[i]; GetImageInfo(filename,&image_info); image_info.server_name=server_name; image_info.font=font; image_info.geometry=image_geometry; image_info.page=page_geometry; image_info.density=density; image_info.interlace=interlace; image_info.quality=quality; image_info.verbose=verbose; if (alpha_image == (Image *) NULL) { alpha_image=ReadImage(&image_info); if (alpha_image == (Image *) NULL) exit(1); continue; } if (beta_image != (Image *) NULL) Error("input images already specified",filename); beta_image=ReadImage(&image_info); if (beta_image == (Image *) NULL) exit(1); } else switch(*(option+1)) { case 'c': { if (strncmp("colors",option+1,7) == 0) { number_colors=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing colors on -colors",(char *) NULL); number_colors=atoi(argv[i]); } break; } if (strncmp("colorspace",option+1,7) == 0) { colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) { colorspace=GRAYColorspace; number_colors=256; tree_depth=8; } if (Latin1Compare("ohta",option) == 0) colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) colorspace=YUVColorspace; if (colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } if (strncmp("comment",option+1,4) == 0) { comment=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing comment on -comment",(char *) NULL); comment=argv[i]; } break; } if (strncmp("compose",option+1,5) == 0) { compose=ReplaceCompositeOp; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compose",(char *) NULL); option=argv[i]; compose=UndefinedCompositeOp; if (Latin1Compare("over",option) == 0) compose=OverCompositeOp; if (Latin1Compare("in",option) == 0) compose=InCompositeOp; if (Latin1Compare("out",option) == 0) compose=OutCompositeOp; if (Latin1Compare("atop",option) == 0) compose=AtopCompositeOp; if (Latin1Compare("xor",option) == 0) compose=XorCompositeOp; if (Latin1Compare("plus",option) == 0) compose=PlusCompositeOp; if (Latin1Compare("minus",option) == 0) compose=MinusCompositeOp; if (Latin1Compare("add",option) == 0) compose=AddCompositeOp; if (Latin1Compare("subtract",option) == 0) compose=SubtractCompositeOp; if (Latin1Compare("difference",option) == 0) compose=DifferenceCompositeOp; if (Latin1Compare("replace",option) == 0) compose=ReplaceCompositeOp; if (compose == UndefinedCompositeOp) Error("Invalid compose type on -compose",option); } break; } if (strncmp("compress",option+1,3) == 0) { compression=NoCompression; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compress",(char *) NULL); option=argv[i]; if (Latin1Compare("runlengthencoded",option) == 0) compression=RunlengthEncodedCompression; else if (Latin1Compare("qencoded",option) == 0) compression=QEncodedCompression; else Error("Invalid compression type on -compress",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("display",option+1,3) == 0) { server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } break; } if (strncmp("dither",option+1,3) == 0) { dither=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'f': { font=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing font name on -font",(char *) NULL); font=argv[i]; } break; } case 'g': { image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); image_geometry=argv[i]; } break; } case 'h': { Usage(); break; } case 'i': { if (strncmp("interlace",option+1,3) == 0) { interlace=NoneInterlace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } Error("Unrecognized option",option); break; } case 'm': { if (strncmp("matte",option+1,5) == 0) { matte=(*option == '-'); break; } if (strncmp("monochrome",option+1,2) == 0) { monochrome=(*option == '-'); if (monochrome) { number_colors=2; tree_depth=8; colorspace=GRAYColorspace; } break; } Error("Unrecognized option",option); break; } case 'l': { if (strncmp("label",option+1,2) == 0) { label=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing label name on -label",(char *) NULL); label=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'p': { if (strncmp("page",option+1,2) == 0) { page_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing page geometry on -page",(char *) NULL); page_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'q': { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing quality on -quality",(char *) NULL); quality=atoi(argv[i]); break; } case 's': { if (strncmp("scene",option+1,2) == 0) { scene=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing scene number on -scene",(char *) NULL); scene=atoi(argv[i]); } break; } if (strncmp("stereo",option+1,2) == 0) { stereo=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 't': { tree_depth=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing depth on -treedepth",(char *) NULL); tree_depth=atoi(argv[i]); } break; } case 'v': { verbose=(*option == '-'); break; } default: { Error("Unrecognized option",option); break; } } } if ((alpha_image == (Image *) NULL) || (beta_image == (Image *) NULL)) Usage(); /* Combine image. */ if (stereo) combined_image=StereoImage(alpha_image,beta_image); else { int x_offset, y_offset; unsigned int size; /* Digitally composite image. */ x_offset=0; y_offset=0; if (image_info.geometry != (char *) NULL) (void) XParseGeometry(image_info.geometry,&x_offset,&y_offset,&size, &size); CompositeImage(beta_image,compose,alpha_image,x_offset,y_offset); combined_image=beta_image; } if (combined_image == (Image *) NULL) exit(1); /* Write image. */ total_colors=0; if (matte != NotInitialized) combined_image->matte=matte; if (compression != UndefinedCompression) combined_image->compression=compression; if (scene != 0) combined_image->scene=scene; (void) strcpy(combined_image->filename,argv[i]); LabelImage(combined_image,label); if (comment != (char *) NULL) CommentImage(combined_image,comment); if (number_colors != 0) { /* Reduce the number of colors in the image. */ if ((combined_image->class == DirectClass) || (combined_image->colors > number_colors) || (colorspace == GRAYColorspace)) QuantizeImage(combined_image,number_colors,tree_depth,dither,colorspace, True); if (verbose) { /* Measure quantization error. */ QuantizationError(combined_image,&mean_error_per_pixel, &normalized_mean_error,&normalized_maximum_error); total_colors=NumberColors(combined_image,(FILE *) NULL); } SyncImage(combined_image); } status=WriteImage(&image_info,combined_image); if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s %s=>%s %ux%u",combined_image->scene, alpha_image->filename,filename,combined_image->filename, combined_image->columns,combined_image->rows); if (combined_image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",combined_image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, combined_image->colors); (void) fprintf(stderr," %u/%.6f/%.6fe",mean_error_per_pixel, normalized_mean_error,normalized_maximum_error); } (void) fprintf(stderr," %s %lds\n",combined_image->magick, time((time_t *) NULL)-start_time+1); } return(!status); } % % % % ./ImageMagick/convert.c 644 24 24 106237 5555556164 10271 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % CCCC OOO N N V V EEEEE RRRR TTTTT % % C O O NN N V V E R R T % % C O O N N N V V EEE RRRR T % % C O O N NN V V E R R T % % CCCC OOO N N V EEEEE R R T % % % % % % Convert an image from one format to another. % % % % % % % % Software Design % % John Cristy % % April 1992 % % % % % % Copyright 1994 E. I. Dupont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. Dupont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. Dupont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. Dupont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. Dupont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Convert converts an input file using one image format to an output file % with a differing image format. % % The convert program syntax is: % % Usage: convert [options ...] input_file output_file % % Where options include: % -border geometry surround image with a border of color % -colors value preferred number of colors in the image % -clip geometry preferred size and location of the clipped image % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -comment string annotate image with comment % -compress type RunlengthEncoded or QEncoded % -density geometry vertical and horizontal density of the image % -display server obtain image or font from this X server % -dither apply Floyd/Steinberg error diffusion to image % -enhance apply a digital filter to enhance a noisy image % -equalize perform histogram equalization to an image % -font name X11 font for displaying text % -gamma value level of gamma correction % -geometry geometry width and height of the image % -interlace type NONE, LINE, or PLANE % -inverse apply color inversion to image % -label name assign a label to an image % -matte store matte channel if the image has one % -monochrome transform image to black and white % -noise reduce noise with a noise peak elimination filter % -normalize transform image to span the full range of colors % -page geometry size and location of the Postscript page % -quality value JPEG quality setting % -reflect reverse image scanlines % -roll geometry roll an image vertically or horizontally % -rotate degrees apply Paeth rotation to the image % -scene value image scene number % -shear geometry slide one edge of the image along the X or Y axis % -treedepth value depth of the color classification tree % -undercolor geometry control undercolor removal and black generation % -verbose print detailed information about the image % % Change '-' to '+' in any option above to reverse its effect. For % example, specify +matte to store the image without its matte channel. % % By default, the image format of `file' is determined by its magic % number. To specify a particular image format, precede the filename % with an image format name and a colon (i.e. ps:image) or specify the % image type as the filename suffix (i.e. image.ps). Specify 'file' as % '-' for standard input or output. % % Convert recognizes the following image formats: % % Tag Description % --------------------------------------------------- % AVS AVS X image file. % BMP Microsoft Windows bitmap image file. % CMYK Raw cyan, magenta, yellow, and black bytes. % EPS Adobe Encapsulated PostScript file. % EPSF Adobe Encapsulated PostScript file. % EPSI Adobe Encapsulated PostScript Interchange format. % FAX Group 3. % FITS Flexible Image Transport System. % GIF Compuserve Graphics image file. % GIF87 Compuserve Graphics image file (version 87a). % GRAY Raw gray bytes. % HISTOGRAM % IRIS SGI RGB image file. % JPEG % MAP colormap intensities and indices % MATTE Raw matte bytes. % MIFF Magick image file format. % MTV % PCD Photo CD % PCX ZSoft IBM PC Paintbrush file % PICT Apple Macintosh QuickDraw/PICT file. % PNM Portable bitmap. % PS Adobe PostScript file. % PS2 Adobe Level II PostScript file. % RGB Raw red, green, and blue bytes. % RLE Utah Run length encoded image file; read only. % SUN SUN Rasterfile. % TEXT raw text file; read only. % TGA Truevision Targa image file. % TIFF Tagged Image File Format. % VICAR read only. % VIFF Khoros Visualization image file. % X select image from X server screen. % XC constant image of X server color. % XBM X11 bitmap file. % XPM X11 pixmap file. % XWD X Window System window dump image file. % YUV CCIR 601 1:1:1 file. % YUV3 CCIR 601 2:1:1 files. % % */ #include "magick.h" #include "image.h" #include "X.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Usage displays the program usage; % % The format of the Usage routine is: % % Usage() % % */ static void Usage() { char **p; static char *ImageTypes[]= { "Tag Description", "------------------------------------------------------------", "AVS AVS X image file.", "BMP Microsoft Windows bitmap image file.", "CMYK Raw cyan, magenta, yellow, and black bytes.", "EPS Adobe Encapsulated PostScript file.", "EPSF Adobe Encapsulated PostScript file.", "EPSI Adobe Encapsulated PostScript Interchange format.", "FAX Group 3.", "FITS Flexible Image Transport System.", "GIF Compuserve Graphics image file.", "GIF87 Compuserve Graphics image file (version 87a).", "GRAY Raw gray bytes.", "HISTOGRAM", "IRIS SGI RGB image file.", "JPEG", "MAP colormap intensities and indices.", "MATTE Raw matte bytes.", "MIFF Magick image file format.", "MTV", "PCD Photo CD.", "PCX ZSoft IBM PC Paintbrush file.", "PICT Apple Macintosh QuickDraw/PICT file.", "PNM Portable bitmap.", "PS Adobe PostScript file.", "PS2 Adobe Level II PostScript file.", "RGB Raw red, green, and blue bytes.", "RLE Utah Run length encoded image file; read only.", "SUN SUN Rasterfile.", "TEXT raw text file; read only.", "TGA Truevision Targa image file.", "TIFF Tagged Image File Format.", "VICAR read only.", "VIFF Khoros Visualization image file.", "X select image from X server screen.", "XC constant image of X server color.", "XBM X11 bitmap file.", "XPM X11 pixmap file.", "XWD X Window System window dump image file.", "YUV CCIR 601 1:1:1 file.", "YUV3 CCIR 601 2:1:1 files.", (char *) NULL, }, *options[]= { "-border geometry surround image with a border of color", "-clip geometry preferred size and location of the clipped image", "-colors value preferred number of colors in the image", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-comment string annotate image with comment", "-compress type RunlengthEncoded or QEncoded", "-density geometry vertical and horizontal density of the image", "-display server obtain image or font from this X server", "-dither apply Floyd/Steinberg error diffusion to image", "-enhance apply a digital filter to enhance a noisy image", "-equalize perform histogram equalization to an image", "-font name X11 font for displaying text", "-gamma value level of gamma correction", "-geometry geometry width and height of the image", "-interlace type NONE, LINE, or PLANE", "-inverse apply color inversion to image", "-label name assign a label to an image", "-matte store matte channel if the image has one", "-monochrome transform image to black and white", "-noise reduce noise with a noise peak elimination filter", "-normalize transform image to span the full range of colors", "-page geometry size and location of the Postscript page", "-quality value JPEG quality setting", "-reflect reverse image scanlines", "-roll geometry roll an image vertically or horizontally", "-rotate degrees apply Paeth rotation to the image", "-scene value image scene number", "-shear geometry slide one edge of the image along the X or Y axis", "-treedepth value depth of the color classification tree", "-undercolor geometry control undercolor removal and black generation", "-verbose print detailed information about the image", (char *) NULL }; (void) fprintf(stderr,"Usage: %s [options ...] input_file output_file\n", client_name); (void) fprintf(stderr,"\nWhere options include:\n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect. For\n"); (void) fprintf(stderr, "example, specify +matte to store the image without an matte channel.\n"); (void) fprintf(stderr, "\nBy default, the image format of `file' is determined by its magic\n"); (void) fprintf(stderr, "number. To specify a particular image format, precede the filename\n"); (void) fprintf(stderr, "with an image format name and a colon (i.e. ps:image) or specify the\n"); (void) fprintf(stderr, "image type as the filename suffix (i.e. image.ps). Specify 'file' as\n"); (void) fprintf(stderr,"'-' for standard input or output.\n"); (void) fprintf(stderr,"\nThe following image formats are recognized: \n\n"); for (p=ImageTypes; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char *argv[]; { #define NotInitialized (unsigned int) (~0) char *border_color, *comment, *density, *filename, *font, *label, *image_geometry, *option, *page_geometry, *server_name, *undercolor_geometry; double normalized_maximum_error, normalized_mean_error; Image *image, *next_image; ImageInfo image_info; int flags, status, x, y; register int i; time_t start_time; unsigned int colorspace, compression, dither, height, interlace, matte, monochrome, mean_error_per_pixel, number_colors, quality, scene, tree_depth, verbose, width; unsigned long total_colors; /* Initialize program variables. */ client_name=argv[0]; if (argc < 3) Usage(); /* Read image and convert to MIFF format. */ border_color=(char *) NULL; colorspace=RGBColorspace; compression=UndefinedCompression; comment=(char *) NULL; density=(char *) NULL; dither=False; font=(char *) NULL; image=(Image *) NULL; image_geometry=(char *) NULL; interlace=NoneInterlace; label=(char *) NULL; matte=NotInitialized; monochrome=False; number_colors=0; page_geometry=(char *) NULL; quality=85; scene=0; server_name=(char *) NULL; start_time=time((time_t *) NULL); tree_depth=0; undercolor_geometry=(char *) NULL; verbose=False; /* Check command syntax. */ filename=(char *) NULL; for (i=1; i < (argc-1); i++) { option=argv[i]; if (((int) strlen(option) < 2) || ((*option != '-') && (*option != '+'))) { /* Read input image. */ filename=argv[i]; GetImageInfo(filename,&image_info); image_info.server_name=server_name; image_info.font=font; image_info.geometry=image_geometry; image_info.page=page_geometry; image_info.density=density; image_info.interlace=interlace; image_info.monochrome=monochrome; image_info.quality=quality; image_info.verbose=verbose; image_info.undercolor=undercolor_geometry; if (image != (Image *) NULL) Error("input image already specified",filename); image=ReadImage(&image_info); if (image == (Image *) NULL) exit(1); } else switch(*(option+1)) { case 'b': { if (strncmp("border",option+1,7) == 0) { if (*option == '-') { i++; if (i == argc) Error("Missing geometry on -border",(char *) NULL); } break; } if (strncmp("bordercolor",option+1,7) == 0) { border_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -bordercolor",(char *) NULL); border_color=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'c': { if (strncmp("clip",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -clip",(char *) NULL); } break; } if (strncmp("colors",option+1,7) == 0) { number_colors=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing colors on -colors",(char *) NULL); number_colors=atoi(argv[i]); } break; } if (strncmp("colorspace",option+1,7) == 0) { colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) { colorspace=GRAYColorspace; number_colors=256; tree_depth=8; } if (Latin1Compare("ohta",option) == 0) colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) colorspace=YUVColorspace; if (colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } if (strncmp("comment",option+1,4) == 0) { comment=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing comment on -comment",(char *) NULL); comment=argv[i]; } break; } if (strncmp("compress",option+1,4) == 0) { compression=NoCompression; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compress",(char *) NULL); option=argv[i]; if (Latin1Compare("runlengthencoded",option) == 0) compression=RunlengthEncodedCompression; else if (Latin1Compare("qencoded",option) == 0) compression=QEncodedCompression; else Error("Invalid compression type on -compress",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("display",option+1,3) == 0) { server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } break; } if (strncmp("dither",option+1,3) == 0) { dither=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'e': { if (strncmp("enhance",option+1,2) == 0) break; if (strncmp("equalize",option+1,2) == 0) break; Error("Unrecognized option",option); break; } case 'f': { font=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing font name on -font",(char *) NULL); font=argv[i]; } break; } case 'g': { if (strncmp("gamma",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing value on -gamma",(char *) NULL); } break; } if (strncmp("geometry",option+1,2) == 0) { image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); image_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'h': { Usage(); break; } case 'i': { if (strncmp("interlace",option+1,3) == 0) { interlace=NoneInterlace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } if (strncmp("inverse",option+1,3) == 0) break; Error("Unrecognized option",option); } case 'l': { if (strncmp("label",option+1,2) == 0) { label=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing label name on -label",(char *) NULL); label=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'm': { if (strncmp("matte",option+1,5) == 0) { matte=(*option == '-'); break; } if (strncmp("monochrome",option+1,2) == 0) { monochrome=(*option == '-'); if (monochrome) { number_colors=2; tree_depth=8; colorspace=GRAYColorspace; } break; } Error("Unrecognized option",option); } case 'n': { if (strncmp("noise",option+1,3) == 0) break; if (strncmp("normalize",option+1,3) == 0) break; Error("Unrecognized option",option); break; } case 'p': { if (strncmp("page",option+1,2) == 0) { page_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing page geometry on -page",(char *) NULL); page_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'q': { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing quality on -quality",(char *) NULL); quality=atoi(argv[i]); break; } case 'r': { if (strncmp("reflect",option+1,2) == 0) break; if (strncmp("roll",option+1,3) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -roll",(char *) NULL); } break; } if (strncmp("rotate",option+1,3) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing degrees on -rotate",(char *) NULL); } break; } Error("Unrecognized option",option); break; } case 's': { if (strncmp("scene",option+1,3) == 0) { scene=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing scene number on -scene",(char *) NULL); scene=atoi(argv[i]); } break; } if (strncmp("shear",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing shear geometry on -shear",(char *) NULL); } break; } Error("Unrecognized option",option); break; } case 't': { tree_depth=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing depth on -treedepth",(char *) NULL); tree_depth=atoi(argv[i]); } break; } case 'u': { if (strncmp("undercolor",option+1,2) == 0) { undercolor_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing undercolor geometry on -undercolor", (char *) NULL); undercolor_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'v': { if (strncmp("verbose",option+1,1) == 0) { verbose=(*option == '-'); break; } Error("Unrecognized option",option); break; } default: { Error("Unrecognized option",option); break; } } } if (image == (Image *) NULL) Error("Missing an image file name",(char *) NULL); /* Write images. */ do { total_colors=0; if (matte != NotInitialized) image->matte=matte; if (compression != UndefinedCompression) image->compression=compression; if (scene != 0) image->scene=scene; LabelImage(image,label); if (comment != (char *) NULL) CommentImage(image,comment); (void) strcpy(image->filename,argv[i]); /* Transform image as defined by the image geometries. */ for (i=1; i < (argc-1); i++) { option=argv[i]; if (strncmp("-border",option,8) == 0) { Image *bordered_image; ImageInfo border_info; /* Surround image with a border of solid color. */ i++; border_info=image_info; (void) strcpy(border_info.filename,"XC:"); if (border_color != (char *) NULL) (void) strcat(border_info.filename,border_color); border_info.geometry="1x1"; bordered_image=ReadImage(&border_info); if (bordered_image != (Image *) NULL) { ColorPacket border_color; RectangleInfo border_info; DestroyImage(bordered_image); border_info.width=0; border_info.height=0; border_info.x=0; border_info.y=0; flags=XParseGeometry(argv[i],&border_info.x,&border_info.y, &border_info.width,&border_info.height); if ((flags & HeightValue) == 0) border_info.height=border_info.width; border_color.red=bordered_image->pixels->red; border_color.green=bordered_image->pixels->green; border_color.blue=bordered_image->pixels->blue; bordered_image= BorderImage(image,&border_info,&border_color,&border_color); if (bordered_image != (Image *) NULL) { DestroyImage(image); bordered_image->class=DirectClass; image=bordered_image; } } } if (strncmp("-clip",option,3) == 0) TransformImage(&image,argv[++i],(char *) NULL); if (strncmp("-enhance",option,2) == 0) { Image *enhanced_image; /* Enhance image. */ enhanced_image=EnhanceImage(image); if (enhanced_image != (Image *) NULL) { DestroyImage(image); image=enhanced_image; } } if (strncmp("-equalize",option,3) == 0) EqualizeImage(image); if (strncmp("-gamma",option,3) == 0) GammaImage(image,argv[++i]); if (strncmp("-geometry",option,4) == 0) TransformImage(&image,(char *) NULL,argv[++i]); if (strncmp("-inverse",option,4) == 0) InverseImage(image); if (strncmp("-noise",option,4) == 0) { Image *noisy_image; /* Reduce noise in image. */ noisy_image=NoisyImage(image); if (noisy_image != (Image *) NULL) { DestroyImage(image); image=noisy_image; } } if (strncmp("-normalize",option,4) == 0) NormalizeImage(image); if (strncmp("-reflect",option,3) == 0) { Image *reflected_image; /* Reverse image scanlines. */ reflected_image=ReflectImage(image); if (reflected_image != (Image *) NULL) { DestroyImage(image); image=reflected_image; } } if (strncmp("-roll",option,4) == 0) { Image *rolled_image; /* Roll image. */ x=0; y=0; flags=XParseGeometry(argv[++i],&x,&y,&width,&height); rolled_image=RollImage(image,x,y); if (rolled_image != (Image *) NULL) { DestroyImage(image); image=rolled_image; } } if (strncmp("-rotate",option,4) == 0) { Image *rotated_image; /* Rotate image. */ rotated_image=RotateImage(image,(double) atof(argv[++i]),False); if (rotated_image != (Image *) NULL) { DestroyImage(image); image=rotated_image; } } if (strncmp("-shear",option,3) == 0) { float x_shear, y_shear; Image *sheared_image; /* Shear image. */ x_shear=0.0; y_shear=0.0; (void) sscanf(argv[++i],"%fx%f",&x_shear,&y_shear); sheared_image=ShearImage(image,x_shear,y_shear,False); if (sheared_image != (Image *) NULL) { DestroyImage(image); image=sheared_image; } } } if (number_colors != 0) { /* Reduce the number of colors in the image. */ if ((image->class == DirectClass) || (image->colors > number_colors) || (colorspace == GRAYColorspace)) QuantizeImage(image,number_colors,tree_depth,dither,colorspace,True); if (verbose) { /* Measure quantization error. */ QuantizationError(image,&mean_error_per_pixel, &normalized_mean_error,&normalized_maximum_error); total_colors=NumberColors(image,(FILE *) NULL); } SyncImage(image); } status=WriteImage(&image_info,image); if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s=>%s %ux%u",image->scene,filename, image->filename,image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, image->colors); (void) fprintf(stderr," %u/%.6f/%.6fe",mean_error_per_pixel, normalized_mean_error,normalized_maximum_error); } (void) fprintf(stderr," %s %lds\n",image->magick, time((time_t *) NULL)-start_time+1); } next_image=image->next; image=next_image; } while (image != (Image *) NULL); return(!status); } an image vertically or horizontally", "-rotate degrees apply Paeth rotation to the image", "-scene value image scene number", "-shear geometry slide one edge of the image along the X or Y axis", "-treedepth value depth of the color classification tree", "-undercolor geometry control undercolor remova./ImageMagick/ChangeLog 644 24 24 42725 5554521746 10175 ImageMagick 3.0 o Encapsulated Postscript files without a *showpage* operator now displays/converts properly. o Added 'Cut' to the display(1) command menu (suggested by pederl@hpubgon.norway.hp.com). o Added an histogram equalization option to ImageMagick (thanks to muquit@warm.semcor.com). o Unknown image types are displayed as text within a viewer in display(1). o Added 'Matte Edit', 'Help', 'Trim Edges', and 'Color Edit' to the command menu in display(1). o Fixed the *client_name* "multiply defined" warnings on SGI (suggested by Dave@support.esd.sgi.com). o Split display(1) image commands into two menus activated with button 1 and 2. o Added 'Edit Comment' to the display(1) command menu (suggested by pederl@hpubgon.norway.hp.com). o Use format type EPSI to produce a Postscript file with preview bitmap. o Improved the appearance of the widgets. o Press F1 to get help within display(1) (suggested by pederl@hpubgon.norway.hp.com). o display(1) now has a clip image command. You can define a region to clip with button 1 and use the arrow keys to adjust (suggested by pederl@hpubgon.norway.hp.com). o Use -label to display a header above the Postscript image (suggested by miller@netsun.mdc.com). o Added font browser, pen color dialog, and text paste to annotation mode in display(1) (suggested by pederl@hpubgon.norway.hp.com). ImageMagick 2.3.[7-9] o The 'Image Info' menu command now displays the image comment. o Added new image type, MAP, colormap intensities and indices. o Animate an image sequence with a single filename, see Magick.faq for details (suggested by rjohnson@shell.com). o Within display(1), you can draw a line and the image will rotate so that the line is horizonal (suggested by rjohnson@shell.com). o Within display(1), you can gamma correct the image (suggested by rjohnson@shell.com). o Added YUV3 image type, suitable for MPEG utilities (suggested by rjohnson@shell.com). o Added -comment option to ImageMagick utilities (suggested by pederl@hpubgon.norway.hp.com). o Added GIF87 image type (suggested by pederl@hpubgon.norway.hp.com). o When converting an image with an matte channel to GIF, the transparency index is set (suggested by scott@shrug.org). o display(1) now rotates clipped images properly (thanks to rjohnson@shell.com). o Improved the scaling algorithm (suggested by rjohnson@shell.com). o Use -clip 0x0 to remove edges that are the background color (suggested by ruggier@ptsun00.cern.ch). ImageMagick 2.3.6 o `info' was not declared static in network.c (thanks to farnham@wales.stortek.com). o TIFF images with a .Z or .gz extension are now recognized. o SUN monochrome images are now written correctly (thanks to dang@cogit.ign.fr). o Animate(1) now displays the scene basename correctly (thanks to hayashi@mach.mie-u.ac.jp). o Grayscale VIFF images are now created correctly (thanks to hayashi@mach.mie-u.ac.jp). o ImageMagick can now read OS/2 BMP image files (suggested by tdi@prizm.att.com). o ImageMagick no longer reads from the same pipe twice (thanks to yhori@trl.mei.co.jp). o The YIQ colorspace now produces correct colors (thanks to rjohnson@shell.com). o ImageMagick now hides the fact that an image is being uncompressed. Previously the montage(1) label would be prefixed with '|uncompressed -c' (thanks to rjohnson@shell.com). o Animate(1) displays the name of each image of a sequence in the window frame (thanks to lare@eos913c.gsfc.nasa.gov). Use -title to use a static window name. o You can now apply a separate gamma correction to the red, green, and blue channels of an image (thanks to lare@eos913c.gsfc.nasa.gov). o Fixed memory leak in ReadPNMImage (thanks to jp@pong.polytechnique.fr). o import(1) now descends the X tree structure by default (see -descend). import(1) also *grabs* the server while obtaining an image (thanks to hyde@snmail.jsc.nasa.gov and hstroyan@fc.hp.com). o Quantize stopped dithering in 2.3.4, this has been fixed (thanks to pederl@hpubgon.norway.hp.com). o Changed distribution so programs are all in the top level directory and the library routines are in the *magick* directory (suggested by rjohnson@shell.com). ImageMagick 2.3.5 o Images with a huge number of unique colors sometimes did not quantize properly (thanks to rjohnson@shell.com). o -gravity Center no longer results in segmentation fault for montage(1) (thanks to rjohnson@shell.com). o Multi-part images (i.e. a multi-page Postscript document) are written with the filename followed by a period (\fB.\fP) and the scene number. You can now change this behavior by embedding a printf format specification in the file name. o ASCII PBM file and multi-part ASCII PNM files are now read correctly. o Previously the icon window had the same visual, depth, and colormap of the image window. It is now the same visual, depth, and colormap as the root window. o Improved color reduction algorithm-- average mean error per pixel has been reduced. Reducing an image to monochome has been improved. o Removed '-scale' from ImageMagick programs. Use '%' instead with -geometry (e.g. to double the image size, -geometry 200%). Also the aspect ratio of the image is now repected unless '!' is appended to the geometry specification. o You can now animate a sequence of images as the background pixmap of another window (suggested by mitchell@linus.mitre.org). o ImageMagick can now read Group 3 images (suggested by garyc@hds.com). o Added a reader for Photo CD images (requires hpcdtoppm). o Millisecond delay was wrong for animate(1) on System V machines. o Rendered DNA animation using POV. See contrib/ImageMagick.animation.tar.Z on ftp.x.org. o Bilevel TIFF images are now subsampled properly (thanks to fielding@library.Cornell.EDU). o ImageMagick can now read and write XPM images. o Specify the color for an X constant image as the filename (i.e. display xc:blue). o Precede the image file name with | to pipe to or from a system command. ImageMagick 2.3.4 o Added interactive `Print' command to display(1) (suggested by rogerskm@eplrx7.es.dupont.com). o Added four widgets to display(1) and animate(1): 1) File Browser; 2) Dialog; 3) Notice; and 4) Menu. o The correct image scene number is now displayed correctly when using animate(1) (thanks to chucks@orl.mmc.com). o Changed Imakefiles to use XCOMM uniformly (thanks to dws@ssec.wisc.edu). o Added the infra-structure for an improved user interface. o Added -label option to montage(1). o LZW encoding now works properly for GIF images (bug alert from varady@dunsel.erenj.com). o Added preview bitmap to Encapsulated Postscript images. o Added -clip to import(1) (suggested by jb7716@csc.albany.edu). o Converting from full color to monochrome images now works properly. o ImageMagick now recognizes '.gz' compressed images (thanks to rpt@thak.jpl.nasa.gov). o ImageMagick now reads 16-bit TARGA images correctly (thanks to sjk@netcom.com). o ImageMagick can now read and write FITS images. o ImageMagick no longer clips large Postscript images (images larger than the default page). o ImageMagick can now read and write 24 bit PICT images. o You can now set your own error and warning handler (suggested by zins@forwiss.uni-erlangen.de). o If you quit the pan icon, the image is restored to its original size. ImageMagick 2.3.3 o Fixed numereous small errors in the ImageMagick manual pages. o convert(1) can now scale an image as it converts it. o ImageMagick can now read and write ZSoft IBM PC Paintbrush images. o ImageMagick now can write as well as read the X: format. ImageMagick 2.3.2 o Added a frame option to montage(1) to put an ornamental border around each image tile. o On HP-SUX 9.0 there is a compiler bug. Try compiling image.c without optimization to prevent a bus error with montage(1). o A warning was not being properly generated on a write error (thanks to zins@forwiss.uni-erlangen.de). o New '-page' option to set the size and location for a Postscript page. o Use '-update' with display(1) to automatically updates the image being displayed when it is modified (thanks to lustig@dupont.com). o Made several window attributes changes in display(1) and animate(1) to make the windows more server friendly and efficient. o ImageMagick can now read and write Microsoft Windows bitmap images (thanks to Eric.Adams@dseg.ti.com for bug alert). o ImageMagick can now read and write Postscript Level II. o ImageMagick can now read and write SGI RGB images (thanks to mossip@vizlab.rutgers.edu for bug alert). o Setting -delay with display(1) will cause the images to loop continuously (suggested by muller@mafalda.inria.fr). o Image rotations of 270 degrees would sometimes produce a segmentation fault on HP's. o GIF files written with ImageMagick 2.3.1 were unreadable (thanks to mjensen@bbn.com). o GIF files with multiple images would sometimes cause program to core dump (thanks to mjensen@bbn.com). o Added -undercolor to mogrify(1) to control undercolor removal and black generation on CMYK images. o Converting to the XWD format would sometimes dump core (thanks to kairys@bastar.enet.dec.com). o X resources now work correctly when clients are invoked with full pathname, i.e. /usr/local/bin/display (thanks to respl@mi.uib.no). o The delay in animate(1) now defaults to 8 milliseconds (thanks to respl@mi.uib.no). o ImageMagick did not read MIFF images with large image directories correctly. o Increased the default panning window size from 64x64 to 96x96. o display(1) now retains proper input focus when using -backdrop. o ImageMagick automatically compresses/uncompresses images that end with '.z' with gzip/gunzip. o ImageMagick can now write Macintosh PICT image files. o ImageMagick can now read and write Truevision TARGA image files. o You can now trim off one pixel from any side of an image within display(1) by using and one of the arrow keys (thanks to tennyson@raptor.com). o Image Pixmaps in display(1) are now used only if the X resource `usePixmap' is set to True. o New segment(1) program. See SYNOPSIS for details. o ImageMagick now compiles properly on the Digitial Alpha (OSF1) and the HP with HPUX. ImageMagick 2.3.1 o You can now change the color of the X constant image with -bordercolor: display -bordercolor red xc: o Color reduction to monochrome with dithering is improved (thanks to mutz@kodak.com). o Added EPS as a file type for Encapsulated Postscript. o Minor improvements to Postscript output. o Removed program XtoPS(1). There is an equivalent functionality with import(1): import image.ps import images.eps o The 'Info' command in animate(1) did not always reflect the proper image scene. o animate(1) sometimes displayed images with the wrong colormap on TrueColor or DirectColor visuals. o Popup windows were enlarged to make them easier to see. o Added a menu command to display(1) to load an image interactively (suggested by fouts@dallas.sgi.com). o montage was not allocating enough memory for it's directory (thanks to fouts@dallas.sgi.com). ImageMagick 2.3 o Added -descend option to import(1). Obtain image by descending window hierarchy reading each subwindow and its colormap. The final image is guarenteed to have the correct colors. o If pen color matched background color any annotations would not appear (thanks to dws@ssec.wisc.edu). o Thanks to jacobsd@solar.cor2.epa.gov: . mogrify now recognizes '-' as stdin and stdout. . PPM, PGM, and PBM image types are now recognized. . PPM, PGM, and PBM images were not always scaled correctly. o The -density option is no longer ignored when creating Postscript images. o The -quality option is now recognized by display and montage. o ImageMagick can now read and write VIFF images. o SUN raster files were now properly read and written on the CRAY. o Popup queries can now be edited when the pointer is in the popup window. o Added -stereo option to combine program. o Removed MIFFtoSTEREO source. o Magnify window now includes pixel value with RGB color value for windows whose depth is 12 or less. o On occasion images were incorrectly identified as XWD. o On occasion images with alpha data were being incorrectly runlength-encoded. o Sometimes icon's had a private colormap. Icon's now use a shared colormap. o Keyboard accelerators did not work with -backdrop option. o Add new utility: combine-- combine images to create new images using digital compositing operators. o xtp failed under Solaris 2.1. o I486 compiler complained about includes within a function body of xtp/network.c (thanks to glenn@physics.su.OZ.AU). o I486 compiler complained about XWDfile.h being included twice (ReadXWD & WriteXWD) (thanks to glenn@physics.su.OZ.AU) ImageMagick 2.2.4 o time between images did not always match the value specified on -delay. o Sped up and reduced memory requirement of dithering. o GIF images were corrupted on SVR4 (thanks to glenn@physics.su.OZ.AU). ImageMagick 2.2.3 o Non-color reduced images were being written even though the color reduction option was specified (-colors). This affected images written as AVS, CMYK, and RGB. o Modified various sources to reduce lint warnings. ImageMagick 2.2.2 o Dithering did not work properly on the Cray (due to right shift problem). o In most cases dithering requires 1/2 as much memory as previously. o Dithering was sped up by ~15%. o Occasionally the quantization error was reported incorrectly. ImageMagick 2.2.1 o The number of colors reported with the -verbose option was on occasion incorrect. o Color quantization was improved and in some cases sped up ~10%. o Cleaned up image rotation code. o Added -shear to mogrify options. o Added a file type of HISTOGRAM to convert. o Sometimes PBM image files did not have the correct number of bytes. o Color reduced PPM images were being written at the full color resolution. o Keypresses are no longer accepted during image configuration. o Red, green, and blue values of a X constant image were set to the red intensity of the background color. o Clipped images did not show up correctly in the panning icon. o `animate' no longer shows images out-of-order if the image scene number is absent (thanks to kent@oddjob.uchicago.edu). o ImageMagick now recognizes the X resource class with the first letter of the client capitalized, i.e. 'Display.Visual: default' (thanks to dws@ssec.wisc.edu). ImageMagick 2.2 o When displaying a composite MIFF image created with `montage', button 3 no longer displays a magnify window. Instead the tile at the mouse location is displayed. When the tile image is exited, the composite image reappears. This is effectively a visual image directory. o `montage' has a new gravity option for placing an image within a tile of the composite, i.e. CenterGravity. o `montage' has a new compose option for specifying which composite operation to use. o `montage' creates composite images with the `montage' keyword. o Updated MIFF manual page to reflect 'montage' image header keyword. o Add -colormap to `mogrify.' Use to color reduce an image to a set of colors you choose. o Some compilers have read-only strings. ImageMagick no longer writes on read-only strings. o For colormapped X servers, the color reduction has been sped up by trading image quality for processing time. See the README for details. o Latin1Upper was declared wrong in X.h. o Added unistd.h to display.h for strict ANSI compilers. o Changed long to time_t for calls to C time routine. o Multi-part GIF's can now be displayed or animated. o Fixed segmentation fault when reading multi-part images with animate, montage, or mogrify. o Multi-part MIFF images have the correct file name now. o An expose event for the Magnify window may occur before it is mapped. This caused display to fail on Solburne and HP's. o Using `-colorspace gray' with 'convert' correctly produces grayscale images. o Images are sorted by intensity for shared colormapped visuals. Some intensity intervals are made "more popular". This gives better image results when sharing colors with other applications. o All utilities correctly read multi-part TIFF images. o Image pixmap was not being updated correctly when pan icon appears (thanks to dws@ssec.wisc.edu). o Fixed ANSI warning on image composite code. o Panning uses a pixmap for faster panning speed. o Rotate.c now uses a table to force range limits. o range table in quantize.c is allocated from the heap instead of the stack. o adjusted the sensitivity for automatic dithering. Some JPEG images were not being dithered. ImageMagick 2.0 o Dirk Wetzel fixed the select statement in animate.c. o Eric Haines fixed ReadRLEImage in decode.c. It previously did not check to see if the background color was present in the image. number_colors=0; if (*opti./ImageMagick/display.c 644 24 24 1076564 5556553747 10315 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % DDDD IIIII SSSSS PPPP L AAA Y Y % % D D I SS P P L A A Y Y % % D D I SSS PPPP L AAAAA Y % % D D I SS P L A A Y % % DDDD IIIII SSSSS P LLLLL A A Y % % % % % % Display Machine Independent File Format Image via X11. % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Display is a machine architecture independent image processing % and display program. It can display any image in the MIFF format on % any workstation display running X. Display first determines the % hardware capabilities of the workstation. If the number of unique % colors in the image is less than or equal to the number the workstation % can support, the image is displayed in an X window. Otherwise the % number of colors in the image is first reduced to match the color % resolution of the workstation before it is displayed. % % This means that a continuous-tone 24 bits-per-pixel image can display on a % 8 bit pseudo-color device or monochrome device. In most instances the % reduced color image closely resembles the original. Alternatively, a % monochrome or pseudo-color image can display on a continuous-tone 24 % bits-per-pixel device. % % The Display program command syntax is: % % Usage: display [options ...] file [ [options ...] file ...] % % Where options include: % -backdrop display image centered on a backdrop % -border geometry surround image with a border of color % -clip geometry preferred size and location of the clipped image % -colormap type Shared or Private % -colors value preferred number of colors in the image % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -comment string annotate image with comment", % -compress type RunlengthEncoded or QEncoded % -delay seconds display the next image after pausing % -density geometry vertical and horizontal density of the image % -display server display image to this X server % -dither apply Floyd/Steinberg error diffusion to image % -enhance apply a digital filter to enhance a noisy image % -equalize perform histogram equalization to an image % -gamma value level of gamma correction % -geometry geometry preferred size and location of the image window % -interlace type NONE, LINE, or PLANE % -inverse apply color inversion to image % -label name assign a label to an image % -map type display image using this Standard Colormap % -matte store matte channel if the image has one % -monochrome transform image to black and white % -noise reduce noise with a noise peak elimination filter % -normalize transform image to span the full the range of colors % -page geometry size and location of the Postscript page % -quality value JPEG quality setting % -reflect reverse image scanlines % -roll geometry roll an image vertically or horizontally % -rotate degrees apply Paeth rotation to the image % -scene value image scene number % -shear geometry slide one edge of the image along the X or Y axis % -treedepth value depth of the color classification tree % -update seconds detect when image file is modified and redisplay % -verbose print detailed information about the image % -visual type display image using this visual type % -window id display image to background of this window % -write filename write image to a file % % In addition to those listed above, you can specify these standard X % resources as command line options: -background, -bordercolor, % -borderwidth, -font, -foreground, -iconGeometry, -iconic, -mattecolor, % -name, or -title. % % Change '-' to '+' in any option above to reverse its effect. For % example, specify +matte to store the image without its matte channel. % % By default, the image format of `file' is determined by its magic % number. To specify a particular image format, precede the filename % with an image format name and a colon (i.e. ps:image) or specify the % image type as the filename suffix (i.e. image.ps). Specify 'file' as % '-' for standard input or output. % % Buttons: % 1 press and drag to select a command from a menu % 2 press and drag to select an image editing command from a menu % 3 press to magnify a region or load an image from a montage % % Keyboard accelerators: % i display information about the image % # edit an image comment % < half the image size % > double the image size % / rotate the image 90 degrees clockwise % \ rotate the image 90 degrees counter-clockwise % p print the image to a Postscript printer % w write the image to a file % l load an image from a file % n display the next image % f display the former image % h display information about this program % q discard all images and exit program % g gamma correct the image % = perform histogram equalization on the image % - resize the image % t trim the image edges % [ clip the image % ] cut the image % | rotate the image % r reflect the image scanlines % a annotate the image with text % x composite image with another % c edit an image pixel color % m edit the image matte information % o restore the image to its original size % 1-9 change the level of magnification % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "utility.h" #include "X.h" #include "widget.h" /* State declarations. */ #define DefaultState 0x0000 #define EscapeState 0x0001 #define ExitState 0x0002 #define FormerImageState 0x0004 #define ModifierState 0x0008 #define NextImageState 0x0010 #define UpdateConfigurationState 0x0020 /* Forward declarations. */ static Image *XMagickCommand _Declare((Display *,XResourceInfo *,XWindows *,unsigned int, KeySym,Image **)), *XTileImageWindow _Declare((Display *,XResourceInfo *,XWindows *,Image *, XEvent *)); static int XScreenEvent _Declare((Display *,XEvent *,char *)); static unsigned int XConfigureImageWindow _Declare((Display *,XResourceInfo *,XWindows *, Image *)), XMatteEditImageWindow _Declare((Display *,XResourceInfo *,XWindows *, Image *)), XPrintImageWindow _Declare((Display *,XResourceInfo *,XWindows *,Image *)), XReflectImageWindow _Declare((Display *,XResourceInfo *,XWindows *,Image **)), XRotateImageWindow _Declare((Display *,XResourceInfo *,XWindows *,double, Image **)), XTrimImageWindow _Declare((Display *,XResourceInfo *,XWindows *,Image *)), XWriteImageWindow _Declare((Display *,XResourceInfo *,XWindows *,Image *)); static void XConfigureImageColormap _Declare((Display *,XResourceInfo *,XWindows *, Image *)), XDrawPanRectangle _Declare((Display *,XWindows *)), XMagnifyImageWindow _Declare((Display *,XWindows *,XEvent *)), XMakePanImage _Declare((Display *,XResourceInfo *,XWindows *,Image *)), XPanImageWindow _Declare((Display *,XWindows *,XEvent *)), XMagnifyWindowCommand _Declare((Display *,XWindows *,KeySym)), XSetClipGeometry _Declare((Display *,XWindows *,RectangleInfo *,Image *)), XTranslateImageWindow _Declare((Display *,XWindows *,Image *,KeySym)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Usage displays the program command syntax. % % The format of the Usage routine is: % % Usage(terminate) % % A description of each parameter follows: % % o terminate: A value other than zero is returned if the program is to % terminate immediately. % */ static void Usage(terminate) unsigned int terminate; { char **p; static char *buttons[]= { "1 press and drag to select a command from a menu", "2 press and drag to select an image editing command from a menu", "3 press to magnify a region or load an image from a montage", (char *) NULL }, *keys[]= { "i display information about the image", "# add an image comment", "< half the image size", "> double the image size", "/ rotate the image 90 degrees clockwise", "\\ rotate the image 90 degrees counter-clockwise", "p print the image to a Postscript printer", "w write the image to a file", "l load an image from a file", "n display the next image", "f display the former image", "h display information about this program", "q discard all images and exit program", "g gamma correct the image", "= perform histogram equalization on the image", "- resize the image", "t trim the image edges", "[ clip the image", "] cut the image", "| rotate the image", "r reflect the image scanlines", "a annotate the image with text", "x composite image with another", "c edit an image pixel color", "m edit the image matte information", "o restore the image to its original size", "1-9 change the level of magnification", (char *) NULL }, *options[]= { "-backdrop display image centered on a backdrop", "-border geometry surround image with a border of color", "-clip geometry preferred size and location of the clipped image", "-colormap type Shared or Private", "-colors value preferred number of colors in the image", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-comment string annotate image with comment", "-compress type RunlengthEncoded or QEncoded", "-delay seconds display the next image after pausing", "-density geometry vertical and horizontal density of the image", "-display server display image to this X server", "-dither apply Floyd/Steinberg error diffusion to image", "-enhance apply a digital filter to enhance a noisy image", "-equalize perform histogram equalization to an image", "-gamma value level of gamma correction", "-geometry geometry preferred size and location of the image window", "-interlace type NONE, LINE, or PLANE", "-inverse apply color inversion to image", "-label name assign a label to an image", "-map type display image using this Standard Colormap", "-matte store matte channel if the image has one", "-monochrome transform image to black and white", "-noise reduce noise with a noise peak elimination filter", "-normalize transform image to span the full range of colors", "-page geometry size and location of the Postscript page", "-quality value JPEG quality setting", "-reflect reflect the image scanlines", "-roll geometry roll an image vertically or horizontally", "-rotate degrees apply Paeth rotation to the image", "-scene value image scene number", "-shear geometry slide one edge of the image along the X or Y axis", "-treedepth value depth of the color classification tree", "-update seconds detect when image file is modified and redisplay", "-verbose print detailed information about the image", "-visual type display image using this visual type", "-window id display image to background of this window", "-write filename write image to a file", (char *) NULL }; (void) fprintf(stderr, "Usage: %s [-options ...] file [ [-options ...] file ...]\n",client_name); (void) fprintf(stderr,"\nWhere options include: \n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nIn addition to those listed above, you can specify these standard X\n"); (void) fprintf(stderr, "resources as command line options: -background, -bordercolor,\n"); (void) fprintf(stderr, "-borderwidth, -font, -foreground, -iconGeometry, -iconic,\n"); (void) fprintf(stderr,"-mattecolor, -name, or -title.\n"); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect. For\n"); (void) fprintf(stderr, "example, specify +matte to store the image without an matte channel.\n"); (void) fprintf(stderr, "\nBy default, the image format of `file' is determined by its magic\n"); (void) fprintf(stderr, "number. To specify a particular image format, precede the filename\n"); (void) fprintf(stderr, "with an image format name and a colon (i.e. ps:image) or specify the\n"); (void) fprintf(stderr, "image type as the filename suffix (i.e. image.ps). Specify 'file' as\n"); (void) fprintf(stderr,"'-' for standard input or output.\n"); (void) fprintf(stderr,"\nButtons: \n"); for (p=buttons; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr,"\nKeyboard accelerators: \n"); for (p=keys; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); if (terminate) exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X A n n o t a t e I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XAnnotateImageWindow annotates the image with text. % % The format of the XAnnotateImageWindow routine is: % % XAnnotateImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % */ static unsigned int XAnnotateImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { static char *ImageAnnotateHelp[]= { "Press a button to affect this behavior:", "", "1 Press to select a location within the image window to", " begin entering text.", "", "2 Press and drag to select a font color from a pop-up", " menu. Choose from these font colors:", "", " black", " blue", " cyan", " green", " gray", " red", " magenta", " yellow", " white", "", "If you select the color browser and press Grab, you can", "choose the font color by moving the pointer to the desired", "color on the screen and press any button.", "", "3 Press and drag to select a font from a pop-up menu.", " Choose from these fonts:", "", " fixed", " variable", " 5x8", " 6x10", " 7x13bold", " 8x13bold", " 9x15bold", " 10x20", " 12x24", "", " Other fonts can be specified with the font browser or", " by setting the X resources font1 through font9.", "", "Choosing a font and its color is optional. The default font", "is fixed and the default color is black. However, you must", "choose a location to begin entering text and press button 1.", "An underscore character will appear at the location of the", "cursor where you pressed button 1. The cursor changes to a", "pencil to indicate you are in text mode. To exit", "immediately, press ESC.", "", "In text mode, any key presses will display the character at", "the location of the cursor and advance the underscore", "cursor. Enter your text and once completed press ESC to", "finish your image annotation. To correct errors press", "BACKSPACE. To delete an entire line of text, press DELETE.", "Any text that exceeds the boundaries of the image window is", "automatically continued onto the next line.", "", "Before exiting text mode, immediately after pressing the ESC", "key, the image is permanently updated with the text you", "entered. There is no way to `undo' your changes so be", "careful to check your text before you press ESC.", "", "The actual color you request for the font is saved in the", "image. However, the color that appears in your image window", "could be different. For example, on a monochrome screen the", "text will appear black or white even if you choose the color", "red as the font color. However, the image saved to a file", "with 'Write' is written with red lettering. To assure", "the correct color text in the final image, any PseudoClass", "image is promoted to DirectClass.", (char *) NULL, }; char *p, text[MaxTextLength]; Cursor cursor; GC annotate_context; int i, x, y; static unsigned int font_id=0, pen_id=0; unsigned int height, mask, status, width; unsigned long state, x_factor, y_factor; Window xwindow; XAnnotateInfo *annotate_info, *previous_info; XFontStruct *font_info; XEvent event, text_event; /* Map info window. */ state=DefaultState; (void) sprintf(text," +%u+%u ",windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Track pointer until button 1 is pressed. */ XQueryPointer(display,windows->image.id,&xwindow,&xwindow,&i,&i,&x,&y,&mask); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask | PointerMotionMask); do { if (windows->info.mapped) { /* Display pointer position. */ (void) sprintf(text," %+d%+d ",x-windows->image.x,y-windows->image.y); XDisplayInfoString(display,&windows->info,text); } /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); XSetWindowExtents(display,&windows->info,text); break; } switch (event.xbutton.button) { case Button1: { /* Change to text entering mode. */ x=event.xbutton.x; y=event.xbutton.y; state|=ExitState; break; } case Button2: { char color_name[MaxTextLength], *MenuSelections[MaxNumberPens]; int pen_number; /* Initialize menu selections. */ for (i=0; i < MaxNumberPens; i++) MenuSelections[i]=resource_info->pen_color[i]; MenuSelections[MaxNumberPens-1]="Browser..."; /* Select a pen color from the pop-up menu. */ pen_number=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Font Color",MenuSelections,MaxNumberPens, color_name); if (pen_number == (MaxNumberPens-1)) { static char color_name[MaxTextLength]="gray"; /* Select a pen color from a dialog. */ resource_info->pen_color[MaxNumberPens-1]=color_name; XColorBrowserWidget(display,windows,"Select",color_name); if (*color_name == '\0') break; } if (pen_number >= 0) { /* Set pen color. */ pen_id=pen_number; (void) strcpy(color_name,resource_info->pen_color[pen_id]); status=XParseColor(display,windows->image.map_info->colormap, color_name,&windows->image.pixel_info->pen_color[pen_id]); if (status == 0) XNoticeWidget(display,windows,"Color is unknown to X server", color_name); XBestPixel(display,windows->image.map_info->colormap, (XColor *) NULL,(unsigned int) Min(windows->image.visual_info->colormap_size,256), &windows->image.pixel_info->pen_color[pen_id]); } break; } case Button3: { char font_name[MaxTextLength], *MenuSelections[MaxNumberFonts]; int font_number; /* Initialize menu selections. */ for (i=0; i < MaxNumberFonts; i++) MenuSelections[i]=resource_info->font_name[i]; MenuSelections[MaxNumberFonts-1]="Browser..."; /* Select a font name from the pop-up menu. */ font_number=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Font Name",MenuSelections,MaxNumberFonts, font_name); if (font_number == (MaxNumberFonts-1)) { static char font_name[MaxTextLength]="fixed"; /* Select a font name from a browser. */ resource_info->font_name[MaxNumberFonts-1]=font_name; XFontBrowserWidget(display,windows,"Select",font_name); if (*font_name == '\0') break; } if (font_number >= 0) { /* Initialize font info. */ (void) strcpy(font_name,resource_info->font_name[font_number]); font_info=XLoadQueryFont(display,font_name); if (font_info == (XFontStruct *) NULL) XNoticeWidget(display,windows,"Unable to load font", font_name); else { font_id=font_number; XFreeFont(display,font_info); } } break; } } break; } case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); switch (key_symbol) { case XK_Escape: { /* Prematurely exit. */ state|=EscapeState; state|=ExitState; break; } case XK_F1: case XK_Help: { XTextViewWidget(display,windows,"Help Viewer - Image Annotation", ImageAnnotateHelp); break; } default: break; } break; } case MotionNotify: { /* Discard pending pointer motion events. */ while (XCheckMaskEvent(display,PointerMotionMask,&event)); x=event.xmotion.x; y=event.xmotion.y; /* Map and unmap info window as cursor crosses its boundaries. */ if (windows->info.mapped) { if ((x < (windows->info.x+windows->info.width)) && (y < (windows->info.y+windows->info.height))) XWithdrawWindow(display,windows->info.id,windows->info.screen); } else if ((x > (windows->info.x+windows->info.width)) || (y > (windows->info.y+windows->info.height))) XMapWindow(display,windows->info.id); break; } default: break; } } while (!(state & ExitState)); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask); XWithdrawWindow(display,windows->info.id,windows->info.screen); XFlush(display); if (state & EscapeState) return(True); /* Set font info and check boundary conditions. */ font_info=XLoadQueryFont(display,resource_info->font_name[font_id]); if (font_info == (XFontStruct *) NULL) { XNoticeWidget(display,windows,"Unable to load font", resource_info->font_name[font_id]); font_info=windows->image.font_info; } if ((x+font_info->max_bounds.width) >= windows->image.width) x=windows->image.width-font_info->max_bounds.width; if (y < (font_info->ascent+font_info->descent)) y=font_info->ascent+font_info->descent; if ((font_info->max_bounds.width > windows->image.width) || ((font_info->ascent+font_info->descent) >= windows->image.height)) return(False); /* Initialize annotate structure. */ annotate_info=(XAnnotateInfo *) malloc(sizeof(XAnnotateInfo)); if (annotate_info == (XAnnotateInfo *) NULL) return(False); XGetAnnotateInfo(annotate_info); annotate_info->x=x; annotate_info->y=y; annotate_info->height=font_info->ascent+font_info->descent; annotate_info->font_info=font_info; annotate_info->text=(char *) malloc( (windows->image.width/Max(font_info->min_bounds.width,1)+2)*sizeof(char)); if (annotate_info->text == (char *) NULL) return(False); /* Create cursor and set graphic context. */ cursor=XCreateFontCursor(display,XC_pencil); XDefineCursor(display,windows->image.id,cursor); annotate_context=windows->image.annotate_context; XSetFont(display,annotate_context,font_info->fid); XSetForeground(display,annotate_context, windows->image.pixel_info->pen_color[pen_id].pixel); /* Begin annotating the image with text. */ state=DefaultState; XDrawString(display,windows->image.id,annotate_context,x,y,"_",1); text_event.xexpose.width=(unsigned int) font_info->max_bounds.width; text_event.xexpose.height=font_info->max_bounds.ascent+ font_info->max_bounds.descent; p=annotate_info->text; do { /* Display text cursor. */ *p='\0'; XDrawString(display,windows->image.id,annotate_context,x,y,"_",1); /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); /* Erase text cursor. */ text_event.xexpose.x=x; text_event.xexpose.y=y-font_info->max_bounds.ascent; XRefreshWindow(display,&windows->image,&text_event); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); break; } if (event.xbutton.button == Button2) { /* Request primary selection. */ XConvertSelection(display,XA_PRIMARY,XA_STRING,XA_STRING, windows->image.id,CurrentTime); break; } break; } case Expose: { if (event.xexpose.count == 0) { XAnnotateInfo *text_info; /* Refresh image window. */ XRefreshWindow(display,&windows->image,(XEvent *) NULL); text_info=annotate_info; while (text_info != (XAnnotateInfo *) NULL) { XDrawString(display,windows->image.id,annotate_context, text_info->x,text_info->y,text_info->text, strlen(text_info->text)); text_info=text_info->previous; } XDrawString(display,windows->image.id,annotate_context,x,y,"_",1); } break; } case KeyPress: { static char command[MaxTextLength]; static int length; static KeySym key_symbol; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if ((event.xkey.state & ControlMask) || (event.xkey.state & Mod1Mask)) state|=ModifierState; if (state & ModifierState) switch (key_symbol) { case XK_u: case XK_U: { key_symbol=XK_Delete; break; } default: break; } switch (key_symbol) { case XK_BackSpace: { /* Erase one character. */ if (p == annotate_info->text) if (annotate_info->previous == (XAnnotateInfo *) NULL) break; else { /* Go to end of the previous line of text. */ annotate_info=annotate_info->previous; p=annotate_info->text; x=annotate_info->x+annotate_info->width; y=annotate_info->y; if (annotate_info->width != 0) p+=strlen(annotate_info->text); break; } p--; x-=XTextWidth(font_info,p,1); text_event.xexpose.x=x; text_event.xexpose.y=y-font_info->max_bounds.ascent; XRefreshWindow(display,&windows->image,&text_event); break; } case XK_Delete: { /* Erase the entire line of text. */ while (p != annotate_info->text) { p--; x-=XTextWidth(font_info,p,1); text_event.xexpose.x=x; XRefreshWindow(display,&windows->image,&text_event); } break; } case XK_Escape: { /* Finished annotating. */ annotate_info->width=XTextWidth(font_info,annotate_info->text, strlen(annotate_info->text)); XRefreshWindow(display,&windows->image,&text_event); state|=ExitState; break; } default: { /* Draw a single character on the image window. */ if (state & ModifierState) break; if (*command == '\0') break; *p=(*command); XDrawString(display,windows->image.id,annotate_context,x,y,p,1); x+=XTextWidth(font_info,p,1); p++; if ((x+font_info->max_bounds.width) < windows->image.width) break; } case XK_Return: case XK_KP_Enter: { /* Advance to the next line of text. */ *p='\0'; annotate_info->width=XTextWidth(font_info,annotate_info->text, strlen(annotate_info->text)); if (annotate_info->next != (XAnnotateInfo *) NULL) { /* Line of text already exists. */ annotate_info=annotate_info->next; x=annotate_info->x; y=annotate_info->y; p=annotate_info->text; break; } annotate_info->next=(XAnnotateInfo *) malloc(sizeof(XAnnotateInfo)); if (annotate_info->next == (XAnnotateInfo *) NULL) return(False); *annotate_info->next=(*annotate_info); annotate_info->next->previous=annotate_info; annotate_info=annotate_info->next; annotate_info->text=(char *) malloc((windows->image.width/ Max(font_info->min_bounds.width,1)+2)*sizeof(char)); if (annotate_info->text == (char *) NULL) return(False); annotate_info->y+=annotate_info->height; if (annotate_info->y > windows->image.height) annotate_info->y=annotate_info->height; annotate_info->next=(XAnnotateInfo *) NULL; x=annotate_info->x; y=annotate_info->y; p=annotate_info->text; break; } } break; } case KeyRelease: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key release. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); state&=(~ModifierState); break; } case SelectionNotify: { Atom type; int format; unsigned char *data; unsigned long after, length; /* Obtain response from primary selection. */ if (event.xselection.property == (Atom) None) break; status=XGetWindowProperty(display,event.xselection.requestor, event.xselection.property,0L,2047L,True,XA_STRING,&type,&format, &length,&after,&data); if ((status != Success) || (type != XA_STRING) || (format == 32) || (length == 0)) break; /* Annotate image window with primary selection. */ for (i=0; i < length; i++) { if (data[i] != '\n') { /* Draw a single character on the image window. */ *p=data[i]; XDrawString(display,windows->image.id,annotate_context,x,y,p,1); x+=XTextWidth(font_info,p,1); p++; if ((x+font_info->max_bounds.width) < windows->image.width) continue; } /* Advance to the next line of text. */ *p='\0'; annotate_info->width=XTextWidth(font_info,annotate_info->text, strlen(annotate_info->text)); if (annotate_info->next != (XAnnotateInfo *) NULL) { /* Line of text already exists. */ annotate_info=annotate_info->next; x=annotate_info->x; y=annotate_info->y; p=annotate_info->text; continue; } annotate_info->next=(XAnnotateInfo *) malloc(sizeof(XAnnotateInfo)); if (annotate_info->next == (XAnnotateInfo *) NULL) return(False); *annotate_info->next=(*annotate_info); annotate_info->next->previous=annotate_info; annotate_info=annotate_info->next; annotate_info->text=(char *) malloc((windows->image.width/ Max(font_info->min_bounds.width,1)+2)*sizeof(char)); if (annotate_info->text == (char *) NULL) return(False); annotate_info->y+=annotate_info->height; if (annotate_info->y > windows->image.height) annotate_info->y=annotate_info->height; annotate_info->next=(XAnnotateInfo *) NULL; x=annotate_info->x; y=annotate_info->y; p=annotate_info->text; } XFree((void *) data); break; } default: break; } } while (!(state & ExitState)); XSetFont(display,annotate_context,windows->image.font_info->fid); XSetForeground(display,annotate_context, windows->image.pixel_info->foreground_color.pixel); XFreeCursor(display,cursor); /* Annotation is relative to image configuration. */ x=0; y=0; width=image->columns; height=image->rows; if (windows->image.clip_geometry != (char *) NULL) (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width,&height); /* Initialize annotated image. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); while (annotate_info != (XAnnotateInfo *) NULL) { if (annotate_info->width == 0) { /* No text on this line-- go to the next line of text. */ previous_info=annotate_info->previous; (void) free((char *) annotate_info->text); (void) free((char *) annotate_info); annotate_info=previous_info; continue; } /* Determine foreground pixel index for font color. */ windows->image.pixel_info->annotate_color= windows->image.pixel_info->pen_color[pen_id]; windows->image.pixel_info->annotate_index=0; if (windows->image.pixel_info->colors != 0) for (i=0; i < windows->image.pixel_info->colors; i++) if (windows->image.pixel_info->pixels[i] == windows->image.pixel_info->pen_color[pen_id].pixel) { windows->image.pixel_info->annotate_index=i; break; } /* Define the annotate geometry string. */ x_factor=UpShift(width)/windows->image.ximage->width; annotate_info->x+=windows->image.x; annotate_info->x=DownShift(annotate_info->x*x_factor); y_factor=UpShift(height)/windows->image.ximage->height; annotate_info->y+=(windows->image.y-font_info->ascent); annotate_info->y=DownShift(annotate_info->y*y_factor); (void) sprintf(annotate_info->geometry,"%ux%u%+d%+d", (unsigned int) DownShift(annotate_info->width*x_factor), (unsigned int) DownShift(annotate_info->height*y_factor), annotate_info->x+x,annotate_info->y+y); /* Annotate image with text. */ status=XAnnotateImage(display,windows->image.pixel_info,annotate_info, False,image); if (status == 0) return(False); /* Free up memory. */ previous_info=annotate_info->previous; (void) free((char *) annotate_info->text); (void) free((char *) annotate_info); annotate_info=previous_info; } XDefineCursor(display,windows->image.id,windows->image.cursor); XFreeFont(display,font_info); /* Update image colormap. */ XConfigureImageColormap(display,resource_info,windows,image); (void) XConfigureImageWindow(display,resource_info,windows,image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C l i p I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XClipImageWindow clips the image window. % % The format of the XClipImageWindow routine is: % % status=XClipImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XClipImageWindow returns True if the image is % clipped. False is returned is there is a memory shortage or if the % image fails to be cropped. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static unsigned int XClipImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { static char *ImageClipHelp[]= { "To define a clipping region, press button 1 and drag. The", "clipping region is defined by a highlighted rectangle that", "expands or contracts as it follows the pointer. Once you", "are satisfied with the clipping region, release the button.", "You can make adjustments to the clipping rectangle with the", "arrow keys. Press an arrow key to expand the region by", "one pixel. Press ALT and an arrow key to contract the", "clipping region.", "", "Finally, press RETURN to commit your clipping region. To", "exit without cropping the image, press ESC.", (char *) NULL, }; char text[MaxTextLength]; Cursor cursor; int i, x, y; RectangleInfo clip_info; unsigned int mask; unsigned long state; Window xwindow; XEvent event; /* Map info window. */ state=DefaultState; (void) sprintf(text," +%u+%u ",windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Track pointer until button 1 is pressed. */ XQueryPointer(display,windows->image.id,&xwindow,&xwindow,&i,&i,&x,&y,&mask); clip_info.x=x; clip_info.y=y; clip_info.width=0; clip_info.height=0; cursor=XCreateFontCursor(display,XC_fleur); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask | PointerMotionMask); do { if (windows->info.mapped) { /* Display pointer position. */ (void) sprintf(text," %+d%+d ",x-windows->image.x,y-windows->image.y); XDisplayInfoString(display,&windows->info,text); } /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); XSetWindowExtents(display,&windows->info,text); break; } if (event.xbutton.button == Button1) { /* Note first corner of clipping rectangle-- exit loop. */ XDefineCursor(display,windows->image.id,cursor); clip_info.x=event.xbutton.x; clip_info.y=event.xbutton.y; state|=ExitState; break; } break; } case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); switch (key_symbol) { case XK_Escape: { /* Prematurely exit. */ state|=EscapeState; state|=ExitState; break; } case XK_F1: case XK_Help: { XTextViewWidget(display,windows,"Help Viewer - Image Clipping", ImageClipHelp); break; } default: break; } break; } case MotionNotify: { /* Discard pending pointer motion events. */ while (XCheckMaskEvent(display,PointerMotionMask,&event)); x=event.xmotion.x; y=event.xmotion.y; /* Map and unmap info window as text cursor crosses its boundaries. */ if (windows->info.mapped) { if ((x < (windows->info.x+windows->info.width)) && (y < (windows->info.y+windows->info.height))) XWithdrawWindow(display,windows->info.id,windows->info.screen); } else if ((x > (windows->info.x+windows->info.width)) || (y > (windows->info.y+windows->info.height))) XMapWindow(display,windows->info.id); clip_info.x=x; clip_info.y=y; break; } default: break; } } while (!(state & ExitState)); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask); if (state & EscapeState) { /* User want to exit without cropping. */ XWithdrawWindow(display,windows->info.id,windows->info.screen); XFreeCursor(display,cursor); return(True); } /* Size rectangle as pointer moves until the mouse button is released. */ state=DefaultState; (void) sprintf(text," %ux%u+%u+%u ",windows->image.width, windows->image.height,windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); x=clip_info.x; y=clip_info.y; clip_info.width=0; clip_info.height=0; XSetFunction(display,windows->image.highlight_context,GXinvert); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask | PointerMotionMask); do { if ((clip_info.width > 3) && (clip_info.height > 3)) { /* Display info and draw clipping rectangle. */ if (!windows->info.mapped) XMapWindow(display,windows->info.id); (void) sprintf(text," %ux%u%+d%+d",clip_info.width,clip_info.height, clip_info.x,clip_info.y); XDisplayInfoString(display,&windows->info,text); XHighlightRegion(display,windows->image.id, windows->image.highlight_context,&clip_info); } else if (windows->info.mapped) XWithdrawWindow(display,windows->info.id,windows->info.screen); /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); if ((clip_info.width > 3) && (clip_info.height > 3)) XHighlightRegion(display,windows->image.id, windows->image.highlight_context,&clip_info); switch (event.type) { case ButtonPress: break; case ButtonRelease: { /* User has committed to clipping rectangle. */ clip_info.x=event.xbutton.x; clip_info.y=event.xbutton.y; state|=ExitState; break; } case Expose: break; case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); clip_info.x=event.xmotion.x; clip_info.y=event.xmotion.y; } default: break; } if ((clip_info.x != x) || (clip_info.y != y)) { /* Check boundary conditions. */ if (clip_info.x < 0) clip_info.x=0; else if (clip_info.x > windows->image.width) clip_info.x=windows->image.width; if (clip_info.x < x) clip_info.width=(unsigned int) (x-clip_info.x+1); else { clip_info.width=(unsigned int) (clip_info.x-x+1); clip_info.x=x; } if (clip_info.y < 0) clip_info.y=0; else if (clip_info.y > windows->image.height) clip_info.y=windows->image.height; if (clip_info.y < y) clip_info.height=(unsigned int) (y-clip_info.y+1); else { clip_info.height=(unsigned int) (clip_info.y-y+1); clip_info.y=y; } } } while (!(state & ExitState)); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask); XDefineCursor(display,windows->image.id,windows->image.cursor); XFreeCursor(display,cursor); state=DefaultState; do { if ((clip_info.width > 3) && (clip_info.height > 3)) { /* Display info and draw clipping rectangle. */ if (!windows->info.mapped) XMapWindow(display,windows->info.id); (void) sprintf(text," %ux%u%+d%+d",clip_info.width,clip_info.height, clip_info.x,clip_info.y); XDisplayInfoString(display,&windows->info,text); XHighlightRegion(display,windows->image.id, windows->image.highlight_context,&clip_info); } else if (windows->info.mapped) XWithdrawWindow(display,windows->info.id,windows->info.screen); /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); if ((clip_info.width > 3) && (clip_info.height > 3)) XHighlightRegion(display,windows->image.id, windows->image.highlight_context,&clip_info); switch (event.type) { case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); switch (key_symbol) { case XK_Escape: { /* Exit without cropping. */ state|=EscapeState; state|=ExitState; break; } case XK_Return: { /* Exit. */ state|=ExitState; break; } case XK_Up: { if (event.xkey.state & Mod1Mask) { clip_info.height--; break; } clip_info.y--; clip_info.height++; break; } case XK_Down: { if (event.xkey.state & Mod1Mask) { clip_info.y++; clip_info.height--; break; } clip_info.height++; break; } case XK_Left: { if (event.xkey.state & Mod1Mask) { clip_info.width--; break; } clip_info.x--; clip_info.width++; break; } case XK_Right: { if (event.xkey.state & Mod1Mask) { clip_info.x++; clip_info.width--; break; } clip_info.width++; break; } deafult: break; } break; } case KeyRelease: break; default: break; } /* Check boundary conditions. */ if (clip_info.x < 0) clip_info.x=0; else if (clip_info.x > windows->image.width) clip_info.x=windows->image.width; if ((clip_info.x+clip_info.width) > windows->image.width) clip_info.width=windows->image.width-clip_info.x; if (clip_info.y < 0) clip_info.y=0; else if (clip_info.y > windows->image.height) clip_info.y=windows->image.height; if ((clip_info.y+clip_info.height) > windows->image.height) clip_info.height=windows->image.height-clip_info.y; } while (!(state & ExitState)); XSetFunction(display,windows->image.highlight_context,GXcopy); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (state & EscapeState) return(True); if ((clip_info.width > 3) && (clip_info.height > 3)) if ((clip_info.width != windows->image.width) || (clip_info.height != windows->image.height)) { /* Reconfigure image window as defined by clipping rectangle. */ XSetClipGeometry(display,windows,&clip_info,image); windows->image.window_changes.width=clip_info.width; windows->image.window_changes.height=clip_info.height; (void) XConfigureImageWindow(display,resource_info,windows,image); } return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C o l o r E d i t I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XColorEditImageWindow allows the user to interactively change % the color of one pixel for a DirectColor image or one colormap entry for % a PseudoClass image. % % The format of the XColorEditImageWindow routine is: % % XColorEditImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % */ static unsigned int XColorEditImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { static char *ImageColorEditHelp[]= { "Press a button to affect this behavior:", "", "1 Press to select a pixel within the image window to", " change its color. Any pixel within the image that", " matches the color of the selected pixel is recolored.", "", "2 Press and drag to select a pixel color from a pop-up", " menu. Choose from these pixel colors:", "", " black", " blue", " cyan", " green", " gray", " red", " magenta", " yellow", " white", "", "If you select the color browser and press Grab, you can", "choose the pixel color by moving the pointer to the desired", "color on the screen and press any button.", "", "The actual color you request for the pixel is saved in the", "image. However, the color that appears in your image window", "may be different. For example, on a monochrome screen the", "pixel will appear black or white even if you choose red as", "the pixel color. However, the image saved to a file with", "'Write' is written with red color. To assure the", "correct color pixel in the final image, any PseudoClass", "image is promoted to DirectClass", (char *) NULL, }; char text[MaxTextLength]; Cursor cursor; int i, x, x_offset, y, y_offset; register RunlengthPacket *p; RunlengthPacket pixel; static unsigned int pen_id=0; unsigned int height, mask, status, width; unsigned long state, x_factor, y_factor; Window xwindow; XColor color; XEvent event; /* Map info window. */ state=DefaultState; (void) sprintf(text," +%u+%u ",windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Track pointer until button 1 is pressed. */ cursor=XMakeCursor(display,windows->image.id, windows->image.map_info->colormap,resource_info->background_color, resource_info->foreground_color); XDefineCursor(display,windows->image.id,cursor); /* Track pointer until button 1 is pressed. */ XQueryPointer(display,windows->image.id,&xwindow,&xwindow,&i,&i,&x,&y,&mask); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask | PointerMotionMask); do { if (windows->info.mapped) { /* Display pointer position. */ (void) sprintf(text," %+d%+d ",x-windows->image.x,y-windows->image.y); XDisplayInfoString(display,&windows->info,text); } /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); XSetWindowExtents(display,&windows->info,text); break; } switch (event.xbutton.button) { case Button1: { /* Exit loop. */ x_offset=event.xbutton.x; y_offset=event.xbutton.y; state|=UpdateConfigurationState; break; } case Button2: { char color_name[MaxTextLength], *MenuSelections[MaxNumberPens]; int pen_number; /* Initialize menu selections. */ for (i=0; i < MaxNumberPens; i++) MenuSelections[i]=resource_info->pen_color[i]; MenuSelections[MaxNumberPens-1]="Browser..."; /* Select a pen color from the pop-up menu. */ pen_number=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Pixel Color",MenuSelections,MaxNumberPens, color_name); if (pen_number == (MaxNumberPens-1)) { static char color_name[MaxTextLength]="gray"; /* Select a pen color from a dialog. */ resource_info->pen_color[MaxNumberPens-1]=color_name; XColorBrowserWidget(display,windows,"Select",color_name); if (*color_name == '\0') break; } if (pen_number >= 0) { /* Set pen color. */ pen_id=pen_number; (void) strcpy(color_name,resource_info->pen_color[pen_id]); status=XParseColor(display,windows->image.map_info->colormap, color_name,&windows->image.pixel_info->pen_color[pen_id]); if (status == 0) XNoticeWidget(display,windows,"Color is unknown to X server", color_name); XBestPixel(display,windows->image.map_info->colormap, (XColor *) NULL,(unsigned int) Min(windows->image.visual_info->colormap_size,256), &windows->image.pixel_info->pen_color[pen_id]); } XDefineCursor(display,windows->image.id,cursor); break; } } break; } case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); switch (key_symbol) { case XK_Escape: { /* Prematurely exit. */ state|=ExitState; break; } case XK_F1: case XK_Help: { XTextViewWidget(display,windows,"Help Viewer - Image Annotation", ImageColorEditHelp); break; } default: break; } break; } case MotionNotify: { /* Discard pending pointer motion events. */ while (XCheckMaskEvent(display,PointerMotionMask,&event)); x=event.xmotion.x; y=event.xmotion.y; /* Map and unmap info window as cursor crosses its boundaries. */ if (windows->info.mapped) { if ((x < (windows->info.x+windows->info.width)) && (y < (windows->info.y+windows->info.height))) XWithdrawWindow(display,windows->info.id,windows->info.screen); } else if ((x > (windows->info.x+windows->info.width)) || (y > (windows->info.y+windows->info.height))) XMapWindow(display,windows->info.id); break; } default: break; } if (state & UpdateConfigurationState) { int x, y; /* Pixel edit is relative to image configuration. */ x=0; y=0; width=image->columns; height=image->rows; if (windows->image.clip_geometry != (char *) NULL) (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width, &height); x_factor=UpShift(width)/windows->image.ximage->width; x_offset=DownShift((windows->image.x+x_offset+1)*x_factor)+x; y_factor=UpShift(height)/windows->image.ximage->height; y_offset=DownShift((windows->image.y+y_offset+1)*y_factor)+y; /* Update color of pixel. */ x=0; p=image->pixels; for (i=0; i < image->packets; i++) { x+=(p->length+1); if (x >= (y_offset*image->columns+x_offset)) break; p++; } pixel=image->pixels[i]; color=windows->image.pixel_info->pen_color[pen_id]; if (image->class == DirectClass) { p=image->pixels; for (i=0; i < image->packets; i++) { if ((p->red == pixel.red) && (p->green == pixel.green) && (p->blue == pixel.blue)) { p->red=color.red >> 8; p->green=color.green >> 8; p->blue=color.blue >> 8; } p++; } } else { register unsigned short index; index=pixel.index; image->colormap[index].red=color.red >> 8; image->colormap[index].green=color.green >> 8; image->colormap[index].blue=color.blue >> 8; SyncImage(image); } /* Update image colormap and return to color editing. */ XConfigureImageColormap(display,resource_info,windows,image); (void) XConfigureImageWindow(display,resource_info,windows,image); XDefineCursor(display,windows->image.id,cursor); state&=(~UpdateConfigurationState); } } while (!(state & ExitState)); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask); XWithdrawWindow(display,windows->info.id,windows->info.screen); XDefineCursor(display,windows->image.id,windows->image.cursor); XFreeCursor(display,cursor); XFlush(display); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C o m p o s i t e I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XCompositeImageWindow requests an image name from the user, reads % the image and composites it with the X window image at a location the user % chooses with the pointer. % % The format of the XCompositeImageWindow routine is: % % status=XCompositeImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XCompositeImageWindow returns True if the image is % composited. False is returned is there is a memory shortage or if the % image fails to be composited. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % */ static unsigned int XCompositeImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image **image; { static char *ImageCompositeHelp[]= { "First a popup window is displayed requesting you to enter an", "image name. Press Composite, enter 'X:', or type a file", "name. Press Cancel if you choose not to create a composite", "image. When you specify X: as your file name, the filename", "has special meaning. It specifies an X window by id, name,", "or root. If no name is specified, the window is selected by", "clicking the mouse in the desired window.", "", "A small window appears showing the location of the cursor in", "the image window. You are now in composite mode. To exit", "immediately, press ESC. In composite mode, Press a button", "to affect this behavior:", "", "1 Press to select a location within image window to", " composite your image.", "", "2 Press and drag to select a composite operation from a", " pop-up menu. Choose from these composite operations:", "", " over", " in", " out", " atop", " xor", " plus", " minus", " add", " subtract", " difference", " replace", "", "How each operator behaves is described below. image window", "is the image currently displayed on your X server and image", "is image obtained with the File Browser widget.", "", "over The result is the union of the two image shapes,", " with image obscuring image window in the region", " of overlap.", "", "in The result is simply image cut by the shape of", " image window. None of the image data of image", " window is in the result.", "", "out The resulting image is image with the shape of", " image window cut out.", "", "atop The result is the same shape as image image window,", " with image obscuring image window where the image", " shapes overlap. Note this differs from over", " because the portion of image outside image window's", " shape does not appear in the result.", "", "xor The result is the image data from both image and", " image window that is outside the overlap region.", " The overlap region is blank.", "", "plus The result is just the sum of the image data.", " Output values are clipped to 255 (no overflow).", " This operation is independent of the matte", " channels.", "", "minus The result of image - image window, with underflow", " clipped to zero. The matte channel is ignored (set", " to 255, full coverage).", "", "add The result of image + image window, with overflow", " wrapping around (mod 256).", "", "subtract The result of image - image window, with underflow", " wrapping around (mod 256). The add and subtract", " operators can be used to perform reversible", " transformations.", "", "difference", " The result of abs(image - image window). This is", " useful for comparing two very similar images.", "", "replace The resulting image is image window replaced with", " image. Here the matte information is ignored.", "", "The image compositor requires an matte, or alpha channel in", "the image for some operations. This extra channel usually", "defines a mask which represents a sort of a cookie-cutter", "for the image. This is the case when matte is 255 (full", "coverage) for pixels inside the shape, zero outside, and", "between zero and 255 on the boundary. If image does not", "have an matte channel, it is initialized with 0 for any", "pixel matching in color to pixel location (0,0), otherwise", "255.", "", "Note that matte information for image window is not retained", "for colormapped X server visuals (e.g. StaticColor,", "StaticColor, GrayScale, PseudoColor). Correct compositing", "behavior may require a TrueColor or DirectColor visual or a", "Standard Colormap.", "", "Choosing a composite operator is optional. The default", "operator is over. However, you must choose a location to", "composite your image and press button 1. Press and hold", "button 1 before releasing and an outline of the image will", "appear to help you identify your location.", "", "Immediately after releasing button 1, image window is", "permanently updated with your composited image. There is no", "way to `undo' your changes. Be careful when choosing your", "location.", "", "The actual colors of the composite image is saved. However,", "the color that appears in image window may be different.", "For example, on a monochrome screen image window will appear", "black or white even though your composited image may have", "many colors. If the image is saved to a file it is written", "with the correct colors. To assure the correct colors are", "saved in the final image, any PseudoClass image is promoted", "to DirectClass.", (char *) NULL, }; char filename[MaxTextLength], text[MaxTextLength]; Cursor cursor; Image *composite_image; int i, x, y; RectangleInfo composite_info; static unsigned int operator = OverCompositeOp; unsigned int height, mask, width; unsigned long scale_factor, state; Window xwindow; XEvent event; /* Request image file name from user. */ (void) strcpy(filename,"x:"); XFileBrowserWidget(display,windows,"Composite",filename); if (*filename == '\0') return(True); XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XCheckRefreshWindow(display,&windows->image); /* Read image. */ (void) strcpy(resource_info->image_info->filename,filename); composite_image=ReadImage(resource_info->image_info); XDefineCursor(display,windows->image.id,windows->image.cursor); if (composite_image == (Image *) NULL) { XNoticeWidget(display,windows,"Unable to read image",filename); return(False); } /* Map info window. */ state=DefaultState; (void) sprintf(text," +%u+%u ",windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Track pointer until button 1 is pressed. */ XQueryPointer(display,windows->image.id,&xwindow,&xwindow,&i,&i,&x,&y,&mask); composite_info.x=x; composite_info.y=y; composite_info.width=0; composite_info.height=0; XSelectInput(display,windows->image.id,windows->image.attributes.event_mask | PointerMotionMask); cursor=XCreateFontCursor(display,XC_ul_angle); XSetFunction(display,windows->image.highlight_context,GXinvert); do { if (windows->info.mapped) { /* Display pointer position. */ (void) sprintf(text," %+d%+d ",x-windows->image.x,y-windows->image.y); XDisplayInfoString(display,&windows->info,text); } XHighlightRegion(display,windows->image.id,windows->image.highlight_context, &composite_info); /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); XHighlightRegion(display,windows->image.id,windows->image.highlight_context, &composite_info); switch (event.type) { case ButtonPress: { if (resource_info->debug) (void) fprintf(stderr,"Button Press: 0x%lx %u +%d+%d\n", event.xbutton.window,event.xbutton.button,event.xbutton.x, event.xbutton.y); if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); XSetWindowExtents(display,&windows->info,text); break; } switch (event.xbutton.button) { case Button1: { composite_info.width=composite_image->columns; composite_info.height=composite_image->rows; XDefineCursor(display,windows->image.id,cursor); break; } case Button2: { char command[MaxTextLength]; static char *CompositeSelections[]= { "over", "in", "out", "atop", "xor", "plus", "minus", "add", "subtract", "difference", "replace", }; /* Select a command from the pop-up menu. */ operator=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Operations",CompositeSelections, sizeof(CompositeSelections)/sizeof(CompositeSelections[0]), command)+1; break; } default: break; } break; } case ButtonRelease: { if (resource_info->debug) (void) fprintf(stderr,"Button Release: 0x%lx %u +%d+%d\n", event.xbutton.window,event.xbutton.button,event.xbutton.x, event.xbutton.y); if (event.xbutton.button == Button1) if ((composite_info.width != 0) && (composite_info.height != 0)) { /* User has selected the location of the composite image. */ composite_info.x=event.xbutton.x; composite_info.y=event.xbutton.y; state|=ExitState; } break; } case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; static int length; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (resource_info->debug) (void) fprintf(stderr,"Key press: 0x%lx (%s)\n",key_symbol,command); switch (key_symbol) { case XK_Escape: { /* Prematurely exit. */ DestroyImage(composite_image); state|=EscapeState; state|=ExitState; break; } case XK_F1: case XK_Help: { XSetFunction(display,windows->image.highlight_context,GXcopy); XTextViewWidget(display,windows,"Help Viewer - Image Compositing", ImageCompositeHelp); XSetFunction(display,windows->image.highlight_context,GXinvert); break; } default: break; } break; } case MotionNotify: { /* Discard pending pointer motion events. */ while (XCheckMaskEvent(display,PointerMotionMask,&event)); x=event.xmotion.x; y=event.xmotion.y; /* Map and unmap info window as text cursor crosses its boundaries. */ if (windows->info.mapped) { if ((x < (windows->info.x+windows->info.width)) && (y < (windows->info.y+windows->info.height))) XWithdrawWindow(display,windows->info.id,windows->info.screen); } else if ((x > (windows->info.x+windows->info.width)) || (y > (windows->info.y+windows->info.height))) XMapWindow(display,windows->info.id); composite_info.x=x; composite_info.y=y; break; } default: { if (resource_info->debug) (void) fprintf(stderr,"Event type: %d\n",event.type); break; } } } while (!(state & ExitState)); XSetFunction(display,windows->image.highlight_context,GXcopy); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask); XDefineCursor(display,windows->image.id,windows->image.cursor); XFreeCursor(display,cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); XFlush(display); if (state & EscapeState) return(True); /* Image compositing is relative to image configuration. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); x=0; y=0; width=(*image)->columns; height=(*image)->rows; if (windows->image.clip_geometry != (char *) NULL) (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width,&height); scale_factor=UpShift(width)/windows->image.ximage->width; composite_info.x+=windows->image.x; composite_info.x=DownShift(composite_info.x*scale_factor); composite_info.width=DownShift(composite_info.width*scale_factor); scale_factor=UpShift(height)/windows->image.ximage->height; composite_info.y+=windows->image.y; composite_info.y=DownShift(composite_info.y*scale_factor); composite_info.height=DownShift(composite_info.height*scale_factor); if ((composite_info.width != composite_image->columns) || (composite_info.height != composite_image->rows)) { Image *scaled_image; /* Scale composite image. */ scaled_image= ScaleImage(composite_image,composite_info.width,composite_info.height); DestroyImage(composite_image); if (scaled_image == (Image *) NULL) { XDefineCursor(display,windows->image.id,windows->image.cursor); return(False); } composite_image=scaled_image; } /* Composite image with X image window. */ CompositeImage(*image,operator,composite_image,composite_info.x+x, composite_info.y+y); DestroyImage(composite_image); XDefineCursor(display,windows->image.id,windows->image.cursor); /* Update image colormap. */ XConfigureImageColormap(display,resource_info,windows,*image); (void) XConfigureImageWindow(display,resource_info,windows,*image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C o n f i g u r e I m a g e C o l o r m a p % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XConfigureImageColormap creates a new X colormap. % % The format of the XConfigureImageColormap routine is: % % XConfigureImageColormap(display,resource_info,windows,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static void XConfigureImageColormap(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { #define ConfigureColormapText " Configuring colormap... " /* Map info window. */ XSetWindowExtents(display,&windows->info,ConfigureColormapText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,ConfigureColormapText); XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); /* Make standard colormap. */ XMakeStandardColormap(display,windows->image.visual_info,resource_info, image,windows->image.map_info,windows->image.pixel_info); XWithdrawWindow(display,windows->info.id,windows->info.screen); XDefineCursor(display,windows->image.id,windows->image.cursor); XCheckRefreshWindow(display,&windows->image); XClientMessage(display,windows->image.id,windows->im_protocols, windows->im_window_colormap,CurrentTime); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C o n f i g u r e I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XConfigureImageWindow creates a new X image. It also notifies the % window manager of the new image size and configures the transient widows. % % The format of the XConfigureImageWindow routine is: % % status=XConfigureImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XConfigureImageWindow returns True if the window is % resized. False is returned is there is a memory shortage or if the % window fails to resize. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static unsigned int XConfigureImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { #define ConfigureImageText " Configuring image... " #define MaxPanSize 96 unsigned int height, mask, status, width, x_factor, y_factor; XWindowChanges window_changes; /* Map info window. */ XSetWindowExtents(display,&windows->info,ConfigureImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,ConfigureImageText); /* Resize image to fit image window dimensions. */ width=windows->image.window_changes.width; height=windows->image.window_changes.height; if (resource_info->debug) (void) fprintf(stderr,"Configure Image: %dx%d=>%ux%u\n", windows->image.ximage->width,windows->image.ximage->height,width,height); if ((width*height) == 0) return(True); XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); x_factor=UpShift(width)/windows->image.ximage->width; y_factor=UpShift(height)/windows->image.ximage->height; status=XMakeImage(display,resource_info,&windows->image,image,width,height); if (resource_info->use_pixmap) (void) XMakePixmap(display,resource_info,&windows->image); if (status == False) XNoticeWidget(display,windows,"Unable to configure X image", windows->image.name); /* Notify window manager of the new configuration. */ if (width > XDisplayWidth(display,windows->image.screen)) width=XDisplayWidth(display,windows->image.screen); window_changes.width=width; if (height > XDisplayHeight(display,windows->image.screen)) height=XDisplayHeight(display,windows->image.screen); window_changes.height=height; mask=CWWidth | CWHeight; if (resource_info->backdrop) { mask|=CWX | CWY; window_changes.x= (XDisplayWidth(display,windows->image.screen) >> 1)-(width >> 1); window_changes.y= (XDisplayHeight(display,windows->image.screen) >> 1)-(height >> 1); } if ((x_factor < UpShift(1)) && (y_factor < UpShift(1))) XSetWindowBackgroundPixmap(display,windows->image.id,None); XReconfigureWMWindow(display,windows->image.id,windows->image.screen,mask, &window_changes); if ((x_factor == UpShift(1)) && (y_factor == UpShift(1))) XRefreshWindow(display,&windows->image,(XEvent *) NULL); else { unsigned int scale_factor; /* Update transient configuration. */ scale_factor=UpShift(MaxPanSize)/windows->image.ximage->width; if (scale_factor > (UpShift(MaxPanSize)/windows->image.ximage->height)) scale_factor=UpShift(MaxPanSize)/windows->image.ximage->height; window_changes.width=DownShift(windows->image.ximage->width*scale_factor); window_changes.height= DownShift(windows->image.ximage->height*scale_factor); XReconfigureWMWindow(display,windows->pan.id,windows->pan.screen,CWWidth | CWHeight,&window_changes); XBestIconSize(display,&windows->icon,image); window_changes.width=windows->icon.width; window_changes.height=windows->icon.height; XReconfigureWMWindow(display,windows->icon.id,windows->icon.screen, CWWidth | CWHeight,&window_changes); } XSetWindowBackground(display,windows->image.id, windows->image.pixel_info->background_color.pixel); windows->magnify.x=DownShift(x_factor*windows->magnify.x); windows->magnify.y=DownShift(y_factor*windows->magnify.y); if (windows->magnify.mapped) XMakeMagnifyImage(display,windows); windows->image.x=DownShift(x_factor*windows->image.x); windows->image.y=DownShift(y_factor*windows->image.y); windows->pan.clip_geometry=windows->image.clip_geometry; if (windows->pan.mapped) XMakePanImage(display,resource_info,windows,image); windows->icon.clip_geometry=windows->image.clip_geometry; XWithdrawWindow(display,windows->info.id,windows->info.screen); XDefineCursor(display,windows->image.id,windows->image.cursor); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C u t I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XCutImageWindow cuts the X image. % % The format of the XCutImageWindow routine is: % % status=XCutImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XCutImageWindow return True if the image is % cut. False is returned is there is a memory shortage or if the % image fails to cut. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static unsigned int XCutImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image **image; { #define CutImageText " Cutting image... " #define HorizonalCutOp 0 #define VerticalCutOp 1 static char *ImageCutHelp[]= { "Press a button to affect this behavior:", "", "1 Select a location within the image window to begin your", " cut, press and hold. Next, move the pointer to another", " location in the image. As you move a line will connect", " the initial location and the pointer. When you release", " the button, the area within the image to cut is", " determined by which cut direction you choose with", " button 2.", "", "2 Press and drag to select a cut operator from a pop-up", " menu. Choose from these cut operators:", "", " horizontal", " vertical", "", "If the operator is horizontal, the area of the image between", "the two horizontal endpoints of the cut line is removed.", "Otherwise, the area of the image between the two vertical", "endpoints of the cut line is removed.", "", "To cancel the image cutting, move the pointer back to the", "starting point of the line and release the button.", (char *) NULL, }; char text[MaxTextLength]; Image *cut_image; int i, x, y; RectangleInfo cut_info; static unsigned int operator = HorizonalCutOp; unsigned int distance, height, mask, width; unsigned long scale_factor, state; Window xwindow; XEvent event; XSegment segment_info; /* Map info window. */ state=DefaultState; (void) sprintf(text," +%u+%u ",windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Track pointer until button 1 is pressed. */ XQueryPointer(display,windows->image.id,&xwindow,&xwindow,&i,&i,&x,&y,&mask); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask | PointerMotionMask); do { if (windows->info.mapped) { /* Display pointer position. */ (void) sprintf(text," %+d%+d ",x-windows->image.x,y-windows->image.y); XDisplayInfoString(display,&windows->info,text); } /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); XSetWindowExtents(display,&windows->info,text); break; } switch (event.xbutton.button) { case Button1: { /* User has committed to start point of cutting line. */ segment_info.x1=event.xbutton.x; segment_info.x2=event.xbutton.x; segment_info.y1=event.xbutton.y; segment_info.y2=event.xbutton.y; state|=ExitState; break; } case Button2: { char command[MaxTextLength]; static char *CutSelections[]= { "horizonal", "vertical", }; /* Select a command from the pop-up menu. */ operator=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Operations",CutSelections, sizeof(CutSelections)/sizeof(CutSelections[0]),command)+1; break; } } break; } case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command, sizeof(command),&key_symbol,(XComposeStatus *) NULL); switch (key_symbol) { case XK_Escape: { /* Prematurely exit. */ state|=EscapeState; state|=ExitState; break; } case XK_F1: case XK_Help: { XSetFunction(display,windows->image.highlight_context,GXcopy); XTextViewWidget(display,windows,"Help Viewer - Image Cutting", ImageCutHelp); XSetFunction(display,windows->image.highlight_context,GXinvert); break; } default: break; } break; } case MotionNotify: { /* Discard pending pointer motion events. */ while (XCheckMaskEvent(display,PointerMotionMask,&event)); x=event.xmotion.x; y=event.xmotion.y; /* Map and unmap info window as text cursor crosses its boundaries. */ if (windows->info.mapped) { if ((x < (windows->info.x+windows->info.width)) && (y < (windows->info.y+windows->info.height))) XWithdrawWindow(display,windows->info.id,windows->info.screen); } else if ((x > (windows->info.x+windows->info.width)) || (y > (windows->info.y+windows->info.height))) XMapWindow(display,windows->info.id); } } } while (!(state & ExitState)); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (state & EscapeState) return(True); /* Draw line as pointer moves until the mouse button is released. */ distance=0; (void) sprintf(text," %ux%u+%u+%u ",windows->image.width, windows->image.height,windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XSetFunction(display,windows->image.highlight_context,GXinvert); state=DefaultState; do { /* Compute cutting geometry. */ if (operator == HorizonalCutOp) { cut_info.width=segment_info.x2-segment_info.x1+1; cut_info.x=segment_info.x1; cut_info.height=0; cut_info.y=0; if (segment_info.x1 > segment_info.x2) { cut_info.width=segment_info.x1-segment_info.x2+1; cut_info.x=segment_info.x2; } } else { cut_info.width=0; cut_info.height=segment_info.y2-segment_info.y1+1; cut_info.x=0; cut_info.y=segment_info.y1; if (segment_info.y1 > segment_info.y2) { cut_info.height=segment_info.y1-segment_info.y2+1; cut_info.y=segment_info.y2; } } if (distance > 9) { /* Display info and draw cutting line. */ if (!windows->info.mapped) XMapWindow(display,windows->info.id); (void) sprintf(text," %ux%u%+d%+d",cut_info.width,cut_info.height, cut_info.x,cut_info.y); XDisplayInfoString(display,&windows->info,text); XHighlightLine(display,windows->image.id, windows->image.highlight_context,&segment_info); } else if (windows->info.mapped) XWithdrawWindow(display,windows->info.id,windows->info.screen); /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); if (distance > 9) XHighlightLine(display,windows->image.id, windows->image.highlight_context,&segment_info); switch (event.type) { case ButtonPress: break; case ButtonRelease: { /* User has committed to cutting line. */ segment_info.x2=event.xbutton.x; segment_info.y2=event.xbutton.y; state|=ExitState; break; } case Expose: break; case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); segment_info.x2=event.xmotion.x; segment_info.y2=event.xmotion.y; } default: break; } /* Check boundary conditions. */ if (segment_info.x2 < 0) segment_info.x2=0; else if (segment_info.x2 > windows->image.width) segment_info.x2=windows->image.width; if (segment_info.y2 < 0) segment_info.y2=0; else if (segment_info.y2 > windows->image.height) segment_info.y2=windows->image.height; /* Compute distance. */ distance= ((segment_info.x2-segment_info.x1)*(segment_info.x2-segment_info.x1))+ ((segment_info.y2-segment_info.y1)*(segment_info.y2-segment_info.y1)); } while (!(state & ExitState)); XSetFunction(display,windows->image.highlight_context,GXcopy); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (distance <= 9) return(True); /* Map info window. */ XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,CutImageText); XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); /* Image cutting is relative to image configuration. */ if ((windows->image.clip_geometry != (char *) NULL) || ((*image)->columns != windows->image.ximage->width) || ((*image)->rows != windows->image.ximage->height)) { char image_geometry[MaxTextLength]; /* Update image with user transforms. */ (void) sprintf(image_geometry,"%dx%d",windows->image.ximage->width, windows->image.ximage->height); TransformImage(image,windows->image.clip_geometry,image_geometry); if (windows->image.clip_geometry != (char *) NULL) { (void) free((char *) windows->image.clip_geometry); windows->image.clip_geometry=(char *) NULL; } windows->image.x=0; windows->image.y=0; } windows->image.window_changes.width= windows->image.ximage->width-cut_info.width; windows->image.window_changes.height= windows->image.ximage->height-cut_info.height; x=0; y=0; width=(*image)->columns; height=(*image)->rows; if (windows->image.clip_geometry != (char *) NULL) (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width,&height); scale_factor=UpShift(width)/windows->image.ximage->width; cut_info.x+=windows->image.x; cut_info.x=DownShift(cut_info.x*scale_factor); cut_info.width=DownShift(cut_info.width*scale_factor); scale_factor=UpShift(height)/windows->image.ximage->height; cut_info.y+=windows->image.y; cut_info.y=DownShift(cut_info.y*scale_factor); cut_info.height=DownShift(cut_info.height*scale_factor); /* Cut image. */ cut_image=CutImage(*image,&cut_info); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (cut_image == (Image *) NULL) return(False); DestroyImage(*image); *image=cut_image; /* Update image configuration. */ XConfigureImageColormap(display,resource_info,windows,*image); (void) XConfigureImageWindow(display,resource_info,windows,*image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D i s p l a y B a c k g r o u n d I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDisplayBackgroundImage displays an image in the background of a % window. % % The format of the XDisplayBackgroundImage routine is: % % XDisplayBackgroundImage(display,resource_info,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static void XDisplayBackgroundImage(display,resource_info,image) Display *display; XResourceInfo *resource_info; Image *image; { char visual_type[MaxTextLength]; unsigned int height, status, width; Window root_window; XGCValues context_values; XPixelInfo pixel_info; XResourceInfo resources; XStandardColormap *map_info; XVisualInfo *visual_info; XWindowAttributes window_attributes; XWindowInfo window_info; /* Determine target window. */ window_info.id=(Window) NULL; window_info.ximage=(XImage *) NULL; window_info.pixmap=(Pixmap) NULL; root_window=XRootWindow(display,XDefaultScreen(display)); if (Latin1Compare(resource_info->window_id,"root") == 0) window_info.id=root_window; else { if (isdigit(*resource_info->window_id)) window_info.id=XWindowByID(display,root_window, (Window) strtol((char *) resource_info->window_id,(char **) NULL,0)); if (window_info.id == (Window) NULL) window_info.id= XWindowByName(display,root_window,resource_info->window_id); if (window_info.id == (Window) NULL) Error("No window with specified id exists",resource_info->window_id); } /* Determine window visual id. */ window_attributes.width=XDisplayWidth(display,XDefaultScreen(display)); window_attributes.height=XDisplayHeight(display,XDefaultScreen(display)); (void) strcpy(visual_type,"default"); status=XGetWindowAttributes(display,window_info.id,&window_attributes); if (status != False) (void) sprintf(visual_type,"0x%lx", XVisualIDFromVisual(window_attributes.visual)); /* Allocate standard colormap. */ map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Error("Unable to create standard colormap","Memory allocation failed"); map_info->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; /* Initialize visual info. */ resources=(*resource_info); resources.map_type=(char *) NULL; resources.visual_type=visual_type; visual_info=XBestVisualInfo(display,map_info,&resources); if (visual_info == (XVisualInfo *) NULL) Error("Unable to get visual",resource_info->visual_type); /* Free previous root colors. */ if (window_info.id == root_window) XDestroyWindowColors(display,root_window); /* Initialize colormap. */ resources.colormap=SharedColormap; XMakeStandardColormap(display,visual_info,&resources,image,map_info, &pixel_info); /* Graphic context superclass. */ context_values.background=pixel_info.background_color.pixel; context_values.foreground=pixel_info.foreground_color.pixel; pixel_info.annotate_context=XCreateGC(display,window_info.id,GCBackground | GCForeground,&context_values); if (pixel_info.annotate_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); /* Initialize image window attributes. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,(XFontStruct *) NULL, resource_info,&window_info); /* Create the X image. */ window_info.width=image->columns; if (window_info.width >= window_attributes.width) window_info.width=window_attributes.width; window_info.height=image->rows; if (window_info.height >= window_attributes.height) window_info.height=window_attributes.height; status=XMakeImage(display,resource_info,&window_info,image,window_info.width, window_info.height); if (status == False) Error("Unable to create X image",(char *) NULL); /* Adjust image dimensions as specified by backdrop or geometry options. */ width=window_info.width; height=window_info.height; if (resource_info->backdrop) { /* Center image on root window. */ window_info.x=(window_attributes.width >> 1)- (window_info.ximage->width >> 1); window_info.y=(window_attributes.height >> 1)- (window_info.ximage->height >> 1); width=window_attributes.width; height=window_attributes.height; } if (resource_info->image_geometry != (char *) NULL) { char default_geometry[MaxTextLength]; int flags, gravity; XSizeHints *size_hints; /* User specified geometry. */ size_hints=XAllocSizeHints(); if (size_hints == (XSizeHints *) NULL) Error("Unable to display on window","Memory allocation failed"); size_hints->flags=(long) NULL; (void) sprintf(default_geometry,"%ux%u",width,height); flags=XWMGeometry(display,visual_info->screen, resource_info->image_geometry,default_geometry, window_info.border_width,size_hints,&window_info.x,&window_info.y, (int *) &width,(int *) &height,&gravity); if (flags & (XValue | YValue)) { width=window_attributes.width; height=window_attributes.height; } XFree((void *) size_hints); } /* Create the X pixmap. */ window_info.pixmap= XCreatePixmap(display,window_info.id,width,height,window_info.depth); if (window_info.pixmap == (Pixmap) NULL) Error("Unable to create X pixmap",(char *) NULL); /* Display pixmap on the window. */ if ((width > window_info.width) || (height > window_info.height)) XFillRectangle(display,window_info.pixmap,window_info.annotate_context, 0,0,width,height); XPutImage(display,window_info.pixmap,window_info.annotate_context, window_info.ximage,0,0,window_info.x,window_info.y,window_info.width, window_info.height); XSetWindowBackgroundPixmap(display,window_info.id,window_info.pixmap); XClearWindow(display,window_info.id); if (window_info.id == root_window) XRetainWindowColors(display,root_window); /* Free resources. */ XFreePixmap(display,window_info.pixmap); XDestroyImage(window_info.ximage); XFreeGC(display,window_info.annotate_context); XFreeCursor(display,window_info.cursor); XFreeCursor(display,window_info.busy_cursor); if (pixel_info.pixels != (unsigned long *) NULL) (void) free((char *) pixel_info.pixels); XFree((void *) map_info); XFree((void *) visual_info); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D i s p l a y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDisplayImage displays an image via X11. A new image is created % and returned if the user interactively transforms the displayed image. % % The format of the XDisplayImage routine is: % % loaded_image=XDisplayImage(display,resource_info,argv,argc,image,state) % % A description of each parameter follows: % % o loaded_image: Function XDisplayImage returns an image when the % user chooses 'Load Image' from the command menu or picks a tile % from the image directory. Otherwise a null image is returned. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o argv: Specifies the application's argument list. % % o argc: Specifies the number of arguments. % % o image: Specifies an address to an address of an Image structure; % returned from ReadImage. % % */ static Image *XDisplayImage(display,resource_info,argv,argc,image,state) Display *display; XResourceInfo *resource_info; char **argv; int argc; Image **image; unsigned long *state; { #define MagnifySize 256 /* must be a power of 2 */ #define MaxWindows 9 static char *ImagePanHelp[]= { "When an image exceeds the width or height of the X server", "screen, display maps a small panning window. The rectangle", "within the panning window shows the area that is currently", "displayed in the the image window. To 'pan' about the", "image, press and drag the mouse within the panning window.", "The panning rectangle moves with the mouse and the image", "window is updated to reflect the location of the rectangle", "within the panning window. When you have selected the area", "of the image you wish to view, just release the mouse", "button.", "", "Use the arrow keys to pan the image one pixel up, down,", "left, or right within the image window.", "", "The panning window goes away if the image becomes smaller", "than the dimensions of the X server screen.", "", "If you force the panning window to withdraw, the image is", "restored to its original size.", (char *) NULL, }; static unsigned char HighlightBitmap[] = {0xaa,0x55,0xaa,0x55,0xaa,0x55,0xaa,0x55}, ShadowBitmap[] = {0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00}; char command[MaxTextLength]; Image *displayed_image, *loaded_image; int status; KeySym key_symbol; register int i; static Window root_window; static XClassHint *class_hint; static XImage former_ximage; static XPixelInfo icon_pixel, pixel_info; static XPoint montage_info; static XResourceInfo icon_resources; static XStandardColormap *icon_map, *map_info; static XVisualInfo *icon_visual, *visual_info = (XVisualInfo *) NULL; static XWindowInfo *magick_windows[MaxWindows]; static XWindows *windows; static XWMHints *manager_hints; static unsigned int number_windows; struct stat file_info; time_t timer, time_stamp, update_time; unsigned int scale_factor; XEvent event; XFontStruct *font_info; XGCValues context_values; XWindowChanges window_changes; if (visual_info == (XVisualInfo *) NULL) { /* Allocate standard colormap. */ if (resource_info->debug) XSynchronize(display,True); map_info=XAllocStandardColormap(); icon_map=XAllocStandardColormap(); if ((map_info == (XStandardColormap *) NULL) || (icon_map == (XStandardColormap *) NULL)) Error("Unable to create standard colormap","Memory allocation failed"); map_info->colormap=(Colormap) NULL; icon_map->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; icon_pixel.pixels=(unsigned long *) NULL; /* Allocate visual. */ icon_resources=(*resource_info); icon_resources.map_type=(char *) NULL; icon_resources.visual_type="default"; icon_resources.colormap=SharedColormap; visual_info=XBestVisualInfo(display,map_info,resource_info); icon_visual=XBestVisualInfo(display,icon_map,&icon_resources); if ((visual_info == (XVisualInfo *) NULL) || (icon_visual == (XVisualInfo *) NULL)) Error("Unable to get visual",resource_info->visual_type); if (resource_info->debug) { (void) fprintf(stderr,"Visual:\n"); (void) fprintf(stderr," visual id: 0x%lx\n",visual_info->visualid); (void) fprintf(stderr," class: %s\n", XVisualClassName(visual_info->class)); (void) fprintf(stderr," depth: %d planes\n",visual_info->depth); (void) fprintf(stderr," size of colormap: %d entries\n", visual_info->colormap_size); (void) fprintf(stderr," red, green, blue masks: 0x%lx 0x%lx 0x%lx\n", visual_info->red_mask,visual_info->green_mask, visual_info->blue_mask); (void) fprintf(stderr," significant bits in color: %d bits\n", visual_info->bits_per_rgb); } /* Allocate atoms. */ windows=(XWindows *) malloc(sizeof(XWindows)); if (windows == (XWindows *) NULL) Error("Unable to create X windows","Memory allocation failed"); windows->wm_protocols=XInternAtom(display,"WM_PROTOCOLS",False); windows->wm_delete_window=XInternAtom(display,"WM_DELETE_WINDOW",False); windows->im_protocols=XInternAtom(display,"IM_PROTOCOLS",False); windows->im_window_colormap= XInternAtom(display,"IM_UPDATE_COLORMAP",False); windows->im_former_image=XInternAtom(display,"IM_FORMER_IMAGE",False); windows->im_next_image=XInternAtom(display,"IM_NEXT_IMAGE",False); windows->im_exit=XInternAtom(display,"IM_EXIT",False); /* Allocate class and manager hints. */ class_hint=XAllocClassHint(); manager_hints=XAllocWMHints(); if ((class_hint == (XClassHint *) NULL) || (manager_hints == (XWMHints *) NULL)) Error("Unable to allocate X hints",(char *) NULL); /* Initialize window id's. */ root_window=XRootWindow(display,visual_info->screen); number_windows=0; magick_windows[number_windows++]=(&windows->backdrop); magick_windows[number_windows++]=(&windows->icon); magick_windows[number_windows++]=(&windows->image); magick_windows[number_windows++]=(&windows->info); magick_windows[number_windows++]=(&windows->magnify); magick_windows[number_windows++]=(&windows->pan); magick_windows[number_windows++]=(&windows->popup); for (i=0; i < number_windows; i++) magick_windows[i]->id=(Window) NULL; montage_info.x=0; montage_info.y=0; } /* Initialize Standard Colormap. */ loaded_image=(Image *) NULL; displayed_image=(*image); if (resource_info->debug) { (void) fprintf(stderr,"Image: [%u] %s %ux%u ",displayed_image->scene, displayed_image->filename,displayed_image->columns, displayed_image->rows); if (displayed_image->colors != 0) (void) fprintf(stderr,"%uc ",displayed_image->colors); (void) fprintf(stderr,"%s\n",displayed_image->magick); } XMakeStandardColormap(display,visual_info,resource_info,displayed_image, map_info,&pixel_info); /* Initialize font info. */ font_info=XBestFont(display,resource_info); if (font_info == (XFontStruct *) NULL) Error("Unable to load font",resource_info->font); /* Initialize graphic context. */ windows->context.id=(Window) NULL; XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->context); class_hint->res_name="superclass"; class_hint->res_class="ImageMagick"; manager_hints->flags=InputHint | StateHint; manager_hints->input=False; manager_hints->initial_state=WithdrawnState; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->context); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (context)\n",windows->context.id); context_values.background=pixel_info.background_color.pixel; context_values.font=font_info->fid; context_values.foreground=pixel_info.foreground_color.pixel; context_values.graphics_exposures=False; pixel_info.annotate_context=XCreateGC(display,windows->context.id, GCBackground | GCFont | GCForeground | GCGraphicsExposures,&context_values); if (pixel_info.annotate_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); context_values.background=pixel_info.depth_color.pixel; pixel_info.widget_context=XCreateGC(display,windows->context.id, GCBackground | GCFont | GCForeground | GCGraphicsExposures,&context_values); if (pixel_info.widget_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); context_values.background=pixel_info.foreground_color.pixel; context_values.foreground=pixel_info.background_color.pixel; context_values.plane_mask= context_values.background ^ context_values.foreground; pixel_info.highlight_context=XCreateGC(display,windows->context.id, GCBackground | GCFont | GCForeground | GCGraphicsExposures | GCPlaneMask, &context_values); if (pixel_info.highlight_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); XDestroyWindow(display,windows->context.id); /* Initialize icon window. */ XGetWindowInfo(display,icon_visual,icon_map,&icon_pixel,(XFontStruct *) NULL, &icon_resources,&windows->icon); XBestIconSize(display,&windows->icon,displayed_image); windows->icon.attributes.colormap= XDefaultColormap(display,icon_visual->screen); windows->icon.attributes.event_mask=StructureNotifyMask; class_hint->res_name="icon"; manager_hints->flags=InputHint | StateHint; manager_hints->input=False; manager_hints->initial_state=IconicState; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->icon); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (icon)\n",windows->icon.id); /* Initialize graphic context for icon window. */ context_values.background=icon_pixel.background_color.pixel; context_values.foreground=icon_pixel.foreground_color.pixel; icon_pixel.annotate_context=XCreateGC(display,windows->icon.id, GCBackground | GCForeground,&context_values); if (icon_pixel.annotate_context == (GC) NULL) Error("Unable to create graphic context",(char *) NULL); windows->icon.annotate_context=icon_pixel.annotate_context; /* Initialize image window. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->image); windows->image.name=(char *) malloc(MaxTextLength*sizeof(char)); windows->image.icon_name=(char *) malloc(MaxTextLength*sizeof(char)); if ((windows->image.name == NULL) || (windows->image.icon_name == NULL)) Error("Unable to create image window","Memory allocation failed"); if (resource_info->title != (char *) NULL) { /* User specified window name. */ (void) strcpy(windows->image.name,resource_info->title); (void) strcpy(windows->image.icon_name,resource_info->title); } else { char *p; /* Window name is the base of the filename. */ p=displayed_image->filename+strlen(displayed_image->filename)-1; while ((p > displayed_image->filename) && (*(p-1) != '/')) p--; if ((displayed_image->previous == (Image *) NULL) && (displayed_image->next == (Image *) NULL)) (void) sprintf(windows->image.name,"ImageMagick: %s",p); else (void) sprintf(windows->image.name,"ImageMagick: %s.%u",p, displayed_image->scene); (void) strcpy(windows->image.icon_name,p); } windows->image.geometry=resource_info->image_geometry; windows->image.width=displayed_image->columns; if (windows->image.width > XDisplayWidth(display,visual_info->screen)) windows->image.width=XDisplayWidth(display,visual_info->screen); windows->image.height=displayed_image->rows; if (windows->image.height > XDisplayHeight(display,visual_info->screen)) windows->image.height=XDisplayHeight(display,visual_info->screen); windows->image.attributes.event_mask=ButtonMotionMask | ButtonPressMask | ButtonReleaseMask | EnterWindowMask | ExposureMask | KeyPressMask | KeyReleaseMask | LeaveWindowMask | OwnerGrabButtonMask | StructureNotifyMask; XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->backdrop); if (resource_info->backdrop || (windows->backdrop.id != (Window) NULL)) { /* Initialize backdrop window. */ windows->backdrop.name="ImageMagick Backdrop"; windows->backdrop.flags=USSize | USPosition; windows->backdrop.width=XDisplayWidth(display,visual_info->screen); windows->backdrop.height=XDisplayHeight(display,visual_info->screen); windows->backdrop.border_width=0; windows->backdrop.immutable=True; windows->backdrop.attributes.do_not_propagate_mask=ButtonPressMask | ButtonReleaseMask; windows->backdrop.attributes.event_mask=ButtonPressMask | KeyPressMask | OwnerGrabButtonMask; windows->backdrop.attributes.override_redirect=True; class_hint->res_name="backdrop"; manager_hints->flags=IconWindowHint | InputHint | StateHint; manager_hints->icon_window=windows->icon.id; manager_hints->input=True; manager_hints->initial_state= resource_info->iconic ? IconicState : NormalState; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->backdrop); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (backdrop)\n", windows->backdrop.id); XMapWindow(display,windows->backdrop.id); XClearWindow(display,windows->backdrop.id); if (windows->image.id != (Window) NULL) { XDestroyWindow(display,windows->image.id); windows->image.id=(Window) NULL; } /* Position image in the center the backdrop. */ windows->image.flags|=USPosition; windows->image.x=(XDisplayWidth(display,visual_info->screen) >> 1)- (windows->image.width >> 1); windows->image.y=(XDisplayHeight(display,visual_info->screen) >> 1)- (windows->image.height >> 1); windows->image.attributes.event_mask|=FocusChangeMask; } if (resource_info->name == (char *) NULL) class_hint->res_name=client_name; else class_hint->res_name=resource_info->name; manager_hints->flags=IconWindowHint | InputHint | StateHint; manager_hints->icon_window=windows->icon.id; manager_hints->input=True; manager_hints->initial_state= resource_info->iconic ? IconicState : NormalState; XMakeWindow(display, (resource_info->backdrop ? windows->backdrop.id : root_window),argv,argc, class_hint,manager_hints,windows->wm_delete_window,&windows->image); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (image)\n",windows->image.id); /* Initialize X image structure. */ windows->image.x=0; windows->image.y=0; status=XMakeImage(display,resource_info,&windows->image,displayed_image, displayed_image->columns,displayed_image->rows); if (status == False) Error("Unable to create X image",(char *) NULL); if (resource_info->use_pixmap) (void) XMakePixmap(display,resource_info,&windows->image); XMapWindow(display,windows->image.id); if (windows->popup.id != (Window) NULL) if ((windows->image.ximage->width == former_ximage.width) && (windows->image.ximage->height == former_ximage.height)) XRefreshWindow(display,&windows->image,(XEvent *) NULL); /* Initialize magnify window and cursor. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->magnify); windows->magnify.name=(char *) malloc(MaxTextLength*sizeof(char)); if (windows->magnify.name == NULL) Error("Unable to create magnify window","Memory allocation failed"); (void) sprintf(windows->magnify.name,"Magnify %uX",resource_info->magnify); windows->magnify.cursor=XMakeCursor(display,windows->image.id, map_info->colormap,resource_info->background_color, resource_info->foreground_color); if (windows->magnify.cursor == (Cursor) NULL) Error("Unable to create cursor",(char *) NULL); windows->magnify.width=MagnifySize; windows->magnify.height=MagnifySize; windows->magnify.x=XDisplayWidth(display,windows->magnify.screen) >> 1; windows->magnify.y=XDisplayHeight(display,windows->magnify.screen) >> 1; windows->magnify.min_width=MagnifySize; windows->magnify.min_height=MagnifySize; windows->magnify.width_inc=MagnifySize; windows->magnify.height_inc=MagnifySize; windows->magnify.data=resource_info->magnify; windows->magnify.attributes.save_under=True; windows->magnify.attributes.cursor=windows->magnify.cursor; windows->magnify.attributes.event_mask=ButtonPressMask | ExposureMask | KeyPressMask | OwnerGrabButtonMask | StructureNotifyMask; class_hint->res_name="magnify"; manager_hints->flags=InputHint | StateHint | WindowGroupHint; manager_hints->input=True; manager_hints->initial_state=NormalState; manager_hints->window_group=windows->image.id; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->magnify); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (magnify)\n",windows->magnify.id); XSetTransientForHint(display,windows->magnify.id,windows->image.id); /* Initialize panning window. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->pan); windows->pan.name="Pan Icon"; scale_factor=UpShift(MaxPanSize)/displayed_image->columns; if (scale_factor > (UpShift(MaxPanSize)/displayed_image->rows)) scale_factor=UpShift(MaxPanSize)/displayed_image->rows; windows->pan.width=DownShift(displayed_image->columns*scale_factor); windows->pan.height=DownShift(displayed_image->rows*scale_factor); windows->pan.x=XDisplayWidth(display,windows->pan.screen) >> 1; windows->pan.y=XDisplayHeight(display,windows->pan.screen) >> 1; windows->pan.immutable=True; windows->pan.attributes.save_under=True; windows->pan.attributes.event_mask=ButtonMotionMask | ButtonPressMask | ButtonReleaseMask | ExposureMask | OwnerGrabButtonMask | KeyPressMask | KeyReleaseMask | StructureNotifyMask; class_hint->res_name="pan"; manager_hints->flags=InputHint | StateHint | WindowGroupHint; manager_hints->input=True; manager_hints->initial_state=NormalState; manager_hints->window_group=windows->image.id; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->pan); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (pan)\n",windows->pan.id); XSetTransientForHint(display,windows->pan.id,windows->image.id); if ((windows->image.width < windows->image.ximage->width) || (windows->image.height < windows->image.ximage->height)) XMapRaised(display,windows->pan.id); /* Initialize popup window. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->popup); windows->popup.name=(char *) malloc(MaxTextLength*sizeof(char)); if (windows->popup.name == NULL) Error("Unable to create popup window","Memory allocation failed"); windows->popup.border_width=0; windows->popup.flags|=PPosition; windows->popup.attributes.backing_store=WhenMapped; windows->popup.attributes.save_under=True; windows->popup.attributes.event_mask=ButtonMotionMask | ButtonPressMask | ButtonReleaseMask | EnterWindowMask | ExposureMask | KeyPressMask | LeaveWindowMask | OwnerGrabButtonMask | StructureNotifyMask; class_hint->res_name="popup"; manager_hints->flags=InputHint | StateHint | WindowGroupHint; manager_hints->input=True; manager_hints->initial_state=NormalState; manager_hints->window_group=windows->image.id; XMakeWindow(display,root_window,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->popup); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (pop up)\n",windows->popup.id); windows->popup.highlight_stipple=XCreateBitmapFromData(display, windows->popup.id,(char *) HighlightBitmap,8,8); windows->popup.shadow_stipple=XCreateBitmapFromData(display, windows->popup.id,(char *) ShadowBitmap,8,8); XSetTransientForHint(display,windows->popup.id,windows->image.id); /* Initialize info window. */ XGetWindowInfo(display,visual_info,map_info,&pixel_info,font_info, resource_info,&windows->info); windows->info.name="ImageMagick Info"; windows->info.x=2; windows->info.y=2; windows->info.flags|=PPosition; windows->info.attributes.save_under=True; windows->info.attributes.win_gravity=UnmapGravity; windows->info.attributes.event_mask=ButtonPressMask | OwnerGrabButtonMask | StructureNotifyMask; class_hint->res_name="info"; manager_hints->flags=InputHint | StateHint | WindowGroupHint; manager_hints->input=False; manager_hints->initial_state=NormalState; manager_hints->window_group=windows->image.id; XMakeWindow(display,windows->image.id,argv,argc,class_hint,manager_hints, windows->wm_delete_window,&windows->info); if (resource_info->debug) (void) fprintf(stderr,"Window id: 0x%lx (info)\n",windows->info.id); if (*displayed_image->filename == '\0') loaded_image=XMagickCommand(display,resource_info,windows,0,XK_l, &displayed_image); /* Respond to events. */ timer=time((time_t *) NULL)+resource_info->delay; update_time=0; if (resource_info->update) { /* Determine when file data was last modified. */ status=stat(displayed_image->filename,&file_info); if (status == 0) update_time=file_info.st_mtime; } *state&=(~FormerImageState); *state&=(~NextImageState); do { /* Handle a window event. */ if (resource_info->delay != 0) { if (timer < time((time_t *) NULL)) if (!resource_info->update) *state|=NextImageState | ExitState; else { /* Determine if image file was modified. */ status=stat(displayed_image->filename,&file_info); if (status == 0) if (update_time != file_info.st_mtime) { /* Redisplay image. */ loaded_image=ReadImage(resource_info->image_info); if (loaded_image != (Image *) NULL) *state|=NextImageState | ExitState; } timer=time((time_t *) NULL)+resource_info->delay; } if (XEventsQueued(display,QueuedAfterFlush) == 0) { /* Do not block if delay > 0. */ XDelay(display,SuspendTime << 2); continue; } } time_stamp=time((time_t *) NULL); XNextEvent(display,&event); if (!windows->image.stasis) windows->image.stasis=(time((time_t *) NULL)-time_stamp) > 0; switch (event.type) { case ButtonPress: { if (resource_info->debug) (void) fprintf(stderr,"Button Press: 0x%lx %u +%d+%d\n", event.xbutton.window,event.xbutton.button,event.xbutton.x, event.xbutton.y); if ((event.xbutton.button == Button3) && (event.xbutton.state & Mod1Mask)) { /* Convert Alt-Button3 to Button2. */ event.xbutton.button=Button2; event.xbutton.state&=(~Mod1Mask); } if (event.xbutton.window == windows->image.id) switch (event.xbutton.button) { case Button1: { int command_number; static char *MenuSelections[]= { "Image Info", "Comment", "Half Size", "Double Size", "Rotate Right", "Rotate Left", "Print", "Write", "Load", "Next", "Former", "Help", "Quit" }; static KeySym MenuCommand[]= { XK_i, XK_numbersign, XK_less, XK_greater, XK_slash, XK_backslash, XK_p, XK_w, XK_l, XK_n, XK_f, XK_h, XK_q }; /* Select a command from the pop-up menu. */ command_number=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Commands",MenuSelections, sizeof(MenuSelections)/sizeof(MenuSelections[0]),command); if (command_number >= 0) loaded_image=XMagickCommand(display,resource_info,windows,0, MenuCommand[command_number],&displayed_image); break; } case Button2: { int command_number; static char *MenuSelections[]= { "Gamma", "Equalize", "Resize", "Trim Edges", "Clip", "Cut", "Rotate", "Reflect", "Annotate", "Composite", "Color Edit", "Matte Edit", "Restore", }; static KeySym MenuCommand[]= { XK_g, XK_equal, XK_minus, XK_t, XK_bracketleft, XK_bracketright, XK_bar, XK_r, XK_a, XK_x, XK_c, XK_m, XK_o, }; /* Select a command from the pop-up menu. */ command_number=XMenuWidget(display,windows,event.xbutton.x_root, event.xbutton.y_root,"Image Edit",MenuSelections, sizeof(MenuSelections)/sizeof(MenuSelections[0]),command); if (command_number >= 0) loaded_image=XMagickCommand(display,resource_info,windows,0, MenuCommand[command_number],&displayed_image); break; } case Button3: { if (displayed_image->montage != (char *) NULL) { /* User picked an image tile to display. */ loaded_image=XTileImageWindow(display,resource_info,windows, displayed_image,&event); if (loaded_image != (Image *) NULL) *state|=NextImageState | ExitState; montage_info.x=windows->image.x; montage_info.y=windows->image.y; break; } /* User pressed the image magnify button. */ if (windows->magnify.mapped) XRaiseWindow(display,windows->magnify.id); else { /* Make magnify image. */ status=XMakeImage(display,resource_info,&windows->magnify, (Image *) NULL,windows->magnify.width, windows->magnify.height); status|=XMakePixmap(display,resource_info,&windows->magnify); if (status == False) Error("Unable to create magnify image",(char *) NULL); XMapRaised(display,windows->magnify.id); } XMagnifyImageWindow(display,windows,&event); break; } default: break; } if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); break; } break; } case ClientMessage: { if (resource_info->debug) (void) fprintf(stderr,"Client Message: 0x%lx 0x%lx %d 0x%lx\n", event.xclient.window,event.xclient.message_type, event.xclient.format,event.xclient.data.l[0]); if (event.xclient.message_type == windows->im_protocols) { if (*event.xclient.data.l == windows->im_window_colormap) { /* Update window colormap and graphic context. */ for (i=0; i < number_windows; i++) { if (magick_windows[i]->id == windows->icon.id) continue; XSetWindowColormap(display,magick_windows[i]->id, map_info->colormap); XSetBackground(display,magick_windows[i]->annotate_context, pixel_info.background_color.pixel); XSetForeground(display,magick_windows[i]->annotate_context, pixel_info.foreground_color.pixel); XSetBackground(display,magick_windows[i]->widget_context, pixel_info.background_color.pixel); XSetForeground(display,magick_windows[i]->widget_context, pixel_info.foreground_color.pixel); XSetBackground(display,magick_windows[i]->highlight_context, pixel_info.foreground_color.pixel); XSetForeground(display,magick_windows[i]->highlight_context, pixel_info.background_color.pixel); } if (windows->backdrop.id != (Window) NULL) XInstallColormap(display,map_info->colormap); break; } if (*event.xclient.data.l == windows->im_former_image) { *state|=FormerImageState | ExitState; break; } if (*event.xclient.data.l == windows->im_next_image) { *state|=NextImageState | ExitState; break; } if (*event.xclient.data.l == windows->im_exit) { *state|=ExitState; break; } break; } /* If client window delete message, exit. */ if (event.xclient.message_type != windows->wm_protocols) break; if (*event.xclient.data.l != windows->wm_delete_window) break; XWithdrawWindow(display,event.xclient.window,visual_info->screen); if (event.xclient.window == windows->image.id) { *state|=ExitState; break; } if (event.xclient.window == windows->pan.id) { /* Restore original image size when pan window is deleted. */ windows->image.window_changes.width=windows->image.ximage->width; windows->image.window_changes.height=windows->image.ximage->height; (void) XConfigureImageWindow(display,resource_info,windows, displayed_image); } break; } case ConfigureNotify: { if (resource_info->debug) (void) fprintf(stderr,"Configure Notify: 0x%lx %dx%d+%d+%d\n", event.xconfigure.window,event.xconfigure.width, event.xconfigure.height,event.xconfigure.x,event.xconfigure.y); if (event.xconfigure.window == windows->image.id) { /* Image window has a new configuration. */ if ((event.xconfigure.width == windows->image.width) && (event.xconfigure.height == windows->image.height)) break; windows->image.width=event.xconfigure.width; windows->image.height=event.xconfigure.height; windows->image.x=0; windows->image.y=0; if (displayed_image->montage != (char *) NULL) { windows->image.x=montage_info.x; windows->image.y=montage_info.y; } if (windows->image.mapped && windows->image.stasis) { /* Update image window configuration. */ windows->image.window_changes.width=event.xconfigure.width; windows->image.window_changes.height=event.xconfigure.height; (void) XConfigureImageWindow(display,resource_info,windows, displayed_image); } else if ((event.xconfigure.width < windows->image.ximage->width) || (event.xconfigure.height < windows->image.ximage->height)) { XMapRaised(display,windows->pan.id); XDrawPanRectangle(display,windows); } else if (windows->pan.mapped) XWithdrawWindow(display,windows->pan.id,windows->pan.screen); break; } if (event.xconfigure.window == windows->magnify.id) { unsigned int magnify; /* Magnify window has a new configuration. */ windows->magnify.width=event.xconfigure.width; windows->magnify.height=event.xconfigure.height; if (!windows->magnify.mapped) break; magnify=1; while (magnify <= event.xconfigure.width) magnify<<=1; while (magnify <= event.xconfigure.height) magnify<<=1; magnify>>=1; if ((magnify != event.xconfigure.width) || (magnify != event.xconfigure.height)) { window_changes.width=magnify; window_changes.height=magnify; XReconfigureWMWindow(display,windows->magnify.id, windows->magnify.screen,CWWidth | CWHeight,&window_changes); break; } status=XMakeImage(display,resource_info,&windows->magnify, (Image *) NULL,windows->magnify.width,windows->magnify.height); status|=XMakePixmap(display,resource_info,&windows->magnify); if (status == False) Error("Unable to create magnify image",(char *) NULL); XMakeMagnifyImage(display,windows); break; } if (event.xconfigure.window == windows->pan.id) { /* Icon window has a new configuration. */ windows->pan.width=event.xconfigure.width; windows->pan.height=event.xconfigure.height; break; } if (event.xconfigure.window == windows->icon.id) { /* Icon window has a new configuration. */ windows->icon.width=event.xconfigure.width; windows->icon.height=event.xconfigure.height; break; } break; } case EnterNotify: { /* Selectively install colormap. */ if (map_info->colormap != XDefaultColormap(display,visual_info->screen)) if (event.xcrossing.mode != NotifyUngrab) XInductColormap(display,map_info->colormap); break; } case Expose: { if (resource_info->debug) (void) fprintf(stderr,"Expose: 0x%lx %dx%d+%d+%d\n", event.xexpose.window,event.xexpose.width,event.xexpose.height, event.xexpose.x,event.xexpose.y); /* Refresh windows that are now exposed. */ if (event.xexpose.window == windows->image.id) if (windows->image.mapped) { XRefreshWindow(display,&windows->image,&event); timer=time((time_t *) NULL)+resource_info->delay; break; } if (event.xexpose.window == windows->magnify.id) if (event.xexpose.count == 0) if (windows->magnify.mapped) { XMakeMagnifyImage(display,windows); break; } if (event.xexpose.window == windows->pan.id) if (event.xexpose.count == 0) { XDrawPanRectangle(display,windows); break; } break; } case FocusOut: { /* Set input focus for backdrop window. */ if (resource_info->debug) (void) fprintf(stderr,"FocusOut Notify: 0x%lx\n",event.xfocus.window); if (event.xfocus.window == windows->image.id) XSetInputFocus(display,windows->image.id,RevertToNone,CurrentTime); break; } case KeyPress: { static int length; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (resource_info->debug) (void) fprintf(stderr,"Key press: 0x%lx (%s)\n",key_symbol,command); if (event.xkey.window == windows->image.id) loaded_image=XMagickCommand(display,resource_info,windows, event.xkey.state,key_symbol,&displayed_image); if (event.xkey.window == windows->magnify.id) XMagnifyWindowCommand(display,windows,key_symbol); if (event.xkey.window == windows->pan.id) if ((key_symbol == XK_F1) || (key_symbol == XK_Help)) XTextViewWidget(display,windows,"Help Viewer - Image Panning", ImagePanHelp); break; } case KeyRelease: { /* Respond to a user key release. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); if (resource_info->debug) (void) fprintf(stderr,"Key release: 0x%lx (%c)\n",key_symbol, *command); break; } case LeaveNotify: { /* Selectively uninstall colormap. */ if (map_info->colormap != XDefaultColormap(display,visual_info->screen)) if (event.xcrossing.mode != NotifyUngrab) XUninductColormap(display,map_info->colormap); break; } case MapNotify: { if (resource_info->debug) (void) fprintf(stderr,"Map Notify: 0x%lx\n",event.xmap.window); if (event.xmap.window == windows->image.id) { if (windows->backdrop.id != (Window) NULL) { /* Install colormap and set input focus for backdrop window. */ XInstallColormap(display,map_info->colormap); XSetInputFocus(display,windows->image.id,RevertToNone, CurrentTime); } windows->image.mapped=True; break; } if (event.xmap.window == windows->magnify.id) { XMakeMagnifyImage(display,windows); windows->magnify.mapped=True; break; } if (event.xmap.window == windows->pan.id) { XCheckRefreshWindow(display,&windows->image); XMakePanImage(display,resource_info,windows,displayed_image); windows->pan.mapped=True; break; } if (event.xmap.window == windows->info.id) { windows->info.mapped=True; break; } if (event.xmap.window == windows->icon.id) { /* Create an icon image. */ XMakeStandardColormap(display,icon_visual,&icon_resources, displayed_image,icon_map,&icon_pixel); (void) XMakeImage(display,&icon_resources,&windows->icon, displayed_image,windows->icon.width,windows->icon.height); (void) XMakePixmap(display,&icon_resources,&windows->icon); XSetWindowBackgroundPixmap(display,windows->icon.id, windows->icon.pixmap); XClearWindow(display,windows->icon.id); windows->icon.mapped=True; break; } break; } case MappingNotify: { XRefreshKeyboardMapping(&event.xmapping); break; } case NoExpose: break; case ReparentNotify: { if (resource_info->debug) (void) fprintf(stderr,"Reparent Notify: 0x%lx=>0x%lx\n", event.xreparent.parent,event.xreparent.window); break; } case UnmapNotify: { if (resource_info->debug) (void) fprintf(stderr,"Unmap Notify: 0x%lx\n",event.xunmap.window); if (event.xunmap.window == windows->image.id) { windows->image.mapped=False; break; } if (event.xunmap.window == windows->magnify.id) { windows->magnify.mapped=False; break; } if (event.xunmap.window == windows->pan.id) { windows->pan.mapped=False; break; } if (event.xunmap.window == windows->info.id) { windows->info.mapped=False; break; } if (event.xunmap.window == windows->icon.id) { if (map_info->colormap == icon_map->colormap) XConfigureImageColormap(display,resource_info,windows, displayed_image); XFreeStandardColormap(display,icon_visual,icon_map,&icon_pixel); windows->icon.mapped=False; break; } break; } default: { if (resource_info->debug) (void) fprintf(stderr,"Event type: %d\n",event.type); break; } } } while (!(*state & ExitState)); if ((*state & FormerImageState) || (*state & NextImageState)) *state&=(~ExitState); former_ximage=(*windows->image.ximage); /* Alert user we are busy. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); if (resource_info->write_filename != (char *) NULL) { /* Update image with user transforms. */ if ((windows->image.clip_geometry != (char *) NULL) || (displayed_image->columns != windows->image.ximage->width) || (displayed_image->rows != windows->image.ximage->height)) { char image_geometry[MaxTextLength]; /* Clip and/or scale displayed image. */ (void) sprintf(image_geometry,"%dx%d",windows->image.ximage->width, windows->image.ximage->height); TransformImage(&displayed_image,windows->image.clip_geometry, image_geometry); } if (resource_info->number_colors != 0) { /* Reduce the number of colors in the image. */ if ((displayed_image->class == DirectClass) || (displayed_image->colors > resource_info->number_colors) || (resource_info->colorspace == GRAYColorspace)) QuantizeImage(displayed_image,resource_info->number_colors, resource_info->tree_depth,resource_info->dither, resource_info->colorspace,True); SyncImage(displayed_image); } } /* Withdraw pan and magnify window. */ if (windows->pan.mapped) XWithdrawWindow(display,windows->pan.id,windows->pan.screen); if (windows->magnify.mapped) XWithdrawWindow(display,windows->magnify.id,windows->magnify.screen); XCheckRefreshWindow(display,&windows->image); /* Free X resources. */ (void) free((char *) windows->popup.name); (void) free((char *) windows->magnify.name); (void) free((char *) windows->image.name); (void) free((char *) windows->image.icon_name); for (i=0; i < number_windows; i++) { XFreeCursor(display,magick_windows[i]->cursor); XFreeCursor(display,magick_windows[i]->busy_cursor); } if (windows->popup.highlight_stipple != (Pixmap) NULL) XFreePixmap(display,windows->popup.highlight_stipple); if (windows->popup.highlight_stipple != (Pixmap) NULL) XFreePixmap(display,windows->popup.shadow_stipple); XFreeGC(display,pixel_info.highlight_context); XFreeGC(display,pixel_info.widget_context); XFreeGC(display,pixel_info.annotate_context); XFreeFont(display,font_info); if (*state & ExitState) { /* Destroy X windows. */ for (i=0; i < number_windows; i++) { if (magick_windows[i]->id != (Window) NULL) XDestroyWindow(display,magick_windows[i]->id); if (magick_windows[i]->ximage != (XImage *) NULL) XDestroyImage(magick_windows[i]->ximage); if (magick_windows[i]->pixmap != (Pixmap) NULL) XFreePixmap(display,magick_windows[i]->pixmap); } /* Free Standard Colormap. */ if (resource_info->map_type == (char *) NULL) XFreeStandardColormap(display,visual_info,map_info,&pixel_info); (void) free((void *) windows); XFree((void *) class_hint); XFree((void *) manager_hints); XFree((void *) icon_visual); XFree((void *) visual_info); XFree((void *) icon_map); XFree((void *) map_info); visual_info=(XVisualInfo *) NULL; } XFlush(display); *image=displayed_image; return(loaded_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w P a n R e c t a n g l e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawPanRectangle draws a rectangle in the pan window. The pan % window displays a scaled image and the rectangle shows which portion of % the image is displayed in the image window. % % The format of the XDrawPanRectangle routine is: % % XDrawPanRectangle(display,windows) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o windows: Specifies a pointer to a XWindows structure. % % */ static void XDrawPanRectangle(display,windows) Display *display; XWindows *windows; { unsigned long scale_factor; RectangleInfo highlight_info; /* Determine dimensions of the panning rectangle. */ scale_factor=(unsigned long) (UpShift(windows->pan.width)/windows->image.ximage->width); highlight_info.x=DownShift(windows->image.x*scale_factor); highlight_info.width=DownShift(windows->image.width*scale_factor); scale_factor=(unsigned long) (UpShift(windows->pan.height)/windows->image.ximage->height); highlight_info.y=DownShift(windows->image.y*scale_factor); highlight_info.height=DownShift(windows->image.height*scale_factor); /* Display the panning rectangle. */ XClearWindow(display,windows->pan.id); XHighlightRegion(display,windows->pan.id,windows->pan.annotate_context, &highlight_info); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X L o a d I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XLoadImageWindow loads an image from a file. % % The format of the XLoadImageWindow routine is: % % loaded_image=XLoadImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XLoadImageWindow returns an image if can be loaded % successfully. Otherwise a null image is returned. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static Image *XLoadImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { #define LoadImageText " Loading image... " char filename[MaxTextLength]; Image *loaded_image; /* Request file name from user. */ (void) strcpy(filename,image->filename); XFileBrowserWidget(display,windows,"Load",filename); if (*filename == '\0') return((Image *) NULL); /* Map info window. */ XSetWindowExtents(display,&windows->info,LoadImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,LoadImageText); XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XCheckRefreshWindow(display,&windows->image); /* Load the image. */ *resource_info->image_info->magick='\0'; (void) strcpy(resource_info->image_info->filename,filename); loaded_image=ReadImage(resource_info->image_info); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (loaded_image != (Image *) NULL) XClientMessage(display,windows->image.id,windows->im_protocols, windows->im_next_image,CurrentTime); else { char *text, **textlist; FILE *file; int c; register char *p; unsigned int length; /* Unknown image format. */ file=(FILE *) fopen(filename,"r"); if (file == (FILE *) NULL) { XNoticeWidget(display,windows,"Unable to load image",filename); return((Image *) NULL); } length=MaxTextLength; text=(char *) malloc(length*sizeof(char)); for (p=text ; text != (char *) NULL; p++) { c=fgetc(file); if (c == EOF) break; if ((p-text+1) >= length) { *p='\0'; length<<=1; text=(char *) realloc((char *) text,length*sizeof(char)); if (text == (char *) NULL) break; p=text+strlen(text); } *p=(unsigned char) c; } (void) fclose(file); if (text == (char *) NULL) { XNoticeWidget(display,windows,"Unable to load image",filename); return((Image *) NULL); } *p='\0'; textlist=StringToList(text); if (textlist != (char **) NULL) { char title[MaxTextLength]; register int i; (void) sprintf(title,"Unknown format: %s",filename); XTextViewWidget(display,windows,title,textlist); for (i=0; textlist[i] != (char *) NULL; i++) (void) free((char *) textlist[i]); (void) free((char *) textlist); } (void) free((char *) text); } return(loaded_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a g i c k C o m m a n d % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMagickCommand makes a transform to the image or image window % as specified by a user menu button or keyboard command. % % The format of the XMagickCommand routine is: % % loaded_image=XMagickCommand(display,resource_info,windows,state, % key_symbol,image) % % A description of each parameter follows: % % o loaded_image: Function XMagickCommand returns an image when the % user chooses 'Load Image' from the command menu. Otherwise a null % image is returned. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o state: key mask. % % o key_symbol: Specifies a command to perform. % % o image: Specifies a pointer to a Image structure; XMagickCommand % may transform the image and return a new image pointer. % % */ static Image *XMagickCommand(display,resource_info,windows,state,key_symbol, image) Display *display; XResourceInfo *resource_info; XWindows *windows; unsigned int state; KeySym key_symbol; Image **image; { static char *ImageMagickHelp[]= { "Press F1 whenever you feel you need help. There is a help", "pane associated with most of the image functions decribed", "below.", "", "BUTTONS", " The effects of each button press is described below. Three", " buttons are required. If you have a two button mouse,", " button 1 and 3 are returned. Press ALT and button 3 to", " simulate button 2.", "", " 1 Press and drag to select a command from a pop-up menu.", " Choose from these commands:", "", " Image Info", " Comment", " Half Size", " Double Size", " Rotate Right", " Rotate Left", " Print", " Write", " Load", " Next", " Former", " Help", " Quit", "", " 2 Press and drag to select an image editing command from", " a pop-up menu. Choose from these commands:", "", " Gamma", " Equalize", " Resize", " Trim Edges", " Clip", " Cut", " Rotate", " Reflect", " Annotate", " Composite", " Color Edit", " Matte Edit", " Restore", "", " 3 Press and drag to define a region of the image to", " magnify.", "", " If the image is a montage image, choose a particular", " tile of the image and press this button. The image", " represented by the tile is then displayed. To return", " to the composite MIFF image, choose Next from the", " command menu (refer to Button 1). See montage(1) and", " miff(5) for more details.", "", "KEYBOARD ACCELERATORS", " i Press to display information about the image. Press", " any key or button to erase the information.", "", " This information is printed: image scene number; image", " name; image size; the visual class (see -visual); and", " the total number of unique colors in the image.", "", " # Press to add an image comment.", "", " < Press to half the image size.", "", " > Press to double the image size.", "", " / Press to rotate the image 90 degrees clockwise.", "", " \\ Press to rotate the image 90 degrees counter-clockwise.", "", " p Press to print the image to a Postscript printer.", "", " w Press to write the image to a file.", "", " l Press to load an image from a file.", "", " n Press to display the next image.", "", " f Press to display the former image.", "", " h Press to display helpful information about display(1).", "", " Function keys HELP or F1 are synonomous with the h key.", "", " q Press to discard all images and exit program.", "", " g Press to gamma correct the image.", "", " = Press to perform histogram equalization on the image", "", " - Press to resize the image to a width and height you", " specify.", "", " t Press to trim image edges.", "", " [ Press to crop the image.", "", " ] Press to cut the image.", "", " | Press to rotate the image the number of degrees you", " specify.", "", " r Press to reflect the image scanlines.", "", " a Press to annotate the image with text.", "", " x Press to composite the image with another.", "", " c Press to edit an image pixel color.", "", " m Press to edit the image matte information.", "", " o Press to restore the image to its original size.", "", " 1-9 Press to change the level of magnification.", "", " Use the arrow keys to move the image one pixel up,", " down, left, or right within the magnify window. Be", " sure to first map the magnify window by pressing button", " 3.", "", " Press ALT and one of the arrow keys to trim off one", " pixel from any side of the image.", (char *) NULL, }; char geometry[MaxTextLength]; Image *loaded_image; unsigned int status; /* Process user command. */ XCheckRefreshWindow(display,&windows->image); loaded_image=(Image *) NULL; windows->image.window_changes.width=windows->image.ximage->width; windows->image.window_changes.height=windows->image.ximage->height; switch (key_symbol) { case XK_h: case XK_F1: case XK_Help: { XTextViewWidget(display,windows,"Help Viewer - ImageMagick", ImageMagickHelp); break; } case XK_i: { char *text, **textlist, title[MaxTextLength]; int length; /* Display information about the image in the Text View widget. */ length=11*MaxTextLength; if ((*image)->directory != (char *) NULL) length+=strlen((*image)->directory); if ((*image)->comments != (char *) NULL) length+=strlen((*image)->comments); text=(char *) malloc(length*sizeof(char)); if (text == (char *) NULL) { XNoticeWidget(display,windows,"Unable to display image info", "Memory allocation failed"); break; } (void) sprintf(title," Image Info: %s",(*image)->filename); (void) sprintf(text,"X\n visual: %s\n", XVisualClassName(windows->image.class)); (void) sprintf(text,"%s depth: %d\n",text,windows->image.depth); (void) sprintf(text,"%s geometry: %dx%d\n",text, windows->image.ximage->width,windows->image.ximage->height); if (windows->image.clip_geometry != (char *) NULL) (void) sprintf(text,"%s clip geometry: %s\n",text, windows->image.clip_geometry); (void) sprintf(text,"%sImage\n format: %s\n",text,(*image)->magick); if ((*image)->class == DirectClass) (void) strcat(text," class: DirectClass\n"); else (void) strcat(text," class: PseudoClass\n"); (void) sprintf(text,"%s geometry: %ux%u\n",text, (*image)->columns,(*image)->rows); if ((*image)->colors != 0) (void) sprintf(text,"%s colors: %u\n",text,(*image)->colors); if ((*image)->signature != (char *) NULL) (void) sprintf(text,"%s signature: %s\n",text,(*image)->signature); if ((*image)->scene != 0) (void) sprintf(text,"%s scene: %u\n",text,(*image)->scene); if ((*image)->montage != (char *) NULL) (void) sprintf(text,"%s montage: %s\n",text,(*image)->montage); if ((*image)->directory != (char *) NULL) (void) sprintf(text,"%s directory:\n\n%s\n",text,(*image)->directory); if ((*image)->label != (char *) NULL) (void) sprintf(text,"%s label: %s\n",text,(*image)->label); if ((*image)->comments != (char *) NULL) (void) sprintf(text,"%s comments:\n\n%s",text,(*image)->comments); textlist=StringToList(text); if (textlist != (char **) NULL) { register int i; XTextViewWidget(display,windows,title,textlist); for (i=0; textlist[i] != (char *) NULL; i++) (void) free((char *) textlist[i]); (void) free((char *) textlist); } (void) free((char *) text); break; } case XK_less: { /* Half image size. */ windows->image.window_changes.width=windows->image.ximage->width >> 1; windows->image.window_changes.height=windows->image.ximage->height >> 1; (void) XConfigureImageWindow(display,resource_info,windows,*image); break; } case XK_greater: { /* Double the image size. */ windows->image.window_changes.width=windows->image.ximage->width << 1; windows->image.window_changes.height=windows->image.ximage->height << 1; (void) XConfigureImageWindow(display,resource_info,windows,*image); break; } case XK_t: { /* Trim image. */ status=XTrimImageWindow(display,resource_info,windows,*image); if (status == False) { XNoticeWidget(display,windows,"Unable to trim X image", (*image)->filename); break; } break; } case XK_slash: { /* Rotate image 90 degrees clockwise. */ status=XRotateImageWindow(display,resource_info,windows,90.0,image); if (status == False) { XNoticeWidget(display,windows,"Unable to rotate X image", (*image)->filename); break; } break; } case XK_backslash: { /* Rotate image 90 degrees counter-clockwise. */ status=XRotateImageWindow(display,resource_info,windows,-90.0,image); if (status == False) { XNoticeWidget(display,windows,"Unable to rotate X image", (*image)->filename); break; } break; } case XK_r: { /* Reflect image scanlines. */ status=XReflectImageWindow(display,resource_info,windows,image); if (status == False) { XNoticeWidget(display,windows,"Unable to reflect X image", (*image)->filename); break; } break; } case XK_p: { /* Print image. */ status=XPrintImageWindow(display,resource_info,windows,*image); if (status == False) { XNoticeWidget(display,windows,"Unable to print X image", (*image)->filename); break; } break; } case XK_w: { /* Write image. */ status=XWriteImageWindow(display,resource_info,windows,*image); if (status == False) { XNoticeWidget(display,windows,"Unable to write X image", (*image)->filename); break; } break; } case XK_l: { /* Load image. */ loaded_image=XLoadImageWindow(display,resource_info,windows,*image); break; } case XK_f: case XK_Prior: case XK_BackSpace: { /* Display former image. */ XClientMessage(display,windows->image.id,windows->im_protocols, windows->im_former_image,CurrentTime); break; } case XK_n: case XK_Next: case XK_space: { /* Display next image. */ XClientMessage(display,windows->image.id,windows->im_protocols, windows->im_next_image,CurrentTime); break; } case XK_q: { /* Exit program. */ XClientMessage(display,windows->image.id,windows->im_protocols, windows->im_exit,CurrentTime); break; } case XK_g: { static char gamma[MaxTextLength] = "1.6"; /* Gamma correct image. */ XDialogWidget(display,windows,"Gamma","Enter gamma value:",gamma); if (*gamma == '\0') break; XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XCheckRefreshWindow(display,&windows->image); GammaImage(*image,gamma); XDefineCursor(display,windows->image.id,windows->image.cursor); XConfigureImageColormap(display,resource_info,windows,*image); (void) XConfigureImageWindow(display,resource_info,windows,*image); break; } case XK_equal: { /* Perform histogram equalization on the image. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); EqualizeImage(*image); XDefineCursor(display,windows->image.id,windows->image.cursor); XConfigureImageColormap(display,resource_info,windows,*image); (void) XConfigureImageWindow(display,resource_info,windows,*image); break; } case XK_minus: { unsigned int height, width; /* Resize image. */ width=windows->image.ximage->width; height=windows->image.ximage->height; (void) sprintf(geometry,"%ux%u",width,height); XDialogWidget(display,windows,"Resize", "Enter resize geometry (e.g. 640x480, 200%):",geometry); if (*geometry == '\0') break; ParseImageGeometry(geometry,&width,&height); windows->image.window_changes.width=width; windows->image.window_changes.height=height; (void) XConfigureImageWindow(display,resource_info,windows,*image); break; } case XK_bracketleft: { /* Clip image. */ (void) XClipImageWindow(display,resource_info,windows,*image); break; } case XK_bracketright: { /* Cut image. */ status=XCutImageWindow(display,resource_info,windows,image); if (status == False) { XNoticeWidget(display,windows,"Unable to cut X image", (*image)->filename); break; } break; } case XK_bar: { /* Rotate image. */ status=XRotateImageWindow(display,resource_info,windows,0.0,image); if (status == False) { XNoticeWidget(display,windows,"Unable to rotate X image", (*image)->filename); break; } break; } case XK_a: { /* Annotate the image with text. */ status=XAnnotateImageWindow(display,resource_info,windows,*image); if (status == False) { XNoticeWidget(display,windows,"Unable to annotate X image", (*image)->filename); break; } break; } case XK_x: { /* Composite image. */ status=XCompositeImageWindow(display,resource_info,windows,image); if (status == False) { XNoticeWidget(display,windows,"Unable to composite X image", (*image)->filename); break; } break; } case XK_c: { /* Color edit. */ status=XColorEditImageWindow(display,resource_info,windows,*image); if (status == False) { XNoticeWidget(display,windows,"Unable to pixel edit X image", (*image)->filename); break; } break; } case XK_m: { /* Matte edit. */ status=XMatteEditImageWindow(display,resource_info,windows,*image); if (status == False) { XNoticeWidget(display,windows,"Unable to matte edit X image", (*image)->filename); break; } break; } case XK_numbersign: { char command[MaxTextLength], *directory, filename[MaxTextLength]; FILE *file; /* Edit image comment. */ directory=(char *) getenv("TMPDIR"); if (directory == (char *) NULL) directory="/tmp"; (void) sprintf(filename,"%s/magickXXXXXX",directory); (void) mktemp(filename); if ((*image)->comments != (char *) NULL) { register char *p; file=fopen(filename,"w"); if (file == (FILE *) NULL) { XNoticeWidget(display,windows,"Unable to edit image comment", filename); break; } for (p=(*image)->comments; *p != '\0'; p++) (void) putc((int) *p,file); (void) putc('\n',file); (void) fclose(file); } (void) sprintf(command,EditorCommand,filename); if (resource_info->editor_command != (char *) NULL) (void) sprintf(command,resource_info->editor_command,filename); XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); (void) system(command); (void) sprintf(command,"@%s",filename); CommentImage(*image,command); XDefineCursor(display,windows->image.id,windows->image.cursor); (void) unlink(filename); break; } case XK_o: { /* Restore image window to its original size. */ if (windows->image.clip_geometry != (char *) NULL) { (void) free((char *) windows->image.clip_geometry); windows->image.clip_geometry=(char *) NULL; windows->image.x=0; windows->image.y=0; } windows->image.window_changes.width=(*image)->columns; windows->image.window_changes.height=(*image)->rows; (void) XConfigureImageWindow(display,resource_info,windows,*image); break; } case XK_Home: { XTranslateImageWindow(display,windows,*image,key_symbol); break; } case XK_Up: case XK_Down: case XK_Left: case XK_Right: { if (state & Mod1Mask) { RectangleInfo clip_info; /* Trim one pixel from edge of image. */ clip_info.x=0; clip_info.y=0; clip_info.width=windows->image.ximage->width; clip_info.height=windows->image.ximage->height; if (key_symbol == XK_Up) clip_info.height--; if (key_symbol == XK_Down) { clip_info.y++; clip_info.height--; } if (key_symbol == XK_Right) clip_info.width--; if (key_symbol == XK_Left) { clip_info.x++; clip_info.width--; } XSetClipGeometry(display,windows,&clip_info,*image); windows->image.window_changes.width=clip_info.width; windows->image.window_changes.height=clip_info.height; (void) XConfigureImageWindow(display,resource_info,windows,*image); break; } XTranslateImageWindow(display,windows,*image,key_symbol); break; } case XK_Return: case XK_KP_Enter: break; default: { if (!IsModifierKey(key_symbol)) XBell(display,0); break; } } return(loaded_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a g n i f y I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMagnifyImageWindow magnifies portions of the image as indicated % by the pointer. The magnified portion is displayed in a separate window. % % The format of the XMagnifyImageWindow routine is: % % XMagnifyImageWindow(display,windows,event) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o windows: Specifies a pointer to a XWindows structure. % % o event: Specifies a pointer to a XEvent structure. If it is NULL, % the entire image is refreshed. % % */ static void XMagnifyImageWindow(display,windows,event) Display *display; XWindows *windows; XEvent *event; { char text[MaxTextLength]; register int x, y; unsigned long state; /* Map info window. */ state=DefaultState; (void) sprintf(text," +%u+%u ",windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Update magnified image until the mouse button is released. */ XDefineCursor(display,windows->image.id,windows->magnify.cursor); x=event->xbutton.x; y=event->xbutton.y; windows->magnify.x=windows->image.x+x; windows->magnify.y=windows->image.y+y; do { /* Map and unmap info window as text cursor crosses its boundaries. */ if (windows->info.mapped) { if ((x < (windows->info.x+windows->info.width)) && (y < (windows->info.y+windows->info.height))) XWithdrawWindow(display,windows->info.id,windows->info.screen); } else if ((x > (windows->info.x+windows->info.width)) || (y > (windows->info.y+windows->info.height))) XMapWindow(display,windows->info.id); if (windows->info.mapped) { /* Display pointer position. */ (void) sprintf(text," %+d%+d ",windows->magnify.x,windows->magnify.y); XDisplayInfoString(display,&windows->info,text); } /* Wait for next event. */ XIfEvent(display,event,XScreenEvent,(char *) windows); switch (event->type) { case ButtonPress: break; case ButtonRelease: { /* User has finished magnifying image. */ x=event->xbutton.x; y=event->xbutton.y; state|=ExitState; break; } case Expose: break; case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,event)); x=event->xmotion.x; y=event->xmotion.y; break; } default: break; } /* Check boundary conditions. */ if (x < 0) x=0; else if (x >= windows->image.width) x=windows->image.width-1; if (y < 0) y=0; else if (y >= windows->image.height) y=windows->image.height-1; } while (!(state & ExitState)); /* Display magnified image. */ XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a g n i f y W i n d o w C o m m a n d % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMagnifyWindowCommand moves the image within the magnify window by % one pixel as specified by the key symbol. % % The format of the XMagnifyWindowCommand routine is: % % XMagnifyWindowCommand(display,windows,key_symbol) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o windows: Specifies a pointer to a XWindows structure. % % o key_symbol: Specifies a KeySym which indicates which side of the image % to trim. % % */ static void XMagnifyWindowCommand(display,windows,key_symbol) Display *display; XWindows *windows; KeySym key_symbol; { /* User specified a magnify factor or position. */ switch (key_symbol) { case XK_Home: { windows->magnify.x=windows->image.width >> 1; windows->magnify.y=windows->image.height >> 1; break; } case XK_Left: { if (windows->magnify.x > 0) windows->magnify.x--; break; } case XK_Up: { if (windows->magnify.y > 0) windows->magnify.y--; break; } case XK_Right: { if (windows->magnify.x < (windows->image.width-1)) windows->magnify.x++; break; } case XK_Down: { if (windows->magnify.y < (windows->image.height-1)) windows->magnify.y++; break; } case XK_0: case XK_1: case XK_2: case XK_3: case XK_4: case XK_5: case XK_6: case XK_7: case XK_8: case XK_9: { windows->magnify.data=key_symbol-XK_0; break; } default: break; } XMakeMagnifyImage(display,windows); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e P a n I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakePanImage creates a thumbnail of the image and displays it in % the pan icon window. % % The format of the XMakePanImage routine is: % % XMakePanImage(display,resource_info,windows,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static void XMakePanImage(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { unsigned int status; /* Create and display image for panning icon. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); windows->pan.x=windows->image.x; windows->pan.y=windows->image.y; status=XMakeImage(display,resource_info,&windows->pan,image, windows->pan.width,windows->pan.height); status|=XMakePixmap(display,resource_info,&windows->pan); if (status == False) Error("Unable to create pan icon image",(char *) NULL); XSetWindowBackgroundPixmap(display,windows->pan.id,windows->pan.pixmap); XClearWindow(display,windows->pan.id); XDrawPanRectangle(display,windows); XDefineCursor(display,windows->image.id,windows->image.cursor); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a t t a E d i t I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMatteEditImageWindow allows the user to interactively change % the Matte channel of an image. If the image is PseudoClass it is promoted % to DirectClass before the matte information is stored. % % The format of the XMatteEditImageWindow routine is: % % XMatteEditImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % */ static unsigned int XMatteEditImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { static char *ImageMatteEditHelp[]= { "Matte information within an image is useful for some", "operations such as image compositing. This extra channel", "usually defines a mask which represents a sort of a", "cookie-cutter for the image. This is the case when matte", "is 255 (full coverage) for pixels inside the shape, zero", "outside, and between zero and 255 on the boundary.", "", "A small window appears showing the location of the cursor in", "the image window. You are now in matte edit mode. To exit", "immediately, press ESC. In matte edit mode a button press", "has a different effect than described in BUTTONS. Press a", "button to affect this behavior:", "", "1 Press to select a pixel within the image window to set", " it's matte value. The matte value of any pixel within", " the image that matches the color of the selected pixel", " is initialized.", "", "2 Press an a dialog appears requesting an matte value.", " Enter a value between 0 and 255. This value is", " assigned as the matte value of the selected pixel or", " pixels.", "", "Matte information is only valid in a DirectClass image.", "Therefore, any PseudoClass image is promoted to", "DirectClass. Note that matte information for PseudoClass", "is not retained for colormapped X server visuals (e.g.", "StaticColor, StaticColor, GrayScale, PseudoColor) unless", "you immediately save the image to a file with 'Write'.", "Correct matte editing behavior may require a TrueColor or", "DirectColor visual or a Standard Colormap.", (char *) NULL, }; char text[MaxTextLength]; Cursor cursor; int i, x, x_offset, y, y_offset; register RunlengthPacket *p; RunlengthPacket pixel; static char matte[MaxTextLength]="255"; unsigned int height, mask, width; unsigned long state, x_factor, y_factor; Window xwindow; XEvent event; /* Map info window. */ state=DefaultState; (void) sprintf(text," +%u+%u ",windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Track pointer until button 1 is pressed. */ cursor=XMakeCursor(display,windows->image.id, windows->image.map_info->colormap,resource_info->background_color, resource_info->foreground_color); XDefineCursor(display,windows->image.id,cursor); /* Track pointer until button 1 is pressed. */ XQueryPointer(display,windows->image.id,&xwindow,&xwindow,&i,&i,&x,&y,&mask); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask | PointerMotionMask); do { if (windows->info.mapped) { /* Display pointer position. */ (void) sprintf(text," %+d%+d ",x-windows->image.x,y-windows->image.y); XDisplayInfoString(display,&windows->info,text); } /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); XSetWindowExtents(display,&windows->info,text); break; } switch (event.xbutton.button) { case Button1: { /* Update matte data. */ x_offset=event.xbutton.x; y_offset=event.xbutton.y; state|=UpdateConfigurationState; break; } case Button2: { XDialogWidget(display,windows,"Matte","Enter matte value:",matte); break; } } break; } case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); switch (key_symbol) { case XK_Escape: { /* Prematurely exit. */ state|=ExitState; break; } case XK_F1: case XK_Help: { XTextViewWidget(display,windows,"Help Viewer - Image Annotation", ImageMatteEditHelp); break; } default: break; } break; } case MotionNotify: { /* Discard pending pointer motion events. */ while (XCheckMaskEvent(display,PointerMotionMask,&event)); x=event.xmotion.x; y=event.xmotion.y; /* Map and unmap info window as cursor crosses its boundaries. */ if (windows->info.mapped) { if ((x < (windows->info.x+windows->info.width)) && (y < (windows->info.y+windows->info.height))) XWithdrawWindow(display,windows->info.id,windows->info.screen); } else if ((x > (windows->info.x+windows->info.width)) || (y > (windows->info.y+windows->info.height))) XMapWindow(display,windows->info.id); break; } default: break; } if (state & UpdateConfigurationState) { int x, y; /* Matte edit is relative to image configuration. */ x=0; y=0; width=image->columns; height=image->rows; if (windows->image.clip_geometry != (char *) NULL) (void) XParseGeometry(windows->image.clip_geometry,&x,&y, &width,&height); x_factor=UpShift(width)/windows->image.ximage->width; x_offset=DownShift((windows->image.x+x_offset+1)*x_factor)+x; y_factor=UpShift(height)/windows->image.ximage->height; y_offset=DownShift((windows->image.y+y_offset+1)*y_factor)+y; /* Update matte information. */ x=0; p=image->pixels; for (i=0; i < image->packets; i++) { x+=(p->length+1); if (x >= (y_offset*image->columns+x_offset)) break; p++; } if (image->class == PseudoClass) { /* Promote PseudoClass image to DirectClass & initialize matte data. */ image->class=DirectClass; p=image->pixels; for (i=0; i < image->packets; i++) { p->index=0; p++; } } image->matte=True; pixel=image->pixels[i]; p=image->pixels; for (i=0; i < image->packets; i++) { if ((p->red == pixel.red) && (p->green == pixel.green) && (p->blue == pixel.blue)) p->index=atoi(matte) & 0xff; p++; } state&=(~UpdateConfigurationState); } } while (!(state & ExitState)); XSelectInput(display,windows->image.id,windows->image.attributes.event_mask); XWithdrawWindow(display,windows->info.id,windows->info.screen); XDefineCursor(display,windows->image.id,windows->image.cursor); XFreeCursor(display,cursor); XFlush(display); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X P a n I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XPanImageWindow pans the image until the mouse button is released. % % The format of the XPanImageWindow routine is: % % XPanImageWindow(display,windows,event) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o windows: Specifies a pointer to a XWindows structure. % % o event: Specifies a pointer to a XEvent structure. If it is NULL, % the entire image is refreshed. % */ static void XPanImageWindow(display,windows,event) Display *display; XWindows *windows; XEvent *event; { char text[MaxTextLength]; Cursor cursor; unsigned long state; unsigned long x_factor, y_factor; XRectangle pan_info; /* Map info window. */ state=DefaultState; (void) sprintf(text," %ux%u%+d%+d ",windows->image.width, windows->image.height,windows->image.ximage->width, windows->image.ximage->height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); /* Define cursor. */ if ((windows->image.ximage->width > windows->image.width) && (windows->image.ximage->height > windows->image.height)) cursor=XCreateFontCursor(display,XC_fleur); else if (windows->image.ximage->width > windows->image.width) cursor=XCreateFontCursor(display,XC_sb_h_double_arrow); else if (windows->image.ximage->height > windows->image.height) cursor=XCreateFontCursor(display,XC_sb_v_double_arrow); else cursor=XCreateFontCursor(display,XC_arrow); XDefineCursor(display,windows->pan.id,cursor); /* Pan image as pointer moves until the mouse button is released. */ x_factor=(unsigned long) UpShift(windows->image.ximage->width)/windows->pan.width; y_factor=(unsigned long) UpShift(windows->image.ximage->height)/windows->pan.height; pan_info.x=event->xbutton.x; pan_info.y=event->xbutton.y; pan_info.width=(unsigned short) (UpShift(windows->image.width)/x_factor); pan_info.height=(unsigned short) (UpShift(windows->image.height)/y_factor); windows->image.x=pan_info.x+1; windows->image.y=pan_info.y+1; do { /* Check boundary conditions. */ pan_info.x=DownShift((pan_info.x-(pan_info.width >> 1))*x_factor); if (pan_info.x < 0) pan_info.x=0; else if ((pan_info.x+windows->image.width) > windows->image.ximage->width) pan_info.x=windows->image.ximage->width-windows->image.width; pan_info.y=DownShift((pan_info.y-(pan_info.height >> 1))*y_factor); if (pan_info.y < 0) pan_info.y=0; else if ((pan_info.y+windows->image.height) > windows->image.ximage->height) pan_info.y=windows->image.ximage->height-windows->image.height; if ((windows->image.x != pan_info.x) || (windows->image.y != pan_info.y)) { /* Display image pan offset. */ windows->image.x=pan_info.x; windows->image.y=pan_info.y; (void) sprintf(text," %ux%u%+d%+d ",windows->image.width, windows->image.height,windows->image.x,windows->image.y); XDisplayInfoString(display,&windows->info,text); /* Refresh image window. */ XDrawPanRectangle(display,windows); XRefreshWindow(display,&windows->image,(XEvent *) NULL); } /* Wait for next event. */ XIfEvent(display,event,XScreenEvent,(char *) windows); switch (event->type) { case ButtonRelease: { /* User has finished panning the image. */ state|=ExitState; pan_info.x=event->xbutton.x; pan_info.y=event->xbutton.y; break; } case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,event)); pan_info.x=event->xmotion.x; pan_info.y=event->xmotion.y; } default: break; } } while (!(state & ExitState)); /* Check boundary conditions. */ pan_info.x=DownShift((pan_info.x-(pan_info.width >> 1))*x_factor); if (pan_info.x < 0) pan_info.x=0; else if ((pan_info.x+windows->image.width) > windows->image.ximage->width) pan_info.x=windows->image.ximage->width-windows->image.width; pan_info.y=DownShift((pan_info.y-(pan_info.height >> 1))*y_factor); if (pan_info.y < 0) pan_info.y=0; else if ((pan_info.y+windows->image.height) > windows->image.ximage->height) pan_info.y=windows->image.ximage->height-windows->image.height; if ((windows->image.x != pan_info.x) || (windows->image.y != pan_info.y)) { /* Refresh image window. */ windows->image.x=pan_info.x; windows->image.y=pan_info.y; XDrawPanRectangle(display,windows); XRefreshWindow(display,&windows->image,(XEvent *) NULL); } /* Restore cursor. */ XDefineCursor(display,windows->pan.id,windows->pan.cursor); XFreeCursor(display,cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X P r i n t I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XPrintImageWindow prints an image to a Postscript printer. % % The format of the XPrintImageWindow routine is: % % status=XPrintImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XPrintImageWindow return True if the image is % printed. False is returned is there is a memory shortage or if the % image fails to print. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static unsigned int XPrintImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { #define PrintImageText " Printing image... " char command[MaxTextLength]; Image *output_image; int status; /* Request file name from user. */ (void) strcpy(command,resource_info->print_command); XDialogWidget(display,windows,"Print","Print command:",command); if (*command == '\0') return(True); /* Alert user we are busy. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XSetWindowExtents(display,&windows->info,PrintImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,PrintImageText); XFlush(display); /* Copy image before applying image transforms. */ image->orphan=True; output_image=CopyImage(image,image->columns,image->rows,True); image->orphan=False; if (output_image == (Image *) NULL) { XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); return(False); } if ((windows->image.clip_geometry != (char *) NULL) || (output_image->columns != windows->image.ximage->width) || (output_image->rows != windows->image.ximage->height)) { char image_geometry[MaxTextLength]; /* Clip and/or scale image. */ (void) sprintf(image_geometry,"%dx%d",windows->image.ximage->width, windows->image.ximage->height); TransformImage(&output_image,windows->image.clip_geometry,image_geometry); } if (resource_info->number_colors != 0) { /* Reduce the number of colors in the image. */ if ((output_image->class == DirectClass) || (output_image->colors > resource_info->number_colors) || (resource_info->colorspace == GRAYColorspace)) QuantizeImage(output_image,resource_info->number_colors, resource_info->tree_depth,resource_info->dither, resource_info->colorspace,True); SyncImage(output_image); } (void) sprintf(output_image->filename,"ps:|%s",command); status=WriteImage(resource_info->image_info,output_image); DestroyImage(output_image); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X R e f l e c t I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XReflectImageWindow reflects the scanlines of an image. % % The format of the XReflectImageWindow routine is: % % status=XReflectImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XReflectImageWindow return True if the window scanlines % reverse. False is returned is there is a memory shortage or if the % window scanlines fails to reverse. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static unsigned int XReflectImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image **image; { #define ReflectImageText " Reflecting image... " Image *reflected_image; /* Map info window. */ XSetWindowExtents(display,&windows->info,ReflectImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,ReflectImageText); /* Reflect image scanlines. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); reflected_image=ReflectImage(*image); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (reflected_image == (Image *) NULL) return(False); DestroyImage(*image); *image=reflected_image; if (windows->image.clip_geometry != (char *) NULL) { int x, y; unsigned int height, width; /* Reverse clip geometry. */ (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width,&height); (void) sprintf(windows->image.clip_geometry,"%ux%u%+d%+d",width,height, (int) (*image)->columns-(int) width-x,y); } /* Update image configuration. */ (void) XConfigureImageWindow(display,resource_info,windows,*image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X R o t a t e I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XRotateImageWindow rotates the X image. If the degrees parameter % if zero, the rotation angle is computed from the slope of a line drawn by % the user. % % The format of the XRotateImageWindow routine is: % % status=XRotateImageWindow(display,resource_info,windows,degrees,image) % % A description of each parameter follows: % % o status: Function XRotateImageWindow return True if the image is % rotated. False is returned is there is a memory shortage or if the % image fails to rotate. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o degrees: Specifies the number of degrees to rotate the image. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static unsigned int XRotateImageWindow(display,resource_info,windows,degrees, image) Display *display; XResourceInfo *resource_info; XWindows *windows; double degrees; Image **image; { #define RotateImageText " Rotating image... " static char *ImageRotateHelp[]= { "Choose a point in the image window and press any button and", "hold. Next, move the pointer to another location in the", "image. As you move a line will connect the initial location", "and the pointer. When you release the button, the degree of", "image rotation is determined by the slope of the line you", "just drew.", "", "To cancel the image rotation, move the pointer back to the", "starting point of the line and release the button.", (char *) NULL, }; char text[MaxTextLength]; double normalized_degrees; Image *rotated_image; int i, x, y; unsigned int height, rotations, width; if (degrees == 0.0) { unsigned int distance, mask; unsigned long state; Window xwindow; XEvent event; XSegment rotate_info; /* Wait for first button press. */ XSetFunction(display,windows->image.highlight_context,GXinvert); XSelectInput(display,windows->image.id, windows->image.attributes.event_mask | PointerMotionMask); XQueryPointer(display,windows->image.id,&xwindow,&xwindow,&i,&i,&x,&y, &mask); rotate_info.x1=x; rotate_info.y1=y; rotate_info.x2=rotate_info.x1+32; rotate_info.y2=rotate_info.y1; state=DefaultState; do { XHighlightLine(display,windows->image.id, windows->image.highlight_context,&rotate_info); /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); XHighlightLine(display,windows->image.id, windows->image.highlight_context,&rotate_info); switch (event.type) { case ButtonPress: { if (event.xbutton.window == windows->pan.id) { XPanImageWindow(display,windows,&event); break; } /* User has committed to start point of rotation line. */ rotate_info.x1=event.xbutton.x; rotate_info.y1=event.xbutton.y; state|=ExitState; break; } case Expose: break; case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command, sizeof(command),&key_symbol,(XComposeStatus *) NULL); switch (key_symbol) { case XK_Escape: { /* Prematurely exit. */ state|=EscapeState; state|=ExitState; break; } case XK_F1: case XK_Help: { XSetFunction(display,windows->image.highlight_context,GXcopy); XTextViewWidget(display,windows,"Help Viewer - Image Rotation", ImageRotateHelp); XSetFunction(display,windows->image.highlight_context,GXinvert); break; } default: break; } break; } case MotionNotify: { /* Discard pending pointer motion events. */ while (XCheckMaskEvent(display,PointerMotionMask,&event)); rotate_info.x1=event.xmotion.x; rotate_info.y1=event.xmotion.y; } } rotate_info.x2=rotate_info.x1+32; rotate_info.y2=rotate_info.y1; } while (!(state & ExitState)); XSelectInput(display,windows->image.id, windows->image.attributes.event_mask); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (state & EscapeState) return(True); /* Draw line as pointer moves until the mouse button is released. */ distance=0; (void) sprintf(text," %.2f",-180.0); XSetWindowExtents(display,&windows->info,text); state=DefaultState; do { if (distance > 9) { /* Display info and draw rotation line. */ if (!windows->info.mapped) XMapWindow(display,windows->info.id); (void) sprintf(text," %.2f",degrees); XDisplayInfoString(display,&windows->info,text); XHighlightLine(display,windows->image.id, windows->image.highlight_context,&rotate_info); } else if (windows->info.mapped) XWithdrawWindow(display,windows->info.id,windows->info.screen); /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); if (distance > 9) XHighlightLine(display,windows->image.id, windows->image.highlight_context,&rotate_info); switch (event.type) { case ButtonPress: break; case ButtonRelease: { /* User has committed to rotation line. */ rotate_info.x2=event.xbutton.x; rotate_info.y2=event.xbutton.y; state|=ExitState; break; } case Expose: break; case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); rotate_info.x2=event.xmotion.x; rotate_info.y2=event.xmotion.y; } default: break; } /* Check boundary conditions. */ if (rotate_info.x2 < 0) rotate_info.x2=0; else if (rotate_info.x2 > windows->image.width) rotate_info.x2=windows->image.width; if (rotate_info.y2 < 0) rotate_info.y2=0; else if (rotate_info.y2 > windows->image.height) rotate_info.y2=windows->image.height; /* Compute rotation angle from the slope of the line. */ degrees=0.0; distance= ((rotate_info.x2-rotate_info.x1+1)*(rotate_info.x2-rotate_info.x1+1))+ ((rotate_info.y2-rotate_info.y1+1)*(rotate_info.y2-rotate_info.y1+1)); if (distance > 9) degrees=RadiansToDegrees(-atan2((double) (rotate_info.y2- rotate_info.y1),(double) (rotate_info.x2-rotate_info.x1))); } while (!(state & ExitState)); XSetFunction(display,windows->image.highlight_context,GXcopy); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (distance <= 9) return(True); } if (degrees == 0.0) return(True); /* Map info window. */ XSetWindowExtents(display,&windows->info,RotateImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,RotateImageText); /* Rotate image. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); normalized_degrees=degrees; while (normalized_degrees < -45.0) normalized_degrees+=360.0; for (rotations=0; normalized_degrees > 45.0; rotations++) normalized_degrees-=90.0; if (normalized_degrees != 0.0) if ((windows->image.clip_geometry != (char *) NULL) || ((*image)->columns != windows->image.ximage->width) || ((*image)->rows != windows->image.ximage->height)) { char image_geometry[MaxTextLength]; /* Update image with user transforms. */ (void) sprintf(image_geometry,"%dx%d",windows->image.ximage->width, windows->image.ximage->height); TransformImage(image,windows->image.clip_geometry,image_geometry); if (windows->image.clip_geometry != (char *) NULL) { (void) free((char *) windows->image.clip_geometry); windows->image.clip_geometry=(char *) NULL; } windows->image.x=0; windows->image.y=0; } rotated_image=RotateImage(*image,degrees,False); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (rotated_image == (Image *) NULL) return(False); DestroyImage(*image); *image=rotated_image; if (windows->image.clip_geometry != (char *) NULL) { /* Rotate clip geometry. */ (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width,&height); switch (rotations % 4) { default: case 0: break; case 1: { /* Rotate 90 degrees. */ (void) sprintf(windows->image.clip_geometry,"%ux%u%+d%+d", height,width,(int) (*image)->columns-(int) height-y,x); break; } case 2: { /* Rotate 180 degrees. */ (void) sprintf(windows->image.clip_geometry,"%ux%u%+d%+d", width,height,(int) width-x,(int) height-y); break; } case 3: { /* Rotate 270 degrees. */ (void) sprintf(windows->image.clip_geometry,"%ux%u%+d%+d", height,width,y,(int) (*image)->rows-(int) width-x); break; } } } if (normalized_degrees != 0.0) { /* Update image colormap. */ windows->image.window_changes.width=(*image)->columns; windows->image.window_changes.height=(*image)->rows; if (windows->image.clip_geometry != (char *) NULL) { /* Obtain dimensions of image from clip geometry. */ (void) XParseGeometry(windows->image.clip_geometry,&x,&y, &width,&height); windows->image.window_changes.width=width; windows->image.window_changes.height=height; } XConfigureImageColormap(display,resource_info,windows,*image); } else if (((rotations % 4) == 1) || ((rotations % 4) == 3)) { windows->image.window_changes.width=windows->image.ximage->height; windows->image.window_changes.height=windows->image.ximage->width; } /* Update image configuration. */ (void) XConfigureImageWindow(display,resource_info,windows,*image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S c r e e n E v e n t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XScreenEvent returns True if the certain events on the X server % queue is associated with the image or magnify window. % % The format of the XScreenEvent function is: % % XScreenEvent(display,event,data) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o event: Specifies a pointer to a X11 XEvent structure. % % o data: Specifies a pointer to a XWindows structure. % % */ static int XScreenEvent(display,event,data) Display *display; XEvent *event; char *data; { register int x, y; register XWindows *windows; windows=(XWindows *) data; switch (event->type) { case ButtonPress: { if ((event->xbutton.button == Button3) && (event->xbutton.state & Mod1Mask)) { /* Convert Alt-Button3 to Button2. */ event->xbutton.button=Button2; event->xbutton.state&=(~Mod1Mask); } return(True); } case ButtonRelease: { if (event->xbutton.window == windows->image.id) if (windows->magnify.mapped) { /* Update magnified image. */ x=event->xbutton.x; y=event->xbutton.y; if (x < 0) x=0; else if (x >= windows->image.width) x=windows->image.width-1; windows->magnify.x=windows->image.x+x; if (y < 0) y=0; else if (y >= windows->image.height) y=windows->image.height-1; windows->magnify.y=windows->image.y+y; XMakeMagnifyImage(display,windows); } return(True); } case ClientMessage: { /* If client window delete message, exit. */ if (event->xclient.message_type != windows->wm_protocols) break; if (*event->xclient.data.l != windows->wm_delete_window) break; if (event->xclient.window == windows->magnify.id) { XWithdrawWindow(display,windows->magnify.id,windows->magnify.screen); return(True); } break; } case Expose: { if (event->xexpose.window == windows->image.id) { XRefreshWindow(display,&windows->image,event); return(True); } if (event->xexpose.window == windows->pan.id) if (event->xexpose.count == 0) { XDrawPanRectangle(display,windows); return(True); } break; } case FocusOut: { /* Set input focus for backdrop window. */ if (event->xfocus.window == windows->image.id) XSetInputFocus(display,windows->image.id,RevertToNone,CurrentTime); return(True); } case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event->xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); if (event->xkey.window == windows->magnify.id) XMagnifyWindowCommand(display,windows,key_symbol); return(True); } case MapNotify: { if (event->xmap.window == windows->magnify.id) { XMakeMagnifyImage(display,windows); windows->magnify.mapped=True; return(True); } if (event->xmap.window == windows->info.id) { windows->info.mapped=True; return(True); } break; } case MotionNotify: { if (event->xmotion.window == windows->image.id) if (windows->magnify.mapped) { /* Update magnified image. */ x=event->xmotion.x; y=event->xmotion.y; if (x < 0) x=0; else if (x >= windows->image.width) x=windows->image.width-1; windows->magnify.x=windows->image.x+x; if (y < 0) y=0; else if (y >= windows->image.height) y=windows->image.height-1; windows->magnify.y=windows->image.y+y; XMakeMagnifyImage(display,windows); } return(True); } case UnmapNotify: { if (event->xunmap.window == windows->magnify.id) { windows->magnify.mapped=False; return(True); } if (event->xunmap.window == windows->info.id) { windows->info.mapped=False; return(True); } break; } case KeyRelease: case SelectionNotify: return(True); default: break; } return(False); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S e t C l i p G e o m e t r y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XSetClipGeometry accepts a clipping geometry relative to the % image window and translates it to a clipping geometry relative to the % image. % % The format of the XSetClipGeometry routine is: % % XSetClipGeometry(display,windows,clip_info,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o windows: Specifies a pointer to a XWindows structure. % % o clip_info: A pointer to a RectangleInfo that defines a region of the % image window to clip. % % o image: Specifies a pointer to a Image structure. % % */ static void XSetClipGeometry(display,windows,clip_info,image) Display *display; XWindows *windows; RectangleInfo *clip_info; Image *image; { char text[MaxTextLength]; int x, y; unsigned int height, width; unsigned long scale_factor; if (windows->info.mapped) { /* Display info on clipping rectangle. */ (void) sprintf(text," %ux%u+%u+%u ",windows->image.width, windows->image.height,windows->image.width,windows->image.height); XSetWindowExtents(display,&windows->info,text); XMapWindow(display,windows->info.id); (void) sprintf(text," %ux%u%+d%+d",clip_info->width,clip_info->height, clip_info->x,clip_info->y); XDisplayInfoString(display,&windows->info,text); } /* Clipping geometry is relative to any previous clip geometry. */ x=0; y=0; width=image->columns; height=image->rows; if (windows->image.clip_geometry != (char *) NULL) (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width,&height); else { /* Allocate clip geometry string. */ windows->image.clip_geometry=(char *) malloc(MaxTextLength*sizeof(char)); if (windows->image.clip_geometry == (char *) NULL) Error("Unable to clip X image",windows->image.name); } /* Define the clip geometry string from the clipping rectangle. */ scale_factor=UpShift(width)/windows->image.ximage->width; clip_info->x+=windows->image.x; if (clip_info->x > 0) x+=DownShift(clip_info->x*scale_factor); width=DownShift(clip_info->width*scale_factor); if (width == 0) width=1; scale_factor=UpShift(height)/windows->image.ximage->height; clip_info->y+=windows->image.y; if (clip_info->y > 0) y+=DownShift(clip_info->y*scale_factor); height=DownShift(clip_info->height*scale_factor); if (height == 0) height=1; (void) sprintf(windows->image.clip_geometry,"%ux%u%+d%+d",width,height,x,y); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X T i l e I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XTileImageWindow determines which individual tile of a composite % image was choosen with a button press and then displays it. % % The format of the XTileImageWindow routine is: % % tiled_image=XTileImageWindow(display,resource_info,windows,image,event) % % A description of each parameter follows: % % o tiled_image: XTileImageWindow reads the tiled image and returns % it. A null image is returned if an error occurs. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o event: Specifies a pointer to a XEvent structure. If it is NULL, % the entire image is refreshed. % % */ static Image *XTileImageWindow(display,resource_info,windows,image,event) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; XEvent *event; { #define TileImageText " Loading image... " char filename[MaxTextLength]; Image *tiled_image; int tile, x, y; register char *p, *q; unsigned int height, width; unsigned long scale_factor; /* Tile image is relative to composite image configuration. */ x=0; y=0; width=image->columns; height=image->rows; if (windows->image.clip_geometry != (char *) NULL) (void) XParseGeometry(windows->image.clip_geometry,&x,&y,&width,&height); scale_factor=UpShift(width)/windows->image.ximage->width; event->xbutton.x+=windows->image.x; event->xbutton.x=DownShift(event->xbutton.x*scale_factor)+x; scale_factor=UpShift(height)/windows->image.ximage->height; event->xbutton.y+=windows->image.y; event->xbutton.y=DownShift(event->xbutton.y*scale_factor)+y; /* Determine size and location of individual tiles of the composite. */ x=0; y=0; width=image->columns; height=image->rows; (void) XParseGeometry(image->montage,&x,&y,&width,&height); tile=((event->xbutton.y-y)/height)*((image->columns-x)/width)+ (event->xbutton.x-x)/width; if (tile < 0) { /* Button press is outside any tile. */ XBell(display,0); return((Image *) NULL); } /* Determine file name from the tile directory. */ p=image->directory; while ((tile != 0) && (*p != '\0')) { if (*p == '\n') tile--; p++; } if (*p == '\0') { /* Button press is outside any tile. */ XBell(display,0); return((Image *) NULL); } q=p; while ((*q != '\n') && (*q != '\0')) q++; (void) strncpy(filename,p,q-p); filename[q-p]='\0'; /* Map info window. */ XSetWindowExtents(display,&windows->info,TileImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,TileImageText); /* Load tile image. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); (void) strcpy(resource_info->image_info->filename,filename); tiled_image=ReadImage(resource_info->image_info); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); if (tiled_image == (Image *) NULL) XNoticeWidget(display,windows,"Unable to load image",filename); return(tiled_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X T r a n s l a t e I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XTranslateImageWindow translates the image within the image window % by one pixel as specified by the key symbol. If the image has a `montage' % string the translation is respect to the width and height contained within % the string. % % The format of the XTranslateImageWindow routine is: % % XTranslateImageWindow(display,windows,image,key_symbol) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o key_symbol: Specifies a KeySym which indicates which side of the image % to trim. % % */ static void XTranslateImageWindow(display,windows,image,key_symbol) Display *display; XWindows *windows; Image *image; KeySym key_symbol; { int x, y; unsigned int x_offset, y_offset; /* User specified a pan position offset. */ x_offset=1; y_offset=1; if (image->montage != (char *) NULL) (void) XParseGeometry(image->montage,&x,&y,&x_offset,&y_offset); switch (key_symbol) { case XK_Home: { windows->image.x=windows->image.width >> 1; windows->image.y=windows->image.height >> 1; break; } case XK_Left: { windows->image.x-=x_offset; break; } case XK_Up: { windows->image.y-=y_offset; break; } case XK_Right: { windows->image.x+=x_offset; break; } case XK_Down: { windows->image.y+=y_offset; break; } default: break; } /* Check boundary conditions. */ if (windows->image.x < 0) windows->image.x=0; else if ((windows->image.x+windows->image.width) > windows->image.ximage->width) windows->image.x=windows->image.ximage->width-windows->image.width; if (windows->image.y < 0) windows->image.y=0; else if ((windows->image.y+windows->image.height) > windows->image.ximage->height) windows->image.y=windows->image.ximage->height-windows->image.height; /* Refresh image window. */ XDrawPanRectangle(display,windows); XRefreshWindow(display,&windows->image,(XEvent *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X T r i m I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XTrimImageWindow trims the edges from the image window. % % The format of the XTrimImageWindow routine is: % % status=XTrimImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XTrimImageWindow returns True if the image is % clipped. False is returned is there is a memory shortage or if the % image fails to be cropped. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure. % % */ static unsigned int XTrimImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { #define TrimImageText " Trimming image... " RectangleInfo trim_info; register int x, y; unsigned long background, pixel; /* Alert user we are busy. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XSetWindowExtents(display,&windows->info,TrimImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,TrimImageText); XFlush(display); /* Trim edges from image. */ background=XGetPixel(windows->image.ximage,0,0); trim_info.width=windows->image.ximage->width; for (x=0; x < windows->image.ximage->width; x++) { for (y=0; y < windows->image.ximage->height; y++) { pixel=XGetPixel(windows->image.ximage,x,y); if (pixel != background) break; } if (y < windows->image.ximage->height) break; } trim_info.x=x; if (trim_info.x == windows->image.ximage->width) { XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); return(False); } for (x=windows->image.ximage->width-1; x > 0; x--) { for (y=0; y < windows->image.ximage->height; y++) { pixel=XGetPixel(windows->image.ximage,x,y); if (pixel != background) break; } if (y < windows->image.ximage->height) break; } trim_info.width=x-trim_info.x+1; trim_info.height=windows->image.ximage->height; for (y=0; y < windows->image.ximage->height; y++) { for (x=0; x < windows->image.ximage->width; x++) { pixel=XGetPixel(windows->image.ximage,x,y); if (pixel != background) break; } if (x < windows->image.ximage->width) break; } trim_info.y=y; for (y=windows->image.ximage->height-1; y > 0; y--) { for (x=0; x < windows->image.ximage->width; x++) { pixel=XGetPixel(windows->image.ximage,x,y); if (pixel != background) break; } if (x < windows->image.ximage->width) break; } trim_info.height=y-trim_info.y+1; if ((trim_info.width != windows->image.width) || (trim_info.height != windows->image.height)) { /* Reconfigure image window as defined by trimping rectangle. */ XSetClipGeometry(display,windows,&trim_info,image); windows->image.window_changes.width=trim_info.width; windows->image.window_changes.height=trim_info.height; (void) XConfigureImageWindow(display,resource_info,windows,image); } XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X W r i t e I m a g e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XWriteImageWindow writes an image to a file. % % The format of the XWriteImageWindow routine is: % % status=XWriteImageWindow(display,resource_info,windows,image) % % A description of each parameter follows: % % o status: Function XWriteImageWindow return True if the image is % written. False is returned is there is a memory shortage or if the % image fails to write. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o windows: Specifies a pointer to a XWindows structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ static unsigned int XWriteImageWindow(display,resource_info,windows,image) Display *display; XResourceInfo *resource_info; XWindows *windows; Image *image; { #define WriteImageText " Writing image... " char filename[MaxTextLength]; Image *write_image; ImageInfo *image_info; int status; /* Request file name from user. */ (void) strcpy(filename,image->filename); if (resource_info->write_filename != (char *) NULL) (void) strcpy(filename,resource_info->write_filename); XFileBrowserWidget(display,windows,"Write",filename); if (*filename == '\0') return(True); image_info=resource_info->image_info; (void) strcpy(image_info->filename,filename); SetImageMagick(resource_info->image_info); if ((strcmp(image_info->magick,"JPEG") == 0) || (strcmp(image_info->magick,"JPG") == 0)) { char quality[MaxTextLength]; /* Request JPEG quality from user. */ (void) sprintf(quality,"%u",image_info->quality); XDialogWidget(display,windows,"Write","Enter JPEG quality:",quality); if (*quality != '\0') image_info->quality=atoi(quality); } if ((strcmp(image_info->magick,"EPS") == 0) || (strcmp(image_info->magick,"PS") == 0) || (strcmp(image_info->magick,"PS2") == 0)) { char geometry[MaxTextLength]; /* Request Postscript page geometry from user. */ (void) sprintf(geometry,PSPageGeometry); if (image_info->page != (char *) NULL) (void) strcpy(geometry,image_info->page); XDialogWidget(display,windows,"Write","Enter Postscript page geometry:", geometry); if (*geometry != '\0') { image_info->page=(char *) malloc((strlen(geometry)+1)*sizeof(char)); if (image_info->page != (char *) NULL) (void) sprintf(image_info->page,geometry); } } /* Alert user we are busy. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XSetWindowExtents(display,&windows->info,WriteImageText); XMapWindow(display,windows->info.id); XDisplayInfoString(display,&windows->info,WriteImageText); XCheckRefreshWindow(display,&windows->image); /* Copy image before applying image transforms. */ image->orphan=True; write_image=CopyImage(image,image->columns,image->rows,True); image->orphan=False; if (write_image == (Image *) NULL) { XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); return(False); } if ((windows->image.clip_geometry != (char *) NULL) || (write_image->columns != windows->image.ximage->width) || (write_image->rows != windows->image.ximage->height)) { char image_geometry[MaxTextLength]; /* Clip and/or scale image. */ (void) sprintf(image_geometry,"%dx%d",windows->image.ximage->width, windows->image.ximage->height); TransformImage(&write_image,windows->image.clip_geometry,image_geometry); } if (resource_info->number_colors != 0) { /* Reduce the number of colors in the image. */ if ((write_image->class == DirectClass) || (write_image->colors > resource_info->number_colors) || (resource_info->colorspace == GRAYColorspace)) QuantizeImage(write_image,resource_info->number_colors, resource_info->tree_depth,resource_info->dither, resource_info->colorspace,True); SyncImage(write_image); } (void) strcpy(write_image->filename,filename); status=WriteImage(image_info,write_image); DestroyImage(write_image); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->info.id,windows->info.screen); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char **argv; { #define NotInitialized (unsigned int) (~0) char *comment, *density, *label, *option, *page_geometry, *resource_value, *server_name; Display *display; Image *image, *next_image; ImageInfo image_info; int flags, i, p, q, x, y; unsigned int compression, first_scene, *image_marker, image_number, interlace, last_scene, matte, quality, scene, verbose; unsigned long state; XrmDatabase resource_database, server_database; XResourceInfo resource_info; /* Set defaults. */ client_name=(*argv); display=(Display *) NULL; first_scene=0; image_marker=(unsigned int *) malloc(argc*sizeof(unsigned int)); if (image_marker == (unsigned int *) NULL) Error("Unable to display image","Memory allocation failed"); for (i=0; i < argc; i++) image_marker[i]=argc; image_number=0; matte=NotInitialized; last_scene=0; resource_database=(XrmDatabase) NULL; server_name=(char *) NULL; state=DefaultState; /* Check for server name specified on the command line. */ for (i=1; i < argc; i++) { /* Check command line for server name. */ option=argv[i]; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) if (strncmp("display",option+1,3) == 0) { /* User specified server name. */ i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; break; } } /* Open X server connection. */ display=XOpenDisplay(server_name); if (display == (Display *) NULL) Error("Unable to connect to X server",XDisplayName(server_name)); /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Initialize resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); /* Get user defaults from X resource database. */ XGetResourceInfo(resource_database,client_name,&resource_info); resource_value=XGetResourceClass(resource_database,client_name,"compression", "RunlengthEncoded"); if (Latin1Compare("qencoded",resource_value) == 0) compression=QEncodedCompression; else compression=RunlengthEncodedCompression; comment= XGetResourceClass(resource_database,client_name,"comment",(char *) NULL); density= XGetResourceClass(resource_database,client_name,"density",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"interlace","none"); interlace=UndefinedInterlace; if (Latin1Compare("none",resource_value) == 0) interlace=NoneInterlace; if (Latin1Compare("line",resource_value) == 0) interlace=LineInterlace; if (Latin1Compare("plane",resource_value) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Warning("Unrecognized interlace type",resource_value); label=XGetResourceClass(resource_database,client_name,"label",(char *) NULL); page_geometry=XGetResourceClass(resource_database,client_name,"pageGeometry", (char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"quality","85"); quality=atoi(resource_value); resource_value=XGetResourceClass(resource_database,client_name,"scene","0"); scene=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"verbose","False"); verbose=IsTrue(resource_value); /* Parse command line. */ p=1; for (i=1; ((i <= argc) && !(state & ExitState)); i++) { if (i < argc) option=argv[i]; else if (image_number == 0) option="xc:"; else break; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) switch (*(option+1)) { case 'b': { if (strncmp("backdrop",option+1,5) == 0) { resource_info.backdrop=(*option == '-'); break; } if (strncmp("background",option+1,5) == 0) { resource_info.background_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -background",(char *) NULL); resource_info.background_color=argv[i]; } break; } if (strncmp("border",option+1,7) == 0) { if (*option == '-') { i++; if (i == argc) Error("Missing geometry on -border",(char *) NULL); } break; } if (strncmp("bordercolor",option+1,7) == 0) { resource_info.border_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -bordercolor",(char *) NULL); resource_info.border_color=argv[i]; } break; } if (strncmp("borderwidth",option+1,7) == 0) { resource_info.border_width=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing width on -borderwidth",(char *) NULL); resource_info.border_width=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 'c': { if (strncmp("clip",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -clip",(char *) NULL); } break; } if (strncmp("colormap",option+1,6) == 0) { resource_info.colormap=PrivateColormap; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colormap",(char *) NULL); option=argv[i]; resource_info.colormap=UndefinedColormap; if (Latin1Compare("private",option) == 0) resource_info.colormap=PrivateColormap; if (Latin1Compare("shared",option) == 0) resource_info.colormap=SharedColormap; if (resource_info.colormap == UndefinedColormap) Error("Invalid colormap type on -colormap",option); } break; } if (strncmp("colors",option+1,7) == 0) { resource_info.number_colors=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing colors on -colors",(char *) NULL); resource_info.number_colors=atoi(argv[i]); } break; } if (strncmp("colorspace",option+1,7) == 0) { resource_info.colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; resource_info.colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) { resource_info.colorspace=GRAYColorspace; resource_info.number_colors=256; resource_info.tree_depth=8; } if (Latin1Compare("ohta",option) == 0) resource_info.colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) resource_info.colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) resource_info.colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) resource_info.colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) resource_info.colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) resource_info.colorspace=YUVColorspace; if (resource_info.colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } if (strncmp("comment",option+1,4) == 0) { comment=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing comment on -comment",(char *) NULL); comment=argv[i]; } break; } if (strncmp("compress",option+1,3) == 0) { compression=NoCompression; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compress",(char *) NULL); option=argv[i]; if (Latin1Compare("runlengthencoded",option) == 0) compression=RunlengthEncodedCompression; else if (Latin1Compare("qencoded",option) == 0) compression=QEncodedCompression; else Error("Invalid compression type on -compress",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("debug",option+1,3) == 0) { resource_info.debug=(*option == '-'); break; } if (strncmp("delay",option+1,3) == 0) { resource_info.delay=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing seconds on -delay",(char *) NULL); resource_info.delay=atoi(argv[i]); } break; } if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("display",option+1,3) == 0) { server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } resource_info.server_name=server_name; break; } if (strncmp("dither",option+1,3) == 0) { resource_info.dither=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'e': { if (strncmp("enhance",option+1,2) == 0) break; if (strncmp("equalize",option+1,2) == 0) break; Error("Unrecognized option",option); break; } case 'f': { if (strncmp("font",option+1,3) == 0) { resource_info.font=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing font name on -font",(char *) NULL); resource_info.font=argv[i]; } break; } if (strncmp("foreground",option+1,3) == 0) { resource_info.foreground_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing foreground on -foreground",(char *) NULL); resource_info.foreground_color=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'g': { if (strncmp("gamma",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing value on -gamma",(char *) NULL); } break; } if (strncmp("geometry",option+1,2) == 0) { resource_info.image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); resource_info.image_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'h': { if (strncmp("help",option+1,2) == 0) { Usage(True); break; } Error("Unrecognized option",option); break; } case 'i': { if (strncmp("iconGeometry",option+1,5) == 0) { resource_info.icon_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -iconGeometry",(char *) NULL); resource_info.icon_geometry=argv[i]; } break; } if (strncmp("iconic",option+1,5) == 0) { resource_info.iconic=(*option == '-'); break; } if (strncmp("interlace",option+1,3) == 0) { interlace=NoneInterlace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } if (strncmp("inverse",option+1,2) == 0) break; Error("Unrecognized option",option); break; } case 'l': { if (strncmp("label",option+1,2) == 0) { label=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing label name on -label",(char *) NULL); label=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'm': { if (strncmp("magnify",option+1,3) == 0) { resource_info.magnify=2; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing level on -magnify",(char *) NULL); resource_info.magnify=atoi(argv[i]); } break; } if (strncmp("map",option+1,3) == 0) { resource_info.map_type=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing map type on -map",(char *) NULL); resource_info.map_type=argv[i]; } break; } if (strncmp("matte",option+1,5) == 0) { matte=(*option == '-'); break; } if (strncmp("mattecolor",option+1,6) == 0) { resource_info.matte_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -matte",(char *) NULL); resource_info.matte_color=argv[i]; } break; } if (strncmp("monochrome",option+1,2) == 0) { resource_info.monochrome=(*option == '-'); if (resource_info.monochrome) { resource_info.number_colors=2; resource_info.tree_depth=8; resource_info.colorspace=GRAYColorspace; } break; } Error("Unrecognized option",option); break; } case 'n': { if (strncmp("name",option+1,2) == 0) { resource_info.name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing name on -name",(char *) NULL); resource_info.name=argv[i]; } break; } if (strncmp("noise",option+1,3) == 0) break; if (strncmp("normalize",option+1,3) == 0) break; Error("Unrecognized option",option); break; } case 'p': { if (strncmp("page",option+1,2) == 0) { page_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing page geometry on -page",(char *) NULL); page_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'q': { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing quality on -quality",(char *) NULL); quality=atoi(argv[i]);; break; } case 'r': { if (strncmp("reflect",option+1,2) == 0) break; if (strncmp("roll",option+1,3) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -roll",(char *) NULL); } break; } if (strncmp("rotate",option+1,3) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing degrees on -rotate",(char *) NULL); } break; } Error("Unrecognized option",option); break; } case 's': { if (strncmp("scene",option+1,3) == 0) { first_scene=0; last_scene=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing scene number on -scene",(char *) NULL); first_scene=atoi(argv[i]); last_scene=first_scene; (void) sscanf(argv[i],"%u-%u",&first_scene,&last_scene); } break; } if (strncmp("shear",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing shear geometry on -shear",(char *) NULL); } break; } Error("Unrecognized option",option); break; } case 't': { if (strncmp("title",option+1,2) == 0) { resource_info.title=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing title on -title",(char *) NULL); resource_info.title=argv[i]; } break; } if (strncmp("treedepth",option+1,2) == 0) { resource_info.tree_depth=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing depth on -treedepth",(char *) NULL); resource_info.tree_depth=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 'u': { if (strncmp("update",option+1,2) == 0) { resource_info.update=(*option == '-'); if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing seconds on -update",(char *) NULL); resource_info.delay=atoi(argv[i]); } break; } if (strncmp("use_pixmap",option+1,2) == 0) { resource_info.use_pixmap=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'v': { if (strncmp("verbose",option+1,2) == 0) { verbose=(*option == '-'); break; } if (strncmp("visual",option+1,2) == 0) { resource_info.visual_type=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing visual class on -visual",(char *) NULL); resource_info.visual_type=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'w': { if (strncmp("window",option+1,2) == 0) { resource_info.window_id=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing id, name, or 'root' on -window", (char *) NULL); resource_info.window_id=argv[i]; } break; } if (strncmp("write",option+1,2) == 0) { resource_info.write_filename=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing file name on -write",(char *) NULL); resource_info.write_filename=argv[i]; if (access(resource_info.write_filename,0) == 0) { char answer[2]; (void) fprintf(stderr,"Overwrite %s? ", resource_info.write_filename); (void) gets(answer); if (!((*answer == 'y') || (*answer == 'Y'))) exit(1); } } break; } Error("Unrecognized option",option); break; } default: { Error("Unrecognized option",option); break; } } else for (scene=first_scene; scene <= last_scene ; scene++) { double normalized_maximum_error, normalized_mean_error; Image info_image; time_t start_time; unsigned int mean_error_per_pixel; unsigned long total_colors; /* Option is a file name: begin by reading image from specified file. */ start_time=time((time_t *) NULL); GetImageInfo(option,&image_info); if (first_scene != last_scene) { char filename[MaxTextLength]; /* Form filename for multi-part images. */ (void) sprintf(filename,image_info.filename,scene); if (strcmp(filename,image_info.filename) == 0) (void) sprintf(filename,"%s.%u",image_info.filename,scene); (void) strcpy(image_info.filename,filename); } image_info.server_name=resource_info.server_name; image_info.font=resource_info.font; image_info.geometry=resource_info.image_geometry; image_info.page=page_geometry; image_info.density=density; image_info.interlace=interlace; image_info.monochrome=resource_info.monochrome; image_info.quality=quality; image_info.verbose=verbose; resource_info.image_info=(&image_info); image=ReadImage(&image_info); if (image == (Image *) NULL) if (*option == '-') break; else continue; do { info_image=(*image); total_colors=0; if (matte != NotInitialized) image->matte=matte; if (compression != UndefinedCompression) image->compression=compression; else image->compression=info_image.compression; if (scene != 0) image->scene=scene; LabelImage(image,label); if (comment != (char *) NULL) CommentImage(image,comment); /* Transform image as defined by the image geometries. */ for (q=p; q < i; q++) { option=argv[q]; if (strncmp("-border",option,8) == 0) { Image *bordered_image; ImageInfo border_info; /* Surround image with a border of solid color. */ q++; border_info=image_info; (void) strcpy(border_info.filename,"XC:"); if (resource_info.border_color != (char *) NULL) (void) strcat(border_info.filename, resource_info.border_color); border_info.geometry="1x1"; bordered_image=ReadImage(&border_info); if (bordered_image != (Image *) NULL) { ColorPacket border_color; RectangleInfo border_info; DestroyImage(bordered_image); border_info.width=0; border_info.height=0; border_info.x=0; border_info.y=0; flags=XParseGeometry(argv[q],&border_info.x,&border_info.y, &border_info.width,&border_info.height); if ((flags & HeightValue) == 0) border_info.height=border_info.width; border_color.red=bordered_image->pixels->red; border_color.green=bordered_image->pixels->green; border_color.blue=bordered_image->pixels->blue; bordered_image=BorderImage(image,&border_info,&border_color, &border_color); if (bordered_image != (Image *) NULL) { DestroyImage(image); bordered_image->class=DirectClass; image=bordered_image; } } } if (strncmp("-clip",option,3) == 0) TransformImage(&image,argv[++q],(char *) NULL); if (strncmp("-enhance",option,2) == 0) { Image *enhanced_image; /* Enhance image. */ enhanced_image=EnhanceImage(image); if (enhanced_image != (Image *) NULL) { DestroyImage(image); image=enhanced_image; } } if (strncmp("-equalize",option,3) == 0) EqualizeImage(image); if (strncmp("-gamma",option,3) == 0) GammaImage(image,argv[++q]); if (strncmp("-geometry",option,4) == 0) TransformImage(&image,(char *) NULL,argv[++q]); if (strncmp("-inverse",option,4) == 0) InverseImage(image); if (strncmp("-noise",option,4) == 0) { Image *noisy_image; /* Reduce noise in image. */ noisy_image=NoisyImage(image); if (noisy_image != (Image *) NULL) { DestroyImage(image); image=noisy_image; } } if (strncmp("-normalize",option,4) == 0) NormalizeImage(image); if (strncmp("-reflect",option,3) == 0) { Image *reflected_image; /* Reverse image scanlines. */ reflected_image=ReflectImage(image); if (reflected_image != (Image *) NULL) { DestroyImage(image); image=reflected_image; } } if (strncmp("-roll",option,4) == 0) { Image *rolled_image; unsigned int height, width; /* Roll image. */ x=0; y=0; flags=XParseGeometry(argv[++q],&x,&y,&width,&height); rolled_image=RollImage(image,x,y); if (rolled_image != (Image *) NULL) { DestroyImage(image); image=rolled_image; } } if (strncmp("-rotate",option,4) == 0) { Image *rotated_image; /* Rotate image. */ rotated_image=RotateImage(image,(double) atof(argv[++q]),False); if (rotated_image != (Image *) NULL) { DestroyImage(image); image=rotated_image; } } if (strncmp("-shear",option,3) == 0) { float x_shear, y_shear; Image *sheared_image; /* Shear image. */ x_shear=0.0; y_shear=0.0; (void) sscanf(argv[++q],"%fx%f",&x_shear,&y_shear); sheared_image=ShearImage(image,x_shear,y_shear,False); if (sheared_image != (Image *) NULL) { DestroyImage(image); image=sheared_image; } } } if (resource_info.number_colors != 0) { /* Reduce the number of colors in the image. */ if ((image->class == DirectClass) || (image->colors > resource_info.number_colors) || (resource_info.colorspace == GRAYColorspace)) QuantizeImage(image,resource_info.number_colors, resource_info.tree_depth,resource_info.dither, resource_info.colorspace,True); if (verbose) { /* Measure quantization error. */ QuantizationError(image,&mean_error_per_pixel, &normalized_mean_error,&normalized_maximum_error); total_colors=NumberColors(image,(FILE *) NULL); } SyncImage(image); } /* Display image to X server. */ if (resource_info.window_id != (char *) NULL) { /* Display image to a specified X window. */ XDisplayBackgroundImage(display,&resource_info,image); state&=ExitState; } else do { Image *loaded_image; /* Display montage image. */ loaded_image= XDisplayImage(display,&resource_info,argv,argc,&image,&state); if (loaded_image == (Image *) NULL) break; while ((loaded_image != (Image *) NULL) && (!(state & ExitState))) { next_image=XDisplayImage(display,&resource_info,argv,argc, &loaded_image,&state); DestroyImage(loaded_image); loaded_image=next_image; } } while (!(state & ExitState)); if (resource_info.write_filename != (char *) NULL) { /* Write image. */ (void) strcpy(image->filename,resource_info.write_filename); (void) WriteImage(&image_info,image); } if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s", image->scene == 0 ? image_number : image->scene, info_image.filename); if (resource_info.write_filename != (char *) NULL) (void) fprintf(stderr,"=>%s",resource_info.write_filename); (void) fprintf(stderr," %ux%u",info_image.columns, info_image.rows); if ((info_image.columns != image->columns) || (info_image.rows != image->rows)) (void) fprintf(stderr,"=>%ux%u",image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass "); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, image->colors); (void) fprintf(stderr," %u/%.6f/%.6fe",mean_error_per_pixel, normalized_mean_error,normalized_maximum_error); } (void) fprintf(stderr," %s %lds\n",image->magick, time((time_t *) NULL)-start_time+1); } /* Proceed to next/previous image. */ if (state & FormerImageState) next_image=image->previous; else next_image=image->next; if (next_image != (Image *) NULL) image=next_image; } while ((next_image != (Image *) NULL) && !(state & ExitState)); /* Free image resources. */ while (image->previous != (Image *) NULL) image=image->previous; DestroyImages(image); if (!(state & FormerImageState)) image_marker[i]=image_number++; else { /* Proceed to previous image. */ for (i--; i > 0; i--) if (image_marker[i] == (image_number-2)) break; if (image_number != 0) image_number--; } p=i+1; if (state & ExitState) break; } if (i == (argc-1)) if ((resource_info.delay != 0) && (image_number != 1)) { /* Proceed to first image. */ i=0; image_number=0; } } XCloseDisplay(display); (void) free((char *) image_marker); return(False); } ordercolor",option+1,7) == 0) { resource_info.border_color=(char *) NULL; if (*option == '-') ./ImageMagick/import.c 644 24 24 67772 5555556165 10116 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % IIIII M M PPPP OOO RRRR TTTTT % % I MM MM P P O O R R T % % I M M M PPPP O O RRRR T % % I M M P O O R R T % % IIIII M M P OOO R R T % % % % % % Import X11 image to a machine independent format. % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Import is an X Window System window dumping utility. Import allows X % users to store window images in a specially formatted dump file. This % file can then be read by the Display utility for redisplay, printing, % editing, formatting, archiving, image processing, etc. The target % window can be specified by id or name or be selected by clicking the % mouse in the desired window. The keyboard bell is rung once at the % beginning of the dump and twice when the dump is completed. % % The import program command syntax is: % % Usage: import [options ...] file % % Where options include: % -border include image borders in the output image % -clip geometry preferred size and location of the clipped image % -colors value preferred number of colors in the image % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -comment string annotate image with comment % -compress type RunlengthEncoded or QEncoded % -delay seconds pause before selecting target window % -density geometry vertical and horizontal density of the image % -descend obtain image by descending window hierarchy % -display server X server to contact % -frame include window manager frame % -geometry geometry width and height of the image % -interlace type NONE, LINE, or PLANE % -inverse apply color inversion to image % -label name assign a label to an image % -monochrome transform image to black and white % -page geometry size and location of the Postscript page % -quality value JPEG quality setting % -rotate degrees apply Paeth rotation to the image % -scene value image scene number % -screen select image from root window % -treedepth value depth of the color classification tree % -verbose print detailed information about the image % -window id select window with this id or name % % Change '-' to '+' in any option above to reverse its effect. % For example, +frame means do not window manager frame. % % By default, 'file' is written in the Postscript image format. To specify % a particular image format, precede the filename with an image format % name and a colon (i.e. ps:image) or specify the image type as the % filename suffix (i.e. image.ps). Specify 'file' as '-' for standard % input or output. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "X.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Usage displays the program usage; % % The format of the Usage routine is: % % Usage() % % */ static void Usage() { char **p; static char *options[]= { "-border include image borders in the output image", "-clip geometry preferred size and location of the clipped image", "-colors value preferred number of colors in the image", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-comment string annotate image with comment", "-compress type RunlengthEncoded or QEncoded", "-delay seconds pause before selecting target window", "-density geometry vertical and horizontal density of the image", "-descend obtain image by descending window hierarchy", "-display server X server to contact", "-frame include window manager frame", "-geometry geometry width and height of the image", "-interlace type NONE, LINE, or PLANE", "-inverse apply color inversion to image", "-label name assign a label to an image", "-monochrome transform image to black and white", "-page geometry size and location of the Postscript page", "-quality value JPEG quality setting", "-rotate degrees apply Paeth rotation to the image", "-scene value image scene number", "-treedepth value depth of the color classification tree", "-screen select image from root window", "-verbose print detailed information about the image", "-window id select window with this id or name", (char *) NULL }; (void) fprintf(stderr,"Usage: %s [options ...] file\n",client_name); (void) fprintf(stderr,"\nWhere options include:\n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect.\n"); (void) fprintf(stderr, "For example, +frame means do not include window manager frame.\n"); (void) fprintf(stderr, "\nBy default, 'file' is written in the Postscript image format. To\n"); (void) fprintf(stderr, "specify a particular image format, precede the filename with an image\n"); (void) fprintf(stderr, "format name and a colon (i.e. ps:image) or specify the image type as\n"); (void) fprintf(stderr, "the filename suffix (i.e. image.ps). Specify 'file' as '-' for\n"); (void) fprintf(stderr,"standard input or output.\n"); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char *argv[]; { char *clip_geometry, *comment, *density, *filename, *label, *option, *page_geometry, *resource_value, *server_name, *target_window; Display *display; double normalized_maximum_error, normalized_mean_error; Image *image; ImageInfo image_info; int degrees, i, x; time_t start_time; unsigned int borders, compression, descend, frame, interlace, inverse, mean_error_per_pixel, quality, scene, screen, verbose; unsigned long total_colors; XResourceInfo resource_info; XrmDatabase resource_database, server_database; /* Display usage profile if there are no command line arguments. */ client_name=(*argv); if (argc < 2) Usage(); /* Connect to X server. */ server_name=(char *) NULL; for (i=1; i < argc; i++) { /* Check command line for server name. */ option=argv[i]; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) if (strncmp("dis",option+1,3) == 0) { /* User specified server name. */ i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; break; } } display=XOpenDisplay(server_name); if (display == (Display *) NULL) Error("Unable to connect to X server",XDisplayName(server_name)); /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Initialize resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); /* Get user defaults from X resource database. */ XGetResourceInfo(resource_database,client_name,&resource_info); resource_value= XGetResourceClass(resource_database,client_name,"borders","False"); borders=IsTrue(resource_value); clip_geometry=XGetResourceClass(resource_database,client_name, "clipGeometry",(char *) NULL); comment= XGetResourceClass(resource_database,client_name,"comment",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"compression","Runlength"); if (Latin1Compare("qencoded",resource_value) == 0) compression=QEncodedCompression; else compression=RunlengthEncodedCompression; density=XGetResourceClass(resource_database,client_name,"density", (char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"descend","False"); descend=IsTrue(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"frame","False"); frame=IsTrue(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"interlace","none"); interlace=UndefinedInterlace; if (Latin1Compare("none",resource_value) == 0) interlace=NoneInterlace; if (Latin1Compare("line",resource_value) == 0) interlace=LineInterlace; if (Latin1Compare("plane",resource_value) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Warning("Unrecognized interlace type",resource_value); resource_value= XGetResourceClass(resource_database,client_name,"inverse","False"); inverse=IsTrue(resource_value); label=XGetResourceClass(resource_database,client_name,"label",(char *) NULL); page_geometry=XGetResourceClass(resource_database,client_name, "pageGeometry",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"quality","85"); quality=atoi(resource_value); resource_value=XGetResourceClass(resource_database,client_name,"rotate","0"); degrees=atoi(resource_value); resource_value=XGetResourceClass(resource_database,client_name,"scene","0"); scene=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"screen","False"); screen=IsTrue(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"verbose","False"); verbose=IsTrue(resource_value); /* Check command syntax. */ filename=(char *) NULL; target_window=(char *) NULL; for (i=1; i < argc; i++) { option=argv[i]; if (((int) strlen(option) < 2) || ((*option != '-') && (*option != '+'))) filename=argv[i]; else switch(*(option+1)) { case 'b': { borders=(*option == '-'); break; } case 'c': { if (strncmp("clip",option+1,2) == 0) { clip_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -clip",(char *) NULL); clip_geometry=argv[i]; } break; } if (strncmp("colors",option+1,7) == 0) { resource_info.number_colors=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing colors on -colors",(char *) NULL); resource_info.number_colors=atoi(argv[i]); } break; } if (strncmp("colorspace",option+1,7) == 0) { resource_info.colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; resource_info.colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) { resource_info.colorspace=GRAYColorspace; resource_info.number_colors=256; resource_info.tree_depth=8; } if (Latin1Compare("ohta",option) == 0) resource_info.colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) resource_info.colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) resource_info.colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) resource_info.colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) resource_info.colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) resource_info.colorspace=YUVColorspace; if (resource_info.colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } if (strncmp("comment",option+1,4) == 0) { comment=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing comment on -comment",(char *) NULL); comment=argv[i]; } break; } if (strncmp("compress",option+1,3) == 0) { compression=NoCompression; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compress",(char *) NULL); option=argv[i]; if (Latin1Compare("runlengthencoded",option) == 0) compression=RunlengthEncodedCompression; else if (Latin1Compare("qencoded",option) == 0) compression=QEncodedCompression; else Error("Invalid compression type on -compress",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("delay",option+1,3) == 0) { resource_info.delay=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing seconds on -delay",(char *) NULL); resource_info.delay=atoi(argv[i]); } break; } if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("descend",option+1,3) == 0) { descend=(*option == '-'); break; } if (strncmp("display",option+1,3) == 0) { server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } break; } if (strncmp("dither",option+1,3) == 0) { resource_info.dither=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'f': { frame=(*option == '-'); break; } case 'g': { if (strncmp("geometry",option+1,2) == 0) { resource_info.image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); resource_info.image_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'h': { Usage(); break; } case 'i': { if (strncmp("interlace",option+1,3) == 0) { interlace=NoneInterlace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } if (strncmp("inverse",option+1,2) == 0) { inverse=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'l': { if (strncmp("label",option+1,2) == 0) { label=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing label name on -label",(char *) NULL); label=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'm': { if (strncmp("monochrome",option+1,2) == 0) { resource_info.monochrome=(*option == '-'); if (resource_info.monochrome) { resource_info.number_colors=2; resource_info.tree_depth=8; resource_info.colorspace=GRAYColorspace; } break; } Error("Unrecognized option",option); } case 'p': { if (strncmp("page",option+1,2) == 0) { page_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing page geometry on -page",(char *) NULL); page_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'q': { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing quality on -quality",(char *) NULL); quality=atoi(argv[i]); break; } case 'r': { if (strncmp("rotate",option+1,3) == 0) { degrees=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing degrees on -rotate",(char *) NULL); degrees=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 's': { if (strncmp("scene",option+1,3) == 0) { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing scene on -scene",(char *) NULL); scene=atoi(argv[i]); break; } if (strncmp("screen",option+1,3) == 0) { screen=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 't': { if (strncmp("treedepth",option+1,2) == 0) { resource_info.tree_depth=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing depth on -treedepth",(char *) NULL); resource_info.tree_depth=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 'w': { i++; if (i == argc) Error("Missing id, name, or 'root' on -window",(char *) NULL); target_window=argv[i]; break; } case 'v': { verbose=(*option == '-'); break; } default: { Error("Unrecognized option",option); break; } } } if (filename == (char *) NULL) Error("Missing an image file name",(char *) NULL); /* Read image from X server. */ GetImageInfo(target_window,&image_info); image_info.server_name=resource_info.server_name; image_info.font=resource_info.font; image_info.geometry=resource_info.image_geometry; image_info.density=density; image_info.page=page_geometry; image_info.interlace=interlace; image_info.monochrome=resource_info.monochrome; image_info.quality=quality; image_info.verbose=verbose; if (resource_info.delay != 0) (void) sleep(resource_info.delay); start_time=time((time_t *) NULL); image=ReadXImage(&image_info,frame,borders,screen,descend); if (image == (Image *) NULL) exit(1); (void) strcpy(image->magick,"X"); LabelImage(image,label); if (comment != (char *) NULL) CommentImage(image,comment); else CommentImage(image," Imported from %m image: %f"); /* Transform image as defined by the clip, image and scale geometries. */ TransformImage(&image,clip_geometry,resource_info.image_geometry); if ((degrees % 360) != 0) { Image *rotated_image; /* Rotate image. */ rotated_image=RotateImage(image,(double) degrees,False); if (rotated_image != (Image *) NULL) { DestroyImage(image); image=rotated_image; } } if (inverse) InverseImage(image); if (resource_info.number_colors != 0) { /* Reduce the number of colors in the image. */ if ((image->class == DirectClass) || (image->colors > resource_info.number_colors) || (resource_info.colorspace == GRAYColorspace)) QuantizeImage(image,resource_info.number_colors, resource_info.tree_depth,resource_info.dither, resource_info.colorspace,True); if (verbose) { /* Measure quantization error. */ QuantizationError(image,&mean_error_per_pixel, &normalized_mean_error,&normalized_maximum_error); total_colors=NumberColors(image,(FILE *) NULL); } SyncImage(image); } /* Write import X image. */ image->scene=scene; if (compression != UndefinedCompression) image->compression=compression; (void) strcpy(image_info.filename,filename); (void) strcpy(image->magick,"PS"); (void) strcpy(image->filename,filename); (void) WriteImage(&image_info,image); if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s=>%s %ux%u",image->scene,filename, image->filename,image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, image->colors); (void) fprintf(stderr," %u/%.6f/%.6fe",mean_error_per_pixel, normalized_mean_error,normalized_maximum_error); } (void) fprintf(stderr," %s %lds\n",image->magick, time((time_t *) NULL)-start_time+1); } DestroyImage(image); XCloseDisplay(display); return(False); } d_imag./ImageMagick/Make.com 644 24 24 12564 5477267420 7776 $! $! Make ImageMagick X image utilities for VMS. $! $ $define/nolog X11 decw$include: $define/nolog sys sys$library: $link_options="/nodebug/notraceback" $define/nolog lnk$library sys$library:vaxcrtl $ $write sys$output "Making in [.magick]" $set default [.magick] $@make $set default [-] $if ((p1.nes."").and.(p1.nes."display")) then goto SkipDisplay $write sys$output "Making Display..." $call Make display $ $link'link_options' display,[.magick]widget,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $display:==$'f$environment("default")'display $write sys$output "..symbol DISPLAY defined." $ $SkipDisplay: $if ((p1.nes."").and.(p1.nes."import")) then goto SkipImport $write sys$output "Making Import..." $call Make import $ $link'link_options' import,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $import:==$'f$environment("default")'import $write sys$output "..symbol IMPORT defined." $SkipImport: $ $if ((p1.nes."").and.(p1.nes."animate")) then goto SkipAnimate $write sys$output "Making Animate..." $call Make animate $ $link'link_options' animate,[.magick]widget,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $animate:==$'f$environment("default")'animate $write sys$output "..symbol ANIMATE defined." $ $SkipAnimate: $if ((p1.nes."").and.(p1.nes."montage")) then goto SkipMontage $write sys$output "Making Montage..." $call Make montage $ $link'link_options' montage,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $montage:==$'f$environment("default")'montage $write sys$output "..symbol MONTAGE defined." $ $SkipMontage: $if ((p1.nes."").and.(p1.nes."mogrify")) then goto SkipMogrify $write sys$output "Making Mogrify..." $call Make mogrify $ $link'link_options' mogrify,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $mogrify:==$'f$environment("default")'mogrify $write sys$output "..symbol MOGRIFY defined." $ $SkipMogrify: $if ((p1.nes."").and.(p1.nes."convert")) then goto SkipConvert $write sys$output "Making Convert..." $call Make convert $ $link'link_options' convert,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $convert:==$'f$environment("default")'convert $write sys$output "..symbol CONVERT defined." $SkipConvert: $if ((p1.nes."").and.(p1.nes."combine")) then goto SkipCombine $write sys$output "Making Combine..." $call Make combine $ $link'link_options' combine,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $combine:==$'f$environment("default")'combine $write sys$output "..symbol COMBINE defined." $SkipCombine: $if ((p1.nes."").and.(p1.nes."segment")) then goto SkipSegment $write sys$output "Making Segment..." $call Make segment $ $link'link_options' segment,[.magick]X,[.magick]image, - [.magick]shear,[.magick]quantize,[.magick]colors,[.magick]signature, - [.magick]decode,[.magick]encode,[.magick]compress,[.magick]utility, - [.magick]error,[.magick]PreRvIcccm,sys$input:/opt sys$share:decw$xlibshr.exe/share $ $segment:==$'f$environment("default")'segment $write sys$output "..symbol SEGMENT defined." $SkipSegment: $type sys$input Use this command to specify which X server to contact: $set display/create/node=node_name:: This can be done automatically from your LOGIN.COM with the following command: $if (f$trnlmn("sys$rem_node").nes."") then - $ set display/create/node='f$trnlmn("sys$rem_node")' $exit $ $Make: subroutine $! $! A very primitive "make" (or MMS) hack for DCL. $! $if (p1.eqs."") then exit $source_file=f$search(f$parse(p1,".c")) $if (source_file.nes."") $ then $ object_file=f$parse(source_file,,,"name")+".obj" $ object_file=f$search( object_file ) $ if (object_file.nes."") $ then $ object_time=f$file_attribute(object_file,"cdt") $ source_time=f$file_attribute(source_file,"cdt") $ if (f$cvtime(object_time).lts.f$cvtime(source_time)) then - $ object_file="" $ endif $ if (object_file.eqs."") $ then $ write sys$output "Compiling ",p1 $ cc/nodebug/optimize/include_directory=[.magick] 'source_file' $ endif $ endif $exit $endsubroutine "Making Display..." $call Make display $ $link'link_options' display,[.magick]widget,[.magick]X,[.magick]image, - [.magick]shear,[.magick]./ImageMagick/mogrify.c 644 24 24 106730 5556403071 10250 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M M OOO GGGG RRRR IIIII FFFFF Y Y % % MM MM O O G R R I F Y Y % % M M M O O G GG RRRRR I FFF Y % % M M O O G G R R I F Y % % M M OOO GGG R R IIIII F Y % % % % % % Transmogrify an Image or Sequence of Images. % % % % % % % % Software Design % % John Cristy % % December 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % `Mogrify' applies one or more image transforms to an image or sequence of % images and overwrites the original image. % % The Mogrify program command syntax is: % % Usage: mogrify [options ...] file [ [options ...] file ...] % % Where options include: % -border geometry surround image with a border of color % -clip geometry preferred size and location of the clipped image % -colormap filename transform image colors to match this set of colors % -colors value preferred number of colors in the image % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -comment string annotate image with comment % -compress type RunlengthEncoded or QEncoded % -density geometry vertical and horizontal density of the image % -display server obtain image or font from this X server % -dither apply Floyd/Steinberg error diffusion to image % -enhance apply a digital filter to enhance a noisy image % -equalize perform histogram equalization to an image % -font name X11 font for displaying text % -gamma value level of gamma correction % -geometry geometry preferred size of the image % -interlace type NONE, LINE, or PLANE % -inverse apply color inversion to image % -label name assign a label to an image % -monochrome transform image to black and white % -noise reduce noise with a noise peak elimination filter % -normalize transform image to span the full range of colors % -page geometry size and location of the Postscript page % -quality value JPEG quality setting % -reflect reverse image scanlines % -roll geometry roll an image vertically or horizontally % -rotate degrees apply Paeth rotation to the image % -scene value image scene number % -shear geometry slide one edge of the image along the X or Y axis % -treedepth value depth of the color classification tree % -undercolor geometry control undercolor removal and black generation % -verbose print detailed information about the image % % Change '-' to '+' in any option above to reverse its effect. For % example, specify +compress to store the image as uncompressed. % % By default, the image format of `file' is determined by its magic % number. To specify a particular image format, precede the filename % with an image format name and a colon (i.e. ps:image) or specify the % image type as the filename suffix (i.e. image.ps). Specify 'file' as % '-' for standard input or output. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "X.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Usage displays the program command syntax. % % The format of the Usage routine is: % % Usage() % % */ static void Usage() { char **p; static char *options[]= { "-border geometry surround image with a border of color", "-clip geometry preferred size and location of the clipped image", "-colormap filename transform image colors to match this set of colors", "-colors value preferred number of colors in the image", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-comment string annotate image with comment", "-compress type RunlengthEncoded or QEncoded", "-density geometry vertical and horizontal density of the image", "-display server obtain image or font from this X server", "-dither apply Floyd/Steinberg error diffusion to image", "-enhance apply a digital filter to enhance a noisy image", "-equalize perform histogram equalization to an image", "-font name X11 font for displaying text", "-gamma value level of gamma correction", "-geometry geometry preferred size of the image", "-interlace type NONE, LINE, or PLANE", "-inverse apply color inversion to image", "-label name assign a label to an image", "-monochrome transform image to black and white", "-noise reduce noise with a noise peak elimination filter", "-normalize transform image to span the full range of colors", "-page geometry size and location of the Postscript page", "-quality value JPEG quality setting", "-reflect reflect the image scanlines", "-roll geometry roll an image vertically or horizontally", "-rotate degrees apply Paeth rotation to the image", "-scene number image scene number", "-shear geometry slide one edge of the image along the X or Y axis", "-treedepth value depth of the color classification tree", "-undercolor geometry control undercolor removal and black generation", "-verbose print detailed information about the image", (char *) NULL }; (void) fprintf(stderr, "Usage: %s [-options ...] file [ [-options ...] file ...]\n",client_name); (void) fprintf(stderr,"\nWhere options include: \n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect. For\n"); (void) fprintf(stderr, "example, specify +compress to store the image as uncompressed.\n"); (void) fprintf(stderr, "\nBy default, the image format of `file' is determined by its magic\n"); (void) fprintf(stderr, "number. To specify a particular image format, precede the filename\n"); (void) fprintf(stderr, "with an image format name and a colon (i.e. ps:image) or specify the\n"); (void) fprintf(stderr, "image type as the filename suffix (i.e. image.ps). Specify 'file' as\n"); (void) fprintf(stderr,"'-' for standard input or output.\n"); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char **argv; { char *border_color, *colormap_filename, *comment, *density, *font, *gamma, *image_geometry, *label, *option, *page_geometry, *server_name, *undercolor_geometry; Image **images; ImageInfo image_info; int flags, i, p, q, x, y; unsigned int colorspace, compression, dither, height, image_number, interlace, maximum_images, monochrome, number_colors, quality, scene, tree_depth, verbose, width; /* Display usage profile if there are no command line arguments. */ client_name=(*argv); if (argc < 2) Usage(); /* Set defaults. */ border_color=(char *) NULL; colormap_filename=(char *) NULL; colorspace=RGBColorspace; comment=(char *) NULL; compression=UndefinedCompression; density=(char *) NULL; dither=False; font=(char *) NULL; gamma=(char *) NULL; image_geometry=(char *) NULL; interlace=NoneInterlace; label=(char *) NULL; monochrome=False; number_colors=0; quality=85; page_geometry=(char *) NULL; server_name=(char *) NULL; scene=0; tree_depth=0; undercolor_geometry=(char *) NULL; verbose=False; maximum_images=MaxTextLength; images=(Image **) malloc(maximum_images*sizeof(Image *)); if (images == (Image **) NULL) Error("Unable to mogrify images","Memory allocation failed"); /* Parse command line. */ image_number=0; p=1; for (i=1; i < argc; i++) { option=argv[i]; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) switch (*(option+1)) { case 'b': { if (strncmp("border",option+1,7) == 0) { if (*option == '-') { i++; if (i == argc) Error("Missing geometry on -border",(char *) NULL); } break; } if (strncmp("bordercolor",option+1,7) == 0) { border_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -bordercolor",(char *) NULL); border_color=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'c': { if (strncmp("clip",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -clip",(char *) NULL); } break; } if (strncmp("colormap",option+1,7) == 0) { colormap_filename=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing file name on -colormap",(char *) NULL); colormap_filename=argv[i]; } break; } if (strncmp("colors",option+1,7) == 0) { number_colors=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing colors on -colors",(char *) NULL); number_colors=atoi(argv[i]); } break; } if (strncmp("colorspace",option+1,7) == 0) { colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) { colorspace=GRAYColorspace; number_colors=256; tree_depth=8; } if (Latin1Compare("ohta",option) == 0) colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) colorspace=YUVColorspace; if (colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } if (strncmp("comment",option+1,4) == 0) { comment=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing comment on -comment",(char *) NULL); comment=argv[i]; } break; } if (strncmp("compress",option+1,3) == 0) { compression=NoCompression; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compress",(char *) NULL); option=argv[i]; if (Latin1Compare("runlengthencoded",option) == 0) compression=RunlengthEncodedCompression; else if (Latin1Compare("qencoded",option) == 0) compression=QEncodedCompression; else Error("Invalid compression type on -compress",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("display",option+1,3) == 0) { server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } break; } if (strncmp("dither",option+1,3) == 0) { dither=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'e': { if (strncmp("enhance",option+1,2) == 0) break; if (strncmp("equalize",option+1,2) == 0) break; Error("Unrecognized option",option); break; } case 'f': { font=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing font name on -font",(char *) NULL); font=argv[i]; } break; } case 'g': { if (strncmp("gamma",option+1,2) == 0) { gamma=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing value on -gamma",(char *) NULL); gamma=argv[i]; } break; } if (strncmp("geometry",option+1,2) == 0) { image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); image_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'h': { if (strncmp("help",option+1,2) == 0) { Usage(); break; } Error("Unrecognized option",option); break; } case 'i': { if (strncmp("interlace",option+1,3) == 0) { interlace=NoneInterlace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } if (strncmp("inverse",option+1,3) == 0) break; Error("Unrecognized option",option); break; } case 'l': { if (strncmp("label",option+1,2) == 0) { label=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing label name on -label",(char *) NULL); label=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'm': { monochrome=(*option == '-'); if (monochrome) { number_colors=2; tree_depth=8; colorspace=GRAYColorspace; } break; } case 'n': { if (strncmp("noise",option+1,3) == 0) break; if (strncmp("normalize",option+1,3) == 0) break; Error("Unrecognized option",option); break; } case 'p': { if (strncmp("page",option+1,2) == 0) { page_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing page geometry on -page",(char *) NULL); page_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'q': { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing quality on -quality",(char *) NULL); quality=atoi(argv[i]);; break; } case 'r': { if (strncmp("reflect",option+1,2) == 0) break; if (strncmp("roll",option+1,3) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -roll",(char *) NULL); } break; } if (strncmp("rotate",option+1,3) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing degrees on -rotate",(char *) NULL); } break; } Error("Unrecognized option",option); break; } case 's': { if (strncmp("scene",option+1,3) == 0) { scene=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing scene number on -scene",(char *) NULL); scene=atoi(argv[i]); } break; } if (strncmp("shear",option+1,2) == 0) { if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing shear geometry on -shear",(char *) NULL); } break; } Error("Unrecognized option",option); break; } case 't': { tree_depth=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing depth on -treedepth",(char *) NULL); tree_depth=atoi(argv[i]); } break; } case 'u': { if (strncmp("undercolor",option+1,2) == 0) { undercolor_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing undercolor geometry on -undercolor", (char *) NULL); undercolor_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'v': { verbose=(*option == '-'); break; } default: { Error("Unrecognized option",option); break; } } else { double normalized_maximum_error, normalized_mean_error; Image *image, info_image, *next_image; time_t start_time; unsigned int mean_error_per_pixel; unsigned long total_colors; /* Option is a file name: begin by reading image from specified file. */ start_time=time((time_t *) NULL); GetImageInfo(argv[i],&image_info); image_info.server_name=server_name; image_info.font=font; image_info.geometry=image_geometry; image_info.page=page_geometry; image_info.density=density; image_info.interlace=interlace; image_info.monochrome=monochrome; image_info.quality=quality; image_info.verbose=verbose; image_info.undercolor=undercolor_geometry; image=ReadImage(&image_info); if (image == (Image *) NULL) if (*option == '-') break; else continue; do { info_image=(*image); if (scene != 0) image->scene=scene; LabelImage(image,label); if (comment != (char *) NULL) CommentImage(image,comment); total_colors=0; /* Transform image as defined by the image geometries. */ for (q=p; q < i; q++) { option=argv[q]; if (strncmp("-border",option,8) == 0) { Image *bordered_image; ImageInfo border_info; /* Surround image with a border of solid color. */ q++; border_info=image_info; (void) strcpy(border_info.filename,"XC:"); if (border_color != (char *) NULL) (void) strcat(border_info.filename,border_color); border_info.geometry="1x1"; bordered_image=ReadImage(&border_info); if (bordered_image != (Image *) NULL) { ColorPacket border_color; RectangleInfo border_info; DestroyImage(bordered_image); border_info.width=0; border_info.height=0; border_info.x=0; border_info.y=0; flags=XParseGeometry(argv[q],&border_info.x,&border_info.y, &border_info.width,&border_info.height); if ((flags & HeightValue) == 0) border_info.height=border_info.width; border_color.red=bordered_image->pixels->red; border_color.green=bordered_image->pixels->green; border_color.blue=bordered_image->pixels->blue; bordered_image=BorderImage(image,&border_info,&border_color, &border_color); if (bordered_image != (Image *) NULL) { DestroyImage(image); bordered_image->class=DirectClass; image=bordered_image; } } } if (strncmp("-clip",option,3) == 0) TransformImage(&image,argv[++q],(char *) NULL); if (strncmp("-enhance",option,2) == 0) { Image *enhanced_image; /* Enhance image. */ enhanced_image=EnhanceImage(image); if (enhanced_image != (Image *) NULL) { DestroyImage(image); image=enhanced_image; } } if (strncmp("-equalize",option,3) == 0) EqualizeImage(image); if (strncmp("-gamma",option,3) == 0) GammaImage(image,argv[++q]); if (strncmp("-geometry",option,4) == 0) TransformImage(&image,(char *) NULL,argv[++q]); if (strncmp("-inverse",option,4) == 0) InverseImage(image); if (strncmp("-noise",option,4) == 0) { Image *noisy_image; /* Reduce noise in image. */ noisy_image=NoisyImage(image); if (noisy_image != (Image *) NULL) { DestroyImage(image); image=noisy_image; } } if (strncmp("-normalize",option,4) == 0) NormalizeImage(image); if (strncmp("-reflect",option,3) == 0) { Image *reflected_image; /* Reverse image scanlines. */ reflected_image=ReflectImage(image); if (reflected_image != (Image *) NULL) { DestroyImage(image); image=reflected_image; } } if (strncmp("-roll",option,4) == 0) { Image *rolled_image; /* Roll image. */ x=0; y=0; flags=XParseGeometry(argv[++q],&x,&y,&width,&height); rolled_image=RollImage(image,x,y); if (rolled_image != (Image *) NULL) { DestroyImage(image); image=rolled_image; } } if (strncmp("-rotate",option,4) == 0) { Image *rotated_image; /* Rotate image. */ rotated_image=RotateImage(image,(double) atof(argv[++q]),False); if (rotated_image != (Image *) NULL) { DestroyImage(image); image=rotated_image; } } if (strncmp("-shear",option,3) == 0) { float x_shear, y_shear; Image *sheared_image; /* Shear image. */ x_shear=0.0; y_shear=0.0; (void) sscanf(argv[++q],"%fx%f",&x_shear,&y_shear); sheared_image=ShearImage(image,x_shear,y_shear,False); if (sheared_image != (Image *) NULL) { DestroyImage(image); image=sheared_image; } } } if (number_colors != 0) { /* Reduce the number of colors in the image. */ if ((image->class == DirectClass) || (image->colors > number_colors) || (colorspace == GRAYColorspace)) QuantizeImage(image,number_colors,tree_depth,dither,colorspace, True); if (verbose) { /* Measure quantization error. */ QuantizationError(image,&mean_error_per_pixel, &normalized_mean_error,&normalized_maximum_error); total_colors=NumberColors(image,(FILE *) NULL); } SyncImage(image); } if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s", image->scene == 0 ? image_number : image->scene, info_image.filename); (void) fprintf(stderr," %ux%u",info_image.columns, info_image.rows); if ((info_image.columns != image->columns) || (info_image.rows != image->rows)) (void) fprintf(stderr,"=>%ux%u",image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, image->colors); (void) fprintf(stderr," %u/%.6f/%.6fe",mean_error_per_pixel, normalized_mean_error,normalized_maximum_error); } (void) fprintf(stderr," %s %lds\n",image->magick, time((time_t *) NULL)-start_time+1); } if (compression != UndefinedCompression) image->compression=compression; else image->compression=info_image.compression; if (number_colors == 0) (void) WriteImage(&image_info,image); if (image_number == maximum_images) { /* Increase size of images array. */ maximum_images<<=1; images=(Image **) realloc((char *) images,maximum_images*sizeof(Image *)); if (images == (Image **) NULL) Error("Unable to mogrify images","Memory allocation failed"); } images[image_number++]=image; next_image=image->next; if (next_image != (Image *) NULL) image=next_image; } while (next_image != (Image *) NULL); if (number_colors == 0) DestroyImages(image); p=i+1; } } if (image_number == 0) Error("Missing an image file name",(char *) NULL); if (number_colors != 0) { Image *colormap_image; /* Global colormap option; reduce colors then write image. */ colormap_image=(Image *) NULL; if (colormap_filename != (char *) NULL) { (void) strcpy(image_info.filename,colormap_filename); colormap_image=ReadImage(&image_info); if (colormap_image == (Image *) NULL) Error("Unable to mogrify images","cannot read image colormap"); } maximum_images=image_number; QuantizeImages(images,maximum_images,colormap_image,number_colors, tree_depth,dither,colorspace,True); if (colormap_image != (Image *) NULL) DestroyImage(colormap_image); for (image_number=0; image_number < maximum_images; image_number++) { (void) WriteImage(&image_info,images[image_number]); DestroyImage(images[image_number]); } } (void) free((char *) images); return(False); } preferred size of the image % -inter./ImageMagick/montage.c 644 24 24 160036 5555556165 10241 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M M OOO N N TTTTT AAA GGGG EEEEE % % MM MM O O NN N T A A G E % % M M M O O N N N T AAAAA G GG EEE % % M M O O N NN T A A G G E % % M M OOO N N T A A GGGG EEEEE % % % % % % Montage Magick Image File Format Image via X11. % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Montage creates a composite image by combining several separate % images. The images are tiled on the composite image with the name of % the image appearing just above the individual tile. % % The composite image is constructed in the following manner. First, % each image specified on the command line, except for the last, is % scaled to fit the maximum tile size. The maximum tile size by default % is 256x256. It can be modified with the -geometry command line % argument or X resource. Note that the maximum tile size need not be a % square. To respect the aspect ratio of each image append ~ to the % geometry specification. % % Next the composite image is initialized with the color specified by the % -background command line argument or X resource. The width and height % of the composite image is determined by the maximum tile size, the % number of tiles per row, the tile border width and height, the image % border width, and the label height. The number of tiles per row specifies % how many images are to appear in each row of the composite image. The % default is to have an equal number of images in each row and column of the % composite. This value can be specified with -tiles_per_row. The tile % border width and height, and the image border width defaults to the value % of the X resource -borderwidth. It can be changed with the -borderwidth or % -geometry command line argument or X resource. The label height is % determined by the font you specify with the -font command line argument or % X resource. If you do not specify a font, a font is choosen that allows % the name of the image to fit the maximum width of a tiled area. The label % colors is determined by the -background and -foreground command line % argument or X resource. Note, that if the background and foreground colors % are the same, labels will not appear. % % Finally, each image is set onto the composite image, surrounded by its % border color, with its name centered just below it. The individual images % are centered within the width of the tiled area. The final argument on the % command line is the name assigned to the composite image. The image is % written in the MIFF format and may by viewed or printed with `display'. % % The Montage program command syntax is: % % Usage: montage [options ...] file [ [options ...] file ...] file % % Where options include: % -clip geometry preferred size and location of the clipped image % -colors value preferred number of colors in the image % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -comment string annotate image with comment % -compose operator composite operator % -compress type RunlengthEncoded or QEncoded % -density geometry vertical and horizontal density of the image % -display server query fonts from this X server % -dither apply Floyd/Steinberg error diffusion to image % -frame surround image with an ornamental border % -gamma value level of gamma correction % -geometry geometry preferred tile and border sizes % -gravity direction which direction to gravitate towards % -interlace type NONE, LINE, or PLANE % -label name assign a label to an image % -monochrome transform image to black and white % -page geometry size and location of the Postscript page % -quality value JPEG quality setting % -rotate degrees apply Paeth rotation to the image % -scene value image scene number % -tiles_per_row value number of image tiles per row % -treedepth value depth of the color classification tree % -verbose print detailed information about the image % % In addition to those listed above, you can specify these standard X % resources as command line options: -background, -bordercolor -borderwidth, % -font, -foreground, -mattecolor, or -title. % % Change '-' to '+' in any option above to reverse its effect. For % example, specify +compress to store the image as uncompressed. % % By default, the image format of `file' is determined by its magic % number. To specify a particular image format, precede the filename % with an image format name and a colon (i.e. ps:image) or specify the % image type as the filename suffix (i.e. image.ps). Specify 'file' as % '-' for standard input or output. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "X.h" #include "compress.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M o n t a g e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MontageImage creates a composite image by combining several % separate images. % % The format of the MontageImage routine is: % % MontageImage(display,resource_info,images,number_tiles,tiles_per_row, % frame,compose) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o number_tiles: Specifies the number of tiles to tile. % % o tiles_per_row: Specifies the number of arguments. % % o frame: An integer greater than zero will force an ornamental border % around each tile. % % o compose: Specifies an image composite operator. % % */ static int SceneCompare(x,y) const void *x, *y; { Image **image_1, **image_2; image_1=(Image **) x; image_2=(Image **) y; return((int) (*image_1)->scene-(int) (*image_2)->scene); } static Image *MontageImage(display,resource_info,images,number_tiles, tiles_per_row,frame,compose) Display *display; XResourceInfo *resource_info; Image **images; unsigned int number_tiles, tiles_per_row, frame, compose; { ColorPacket border_color, highlight_color, matte_color, shadow_color; Image *image, *montage_image; int x, x_offset, y, y_offset; register char *q; register int i; register RunlengthPacket *p; RectangleInfo label_info, tile_info; unsigned int border_width, bevel_width, count, max_width, status, tile; XAnnotateInfo annotate_info; XColor background_color; XFontStruct *font_info; XPixelInfo pixel_info; XStandardColormap *map_info; XVisualInfo *visual_info; /* Determine tile sizes. */ border_width=resource_info->border_width; if (frame) { bevel_width=((3*border_width) >> 3)+2; border_width+=bevel_width << 1; } tile_info.x=resource_info->border_width; tile_info.y=resource_info->border_width; if (resource_info->image_geometry != (char *) NULL) { XParseGeometry(resource_info->image_geometry,&tile_info.x, &tile_info.y,&tile_info.width,&tile_info.height); if (tile_info.x < 0) tile_info.x=0; if (tile_info.y < 0) tile_info.y=0; } tile_info.width=images[0]->columns; tile_info.height=images[0]->rows; for (tile=1; tile < number_tiles; tile++) { if (images[tile]->columns > tile_info.width) tile_info.width=images[tile]->columns; if (images[tile]->rows > tile_info.height) tile_info.height=images[tile]->rows; } if (tiles_per_row == 0) { /* Compute tiles per row. */ tiles_per_row=1; while ((tiles_per_row*tiles_per_row) < number_tiles) tiles_per_row++; } /* Initialize tile colors. */ background_color.red=0; background_color.green=0; background_color.blue=0; border_color.red=0; border_color.green=0; border_color.blue=0; highlight_color=border_color; shadow_color=border_color; XGetAnnotateInfo(&annotate_info); /* Determine if any of the tiles have a label. */ for (tile=0; tile < number_tiles; tile++) if (images[tile]->label != (char *) NULL) break; if (tile == number_tiles) display=(Display *) NULL; if (display != (Display *) NULL) { /* Initialize visual info. */ map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Error("Unable to create standard colormap","Memory allocation failed"); visual_info=XBestVisualInfo(display,map_info,resource_info); if (visual_info == (XVisualInfo *) NULL) Error("Unable to get visual",resource_info->visual_type); map_info->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; /* Initialize font info. */ font_info=XBestFont(display,resource_info); if (font_info == (XFontStruct *) NULL) Error("Unable to load font",resource_info->font); annotate_info.text=(char *) malloc(MaxTextLength*sizeof(char)); if (annotate_info.text == (char *) NULL) Error("Unable to montage images","Memory allocation failed"); annotate_info.font_info=font_info; annotate_info.height=font_info->ascent+font_info->descent; /* Determine background and border colors. */ XGetMapInfo(visual_info,XDefaultColormap(display,visual_info->screen), map_info); XGetPixelInfo(display,visual_info,map_info,resource_info,(Image *) NULL, &pixel_info); background_color=pixel_info.background_color; border_color.red=pixel_info.border_color.red >> 8; border_color.green=pixel_info.border_color.green >> 8; border_color.blue=pixel_info.border_color.blue >> 8; matte_color.red=pixel_info.matte_color.red >> 8; matte_color.green=pixel_info.matte_color.green >> 8; matte_color.blue=pixel_info.matte_color.blue >> 8; highlight_color.red=pixel_info.highlight_color.red >> 8; highlight_color.green=pixel_info.highlight_color.green >> 8; highlight_color.blue=pixel_info.highlight_color.blue >> 8; shadow_color.red=pixel_info.shadow_color.red >> 8; shadow_color.green=pixel_info.shadow_color.green >> 8; shadow_color.blue=pixel_info.shadow_color.blue >> 8; } /* Allocate image structure. */ montage_image=AllocateImage((ImageInfo *) NULL); if (montage_image == (Image *) NULL) Error("Memory allocation error",(char *) NULL); /* Initialize Image structure. */ montage_image->columns= (tile_info.width+(tile_info.x+border_width)*2)*tiles_per_row; montage_image->rows=(tile_info.height+(tile_info.y+border_width)*2+ (display ? annotate_info.height+4 : 0))* (number_tiles/tiles_per_row+((number_tiles % tiles_per_row) != 0)); if (resource_info->title != (char *) NULL) montage_image->rows+=((annotate_info.height+4) << 1)+(tile_info.y << 1); montage_image->montage=(char *) malloc(MaxTextLength*sizeof(char)); count=1; for (tile=0; tile < number_tiles; tile++) count+=strlen(images[tile]->filename)+1; montage_image->directory=(char *) malloc(count*sizeof(char)); montage_image->packets=montage_image->columns*montage_image->rows; montage_image->pixels=(RunlengthPacket *) malloc((unsigned int) montage_image->packets*sizeof(RunlengthPacket)); if ((montage_image->montage == (char *) NULL) || (montage_image->directory == (char *) NULL) || (montage_image->pixels == (RunlengthPacket *) NULL)) Error("Memory allocation error",(char *) NULL); /* Set montage geometry. */ x_offset=0; y_offset=0; if (resource_info->title != (char *) NULL) y_offset+=((annotate_info.height+4) << 1)+(tile_info.y << 1); *montage_image->directory='\0'; (void) sprintf(montage_image->montage,"%dx%d%+d%+d", (int) (tile_info.width+(tile_info.x+border_width)*2), (int) (tile_info.height+(tile_info.y+border_width)*2+ (display ? annotate_info.height+4 : 0)),x_offset,y_offset); /* Initialize montage image to background color. */ p=montage_image->pixels; for (i=0; i < montage_image->packets; i++) { p->red=background_color.red >> 8; p->green=background_color.green >> 8; p->blue=background_color.blue >> 8; p->index=0; p->length=0; p++; } /* Sort images by increasing tile number. */ i=0; for (tile=0; tile < number_tiles; tile++) i+=images[tile]->scene; if (i > 0) (void) qsort((void *) images,number_tiles,sizeof(Image *),SceneCompare); if ((display != (Display *) NULL) && (resource_info->title != (char *) NULL)) { /* Copy title to the composite image. */ (void) strcpy(annotate_info.text,resource_info->title); annotate_info.width= XTextWidth(font_info,annotate_info.text,strlen(annotate_info.text)); max_width=montage_image->columns; if (((annotate_info.width+tile_info.x*2) << 1) >= max_width) { /* Label is too wide-- shorten. */ q=annotate_info.text+strlen(annotate_info.text); do { *--q='\0'; if ((int) strlen(annotate_info.text) > 2) (void) strcpy(q-2,"..."); annotate_info.width=XTextWidth(font_info,annotate_info.text, strlen(annotate_info.text)); } while ((2*(annotate_info.width+(tile_info.x << 1))) >= max_width); } label_info.width=(annotate_info.width << 1)-1; label_info.height=(annotate_info.height << 1)-1; label_info.x=tile_info.x+(int) (montage_image->columns >> 1)- (int) annotate_info.width; label_info.y=tile_info.y+4; (void) sprintf(annotate_info.geometry,"%ux%u%+d%+d", label_info.width,label_info.height,label_info.x,label_info.y); (void) XAnnotateImage(display,&pixel_info,&annotate_info,True, montage_image); } /* Copy tile images to the composite image. */ x_offset=tile_info.x; y_offset=tile_info.y; if (display != (Display *) NULL) if (resource_info->title != (char *) NULL) y_offset+=((annotate_info.height+4) << 1)+(tile_info.y << 1); *montage_image->directory='\0'; for (tile=0; tile < number_tiles; tile++) { /* Copy this tile to the composite image. */ image=images[tile]; (void) strcat(montage_image->directory,image->filename); (void) strcat(montage_image->directory,"\n"); status=RunlengthDecodeImage(image); if (status == False) Error("Unable to unpack image",(char *) NULL); if ((border_width != 0) && !frame) { ColorPacket black; Image *bordered_image; RectangleInfo border_info; /* Put a border around the image. */ border_info.width=image->columns+((border_width-1) << 1); border_info.height=image->rows+((border_width-1) << 1); border_info.x=border_width-1; border_info.y=border_width-1; bordered_image=BorderImage(image,&border_info,&border_color, &border_color); if (bordered_image != (Image *) NULL) { DestroyImage(image); image=bordered_image; } border_info.width=image->columns+2; border_info.height=image->rows+2; border_info.x=1; border_info.y=1; black.red=0; black.green=0; black.blue=0; bordered_image=BorderImage(image,&border_info,&black,&black); if (bordered_image != (Image *) NULL) { DestroyImage(image); image=bordered_image; } } /* Gravitate image as specified by the tile gravity. */ switch (resource_info->gravity) { case NorthWestGravity: { x=0; y=0; break; } case NorthGravity: { x=((tile_info.width+(border_width << 1))-image->columns) >> 1; y=0; break; } case NorthEastGravity: { x=(tile_info.width+(border_width << 1))-image->columns; y=0; break; } case WestGravity: { x=0; y=((tile_info.height+(border_width << 1))-image->rows) >> 1; break; } case ForgetGravity: case StaticGravity: case CenterGravity: default: { x=((tile_info.width+(border_width << 1))-image->columns) >> 1; y=((tile_info.height+(border_width << 1))-image->rows) >> 1; break; } case EastGravity: { x=(tile_info.width+(border_width << 1))-image->columns; y=((tile_info.height+(border_width << 1))-image->rows) >> 1; break; } case SouthWestGravity: { x=0; y=(tile_info.height+(border_width << 1))-image->rows; break; } case SouthGravity: { x=((tile_info.width+(border_width << 1))-image->columns) >> 1; y=(tile_info.height+(border_width << 1))-image->rows; break; } case SouthEastGravity: { x=(tile_info.width+(border_width << 1))-image->columns; y=(tile_info.height+(border_width << 1))-image->rows; break; } } if (frame) { Image *framed_image; RectangleInfo frame_info; /* Put an ornamental border around this tile. */ frame_info.width=tile_info.width+(border_width << 1); frame_info.height=tile_info.height+(border_width << 1)+ (annotate_info.height+4); frame_info.x=(x > 0 ? x : border_width); frame_info.y=(y > 0 ? y : border_width); framed_image=FrameImage(image,&frame_info,bevel_width,&matte_color, &highlight_color,&shadow_color); if (framed_image != (Image *) NULL) { DestroyImage(image); image=framed_image; } x=0; y=0; } /* Composite background image with tile image. */ CompositeImage(montage_image,compose,image,x_offset+x,y_offset+y); if ((display != (Display *) NULL) && (image->label != (char *) NULL)) { /* Copy tile label to the composite image. */ (void) strcpy(annotate_info.text,image->label); annotate_info.width= XTextWidth(font_info,annotate_info.text,strlen(annotate_info.text)); max_width=tile_info.width+(resource_info->border_width << 1)-8; if (annotate_info.width >= max_width) { /* Label is too wide-- shorten. */ q=annotate_info.text+strlen(annotate_info.text); do { *--q='\0'; if ((int) strlen(annotate_info.text) > 2) (void) strcpy(q-2,"..."); annotate_info.width=XTextWidth(font_info,annotate_info.text, strlen(annotate_info.text)); } while (annotate_info.width >= max_width); } label_info.width=annotate_info.width; label_info.height=annotate_info.height; label_info.x=x_offset+((tile_info.width+(border_width << 1)) >> 1)- (annotate_info.width >> 1); label_info.y=y_offset; if (!frame) label_info.y+=y+tile_info.y+image->rows+2; else label_info.y+=tile_info.height+(border_width << 1)-bevel_width-2; (void) sprintf(annotate_info.geometry,"%ux%u%+d%+d", label_info.width,label_info.height,label_info.x,label_info.y); (void) XAnnotateImage(display,&pixel_info,&annotate_info,!frame, montage_image); } DestroyImage(image); if (((tile+1) % tiles_per_row) != 0) x_offset+=tile_info.width+(tile_info.x+border_width)*2; else { x_offset=tile_info.x; y_offset+=tile_info.height+(tile_info.y+border_width)*2+ (display ? annotate_info.height+4 : 0); } } (void) free((char *) annotate_info.text); if (display != (Display *) NULL) { /* Label is too wide-- shorten. */ XFreeFont(display,font_info); XFree((char *) visual_info); XFree((char *) map_info); } return(montage_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Usage displays the program command syntax. % % The format of the Usage routine is: % % Usage() % % */ static void Usage() { char **p; static char *options[]= { "-clip geometry preferred size and location of the clipped image", "-colors value preferred number of colors in the image", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-comment string annotate image with comment", "-compose operator composite operator", "-compress type RunlengthEncoded or QEncoded", "-density geometry vertical and horizontal density of the image", "-display server query font from this X server", "-dither apply Floyd/Steinberg error diffusion to image", "-frame surround image with an ornamental border", "-gamma value level of gamma correction", "-geometry geometry preferred tile and border sizes", "-gravity direction which direction to gravitate towards", "-interlace type NONE, LINE, or PLANE", "-label name assign a label to an image", "-monochrome transform image to black and white", "-page geometry size and location of the Postscript page", "-quality value JPEG quality setting", "-rotate degrees apply Paeth rotation to the image", "-scene value image scene number", "-tiles_per_row value number of image tiles per row", "-treedepth value depth of the color classification tree", "-verbose print detailed information about the image", (char *) NULL }; (void) fprintf(stderr, "Usage: %s [-options ...] file [ [-options ...] file ...] file\n", client_name); (void) fprintf(stderr,"\nWhere options include: \n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nIn addition to those listed above, you can specify these standard X\n"); (void) fprintf(stderr, "resources as command line options: -background, -bordercolor,\n"); (void) fprintf(stderr, "-borderwidth, -font, -foreground, -mattecolor, or -title\n"); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect. For\n"); (void) fprintf(stderr, "example, specify +compress to store the image as uncompressed.\n"); (void) fprintf(stderr, "\nBy default, the image format of `file' is determined by its magic\n"); (void) fprintf(stderr, "number. To specify a particular image format, precede the filename\n"); (void) fprintf(stderr, "with an image format name and a colon (i.e. ps:image) or specify the\n"); (void) fprintf(stderr, "image type as the filename suffix (i.e. image.ps). Specify 'file' as\n"); (void) fprintf(stderr,"'-' for standard input or output.\n"); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char **argv; { char *clip_geometry, *comment, *density, *gamma, *label, *option, *page_geometry, *server_name, *write_filename; Display *display; Image **images, *montage_image; ImageInfo image_info; int degrees, i, x; time_t start_time; unsigned int compose, compression, display_image, first_scene, frame, image_number, interlace, last_scene, quality, maximum_images, scene, tiles_per_row, verbose; XrmDatabase resource_database; XResourceInfo resource_info; /* Display usage profile if there are no command line arguments. */ client_name=(*argv); if (argc < 3) Usage(); /* Set defaults. */ clip_geometry=(char *) NULL; comment=(char *) NULL; compose=ReplaceCompositeOp; compression=UndefinedCompression; degrees=0; density=(char *) NULL; display=(Display *) NULL; display_image=True; first_scene=0; frame=False; gamma=(char *) NULL; interlace=NoneInterlace; label=(char *) NULL; last_scene=0; page_geometry=(char *) NULL; quality=85; resource_database=(XrmDatabase) NULL; resource_info.border_color=(char *) NULL; resource_info.border_width=0; resource_info.colorspace=RGBColorspace; resource_info.dither=False; resource_info.gravity=CenterGravity; resource_info.image_geometry=(char *) NULL; resource_info.monochrome=False; resource_info.number_colors=0; resource_info.server_name=(char *) NULL; resource_info.title=(char *) NULL; resource_info.tree_depth=0; scene=0; server_name=(char *) NULL; start_time=0; tiles_per_row=0; verbose=False; maximum_images=MaxTextLength; images=(Image **) malloc(maximum_images*sizeof(Image *)); if (images == (Image **) NULL) Error("Unable to montage images","Memory allocation failed"); /* Check for server name specified on the command line. */ for (i=1; i < argc; i++) { /* Check command line for server name. */ option=argv[i]; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) if (strncmp("display",option+1,3) == 0) { /* User specified server name. */ display_image=(*option == '-'); if (display_image) { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } break; } } if (display_image) { char *resource_value; XrmDatabase server_database; /* Open X server connection. */ display=XOpenDisplay(server_name); if (display == (Display *) NULL) Error("Unable to connect to X server",XDisplayName(server_name)); /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Initialize resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); /* Get user defaults from X resource database. */ XGetResourceInfo(resource_database,client_name,&resource_info); clip_geometry=XGetResourceClass(resource_database,client_name, "clipGeometry",(char *) NULL); comment=XGetResourceClass(resource_database,client_name,"comment", (char *) NULL); resource_value=XGetResourceClass(resource_database,client_name, "compression","RunlengthEncoded"); if (Latin1Compare("qencoded",resource_value) == 0) compression=QEncodedCompression; else compression=RunlengthEncodedCompression; density=XGetResourceClass(resource_database,client_name,"density", (char *) NULL); gamma= XGetResourceClass(resource_database,client_name,"gamma",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"interlace","none"); interlace=UndefinedInterlace; if (Latin1Compare("none",resource_value) == 0) interlace=NoneInterlace; if (Latin1Compare("line",resource_value) == 0) interlace=LineInterlace; if (Latin1Compare("plane",resource_value) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Warning("Unrecognized interlace type",resource_value); label=XGetResourceClass(resource_database,client_name,"label","%f"); page_geometry=XGetResourceClass(resource_database,client_name, "pageGeometry",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"rotate","0"); degrees=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"quality","85"); quality=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"tiles_per_row","0"); tiles_per_row=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"verbose","False"); verbose=IsTrue(resource_value); } /* Composite image is the last item on the command line. */ write_filename=argv[argc-1]; if (access(write_filename,0) == 0) { char answer[2]; (void) fprintf(stderr,"Overwrite %s? ",write_filename); (void) gets(answer); if (!((*answer == 'y') || (*answer == 'Y'))) exit(1); } /* Parse command line. */ image_number=0; for (i=1; i < (argc-1); i++) { option=argv[i]; if (((int) strlen(option) > 1) && ((*option == '-') || (*option == '+'))) switch (*(option+1)) { case 'b': { if (strncmp("background",option+1,5) == 0) { resource_info.background_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -background",(char *) NULL); resource_info.background_color=argv[i]; } break; } if (strncmp("bordercolor",option+1,7) == 0) { resource_info.border_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -bordercolor",(char *) NULL); resource_info.border_color=argv[i]; } break; } if (strncmp("borderwidth",option+1,7) == 0) { resource_info.border_width=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing width on -borderwidth",(char *) NULL); resource_info.border_width=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 'c': { if (strncmp("clip",option+1,2) == 0) { clip_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -clip",(char *) NULL); clip_geometry=argv[i]; } break; } if (strncmp("colors",option+1,7) == 0) { resource_info.number_colors=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing colors on -colors",(char *) NULL); resource_info.number_colors=atoi(argv[i]); } break; } if (strncmp("colorspace",option+1,7) == 0) { resource_info.colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; resource_info.colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) { resource_info.colorspace=GRAYColorspace; resource_info.number_colors=256; resource_info.tree_depth=8; } if (Latin1Compare("ohta",option) == 0) resource_info.colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) resource_info.colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) resource_info.colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) resource_info.colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) resource_info.colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) resource_info.colorspace=YUVColorspace; if (resource_info.colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } if (strncmp("comment",option+1,4) == 0) { comment=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing comment on -comment",(char *) NULL); comment=argv[i]; } break; } if (strncmp("compress",option+1,5) == 0) { compression=NoCompression; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compress",(char *) NULL); option=argv[i]; if (Latin1Compare("runlengthencoded",option) == 0) compression=RunlengthEncodedCompression; else if (Latin1Compare("qencoded",option) == 0) compression=QEncodedCompression; else Error("Invalid compression type on -compress",option); } break; } if (strncmp("compose",option+1,5) == 0) { compose=ReplaceCompositeOp; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compose",(char *) NULL); option=argv[i]; compose=UndefinedCompositeOp; if (Latin1Compare("over",option) == 0) compose=OverCompositeOp; if (Latin1Compare("in",option) == 0) compose=InCompositeOp; if (Latin1Compare("out",option) == 0) compose=OutCompositeOp; if (Latin1Compare("atop",option) == 0) compose=AtopCompositeOp; if (Latin1Compare("xor",option) == 0) compose=XorCompositeOp; if (Latin1Compare("plus",option) == 0) compose=PlusCompositeOp; if (Latin1Compare("minus",option) == 0) compose=MinusCompositeOp; if (Latin1Compare("add",option) == 0) compose=AddCompositeOp; if (Latin1Compare("subtract",option) == 0) compose=SubtractCompositeOp; if (Latin1Compare("difference",option) == 0) compose=DifferenceCompositeOp; if (Latin1Compare("replace",option) == 0) compose=ReplaceCompositeOp; if (compose == UndefinedCompositeOp) Error("Invalid compose type on -compose",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("display",option+1,3) == 0) { resource_info.server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); resource_info.server_name=argv[i]; } break; } if (strncmp("dither",option+1,3) == 0) { resource_info.dither=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'f': { if (strncmp("font",option+1,3) == 0) { resource_info.font=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing font name on -font",(char *) NULL); resource_info.font=argv[i]; } break; } if (strncmp("foreground",option+1,3) == 0) { resource_info.foreground_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing foreground on -foreground",(char *) NULL); resource_info.foreground_color=argv[i]; } break; } if (strncmp("frame",option+1,2) == 0) { frame=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'g': { if (strncmp("gamma",option+1,2) == 0) { gamma=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing value on -gamma",(char *) NULL); gamma=argv[i]; } break; } if (strncmp("geometry",option+1,2) == 0) { resource_info.image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); resource_info.image_geometry=argv[i]; } break; } if (strncmp("gravity",option+1,2) == 0) { resource_info.gravity=CenterGravity; if (*option == '-') { i++; if (i == argc) Error("Missing type on -gravity",(char *) NULL); option=argv[i]; resource_info.gravity=(-1); if (Latin1Compare("Forget",option) == 0) resource_info.gravity=ForgetGravity; if (Latin1Compare("NorthWest",option) == 0) resource_info.gravity=NorthWestGravity; if (Latin1Compare("North",option) == 0) resource_info.gravity=NorthGravity; if (Latin1Compare("NorthEast",option) == 0) resource_info.gravity=NorthEastGravity; if (Latin1Compare("West",option) == 0) resource_info.gravity=WestGravity; if (Latin1Compare("Center",option) == 0) resource_info.gravity=CenterGravity; if (Latin1Compare("East",option) == 0) resource_info.gravity=EastGravity; if (Latin1Compare("SouthWest",option) == 0) resource_info.gravity=SouthWestGravity; if (Latin1Compare("South",option) == 0) resource_info.gravity=SouthGravity; if (Latin1Compare("SouthEast",option) == 0) resource_info.gravity=SouthEastGravity; if (Latin1Compare("Static",option) == 0) resource_info.gravity=StaticGravity; if (resource_info.gravity == (-1)) Error("Invalid gravity type on -gravity",option); } break; } Error("Unrecognized option",option); break; } case 'h': { if (strncmp("help",option+1,2) == 0) { Usage(); break; } Error("Unrecognized option",option); break; } case 'i': { if (strncmp("interlace",option+1,3) == 0) { interlace=NoneInterlace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } Error("Unrecognized option",option); break; } case 'l': { if (strncmp("label",option+1,2) == 0) { label=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing label name on -label",(char *) NULL); label=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'm': { if (strncmp("mattecolor",option+1,6) == 0) { resource_info.matte_color=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing color on -matte",(char *) NULL); resource_info.matte_color=argv[i]; } break; } if (strncmp("monochrome",option+1,2) == 0) { resource_info.monochrome=(*option == '-'); if (resource_info.monochrome) { resource_info.number_colors=2; resource_info.tree_depth=8; resource_info.colorspace=GRAYColorspace; } break; } Error("Unrecognized option",option); break; } case 'p': { if (strncmp("page",option+1,2) == 0) { page_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing page geometry on -page",(char *) NULL); page_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'q': { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing quality on -quality",(char *) NULL); quality=atoi(argv[i]); break; } case 'r': { degrees=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing degrees on -rotate",(char *) NULL); degrees=atoi(argv[i]); } break; } case 's': { if (strncmp("scene",option+1,3) == 0) { first_scene=0; last_scene=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing scene number on -scene",(char *) NULL); first_scene=atoi(argv[i]); last_scene=first_scene; (void) sscanf(argv[i],"%u-%u",&first_scene,&last_scene); } break; } Error("Unrecognized option",option); break; } case 't': { if (strncmp("tiles_per_row",option+1,3) == 0) { tiles_per_row=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing value on -tiles_per_row",(char *) NULL); tiles_per_row=atoi(argv[i]); } break; } if (strncmp("title",option+1,3) == 0) { resource_info.title=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing title on -title",(char *) NULL); resource_info.title=argv[i]; } break; } if (strncmp("treedepth",option+1,2) == 0) { resource_info.tree_depth=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing depth on -treedepth",(char *) NULL); resource_info.tree_depth=atoi(argv[i]); } break; } Error("Unrecognized option",option); break; } case 'v': { verbose=(*option == '-'); break; } default: { Error("Unrecognized option",option); break; } } else for (scene=first_scene; scene <= last_scene ; scene++) { Image *image, info_image; /* Option is a file name: begin by reading image from specified file. */ start_time=time((time_t *) NULL); GetImageInfo(argv[i],&image_info); if (first_scene != last_scene) { char filename[MaxTextLength]; /* Form filename for multi-part images. */ (void) sprintf(filename,image_info.filename,scene); if (strcmp(filename,image_info.filename) == 0) (void) sprintf(filename,"%s.%u",image_info.filename,scene); (void) strcpy(image_info.filename,filename); } image_info.server_name=resource_info.server_name; image_info.font=resource_info.font; image_info.geometry=resource_info.image_geometry; image_info.page=page_geometry; image_info.density=density; image_info.interlace=interlace; image_info.monochrome=resource_info.monochrome; image_info.quality=quality; image_info.verbose=verbose; image=ReadImage(&image_info); if (image == (Image *) NULL) if (*option == '-') break; else continue; do { if (image->scene == 0) image->scene=image_number; info_image=(*image); LabelImage(image,label); /* Tile size maintains the aspect ratio of the image. */ if (resource_info.image_geometry == (char *) NULL) TransformImage(&image,clip_geometry,"256x256"); else TransformImage(&image,clip_geometry,resource_info.image_geometry); if ((degrees % 360) != 0) { Image *rotated_image; /* Rotate image. */ rotated_image=RotateImage(image,(double) degrees,False); if (rotated_image != (Image *) NULL) { DestroyImage(image); image=rotated_image; } } if (gamma != (char *) NULL) GammaImage(image,gamma); if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s", image->scene == 0 ? image_number : image->scene, image->filename); (void) fprintf(stderr," %ux%u",info_image.columns, info_image.rows); if ((info_image.columns != image->columns) || (info_image.rows != image->rows)) (void) fprintf(stderr,"=>%ux%u",image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else (void) fprintf(stderr," PseudoClass %uc",image->colors); (void) fprintf(stderr," %s\n",image->magick); } /* Pack image data to conserve memory (memory <=> speed). */ image->matte=False; (void) RunlengthEncodeImage(image); (void) free((char *) image->pixels); image->pixels=(RunlengthPacket *) NULL; if (image_number == maximum_images) { /* Increase size of images array. */ maximum_images<<=1; images=(Image **) realloc((char *) images,maximum_images*sizeof(Image *)); if (images == (Image **) NULL) Error("Unable to montage images","Memory allocation failed"); } images[image_number++]=image; image=image->next; } while (image != (Image *) NULL); } } if (image_number == 0) Error("Missing an image file name",(char *) NULL); /* Create composite image. */ montage_image=MontageImage(display,&resource_info,images,image_number, tiles_per_row,frame,compose); if (resource_info.number_colors != 0) { QuantizeImage(montage_image,resource_info.number_colors, resource_info.tree_depth,resource_info.dither,resource_info.colorspace, True); SyncImage(montage_image); } if (compression != UndefinedCompression) montage_image->compression=compression; (void) strcpy(montage_image->filename,write_filename); if (comment != (char *) NULL) CommentImage(montage_image,comment); (void) WriteImage(&image_info,montage_image); if (verbose) { /* Display detailed info about the image. */ if (montage_image->class == DirectClass) montage_image->colors=NumberColors(montage_image,False); (void) fprintf(stderr,"[%u] %s %s=>%ux%u",montage_image->scene, montage_image->filename,montage_image->montage,montage_image->columns, montage_image->rows); if (montage_image->class == DirectClass) (void) fprintf(stderr," DirectClass "); else (void) fprintf(stderr," PseudoClass "); (void) fprintf(stderr,"%uc %s %lds\n",montage_image->colors, montage_image->magick,time((time_t *) NULL)-start_time+1); } DestroyImage(montage_image); (void) free((char *) images); if (display != (Display *) NULL) XCloseDisplay(display); return(False); } e in image. */ noisy_image=NoisyImage(image); if (noisy_image != (Image *) NULL) { DestroyImage(image); image=noisy_image; } } if (strncmp("-normalize",option,4) == 0) NormalizeImage(image); if (strncmp("-reflect",option,3) == 0) { Image *reflected_image; ./ImageMagick/README 644 24 24 24770 5555645157 7307 "I swear by my life and my love of it that I will never live for the sake of another man, nor ask another man to live for mine." John Galt in "Atlas Shrugged", by Ayn Rand AUTHOR The author is cristy@dupont.com. This software is NOT shareware. However, I am interested in who might be using it. Please consider sending me a picture postcard of the area where you live. Send postcards to John Cristy 5 Middleton Lane Landenberg, PA 19350 USA AVAILABILITY Anonymous FTP at ftp.x.org, file contrib/ImageMagick-3.0.tar.gz. I want ImageMagick to be of high quality, so if you encounter a problem I will investigate. However, be sure you are using the most recent version from ftp.x.org before submitting any bug reports or suggestions. UNIX COMPILATION Type: gunzip ImageMagick-3.0.tar.gz tar xvf ImageMagick-3.0.tar cd ImageMagick xmkmf make Makefiles make If you do not have 'gunzip', it is available as prep.ai.mit.edu:pub/gnu/gzip-1.2.4.shar. If you do not have 'xmkmf', edit 'Makefile' as required by your hardware environment and type make Finally type: display images/aquarium.miff display -monochrome -dither images/aquarium.miff If the image colors are not correct use this command: display -visual default images/aquarium.miff You can find other example images in the 'images' directory. Be sure to read the manual pages for the display, animate, montage, import, mogrify, and convert utilities. The ImageMagick utilities read and write MIFF images. Refer to the end of this message for more information about MIFF. Use `convert' to convert images to and from the MIFF format. ImageMagick utilities recognizes these image formats: Tag Description ---------------------------------------------------- AVS AVS X image file BMP Microsoft Windows bitmap image file CMYK Raw cyan, magenta, yellow, and black bytes EPS Adobe Encapsulated Postscript FAX Group 3 FITS Flexible Image Transport System GIF Compuserve Graphics image file GRAY Raw gray bytes JPEG MAP colormap intensities and indices MATTE Raw matte bytes MIFF Magick image file format MTV PCX ZSoft IBM PC Paintbrush file PICT Apple Macintosh QuickDraw/PICT file PNM Portable bitmap PS Adobe PostScript file PS2 Adobe PostScript Level II file RGB Raw red, green, and blue bytes RLE Utah Raster Toolkit SUN SUN raster TGA Truevision Targa image file TEXT raw text file; read only TIFF Tagged Image File Format VICAR VIFF Khoros Visualization image file. X select image from X server screen XC constant image of X server background color XBM X11 bitmap XPM X11 pixmap XWD X11 window dump YUV CCIR 601 1:1:1 file. YUV3 CCIR 601 2:1:1 files. and for your convenience automatically converts the alien image format to MIFF at execution time. However, the MIFF image format has several advantages over most image formats (i.e. runlength encoding, digital signature on an image colormap, etc.). ImageMagick is designed to exploit these advantages. Whenever possible convert an alien image format to the MIFF format before using the various ImageMagick programs. Other formats are also recognized. See CONVERT(1) for a list of valid image formats. You can specify a particular image format by prefixing the image filename with the image type and a colon (i.e. ps:image.ps). ImageMagick requires GNU's Ghostscript software available via FTP as ftp.uu.net:systems/gnu/ghostscript-2.6.1.tar.gz to read the Postscript format. For ImageMagick to read Postscript files, `gs' must be in your execution path and the `pbmraw' and `ppmraw' devices must be recognized (try gs -h to verify). If they are not defined, add them to your 'DEVICE_DEVS' define in your Ghostscript `Makefile' and recompile (i.e. DEVICE_DEVS=x11.dev pbmraw.dev ppmraw.dev). ImageMagick requires picttoppm from contrib/netpbm-7dec1993.tar.gz on ftp.x.org to read Macintosh PICT images. ImageMagick requires hpcdtoppm from contrib/netpbm-7dec1993.tar.gz on ftp.x.org to Photo CD images. ImageMagick requires the Independent JPEG Group's software available via FTP as ftp.uu.net:graphics/jpeg/jpegsrc.v4.tar.Z to read the JPEG image format. ImageMagick requires Sam Leffler's TIFF software available via FTP as sgi.com:graphics/tiff/v3.2beta.tar.Z to read the TIFF image format. If you have an ANSI compiler, try sgi.com:graphics/tiff/v3.3beta002.src.tar.Z. ImageMagick requires Arnaud Le Hors XPM software available via FTP as ftp.x.org:contrib/xpm-3.4a.tar.gz to read the XPM image format. To display images in the JPEG, TIFF, or XPM format, get the JPEG, TIFF, or XPM archives and build ImageMagick as follows: cd ImageMagick mkdir jpeg cd jpeg zcat jpegsrc.v4.tar.Z | tar xvof - cp jmemnobs.c jmemsys.c cp makefile.unix Makefile make libjpeg.a cd .. mkdir tiff cd tiff zcat v3.2beta.tar.Z | tar xvof - cd libtiff cp Makefile.sun Makefile make cd ../.. mkdir xpm < copy xpm-3.3/lib/* to xpm > cd xpm xmkmf make cd .. < edit Magick.tmpl and define HasJPEG, HasTIFF, or HasXPM as instructed > xmkmf make Makefiles make clean make You can now display images in the JPEG or TIFF format. VMS COMPILATION Type @make set display/create/node=node_name:: where node_name is the DECNET X server to contact. Finally type: display [.images]aquarium.miff display -monochrome -dither [.images]aquarium.miff ANIMATION An example animation sequence is available from anonymous FTP at ftp.x.org, file contrib/ImageMagick.animation.tar.gz Or alternatively, you can create this sequence yourself. Just look at README in the scenes directory. To prevent color flashing on visuals that have colormaps, `animate' creates a single colormap from the image sequence. This can be rather time consuming. You can speed this operation up by reducing the colors in the image before you `animate' them. Use `mogrify' to color reduce the images: mogrify -colors 256 scenes/dna.[0-9]* Note, the image sequence in ImageMagick.animation.tar.gz is already reduced. Alternatively, you can use a Standard Colormap; or a static, direct, or true color visual. You can define a Standard Colormap with `xstdcmap'. For example, to use the "best" Standard Colormap, type: xstdcmap -best animate -map best scenes/dna.[0-9]* or to use a true color visual: animate -visual truecolor scenes/dna.[0-9]* Image filenames can appear in any order on the command line if the scene keyword is specified in the MIFF image. Otherwise the images display in the order they appear on the command line. A scene is specified when converting from another image format to MIFF by using the "scene" option with any filter. Be sure to choose a scene number other than zero. For example, to convert a TIFF image to a MIFF image as scene #2, type: convert -scene 2 image.tiff image.miff MIFF IMAGE FORMAT MIFF is an image format which I developed. I like it because it 1) It is machine independant. It can be read on virtually any computer. No byte swapping is necessary. 2) It has a text header. Most image formats are coded in binary and you cannot easily tell attributes about the image. Use 'more' on MIFF image files and the attributes are displayed in text form. 3) It can handle runlength-encoded images. Although most scanned images do not benefit from runlength-encoding, most computer-generated images do. Images of mostly uniform colors have a high compression ratio and therefore take up less memory and disk space. 4) It allows a scene number to be specified. This allows you to specify an animation sequence out-of-order on the command line. The correct order is determined by the scene number of each image. 5) MIFF computes a digital signature for colormapped images. This is useful for animating a sequence of images on a colormapped X server. If all signatures match in the image sequence, computing a global colormap is not necessary. 6) There is a `montage' keyword allowing an image to act as a visual image directory. See display(1) for more details. One way to get an image into MIFF format is to use `convert'. or read it from an X window using the 'import' program. Alternatively, type the necessary header information in a file with a text editor. Next, dump the binary bytes into another file. Finally, type cat header binary_image | display -write image.miff - For example, suppose you have a raw red, green, blue image file on disk that is 640 by 480. The header file would look like this: id=ImageMagick columns=640 rows=480 : The image file would have red, green, blue tuples (rgbrgbrgb...). Refer to the 'display' manual page for more details. COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortious action, arising out of or in connection with the use or performance of this software. } ./ImageMagick/segment.c 644 24 24 167636 5555556165 10266 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % SSSSS EEEEE GGGG M M EEEEE N N TTTTT % % SS E G MM MM E NN N T % % SSS EEE G GGG M M M EEE N N N T % % SS E G G M M E N NN T % % SSSSS EEEEE GGGG M M EEEEE N N T % % % % % % Segment an Image with Thresholding and the Fuzzy c-Means Technique. % % % % % % % % Software Design % % John Cristy % % April 1993 % % % % % % Copyright 1994 E. I. Dupont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. Dupont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. Dupont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. Dupont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. Dupont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Segment segments an image by analyzing the histograms of the color % components and identifying units that are homogeneous with the fuzzy % c-means technique. The scale-space filter analyzes the histograms of % the three color components of the image and identifies a set of classes. % The extents of each class is used to coarsely segment the image with % thresholding. The color associated with each class is determined by % the mean color of all pixels within the extents of a particular class. % Finally, any unclassified pixels are assigned to the closest class with % the fuzzy c-means technique. % % The fuzzy c-Means algorithm can be summarized as follows: % % o Build a histogram, one for each color component of the image. % % o For each histogram, successively apply the scale-space % filter and build an interval tree of zero crossings in % the second derivative at each scale. Analyze this % scale-space ``fingerprint'' to determine which peaks and % valleys in the histogram are most predominant. % % o The fingerprint defines intervals on the axis of the % histogram. Each interval contains either a minima or a % maxima in the original signal. If each color component % lies within the maxima interval, that pixel is considered % ``classified'' and is assigned an unique class number. % % o Any pixel that fails to be classified in the above % thresholding pass is classified using the fuzzy % c-Means technique. It is assigned to one of the classes % discovered in the histogram analysis phase. % % The fuzzy c-Means technique attempts to cluster a pixel by finding % the local minima of the generalized within group sum of squared error % objective function. A pixel is assigned to the closest class of which % the fuzzy membership has a maximum value. % % Segment is strongly based on software written by Andy Gallo, University % of Delaware. % % The following reference was used in creating this program: % % Young Won Lim, Sang Uk Lee, "On The Color Image Segmentation Algorithm % Based on the Thresholding and the Fuzzy c-Means Techniques", Pattern % Recognition, Volume 23, Number 9, pages 935-952, 1990. % % The segment program syntax is: % % Usage: segment [options ...] input_file output_file % % Where options include: % -cluster_threshold value % minimum percent of pixels per cluster % -colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV % -comment string annotate image with comment % -compress type RunlengthEncoded or QEncoded % -density geometry vertical and horizontal density of the image % -display server obtain image or font from this X server % -font name X11 font for displaying text % -geometry geometry width and height of the image % -interlace type NONE, LINE, or PLANE % -label name assign a label to an image % -matte store matte channel if the image has one % -page geometry size and location of the Postscript page % -quality value JPEG quality setting % -smoothing_threshold value % smoothing threshold of second derivative % -scene value image scene number % -treedepth value depth of the color classification tree % -verbose print detailed information about the image % % Change '-' to '+' in any option above to reverse its effect. For % example, specify +matte to store the image without its matte channel. % % By default, the image format of `file' is determined by its magic % number. To specify a particular image format, precede the filename % with an image format name and a colon (i.e. ps:image) or specify the % image type as the filename suffix (i.e. image.ps). Specify 'file' as % '-' for standard input or output. % % */ #include "magick.h" #include "image.h" #include "X.h" /* Define declarations. */ #define Blue 2 #define Dimension 3 #define Green 1 #define Red 0 #define SafeMargin 3 /* Typedef declarations. */ typedef struct _ExtentPacket { short index, left, right; long center; } ExtentPacket; typedef struct _IntervalTree { float tau; short left, right; float mean_stability, stability; struct _IntervalTree *sibling, *child; } IntervalTree; typedef struct _ZeroCrossing { float tau, histogram[MaxRGB+1]; short crossings[MaxRGB+1]; } ZeroCrossing; /* Forward declarations. */ static int DefineRegion _Declare((short *,ExtentPacket *)); static void ScaleSpace _Declare((long *,double,float *)), ZeroCrossHistogram _Declare((float *,double,short *)); /* Global declarations. */ int number_nodes; IntervalTree *list[600]; /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C l a s s i f y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function Classify defines on ore more classes. Each pixel is thresholded % to determine which class it belongs to. If not class is identified it % is assigned to the closest class based on the fuzzy c-Means technique. % % The format of the Classify routine is: % % Classify(image,extrema,cluster_threshold,weighting_exponent,verbose) % % A description of each parameter follows. % % o image: Specifies a pointer to an Image structure; returned from % ReadImage. % % o extrema: Specifies a pointer to an array of shortegers. They % represent the peaks and valleys of the histogram for each color % component. % % o cluster_threshold: This float represents the minimum number of pixels % contained in a hexahedra before it can be considered valid (expressed % as a percentage). % % o weighting_exponent: Specifies the membership weighting exponent. % % o verbose: A value greater than zero prints detailed information about % the identified classes. % % */ static void Classify(image,extrema,cluster_threshold,weighting_exponent,verbose) Image *image; short **extrema; float cluster_threshold, weighting_exponent; unsigned int verbose; { typedef struct _Cluster { short id; ExtentPacket red, green, blue; long count; struct _Cluster *next; } Cluster; Cluster *cluster, *head, *last_cluster, *next_cluster; double distance, local_minima, numerator, ratio, sum; ExtentPacket blue, green, red; int blue_distance, count, green_distance, red_distance; register int i, j, k; register RunlengthPacket *p, *q; unsigned int number_clusters; /* Form clusters. */ cluster=(Cluster *) NULL; head=(Cluster *) NULL; red.index=0; while (DefineRegion(extrema[Red],&red)) { green.index=0; while (DefineRegion(extrema[Green],&green)) { blue.index=0; while (DefineRegion(extrema[Blue],&blue)) { /* Allocate a new class. */ if (head != (Cluster *) NULL) { cluster->next=(Cluster *) malloc(sizeof(Cluster)); cluster=cluster->next; } else { cluster=(Cluster *) malloc(sizeof(Cluster)); head=cluster; } if (cluster == (Cluster *) NULL) { (void) fprintf(stderr,"duCMeans: Unable to allocate memory\n"); exit(1); } /* Initialize a new class. */ cluster->count=0; cluster->red=red; cluster->green=green; cluster->blue=blue; cluster->next=(Cluster *) NULL; } } } if (head == (Cluster *) NULL) { /* No classes were identified-- create one. */ cluster=(Cluster *) malloc(sizeof(Cluster)); if (cluster == (Cluster *) NULL) Error("Unable to allocate memory",(char *) NULL); /* Initialize a new class. */ cluster->count=0; cluster->red=red; cluster->green=green; cluster->blue=blue; cluster->next=(Cluster *) NULL; head=cluster; } /* Count the pixels for each cluster. */ count=0; p=image->pixels; for (i=0; i < image->packets; i++) { for (cluster=head; cluster != (Cluster *) NULL; cluster=cluster->next) if (((int) p->red >= (cluster->red.left-SafeMargin)) && ((int) p->red <= (cluster->red.right+SafeMargin)) && ((int) p->green >= (cluster->green.left-SafeMargin)) && ((int) p->green <= (cluster->green.right+SafeMargin)) && ((int) p->blue >= (cluster->blue.left-SafeMargin)) && ((int) p->blue <= (cluster->blue.right+SafeMargin))) { /* Count this pixel. */ count+=(p->length+1); cluster->count+=(p->length+1); cluster->red.center+=(p->red*(p->length+1)); cluster->green.center+=(p->green*(p->length+1)); cluster->blue.center+=(p->blue*(p->length+1)); break; } p++; } /* Remove clusters that do not meet minimum cluster threshold. */ cluster_threshold*=(float) count*0.01; count=0; last_cluster=head; for (cluster=head; cluster != (Cluster *) NULL; cluster=next_cluster) { next_cluster=cluster->next; if (cluster->count >= cluster_threshold) { /* Initialize cluster. */ cluster->id=count; cluster->red.center=(cluster->red.center+(cluster->count >> 1))/ cluster->count; cluster->green.center=(cluster->green.center+(cluster->count >> 1))/ cluster->count; cluster->blue.center=(cluster->blue.center+(cluster->count >> 1))/ cluster->count; count++; last_cluster=cluster; } else { /* Delete cluster. */ if (cluster == head) head=next_cluster; else last_cluster->next=next_cluster; (void) free((char *) cluster); } } number_clusters=count; if (verbose) { /* Print cluster statistics. */ (void) fprintf(stderr,"Fuzzy c-Means Statistics\n"); (void) fprintf(stderr,"===================\n\n"); (void) fprintf(stderr,"\tTotal Number of Clusters = %u\n\n", number_clusters); /* Print the total number of points per cluster. */ (void) fprintf(stderr,"\n\nNumber of Vectors Per Cluster\n"); (void) fprintf(stderr,"=============================\n\n"); for (cluster=head; cluster != (Cluster *) NULL; cluster=cluster->next) (void) fprintf(stderr,"Cluster #%d = %ld\n",cluster->id,cluster->count); /* Print the cluster extents. */ (void) fprintf(stderr, "\n\n\nCluster Extents: (Vector Size: %d)\n",Dimension); (void) fprintf(stderr, "================"); for (cluster=head; cluster != (Cluster *) NULL; cluster=cluster->next) { (void) fprintf(stderr,"\n\nCluster #%d\n\n",cluster->id); (void) fprintf(stderr,"%d-%d %d-%d %d-%d\n", cluster->red.left,cluster->red.right, cluster->green.left,cluster->green.right, cluster->blue.left,cluster->blue.right); } /* Print the cluster center values. */ (void) fprintf(stderr, "\n\n\nCluster Center Values: (Vector Size: %d)\n",Dimension); (void) fprintf(stderr, "====================="); for (cluster=head; cluster != (Cluster *) NULL; cluster=cluster->next) { (void) fprintf(stderr,"\n\nCluster #%d\n\n",cluster->id); (void) fprintf(stderr,"%ld %ld %ld\n",cluster->red.center, cluster->green.center,cluster->blue.center); } (void) fprintf(stderr,"\n"); } /* Allocate image colormap. */ image->matte=False; image->class=PseudoClass; if (image->colormap != (ColorPacket *) NULL) (void) free((char *) image->colormap); image->colormap=(ColorPacket *) malloc((unsigned int) number_clusters*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) Error("Unable to allocate memory",(char *) NULL); if (image->signature != (char *) NULL) (void) free((char *) image->signature); image->signature=(char *) NULL; image->colors=number_clusters; i=0; for (cluster=head; cluster != (Cluster *) NULL; cluster=cluster->next) { image->colormap[i].red=(unsigned char) cluster->red.center; image->colormap[i].green=(unsigned char) cluster->green.center; image->colormap[i].blue=(unsigned char) cluster->blue.center; i++; } /* Do course grain classification. */ q=image->pixels; for (i=0; i < image->packets; i++) { for (cluster=head; cluster != (Cluster *) NULL; cluster=cluster->next) if (((int) q->red >= (cluster->red.left-SafeMargin)) && ((int) q->red <= (cluster->red.right+SafeMargin)) && ((int) q->green >= (cluster->green.left-SafeMargin)) && ((int) q->green <= (cluster->green.right+SafeMargin)) && ((int) q->blue >= (cluster->blue.left-SafeMargin)) && ((int) q->blue <= (cluster->blue.right+SafeMargin))) { /* Classify this pixel. */ q->index=cluster->id; break; } if (cluster == (Cluster *) NULL) { /* Compute fuzzy membership. */ local_minima=0.0; for (j=0; j < image->colors; j++) { sum=0.0; red_distance=image->colormap[j].red-(int) q->red; green_distance=image->colormap[j].green-(int) q->green; blue_distance=image->colormap[j].blue-(int) q->blue; distance=red_distance*red_distance+green_distance*green_distance+ blue_distance*blue_distance; numerator=sqrt(distance); for (k=0; k < image->colors; k++) { red_distance=image->colormap[k].red-(int) q->red; green_distance=image->colormap[k].green-(int) q->green; blue_distance=image->colormap[k].blue-(int) q->blue; distance=red_distance*red_distance+green_distance*green_distance+ blue_distance*blue_distance; ratio=numerator/sqrt(distance); sum+=pow(ratio,(double) (2.0/(weighting_exponent-1.0))); } if ((1.0/sum) > local_minima) { /* Classify this pixel. */ local_minima=1.0/sum; q->index=j; } } } q++; } /* Free memory. */ for (cluster=head; cluster != (Cluster *) NULL; cluster=next_cluster) { next_cluster=cluster->next; (void) free((char *) cluster); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o n s o l i d a t e C r o s s i n g s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function ConsolidateCrossings guarentees that an even number of zero % crossings always lie between two crossings. % % The format of the ConsolidateCrossings routine is: % % ConsolidateCrossings(zero_crossing,number_crossings) % % A description of each parameter follows. % % o zero_crossing: Specifies an array of structures of type ZeroCrossing. % % o number_crossings: This unsigned int specifies the number of elements % in the zero_crossing array. % % */ static void ConsolidateCrossings(zero_crossing,number_crossings) ZeroCrossing *zero_crossing; unsigned int number_crossings; { int center, correct, count, left, right; register int i, j, k, l; /* Consolidate zero crossings. */ for (i=number_crossings-1; i >= 0; i--) for (j=0; j <= MaxRGB; j++) if (zero_crossing[i].crossings[j] != 0) { /* Find the entry that is closest to j and still preserves the property that there are an even number of crossings between intervals. */ for (k=j-1; k > 0; k--) if (zero_crossing[i+1].crossings[k] != 0) break; left=Max(k,0); center=j; for (k=j+1; k < MaxRGB; k++) if (zero_crossing[i+1].crossings[k] != 0) break; right=Min(k,MaxRGB); /* K is the zero crossing just left of j. */ for (k=j-1; k > 0; k--) if (zero_crossing[i].crossings[k] != 0) break; if (k < 0) k=0; /* Check center for an even number of crossings between k and j. */ correct=(-1); if (zero_crossing[i+1].crossings[j] != 0) { count=0; for (l=k+1; l < center; l++) if (zero_crossing[i+1].crossings[l] != 0) count++; if ((count % 2) == 0) if (center != k) correct=center; } /* Check left for an even number of crossings between k and j. */ if (correct == -1) { count=0; for (l=k+1; l < left; l++) if (zero_crossing[i+1].crossings[l] != 0) count++; if ((count % 2) == 0) if (left != k) correct=left; } /* Check right for an even number of crossings between k and j. */ if (correct == -1) { count=0; for (l=k+1; l < right; l++) if (zero_crossing[i+1].crossings[l] != 0) count++; if ((count % 2) == 0) if (right != k) correct=right; } l=zero_crossing[i].crossings[j]; zero_crossing[i].crossings[j]=0; if (correct != -1) zero_crossing[i].crossings[correct]=l; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D e f i n e R e g i o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function DefineRegion defines the left and right boundaries of a peak % region. % % The format of the DefineRegion routine is: % % status=DefineRegion(extrema,extents) % % A description of each parameter follows. % % o extrema: Specifies a pointer to an array of shortegers. They % represent the peaks and valleys of the histogram for each color % component. % % o extents: This pointer to an ExtentPacket represent the extends % of a particular peak or valley of a color component. % % */ static int DefineRegion(extrema,extents) short *extrema; ExtentPacket *extents; { /* Initialize to default values. */ extents->left=0; extents->center=0; extents->right=MaxRGB; /* Find the left side (maxima). */ for ( ; extents->index <= MaxRGB; extents->index++) if (extrema[extents->index] > 0) break; if (extents->index > MaxRGB) return(False); /* no left side - no region exists */ extents->left=extents->index; /* Find the right side (minima). */ for ( ; extents->index <= MaxRGB; extents->index++) if (extrema[extents->index] < 0) break; extents->right=extents->index-1; return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D e r i v a t i v e H i s t o g r a m % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function DerivativeHistogram determines the derivative of the histogram % using central differencing. % % The format of the DerivativeHistogram routine is: % % DerivativeHistogram(histogram,derivative) % % A description of each parameter follows. % % o histogram: Specifies an array of floats representing the number of % pixels for each intensity of a paritcular color component. % % o derivative: This array of floats is initialized by DerivativeHistogram % to the derivative of the histogram using centeral differencing. % % */ static void DerivativeHistogram(histogram,derivative) float *histogram, *derivative; { register int i, n; /* Compute endpoints using second order polynomial interpolation. */ n=MaxRGB; derivative[0]=(-1.5*histogram[0]+2.0*histogram[1]-0.5*histogram[2]); derivative[n]=(0.5*histogram[n-2]-2.0*histogram[n-1]+1.5*histogram[n]); /* Compute derivative using central differencing. */ for (i=1; i < n; i++) derivative[i]=(histogram[i+1]-histogram[i-1])/2; return; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n i t i a l i z e H i s t o g r a m % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function InitializeHistogram computes the histogram for an image. % % The format of the InitializeHistogram routine is: % % InitializeHistogram(image,histogram) % % A description of each parameter follows. % % o image: Specifies a pointer to an Image structure; returned from % ReadImage. % % o histogram: Specifies an array of longegers representing the number % of pixels for each intensity of a paritcular color component. % % */ static void InitializeHistogram(image,histogram) Image *image; long **histogram; { register int i; register RunlengthPacket *p; /* Initialize histogram. */ for (i=0; i <= MaxRGB; i++) { histogram[Red][i]=0; histogram[Green][i]=0; histogram[Blue][i]=0; } p=image->pixels; for (i=0; i < image->packets; i++) { histogram[Red][p->red]+=(p->length+1); histogram[Green][p->green]+=(p->length+1); histogram[Blue][p->blue]+=(p->length+1); p++; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n i t i a l i z e I n t e r v a l T r e e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function InitializeIntervalTree initializes an interval tree from the % lists of zero crossings. % % The format of the InitializeIntervalTree routine is: % % InitializeIntervalTree(zero_crossing,number_crossings) % % A description of each parameter follows. % % o zero_crossing: Specifies an array of structures of type ZeroCrossing. % % o number_crossings: This unsigned int specifies the number of elements % in the zero_crossing array. % % */ static void InitializeList(node) IntervalTree *node; { if (node == (IntervalTree *) NULL) return; if (node->child == (IntervalTree *) NULL) list[number_nodes++]=node; InitializeList(node->sibling); InitializeList(node->child); } static void MeanStability(node) IntervalTree *node; { register IntervalTree *child; if (node == (IntervalTree *) NULL) return; node->mean_stability=0.0; child=node->child; if (child != (IntervalTree *) NULL) { register double sum; register int count; sum=0.0; count=0; for ( ; child != (IntervalTree *) NULL; child=child->sibling) { sum+=child->stability; count++; } node->mean_stability=sum/(double) count; } MeanStability(node->sibling); MeanStability(node->child); } static void Stability(node) IntervalTree *node; { if (node == (IntervalTree *) NULL) return; if (node->child == (IntervalTree *) NULL) node->stability=0.0; else node->stability=node->tau-(node->child)->tau; Stability(node->sibling); Stability(node->child); } static IntervalTree *InitializeIntervalTree(zero_crossing,number_crossings) ZeroCrossing *zero_crossing; unsigned int number_crossings; { int left; IntervalTree *head, *node, *root; register int i, j, k; /* The root is the entire histogram. */ root=(IntervalTree *) malloc(sizeof(IntervalTree)); root->child=(IntervalTree *) NULL; root->sibling=(IntervalTree *) NULL; root->tau=0.0; root->left=0; root->right=MaxRGB; for (i=(-1); i < (int) number_crossings; i++) { /* Initialize list with all nodes with no children. */ for (j=0; j < 600; j++) list[j]=(IntervalTree *) NULL; number_nodes=0; InitializeList(root); /* Split list. */ for (j=0; j < number_nodes; j++) { head=list[j]; left=head->left; node=head; for (k=head->left+1; k < head->right; k++) { if (zero_crossing[i+1].crossings[k] != 0) { if (node == head) { node->child=(IntervalTree *) malloc(sizeof(IntervalTree)); node=node->child; } else { node->sibling=(IntervalTree *) malloc(sizeof(IntervalTree)); node=node->sibling; } node->tau=zero_crossing[i+1].tau; node->child=(IntervalTree *) NULL; node->sibling=(IntervalTree *) NULL; node->left=left; node->right=k; left=k; } } if (left != head->left) { node->sibling=(IntervalTree *) malloc(sizeof(IntervalTree)); node=node->sibling; node->tau=zero_crossing[i+1].tau; node->child=(IntervalTree *) NULL; node->sibling=(IntervalTree *) NULL; node->left=left; node->right=head->right; } } } /* Determine the stability: difference between a nodes tau and its child. */ Stability(root->child); MeanStability(root->child); return(root); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % O p t i m a l T a u % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function OptimalTau finds the optimal tau for each band of the histogram. % % The format of the OptimalTau routine is: % % OptimalTau(histogram,max_tau,min_tau,delta_tau,smoothing_threshold, % extrema) % % A description of each parameter follows. % % o histogram: Specifies an array of longegers representing the number % of pixels for each intensity of a paritcular color component. % % o extrema: Specifies a pointer to an array of shortegers. They % represent the peaks and valleys of the histogram for each color % component. % % */ static void ActiveNodes(node) IntervalTree *node; { if (node == (IntervalTree *) NULL) return; if (node->stability >= node->mean_stability) { list[number_nodes++]=node; ActiveNodes(node->sibling); } else { ActiveNodes(node->sibling); ActiveNodes(node->child); } } static void FreeNodes(node) IntervalTree *node; { if (node == (IntervalTree *) NULL) return; FreeNodes(node->sibling); FreeNodes(node->child); (void) free((char *) node); } static float OptimalTau(histogram,max_tau,min_tau,delta_tau,smoothing_threshold, extrema) long *histogram; float max_tau, min_tau, delta_tau, smoothing_threshold; short *extrema; { float average_tau, derivative[MaxRGB+1], second_derivative[MaxRGB+1], tau, value; int index, peak, x; IntervalTree *node, *root; register int i, j, k; ZeroCrossing *zero_crossing; unsigned int count, number_crossings; /* Allocate zero crossing list. */ count=((max_tau-min_tau)/delta_tau)+2; zero_crossing=(ZeroCrossing *) malloc(count*sizeof(ZeroCrossing)); if (zero_crossing == (ZeroCrossing *) NULL) { (void) fprintf(stderr,"duCMeans: Unable to allocate memory\n"); exit(1); } for (i=0; i < count; i++) zero_crossing[i].tau=(-1); /* Initialize zero crossing list. */ i=0; for (tau=max_tau; tau >= min_tau; tau-=delta_tau) { zero_crossing[i].tau=tau; ScaleSpace(histogram,tau,zero_crossing[i].histogram); DerivativeHistogram(zero_crossing[i].histogram,derivative); DerivativeHistogram(derivative,second_derivative); ZeroCrossHistogram(second_derivative,smoothing_threshold, zero_crossing[i].crossings); i++; } /* Add an entry for the original histogram. */ zero_crossing[i].tau=0.0; for (j=0; j <= MaxRGB; j++) zero_crossing[i].histogram[j]=histogram[j]; DerivativeHistogram(zero_crossing[i].histogram,derivative); DerivativeHistogram(derivative,second_derivative); ZeroCrossHistogram(second_derivative,smoothing_threshold, zero_crossing[i].crossings); number_crossings=i; /* Ensure the scale-space fingerprints form lines in scale-space, not loops. */ ConsolidateCrossings(zero_crossing,number_crossings); /* Force endpoints to be included in the interval. */ for (i=0; i <= number_crossings; i++) { for (j=0; j < MaxRGB; j++) if (zero_crossing[i].crossings[j] != 0) break; zero_crossing[i].crossings[0]=(-zero_crossing[i].crossings[j]); for (j=MaxRGB; j > 0; j--) if (zero_crossing[i].crossings[j] != 0) break; zero_crossing[i].crossings[MaxRGB]=(-zero_crossing[i].crossings[j]); } /* Initialize interval tree. */ root=InitializeIntervalTree(zero_crossing,number_crossings); /* Find active nodes: stabilty is greater (or equal) to the mean stability of its children. */ for (i = 0; i < 600; i++) list[i]=(IntervalTree *) NULL; number_nodes=0; ActiveNodes(root->child); /* Initialize extrema. */ for (i=0; i <= MaxRGB; i++) extrema[i]=0; for (i=0; i < number_nodes; i++) { /* Find this tau in zero crossings list. */ k=0; node=list[i]; for (j=0; j <= number_crossings; j++) if (zero_crossing[j].tau == node->tau) k=j; /* Find the value of the peak. */ peak=zero_crossing[k].crossings[node->right] == -1; index=node->left; value=zero_crossing[k].histogram[index]; for (x=node->left; x <= node->right; x++) { if (peak) { if (zero_crossing[k].histogram[x] > value) { value=zero_crossing[k].histogram[x]; index=x; } } else if (zero_crossing[k].histogram[x] < value) { value=zero_crossing[k].histogram[x]; index=x; } } for (x=node->left; x <= node->right; x++) { if (index == 0) index=MaxRGB+1; if (peak) extrema[x]=index; else extrema[x]=(-index); } } /* Determine the average tau. */ average_tau=0.0; for (i=0; i < number_nodes; i++) average_tau+=list[i]->tau; average_tau/=(float) number_nodes; /* Free memory. */ FreeNodes(root); (void) free((char *) zero_crossing); return(average_tau); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S c a l e S p a c e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function ScaleSpace performs a scale-space filter on the 1D histogram. % % The format of the ScaleSpace routine is: % % ScaleSpace(histogram,tau,scaled_histogram) % % A description of each parameter follows. % % o histogram: Specifies an array of floats representing the number of % pixels for each intensity of a paritcular color component. % % */ static void ScaleSpace(histogram,tau,scaled_histogram) long *histogram; double tau; float *scaled_histogram; { #define PI 3.14159265358979323846 float alpha, beta; double sum; register int u, x; alpha=1.0/(tau*sqrt((double) (2.0*PI))); beta=(-1.0/(2.0*tau*tau)); for (x=0; x <= MaxRGB; x++) { sum=0.0; for (u=0; u <= MaxRGB; u++) sum+=histogram[u]*exp((double) (beta*(x-u)*(x-u))); scaled_histogram[x]=alpha*sum; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Usage displays the program usage; % % The format of the Usage routine is: % % Usage() % % */ static void Usage() { char **p; static char *options[]= { "-cluster_threshold value", " minimum percent of pixels per cluster", "-colorspace type GRAY, OHTA, RGB, XYZ, YCbCr, YIQ, or YUV", "-comment string annotate image with comment", "-compress type RunlengthEncoded or QEncoded", "-density geometry vertical and horizontal density of the image", "-display server obtain image or font from this X server", "-font name X11 font for displaying text", "-geometry geometry width and height of the image", "-interlace type NONE, LINE, or PLANE", "-label name assign a label to an image", "-matte store matte channel if the image has one", "-page geometry size and location of the Postscript page", "-quality value JPEG quality setting", "-smoothing_threshold value", " smoothing threshold of second derivative", "-scene value image scene number", "-treedepth value depth of the color classification tree", "-verbose print detailed information about the image", (char *) NULL }; (void) fprintf(stderr,"Usage: %s [options ...] input_file output_file\n", client_name); (void) fprintf(stderr,"\nWhere options include:\n"); for (p=options; *p != (char *) NULL; p++) (void) fprintf(stderr," %s\n",*p); (void) fprintf(stderr, "\nChange '-' to '+' in any option above to reverse its effect. For\n"); (void) fprintf(stderr, "example, specify +matte to store the image without an matte channel.\n"); (void) fprintf(stderr, "\nBy default, the image format of `file' is determined by its magic\n"); (void) fprintf(stderr, "number. To specify a particular image format, precede the filename\n"); (void) fprintf(stderr, "with an image format name and a colon (i.e. ps:image) or specify the\n"); (void) fprintf(stderr, "image type as the filename suffix (i.e. image.ps). Specify 'file' as\n"); (void) fprintf(stderr,"'-' for standard input or output.\n"); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Z e r o C r o s s H i s t o g r a m % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % Function ZeroCrossHistogram find the zero crossings in a histogram and % marks directions as: 1 is negative to positive; 0 is zero crossing; and % -1 is positive to negative. % % The format of the ZeroCrossHistogram routine is: % % ZeroCrossHistogram(second_derivative,smoothing_threshold,crossings) % % A description of each parameter follows. % % o second_derivative: Specifies an array of floats representing the % second derivative of the histogram of a particular color component. % % o crossings: This array of shortegers is initialized with % -1, 0, or 1 representing the slope of the first derivative of the % of a particular color component. % % */ static void ZeroCrossHistogram(second_derivative,smoothing_threshold,crossings) float *second_derivative; double smoothing_threshold; short *crossings; { int parity; register int i; /* Merge low numbers to zero to help prevent noise. */ for (i=0; i <= MaxRGB; i++) if ((second_derivative[i] < smoothing_threshold) && (second_derivative[i] > -smoothing_threshold)) second_derivative[i]=0.0; /* Mark zero crossings. */ parity=0; for (i=0; i <= MaxRGB; i++) { crossings[i]=0; if (second_derivative[i] < 0.0) { if (parity > 0) crossings[i]=(-1); parity=1; } else if (second_derivative[i] > 0.0) { if (parity < 0) crossings[i]=1; parity=(-1); } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S e g m e n t I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SegmentImage analyzes the colors within a reference image and % % The format of the SegmentImage routine is: % % colors=SegmentImage(image,colorspace,verbose) % % A description of each parameter follows. % % o colors: The SegmentImage function returns this integer % value. It is the actual number of colors allocated in the % colormap. % % o image: Specifies a pointer to an Image structure; returned from % ReadImage. % % o colorspace: An unsigned integer value that indicates the colorspace. % Empirical evidence suggests that distances in YUV or YIQ correspond to % perceptual color differences more closely than do distances in RGB % space. The image is then returned to RGB colorspace after color % reduction. % % o verbose: A value greater than zero prints detailed information about % the identified classes. % % */ static void SegmentImage(image,colorspace,verbose,smoothing_threshold, cluster_threshold) Image *image; unsigned int colorspace, verbose; float smoothing_threshold, cluster_threshold; { #define DeltaTau 0.5 #define Tau 5.2 #define WeightingExponent 2.0 long *histogram[Dimension]; register int i; short *extrema[Dimension]; /* Allocate histogram and extrema. */ for (i=0; i < Dimension; i++) { histogram[i]=(long *) malloc((MaxRGB+1)*sizeof(long)); extrema[i]=(short *) malloc((MaxRGB+1)*sizeof(short)); if ((histogram[i] == (long *) NULL) || (extrema[i] == (short *) NULL)) Error("Unable to allocate memory",(char *) NULL); } if (colorspace != RGBColorspace) RGBTransformImage(image,colorspace); /* Initialize histogram. */ InitializeHistogram(image,histogram); (void) OptimalTau(histogram[Red],Tau,0.2,DeltaTau,smoothing_threshold, extrema[Red]); (void) OptimalTau(histogram[Green],Tau,0.2,DeltaTau,smoothing_threshold, extrema[Green]); (void) OptimalTau(histogram[Blue],Tau,0.2,DeltaTau,smoothing_threshold, extrema[Blue]); /* Classify using the fuzzy c-Means technique. */ Classify(image,extrema,cluster_threshold,WeightingExponent,verbose); if (colorspace != RGBColorspace) TransformRGBImage(image,colorspace); /* Free memory. */ for (i=0; i < Dimension; i++) { (void) free((char *) extrema[i]); (void) free((char *) histogram[i]); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M a i n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ int main(argc,argv) int argc; char *argv[]; { #define NotInitialized (unsigned int) (~0) char *comment, *density, *filename, *font, *image_geometry, *label, *option, *page_geometry, *server_name; double normalized_maximum_error, normalized_mean_error; float cluster_threshold, smoothing_threshold; Image *image, *next_image; ImageInfo image_info; int i, status, x; time_t start_time; unsigned int colorspace, compression, interlace, matte, mean_error_per_pixel, quality, scene, verbose; unsigned long total_colors; /* Initialize program variables. */ client_name=argv[0]; if (argc < 3) Usage(); /* Read image and convert to MIFF format. */ cluster_threshold=1.0; colorspace=RGBColorspace; comment=(char *) NULL; compression=UndefinedCompression; density=(char *) NULL; font=(char *) NULL; image=(Image *) NULL; image_geometry=(char *) NULL; interlace=NoneInterlace; label=(char *) NULL; matte=NotInitialized; page_geometry=(char *) NULL; quality=85; scene=0; server_name=(char *) NULL; smoothing_threshold=5.0; start_time=time((time_t *) NULL); verbose=False; /* Check command syntax. */ filename=(char *) NULL; for (i=1; i < (argc-1); i++) { option=argv[i]; if (((int) strlen(option) < 2) || ((*option != '-') && (*option != '+'))) { /* Read input image. */ filename=argv[i]; GetImageInfo(filename,&image_info); image_info.server_name=server_name; image_info.font=font; image_info.geometry=image_geometry; image_info.page=page_geometry; image_info.density=density; image_info.interlace=interlace; image_info.quality=quality; image_info.verbose=verbose; if (image != (Image *) NULL) Error("input image already specified",filename); image=ReadImage(&image_info); if (image == (Image *) NULL) exit(1); } else switch(*(option+1)) { case 'c': { if (strncmp("cluster_threshold",option+1,2) == 0) { cluster_threshold=0.0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing value on -cluster_threshold",(char *) NULL); } cluster_threshold=atof(argv[i]); break; } if (strncmp("colorspace",option+1,7) == 0) { colorspace=RGBColorspace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -colorspace",(char *) NULL); option=argv[i]; colorspace=UndefinedColorspace; if (Latin1Compare("gray",option) == 0) colorspace=GRAYColorspace; if (Latin1Compare("ohta",option) == 0) colorspace=OHTAColorspace; if (Latin1Compare("rgb",option) == 0) colorspace=RGBColorspace; if (Latin1Compare("xyz",option) == 0) colorspace=XYZColorspace; if (Latin1Compare("ycbcr",option) == 0) colorspace=YCbCrColorspace; if (Latin1Compare("yiq",option) == 0) colorspace=YIQColorspace; if (Latin1Compare("yuv",option) == 0) colorspace=YUVColorspace; if (colorspace == UndefinedColorspace) Error("Invalid colorspace type on -colorspace",option); } break; } if (strncmp("comment",option+1,4) == 0) { comment=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing comment on -comment",(char *) NULL); comment=argv[i]; } break; } if (strncmp("compress",option+1,3) == 0) { compression=NoCompression; if (*option == '-') { i++; if (i == argc) Error("Missing type on -compress",(char *) NULL); option=argv[i]; if (Latin1Compare("runlengthencoded",option) == 0) compression=RunlengthEncodedCompression; else if (Latin1Compare("qencoded",option) == 0) compression=QEncodedCompression; else Error("Invalid compression type on -compress",option); } break; } Error("Unrecognized option",option); break; } case 'd': { if (strncmp("density",option+1,3) == 0) { density=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -density",(char *) NULL); density=argv[i]; } break; } if (strncmp("display",option+1,3) == 0) { server_name=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing server name on -display",(char *) NULL); server_name=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'f': { font=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing font name on -font",(char *) NULL); font=argv[i]; } break; } case 'g': { image_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing geometry on -geometry",(char *) NULL); image_geometry=argv[i]; } break; } case 'h': { Usage(); break; } case 'i': { if (strncmp("interlace",option+1,3) == 0) { interlace=NoneInterlace; if (*option == '-') { i++; if (i == argc) Error("Missing type on -interlace",(char *) NULL); option=argv[i]; interlace=UndefinedInterlace; if (Latin1Compare("none",option) == 0) interlace=NoneInterlace; if (Latin1Compare("line",option) == 0) interlace=LineInterlace; if (Latin1Compare("plane",option) == 0) interlace=PlaneInterlace; if (interlace == UndefinedInterlace) Error("Invalid interlace type on -interlace",option); } break; } Error("Unrecognized option",option); } case 'l': { if (strncmp("label",option+1,2) == 0) { label=(char *) NULL; if (*option == '-') { i++; if (i == argc) Error("Missing label name on -label",(char *) NULL); label=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'm': { if (strncmp("matte",option+1,5) == 0) { matte=(*option == '-'); break; } Error("Unrecognized option",option); break; } case 'p': { if (strncmp("page",option+1,2) == 0) { page_geometry=(char *) NULL; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing page geometry on -page",(char *) NULL); page_geometry=argv[i]; } break; } Error("Unrecognized option",option); break; } case 'q': { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing quality on -quality",(char *) NULL); quality=atoi(argv[i]); break; } case 's': { if (strncmp("scene",option+1,2) == 0) { scene=0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%d",&x)) Error("Missing value on -scene",(char *) NULL); } scene=atoi(argv[i]); break; } if (strncmp("smoothing_threshold",option+1,2) == 0) { smoothing_threshold=0.0; if (*option == '-') { i++; if ((i == argc) || !sscanf(argv[i],"%f",(float *) &x)) Error("Missing value on -smoothing_threshold", (char *) NULL); } smoothing_threshold=atof(argv[i]); break; } break; } case 'v': { if (strncmp("verbose",option+1,2) == 0) { verbose=(*option == '-'); break; } Error("Unrecognized option",option); break; } default: { Error("Unrecognized option",option); break; } } } if (image == (Image *) NULL) Error("Missing an image file name",(char *) NULL); /* Write images. */ do { total_colors=0; if (matte != NotInitialized) image->matte=matte; if (compression != UndefinedCompression) image->compression=compression; if (scene != 0) image->scene=scene; LabelImage(image,label); if (comment != (char *) NULL) CommentImage(image,comment); (void) strcpy(image->filename,argv[i]); if (image->previous != (Image *) NULL) (void) sprintf(image->filename,"%s.%u",argv[i],image->scene); if (colorspace == GRAYColorspace) { QuantizeImage(image,256,8,False,GRAYColorspace,True); SyncImage(image); } /* Reduce the number of colors in the image. */ RGBTransformImage(image,colorspace); SegmentImage(image,colorspace,verbose,smoothing_threshold, cluster_threshold); TransformRGBImage(image,colorspace); if (verbose) { /* Measure quantization error. */ QuantizationError(image,&mean_error_per_pixel,&normalized_mean_error, &normalized_maximum_error); total_colors=NumberColors(image,(FILE *) NULL); } SyncImage(image); status=WriteImage(&image_info,image); if (verbose) { /* Display detailed info about the image. */ (void) fprintf(stderr,"[%u] %s=>%s %ux%u",image->scene,filename, image->filename,image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, image->colors); (void) fprintf(stderr," %u/%.6f/%.6fe",mean_error_per_pixel, normalized_mean_error,normalized_maximum_error); } (void) fprintf(stderr," %s %lds\n",image->magick, time((time_t *) NULL)-start_time+1); } next_image=image->next; DestroyImage(image); image=next_image; } while (image != (Image *) NULL); return(!status); } % %%%%%%%%%%%%%%%%%%%%%%%./ImageMagick/Makefile 644 24 24 10013 5556376711 10046 # Generic makefile for display, animate, montage, and import for # computers that do not have xmkmf. # # Copyright 1994 E. I. du Pont de Nemours & Company # # Permission to use, copy, modify, distribute, and sell this software and # its documentation for any purpose is hereby granted without fee, # provided that the above Copyright notice appear in all copies and that # both that Copyright notice and this permission notice appear in # supporting documentation, and that the name of E. I. du Pont de Nemours # & Company not be used in advertising or publicity pertaining to # distribution of the software without specific, written prior # permission. E. I. du Pont de Nemours & Company makes no representations # about the suitability of this software for any purpose. It is provided # "as is" without express or implied warranty. # # E. I. du Pont de Nemours & Company disclaims all warranties with regard # to this software, including all implied warranties of merchantability # and fitness, in no event shall E. I. du Pont de Nemours & Company be # liable for any special, indirect or consequential damages or any # damages whatsoever resulting from loss of use, data or profits, whether # in an action of contract, negligence or other tortious action, arising # out of or in connection with the use or performance of this software. # # If your system does not have /usr/include/dirent.h, define NoDIRENT. # #DIRENT_DEFINES= -DNoDIRENT # # Uncomment the following lines if you have the JPEG, TIFF, or XPM libraries. # See README for more details. # #JPEG_DEFINES= -DHasJPEG #JPEG_INCLUDES= -I../jpeg #JPEG_LIBRARIES= -Ljpeg -ljpeg #TIFF_DEFINES= -DHasTIFF #TIFF_INCLUDES= -I../tiff/libtiff #TIFF_LIBRARIES= -Ltiff/libtiff -ltiff #XPM_DEFINES= -DHasXPM #XPM_INCLUDES= -I../xpm #XPM_LIBRARIES= -Lxpm -lXpm MAGICK_INCLUDES= -Imagick MAGICK_LIBRARIES= -Lmagick -lMagick X_INCLUDES= -I/usr/local/include X_LIBRARIES= -L/usr/local/lib -lX11 CC= cc -O -I/usr/include/X11R5 DESTDIR= /usr/bin/X11 INSTALL = install -c RM= /bin/rm -f DEFINES= $(MAGICK_INCLUDES) $(DIRENT_DEFINES) $(JPEG_DEFINES) $(JPEG_INCLUDES)\ $(TIFF_DEFINES) $(TIFF_INCLUDES) $(XPM_DEFINES) $(XPM_INCLUDES) $(X_INCLUDES) SYS_LIBRARIES= $(MAGICK_LIBRARIES) $(JPEG_LIBRARIES) $(TIFF_LIBRARIES) \ $(XPM_LIBRARIES) $(X_LIBRARIES) -lm DisplayObjects= display.o ImportObjects= import.o MontageObjects= montage.o AnimateObjects= animate.o ConvertObjects= convert.o MogrifyObjects= mogrify.o CombineObjects= combine.o SegmentObjects= segment.o PROGRAMS= display import montage animate convert mogrify combine segment CFLAGS= $(DEFINES) all: libmagick.a $(PROGRAMS) libmagick.a: (cd magick; make CFLAGS="$(CFLAGS)") clean:: (cd magick; make clean) display: $(DisplayObjects) $(RM) $@ $(CC) -o $@ $(DisplayObjects) $(SYS_LIBRARIES) clean:: $(RM) display install:: display $(INSTALL) display $(DESTDIR) import: $(ImportObjects) $(RM) $@ $(CC) -o $@ $(ImportObjects) $(SYS_LIBRARIES) clean:: $(RM) import install:: import $(INSTALL) import $(DESTDIR) montage: $(MontageObjects) $(RM) $@ $(CC) -o $@ $(MontageObjects) $(SYS_LIBRARIES) clean:: $(RM) montage install:: montage $(INSTALL) montage $(DESTDIR) animate: $(AnimateObjects) $(RM) $@ $(CC) -o $@ $(AnimateObjects) $(SYS_LIBRARIES) clean:: $(RM) animate install:: animate $(INSTALL) animate $(DESTDIR) convert: $(ConvertObjects) $(RM) $@ $(CC) -o $@ $(ConvertObjects) $(SYS_LIBRARIES) clean:: $(RM) convert install:: convert $(INSTALL) convert $(DESTDIR) mogrify: $(MogrifyObjects) $(RM) $@ $(CC) -o $@ $(MogrifyObjects) $(SYS_LIBRARIES) clean:: $(RM) mogrify install:: mogrify $(INSTALL) mogrify $(DESTDIR) combine: $(CombineObjects) $(RM) $@ $(CC) -o $@ $(CombineObjects) $(SYS_LIBRARIES) clean:: $(RM) combine install:: combine $(INSTALL) combine $(DESTDIR) segment: $(SegmentObjects) $(RM) $@ $(CC) -o $@ $(SegmentObjects) $(SYS_LIBRARIES) clean:: $(RM) segment install:: segment $(INSTALL) segment $(DESTDIR) clean:: clean:: $(RM) *.ln *.bak *.o core errs ,* *~ *.a .emacs_* make.log MakeOut play detailed info about the image. */ (void) fprintf(stderr,"[%u] %s=>%s %ux%u",image->scene,filename, image->filename,image->columns,image->rows); if (image->class == DirectClass) (void) fprintf(stderr," DirectClass"); else if (total_colors == 0) (void) fprintf(stderr," PseudoClass %uc",image->colors); else { (void) fprintf(stderr," PseudoClass %lu=>%uc",total_colors, im./ImageMagick/magick/ 755 24 24 0 5555644222 7533 ./ImageMagick/magick/widget.c 644 24 24 601320 5555644114 11311 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % % % W W IIIII DDDD GGGG EEEEE TTTTT % % W W I D D G E T % % W W W I D D G GG EEE T % % WW WW I D D G G E T % % W W IIIII DDDD GGGG EEEEE T % % % % X11 User Interface Routines for ImageMagick. % % % % % % Software Design % % John Cristy % % September 1993 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "utility.h" #include "X.h" #include "widget.h" /* Define declarations. */ #define MatteIsActive(matte_info,position) \ ((position.x >= (matte_info.x-matte_info.bevel_width)) && \ (position.y >= (matte_info.y-matte_info.bevel_width)) && \ (position.x < (matte_info.x+matte_info.width+matte_info.bevel_width)) && \ (position.y < (matte_info.y+matte_info.height+matte_info.bevel_width))) /* State declarations. */ #define ControlState 0x0001 #define DefaultState 0x0000 #define ExitState 0x0002 #define RedrawActionState 0x0004 #define RedrawListState 0x0008 #define RedrawWidgetState 0x0010 #define UpdateConfigurationState 0x0020 #define UpdateListState 0x0040 /* Forward declarations. */ static void XDrawMatte _Declare((Display *,XWindowInfo *,XWidgetInfo *)), XSetBevelColor _Declare((Display *,XWindowInfo *,unsigned int)), XSetMatteColor _Declare((Display *,XWindowInfo *,unsigned int)), XSetTextColor _Declare((Display *,XWindowInfo *,unsigned int)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w B e v e l % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawBevel "sets off" an area with a highlighted upper and % left bevel and a shadowed lower and right bevel. The highlighted and % shadowed bevels create a 3-D effect. % % The format of the XDrawBevel function is: % % XDrawBevel(display,window_info,bevel_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o bevel_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the bevel. % % */ static void XDrawBevel(display,window_info,bevel_info) Display *display; XWindowInfo *window_info; XWidgetInfo *bevel_info; { int x1, x2, y1, y2; unsigned int bevel_width; XPoint points[6]; /* Draw upper and left beveled border. */ x1=bevel_info->x; y1=bevel_info->y+bevel_info->height; x2=bevel_info->x+bevel_info->width; y2=bevel_info->y; bevel_width=bevel_info->bevel_width; points[0].x=x1; points[0].y=y1; points[1].x=x1; points[1].y=y2; points[2].x=x2; points[2].y=y2; points[3].x=x2+bevel_width; points[3].y=y2-bevel_width; points[4].x=x1-bevel_width; points[4].y=y2-bevel_width; points[5].x=x1-bevel_width; points[5].y=y1+bevel_width; XSetBevelColor(display,window_info,bevel_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,6, Complex,CoordModeOrigin); /* Draw lower and right beveled border. */ points[0].x=x1; points[0].y=y1; points[1].x=x2; points[1].y=y1; points[2].x=x2; points[2].y=y2; points[3].x=x2+bevel_width; points[3].y=y2-bevel_width; points[4].x=x2+bevel_width; points[4].y=y1+bevel_width; points[5].x=x1-bevel_width; points[5].y=y1+bevel_width; XSetBevelColor(display,window_info,(unsigned int) !bevel_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,6, Complex,CoordModeOrigin); XSetFillStyle(display,window_info->widget_context,FillSolid); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w B e v e l e d B u t t o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawBeveledButton draws a button with a highlighted upper and % left bevel and a shadowed lower and right bevel. The highlighted and % shadowed bevels create a 3-D effect. % % The format of the XDrawBeveledButton function is: % % XDrawBeveledButton(display,window_info,button_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o button_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the button. % % */ static void XDrawBeveledButton(display,window_info,button_info) Display *display; XWindowInfo *window_info; XWidgetInfo *button_info; { int x, y; unsigned int width; XFontStruct *font_info; XRectangle clip_info; /* Draw matte. */ XDrawBevel(display,window_info,button_info); XSetMatteColor(display,window_info,button_info->raised); XFillRectangle(display,window_info->id,window_info->widget_context, button_info->x,button_info->y,button_info->width,button_info->height); XSetTextColor(display,window_info,button_info->raised); x=button_info->x-button_info->bevel_width-1; y=button_info->y-button_info->bevel_width-1; if (button_info->raised || (window_info->depth == 1)) XDrawRectangle(display,window_info->id,window_info->widget_context,x,y, button_info->width+(button_info->bevel_width << 1)+1,button_info->height+ (button_info->bevel_width << 1)+1); if (button_info->text == (char *) NULL) return; /* Set clipping region. */ clip_info.width=button_info->width; clip_info.height=button_info->height; clip_info.x=button_info->x; clip_info.y=button_info->y; /* Draw text. */ XSetClipRectangles(display,window_info->widget_context,0,0,&clip_info,1, Unsorted); font_info=window_info->font_info; width=XTextWidth(font_info,button_info->text,strlen(button_info->text)); x=button_info->x+(button_info->width >> 1)-(width >> 1); if (x < button_info->x) x=button_info->x; y=button_info->y+ ((button_info->height-(font_info->ascent+font_info->descent)) >> 1); if (y < button_info->y) y=button_info->y; y+=window_info->font_info->ascent; XDrawString(display,window_info->id,window_info->widget_context,x,y, button_info->text,strlen(button_info->text)); XSetClipMask(display,window_info->widget_context,None); if (!button_info->raised) XDelay(display,SuspendTime << 2); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w B e v e l e d M a t t e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawBeveledMatte draws a matte with a shadowed upper and % left bevel and a highlighted lower and right bevel. The highlighted and % shadowed bevels create a 3-D effect. % % The format of the XDrawBeveledMatte function is: % % XDrawBeveledMatte(display,window_info,matte_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o matte_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the matte. % % */ static void XDrawBeveledMatte(display,window_info,matte_info) Display *display; XWindowInfo *window_info; XWidgetInfo *matte_info; { /* Draw matte. */ XDrawBevel(display,window_info,matte_info); XDrawMatte(display,window_info,matte_info); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w M a t t e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawMatte fills a rectangular area with the matte color. % % The format of the XDrawMatte function is: % % XDrawMatte(display,window_info,matte_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o matte_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the matte. % % */ static void XDrawMatte(display,window_info,matte_info) Display *display; XWindowInfo *window_info; XWidgetInfo *matte_info; { /* Draw matte. */ if (!matte_info->trough || (window_info->depth == 1)) XFillRectangle(display,window_info->id,window_info->highlight_context, matte_info->x,matte_info->y,matte_info->width,matte_info->height); else { XSetForeground(display,window_info->widget_context, window_info->pixel_info->trough_color.pixel); XFillRectangle(display,window_info->id,window_info->widget_context, matte_info->x,matte_info->y,matte_info->width,matte_info->height); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w M a t t e T e x t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawMatteText draws a matte with text. If the text exceeds the % extents of the text, a portion of the text relative to the cursor is % displayed. % % The format of the XDrawMatteText function is: % % XDrawMatteText(display,window_info,text_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o text_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the text. % % */ static void XDrawMatteText(display,window_info,text_info) Display *display; XWindowInfo *window_info; XWidgetInfo *text_info; { char *text; int x, y; register int i; unsigned int width; XFontStruct *font_info; /* Clear the text area. */ XSetMatteColor(display,window_info,False); XFillRectangle(display,window_info->id,window_info->widget_context, text_info->x,text_info->y,text_info->width,text_info->height); if (text_info->text == (char *) NULL) return; if (*text_info->text == '\0') return; /* Determine beginning of the visible text. */ font_info=window_info->font_info; width=text_info->width-(font_info->max_bounds.width >> 1); if (text_info->cursor < text_info->marker) text_info->marker=text_info->cursor; else { text=text_info->marker; if (XTextWidth(font_info,text,text_info->cursor-text) > width) { text=text_info->text; for (i=0; i < (int) strlen(text); i++) if (XTextWidth(font_info,text+i,text_info->cursor-text-i) <= width) break; text_info->marker=text+i; } } /* Determine end of the visible text. */ for (i=0; i < (int) strlen(text_info->marker); i++) if (XTextWidth(font_info,text_info->marker,i+1) > width) break; /* Draw text and cursor. */ XSetTextColor(display,window_info,text_info->highlight); x=text_info->x+(font_info->max_bounds.width >> 2); y=text_info->y+font_info->ascent+(text_info->height >> 2); if (!text_info->highlight) XDrawString(display,window_info->id,window_info->widget_context,x,y, text_info->marker,i); else { width=XTextWidth(font_info,text_info->marker,i); XFillRectangle(display,window_info->id,window_info->annotate_context,x, y-font_info->ascent,width,(font_info->ascent+font_info->descent)); XDrawString(display,window_info->id,window_info->highlight_context,x,y, text_info->marker,i); } x+= XTextWidth(font_info,text_info->marker,text_info->cursor-text_info->marker); XDrawLine(display,window_info->id,window_info->annotate_context,x,y+3, x,y-(font_info->ascent+font_info->descent)+3); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w T r i a n g l e N o r t h % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawTriangleNorth draws a triangle with a highlighted left % bevel and a shadowed right and lower bevel. The highlighted and % shadowed bevels create a 3-D effect. % % The format of the XDrawTriangleNorth function is: % % XDrawTriangleNorth(display,window_info,triangle_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o triangle_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the triangle. % % */ static void XDrawTriangleNorth(display,window_info,triangle_info) Display *display; XWindowInfo *window_info; XWidgetInfo *triangle_info; { int x1, x2, x3, y1, y2, y3; unsigned int bevel_width; XPoint points[4]; /* Draw triangle matte. */ x1=triangle_info->x; y1=triangle_info->y+triangle_info->height; x2=triangle_info->x+(triangle_info->width >> 1); y2=triangle_info->y; x3=triangle_info->x+triangle_info->width; y3=triangle_info->y+triangle_info->height; bevel_width=triangle_info->bevel_width; points[0].x=x1; points[0].y=y1; points[1].x=x2; points[1].y=y2; points[2].x=x3; points[2].y=y3; XSetMatteColor(display,window_info,triangle_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,3, Complex,CoordModeOrigin); /* Draw left bevel. */ points[0].x=x1; points[0].y=y1; points[1].x=x2; points[1].y=y2; points[2].x=x2; points[2].y=y2-bevel_width-2; points[3].x=x1-bevel_width-1; points[3].y=y1+bevel_width; XSetBevelColor(display,window_info,triangle_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,4, Complex,CoordModeOrigin); /* Draw right bevel. */ points[0].x=x2; points[0].y=y2; points[1].x=x3; points[1].y=y3; points[2].x=x3+bevel_width; points[2].y=y3+bevel_width; points[3].x=x2; points[3].y=y2-bevel_width; XSetBevelColor(display,window_info,(unsigned int) !triangle_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,4, Complex,CoordModeOrigin); /* Draw lower bevel. */ points[0].x=x3; points[0].y=y3; points[1].x=x1; points[1].y=y1; points[2].x=x1-bevel_width; points[2].y=y1+bevel_width; points[3].x=x3+bevel_width; points[3].y=y3+bevel_width; XFillPolygon(display,window_info->id,window_info->widget_context,points,4, Complex,CoordModeOrigin); XSetFillStyle(display,window_info->widget_context,FillSolid); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w T r i a n g l e S o u t h % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawTriangleSouth draws a border with a highlighted left and % right bevel and a shadowed lower bevel. The highlighted and shadowed % bevels create a 3-D effect. % % The format of the XDrawTriangleSouth function is: % % XDrawTriangleSouth(display,window_info,triangle_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o triangle_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the triangle. % % */ static void XDrawTriangleSouth(display,window_info,triangle_info) Display *display; XWindowInfo *window_info; XWidgetInfo *triangle_info; { int x1, x2, x3, y1, y2, y3; unsigned int bevel_width; XPoint points[4]; /* Draw triangle matte. */ x1=triangle_info->x; y1=triangle_info->y; x2=triangle_info->x+(triangle_info->width >> 1); y2=triangle_info->y+triangle_info->height; x3=triangle_info->x+triangle_info->width; y3=triangle_info->y; bevel_width=triangle_info->bevel_width; points[0].x=x1; points[0].y=y1; points[1].x=x2; points[1].y=y2; points[2].x=x3; points[2].y=y3; XSetMatteColor(display,window_info,triangle_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,3, Complex,CoordModeOrigin); /* Draw top bevel. */ points[0].x=x3; points[0].y=y3; points[1].x=x1; points[1].y=y1; points[2].x=x1-bevel_width; points[2].y=y1-bevel_width; points[3].x=x3+bevel_width; points[3].y=y3-bevel_width; XSetBevelColor(display,window_info,triangle_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,4, Complex,CoordModeOrigin); /* Draw right bevel. */ points[0].x=x2; points[0].y=y2; points[1].x=x3+1; points[1].y=y3-bevel_width; points[2].x=x3+bevel_width; points[2].y=y3-bevel_width; points[3].x=x2; points[3].y=y2+bevel_width; XSetBevelColor(display,window_info,(unsigned int) !triangle_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,4, Complex,CoordModeOrigin); /* Draw left bevel. */ points[0].x=x1; points[0].y=y1; points[1].x=x2; points[1].y=y2; points[2].x=x2; points[2].y=y2+bevel_width; points[3].x=x1-bevel_width; points[3].y=y1-bevel_width; XSetBevelColor(display,window_info,triangle_info->raised); XFillPolygon(display,window_info->id,window_info->widget_context,points,4, Complex,CoordModeOrigin); XSetFillStyle(display,window_info->widget_context,FillSolid); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D r a w W i d g e t T e x t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDrawWidgetText first clears the widget and draws a text string % justifed left in the x-direction and centered within the y-direction. % % The format of the XDrawWidgetText function is: % % XDrawWidgetText(display,window_info,text_info) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a XWindowText structure. % % o text_info: Specifies a pointer to XWidgetInfo structure. % % */ static void XDrawWidgetText(display,window_info,text_info) Display *display; XWindowInfo *window_info; XWidgetInfo *text_info; { GC widget_context; int x, y; register char *p; unsigned int height, width; XFontStruct *font_info; /* Clear the text area. */ widget_context=window_info->annotate_context; if (text_info->raised) XClearArea(display,window_info->id,text_info->x,text_info->y, text_info->width,text_info->height,False); else { XFillRectangle(display,window_info->id,widget_context,text_info->x, text_info->y,text_info->width,text_info->height); widget_context=window_info->highlight_context; } if (text_info->text == (char *) NULL) return; if (*text_info->text == '\0') return; /* Insure text will fit within the window. */ font_info=window_info->font_info; width=text_info->width-font_info->max_bounds.width; for (p=text_info->text+strlen(text_info->text)-1; p > text_info->text; p--) if (XTextWidth(font_info,p,strlen(p)) > width) { p++; break; } /* Draw text. */ height=font_info->ascent+font_info->descent; x=text_info->x+(font_info->max_bounds.width >> 1); y=text_info->y+((text_info->height-height) >> 1)+font_info->ascent; XDrawString(display,window_info->id,widget_context,x,y,p,strlen(p)); if (p != text_info->text) XDrawLine(display,window_info->id,window_info->annotate_context, x,text_info->y,x,text_info->y+text_info->height-1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X E d i t T e x t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XEditText edits a text string as indicated by the key symbol. % % The format of the XEditText function is: % % XEditText(display,text_info,key_symbol,text,state) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o text_info: Specifies a pointer to a XWidgetInfo structure. It % contains the extents of the text. % % o key_symbol: A X11 KeySym that indicates what editing function to % perform to the text. % % o text: A character string to insert into the text. % % o state: An unsigned long that indicates whether the key symbol is a % control character or not. % % */ static void XEditText(display,text_info,key_symbol,text,state) Display *display; XWidgetInfo *text_info; KeySym key_symbol; char *text; unsigned long state; { switch (key_symbol) { case XK_BackSpace: { /* Erase one character. */ if (text_info->cursor == text_info->text) break; text_info->cursor--; (void) strcpy(text_info->cursor,text_info->cursor+1); text_info->highlight=False; break; } case XK_Delete: { /* Erase the entire line of text. */ *text_info->text='\0'; text_info->cursor=text_info->text; text_info->highlight=False; break; } case XK_Left: { /* Move cursor one position left. */ if (text_info->cursor == text_info->text) break; text_info->cursor--; break; } case XK_Right: { /* Move cursor one position right. */ if (text_info->cursor == (text_info->text+strlen(text_info->text))) break; text_info->cursor++; break; } default: { register char *p, *q; register int i; if (state & ControlState) break; if (*text == '\0') break; if (((int) strlen(text_info->text)+1) >= MaxTextLength) XBell(display,0); else { /* Insert a string into the text. */ q=text_info->text+strlen(text_info->text)+strlen(text); for (i=0; i <= (int) strlen(text_info->cursor); i++) { *q=(*(q-strlen(text))); q--; } p=text; for (i=0; i < (int) strlen(text); i++) *text_info->cursor++=(*p++); text_info->highlight=False; } break; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t W i d g e t I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetWidgetInfo initializes the XWidgetInfo structure. % % The format of the XGetWidgetInfo function is: % % XGetWidgetInfo(text,widget_info) % % A description of each parameter follows: % % o text: A string of characters associated with the widget. % % o widget_info: Specifies a pointer to a X11 XWidgetInfo structure. % % */ static void XGetWidgetInfo(text,widget_info) char *text; XWidgetInfo *widget_info; { /* Initialize widget info. */ widget_info->id=(~0); widget_info->bevel_width=3; widget_info->width=1; widget_info->height=1; widget_info->x=0; widget_info->y=0; widget_info->min_y=0; widget_info->max_y=0; widget_info->raised=True; widget_info->active=False; widget_info->trough=False; widget_info->highlight=False; widget_info->text=text; widget_info->cursor=text; if (text != (char *) NULL) widget_info->cursor+=strlen(text); widget_info->marker=text; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X H i g h l i g h t W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XHighlightWidget draws a highlighted border around a window. % % The format of the XHighlightWidget function is: % % XHighlightWidget(display,window_info,x,y) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o x: Specifies an integer representing the rectangle offset in the % x-direction. % % o y: Specifies an integer representing the rectangle offset in the % y-direction. % % */ static void XHighlightWidget(display,window_info,x,y) Display *display; XWindowInfo *window_info; int x, y; { /* Draw the widget highlighting rectangle. */ XSetBevelColor(display,window_info,True); XDrawRectangle(display,window_info->id,window_info->widget_context,x,y, window_info->width-(x << 1),window_info->height-(y << 1)); XDrawRectangle(display,window_info->id,window_info->widget_context,x-1,y-1, window_info->width-(x << 1)+1,window_info->height-(y << 1)+1); XSetBevelColor(display,window_info,False); XDrawRectangle(display,window_info->id,window_info->widget_context,x-1,y-1, window_info->width-(x << 1),window_info->height-(y << 1)); XSetFillStyle(display,window_info->widget_context,FillSolid); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S c r e e n E v e n t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XScreenEvent returns True if the any event on the X server queue % is associated with the widget window. % % The format of the XScreenEvent function is: % % XScreenEvent(display,event,data) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o event: Specifies a pointer to a X11 XEvent structure. % % o data: Specifies a pointer to a XWindows structure. % % */ static int XScreenEvent(display,event,data) Display *display; XEvent *event; char *data; { Window child; int x_offset, y_offset; XWindows *windows; windows=(XWindows *) data; if (event->xany.window == windows->popup.id) return(True); switch (event->type) { case ButtonPress: { if ((event->xbutton.button == Button3) && (event->xbutton.state & Mod1Mask)) { /* Convert Alt-Button3 to Button2. */ event->xbutton.button=Button2; event->xbutton.state&=(~Mod1Mask); } if (event->xbutton.window != windows->popup.id) { XTranslateCoordinates(display,event->xbutton.window,windows->popup.id, 0,0,&x_offset,&y_offset,&child); event->xbutton.x+=x_offset; event->xbutton.y+=y_offset; XBell(display,0); } return(True); } case ButtonRelease: { if (event->xbutton.window != windows->popup.id) { XTranslateCoordinates(display,event->xbutton.window,windows->popup.id, 0,0,&x_offset,&y_offset,&child); event->xbutton.x+=x_offset; event->xbutton.y+=y_offset; } return(True); } case Expose: { if (event->xexpose.window == windows->image.id) { XRefreshWindow(display,&windows->image,event); break; } if (event->xexpose.window == windows->magnify.id) if (event->xexpose.count == 0) if (windows->magnify.mapped) { XMakeMagnifyImage(display,windows); break; } break; } case FocusOut: { /* Set input focus for backdrop window. */ if (event->xfocus.window == windows->image.id) XSetInputFocus(display,windows->image.id,RevertToNone,CurrentTime); return(True); } case MotionNotify: { if (event->xmotion.window != windows->popup.id) { XTranslateCoordinates(display,event->xmotion.window,windows->popup.id, 0,0,&x_offset,&y_offset,&child); event->xmotion.x+=x_offset; event->xmotion.y+=y_offset; } return(True); } case KeyPress: case KeyRelease: case SelectionNotify: return(True); default: break; } return(False); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S e t B e v e l C o l o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XSetBevelColor sets the graphic context for drawing a beveled % border. % % The format of the XSetBevelColor function is: % % XSetBevelColor(display,window_info,raised) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o raised: A value other than zero indicates the color show be a % "highlight" color, otherwise the "shadow" color is set. % % */ static void XSetBevelColor(display,window_info,raised) Display *display; XWindowInfo *window_info; unsigned int raised; { if (window_info->depth == 1) { Pixmap stipple; /* Monochrome window. */ XSetBackground(display,window_info->widget_context, XBlackPixel(display,window_info->screen)); XSetForeground(display,window_info->widget_context, XWhitePixel(display,window_info->screen)); XSetFillStyle(display,window_info->widget_context,FillOpaqueStippled); stipple=window_info->highlight_stipple; if (!raised) stipple=window_info->shadow_stipple; XSetStipple(display,window_info->widget_context,stipple); } else if (raised) XSetForeground(display,window_info->widget_context, window_info->pixel_info->highlight_color.pixel); else XSetForeground(display,window_info->widget_context, window_info->pixel_info->shadow_color.pixel); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S e t M a t t e C o l o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XSetMatteColor sets the graphic context for drawing the matte. % % The format of the XSetMatteColor function is: % % XSetMatteColor(display,window_info,raised) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o raised: A value other than zero indicates the matte is active. % % */ static void XSetMatteColor(display,window_info,raised) Display *display; XWindowInfo *window_info; unsigned int raised; { if (window_info->depth == 1) { /* Monochrome window. */ if (raised) XSetForeground(display,window_info->widget_context, XWhitePixel(display,window_info->screen)); else XSetForeground(display,window_info->widget_context, XBlackPixel(display,window_info->screen)); } else if (raised) XSetForeground(display,window_info->widget_context, window_info->pixel_info->matte_color.pixel); else XSetForeground(display,window_info->widget_context, window_info->pixel_info->depth_color.pixel); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S e t T e x t C o l o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XSetTextColor sets the graphic context for drawing text on a % matte. % % The format of the XSetTextColor function is: % % XSetTextColor(display,window_info,raised) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % o raised: A value other than zero indicates the color show be a % "highlight" color, otherwise the "shadow" color is set. % % */ static void XSetTextColor(display,window_info,raised) Display *display; XWindowInfo *window_info; unsigned int raised; { if (window_info->depth == 1) { /* Monochrome window. */ if (raised) XSetForeground(display,window_info->widget_context, XBlackPixel(display,window_info->screen)); else XSetForeground(display,window_info->widget_context, XWhitePixel(display,window_info->screen)); } else XSetForeground(display,window_info->widget_context, window_info->pixel_info->foreground_color.pixel); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C o l o r B r o w s e r W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XColorBrowserWidget displays a popup window with a color query to % the user. The user keys a reply and presses the Action or Cancel button % to exit. The typed text is returned as the reply function parameter. % % The format of the XColorBrowserWidget routine is: % % XColorBrowserWidget(display,windows,action,reply) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindows structure. % % o action: Specifies a pointer to the action of this widget. % % o reply: The response from the user is returned in this parameter. % % */ void XColorBrowserWidget(display,windows,action,reply) Display *display; XWindows *windows; char *action, *reply; { #define CancelButtonText "Cancel" #define ColornameText "Name:" #define ColorPatternText "Pattern:" #define GrabButtonText "Grab" #define ResetButtonText "Reset" char **colorlist, primary_selection[MaxTextLength], reset_pattern[MaxTextLength], text[MaxTextLength]; int colors, x, y; register int i; static char glob_pattern[MaxTextLength] = "*"; unsigned int delay, height, limit, mask, status, text_width, visible_colors, width; unsigned long state; Window root_window; XColor color; XEvent event; XFontStruct *font_info; XTextProperty window_name; XWidgetInfo action_info, cancel_info, expose_info, grab_info, list_info, mode_info, north_info, reply_info, reset_info, scroll_info, selection_info, slider_info, south_info, text_info; XWindowChanges window_changes; /* Get color list and sort in ascending order. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); (void) strcpy(reset_pattern,"*"); colorlist=XListColors(glob_pattern,&colors); if (colorlist == (char **) NULL) { /* Pattern failed, obtain all the colors. */ XNoticeWidget(display,windows,"Unable to obtain colors names", glob_pattern); (void) strcpy(glob_pattern,"*"); colorlist=XListColors(glob_pattern,&colors); if (colorlist == (char **) NULL) { XNoticeWidget(display,windows,"Unable to obtain colors names", glob_pattern); return; } } /* Determine popup window attributes. */ font_info=windows->popup.font_info; text_width=0; for (i=0; i < colors; i++) if (XTextWidth(font_info,colorlist[i],strlen(colorlist[i])) > text_width) text_width=XTextWidth(font_info,colorlist[i],strlen(colorlist[i])); width=XTextWidth(font_info,action,strlen(action)); if (XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)) > width) width=XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)); if (XTextWidth(font_info,ResetButtonText,strlen(ResetButtonText)) > width) width=XTextWidth(font_info,ResetButtonText,strlen(ResetButtonText)); if (XTextWidth(font_info,GrabButtonText,strlen(GrabButtonText)) > width) width=XTextWidth(font_info,GrabButtonText,strlen(GrabButtonText)); width+=font_info->max_bounds.width; if (XTextWidth(font_info,ColorPatternText,strlen(ColorPatternText)) > width) width=XTextWidth(font_info,ColorPatternText,strlen(ColorPatternText)); if (XTextWidth(font_info,ColornameText,strlen(ColornameText)) > width) width=XTextWidth(font_info,ColornameText,strlen(ColornameText)); height=font_info->ascent+font_info->descent; windows->popup.width=width+text_width+6*font_info->max_bounds.width; windows->popup.height= ((81*height) >> 2)+((13*font_info->max_bounds.width) >> 1)+4; windows->popup.min_width=width+25*XTextWidth(font_info,"#",1)+ 4*font_info->max_bounds.width; windows->popup.min_height= ((23*height) >> 1)+((13*font_info->max_bounds.width) >> 1)+4; /* Position popup window. */ XQueryPointer(display,XRootWindow(display,windows->popup.screen),&root_window, &root_window,&x,&y,&windows->popup.x,&windows->popup.y,&mask); if (windows->popup.width < windows->popup.min_width) windows->popup.width=windows->popup.min_width; windows->popup.x-=((3*windows->popup.width) >> 2); limit=XDisplayWidth(display,windows->popup.screen)-windows->popup.width; if (windows->popup.x < 0) windows->popup.x=0; else if (windows->popup.x > limit) windows->popup.x=limit; if (windows->popup.height < windows->popup.min_height) windows->popup.height=windows->popup.min_height; windows->popup.y-=(windows->popup.height >> 1); limit=XDisplayHeight(display,windows->popup.screen)-windows->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ (void) sprintf(windows->popup.name,"Browse and Select a Color"); (void) XStringListToTextProperty(&windows->popup.name,1,&window_name); XSetWMName(display,windows->popup.id,&window_name); window_changes.width=windows->popup.width; window_changes.height=windows->popup.height; window_changes.x=windows->popup.x; window_changes.y=windows->popup.y; XReconfigureWMWindow(display,windows->popup.id,windows->popup.screen,CWWidth | CWHeight | CWX | CWY,&window_changes); XMapRaised(display,windows->popup.id); /* Respond to X events. */ XGetWidgetInfo((char *) NULL,&north_info); XGetWidgetInfo((char *) NULL,&south_info); visible_colors=0; delay=SuspendTime << 2; state=UpdateConfigurationState; do { /* Wait for next event. */ if (north_info.raised && south_info.raised) XIfEvent(display,&event,XScreenEvent,(char *) windows); else { /* Brief delay before advancing scroll bar. */ XDelay(display,delay); XCheckMaskEvent(display,ButtonReleaseMask,&event); delay=SuspendTime; } switch (event.type) { case ButtonPress: { if (MatteIsActive(slider_info,event.xbutton)) { /* Track slider. */ slider_info.active=True; break; } if (MatteIsActive(north_info,event.xbutton)) if (slider_info.id > 0) { /* Move slider up. */ north_info.raised=False; slider_info.id--; state|=RedrawListState; break; } if (MatteIsActive(south_info,event.xbutton)) if (slider_info.id < colors) { /* Move slider down. */ south_info.raised=False; slider_info.id++; state|=RedrawListState; break; } if (MatteIsActive(scroll_info,event.xbutton)) { /* Move slider. */ if (event.xbutton.y < slider_info.y) slider_info.id-=(visible_colors-1); else slider_info.id+=(visible_colors-1); state|=RedrawListState; break; } if (MatteIsActive(list_info,event.xbutton)) { unsigned int id; /* User pressed list matte. */ id=slider_info.id+(event.xbutton.y-(list_info.y+(height >> 1))+1)/ selection_info.height; if (id >= colors) break; (void) strcpy(reply_info.text,colorlist[id]); reply_info.highlight=False; reply_info.marker=reply_info.text; reply_info.cursor=reply_info.text+strlen(reply_info.text); XDrawMatteText(display,&windows->popup,&reply_info); state|=RedrawActionState; if (id == list_info.id) { (void) strcpy(glob_pattern,reply_info.text); state|=UpdateListState; } selection_info.id=(~0); list_info.id=id; state|=RedrawListState; break; } if (MatteIsActive(grab_info,event.xbutton)) { /* User pressed Grab button. */ grab_info.raised=False; XDrawBeveledButton(display,&windows->popup,&grab_info); break; } if (MatteIsActive(reset_info,event.xbutton)) { /* User pressed Reset button. */ reset_info.raised=False; XDrawBeveledButton(display,&windows->popup,&reset_info); break; } if (MatteIsActive(action_info,event.xbutton)) { /* User pressed action button. */ action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (MatteIsActive(cancel_info,event.xbutton)) { /* User pressed Cancel button. */ cancel_info.raised=False; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } if (!MatteIsActive(reply_info,event.xbutton)) break; if (event.xbutton.button != Button2) { static Time click_time; /* Move text cursor to position of button press. */ x=event.xbutton.x-reply_info.x-(font_info->max_bounds.width >> 2); for (i=1; i <= (int) strlen(reply_info.marker); i++) if (XTextWidth(font_info,reply_info.marker,i) > x) break; reply_info.cursor=reply_info.marker+i-1; if (event.xbutton.time < (click_time+DoubleClick)) { /* Become the XA_PRIMARY selection owner. */ (void) strcpy(primary_selection,reply_info.text); XSetSelectionOwner(display,XA_PRIMARY,windows->popup.id, event.xbutton.time); reply_info.highlight=XGetSelectionOwner(display,XA_PRIMARY) == windows->popup.id; } XDrawMatteText(display,&windows->popup,&reply_info); click_time=event.xbutton.time; break; } /* Request primary selection. */ XConvertSelection(display,XA_PRIMARY,XA_STRING,XA_STRING, windows->popup.id,event.xbutton.time); break; } case ButtonRelease: { if (!north_info.raised) { /* User released up button. */ delay=SuspendTime << 2; north_info.raised=True; XDrawTriangleNorth(display,&windows->popup,&north_info); } if (!south_info.raised) { /* User released down button. */ delay=SuspendTime << 2; south_info.raised=True; XDrawTriangleSouth(display,&windows->popup,&south_info); } if (slider_info.active) { /* Stop tracking slider. */ slider_info.active=False; break; } if (!grab_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(grab_info,event.xbutton)) { unsigned int status; XColor color; /* Select a pen color from the X server. */ status=XGetWindowColor(display,&color); if (status != False) { (void) sprintf(reply_info.text,"#%02x%02x%02x", color.red >> 8,color.green >> 8,color.blue >> 8); reply_info.marker=reply_info.text; reply_info.cursor=reply_info.text+strlen(reply_info.text); XDrawMatteText(display,&windows->popup,&reply_info); state|=RedrawActionState; } } grab_info.raised=True; XDrawBeveledButton(display,&windows->popup,&grab_info); } if (!reset_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(reset_info,event.xbutton)) { (void) strcpy(glob_pattern,reset_pattern); state|=UpdateListState; } reset_info.raised=True; XDrawBeveledButton(display,&windows->popup,&reset_info); } if (!action_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(action_info,event.xbutton)) if (*reply_info.text == '\0') XBell(display,0); else state|=ExitState; action_info.raised=True; XDrawBeveledButton(display,&windows->popup,&action_info); } if (!cancel_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(cancel_info,event.xbutton)) { *reply_info.text='\0'; state|=ExitState; } cancel_info.raised=True; XDrawBeveledButton(display,&windows->popup,&cancel_info); } if (!MatteIsActive(reply_info,event.xbutton)) break; break; } case ConfigureNotify: { /* Update widget configuration. */ if (event.xconfigure.window != windows->popup.id) break; if ((windows->popup.width != event.xconfigure.width) || (windows->popup.height != event.xconfigure.height)) state|=RedrawWidgetState; windows->popup.width= Max(event.xconfigure.width,windows->popup.min_width); windows->popup.height= Max(event.xconfigure.height,windows->popup.min_height); state|=UpdateConfigurationState; break; } case Expose: { if (event.xexpose.window != windows->popup.id) break; if (event.xexpose.count != 0) break; state|=RedrawWidgetState; break; } case KeyPress: { static char command[MaxTextLength]; static int length; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (key_symbol == XK_Up) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id > 0) { /* Move slider up. */ slider_info.id--; state|=RedrawListState; break; } if (key_symbol == XK_Down) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id < colors) { /* Move slider down. */ slider_info.id++; state|=RedrawListState; break; } if (!MatteIsActive(reply_info,event.xkey)) break; if ((key_symbol == XK_Return) || (key_symbol == XK_KP_Enter)) { /* Read new color or glob patterm. */ if (*reply_info.text == '\0') break; (void) strcpy(glob_pattern,reply_info.text); state|=UpdateListState; break; } if (key_symbol == XK_Control_L) { state|=ControlState; break; } if (state & ControlState) switch (key_symbol) { case XK_u: case XK_U: { key_symbol=XK_Delete; break; } default: break; } XEditText(display,&reply_info,key_symbol,command,state); XDrawMatteText(display,&windows->popup,&reply_info); status=XParseColor(display,windows->popup.map_info->colormap, reply_info.text,&color); if (status != 0) state|=RedrawActionState; break; } case KeyRelease: { static char command[MaxTextLength]; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key release. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); if (key_symbol == XK_Control_L) state&=(~ControlState); break; } case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); if (slider_info.active) { /* Move slider matte. */ slider_info.y=event.xmotion.y- ((slider_info.height+slider_info.bevel_width) >> 1)+1; if (slider_info.y < slider_info.min_y) slider_info.y=slider_info.min_y; if (slider_info.y > slider_info.max_y) slider_info.y=slider_info.max_y; slider_info.id=(colors*(slider_info.y-slider_info.min_y+1))/ (slider_info.max_y-slider_info.min_y+1); state|=RedrawListState; break; } if (grab_info.raised == MatteIsActive(grab_info,event.xmotion)) { /* Grab button status changed. */ grab_info.raised=!grab_info.raised; XDrawBeveledButton(display,&windows->popup,&grab_info); break; } if (reset_info.raised == MatteIsActive(reset_info,event.xmotion)) { /* Reset button status changed. */ reset_info.raised=!reset_info.raised; XDrawBeveledButton(display,&windows->popup,&reset_info); break; } if (action_info.raised == MatteIsActive(action_info,event.xmotion)) { /* Action button status changed. */ action_info.raised=!action_info.raised; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (cancel_info.raised == MatteIsActive(cancel_info,event.xmotion)) { /* Cancel button status changed. */ cancel_info.raised=!cancel_info.raised; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } break; } case SelectionClear: { reply_info.highlight=False; XDrawMatteText(display,&windows->popup,&reply_info); break; } case SelectionNotify: { Atom type; int format, status; unsigned char *data; unsigned long after, length; /* Obtain response from primary selection. */ if (event.xselection.property == (Atom) None) break; status=XGetWindowProperty(display,event.xselection.requestor, event.xselection.property,0L,2047L,True,XA_STRING,&type,&format, &length,&after,&data); if ((status != Success) || (type != XA_STRING) || (format == 32) || (length == 0)) break; if ((strlen(reply_info.text)+length) >= MaxTextLength) XBell(display,0); else { /* Insert primary selection in reply text. */ *(data+length)='\0'; XEditText(display,&reply_info,(KeySym) XK_Insert,(char *) data, state); XDrawMatteText(display,&windows->popup,&reply_info); state|=RedrawActionState; } XFree((void *) data); break; } case SelectionRequest: { XSelectionEvent notify; XSelectionRequestEvent *request; if (!reply_info.highlight) break; /* Set primary selection. */ request=(&(event.xselectionrequest)); XChangeProperty(request->display,request->requestor,request->property, request->target,8,PropModeReplace,(unsigned char *) primary_selection, strlen(primary_selection)); notify.type=SelectionNotify; notify.send_event=True; notify.display=request->display; notify.requestor=request->requestor; notify.selection=request->selection; notify.target=request->target; notify.time=request->time; if (request->property == None) notify.property=request->target; else notify.property=request->property; (void) XSendEvent(request->display,request->requestor,False,NoEventMask, (XEvent *) ¬ify); } default: break; } if (state & UpdateConfigurationState) { /* Initialize button information. */ XGetWidgetInfo(CancelButtonText,&cancel_info); cancel_info.width=width; cancel_info.height=(3*height) >> 1; cancel_info.x=windows->popup.width-cancel_info.width- font_info->max_bounds.width-2; cancel_info.y=windows->popup.height-cancel_info.height- font_info->max_bounds.width; XGetWidgetInfo(action,&action_info); action_info.width=width; action_info.height=(3*height) >> 1; action_info.x=cancel_info.x-(cancel_info.width+ (font_info->max_bounds.width >> 1)+(action_info.bevel_width << 1)); action_info.y=cancel_info.y; XGetWidgetInfo(GrabButtonText,&grab_info); grab_info.width=width; grab_info.height=(3*height) >> 1; grab_info.x=font_info->max_bounds.width; grab_info.y=((5*font_info->max_bounds.width) >> 1)+height; XGetWidgetInfo(ResetButtonText,&reset_info); reset_info.width=width; reset_info.height=(3*height) >> 1; reset_info.x=font_info->max_bounds.width; reset_info.y=grab_info.y+grab_info.height+font_info->max_bounds.width; /* Initialize reply information. */ XGetWidgetInfo(reply,&reply_info); reply_info.raised=False; reply_info.bevel_width--; reply_info.width=windows->popup.width-width- ((6*font_info->max_bounds.width) >> 1); reply_info.height=height << 1; reply_info.x=width+(font_info->max_bounds.width << 1); reply_info.y= action_info.y-reply_info.height-font_info->max_bounds.width; /* Initialize mode information. */ XGetWidgetInfo((char *) NULL,&mode_info); mode_info.bevel_width=0; mode_info.width=action_info.x-reply_info.x-font_info->max_bounds.width; mode_info.height=action_info.height; mode_info.x=reply_info.x; mode_info.y=action_info.y; /* Initialize scroll information. */ XGetWidgetInfo((char *) NULL,&scroll_info); scroll_info.bevel_width--; scroll_info.width=height; scroll_info.height= reply_info.y-grab_info.y-(font_info->max_bounds.width >> 1); scroll_info.x=reply_info.x+(reply_info.width-scroll_info.width); scroll_info.y=grab_info.y-reply_info.bevel_width; scroll_info.raised=False; scroll_info.trough=True; north_info=scroll_info; north_info.raised=True; north_info.width-=(north_info.bevel_width << 1); north_info.height=north_info.width-1; north_info.x+=north_info.bevel_width; north_info.y+=north_info.bevel_width; south_info=north_info; south_info.y=scroll_info.y+scroll_info.height-scroll_info.bevel_width- south_info.height; slider_info=north_info; slider_info.id=0; slider_info.width-=2; slider_info.min_y=north_info.y+north_info.height+north_info.bevel_width+ slider_info.bevel_width+2; slider_info.height= scroll_info.height-((slider_info.min_y-scroll_info.y+1) << 1)+2; visible_colors= (scroll_info.height-(height >> 3)-4)/((9*height) >> 3); if (colors > visible_colors) slider_info.height=(visible_colors*slider_info.height)/colors; slider_info.max_y=south_info.y-south_info.bevel_width- slider_info.height-slider_info.bevel_width; slider_info.x=scroll_info.x+slider_info.bevel_width+1; slider_info.y=slider_info.min_y; expose_info=scroll_info; expose_info.y=slider_info.y; /* Initialize list information. */ XGetWidgetInfo((char *) NULL,&list_info); list_info.raised=False; list_info.bevel_width--; list_info.width= scroll_info.x-reply_info.x-(font_info->max_bounds.width >> 1); list_info.height=scroll_info.height; list_info.x=reply_info.x; list_info.y=scroll_info.y; /* Initialize text information. */ XGetWidgetInfo(text,&text_info); text_info.width=reply_info.width; text_info.height=height; text_info.x=list_info.x-(font_info->max_bounds.width >> 1); text_info.y=font_info->max_bounds.width; /* Initialize selection information. */ XGetWidgetInfo((char *) NULL,&selection_info); selection_info.width=list_info.width; selection_info.height=(9*height) >> 3; selection_info.x=list_info.x; state&=(~UpdateConfigurationState); } if (state & RedrawWidgetState) { /* Redraw color browser window. */ XClearWindow(display,windows->popup.id); x=font_info->max_bounds.width; y=text_info.y+((text_info.height-height) >> 1)+font_info->ascent; XDrawString(display,windows->popup.id,windows->popup.annotate_context, x,y,ColorPatternText,strlen(ColorPatternText)); (void) sprintf(text_info.text,"%s",glob_pattern); XDrawWidgetText(display,&windows->popup,&text_info); XDrawBeveledButton(display,&windows->popup,&grab_info); XDrawBeveledButton(display,&windows->popup,&reset_info); XDrawBeveledMatte(display,&windows->popup,&list_info); XDrawBeveledMatte(display,&windows->popup,&scroll_info); XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); x=font_info->max_bounds.width; y=reply_info.y+((reply_info.height-height) >> 1)+font_info->ascent; XDrawString(display,windows->popup.id,windows->popup.annotate_context, x,y,ColornameText,strlen(ColornameText)); XDrawBeveledMatte(display,&windows->popup,&reply_info); XDrawMatteText(display,&windows->popup,&reply_info); XDrawBeveledButton(display,&windows->popup,&action_info); XDrawBeveledButton(display,&windows->popup,&cancel_info); XHighlightWidget(display,&windows->popup,4,4); selection_info.id=(~0); state|=RedrawActionState; state|=RedrawListState; state&=(~RedrawWidgetState); } if (state & UpdateListState) { char **checklist; int number_colors; status=XParseColor(display,windows->popup.map_info->colormap, glob_pattern,&color); if (status != 0) { /* Reply is a single color name-- exit. */ (void) strcpy(reply,glob_pattern); (void) strcpy(glob_pattern,reset_pattern); action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } /* Update color list. */ checklist=XListColors(glob_pattern,&number_colors); if (number_colors == 0) { (void) strcpy(glob_pattern,reset_pattern); XBell(display,0); } else { for (i=0; i < colors; i++) (void) free((char *) colorlist[i]); if (colorlist != (char **) NULL) (void) free((char *) colorlist); colorlist=checklist; colors=number_colors; } /* Sort color list in ascending order. */ slider_info.height= scroll_info.height-((slider_info.min_y-scroll_info.y+1) << 1)+1; if (colors > visible_colors) slider_info.height=(visible_colors*slider_info.height)/colors; slider_info.max_y=south_info.y-south_info.bevel_width- slider_info.height-slider_info.bevel_width-1; slider_info.id=0; slider_info.y=slider_info.min_y; expose_info.y=slider_info.y; selection_info.id=(~0); list_info.id=(~0); state|=RedrawListState; /* Redraw color name & reply. */ *reply_info.text='\0'; reply_info.cursor=reply_info.text; (void) sprintf(text_info.text,"%s",glob_pattern); XDrawWidgetText(display,&windows->popup,&text_info); XDrawMatteText(display,&windows->popup,&reply_info); XDrawBeveledMatte(display,&windows->popup,&scroll_info); XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); XHighlightWidget(display,&windows->popup,4,4); state&=(~UpdateListState); } if (state & RedrawListState) { /* Determine slider id and position. */ if (slider_info.id >= colors) slider_info.id=colors-1; if ((slider_info.id < 0) || (colors <= visible_colors)) slider_info.id=0; slider_info.y=slider_info.min_y; if (colors > 0) slider_info.y+= slider_info.id*(slider_info.max_y-slider_info.min_y+1)/colors; if (slider_info.id != selection_info.id) { /* Redraw scroll bar and file names. */ selection_info.id=slider_info.id; selection_info.y=list_info.y+(height >> 3)+2; for (i=0; i < visible_colors; i++) { selection_info.raised=(slider_info.id+i) != list_info.id; selection_info.text=(char *) NULL; if ((slider_info.id+i) < colors) selection_info.text=colorlist[slider_info.id+i]; XDrawWidgetText(display,&windows->popup,&selection_info); selection_info.y+=(int) selection_info.height; } /* Update slider. */ if (slider_info.y > expose_info.y) { expose_info.height=slider_info.y-expose_info.y; expose_info.y=slider_info.y-expose_info.height- slider_info.bevel_width-1; } else { expose_info.height=expose_info.y-slider_info.y; expose_info.y=slider_info.y+slider_info.height+ slider_info.bevel_width+1; } XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawMatte(display,&windows->popup,&expose_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); expose_info.y=slider_info.y; } state&=(~RedrawListState); } if (state & RedrawActionState) { /* Display the selected color in a drawing area. */ color=windows->popup.pixel_info->matte_color; (void) XParseColor(display,windows->popup.map_info->colormap, reply_info.text,&windows->popup.pixel_info->matte_color); XBestPixel(display,windows->popup.map_info->colormap,(XColor *) NULL, (unsigned int) windows->popup.visual_info->colormap_size, &windows->popup.pixel_info->matte_color); XDrawBeveledButton(display,&windows->popup,&mode_info); windows->popup.pixel_info->matte_color=color; state&=(~RedrawActionState); } } while (!(state & ExitState)); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->popup.id,windows->popup.screen); /* Free color list. */ for (i=0; i < colors; i++) (void) free((char *) colorlist[i]); if (colorlist != (char **) NULL) (void) free((char *) colorlist); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D i a l o g W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDialogWidget displays a popup window with a query to the user. % The user keys a reply and presses the Ok or Cancel button to exit. The % typed text is returned as the reply function parameter. % % The format of the XDialogWidget routine is: % % XDialogWidget(display,windows,action,query,reply) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindows structure. % % o action: Specifies a pointer to the action of this widget. % % o query: Specifies a pointer to the query to present to the user. % % o reply: The response from the user is returned in this parameter. % % */ void XDialogWidget(display,windows,action,query,reply) Display *display; XWindows *windows; char *action, *query, *reply; { #define CancelButtonText "Cancel" char primary_selection[MaxTextLength]; int x, y; register int i; unsigned int height, limit, mask, width; unsigned long state; Window root_window; XEvent event; XFontStruct *font_info; XTextProperty window_name; XWidgetInfo action_info, cancel_info, reply_info, text_info; XWindowChanges window_changes; /* Determine popup window attributes. */ font_info=windows->popup.font_info; width=XTextWidth(font_info,action,strlen(action)); if (XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)) > width) width=XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)); width+=(3*font_info->max_bounds.width) >> 1; height=font_info->ascent+font_info->descent; windows->popup.width=Max(width,XTextWidth(font_info,query,strlen(query)))+ 6*font_info->max_bounds.width; windows->popup.height=7*height+(font_info->max_bounds.width << 1); windows->popup.min_width=width+25*XTextWidth(font_info,"#",1)+ 4*font_info->max_bounds.width; windows->popup.min_height=windows->popup.height; /* Position popup window. */ XQueryPointer(display,XRootWindow(display,windows->popup.screen),&root_window, &root_window,&x,&y,&windows->popup.x,&windows->popup.y,&mask); if (windows->popup.width < windows->popup.min_width) windows->popup.width=windows->popup.min_width; windows->popup.x-=(windows->popup.width >> 1); limit=XDisplayWidth(display,windows->popup.screen)-windows->popup.width; if (windows->popup.x < 0) windows->popup.x=0; else if (windows->popup.x > limit) windows->popup.x=limit; if (windows->popup.height < windows->popup.min_height) windows->popup.height=windows->popup.min_height; windows->popup.y-=(windows->popup.height >> 1); limit=XDisplayHeight(display,windows->popup.screen)-windows->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ (void) sprintf(windows->popup.name,"Dialog"); (void) XStringListToTextProperty(&windows->popup.name,1,&window_name); XSetWMName(display,windows->popup.id,&window_name); window_changes.width=windows->popup.width; window_changes.height=windows->popup.height; window_changes.x=windows->popup.x; window_changes.y=windows->popup.y; XReconfigureWMWindow(display,windows->popup.id,windows->popup.screen,CWWidth | CWHeight | CWX | CWY,&window_changes); XMapRaised(display,windows->popup.id); /* Respond to X events. */ state=UpdateConfigurationState; XDefineCursor(display,windows->image.id,windows->image.busy_cursor); do { /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: { if (MatteIsActive(action_info,event.xbutton)) { /* User pressed Action button. */ action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (MatteIsActive(cancel_info,event.xbutton)) { /* User pressed Cancel button. */ cancel_info.raised=False; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } if (!MatteIsActive(reply_info,event.xbutton)) break; if (event.xbutton.button != Button2) { static Time click_time; /* Move text cursor to position of button press. */ x=event.xbutton.x-reply_info.x-(font_info->max_bounds.width >> 2); for (i=1; i <= (int) strlen(reply_info.marker); i++) if (XTextWidth(font_info,reply_info.marker,i) > x) break; reply_info.cursor=reply_info.marker+i-1; if (event.xbutton.time < (click_time+DoubleClick)) { /* Become the XA_PRIMARY selection owner. */ (void) strcpy(primary_selection,reply_info.text); XSetSelectionOwner(display,XA_PRIMARY,windows->popup.id, event.xbutton.time); reply_info.highlight=XGetSelectionOwner(display,XA_PRIMARY) == windows->popup.id; } XDrawMatteText(display,&windows->popup,&reply_info); click_time=event.xbutton.time; break; } /* Request primary selection. */ XConvertSelection(display,XA_PRIMARY,XA_STRING,XA_STRING, windows->popup.id,event.xbutton.time); break; } case ButtonRelease: { if (!action_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(action_info,event.xbutton)) if (*reply_info.text == '\0') XBell(display,0); else state|=ExitState; action_info.raised=True; XDrawBeveledButton(display,&windows->popup,&action_info); } if (!cancel_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(cancel_info,event.xbutton)) { *reply_info.text='\0'; state|=ExitState; } cancel_info.raised=True; XDrawBeveledButton(display,&windows->popup,&cancel_info); } break; } case ConfigureNotify: { /* Update widget configuration. */ if (event.xconfigure.window != windows->popup.id) break; if ((windows->popup.width != event.xconfigure.width) || (windows->popup.height != event.xconfigure.height)) state|=RedrawWidgetState; windows->popup.width= Max(event.xconfigure.width,windows->popup.min_width); windows->popup.height= Max(event.xconfigure.height,windows->popup.min_height); state|=UpdateConfigurationState; break; } case Expose: { if (event.xexpose.window != windows->popup.id) break; if (event.xexpose.count != 0) break; state|=RedrawWidgetState; break; } case KeyPress: { static char command[MaxTextLength]; static int length; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (!MatteIsActive(reply_info,event.xkey)) break; if ((key_symbol == XK_Return) || (key_symbol == XK_KP_Enter)) { if (*reply_info.text != '\0') state|=ExitState; break; } if (key_symbol == XK_Control_L) { state|=ControlState; break; } if (state & ControlState) switch (key_symbol) { case XK_u: case XK_U: { key_symbol=XK_Delete; break; } default: break; } XEditText(display,&reply_info,key_symbol,command,state); XDrawMatteText(display,&windows->popup,&reply_info); break; } case KeyRelease: { static char command[MaxTextLength]; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key release. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); if (key_symbol == XK_Control_L) state&=(~ControlState); break; } case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); if (action_info.raised == MatteIsActive(action_info,event.xmotion)) { /* Action button status changed. */ action_info.raised=!action_info.raised; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (cancel_info.raised == MatteIsActive(cancel_info,event.xmotion)) { /* Cancel button status changed. */ cancel_info.raised=!cancel_info.raised; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } break; } case SelectionClear: { reply_info.highlight=False; XDrawMatteText(display,&windows->popup,&reply_info); break; } case SelectionNotify: { Atom type; int format, status; unsigned char *data; unsigned long after, length; /* Obtain response from primary selection. */ if (event.xselection.property == (Atom) None) break; status=XGetWindowProperty(display,event.xselection.requestor, event.xselection.property,0L,2047L,True,XA_STRING,&type,&format, &length,&after,&data); if ((status != Success) || (type != XA_STRING) || (format == 32) || (length == 0)) break; if ((strlen(reply_info.text)+length) >= MaxTextLength) XBell(display,0); else { /* Insert primary selection in reply text. */ *(data+length)='\0'; XEditText(display,&reply_info,(KeySym) XK_Insert,(char *) data, state); XDrawMatteText(display,&windows->popup,&reply_info); } XFree((void *) data); break; } case SelectionRequest: { XSelectionEvent notify; XSelectionRequestEvent *request; if (!reply_info.highlight) break; /* Set primary selection. */ request=(&(event.xselectionrequest)); XChangeProperty(request->display,request->requestor,request->property, request->target,8,PropModeReplace,(unsigned char *) primary_selection, strlen(primary_selection)); notify.type=SelectionNotify; notify.display=request->display; notify.requestor=request->requestor; notify.selection=request->selection; notify.target=request->target; notify.time=request->time; if (request->property == None) notify.property=request->target; else notify.property=request->property; (void) XSendEvent(request->display,request->requestor,False,0, (XEvent *) ¬ify); } default: break; } if (state & UpdateConfigurationState) { /* Initialize button information. */ XGetWidgetInfo(CancelButtonText,&cancel_info); cancel_info.width=width; cancel_info.height=(3*height) >> 1; cancel_info.x=windows->popup.width-cancel_info.width- ((3*font_info->max_bounds.width) >> 1); cancel_info.y=windows->popup.height-cancel_info.height- ((3*font_info->max_bounds.width) >> 1); XGetWidgetInfo(action,&action_info); action_info.width=width; action_info.height=(3*height) >> 1; action_info.x=cancel_info.x-(cancel_info.width+ font_info->max_bounds.width+(action_info.bevel_width << 1)); action_info.y=cancel_info.y; /* Initialize reply information. */ XGetWidgetInfo(reply,&reply_info); reply_info.raised=False; reply_info.bevel_width--; reply_info.width=windows->popup.width-(3*font_info->max_bounds.width); reply_info.height=height << 1; reply_info.x=(3*font_info->max_bounds.width) >> 1; reply_info.y=action_info.y-reply_info.height- font_info->max_bounds.width; /* Initialize text information. */ XGetWidgetInfo(query,&text_info); text_info.width=reply_info.width; text_info.height=height; text_info.x=reply_info.x-(font_info->max_bounds.width >> 1); text_info.y=font_info->max_bounds.width; state&=(~UpdateConfigurationState); } if (state & RedrawWidgetState) { /* Redraw Dialog widget. */ XClearWindow(display,windows->popup.id); XDrawWidgetText(display,&windows->popup,&text_info); XDrawBeveledMatte(display,&windows->popup,&reply_info); XDrawMatteText(display,&windows->popup,&reply_info); XDrawBeveledButton(display,&windows->popup,&action_info); XDrawBeveledButton(display,&windows->popup,&cancel_info); XHighlightWidget(display,&windows->popup,4,4); state&=(~RedrawWidgetState); } } while (!(state & ExitState)); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->popup.id,windows->popup.screen); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X F i l e B r o w s e r W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XFileBrowserWidget displays a popup window with a file query to % the user. The user keys a reply and presses the Action or Cancel button % to exit. The typed text is returned as the reply function parameter. % % The format of the XFileBrowserWidget routine is: % % XFileBrowserWidget(display,windows,action,reply) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindows structure. % % o action: Specifies a pointer to the action of this widget. % % o reply: The response from the user is returned in this parameter. % % */ void XFileBrowserWidget(display,windows,action,reply) Display *display; XWindows *windows; char *action, *reply; { #define CancelButtonText "Cancel" #define DirectoryText "Directory:" #define FilenameText "File name:" #define HomeButtonText "Home" #define UpButtonText "Up" char **filelist, home_directory[MaxTextLength], primary_selection[MaxTextLength], text[MaxTextLength], working_directory[MaxTextLength]; int files, x, y; register int i; static char glob_pattern[MaxTextLength] = "*"; unsigned int delay, height, limit, mask, text_width, visible_filenames, width; unsigned long state; Window root_window; XEvent event; XFontStruct *font_info; XTextProperty window_name; XWidgetInfo action_info, cancel_info, expose_info, list_info, home_info, north_info, reply_info, scroll_info, selection_info, slider_info, south_info, text_info, up_info; XWindowChanges window_changes; /* Read filelist from current directory. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); (void) getcwd(home_directory,MaxTextLength-1); (void) strcpy(working_directory,home_directory); filelist=ListFiles(working_directory,glob_pattern,&files); if (filelist == (char **) NULL) { /* Directory read failed. */ XNoticeWidget(display,windows,"Unable to read directory", working_directory); return; } /* Determine popup window attributes. */ font_info=windows->popup.font_info; text_width=0; for (i=0; i < files; i++) if (XTextWidth(font_info,filelist[i],strlen(filelist[i])) > text_width) text_width=XTextWidth(font_info,filelist[i],strlen(filelist[i])); width=XTextWidth(font_info,action,strlen(action)); if (XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)) > width) width=XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)); if (XTextWidth(font_info,HomeButtonText,strlen(HomeButtonText)) > width) width=XTextWidth(font_info,HomeButtonText,strlen(HomeButtonText)); if (XTextWidth(font_info,UpButtonText,strlen(UpButtonText)) > width) width=XTextWidth(font_info,UpButtonText,strlen(UpButtonText)); width+=font_info->max_bounds.width; if (XTextWidth(font_info,DirectoryText,strlen(DirectoryText)) > width) width=XTextWidth(font_info,DirectoryText,strlen(DirectoryText)); if (XTextWidth(font_info,FilenameText,strlen(FilenameText)) > width) width=XTextWidth(font_info,FilenameText,strlen(FilenameText)); height=font_info->ascent+font_info->descent; windows->popup.width=width+text_width+6*font_info->max_bounds.width; windows->popup.height= ((81*height) >> 2)+((13*font_info->max_bounds.width) >> 1)+4; windows->popup.min_width=width+25*XTextWidth(font_info,"#",1)+ 4*font_info->max_bounds.width; windows->popup.min_height= ((23*height) >> 1)+((13*font_info->max_bounds.width) >> 1)+4; /* Position popup window. */ XQueryPointer(display,XRootWindow(display,windows->popup.screen),&root_window, &root_window,&x,&y,&windows->popup.x,&windows->popup.y,&mask); if (windows->popup.width < windows->popup.min_width) windows->popup.width=windows->popup.min_width; windows->popup.x-=((3*windows->popup.width) >> 2); limit=XDisplayWidth(display,windows->popup.screen)-windows->popup.width; if (windows->popup.x < 0) windows->popup.x=0; else if (windows->popup.x > limit) windows->popup.x=limit; if (windows->popup.height < windows->popup.min_height) windows->popup.height=windows->popup.min_height; windows->popup.y-=(windows->popup.height >> 1); limit=XDisplayHeight(display,windows->popup.screen)-windows->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ (void) sprintf(windows->popup.name,"Browse and Select a File"); (void) XStringListToTextProperty(&windows->popup.name,1,&window_name); XSetWMName(display,windows->popup.id,&window_name); window_changes.width=windows->popup.width; window_changes.height=windows->popup.height; window_changes.x=windows->popup.x; window_changes.y=windows->popup.y; XReconfigureWMWindow(display,windows->popup.id,windows->popup.screen,CWWidth | CWHeight | CWX | CWY,&window_changes); XMapRaised(display,windows->popup.id); /* Respond to X events. */ XGetWidgetInfo((char *) NULL,&north_info); XGetWidgetInfo((char *) NULL,&south_info); visible_filenames=0; delay=SuspendTime << 2; state=UpdateConfigurationState; do { /* Wait for next event. */ if (north_info.raised && south_info.raised) XIfEvent(display,&event,XScreenEvent,(char *) windows); else { /* Brief delay before advancing scroll bar. */ XDelay(display,delay); XCheckMaskEvent(display,ButtonReleaseMask,&event); delay=SuspendTime; } switch (event.type) { case ButtonPress: { if (MatteIsActive(slider_info,event.xbutton)) { /* Track slider. */ slider_info.active=True; break; } if (MatteIsActive(north_info,event.xbutton)) if (slider_info.id > 0) { /* Move slider up. */ north_info.raised=False; slider_info.id--; state|=RedrawListState; break; } if (MatteIsActive(south_info,event.xbutton)) if (slider_info.id < files) { /* Move slider down. */ south_info.raised=False; slider_info.id++; state|=RedrawListState; break; } if (MatteIsActive(scroll_info,event.xbutton)) { /* Move slider. */ if (event.xbutton.y < slider_info.y) slider_info.id-=(visible_filenames-1); else slider_info.id+=(visible_filenames-1); state|=RedrawListState; break; } if (MatteIsActive(list_info,event.xbutton)) { unsigned int id; /* User pressed file matte. */ id=slider_info.id+(event.xbutton.y-(list_info.y+(height >> 1))+1)/ selection_info.height; if (id >= files) break; (void) strcpy(reply_info.text,filelist[id]); reply_info.highlight=False; reply_info.marker=reply_info.text; reply_info.cursor=reply_info.text+strlen(reply_info.text); XDrawMatteText(display,&windows->popup,&reply_info); if (id == list_info.id) { (void) strcpy(working_directory,reply_info.text); state|=UpdateListState; } selection_info.id=(~0); list_info.id=id; state|=RedrawListState; break; } if (MatteIsActive(up_info,event.xbutton)) { /* User pressed Up button. */ up_info.raised=False; XDrawBeveledButton(display,&windows->popup,&up_info); break; } if (MatteIsActive(home_info,event.xbutton)) { /* User pressed Home button. */ home_info.raised=False; XDrawBeveledButton(display,&windows->popup,&home_info); break; } if (MatteIsActive(action_info,event.xbutton)) { /* User pressed action button. */ action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (MatteIsActive(cancel_info,event.xbutton)) { /* User pressed Cancel button. */ cancel_info.raised=False; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } if (!MatteIsActive(reply_info,event.xbutton)) break; if (event.xbutton.button != Button2) { static Time click_time; /* Move text cursor to position of button press. */ x=event.xbutton.x-reply_info.x-(font_info->max_bounds.width >> 2); for (i=1; i <= (int) strlen(reply_info.marker); i++) if (XTextWidth(font_info,reply_info.marker,i) > x) break; reply_info.cursor=reply_info.marker+i-1; if (event.xbutton.time < (click_time+DoubleClick)) { /* Become the XA_PRIMARY selection owner. */ (void) strcpy(primary_selection,reply_info.text); XSetSelectionOwner(display,XA_PRIMARY,windows->popup.id, event.xbutton.time); reply_info.highlight=XGetSelectionOwner(display,XA_PRIMARY) == windows->popup.id; } XDrawMatteText(display,&windows->popup,&reply_info); click_time=event.xbutton.time; break; } /* Request primary selection. */ XConvertSelection(display,XA_PRIMARY,XA_STRING,XA_STRING, windows->popup.id,event.xbutton.time); break; } case ButtonRelease: { if (!north_info.raised) { /* User released up button. */ delay=SuspendTime << 2; north_info.raised=True; XDrawTriangleNorth(display,&windows->popup,&north_info); } if (!south_info.raised) { /* User released down button. */ delay=SuspendTime << 2; south_info.raised=True; XDrawTriangleSouth(display,&windows->popup,&south_info); } if (slider_info.active) { /* Stop tracking slider. */ slider_info.active=False; break; } if (!up_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(up_info,event.xbutton)) { (void) strcpy(working_directory,".."); state|=UpdateListState; } up_info.raised=True; XDrawBeveledButton(display,&windows->popup,&up_info); } if (!home_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(home_info,event.xbutton)) { (void) strcpy(working_directory,home_directory); state|=UpdateListState; } home_info.raised=True; XDrawBeveledButton(display,&windows->popup,&home_info); } if (!action_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(action_info,event.xbutton)) if (*reply_info.text == '\0') XBell(display,0); else state|=ExitState; action_info.raised=True; XDrawBeveledButton(display,&windows->popup,&action_info); } if (!cancel_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(cancel_info,event.xbutton)) { *reply_info.text='\0'; state|=ExitState; } cancel_info.raised=True; XDrawBeveledButton(display,&windows->popup,&cancel_info); } break; } case ConfigureNotify: { /* Update widget configuration. */ if (event.xconfigure.window != windows->popup.id) break; if ((windows->popup.width != event.xconfigure.width) || (windows->popup.height != event.xconfigure.height)) state|=RedrawWidgetState; windows->popup.width= Max(event.xconfigure.width,windows->popup.min_width); windows->popup.height= Max(event.xconfigure.height,windows->popup.min_height); state|=UpdateConfigurationState; break; } case Expose: { if (event.xexpose.window != windows->popup.id) break; if (event.xexpose.count != 0) break; state|=RedrawWidgetState; break; } case KeyPress: { static char command[MaxTextLength]; static int length; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (key_symbol == XK_Up) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id > 0) { /* Move slider up. */ slider_info.id--; state|=RedrawListState; break; } if (key_symbol == XK_Down) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id < files) { /* Move slider down. */ slider_info.id++; state|=RedrawListState; break; } if (!MatteIsActive(reply_info,event.xkey)) break; if ((key_symbol == XK_Return) || (key_symbol == XK_KP_Enter)) { /* Read new directory or glob patterm. */ if (*reply_info.text == '\0') break; if ((strchr(reply_info.text,'*') != (char *) NULL) || (strchr(reply_info.text,'?') != (char *) NULL) || (strchr(reply_info.text,'{') != (char *) NULL) || (strchr(reply_info.text,'}') != (char *) NULL) || (strchr(reply_info.text,'[') != (char *) NULL) || (strchr(reply_info.text,']') != (char *) NULL)) (void) strcpy(glob_pattern,reply_info.text); else (void) strcpy(working_directory,reply_info.text); state|=UpdateListState; break; } if (key_symbol == XK_Control_L) { state|=ControlState; break; } if (state & ControlState) switch (key_symbol) { case XK_u: case XK_U: { key_symbol=XK_Delete; break; } default: break; } XEditText(display,&reply_info,key_symbol,command,state); XDrawMatteText(display,&windows->popup,&reply_info); break; } case KeyRelease: { static char command[MaxTextLength]; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key release. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); if (key_symbol == XK_Control_L) state&=(~ControlState); break; } case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); if (slider_info.active) { /* Move slider matte. */ slider_info.y=event.xmotion.y- ((slider_info.height+slider_info.bevel_width) >> 1)+1; if (slider_info.y < slider_info.min_y) slider_info.y=slider_info.min_y; if (slider_info.y > slider_info.max_y) slider_info.y=slider_info.max_y; slider_info.id=(files*(slider_info.y-slider_info.min_y+1))/ (slider_info.max_y-slider_info.min_y+1); state|=RedrawListState; break; } if (up_info.raised == MatteIsActive(up_info,event.xmotion)) { /* Up button status changed. */ up_info.raised=!up_info.raised; XDrawBeveledButton(display,&windows->popup,&up_info); break; } if (home_info.raised == MatteIsActive(home_info,event.xmotion)) { /* Home button status changed. */ home_info.raised=!home_info.raised; XDrawBeveledButton(display,&windows->popup,&home_info); break; } if (action_info.raised == MatteIsActive(action_info,event.xmotion)) { /* Action button status changed. */ action_info.raised=!action_info.raised; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (cancel_info.raised == MatteIsActive(cancel_info,event.xmotion)) { /* Cancel button status changed. */ cancel_info.raised=!cancel_info.raised; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } break; } case SelectionClear: { reply_info.highlight=False; XDrawMatteText(display,&windows->popup,&reply_info); break; } case SelectionNotify: { Atom type; int format, status; unsigned char *data; unsigned long after, length; /* Obtain response from primary selection. */ if (event.xselection.property == (Atom) None) break; status=XGetWindowProperty(display,event.xselection.requestor, event.xselection.property,0L,2047L,True,XA_STRING,&type,&format, &length,&after,&data); if ((status != Success) || (type != XA_STRING) || (format == 32) || (length == 0)) break; if ((strlen(reply_info.text)+length) >= MaxTextLength) XBell(display,0); else { /* Insert primary selection in reply text. */ *(data+length)='\0'; XEditText(display,&reply_info,(KeySym) XK_Insert,(char *) data, state); XDrawMatteText(display,&windows->popup,&reply_info); } XFree((void *) data); break; } case SelectionRequest: { XSelectionEvent notify; XSelectionRequestEvent *request; if (!reply_info.highlight) break; /* Set primary selection. */ request=(&(event.xselectionrequest)); XChangeProperty(request->display,request->requestor,request->property, request->target,8,PropModeReplace,(unsigned char *) primary_selection, strlen(primary_selection)); notify.type=SelectionNotify; notify.display=request->display; notify.requestor=request->requestor; notify.selection=request->selection; notify.target=request->target; notify.time=request->time; if (request->property == None) notify.property=request->target; else notify.property=request->property; (void) XSendEvent(request->display,request->requestor,False,0, (XEvent *) ¬ify); } default: break; } if (state & UpdateConfigurationState) { /* Initialize button information. */ XGetWidgetInfo(CancelButtonText,&cancel_info); cancel_info.width=width; cancel_info.height=(3*height) >> 1; cancel_info.x=windows->popup.width-cancel_info.width- font_info->max_bounds.width-2; cancel_info.y=windows->popup.height-cancel_info.height- font_info->max_bounds.width; XGetWidgetInfo(action,&action_info); action_info.width=width; action_info.height=(3*height) >> 1; action_info.x=cancel_info.x-(cancel_info.width+ (font_info->max_bounds.width >> 1)+(action_info.bevel_width << 1)); action_info.y=cancel_info.y; XGetWidgetInfo(UpButtonText,&up_info); up_info.width=width; up_info.height=(3*height) >> 1; up_info.x=font_info->max_bounds.width; up_info.y=((5*font_info->max_bounds.width) >> 1)+height; XGetWidgetInfo(HomeButtonText,&home_info); home_info.width=width; home_info.height=(3*height) >> 1; home_info.x=font_info->max_bounds.width; home_info.y=up_info.y+up_info.height+font_info->max_bounds.width; /* Initialize reply information. */ XGetWidgetInfo(reply,&reply_info); reply_info.raised=False; reply_info.bevel_width--; reply_info.width=windows->popup.width-width- ((6*font_info->max_bounds.width) >> 1); reply_info.height=height << 1; reply_info.x=width+(font_info->max_bounds.width << 1); reply_info.y= action_info.y-reply_info.height-font_info->max_bounds.width; /* Initialize scroll information. */ XGetWidgetInfo((char *) NULL,&scroll_info); scroll_info.bevel_width--; scroll_info.width=height; scroll_info.height= reply_info.y-up_info.y-(font_info->max_bounds.width >> 1); scroll_info.x=reply_info.x+(reply_info.width-scroll_info.width); scroll_info.y=up_info.y-reply_info.bevel_width; scroll_info.raised=False; scroll_info.trough=True; north_info=scroll_info; north_info.raised=True; north_info.width-=(north_info.bevel_width << 1); north_info.height=north_info.width-1; north_info.x+=north_info.bevel_width; north_info.y+=north_info.bevel_width; south_info=north_info; south_info.y=scroll_info.y+scroll_info.height-scroll_info.bevel_width- south_info.height; slider_info=north_info; slider_info.id=0; slider_info.width-=2; slider_info.min_y=north_info.y+north_info.height+north_info.bevel_width+ slider_info.bevel_width+2; slider_info.height= scroll_info.height-((slider_info.min_y-scroll_info.y+1) << 1)+2; visible_filenames= (scroll_info.height-(height >> 3)-4)/((9*height) >> 3); if (files > visible_filenames) slider_info.height=(visible_filenames*slider_info.height)/files; slider_info.max_y=south_info.y-south_info.bevel_width- slider_info.height-slider_info.bevel_width; slider_info.x=scroll_info.x+slider_info.bevel_width+1; slider_info.y=slider_info.min_y; expose_info=scroll_info; expose_info.y=slider_info.y; /* Initialize list information. */ XGetWidgetInfo((char *) NULL,&list_info); list_info.raised=False; list_info.bevel_width--; list_info.width= scroll_info.x-reply_info.x-(font_info->max_bounds.width >> 1); list_info.height=scroll_info.height; list_info.x=reply_info.x; list_info.y=scroll_info.y; /* Initialize text information. */ XGetWidgetInfo(text,&text_info); text_info.width=reply_info.width; text_info.height=height; text_info.x=list_info.x-(font_info->max_bounds.width >> 1); text_info.y=font_info->max_bounds.width; /* Initialize selection information. */ XGetWidgetInfo((char *) NULL,&selection_info); selection_info.width=list_info.width; selection_info.height=(9*height) >> 3; selection_info.x=list_info.x; state&=(~UpdateConfigurationState); } if (state & RedrawWidgetState) { /* Redraw file browser window. */ XClearWindow(display,windows->popup.id); x=font_info->max_bounds.width; y=text_info.y+((text_info.height-height) >> 1)+font_info->ascent; XDrawString(display,windows->popup.id,windows->popup.annotate_context, x,y,DirectoryText,strlen(DirectoryText)); (void) sprintf(text_info.text,"%s/%s",working_directory,glob_pattern); XDrawWidgetText(display,&windows->popup,&text_info); XDrawBeveledButton(display,&windows->popup,&up_info); XDrawBeveledButton(display,&windows->popup,&home_info); XDrawBeveledMatte(display,&windows->popup,&list_info); XDrawBeveledMatte(display,&windows->popup,&scroll_info); XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); x=font_info->max_bounds.width; y=reply_info.y+((reply_info.height-height) >> 1)+font_info->ascent; XDrawString(display,windows->popup.id,windows->popup.annotate_context, x,y,FilenameText,strlen(FilenameText)); XDrawBeveledMatte(display,&windows->popup,&reply_info); XDrawMatteText(display,&windows->popup,&reply_info); XDrawBeveledButton(display,&windows->popup,&action_info); XDrawBeveledButton(display,&windows->popup,&cancel_info); XHighlightWidget(display,&windows->popup,4,4); selection_info.id=(~0); state|=RedrawListState; state&=(~RedrawWidgetState); } if (state & UpdateListState) { char **checklist; int number_files; /* Update file list. */ checklist=ListFiles(working_directory,glob_pattern,&number_files); if (checklist == (char **) NULL) { /* Reply is a filename, exit. */ action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } for (i=0; i < files; i++) (void) free((char *) filelist[i]); if (filelist != (char **) NULL) (void) free((char *) filelist); filelist=checklist; files=number_files; /* Update file list. */ if (filelist == (char **) NULL) { /* Reply is a filename, exit. */ action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } slider_info.height= scroll_info.height-((slider_info.min_y-scroll_info.y+1) << 1)+1; if (files > visible_filenames) slider_info.height=(visible_filenames*slider_info.height)/files; slider_info.max_y=south_info.y-south_info.bevel_width- slider_info.height-slider_info.bevel_width-1; slider_info.id=0; slider_info.y=slider_info.min_y; expose_info.y=slider_info.y; selection_info.id=(~0); list_info.id=(~0); state|=RedrawListState; /* Redraw directory name & reply. */ *reply_info.text='\0'; reply_info.cursor=reply_info.text; (void) sprintf(text_info.text,"%s/%s",working_directory,glob_pattern); XDrawWidgetText(display,&windows->popup,&text_info); XDrawMatteText(display,&windows->popup,&reply_info); XDrawBeveledMatte(display,&windows->popup,&scroll_info); XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); XHighlightWidget(display,&windows->popup,4,4); state&=(~UpdateListState); } if (state & RedrawListState) { /* Determine slider id and position. */ if (slider_info.id >= files) slider_info.id=files-1; if ((slider_info.id < 0) || (files <= visible_filenames)) slider_info.id=0; slider_info.y=slider_info.min_y; if (files > 0) slider_info.y+= slider_info.id*(slider_info.max_y-slider_info.min_y+1)/files; if (slider_info.id != selection_info.id) { /* Redraw scroll bar and file names. */ selection_info.id=slider_info.id; selection_info.y=list_info.y+(height >> 3)+2; for (i=0; i < visible_filenames; i++) { selection_info.raised=(slider_info.id+i) != list_info.id; selection_info.text=(char *) NULL; if ((slider_info.id+i) < files) selection_info.text=filelist[slider_info.id+i]; XDrawWidgetText(display,&windows->popup,&selection_info); selection_info.y+=(int) selection_info.height; } /* Update slider. */ if (slider_info.y > expose_info.y) { expose_info.height=slider_info.y-expose_info.y; expose_info.y=slider_info.y-expose_info.height- slider_info.bevel_width-1; } else { expose_info.height=expose_info.y-slider_info.y; expose_info.y=slider_info.y+slider_info.height+ slider_info.bevel_width+1; } XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawMatte(display,&windows->popup,&expose_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); expose_info.y=slider_info.y; } state&=(~RedrawListState); } } while (!(state & ExitState)); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->popup.id,windows->popup.screen); /* Free file list. */ for (i=0; i < files; i++) (void) free((char *) filelist[i]); if (filelist != (char **) NULL) (void) free((char *) filelist); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X F o n t B r o w s e r W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XFontBrowserWidget displays a popup window with a font query to % the user. The user keys a reply and presses the Action or Cancel button % to exit. The typed text is returned as the reply function parameter. % % The format of the XFontBrowserWidget routine is: % % XFontBrowserWidget(display,windows,action,reply) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindows structure. % % o action: Specifies a pointer to the action of this widget. % % o reply: The response from the user is returned in this parameter. % % */ static int FontCompare(x,y) const void *x, *y; { register char *p, *q; p=(char *) *((char **) x); q=(char *) *((char **) y); while ((*p != '\0') && (*q != '\0') && (*p == *q)) { p++; q++; } return(*p-(*q)); } void XFontBrowserWidget(display,windows,action,reply) Display *display; XWindows *windows; char *action, *reply; { #define BackButtonText "Back" #define CancelButtonText "Cancel" #define FontnameText "Name:" #define FontPatternText "Pattern:" #define ResetButtonText "Reset" char back_pattern[MaxTextLength], **fontlist, **listhead, primary_selection[MaxTextLength], reset_pattern[MaxTextLength], text[MaxTextLength]; int fonts, x, y; register int i; static char glob_pattern[MaxTextLength] = "*"; unsigned int delay, height, limit, mask, text_width, visible_fonts, width; unsigned long state; Window root_window; XEvent event; XFontStruct *font_info; XTextProperty window_name; XWidgetInfo action_info, back_info, cancel_info, expose_info, list_info, mode_info, north_info, reply_info, reset_info, scroll_info, selection_info, slider_info, south_info, text_info; XWindowChanges window_changes; /* Get font list and sort in ascending order. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); (void) strcpy(back_pattern,glob_pattern); (void) strcpy(reset_pattern,"*"); fontlist=XListFonts(display,glob_pattern,32767,&fonts); if (fonts == 0) { /* Pattern failed, obtain all the fonts. */ XNoticeWidget(display,windows,"Unable to obtain fonts names", glob_pattern); (void) strcpy(glob_pattern,"*"); fontlist=XListFonts(display,glob_pattern,32767,&fonts); if (fontlist == (char **) NULL) { XNoticeWidget(display,windows,"Unable to obtain fonts names", glob_pattern); return; } } /* Sort font list in ascending order. */ listhead=fontlist; fontlist=(char **) malloc(fonts*sizeof(char **)); if (fontlist == (char **) NULL) { XNoticeWidget(display,windows,"Unable to view fonts", "Memory allocation failed"); return; } for (i=0; i < fonts; i++) fontlist[i]=listhead[i]; (void) qsort((void *) fontlist,fonts,sizeof(char **),FontCompare); /* Determine popup window attributes. */ font_info=windows->popup.font_info; text_width=0; for (i=0; i < fonts; i++) if (XTextWidth(font_info,fontlist[i],strlen(fontlist[i])) > text_width) text_width=XTextWidth(font_info,fontlist[i],strlen(fontlist[i])); width=XTextWidth(font_info,action,strlen(action)); if (XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)) > width) width=XTextWidth(font_info,CancelButtonText,strlen(CancelButtonText)); if (XTextWidth(font_info,ResetButtonText,strlen(ResetButtonText)) > width) width=XTextWidth(font_info,ResetButtonText,strlen(ResetButtonText)); if (XTextWidth(font_info,BackButtonText,strlen(BackButtonText)) > width) width=XTextWidth(font_info,BackButtonText,strlen(BackButtonText)); width+=font_info->max_bounds.width; if (XTextWidth(font_info,FontPatternText,strlen(FontPatternText)) > width) width=XTextWidth(font_info,FontPatternText,strlen(FontPatternText)); if (XTextWidth(font_info,FontnameText,strlen(FontnameText)) > width) width=XTextWidth(font_info,FontnameText,strlen(FontnameText)); height=font_info->ascent+font_info->descent; windows->popup.width=width+text_width+6*font_info->max_bounds.width; windows->popup.height= ((85*height) >> 2)+((13*font_info->max_bounds.width) >> 1)+4; windows->popup.min_width=width+25*XTextWidth(font_info,"#",1)+ 4*font_info->max_bounds.width; windows->popup.min_height= ((27*height) >> 1)+((13*font_info->max_bounds.width) >> 1)+4; /* Position popup window. */ XQueryPointer(display,XRootWindow(display,windows->popup.screen),&root_window, &root_window,&x,&y,&windows->popup.x,&windows->popup.y,&mask); if (windows->popup.width < windows->popup.min_width) windows->popup.width=windows->popup.min_width; windows->popup.x-=((3*windows->popup.width) >> 2); limit=XDisplayWidth(display,windows->popup.screen)-windows->popup.width; if (windows->popup.x < 0) windows->popup.x=0; else if (windows->popup.x > limit) windows->popup.x=limit; if (windows->popup.height < windows->popup.min_height) windows->popup.height=windows->popup.min_height; windows->popup.y-=(windows->popup.height >> 1); limit=XDisplayHeight(display,windows->popup.screen)-windows->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ (void) sprintf(windows->popup.name,"Browse and Select a Font"); (void) XStringListToTextProperty(&windows->popup.name,1,&window_name); XSetWMName(display,windows->popup.id,&window_name); window_changes.width=windows->popup.width; window_changes.height=windows->popup.height; window_changes.x=windows->popup.x; window_changes.y=windows->popup.y; XReconfigureWMWindow(display,windows->popup.id,windows->popup.screen,CWWidth | CWHeight | CWX | CWY,&window_changes); XMapRaised(display,windows->popup.id); /* Respond to X events. */ XGetWidgetInfo((char *) NULL,&north_info); XGetWidgetInfo((char *) NULL,&south_info); visible_fonts=0; delay=SuspendTime << 2; state=UpdateConfigurationState; do { /* Wait for next event. */ if (north_info.raised && south_info.raised) XIfEvent(display,&event,XScreenEvent,(char *) windows); else { /* Brief delay before advancing scroll bar. */ XDelay(display,delay); XCheckMaskEvent(display,ButtonReleaseMask,&event); delay=SuspendTime; } switch (event.type) { case ButtonPress: { if (MatteIsActive(slider_info,event.xbutton)) { /* Track slider. */ slider_info.active=True; break; } if (MatteIsActive(north_info,event.xbutton)) if (slider_info.id > 0) { /* Move slider up. */ north_info.raised=False; slider_info.id--; state|=RedrawListState; break; } if (MatteIsActive(south_info,event.xbutton)) if (slider_info.id < fonts) { /* Move slider down. */ south_info.raised=False; slider_info.id++; state|=RedrawListState; break; } if (MatteIsActive(scroll_info,event.xbutton)) { /* Move slider. */ if (event.xbutton.y < slider_info.y) slider_info.id-=(visible_fonts-1); else slider_info.id+=(visible_fonts-1); state|=RedrawListState; break; } if (MatteIsActive(list_info,event.xbutton)) { unsigned int id; /* User pressed list matte. */ id=slider_info.id+(event.xbutton.y-(list_info.y+(height >> 1))+1)/ selection_info.height; if (id >= fonts) break; (void) strcpy(reply_info.text,fontlist[id]); reply_info.highlight=False; reply_info.marker=reply_info.text; reply_info.cursor=reply_info.text+strlen(reply_info.text); XDrawMatteText(display,&windows->popup,&reply_info); state|=RedrawActionState; if (id == list_info.id) { (void) strcpy(glob_pattern,reply_info.text); state|=UpdateListState; } selection_info.id=(~0); list_info.id=id; state|=RedrawListState; break; } if (MatteIsActive(back_info,event.xbutton)) { /* User pressed Back button. */ back_info.raised=False; XDrawBeveledButton(display,&windows->popup,&back_info); break; } if (MatteIsActive(reset_info,event.xbutton)) { /* User pressed Reset button. */ reset_info.raised=False; XDrawBeveledButton(display,&windows->popup,&reset_info); break; } if (MatteIsActive(action_info,event.xbutton)) { /* User pressed action button. */ action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (MatteIsActive(cancel_info,event.xbutton)) { /* User pressed Cancel button. */ cancel_info.raised=False; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } if (!MatteIsActive(reply_info,event.xbutton)) break; if (event.xbutton.button != Button2) { static Time click_time; /* Move text cursor to position of button press. */ x=event.xbutton.x-reply_info.x-(font_info->max_bounds.width >> 2); for (i=1; i <= (int) strlen(reply_info.marker); i++) if (XTextWidth(font_info,reply_info.marker,i) > x) break; reply_info.cursor=reply_info.marker+i-1; if (event.xbutton.time < (click_time+DoubleClick)) { /* Become the XA_PRIMARY selection owner. */ (void) strcpy(primary_selection,reply_info.text); XSetSelectionOwner(display,XA_PRIMARY,windows->popup.id, event.xbutton.time); reply_info.highlight=XGetSelectionOwner(display,XA_PRIMARY) == windows->popup.id; } XDrawMatteText(display,&windows->popup,&reply_info); click_time=event.xbutton.time; break; } /* Request primary selection. */ XConvertSelection(display,XA_PRIMARY,XA_STRING,XA_STRING, windows->popup.id,event.xbutton.time); break; } case ButtonRelease: { if (!north_info.raised) { /* User released up button. */ delay=SuspendTime << 2; north_info.raised=True; XDrawTriangleNorth(display,&windows->popup,&north_info); } if (!south_info.raised) { /* User released down button. */ delay=SuspendTime << 2; south_info.raised=True; XDrawTriangleSouth(display,&windows->popup,&south_info); } if (slider_info.active) { /* Stop tracking slider. */ slider_info.active=False; break; } if (!back_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(back_info,event.xbutton)) { (void) strcpy(glob_pattern,back_pattern); state|=UpdateListState; } back_info.raised=True; XDrawBeveledButton(display,&windows->popup,&back_info); } if (!reset_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(reset_info,event.xbutton)) { (void) strcpy(back_pattern,glob_pattern); (void) strcpy(glob_pattern,reset_pattern); state|=UpdateListState; } reset_info.raised=True; XDrawBeveledButton(display,&windows->popup,&reset_info); } if (!action_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(action_info,event.xbutton)) if (*reply_info.text == '\0') XBell(display,0); else state|=ExitState; action_info.raised=True; XDrawBeveledButton(display,&windows->popup,&action_info); } if (!cancel_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(cancel_info,event.xbutton)) { *reply_info.text='\0'; state|=ExitState; } cancel_info.raised=True; XDrawBeveledButton(display,&windows->popup,&cancel_info); } break; } case ConfigureNotify: { /* Update widget configuration. */ if (event.xconfigure.window != windows->popup.id) break; if ((windows->popup.width != event.xconfigure.width) || (windows->popup.height != event.xconfigure.height)) state|=RedrawWidgetState; windows->popup.width= Max(event.xconfigure.width,windows->popup.min_width); windows->popup.height= Max(event.xconfigure.height,windows->popup.min_height); state|=UpdateConfigurationState; break; } case Expose: { if (event.xexpose.window != windows->popup.id) break; if (event.xexpose.count != 0) break; state|=RedrawWidgetState; break; } case KeyPress: { static char command[MaxTextLength]; static int length; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (key_symbol == XK_Up) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id < fonts) { /* Move slider down. */ slider_info.id++; state|=RedrawListState; break; } if (key_symbol == XK_Down) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id > 0) { /* Move slider up. */ slider_info.id--; state|=RedrawListState; break; } if (!MatteIsActive(reply_info,event.xkey)) break; if ((key_symbol == XK_Return) || (key_symbol == XK_KP_Enter)) { /* Read new font or glob patterm. */ if (*reply_info.text == '\0') break; (void) strcpy(back_pattern,glob_pattern); (void) strcpy(glob_pattern,reply_info.text); state|=UpdateListState; break; } if (key_symbol == XK_Control_L) { state|=ControlState; break; } if (state & ControlState) switch (key_symbol) { case XK_u: case XK_U: { key_symbol=XK_Delete; break; } default: break; } XEditText(display,&reply_info,key_symbol,command,state); XDrawMatteText(display,&windows->popup,&reply_info); break; } case KeyRelease: { static char command[MaxTextLength]; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key release. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); if (key_symbol == XK_Control_L) state&=(~ControlState); break; } case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); if (slider_info.active) { /* Move slider matte. */ slider_info.y=event.xmotion.y- ((slider_info.height+slider_info.bevel_width) >> 1)+1; if (slider_info.y < slider_info.min_y) slider_info.y=slider_info.min_y; if (slider_info.y > slider_info.max_y) slider_info.y=slider_info.max_y; slider_info.id=(fonts*(slider_info.y-slider_info.min_y+1))/ (slider_info.max_y-slider_info.min_y+1); state|=RedrawListState; break; } if (back_info.raised == MatteIsActive(back_info,event.xmotion)) { /* Back button status changed. */ back_info.raised=!back_info.raised; XDrawBeveledButton(display,&windows->popup,&back_info); break; } if (reset_info.raised == MatteIsActive(reset_info,event.xmotion)) { /* Reset button status changed. */ reset_info.raised=!reset_info.raised; XDrawBeveledButton(display,&windows->popup,&reset_info); break; } if (action_info.raised == MatteIsActive(action_info,event.xmotion)) { /* Action button status changed. */ action_info.raised=!action_info.raised; XDrawBeveledButton(display,&windows->popup,&action_info); break; } if (cancel_info.raised == MatteIsActive(cancel_info,event.xmotion)) { /* Cancel button status changed. */ cancel_info.raised=!cancel_info.raised; XDrawBeveledButton(display,&windows->popup,&cancel_info); break; } break; } case SelectionClear: { reply_info.highlight=False; XDrawMatteText(display,&windows->popup,&reply_info); break; } case SelectionNotify: { Atom type; int format, status; unsigned char *data; unsigned long after, length; /* Obtain response from primary selection. */ if (event.xselection.property == (Atom) None) break; status=XGetWindowProperty(display,event.xselection.requestor, event.xselection.property,0L,2047L,True,XA_STRING,&type,&format, &length,&after,&data); if ((status != Success) || (type != XA_STRING) || (format == 32) || (length == 0)) break; if ((strlen(reply_info.text)+length) >= MaxTextLength) XBell(display,0); else { /* Insert primary selection in reply text. */ *(data+length)='\0'; XEditText(display,&reply_info,(KeySym) XK_Insert,(char *) data, state); XDrawMatteText(display,&windows->popup,&reply_info); state|=RedrawActionState; } XFree((void *) data); break; } case SelectionRequest: { XSelectionEvent notify; XSelectionRequestEvent *request; /* Set XA_PRIMARY selection. */ request=(&(event.xselectionrequest)); XChangeProperty(request->display,request->requestor,request->property, request->target,8,PropModeReplace,(unsigned char *) primary_selection, strlen(primary_selection)); notify.type=SelectionNotify; notify.display=request->display; notify.requestor=request->requestor; notify.selection=request->selection; notify.target=request->target; notify.time=request->time; if (request->property == None) notify.property=request->target; else notify.property=request->property; (void) XSendEvent(request->display,request->requestor,False,0, (XEvent *) ¬ify); } default: break; } if (state & UpdateConfigurationState) { /* Initialize button information. */ XGetWidgetInfo(CancelButtonText,&cancel_info); cancel_info.width=width; cancel_info.height=(3*height) >> 1; cancel_info.x=windows->popup.width-cancel_info.width- font_info->max_bounds.width-2; cancel_info.y=windows->popup.height-cancel_info.height- font_info->max_bounds.width; XGetWidgetInfo(action,&action_info); action_info.width=width; action_info.height=(3*height) >> 1; action_info.x=cancel_info.x-(cancel_info.width+ (font_info->max_bounds.width >> 1)+(action_info.bevel_width << 1)); action_info.y=cancel_info.y; XGetWidgetInfo(BackButtonText,&back_info); back_info.width=width; back_info.height=(3*height) >> 1; back_info.x=font_info->max_bounds.width; back_info.y=((5*font_info->max_bounds.width) >> 1)+height; XGetWidgetInfo(ResetButtonText,&reset_info); reset_info.width=width; reset_info.height=(3*height) >> 1; reset_info.x=font_info->max_bounds.width; reset_info.y=back_info.y+back_info.height+font_info->max_bounds.width; /* Initialize reply information. */ XGetWidgetInfo(reply,&reply_info); reply_info.raised=False; reply_info.bevel_width--; reply_info.width=windows->popup.width-width- ((6*font_info->max_bounds.width) >> 1); reply_info.height=height << 1; reply_info.x=width+(font_info->max_bounds.width << 1); reply_info.y= action_info.y-(action_info.height << 1)-font_info->max_bounds.width; /* Initialize mode information. */ XGetWidgetInfo(reply,&mode_info); mode_info.bevel_width=0; mode_info.width=action_info.x-reply_info.x-font_info->max_bounds.width; mode_info.height=action_info.height << 1; mode_info.x=reply_info.x; mode_info.y=action_info.y-action_info.height+action_info.bevel_width; /* Initialize scroll information. */ XGetWidgetInfo((char *) NULL,&scroll_info); scroll_info.bevel_width--; scroll_info.width=height; scroll_info.height= reply_info.y-back_info.y-(font_info->max_bounds.width >> 1); scroll_info.x=reply_info.x+(reply_info.width-scroll_info.width); scroll_info.y=back_info.y-reply_info.bevel_width; scroll_info.raised=False; scroll_info.trough=True; north_info=scroll_info; north_info.raised=True; north_info.width-=(north_info.bevel_width << 1); north_info.height=north_info.width-1; north_info.x+=north_info.bevel_width; north_info.y+=north_info.bevel_width; south_info=north_info; south_info.y=scroll_info.y+scroll_info.height-scroll_info.bevel_width- south_info.height; slider_info=north_info; slider_info.id=0; slider_info.width-=2; slider_info.min_y=north_info.y+north_info.height+north_info.bevel_width+ slider_info.bevel_width+2; slider_info.height= scroll_info.height-((slider_info.min_y-scroll_info.y+1) << 1)+2; visible_fonts= (scroll_info.height-(height >> 3)-4)/((9*height) >> 3); if (fonts > visible_fonts) slider_info.height=(visible_fonts*slider_info.height)/fonts; slider_info.max_y=south_info.y-south_info.bevel_width- slider_info.height-slider_info.bevel_width; slider_info.x=scroll_info.x+slider_info.bevel_width+1; slider_info.y=slider_info.min_y; expose_info=scroll_info; expose_info.y=slider_info.y; /* Initialize list information. */ XGetWidgetInfo((char *) NULL,&list_info); list_info.raised=False; list_info.bevel_width--; list_info.width= scroll_info.x-reply_info.x-(font_info->max_bounds.width >> 1); list_info.height=scroll_info.height; list_info.x=reply_info.x; list_info.y=scroll_info.y; /* Initialize text information. */ XGetWidgetInfo(text,&text_info); text_info.width=reply_info.width; text_info.height=height; text_info.x=list_info.x-(font_info->max_bounds.width >> 1); text_info.y=font_info->max_bounds.width; /* Initialize selection information. */ XGetWidgetInfo((char *) NULL,&selection_info); selection_info.width=list_info.width; selection_info.height=(9*height) >> 3; selection_info.x=list_info.x; state&=(~UpdateConfigurationState); } if (state & RedrawWidgetState) { /* Redraw file browser window. */ XClearWindow(display,windows->popup.id); x=font_info->max_bounds.width; y=text_info.y+((text_info.height-height) >> 1)+font_info->ascent; XDrawString(display,windows->popup.id,windows->popup.annotate_context, x,y,FontPatternText,strlen(FontPatternText)); (void) sprintf(text_info.text,"%s",glob_pattern); XDrawWidgetText(display,&windows->popup,&text_info); XDrawBeveledButton(display,&windows->popup,&back_info); XDrawBeveledButton(display,&windows->popup,&reset_info); XDrawBeveledMatte(display,&windows->popup,&list_info); XDrawBeveledMatte(display,&windows->popup,&scroll_info); XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); x=font_info->max_bounds.width; y=reply_info.y+((reply_info.height-height) >> 1)+font_info->ascent; XDrawString(display,windows->popup.id,windows->popup.annotate_context, x,y,FontnameText,strlen(FontnameText)); XDrawBeveledMatte(display,&windows->popup,&reply_info); XDrawMatteText(display,&windows->popup,&reply_info); XDrawBeveledButton(display,&windows->popup,&action_info); XDrawBeveledButton(display,&windows->popup,&cancel_info); XHighlightWidget(display,&windows->popup,4,4); selection_info.id=(~0); state|=RedrawActionState; state|=RedrawListState; state&=(~RedrawWidgetState); } if (state & UpdateListState) { char **checklist; int number_fonts; /* Update font list. */ checklist=XListFonts(display,glob_pattern,32767,&number_fonts); if (checklist == (char **) NULL) { if ((strchr(glob_pattern,'*') == (char *) NULL) && (strchr(glob_pattern,'?') == (char *) NULL)) { /* Might be a scaleable font-- exit. */ (void) strcpy(reply,glob_pattern); (void) strcpy(glob_pattern,back_pattern); action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } (void) strcpy(glob_pattern,back_pattern); XBell(display,0); } else if (number_fonts == 1) { /* Reply is a single font name-- exit. */ (void) strcpy(reply,checklist[0]); (void) strcpy(glob_pattern,back_pattern); XFreeFontNames(checklist); action_info.raised=False; XDrawBeveledButton(display,&windows->popup,&action_info); break; } else { XFreeFontNames(listhead); (void) free((char *) fontlist); fontlist=checklist; fonts=number_fonts; } /* Sort font list in ascending order. */ listhead=fontlist; fontlist=(char **) malloc(fonts*sizeof(char **)); if (fontlist == (char **) NULL) { XNoticeWidget(display,windows,"Unable to view fonts", "Memory allocation failed"); return; } for (i=0; i < fonts; i++) fontlist[i]=listhead[i]; (void) qsort((void *) fontlist,fonts,sizeof(char **),FontCompare); slider_info.height= scroll_info.height-((slider_info.min_y-scroll_info.y+1) << 1)+1; if (fonts > visible_fonts) slider_info.height=(visible_fonts*slider_info.height)/fonts; slider_info.max_y=south_info.y-south_info.bevel_width- slider_info.height-slider_info.bevel_width-1; slider_info.id=0; slider_info.y=slider_info.min_y; expose_info.y=slider_info.y; selection_info.id=(~0); list_info.id=(~0); state|=RedrawListState; /* Redraw font name & reply. */ *reply_info.text='\0'; reply_info.cursor=reply_info.text; (void) sprintf(text_info.text,"%s",glob_pattern); XDrawWidgetText(display,&windows->popup,&text_info); XDrawMatteText(display,&windows->popup,&reply_info); XDrawBeveledMatte(display,&windows->popup,&scroll_info); XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); XHighlightWidget(display,&windows->popup,4,4); state&=(~UpdateListState); } if (state & RedrawListState) { /* Determine slider id and position. */ if (slider_info.id >= fonts) slider_info.id=fonts-1; if ((slider_info.id < 0) || (fonts <= visible_fonts)) slider_info.id=0; slider_info.y=slider_info.min_y; if (fonts > 0) slider_info.y+= slider_info.id*(slider_info.max_y-slider_info.min_y+1)/fonts; if (slider_info.id != selection_info.id) { /* Redraw scroll bar and file names. */ selection_info.id=slider_info.id; selection_info.y=list_info.y+(height >> 3)+2; for (i=0; i < visible_fonts; i++) { selection_info.raised=(slider_info.id+i) != list_info.id; selection_info.text=(char *) NULL; if ((slider_info.id+i) < fonts) selection_info.text=fontlist[slider_info.id+i]; XDrawWidgetText(display,&windows->popup,&selection_info); selection_info.y+=(int) selection_info.height; } /* Update slider. */ if (slider_info.y > expose_info.y) { expose_info.height=slider_info.y-expose_info.y; expose_info.y=slider_info.y-expose_info.height- slider_info.bevel_width-1; } else { expose_info.height=expose_info.y-slider_info.y; expose_info.y=slider_info.y+slider_info.height+ slider_info.bevel_width+1; } XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawMatte(display,&windows->popup,&expose_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); expose_info.y=slider_info.y; } state&=(~RedrawListState); } if (state & RedrawActionState) { XFontStruct *font_info, *save_info; /* Display the selected font in a drawing area. */ save_info=windows->popup.font_info; font_info=XLoadQueryFont(display,reply_info.text); if (font_info != (XFontStruct *) NULL) { windows->popup.font_info=font_info;; XSetFont(display,windows->popup.widget_context,font_info->fid); } XDrawBeveledButton(display,&windows->popup,&mode_info); windows->popup.font_info=save_info; if (font_info != (XFontStruct *) NULL) { XSetFont(display,windows->popup.widget_context, windows->popup.font_info->fid); XFreeFont(display,font_info); } XHighlightWidget(display,&windows->popup,4,4); XDrawMatteText(display,&windows->popup,&reply_info); state&=(~RedrawActionState); } } while (!(state & ExitState)); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->popup.id,windows->popup.screen); /* Free font list. */ XFreeFontNames(listhead); (void) free((char *) fontlist); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M e n u W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMenuWidget maps a menu and returns the command pointed to by the % user when the button is released. % % The format of the XMenuWidget routine is: % % selection_number=XMenuWidget(display,windows,x,y,menu_title, % menu_selections,number_selections,item) % % A description of each parameter follows: % % o selection_number: Specifies the number of the selection that the % user choose. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindows structure. % % o x: Specifies an unsigned integer representing the root offset in the % x-direction. % % o y: Specifies an unsigned integer representing the root offset in the % y-direction. % % o menu_title: Specifies a character string that describes the menu % selections. % % o menu_selections: Specifies a pointer to one or more strings that % make up the choices in the menu. % % o number_selections: Specifies the number of choices in the menu. % % o item: Specifies a character array. The item selected from the menu % is returned here. % % */ int XMenuWidget(display,windows,x,y,menu_title,menu_selections, number_selections,item) Display *display; XWindows *windows; int x, y; char *menu_title, **menu_selections; unsigned int number_selections; char *item; { Cursor cursor; int id; unsigned int height, limit, title_height, width; unsigned long state; XEvent event; XFontStruct *font_info; XSetWindowAttributes window_attributes; XWidgetInfo menu_info, selection_info; XWindowChanges window_changes; /* Determine popup window attributes. */ font_info=windows->popup.font_info; windows->popup.width=XTextWidth(font_info,menu_title,strlen(menu_title)); for (id=0; id < number_selections; id++) { width=XTextWidth(font_info,menu_selections[id],strlen(menu_selections[id])); if (width > windows->popup.width) windows->popup.width=width; } windows->popup.width+=font_info->max_bounds.width+6; title_height=(font_info->descent+font_info->ascent) << 1; width=XTextWidth(font_info,menu_title,strlen(menu_title)); height=(9*(font_info->ascent+font_info->descent)) >> 3; windows->popup.height=title_height+number_selections*height+(height >> 2); windows->popup.min_width=windows->popup.width; windows->popup.min_height=windows->popup.height; /* Position popup window. */ windows->popup.x=x-(font_info->max_bounds.width >> 1); limit=XDisplayWidth(display,windows->popup.screen)-windows->popup.width; if (windows->popup.x < 0) windows->popup.x=0; else if (windows->popup.x > limit) windows->popup.x=limit; windows->popup.y=y-((3*title_height) >> 2); limit=XDisplayHeight(display,windows->popup.screen)-windows->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ window_attributes.override_redirect=True; XChangeWindowAttributes(display,windows->popup.id,CWOverrideRedirect, &window_attributes); window_changes.width=windows->popup.width; window_changes.height=windows->popup.height; window_changes.x=windows->popup.x; window_changes.y=windows->popup.y; XReconfigureWMWindow(display,windows->popup.id,windows->popup.screen,CWWidth | CWHeight | CWX | CWY,&window_changes); XMapRaised(display,windows->popup.id); /* Respond to X events. */ selection_info.height=height; cursor=XCreateFontCursor(display,XC_right_ptr); XDefineCursor(display,windows->image.id,cursor); state=UpdateConfigurationState; do { /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: break; case ButtonRelease: { /* Exit menu. */ *item='\0'; state|=ExitState; break; } case ConfigureNotify: { /* Update widget configuration. */ if (event.xconfigure.window != windows->popup.id) break; if ((windows->popup.width != event.xconfigure.width) || (windows->popup.height != event.xconfigure.height)) state|=RedrawWidgetState; windows->popup.width= Max(event.xconfigure.width,windows->popup.min_width); windows->popup.height= Max(event.xconfigure.height,windows->popup.min_height); state|=UpdateConfigurationState; break; } case Expose: { if (event.xexpose.window != windows->popup.id) break; if (event.xexpose.count != 0) break; state|=RedrawWidgetState; break; } case EnterNotify: { if (event.xcrossing.window != windows->popup.id) break; id=((event.xcrossing.y-title_height)/(int) selection_info.height); if ((id < 0) || (id >= number_selections)) break; /* Highlight this selection. */ selection_info.id=id; selection_info.y=title_height+selection_info.id*selection_info.height; selection_info.raised=False; selection_info.text=menu_selections[selection_info.id]; XDrawWidgetText(display,&windows->popup,&selection_info); break; } case LeaveNotify: { if (event.xcrossing.window != windows->popup.id) break; id=selection_info.id; if ((id < 0) || (id >= number_selections)) break; /* Unhighlight last selection. */ selection_info.id=(~0); selection_info.raised=True; selection_info.text=menu_selections[id]; XDrawWidgetText(display,&windows->popup,&selection_info); break; } case MotionNotify: { /* Discard pending button motion events. */ if (event.xmotion.window != windows->popup.id) break; while (XCheckMaskEvent(display,ButtonMotionMask,&event)); /* Determine if pointer has moved to a new selection. */ id=(event.xmotion.y-title_height)/(int) selection_info.height; if ((selection_info.id >= 0) && (selection_info.id < number_selections)) { /* Unhighlight last selection. */ if (id == selection_info.id) break; selection_info.raised=True; selection_info.text=menu_selections[selection_info.id]; XDrawWidgetText(display,&windows->popup,&selection_info); } selection_info.id=id; if ((id < 0) || (id >= number_selections)) break; /* Highlight this selection. */ selection_info.y=title_height+selection_info.id*selection_info.height; selection_info.raised=False; selection_info.text=menu_selections[selection_info.id]; XDrawWidgetText(display,&windows->popup,&selection_info); break; } default: break; } if (state & UpdateConfigurationState) { /* Initialize selection information. */ XGetWidgetInfo((char *) NULL,&menu_info); menu_info.bevel_width--; menu_info.width=windows->popup.width-((menu_info.bevel_width) << 1); menu_info.height=windows->popup.height-((menu_info.bevel_width) << 1); menu_info.x=menu_info.bevel_width; menu_info.y=menu_info.bevel_width; XGetWidgetInfo((char *) NULL,&selection_info); selection_info.width=menu_info.width; selection_info.height=height; selection_info.x=menu_info.x; state&=(~UpdateConfigurationState); } if (state & RedrawWidgetState) { /* Redraw Menu widget. */ XClearWindow(display,windows->popup.id); XDrawBevel(display,&windows->popup,&menu_info); y=title_height-1; XSetBevelColor(display,&windows->popup,False); XDrawLine(display,windows->popup.id,windows->popup.widget_context, selection_info.x,y-1,(int) selection_info.width,y-1); XSetBevelColor(display,&windows->popup,True); XDrawLine(display,windows->popup.id,windows->popup.widget_context, selection_info.x,y,(int) selection_info.width,y); XSetFillStyle(display,windows->popup.widget_context,FillSolid); /* Draw menu selections. */ selection_info.y=title_height >> 2; selection_info.text=menu_title; XDrawWidgetText(display,&windows->popup,&selection_info); selection_info.y=title_height; for (id=0; id < number_selections; id++) { selection_info.text=menu_selections[id]; XDrawWidgetText(display,&windows->popup,&selection_info); selection_info.y+=(int) selection_info.height; } state&=(~RedrawWidgetState); } if (number_selections > 2) { /* Redraw Menu line. */ y=title_height+selection_info.height*(number_selections-1); XSetBevelColor(display,&windows->popup,False); XDrawLine(display,windows->popup.id,windows->popup.widget_context, selection_info.x,y-1,(int) selection_info.width,y-1); XSetBevelColor(display,&windows->popup,True); XDrawLine(display,windows->popup.id,windows->popup.widget_context, selection_info.x,y,(int) selection_info.width,y); XSetFillStyle(display,windows->popup.widget_context,FillSolid); } } while (!(state & ExitState)); XDefineCursor(display,windows->image.id,windows->image.cursor); window_attributes.override_redirect=False; XChangeWindowAttributes(display,windows->popup.id,CWOverrideRedirect, &window_attributes); XWithdrawWindow(display,windows->popup.id,windows->popup.screen); if ((selection_info.id < 0) || (selection_info.id >= number_selections)) return(~0); (void) strcpy(item,menu_selections[selection_info.id]); return(selection_info.id); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X N o t i c e W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XNoticeWidget displays a popup window with a notice to the user. % The function returns when the user presses the "Dismiss" button. % % The format of the XNoticeWidget routine is: % % XNoticeWidget(display,windows,message,qualifier) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindows structure. % % o message: Specifies the message to display before terminating the % program. % % o qualifier: Specifies any qualifier to the message. % % */ void XNoticeWidget(display,windows,message,qualifier) Display *display; XWindows *windows; char *message, *qualifier; { #define DismissButtonText "Dismiss" int limit, x, y; unsigned int height, mask, width; unsigned long state; Window root_window; XEvent event; XFontStruct *font_info; XTextProperty window_name; XWidgetInfo dismiss_info; XWindowChanges window_changes; /* Determine popup window attributes. */ font_info=windows->popup.font_info; width=XTextWidth(font_info,DismissButtonText,strlen(DismissButtonText)); if (message != (char *) NULL) if (XTextWidth(font_info,message,strlen(message)) > width) width=XTextWidth(font_info,message,strlen(message)); if (qualifier != (char *) NULL) if (XTextWidth(font_info,qualifier,strlen(qualifier)) > width) width=XTextWidth(font_info,qualifier,strlen(qualifier)); height=(font_info->ascent+font_info->descent); windows->popup.width=width+4*font_info->max_bounds.width; windows->popup.height=12*height; windows->popup.min_width=width+font_info->max_bounds.width; windows->popup.min_height=7*height; /* Position popup window. */ XQueryPointer(display,XRootWindow(display,windows->popup.screen),&root_window, &root_window,&x,&y,&windows->popup.x,&windows->popup.y,&mask); if (windows->popup.width < windows->popup.min_width) windows->popup.width=windows->popup.min_width; windows->popup.x-=(windows->popup.width >> 1); limit=XDisplayWidth(display,windows->popup.screen)-windows->popup.width; if (windows->popup.x < 0) windows->popup.x=0; else if (windows->popup.x > limit) windows->popup.x=limit; if (windows->popup.height < windows->popup.min_height) windows->popup.height=windows->popup.min_height; windows->popup.y-=(windows->popup.height-3*height); limit=XDisplayHeight(display,windows->popup.screen)-windows->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ (void) sprintf(windows->popup.name,"Notice"); (void) XStringListToTextProperty(&windows->popup.name,1,&window_name); XSetWMName(display,windows->popup.id,&window_name); window_changes.width=windows->popup.width; window_changes.height=windows->popup.height; window_changes.x=windows->popup.x; window_changes.y=windows->popup.y; XReconfigureWMWindow(display,windows->popup.id,windows->popup.screen,CWWidth | CWHeight | CWX | CWY,&window_changes); XMapRaised(display,windows->popup.id); XBell(display,0); /* Respond to X events. */ state=UpdateConfigurationState; XDefineCursor(display,windows->image.id,windows->image.busy_cursor); do { /* Wait for next event. */ XIfEvent(display,&event,XScreenEvent,(char *) windows); switch (event.type) { case ButtonPress: { if (MatteIsActive(dismiss_info,event.xbutton)) { /* User pressed Dismiss button. */ dismiss_info.raised=False; XDrawBeveledButton(display,&windows->popup,&dismiss_info); break; } break; } case ButtonRelease: { if (!dismiss_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(dismiss_info,event.xbutton)) state|=ExitState; dismiss_info.raised=True; XDrawBeveledButton(display,&windows->popup,&dismiss_info); } break; } case ConfigureNotify: { /* Update widget configuration. */ if (event.xconfigure.window != windows->popup.id) break; if ((windows->popup.width != event.xconfigure.width) || (windows->popup.height != event.xconfigure.height)) state|=RedrawWidgetState; windows->popup.width= Max(event.xconfigure.width,windows->popup.min_width); windows->popup.height= Max(event.xconfigure.height,windows->popup.min_height); state|=UpdateConfigurationState; break; } case Expose: { if (event.xexpose.window != windows->popup.id) break; if (event.xexpose.count != 0) break; state|=RedrawWidgetState; break; } case KeyPress: { static char command[MaxTextLength]; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key press. */ (void) XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); if ((key_symbol == XK_Return) || (key_symbol == XK_KP_Enter)) { dismiss_info.raised=False; XDrawBeveledButton(display,&windows->popup,&dismiss_info); state|=ExitState; break; } break; } case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); if (dismiss_info.raised == MatteIsActive(dismiss_info,event.xmotion)) { /* Dismiss button status changed. */ dismiss_info.raised=!dismiss_info.raised; XDrawBeveledButton(display,&windows->popup,&dismiss_info); break; } break; } default: break; } if (state & UpdateConfigurationState) { /* Initialize Dismiss button information. */ XGetWidgetInfo(DismissButtonText,&dismiss_info); dismiss_info.width=font_info->max_bounds.width+ XTextWidth(font_info,DismissButtonText,strlen(DismissButtonText)); dismiss_info.height=(3*height) >> 1; dismiss_info.x=(windows->popup.width >> 1)-(dismiss_info.width >> 1); dismiss_info.y=windows->popup.height-(dismiss_info.height << 1); state&=(~UpdateConfigurationState); } if (state & RedrawWidgetState) { /* Redraw Notice widget. */ XClearWindow(display,windows->popup.id); width=XTextWidth(font_info,message,strlen(message)); x=(windows->popup.width >> 1)-(width >> 1); y=(windows->popup.height >> 1)-(height << 1); XDrawString(display,windows->popup.id,windows->popup.annotate_context, x,y,message,strlen(message)); if (qualifier != (char *) NULL) { width=XTextWidth(font_info,qualifier,strlen(qualifier)); x=(windows->popup.width >> 1)-(width >> 1); y+=height; XDrawString(display,windows->popup.id, windows->popup.annotate_context,x,y,qualifier,strlen(qualifier)); } XDrawBeveledButton(display,&windows->popup,&dismiss_info); XHighlightWidget(display,&windows->popup,4,4); state&=(~RedrawWidgetState); } } while (!(state & ExitState)); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->popup.id,windows->popup.screen); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X T e x t V i e w W i d g e t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XTextViewWidget displays text in a popup window. % % The format of the XTextViewWidget routine is: % % XTextViewWidget(display,windows,title,textlist) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindows structure. % % o title: This character string is displayed at the top of the popup % window. % % o textlist: This string list is displayed within the popup window. % % */ void XTextViewWidget(display,windows,title,textlist) Display *display; XWindows *windows; char *title, **textlist; { #define DismissButtonText "Dismiss" int x, y; register int i; unsigned int delay, height, limit, lines, mask, text_width, visible_lines, width; unsigned long state; Window root_window; XEvent event; XFontStruct *font_info; XTextProperty window_name; XWidgetInfo dismiss_info, expose_info, list_info, north_info, scroll_info, selection_info, slider_info, south_info; XWindowChanges window_changes; /* Convert text string to a text list. */ XDefineCursor(display,windows->image.id,windows->image.busy_cursor); XFlush(display); if (textlist == (char **) NULL) { XNoticeWidget(display,windows,"No text to view",(char *) NULL); return; } /* Determine popup window attributes. */ font_info=windows->popup.font_info; text_width=0; for (i=0; textlist[i] != (char *) NULL; i++) if (XTextWidth(font_info,textlist[i],strlen(textlist[i])) > text_width) text_width=XTextWidth(font_info,textlist[i],strlen(textlist[i])); lines=i; width=XTextWidth(font_info,DismissButtonText,strlen(DismissButtonText)); width+=font_info->max_bounds.width; height=font_info->ascent+font_info->descent; windows->popup.width=text_width+6*font_info->max_bounds.width; windows->popup.height=Min(Max(lines,3),24)*height+((13*height) >> 1)+ ((9*font_info->max_bounds.width) >> 1); windows->popup.min_width=25*XTextWidth(font_info,"#",1)+ 4*font_info->max_bounds.width; windows->popup.min_height=3*height+((13*height) >> 1)+ ((9*font_info->max_bounds.width) >> 1); /* Position popup window. */ XQueryPointer(display,XRootWindow(display,windows->popup.screen),&root_window, &root_window,&x,&y,&windows->popup.x,&windows->popup.y,&mask); if (windows->popup.width < windows->popup.min_width) windows->popup.width=windows->popup.min_width; windows->popup.x-=((3*windows->popup.width) >> 2); limit=XDisplayWidth(display,windows->popup.screen)-windows->popup.width; if (windows->popup.x < 0) windows->popup.x=0; else if (windows->popup.x > limit) windows->popup.x=limit; if (windows->popup.height < windows->popup.min_height) windows->popup.height=windows->popup.min_height; windows->popup.y-=(windows->popup.height >> 1); limit=XDisplayHeight(display,windows->popup.screen)-windows->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ (void) sprintf(windows->popup.name,title); (void) XStringListToTextProperty(&windows->popup.name,1,&window_name); XSetWMName(display,windows->popup.id,&window_name); window_changes.width=windows->popup.width; window_changes.height=windows->popup.height; window_changes.x=windows->popup.x; window_changes.y=windows->popup.y; XReconfigureWMWindow(display,windows->popup.id,windows->popup.screen,CWWidth | CWHeight | CWX | CWY,&window_changes); XMapRaised(display,windows->popup.id); /* Respond to X events. */ XGetWidgetInfo((char *) NULL,&north_info); XGetWidgetInfo((char *) NULL,&south_info); visible_lines=0; delay=SuspendTime << 2; state=UpdateConfigurationState; do { /* Wait for next event. */ if (north_info.raised && south_info.raised) XIfEvent(display,&event,XScreenEvent,(char *) windows); else { /* Brief delay before advancing scroll bar. */ XDelay(display,delay); XCheckMaskEvent(display,ButtonReleaseMask,&event); delay=SuspendTime; } switch (event.type) { case ButtonPress: { if (MatteIsActive(slider_info,event.xbutton)) { /* Track slider. */ slider_info.active=True; break; } if (MatteIsActive(north_info,event.xbutton)) if (slider_info.id > 0) { /* Move slider up. */ north_info.raised=False; slider_info.id--; state|=RedrawListState; break; } if (MatteIsActive(south_info,event.xbutton)) if (slider_info.id < lines) { /* Move slider down. */ south_info.raised=False; slider_info.id++; state|=RedrawListState; break; } if (MatteIsActive(scroll_info,event.xbutton)) { /* Move slider. */ if (event.xbutton.y < slider_info.y) slider_info.id-=(visible_lines-1); else slider_info.id+=(visible_lines-1); state|=RedrawListState; break; } if (MatteIsActive(dismiss_info,event.xbutton)) { /* User pressed Dismiss button. */ dismiss_info.raised=False; XDrawBeveledButton(display,&windows->popup,&dismiss_info); break; } break; } case ButtonRelease: { if (!north_info.raised) { /* User released up button. */ delay=SuspendTime << 2; north_info.raised=True; XDrawTriangleNorth(display,&windows->popup,&north_info); } if (!south_info.raised) { /* User released down button. */ delay=SuspendTime << 2; south_info.raised=True; XDrawTriangleSouth(display,&windows->popup,&south_info); } if (slider_info.active) { /* Stop tracking slider. */ slider_info.active=False; break; } if (!dismiss_info.raised) { if (event.xbutton.window == windows->popup.id) if (MatteIsActive(dismiss_info,event.xbutton)) state|=ExitState; dismiss_info.raised=True; XDrawBeveledButton(display,&windows->popup,&dismiss_info); } break; } case ConfigureNotify: { /* Update widget configuration. */ if (event.xconfigure.window != windows->popup.id) break; if ((windows->popup.width != event.xconfigure.width) || (windows->popup.height != event.xconfigure.height)) state|=RedrawWidgetState; windows->popup.width= Max(event.xconfigure.width,windows->popup.min_width); windows->popup.height= Max(event.xconfigure.height,windows->popup.min_height); state|=UpdateConfigurationState; break; } case Expose: { if (event.xexpose.window != windows->popup.id) break; if (event.xexpose.count != 0) break; state|=RedrawWidgetState; break; } case KeyPress: { static char command[MaxTextLength]; static int length; static KeySym key_symbol; if (event.xkey.window != windows->popup.id) break; /* Respond to a user key press. */ length=XLookupString((XKeyEvent *) &event.xkey,command,sizeof(command), &key_symbol,(XComposeStatus *) NULL); *(command+length)='\0'; if (key_symbol == XK_Up) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id > 0) { /* Move slider up. */ slider_info.id--; state|=RedrawListState; break; } if (key_symbol == XK_Down) if (MatteIsActive(scroll_info,event.xkey)) if (slider_info.id < lines) { /* Move slider down. */ slider_info.id++; state|=RedrawListState; break; } if ((key_symbol == XK_Return) || (key_symbol == XK_KP_Enter)) { dismiss_info.raised=False; XDrawBeveledButton(display,&windows->popup,&dismiss_info); state|=ExitState; break; } break; } case KeyRelease: break; case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); if (slider_info.active) { /* Move slider matte. */ slider_info.y=event.xmotion.y- ((slider_info.height+slider_info.bevel_width) >> 1)+1; if (slider_info.y < slider_info.min_y) slider_info.y=slider_info.min_y; if (slider_info.y > slider_info.max_y) slider_info.y=slider_info.max_y; slider_info.id=(lines*(slider_info.y-slider_info.min_y+1))/ (slider_info.max_y-slider_info.min_y+1); state|=RedrawListState; break; } if (dismiss_info.raised == MatteIsActive(dismiss_info,event.xmotion)) { /* Dismiss button status changed. */ dismiss_info.raised=!dismiss_info.raised; XDrawBeveledButton(display,&windows->popup,&dismiss_info); break; } break; } default: break; } if (state & UpdateConfigurationState) { /* Initialize button information. */ XGetWidgetInfo(DismissButtonText,&dismiss_info); dismiss_info.width=width; dismiss_info.height=(3*height) >> 1; dismiss_info.x=windows->popup.width-dismiss_info.width- font_info->max_bounds.width-2; dismiss_info.y=windows->popup.height-dismiss_info.height- font_info->max_bounds.width; /* Initialize scroll information. */ XGetWidgetInfo((char *) NULL,&scroll_info); scroll_info.bevel_width--; scroll_info.width=height; scroll_info.height=dismiss_info.y- ((5*font_info->max_bounds.width) >> 1); scroll_info.x=windows->popup.width-font_info->max_bounds.width- scroll_info.width; scroll_info.y=(3*font_info->max_bounds.width) >> 1; scroll_info.raised=False; scroll_info.trough=True; north_info=scroll_info; north_info.raised=True; north_info.width-=(north_info.bevel_width << 1); north_info.height=north_info.width-1; north_info.x+=north_info.bevel_width; north_info.y+=north_info.bevel_width; south_info=north_info; south_info.y=scroll_info.y+scroll_info.height-scroll_info.bevel_width- south_info.height; slider_info=north_info; slider_info.id=0; slider_info.width-=2; slider_info.min_y=north_info.y+north_info.height+north_info.bevel_width+ slider_info.bevel_width+2; slider_info.height= scroll_info.height-((slider_info.min_y-scroll_info.y+1) << 1)+2; visible_lines=(scroll_info.height-(height >> 3)-4)/((9*height) >> 3); if (lines > visible_lines) slider_info.height=(visible_lines*slider_info.height)/lines; slider_info.max_y=south_info.y-south_info.bevel_width- slider_info.height-slider_info.bevel_width; slider_info.x=scroll_info.x+slider_info.bevel_width+1; slider_info.y=slider_info.min_y; expose_info=scroll_info; expose_info.y=slider_info.y; /* Initialize list information. */ XGetWidgetInfo((char *) NULL,&list_info); list_info.raised=False; list_info.bevel_width--; list_info.width=scroll_info.x-((3*font_info->max_bounds.width) >> 1); list_info.height=scroll_info.height; list_info.x=font_info->max_bounds.width; list_info.y=scroll_info.y; /* Initialize selection information. */ XGetWidgetInfo((char *) NULL,&selection_info); selection_info.width=list_info.width; selection_info.height=(9*height) >> 3; selection_info.x=list_info.x; state&=(~UpdateConfigurationState); } if (state & RedrawWidgetState) { /* Redraw file browser window. */ XClearWindow(display,windows->popup.id); XDrawBeveledMatte(display,&windows->popup,&list_info); XDrawBeveledMatte(display,&windows->popup,&scroll_info); XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); XDrawBeveledButton(display,&windows->popup,&dismiss_info); XHighlightWidget(display,&windows->popup,4,4); selection_info.id=(~0); state|=RedrawListState; state&=(~RedrawWidgetState); } if (state & RedrawListState) { /* Determine slider id and position. */ if (slider_info.id >= lines) slider_info.id=lines-1; if ((slider_info.id < 0) || (lines <= visible_lines)) slider_info.id=0; slider_info.y=slider_info.min_y; if (lines != 0) slider_info.y+= slider_info.id*(slider_info.max_y-slider_info.min_y+1)/lines; if (slider_info.id != selection_info.id) { /* Redraw scroll bar and file names. */ selection_info.id=slider_info.id; selection_info.y=list_info.y+(height >> 3)+2; for (i=0; i < visible_lines; i++) { selection_info.raised=(slider_info.id+i) != list_info.id; selection_info.text=(char *) NULL; if ((slider_info.id+i) < lines) selection_info.text=textlist[slider_info.id+i]; XDrawWidgetText(display,&windows->popup,&selection_info); selection_info.y+=(int) selection_info.height; } /* Update slider. */ if (slider_info.y > expose_info.y) { expose_info.height=slider_info.y-expose_info.y; expose_info.y=slider_info.y-expose_info.height- slider_info.bevel_width-1; } else { expose_info.height=expose_info.y-slider_info.y; expose_info.y=slider_info.y+slider_info.height+ slider_info.bevel_width+1; } XDrawTriangleNorth(display,&windows->popup,&north_info); XDrawMatte(display,&windows->popup,&expose_info); XDrawBeveledButton(display,&windows->popup,&slider_info); XDrawTriangleSouth(display,&windows->popup,&south_info); expose_info.y=slider_info.y; } state&=(~RedrawListState); } } while (!(state & ExitState)); XDefineCursor(display,windows->image.id,windows->image.cursor); XWithdrawWindow(display,windows->popup.id,windows->popup.screen); } ws->popup.height; if (windows->popup.y < 0) windows->popup.y=0; else if (windows->popup.y > limit) windows->popup.y=limit; /* Map popup window. */ window_attributes.override_redirect=True; XChangeWindowAttributes(display,windows->popup.id,CWOverrideRedirect, &window_att./ImageMagick/magick/X.c 644 24 24 617415 5555644114 10251 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % % % X X % % X X % % X % % X X % % X X % % % % X11 Utility Routines for ImageMagick. % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "utility.h" #include "X.h" /* State declarations. */ #define ControlState 0x0001 #define DefaultState 0x0000 #define ExitState 0x0002 /* Forward declarations. */ int Latin1Compare _Declare((char *,char *)); static char *XGetResourceInstance _Declare((XrmDatabase,char *,char *,char *)); static void XMakeImageLSBFirst _Declare((XWindowInfo *,Image *, XImage *)), XMakeImageMSBFirst _Declare((XWindowInfo *,Image *, XImage *)); static Window XWindowByProperty _Declare((Display *,Window,Atom)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I s T r u e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function IsTrue returns True if the boolean is "true", "on", "yes" or "1". % % The format of the IsTrue routine is: % % option=IsTrue(boolean) % % A description of each parameter follows: % % o option: either True or False depending on the boolean parameter. % % o boolean: Specifies a pointer to a character array. % % */ unsigned int IsTrue(boolean) char *boolean; { if (boolean == (char *) NULL) return(False); if (Latin1Compare(boolean,"true") == 0) return(True); if (Latin1Compare(boolean,"on") == 0) return(True); if (Latin1Compare(boolean,"yes") == 0) return(True); if (Latin1Compare(boolean,"1") == 0) return(True); return(False); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L a t i n 1 C o m p a r e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Latin1Compare compares two null terminated Latin-1 strings, % ignoring case differences, and returns an integer greater than, equal % to, or less than 0, according to whether first is lexicographically % greater than, equal to, or less than second. The two strings are % assumed to be encoded using ISO 8859-1. % % The format of the Latin1Compare routine is: % % Latin1Compare(first,second) % % A description of each parameter follows: % % o first: A pointer to the string to convert to Latin1 string. % % o second: A pointer to the string to convert to Latin1 string. % % */ int Latin1Compare(first,second) char *first, *second; { register unsigned char *p, *q; p=(unsigned char *) first; q=(unsigned char *) second; while ((*p != '\0') && (*q != '\0')) { register unsigned char c, d; c=(*p); d=(*q); if (c != d) { /* Try lowercasing and try again. */ if ((c >= XK_A) && (c <= XK_Z)) c+=(XK_a-XK_A); else if ((c >= XK_Agrave) && (c <= XK_Odiaeresis)) c+=(XK_agrave-XK_Agrave); else if ((c >= XK_Ooblique) && (c <= XK_Thorn)) c+=(XK_oslash-XK_Ooblique); if ((d >= XK_A) && (d <= XK_Z)) d+=(XK_a-XK_A); else if ((d >= XK_Agrave) && (d <= XK_Odiaeresis)) d+=(XK_agrave-XK_Agrave); else if ((d >= XK_Ooblique) && (d <= XK_Thorn)) d+=(XK_oslash-XK_Ooblique); if (c != d) return(((int) c)-((int) d)); } p++; q++; } return(((int) *p)-((int) *q)); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L a t i n 1 U p p e r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Latin1Upper copies a null terminated string from source to % destination (including the null), changing all Latin-1 lowercase letters % to uppercase. The string is assumed to be encoded using ISO 8859-1. % % The format of the Latin1Upper routine is: % % Latin1Upper(string) % % A description of each parameter follows: % % o string: A pointer to the string to convert to upper-case Latin1. % % */ static void Latin1Upper(string) char *string; { unsigned char c; c=(*string); while (c != '\0') { if ((c >= XK_a) && (c <= XK_z)) *string=c-(XK_a-XK_A); else if ((c >= XK_agrave) && (c <= XK_odiaeresis)) *string=c-(XK_agrave-XK_Agrave); else if ((c >= XK_oslash) && (c <= XK_thorn)) *string=c-(XK_oslash-XK_Ooblique); string++; c=(*string); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X A n n o t a t e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XAnnotateImage annotates the image with text. % % The format of the XAnnotateImage routine is: % % status=XAnnotateImage(display,pixel_info,annotate_info,background,image) % % A description of each parameter follows: % % o status: Function XAnnotateImage returns True if the image is % successfully annotated with text. False is returned is there is a % memory shortage. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o pixel_info: Specifies a pointer to a XPixelInfo structure. % % o annotate_info: Specifies a pointer to a XAnnotateInfo structure. % % o background: Specifies whether the background color is included in % the annotation. Must be either True or False; % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ unsigned int XAnnotateImage(display,pixel_info,annotate_info,background,image) Display *display; XPixelInfo *pixel_info; XAnnotateInfo *annotate_info; unsigned int background; Image *image; { GC annotate_context; Image *annotate_image; int x, y; Pixmap annotate_pixmap; register RunlengthPacket *p, *q; unsigned int depth, height, width; Window root_window; XGCValues context_values; XImage *annotate_ximage; /* Initialize annotated image. */ if (!UncompressImage(image)) return(False); /* Initialize annotated pixmap. */ root_window=XRootWindow(display,XDefaultScreen(display)); depth=XDefaultDepth(display,XDefaultScreen(display)); annotate_pixmap=XCreatePixmap(display,root_window,annotate_info->width, annotate_info->height,(int) depth); if (annotate_pixmap == (Pixmap) NULL) return(False); /* Initialize graphics info. */ context_values.background=0; context_values.foreground=(unsigned long) (~0); context_values.font=annotate_info->font_info->fid; annotate_context=XCreateGC(display,root_window,GCBackground | GCFont | GCForeground,&context_values); if (annotate_context == (GC) NULL) return(False); /* Draw text to pixmap. */ XDrawImageString(display,annotate_pixmap,annotate_context,0, (int) annotate_info->font_info->ascent,annotate_info->text, strlen(annotate_info->text)); XFreeGC(display,annotate_context); /* Initialize annotated X image. */ annotate_ximage=XGetImage(display,annotate_pixmap,0,0,annotate_info->width, annotate_info->height,AllPlanes,ZPixmap); if (annotate_ximage == (XImage *) NULL) return(False); XFreePixmap(display,annotate_pixmap); /* Initialize annotated image. */ annotate_image=AllocateImage((ImageInfo *) NULL); if (annotate_image == (Image *) NULL) return(False); annotate_image->columns=annotate_info->width; annotate_image->rows=annotate_info->height; annotate_image->packets=annotate_image->columns*annotate_image->rows; annotate_image->pixels=(RunlengthPacket *) malloc((unsigned int) image->packets*sizeof(RunlengthPacket)); if (annotate_image->pixels == (RunlengthPacket *) NULL) { DestroyImage(annotate_image); return(False); } /* Transfer annotated X image to image. */ q=annotate_image->pixels; for (y=0; y < annotate_image->rows; y++) for (x=0; x < annotate_image->columns; x++) { q->index=(unsigned short) XGetPixel(annotate_ximage,x,y); if (q->index == 0) { /* Set this pixel to the background color. */ q->red=pixel_info->background_color.red >> 8; q->green=pixel_info->background_color.green >> 8; q->blue=pixel_info->background_color.blue >> 8; } else { /* Set this pixel to the pen color. */ q->red=pixel_info->annotate_color.red >> 8; q->green=pixel_info->annotate_color.green >> 8; q->blue=pixel_info->annotate_color.blue >> 8; } q->length=0; q++; } XDestroyImage(annotate_ximage); /* Determine annotate geometry. */ (void) XParseGeometry(annotate_info->geometry,&x,&y,&width,&height); if ((width != annotate_image->columns) || (height != annotate_image->rows)) TransformImage(&annotate_image,(char *) NULL,annotate_info->geometry); if (annotate_info->degrees != 0.0) { Image *rotated_image; /* Rotate image. */ rotated_image=RotateImage(annotate_image,annotate_info->degrees,False); if (rotated_image == (Image *) NULL) return(False); DestroyImage(annotate_image); annotate_image=rotated_image; } /* Paste annotated image to image. */ image->class=DirectClass; p=annotate_image->pixels; q=image->pixels+y*image->columns+x; for (y=0; y < annotate_image->rows; y++) { for (x=0; x < annotate_image->columns; x++) { if (p->index != 0) { /* Set this pixel to the pen color. */ *q=(*p); q->index=pixel_info->annotate_index; } else if (background) { /* Set this pixel to the background color. */ *q=(*p); q->index=pixel_info->background_index; } p++; q++; } q+=image->columns-annotate_image->columns; } DestroyImage(annotate_image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X B e s t F o n t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XBestFont returns the "best" font. "Best" is defined as a font % specified in the X resource database or a font such that the text width % displayed with the font does not exceed the specified maximum width. % % The format of the XBestFont routine is: % % font=XBestFont(display,resource_info) % % A description of each parameter follows: % % o font: XBestFont returns a pointer to a XFontStruct structure. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % */ XFontStruct *XBestFont(display,resource_info) Display *display; XResourceInfo *resource_info; { static char *fonts[]= { "-adobe-helvetica-medium-r-normal--14-100-100-100-p-76-iso8859-1", "-*-helvetica-medium-r-*-*-14-*", "-*-lucida-medium-r-*-*-14-*", "8x13", "6x13", "fixed", "variable", (char *) NULL }; char **p; XFontStruct *font_info; font_info=(XFontStruct *) NULL; if (resource_info->font != (char *) NULL) { /* Load preferred font specified in the X resource database. */ font_info=XLoadQueryFont(display,resource_info->font); if (font_info == (XFontStruct *) NULL) Warning("Unable to load font",resource_info->font); } /* Load fonts from list of fonts until one is found. */ for (p=fonts; *p != (char *) NULL; p++) { if (font_info != (XFontStruct *) NULL) break; font_info=XLoadQueryFont(display,*p); } return(font_info); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X B e s t I c o n S i z e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XBestIconSize returns the "best" icon size. "Best" is defined as % an icon size that maintains the aspect ratio of the image. If the window % manager has preferred icon sizes, one of the preferred sizes is used. % % The format of the XBestIconSize routine is: % % XBestIconSize(display,window,image) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % */ void XBestIconSize(display,window,image) Display *display; XWindowInfo *window; Image *image; { #define MaxIconSize 96 int i, number_sizes; unsigned int height, icon_height, icon_width, width; unsigned long scale_factor; Window root_window; XIconSize *icon_size, *size_list; /* Determine if the window manager has specified preferred icon sizes. */ window->width=MaxIconSize; window->height=MaxIconSize; icon_size=(XIconSize *) NULL; number_sizes=0; root_window=XRootWindow(display,window->screen); if (XGetIconSizes(display,root_window,&size_list,&number_sizes) != 0) if ((number_sizes > 0) && (size_list != (XIconSize *) NULL)) icon_size=size_list; if (icon_size == (XIconSize *) NULL) { /* Window manager does not restrict icon size. */ icon_size=XAllocIconSize(); if (icon_size == (XIconSize *) NULL) { Warning("Unable to choose best icon size","Memory allocation failed"); return; } icon_size->min_width=1; icon_size->max_width=MaxIconSize; icon_size->min_height=1; icon_size->max_height=MaxIconSize; icon_size->width_inc=1; icon_size->height_inc=1; } /* Determine aspect ratio of image. */ width=image->columns; height=image->rows; if (window->clip_geometry) (void) XParseGeometry(window->clip_geometry,&i,&i,&width,&height); /* Look for an icon size that maintains the aspect ratio of image. */ scale_factor=UpShift(icon_size->max_width)/width; if (scale_factor > (UpShift(icon_size->max_height)/height)) scale_factor=UpShift(icon_size->max_height)/height; icon_width=icon_size->min_width; while (icon_width < icon_size->max_width) { if (icon_width >= (DownShift(width*scale_factor))) break; icon_width+=icon_size->width_inc; } icon_height=icon_size->min_height; while (icon_height < icon_size->max_height) { if (icon_height >= (DownShift(height*scale_factor))) break; icon_height+=icon_size->height_inc; } XFree((void *) icon_size); window->width=icon_width; window->height=icon_height; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X B e s t P i x e l % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XBestPixel returns a pixel from an array of pixels that is closest % to the requested color. If the color array is NULL, the colors are obtained % from the X server. % % The format of the XBestPixel routine is: % % pixel=XBestPixel(display,colormap,colors,number_colors,color) % % A description of each parameter follows: % % o pixel: XBestPixel returns the pixel value closest to the requested % color. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o colormap: Specifies the ID of the X server colormap. % % o colors: Specifies an array of XColor structures. % % o number_colors: Specifies the number of XColor structures in the % color definition array. % % o color: Specifies the desired RGB value to find in the colors array. % % */ void XBestPixel(display,colormap,colors,number_colors,color) Display *display; Colormap colormap; XColor *colors; unsigned int number_colors; XColor *color; { int query_server, status; register int blue_distance, green_distance, i, red_distance; unsigned long distance, min_distance; /* Find closest representation for the requested RGB color. */ status=XAllocColor(display,colormap,color); if (status != 0) return; query_server=colors == (XColor *) NULL; if (query_server) { /* Read X server colormap. */ colors=(XColor *) malloc(number_colors*sizeof(XColor)); if (colors == (XColor *) NULL) Error("Unable to read X server colormap","Memory allocation failed"); for (i=0; i < number_colors; i++) colors[i].pixel=(unsigned long) i; if (number_colors > 256) number_colors=256; XQueryColors(display,colormap,colors,number_colors); } color->pixel=0; min_distance=(unsigned long) (~0); for (i=0; i < number_colors; i++) { red_distance=(int) (colors[i].red >> 8)-(int) (color->red >> 8); green_distance=(int) (colors[i].green >> 8)-(int) (color->green >> 8); blue_distance=(int) (colors[i].blue >> 8)-(int) (color->blue >> 8); distance=red_distance*red_distance+green_distance*green_distance+ blue_distance*blue_distance; if (distance < min_distance) { min_distance=distance; color->pixel=colors[i].pixel; } } if (query_server) (void) free((char *) colors); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X B e s t V i s u a l I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XBestVisualInfo returns visual information for a visual that is % the "best" the server supports. "Best" is defined as: % % 1. Restrict the visual list to those supported by the default screen. % % 2. If a visual type is specified, restrict the visual list to those of % that type. % % 3. If a map type is specified, choose the visual that matches the id % specified by the Standard Colormap. % % 4 From the list of visuals, choose one that can display the most % simultaneous colors. If more than one visual can display the same % number of simultaneous colors, one is choosen based on a rank. % % The format of the XBestVisualInfo routine is: % % visual_info=XBestVisualInfo(display,map_info,resource_info) % % A description of each parameter follows: % % o visual_info: XBestVisualInfo returns a pointer to a X11 XVisualInfo % structure. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o map_info: If map_type is specified, this structure is initialized % with info from the Standard Colormap. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % */ XVisualInfo *XBestVisualInfo(display,map_info,resource_info) Display *display; XStandardColormap *map_info; XResourceInfo *resource_info; { #define XVisualColormapSize(visual_info) \ ((visual_info->class == TrueColor) || (visual_info->class == DirectColor) ? \ visual_info->red_mask | visual_info->green_mask | visual_info->blue_mask : \ visual_info->colormap_size) char *map_type, *visual_type; int number_visuals; register int i; unsigned int visual_mask; XVisualInfo *visual_info, *visual_list, visual_template; /* Restrict visual search by screen number. */ map_type=resource_info->map_type; visual_type=resource_info->visual_type; visual_mask=VisualScreenMask; visual_template.screen=XDefaultScreen(display); if (visual_type != (char *) NULL) { /* Restrict visual search by class or visual id. */ if (Latin1Compare("staticgray",visual_type) == 0) { visual_mask|=VisualClassMask; visual_template.class=StaticGray; } else if (Latin1Compare("grayscale",visual_type) == 0) { visual_mask|=VisualClassMask; visual_template.class=GrayScale; } else if (Latin1Compare("staticcolor",visual_type) == 0) { visual_mask|=VisualClassMask; visual_template.class=StaticColor; } else if (Latin1Compare("pseudocolor",visual_type) == 0) { visual_mask|=VisualClassMask; visual_template.class=PseudoColor; } else if (Latin1Compare("truecolor",visual_type) == 0) { visual_mask|=VisualClassMask; visual_template.class=TrueColor; } else if (Latin1Compare("directcolor",visual_type) == 0) { visual_mask|=VisualClassMask; visual_template.class=DirectColor; } else if (Latin1Compare("default",visual_type) == 0) { visual_mask|=VisualIDMask; visual_template.visualid=XVisualIDFromVisual( XDefaultVisual(display,XDefaultScreen(display))); } else if (isdigit(*visual_type)) { visual_mask|=VisualIDMask; visual_template.visualid= strtol(visual_type,(char **) NULL,0); } else Warning("Invalid visual specifier",visual_type); } /* Get all visuals that meet our criteria so far. */ number_visuals=0; visual_list=XGetVisualInfo(display,visual_mask,&visual_template, &number_visuals); visual_mask=VisualScreenMask | VisualIDMask; if ((number_visuals == 0) || (visual_list == (XVisualInfo *) NULL)) { /* Failed to get visual; try using the default visual. */ Warning("Unable to get visual",visual_type); visual_template.visualid= XVisualIDFromVisual(XDefaultVisual(display,XDefaultScreen(display))); visual_list=XGetVisualInfo(display,visual_mask,&visual_template, &number_visuals); if ((number_visuals == 0) || (visual_list == (XVisualInfo *) NULL)) return((XVisualInfo *) NULL); Warning("Using default visual",XVisualClassName(visual_list->class)); } if (map_type != (char *) NULL) { Atom map_property; char map_name[MaxTextLength]; int j, number_maps, status; Window root_window; XStandardColormap *map_list; /* Restrict visual search by Standard Colormap visual id. */ (void) sprintf((char *) map_name,"RGB_%s_MAP",map_type); Latin1Upper(map_name); map_property=XInternAtom(display,(char *) map_name,True); if (map_property == (Atom) NULL) Error("Unable to get Standard Colormap",map_type); root_window=XRootWindow(display,XDefaultScreen(display)); status=XGetRGBColormaps(display,root_window,&map_list,&number_maps, map_property); if (status == 0) Error("Unable to get Standard Colormap",map_type); /* Search all Standard Colormaps and visuals for ids that match. */ *map_info=map_list[0]; #ifndef PRE_R4_ICCCM visual_template.visualid=XVisualIDFromVisual(visual_list[0].visual); for (i=0; i < number_maps; i++) for (j=0; j < number_visuals; j++) if (map_list[i].visualid == XVisualIDFromVisual(visual_list[j].visual)) { *map_info=map_list[i]; visual_template.visualid= XVisualIDFromVisual(visual_list[j].visual); break; } if (map_info->visualid != visual_template.visualid) Error("Unable to match visual to Standard Colormap",map_type); #endif if (map_info->colormap == (Colormap) NULL) Error("Standard Colormap is not initialized",map_type); XFree((void *) map_list); } else { static unsigned int rank[]= { StaticGray, GrayScale, StaticColor, DirectColor, TrueColor, PseudoColor }; XVisualInfo *p; /* Pick one visual that displays the most simultaneous colors. */ visual_info=visual_list; p=visual_list; for (i=1; i < number_visuals; i++) { p++; if (XVisualColormapSize(p) > XVisualColormapSize(visual_info)) visual_info=p; else if (XVisualColormapSize(p) == XVisualColormapSize(visual_info)) if (rank[p->class] > rank[visual_info->class]) visual_info=p; } visual_template.visualid=XVisualIDFromVisual(visual_info->visual); } XFree((void *) visual_list); /* Retrieve only one visual by its screen & id number. */ visual_info=XGetVisualInfo(display,visual_mask,&visual_template, &number_visuals); if ((number_visuals == 0) || (visual_info == (XVisualInfo *) NULL)) return((XVisualInfo *) NULL); return(visual_info); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C h e c k R e f r e s h W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XCheckRefreshWindow checks the X server for exposure events for % a particular window and updates the area associated withe exposure event. % % The format of the XCheckRefreshWindow routine is: % % XCheckRefreshWindow(display,window) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindowInfo structure. % % */ void XCheckRefreshWindow(display,window) Display *display; XWindowInfo *window; { XEvent event; XDelay(display,SuspendTime); while (XCheckTypedWindowEvent(display,window->id,Expose,&event)) XRefreshWindow(display,window,&event); XDelay(display,SuspendTime << 1); while (XCheckTypedWindowEvent(display,window->id,Expose,&event)) XRefreshWindow(display,window,&event); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C l i e n t M e s s a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XClientMessage sends a message to a window with XSendEvent. The % message is initialized with a particular protocol type and atom. % % The format of the XClientMessage function is: % % XClientMessage(display,window,protocol,message,timestamp) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window: Specifies a pointer to a Window structure. % % o protocol: Specifies an atom value. % % o message: Specifies an atom value which is the message to send. % % o timestamp: Specifies a value of type Time. % % */ void XClientMessage(display,window,protocol,message,timestamp) Display *display; Window window; Atom protocol, message; Time timestamp; { XClientMessageEvent client_event; client_event.type=ClientMessage; client_event.window=window; client_event.message_type=protocol; client_event.format=32; client_event.data.l[0]=message; client_event.data.l[1]=timestamp; XSendEvent(display,window,False,0L,(XEvent *) &client_event); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X C l i e n t W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XClientWindow finds a window, at or below the specified window, % which has a WM_STATE property. If such a window is found, it is returned, % otherwise the argument window is returned. % % The format of the XClientWindow function is: % % client_window=XClientWindow(display,target_window) % % A description of each parameter follows: % % o client_window: XClientWindow returns a window, at or below the specified % window, which has a WM_STATE property otherwise the argument % target_window is returned. % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o target_window: Specifies the window to find a WM_STATE property. % % */ Window XClientWindow(display,target_window) Display *display; Window target_window; { Atom state, type; int format, status; unsigned char *data; unsigned long after, number_items; Window client_window; state=XInternAtom(display,"WM_STATE",True); if (state == (Atom) NULL) return(target_window); type=(Atom) NULL; status=XGetWindowProperty(display,target_window,state,0L,0L,False, (Atom) AnyPropertyType,&type,&format,&number_items,&after,&data); if ((status == Success) && (type != (Atom) NULL)) return(target_window); client_window=XWindowByProperty(display,target_window,state); if (client_window == (Window) NULL) return(target_window); return(client_window); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D e l a y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDelay suspends program execution for the number of milliseconds % specified. % % The format of the Delay routine is: % % XDelay(display,milliseconds) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o milliseconds: Specifies the number of milliseconds to delay before % returning. % % */ void XDelay(display,milliseconds) Display *display; unsigned long milliseconds; { #ifndef vms #ifdef SYSV #include struct pollfd descriptor; (void) XFlush(display); if (milliseconds == 0) return; (void) poll((struct pollfd *) NULL,0,(int) milliseconds); #else struct timeval timer; (void) XFlush(display); if (milliseconds == 0) return; timer.tv_sec=milliseconds/1000; timer.tv_usec=(milliseconds % 1000)*1000; #ifdef __hpux (void) select(0,(int *) NULL,(int *) NULL,(int *) NULL,&timer); #else (void) select(0,(fd_set *) NULL,(fd_set *) NULL,(fd_set *) NULL,&timer); #endif #endif #endif } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D e s t r o y W i n d o w C o l o r s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDestroyWindowColors frees X11 color resources previously saved on % a window by XRetainWindowColors or programs like xsetroot. % % The format of the XDestroyWindowColors routine is: % % XDestroyWindowColors(display,window) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a Window structure. % % */ void XDestroyWindowColors(display,window) Display *display; Window window; { Atom property, type; int format, status; unsigned char *data; unsigned long after, length; /* If there are previous resources on the root window, destroy them. */ property=XInternAtom(display,"_XSETROOT_ID",False); if (property == (Atom) NULL) { Warning("Unable to create X property","_XSETROOT_ID"); return; } status=XGetWindowProperty(display,window,property,0L,1L,True, (Atom) AnyPropertyType,&type,&format,&length,&after,&data); if (status != Success) return; if ((type == XA_PIXMAP) && (format == 32) && (length == 1) && (after == 0)) { XKillClient(display,(XID) (*((Pixmap *) data))); XDeleteProperty(display,window,property); } if (type != None) XFree((void *) data); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X D i s p l a y I n f o S t r i n g % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XDisplayInfoString first clears the info window and draws a % text string justifed left in the x-direction and centered within the % y-direction. % % The format of the XDisplayInfoString function is: % % XDisplayInfoString(display,window_info,text) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window_info: Specifies a pointer to a XWindowInfo structure. % % o text: Specifies a pointer to a text string. % % */ void XDisplayInfoString(display,window_info,text) Display *display; XWindowInfo *window_info; char *text; { int length, x, y; unsigned int width; XFontStruct *font_info; /* Insure text will fit within the window. */ font_info=window_info->font_info; width=window_info->width-font_info->max_bounds.width; for (length=strlen(text); length > 0; length--) if (XTextWidth(font_info,text,length) <= width) break; /* Clear the info window then draw the text. */ XClearWindow(display,window_info->id); x=font_info->max_bounds.width >> 1; y=font_info->ascent+(window_info->height >> 3); XDrawString(display,window_info->id,window_info->annotate_context,x,y, text,length); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X E r r o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XError ignores BadWindow errors for XQueryTree and % XGetWindowAttributes, and ignores BadDrawable errors for XGetGeometry, and % ignores BadValue errors for XQueryColor. It returns False in those cases. % Otherwise it returns True. % % The format of the XError function is: % % XError(display,error) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o error: Specifies the error event. % % */ int XError(display,error) Display *display; XErrorEvent *error; { switch (error->request_code) { case X_GetGeometry: { if (error->error_code == BadDrawable) return(False); break; } case X_GetWindowAttributes: case X_QueryTree: { if (error->error_code == BadWindow) return(False); break; } case X_QueryColors: { if (error->error_code == BadValue) return(False); break; } } return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X F r e e R e s o u r c e s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XFreeResources frees X11 resources. % % The format of the XFreeResources routine is: % % XFreeResources(display,visual_info,map_info,pixel_info,font_info, % resource_info,window_info) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o visual_info: Specifies a pointer to a X11 XVisualInfo structure; % returned from XGetVisualInfo. % % o map_info: If map_type is specified, this structure is initialized % with info from the Standard Colormap. % % o pixel_info: Specifies a pointer to a XPixelInfo structure. % % o font_info: Specifies a pointer to a XFontStruct structure. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % */ void XFreeResources(display,visual_info,map_info,pixel_info,font_info, resource_info,window_info) Display *display; XVisualInfo *visual_info; XStandardColormap *map_info; XPixelInfo *pixel_info; XFontStruct *font_info; XResourceInfo *resource_info; XWindowInfo *window_info; { if (window_info != (XWindowInfo *) NULL) { /* Free X image. */ if (window_info->ximage != (XImage *) NULL) XDestroyImage(window_info->ximage); if (window_info->id != (Window) NULL) { /* Free destroy window and free cursors. */ if (window_info->id != XRootWindow(display,visual_info->screen)) XDestroyWindow(display,window_info->id); if (window_info->annotate_context != (GC) NULL) XFreeGC(display,window_info->annotate_context); if (window_info->highlight_context != (GC) NULL) XFreeGC(display,window_info->highlight_context); if (window_info->widget_context != (GC) NULL) XFreeGC(display,window_info->widget_context); XFreeCursor(display,window_info->cursor); XFreeCursor(display,window_info->busy_cursor); } } /* Free font. */ if (font_info != (XFontStruct *) NULL) XFreeFont(display,font_info); if (map_info != (XStandardColormap *) NULL) { /* Free X Standard Colormap. */ if (resource_info->map_type == (char *) NULL) XFreeStandardColormap(display,visual_info,map_info,pixel_info); XFree((void *) map_info); } /* Free X visual info. */ if (visual_info != (XVisualInfo *) NULL) XFree((void *) visual_info); /* Free resource database. */ if (resource_info->resource_database != (XrmDatabase) NULL) XrmDestroyDatabase(resource_info->resource_database); XCloseDisplay(display); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X F r e e S t a n d a r d C o l o r m a p % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XFreeStandardColormap frees an X11 colormap. % % The format of the XFreeStandardColormap routine is: % % XFreeStandardColormap(display,visual_info,map_info,pixel_info) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o visual_info: Specifies a pointer to a X11 XVisualInfo structure; % returned from XGetVisualInfo. % % o map_info: If map_type is specified, this structure is initialized % with info from the Standard Colormap. % % o pixel_info: Specifies a pointer to a XPixelInfo structure. % % */ void XFreeStandardColormap(display,visual_info,map_info,pixel_info) Display *display; XVisualInfo *visual_info; XStandardColormap *map_info; XPixelInfo *pixel_info; { /* Free colormap. */ XFlush(display); if (map_info->colormap != (Colormap) NULL) if (map_info->colormap != XDefaultColormap(display,visual_info->screen)) XFreeColormap(display,map_info->colormap); else if (pixel_info != (XPixelInfo *) NULL) if ((visual_info->class != TrueColor) && (visual_info->class != DirectColor)) XFreeColors(display,map_info->colormap,pixel_info->pixels, (int) pixel_info->colors,0); map_info->colormap=(Colormap) NULL; if (pixel_info != (XPixelInfo *) NULL) { if (pixel_info->pixels != (unsigned long *) NULL) (void) free((char *) pixel_info->pixels); pixel_info->pixels=(unsigned long *) NULL; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t A n n o t a t e I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetAnnotateInfo initializes the AnnotateInfo structure. % % The format of the GetAnnotateInfo routine is: % % XGetAnnotateInfo(image_info) % % A description of each parameter follows: % % o annotate_info: Specifies a pointer to a XAnnotateInfo structure. % % */ void XGetAnnotateInfo(annotate_info) XAnnotateInfo *annotate_info; { /* Initialize annotate structure. */ annotate_info->x=0; annotate_info->y=0; annotate_info->width=0; annotate_info->height=0; annotate_info->degrees=0.0; annotate_info->font_info=(XFontStruct *) NULL; annotate_info->text=(char *) NULL; *annotate_info->geometry=(char) NULL; annotate_info->previous=(XAnnotateInfo *) NULL; annotate_info->next=(XAnnotateInfo *) NULL; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t M a p I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetMapInfo initializes the XStandardColormap structure. % % The format of the XStandardColormap routine is: % % XGetMapInfo(visual_info,colormap,map_info) % % A description of each parameter follows: % % o colormap: Specifies the ID of the X server colormap. % % o visual_info: Specifies a pointer to a X11 XVisualInfo structure; % returned from XGetVisualInfo. % % o map_info: Specifies a pointer to a X11 XStandardColormap structure. % % */ void XGetMapInfo(visual_info,colormap,map_info) XVisualInfo *visual_info; Colormap colormap; XStandardColormap *map_info; { /* Initialize map info. */ map_info->colormap=colormap; map_info->red_max=visual_info->red_mask; map_info->red_mult=map_info->red_max > 0 ? 1 : 0; if (map_info->red_max > 0) while ((map_info->red_max & 0x01) == 0) { map_info->red_max>>=1; map_info->red_mult<<=1; } map_info->green_max=visual_info->green_mask; map_info->green_mult=map_info->green_max > 0 ? 1 : 0; if (map_info->green_max > 0) while ((map_info->green_max & 0x01) == 0) { map_info->green_max>>=1; map_info->green_mult<<=1; } map_info->blue_max=visual_info->blue_mask; map_info->blue_mult=map_info->blue_max > 0 ? 1 : 0; if (map_info->blue_max > 0) while ((map_info->blue_max & 0x01) == 0) { map_info->blue_max>>=1; map_info->blue_mult<<=1; } map_info->base_pixel=0; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t P i x e l I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetPixelInfo initializes the PixelInfo structure. % % The format of the XGetPixelInfo routine is: % % XGetPixelInfo(display,visual_info,map_info,resource_info,image, % pixel_info) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o visual_info: Specifies a pointer to a X11 XVisualInfo structure; % returned from XGetVisualInfo. % % o map_info: If map_type is specified, this structure is initialized % with info from the Standard Colormap. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o pixel_info: Specifies a pointer to a XPixelInfo structure. % % */ void XGetPixelInfo(display,visual_info,map_info,resource_info,image,pixel_info) Display *display; XVisualInfo *visual_info; XStandardColormap *map_info; XResourceInfo *resource_info; Image *image; XPixelInfo *pixel_info; { static char *PenColors[MaxNumberPens]= { Pen1Color, Pen2Color, Pen3Color, Pen4Color, Pen5Color, Pen6Color, Pen7Color, Pen8Color, Pen9Color, Pen0Color, }; Colormap colormap; int blue, green, red, status; register int i; unsigned int packets; /* Initialize pixel info. */ pixel_info->colors=0; if (image != (Image *) NULL) if (image->class == PseudoClass) pixel_info->colors=image->colors; packets=Max(pixel_info->colors,visual_info->colormap_size)+MaxNumberPens; pixel_info->pixels=(unsigned long *) malloc(packets*sizeof(unsigned long)); if (pixel_info->pixels == (unsigned long *) NULL) Error("Unable to get pixel info","Memory allocation failed"); /* Set foreground color. */ colormap=map_info->colormap; (void) XParseColor(display,colormap,ForegroundColor, &pixel_info->foreground_color); status=XParseColor(display,colormap,resource_info->foreground_color, &pixel_info->foreground_color); if (status == 0) Warning("Color is not known to X server",resource_info->foreground_color); pixel_info->foreground_color.pixel= XStandardPixel(map_info,pixel_info->foreground_color,16); pixel_info->foreground_color.flags=DoRed | DoGreen | DoBlue; /* Set background color. */ (void) XParseColor(display,colormap,BackgroundColor, &pixel_info->background_color); status=XParseColor(display,colormap,resource_info->background_color, &pixel_info->background_color); if (status == 0) Warning("Color is not known to X server",resource_info->background_color); pixel_info->background_color.pixel= XStandardPixel(map_info,pixel_info->background_color,16); pixel_info->background_color.flags=DoRed | DoGreen | DoBlue; /* Set border color. */ (void) XParseColor(display,colormap,BorderColor,&pixel_info->border_color); status=XParseColor(display,colormap,resource_info->border_color, &pixel_info->border_color); if (status == 0) Warning("Color is not known to X server",resource_info->border_color); pixel_info->border_color.pixel= XStandardPixel(map_info,pixel_info->border_color,16); pixel_info->border_color.flags=DoRed | DoGreen | DoBlue; /* Set matte color. */ red=(int) (278*pixel_info->background_color.red) >> 8; pixel_info->matte_color.red=(red > 65535 ? 65535 : red); green=(int) (278*pixel_info->background_color.green) >> 8; pixel_info->matte_color.green=(green > 65535 ? 65535 : green); blue=(int) (278*pixel_info->background_color.blue) >> 8; pixel_info->matte_color.blue=(blue > 65535 ? 65535 : blue); pixel_info->matte_color.pixel= XStandardPixel(map_info,pixel_info->matte_color,16); pixel_info->highlight_color.flags=DoRed | DoGreen | DoBlue; if (resource_info->matte_color != (char *) NULL) { /* Matte color is specified as a X resource or command line argument. */ status=XParseColor(display,colormap,resource_info->matte_color, &pixel_info->matte_color); if (status == 0) Warning("Color is not known to X server",resource_info->matte_color); pixel_info->matte_color.pixel= XStandardPixel(map_info,pixel_info->matte_color,16); pixel_info->matte_color.flags=DoRed | DoGreen | DoBlue; } /* Set highlight color. */ red=(int) (309*pixel_info->matte_color.red) >> 8; pixel_info->highlight_color.red=(red > 65535 ? 65535 : red); green=(int) (309*pixel_info->matte_color.green) >> 8; pixel_info->highlight_color.green=(green > 65535 ? 65535 : green); blue=(int) (309*pixel_info->matte_color.blue) >> 8; pixel_info->highlight_color.blue=(blue > 65535 ? 65535 : blue); pixel_info->highlight_color.pixel= XStandardPixel(map_info,pixel_info->highlight_color,16); pixel_info->highlight_color.flags=DoRed | DoGreen | DoBlue; /* Set shadow color. */ pixel_info->shadow_color.red=(int) (115*pixel_info->matte_color.red) >> 8; pixel_info->shadow_color.green=(int) (115*pixel_info->matte_color.green) >> 8; pixel_info->shadow_color.blue=(int) (115*pixel_info->matte_color.blue) >> 8; pixel_info->shadow_color.pixel= XStandardPixel(map_info,pixel_info->shadow_color,16); pixel_info->shadow_color.flags=DoRed | DoGreen | DoBlue; /* Set depth color. */ pixel_info->depth_color.red=(int) (209*pixel_info->matte_color.red) >> 8; pixel_info->depth_color.green=(int) (209*pixel_info->matte_color.green) >> 8; pixel_info->depth_color.blue=(int) (209*pixel_info->matte_color.blue) >> 8; pixel_info->depth_color.pixel= XStandardPixel(map_info,pixel_info->depth_color,16); pixel_info->depth_color.flags=DoRed | DoGreen | DoBlue; /* Set trough color. */ pixel_info->trough_color.red=(int) (134*pixel_info->matte_color.red) >> 8; pixel_info->trough_color.green=(int) (134*pixel_info->matte_color.green) >> 8; pixel_info->trough_color.blue=(int) (134*pixel_info->matte_color.blue) >> 8; pixel_info->trough_color.pixel= XStandardPixel(map_info,pixel_info->trough_color,16); pixel_info->trough_color.flags=DoRed | DoGreen | DoBlue; /* Set pen color. */ for (i=0; i < MaxNumberPens; i++) { (void) XParseColor(display,colormap,PenColors[i],&pixel_info->pen_color[i]); status=XParseColor(display,colormap,resource_info->pen_color[i], &pixel_info->pen_color[i]); if (status == 0) Warning("Color is not known to X server",resource_info->pen_color[i]); pixel_info->pen_color[i].pixel= XStandardPixel(map_info,pixel_info->pen_color[i],16); pixel_info->pen_color[i].flags=DoRed | DoGreen | DoBlue; } pixel_info->annotate_color=pixel_info->foreground_color; if (image != (Image *) NULL) if (image->class == PseudoClass) { /* Initialize pixel array for images of type PseudoClass. */ for (i=0; i < image->colors; i++) pixel_info->pixels[i]=XStandardPixel(map_info,image->colormap[i],8); for (i=0; i < MaxNumberPens; i++) pixel_info->pixels[image->colors+i]=pixel_info->pen_color[i].pixel; pixel_info->colors+=MaxNumberPens; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t R e s o u r c e C l a s s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetResourceClass queries the X server for the specified resource % name or class. If the resource name or class is not defined in the % database, the supplied default value is returned. % % The format of the XGetResourceClass routine is: % % value=XGetResourceClass(database,client_name,keyword,resource_default) % % A description of each parameter follows: % % o value: Function XGetResourceClass returns the resource value associated % with the name or class. If none is found, the supplied default value is % returned. % % o database: Specifies a resource database; returned from % XrmGetStringDatabase. % % o client_name: Specifies the application name used to retrieve resource % info from the X server database. % % o keyword: Specifies the keyword of the value being retrieved. % % o resource_default: Specifies the default value to return if the query % fails to find the specified keyword/class. % % */ char *XGetResourceClass(database,client_name,keyword,resource_default) XrmDatabase database; char *client_name, *keyword, *resource_default; { char *resource_type, resource_class[MaxTextLength], resource_name[MaxTextLength]; int status; XrmValue resource_value; if (database == (XrmDatabase) NULL) return(resource_default); *resource_name='\0'; *resource_class='\0'; if (keyword != (char *) NULL) { unsigned char c, k; /* Initialize resource keyword and class. */ (void) sprintf(resource_name,"%s.%s",client_name,keyword); c=(*client_name); if ((c >= XK_a) && (c <= XK_z)) c-=(XK_a-XK_A); else if ((c >= XK_agrave) && (c <= XK_odiaeresis)) c-=(XK_agrave-XK_Agrave); else if ((c >= XK_oslash) && (c <= XK_thorn)) c-=(XK_oslash-XK_Ooblique); k=(*keyword); if ((k >= XK_a) && (k <= XK_z)) k-=(XK_a-XK_A); else if ((k >= XK_agrave) && (k <= XK_odiaeresis)) k-=(XK_agrave-XK_Agrave); else if ((k >= XK_oslash) && (k <= XK_thorn)) k-=(XK_oslash-XK_Ooblique); (void) sprintf(resource_class,"%c%s.%c%s",c,client_name+1,k,keyword+1); } status=XrmGetResource(database,resource_name,resource_class,&resource_type, &resource_value); if (status == False) return(resource_default); return(resource_value.addr); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t R e s o u r c e I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetResourceInfo initializes the ResourceInfo structure. % % The format of the XGetResourceInfo routine is: % % XGetResourceInfo(resource_database,client_name,resource_info) % % A description of each parameter follows: % % o resource_database: Specifies a resource database; returned from % XrmGetStringDatabase. % % o client_name: Specifies the application name used to retrieve % resource info from the X server database. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % */ void XGetResourceInfo(resource_database,client_name,resource_info) XrmDatabase resource_database; char *client_name; XResourceInfo *resource_info; { char *resource_value; register char *p; if (client_name != (char *) NULL) { /* Get basename of client. */ p=client_name+(strlen(client_name)-1); while ((p > client_name) && (*p != '/')) p--; if (*p == '/') client_name=p+1; } /* Initialize resource info fields. */ resource_info->resource_database=resource_database; resource_value= XGetResourceClass(resource_database,client_name,"backdrop","False"); resource_info->backdrop=IsTrue(resource_value); resource_info->background_color=XGetResourceInstance(resource_database, client_name,"background",BackgroundColor); resource_info->border_color=XGetResourceInstance(resource_database, client_name,"borderColor",BorderColor); resource_value= XGetResourceClass(resource_database,client_name,"borderWidth","2"); resource_info->border_width=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"colormap","shared"); resource_info->colormap=UndefinedColormap; if (Latin1Compare("private",resource_value) == 0) resource_info->colormap=PrivateColormap; if (Latin1Compare("shared",resource_value) == 0) resource_info->colormap=SharedColormap; if (resource_info->colormap == UndefinedColormap) Warning("Unrecognized colormap type",resource_value); resource_value=XGetResourceClass(resource_database,client_name,"colors","0"); resource_info->number_colors=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"colorspace","rgb"); resource_info->colorspace=UndefinedColorspace; if (Latin1Compare("gray",resource_value) == 0) resource_info->colorspace=GRAYColorspace; if (Latin1Compare("rgb",resource_value) == 0) resource_info->colorspace=RGBColorspace; if (Latin1Compare("ohta",resource_value) == 0) resource_info->colorspace=OHTAColorspace; if (Latin1Compare("xyz",resource_value) == 0) resource_info->colorspace=XYZColorspace; if (Latin1Compare("yiq",resource_value) == 0) resource_info->colorspace=YIQColorspace; if (Latin1Compare("yuv",resource_value) == 0) resource_info->colorspace=YUVColorspace; if (resource_info->colorspace == UndefinedColorspace) Warning("Unrecognized colorspace type",resource_value); resource_info->editor_command=XGetResourceClass(resource_database,client_name, "editorCommand",EditorCommand); resource_value= XGetResourceClass(resource_database,client_name,"debug","False"); resource_info->debug=IsTrue(resource_value); resource_value=XGetResourceClass(resource_database,client_name,"delay","0"); resource_info->delay=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"dither","False"); resource_info->dither=IsTrue(resource_value); resource_info->font= XGetResourceClass(resource_database,client_name,"FontList",(char *) NULL); resource_info->font_name[0]= XGetResourceClass(resource_database,client_name,"font1","fixed"); resource_info->font_name[1]= XGetResourceClass(resource_database,client_name,"font2","variable"); resource_info->font_name[2]= XGetResourceClass(resource_database,client_name,"font3","5x8"); resource_info->font_name[3]= XGetResourceClass(resource_database,client_name,"font4","6x10"); resource_info->font_name[4]= XGetResourceClass(resource_database,client_name,"font5","7x13bold"); resource_info->font_name[5]= XGetResourceClass(resource_database,client_name,"font6","8x13bold"); resource_info->font_name[6]= XGetResourceClass(resource_database,client_name,"font7","9x15bold"); resource_info->font_name[7]= XGetResourceClass(resource_database,client_name,"font8","10x20"); resource_info->font_name[8]= XGetResourceClass(resource_database,client_name,"font9","12x24"); resource_info->font_name[9]= XGetResourceClass(resource_database,client_name,"font0","fixed"); resource_info->foreground_color=XGetResourceInstance(resource_database, client_name,"foreground",ForegroundColor); resource_info->icon_geometry=XGetResourceClass(resource_database,client_name, "iconGeometry",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"gravity","North"); resource_info->gravity=(-1); if (Latin1Compare("Forget",resource_value) == 0) resource_info->gravity=ForgetGravity; if (Latin1Compare("NorthWest",resource_value) == 0) resource_info->gravity=NorthWestGravity; if (Latin1Compare("North",resource_value) == 0) resource_info->gravity=NorthGravity; if (Latin1Compare("NorthEast",resource_value) == 0) resource_info->gravity=NorthEastGravity; if (Latin1Compare("West",resource_value) == 0) resource_info->gravity=WestGravity; if (Latin1Compare("Center",resource_value) == 0) resource_info->gravity=CenterGravity; if (Latin1Compare("East",resource_value) == 0) resource_info->gravity=EastGravity; if (Latin1Compare("SouthWest",resource_value) == 0) resource_info->gravity=SouthWestGravity; if (Latin1Compare("South",resource_value) == 0) resource_info->gravity=SouthGravity; if (Latin1Compare("SouthEast",resource_value) == 0) resource_info->gravity=SouthEastGravity; if (Latin1Compare("Static",resource_value) == 0) resource_info->gravity=StaticGravity; if (resource_info->gravity == (-1)) { Warning("Unrecognized gravity type",resource_value); resource_info->gravity=CenterGravity; } resource_value= XGetResourceClass(resource_database,client_name,"iconic","False"); resource_info->iconic=IsTrue(resource_value); resource_info->image_geometry=XGetResourceClass(resource_database, client_name,"imageGeometry",(char *) NULL); resource_value=XGetResourceClass(resource_database,client_name,"magnify","3"); resource_info->magnify=atoi(resource_value); resource_info->map_type= XGetResourceClass(resource_database,client_name,"map",(char *) NULL); resource_info->matte_color=XGetResourceInstance(resource_database, client_name,"mattecolor",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"monochrome","False"); resource_info->monochrome=IsTrue(resource_value); resource_info->name= XGetResourceClass(resource_database,client_name,"name",(char *) NULL); resource_info->pen_color[0]= XGetResourceClass(resource_database,client_name,"pen1","black"); resource_info->pen_color[1]= XGetResourceClass(resource_database,client_name,"pen2","blue"); resource_info->pen_color[2]= XGetResourceClass(resource_database,client_name,"pen3","cyan"); resource_info->pen_color[3]= XGetResourceClass(resource_database,client_name,"pen4","green"); resource_info->pen_color[4]= XGetResourceClass(resource_database,client_name,"pen5","gray"); resource_info->pen_color[5]= XGetResourceClass(resource_database,client_name,"pen6","red"); resource_info->pen_color[6]= XGetResourceClass(resource_database,client_name,"pen7","magenta"); resource_info->pen_color[7]= XGetResourceClass(resource_database,client_name,"pen8","yellow"); resource_info->pen_color[8]= XGetResourceClass(resource_database,client_name,"pen9","white"); resource_info->pen_color[9]= XGetResourceClass(resource_database,client_name,"pen0","gray"); resource_info->print_command=XGetResourceClass(resource_database,client_name, "printCommand",PrintCommand); resource_info->server_name= XGetResourceClass(resource_database,client_name,"serverName",(char *) NULL); resource_info->title= XGetResourceClass(resource_database,client_name,"title",(char *) NULL); resource_value= XGetResourceClass(resource_database,client_name,"treeDepth","0"); resource_info->tree_depth=atoi(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"update","False"); resource_info->update=IsTrue(resource_value); resource_value= XGetResourceClass(resource_database,client_name,"usePixmap","False"); resource_info->use_pixmap=IsTrue(resource_value); resource_info->visual_type= XGetResourceClass(resource_database,client_name,"visual",(char *) NULL); resource_info->window_id= XGetResourceClass(resource_database,client_name,"window",(char *) NULL); resource_info->write_filename=XGetResourceClass(resource_database, client_name,"writeFilename",(char *) NULL); /* Handle side-effects. */ if (resource_info->monochrome) { resource_info->number_colors=2; resource_info->tree_depth=8; resource_info->dither=True; resource_info->colorspace=GRAYColorspace; } if (resource_info->colorspace == GRAYColorspace) { resource_info->number_colors=256; resource_info->tree_depth=8; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t R e s o u r c e I n s t a n c e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetResourceInstance queries the X server for the specified % resource name. If the resource name is not defined in the database, the % supplied default value is returned. % % The format of the XGetResourceInstance routine is: % % value=XGetResourceInstance(database,client_name,keyword,resource_default) % % A description of each parameter follows: % % o value: Function XGetResourceInstance returns the resource value % associated with the name or class. If none is found, the supplied % default value is returned. % % o database: Specifies a resource database; returned from % XrmGetStringDatabase. % % o client_name: Specifies the application name used to retrieve % resource info from the X server database. % % o keyword: Specifies the keyword of the value being retrieved. % % o resource_default: Specifies the default value to return if the query % fails to find the specified keyword/class. % % */ static char *XGetResourceInstance(database,client_name,keyword,resource_default) XrmDatabase database; char *client_name, *keyword, *resource_default; { char *resource_type, resource_name[MaxTextLength]; int status; XrmValue resource_value; if (database == (XrmDatabase) NULL) return(resource_default); *resource_name='\0'; if (keyword != (char *) NULL) (void) sprintf(resource_name,"%s.%s",client_name,keyword); status=XrmGetResource(database,resource_name,(char *) NULL,&resource_type, &resource_value); if (status == False) return(resource_default); return(resource_value.addr); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t W i n d o w C o l o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetWindowColor returns the color of a pixel interactively choosen % from the X server. % % The format of the XGetWindowColor routine is: % % status=XGetWindowColor(display,color) % % A description of each parameter follows: % % o status: Function XGetWindowColor returns True if the color is obtained % from the X server. False is returned if any errors occurs. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o color: The color of the pixel choosen is returned in this XColor % structure. % % */ unsigned int XGetWindowColor(display,color) Display *display; XColor *color; { int x, y; RectangleInfo clip_info; unsigned int status; Window child, client_window, root_window, target_window; XImage *ximage; XWindowAttributes window_attributes; /* Choose a pixel from the X server. */ target_window=XSelectWindow(display,&clip_info); root_window=XRootWindow(display,XDefaultScreen(display)); client_window=target_window; if (target_window != root_window) { unsigned int d; /* Get client window. */ status=XGetGeometry(display,target_window,&root_window,&x,&x,&d,&d,&d,&d); if (status != 0) { client_window=XClientWindow(display,target_window); target_window=client_window; } } /* Verify window is viewable. */ status=XGetWindowAttributes(display,target_window,&window_attributes); if ((status == False) || (window_attributes.map_state != IsViewable)) return(False); /* Get window X image. */ XTranslateCoordinates(display,root_window,target_window,clip_info.x, clip_info.y,&x,&y,&child); ximage=XGetImage(display,target_window,x,y,1,1,AllPlanes,ZPixmap); if (ximage == (XImage *) NULL) return(False); color->pixel=XGetPixel(ximage,0,0); XDestroyImage(ximage); /* Query X server for pixel color. */ XQueryColor(display,window_attributes.colormap,color); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t W i n d o w I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetWindowImage reads an image from the target X window and returns % it. XGetWindowImage optionally descends the window hierarchy and overlays % the target image with each subwindow image. % % The format of the XGetWindowImage routine is: % % image=XGetWindowImage(display,window,borders,level) % % A description of each parameter follows: % % o image: Function XGetWindowImage returns a MIFF image if it can be % successfully read from the X window. A null image is returned if % any errors occurs. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies the window to obtain the image from. % % o borders: Specifies whether borders pixels are to be saved with % the image. % % o level: Specifies an unsigned integer representing the level of % decent in the window hierarchy. This value must be zero or one on % the initial call to XGetWindowImage. A value of zero returns after % one call. A value of one causes the function to descend the window % hierarchy and overlays the target image with each subwindow image. % % */ Image *XGetWindowImage(display,window,borders,level) Display *display; Window window; unsigned int borders, level; { typedef struct _ColormapList { Colormap colormap; XColor *colors; struct _ColormapList *next; } ColormapList; GC annotate_context; Image *image; int display_height, display_width, number_colors, status, x_offset, y_offset; RectangleInfo clip_info; register int i, x, y; register RunlengthPacket *p; register unsigned long pixel; static ColormapList *colormap_list = (ColormapList *) NULL; Window child, root_window; XColor *colors; XGCValues context_values; XImage *ximage; XWindowAttributes window_attributes; /* Verify window is viewable. */ status=XGetWindowAttributes(display,window,&window_attributes); if ((status == False) || (window_attributes.map_state != IsViewable)) return((Image *) NULL); /* Clipping rectangle is relative to root window. */ root_window=XRootWindow(display,XDefaultScreen(display)); XTranslateCoordinates(display,window,root_window,0,0,&x_offset,&y_offset, &child); clip_info.x=x_offset; clip_info.y=y_offset; clip_info.width=window_attributes.width; clip_info.height=window_attributes.height; if (borders) { /* Include border in image. */ clip_info.x-=window_attributes.border_width; clip_info.y-=window_attributes.border_width; clip_info.width+=window_attributes.border_width << 1; clip_info.height+=window_attributes.border_width << 1; } /* Clip to root window. */ if (clip_info.x < 0) { if ((clip_info.x+(int) clip_info.width) < 0) return((Image *) NULL); clip_info.width+=clip_info.x; clip_info.x=0; } if (clip_info.y < 0) { if ((clip_info.y+(int) clip_info.height) < 0) return((Image *) NULL); clip_info.height+=clip_info.y; clip_info.y=0; } display_width=XDisplayWidth(display,XDefaultScreen(display)); if ((clip_info.x+(int) clip_info.width) > display_width) { if (clip_info.x >= display_width) return((Image *) NULL); clip_info.width=display_width-clip_info.x; } display_height=XDisplayHeight(display,XDefaultScreen(display)); if ((clip_info.y+(int) clip_info.height) > display_height) { if (clip_info.y >= display_height) return((Image *) NULL); clip_info.height=display_height-clip_info.y; } clip_info.x-=x_offset; clip_info.y-=y_offset; /* Alert user we are about to get an X region by flashing a border. */ context_values.background=XBlackPixel(display,XDefaultScreen(display)); context_values.foreground=XWhitePixel(display,XDefaultScreen(display)); context_values.function=GXinvert; context_values.plane_mask= context_values.background ^ context_values.foreground; context_values.subwindow_mode=IncludeInferiors; annotate_context=XCreateGC(display,window,GCBackground | GCForeground | GCFunction | GCPlaneMask | GCSubwindowMode,&context_values); if (annotate_context != (GC) NULL) { XHighlightRegion(display,window,annotate_context,&clip_info); XDelay(display,SuspendTime << 2); XHighlightRegion(display,window,annotate_context,&clip_info); } /* Get window X image. */ ximage=XGetImage(display,window,clip_info.x,clip_info.y,clip_info.width, clip_info.height,AllPlanes,ZPixmap); if (ximage == (XImage *) NULL) return((Image *) NULL); number_colors=0; colors=(XColor *) NULL; if (window_attributes.colormap != (Colormap) NULL) { ColormapList *p; /* Search colormap list for window colormap. */ number_colors=window_attributes.visual->map_entries; for (p=colormap_list; p != (ColormapList *) NULL; p=p->next) if (p->colormap == window_attributes.colormap) break; if (p == (ColormapList *) NULL) { /* Get the window colormap. */ colors=(XColor *) malloc(number_colors*sizeof(XColor)); if (colors == (XColor *) NULL) { XDestroyImage(ximage); return((Image *) NULL); } if ((window_attributes.visual->class != DirectColor) && (window_attributes.visual->class != TrueColor)) for (i=0; i < number_colors; i++) { colors[i].pixel=i; colors[i].pad=0; } else { unsigned long blue, blue_bit, green, green_bit, red, red_bit; /* DirectColor or TrueColor visual. */ red=0; green=0; blue=0; red_bit=window_attributes.visual->red_mask & (~(window_attributes.visual->red_mask)+1); green_bit=window_attributes.visual->green_mask & (~(window_attributes.visual->green_mask)+1); blue_bit=window_attributes.visual->blue_mask & (~(window_attributes.visual->blue_mask)+1); for (i=0; i < number_colors; i++) { colors[i].pixel=red | green | blue; colors[i].pad=0; red+=red_bit; if (red > window_attributes.visual->red_mask) red=0; green+=green_bit; if (green > window_attributes.visual->green_mask) green=0; blue+=blue_bit; if (blue > window_attributes.visual->blue_mask) blue=0; } } XQueryColors(display,window_attributes.colormap,colors, (int) number_colors); /* Append colormap to colormap list. */ p=(ColormapList *) malloc(sizeof(ColormapList)); p->colormap=window_attributes.colormap; p->colors=colors; p->next=colormap_list; colormap_list=p; } colors=p->colors; } /* Allocate image structure. */ image=AllocateImage((ImageInfo *) NULL); if (image == (Image *) NULL) { XDestroyImage(ximage); return((Image *) NULL); } /* Convert X image to MIFF format. */ if ((window_attributes.visual->class != TrueColor) && (window_attributes.visual->class != DirectColor)) image->class=PseudoClass; image->columns=ximage->width; image->rows=ximage->height; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc((unsigned int) image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { XDestroyImage(ximage); DestroyImage(image); return((Image *) NULL); } p=image->pixels; switch (image->class) { case DirectClass: { register unsigned long color, index; unsigned long blue_mask, blue_shift, green_mask, green_shift, red_mask, red_shift; /* Determine shift and mask for red, green, and blue. */ red_mask=window_attributes.visual->red_mask; red_shift=0; while ((red_mask & 0x01) == 0) { red_mask>>=1; red_shift++; } green_mask=window_attributes.visual->green_mask; green_shift=0; while ((green_mask & 0x01) == 0) { green_mask>>=1; green_shift++; } blue_mask=window_attributes.visual->blue_mask; blue_shift=0; while ((blue_mask & 0x01) == 0) { blue_mask>>=1; blue_shift++; } /* Convert X image to DirectClass packets. */ if ((number_colors > 0) && (window_attributes.visual->class == DirectColor)) for (y=0; y < image->rows; y++) { for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); index=(pixel >> red_shift) & red_mask; p->red=(unsigned char) (colors[index].red >> 8); index=(pixel >> green_shift) & green_mask; p->green=(unsigned char) (colors[index].green >> 8); index=(pixel >> blue_shift) & blue_mask; p->blue=(unsigned char) (colors[index].blue >> 8); p->index=0; p->length=0; p++; } } else for (y=0; y < image->rows; y++) for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); color=(pixel >> red_shift) & red_mask; p->red=(unsigned char) ((((unsigned long) color*65535)/red_mask) >> 8); color=(pixel >> green_shift) & green_mask; p->green=(unsigned char) ((((unsigned long) color*65535)/green_mask) >> 8); color=(pixel >> blue_shift) & blue_mask; p->blue=(unsigned char) ((((unsigned long) color*65535)/blue_mask) >> 8); p->index=0; p->length=0; p++; } break; } case PseudoClass: { /* Create colormap. */ image->colors=number_colors; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { XDestroyImage(ximage); DestroyImage(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[colors[i].pixel].red=colors[i].red >> 8; image->colormap[colors[i].pixel].green=colors[i].green >> 8; image->colormap[colors[i].pixel].blue=colors[i].blue >> 8; } /* Convert X image to PseudoClass packets. */ for (y=0; y < image->rows; y++) for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); p->index=(unsigned short) pixel; p->length=0; p++; } SyncImage(image); break; } } XDestroyImage(ximage); if (annotate_context != (GC) NULL) { /* Alert user we got the X region by flashing a border. */ XHighlightRegion(display,window,annotate_context,&clip_info); XFlush(display); XHighlightRegion(display,window,annotate_context,&clip_info); XFreeGC(display,annotate_context); } if (level != 0) { unsigned int number_children; Window *children, parent; /* Descend the window hierarchy and overlay with each subwindow image. */ status=XQueryTree(display,window,&root_window,&parent,&children, &number_children); if ((status == True) && (number_children != 0)) { Image *child_image; /* Composite any children in back-to-front order. */ for (i=0; i < number_children; i++) { child_image=XGetWindowImage(display,children[i],False,level+1); if (child_image != (Image *) NULL) { /* Composite child window image. */ XTranslateCoordinates(display,children[i],window,0,0,&x_offset, &y_offset,&child); x_offset-=clip_info.x; if (x_offset < 0) x_offset=0; y_offset-=clip_info.y; if (y_offset < 0) y_offset=0; CompositeImage(image,ReplaceCompositeOp,child_image,x_offset, y_offset); DestroyImage(child_image); } } XFree((void *) children); } } if (level <= 1) { ColormapList *next; /* Free resources. */ while (colormap_list != (ColormapList *) NULL) { next=colormap_list->next; (void) free((char *) colormap_list->colors); (void) free((char *) colormap_list); colormap_list=next; } if (image->class == PseudoClass) CompressColormap(image); } return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X G e t W i n d o w I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XGetWindowInfo initializes the XWindowInfo structure. % % The format of the XGetWindowInfo routine is: % % XGetWindowInfo(display,visual_info,map_info,pixel_info,font_info, % resource_info,window) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o visual_info: Specifies a pointer to a X11 XVisualInfo structure; % returned from XGetVisualInfo. % % o map_info: If map_type is specified, this structure is initialized % with info from the Standard Colormap. % % o pixel_info: Specifies a pointer to a XPixelInfo structure. % % o font_info: Specifies a pointer to a XFontStruct structure. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % */ void XGetWindowInfo(display,visual_info,map_info,pixel_info,font_info, resource_info,window) Display *display; XVisualInfo *visual_info; XStandardColormap *map_info; XPixelInfo *pixel_info; XFontStruct *font_info; XResourceInfo *resource_info; XWindowInfo *window; { /* Initialize window info. */ window->screen=visual_info->screen; window->visual=visual_info->visual; window->class=visual_info->class; window->depth=visual_info->depth; window->visual_info=visual_info; window->map_info=map_info; window->pixel_info=pixel_info; window->font_info=font_info; window->cursor=XCreateFontCursor(display,XC_left_ptr); window->busy_cursor=XCreateFontCursor(display,XC_watch); window->name=(char *) NULL; window->geometry=(char *) NULL; window->icon_name=(char *) NULL; window->icon_geometry=resource_info->icon_geometry; window->clip_geometry=(char *) NULL; window->flags=PSize; window->x=0; window->y=0; window->width=1; window->height=1; window->min_width=1; window->min_height=1; window->width_inc=1; window->height_inc=1; window->border_width=resource_info->border_width; window->annotate_context=pixel_info->annotate_context; window->highlight_context=pixel_info->highlight_context; window->widget_context=pixel_info->widget_context; window->shadow_stipple=(Pixmap) NULL; window->highlight_stipple=(Pixmap) NULL; window->immutable=False; window->mask=CWBackingStore | CWBackPixel | CWBackPixmap | CWBitGravity | CWBorderPixel | CWColormap | CWCursor | CWDontPropagate | CWEventMask | CWOverrideRedirect | CWSaveUnder | CWWinGravity; window->attributes.background_pixel=pixel_info->background_color.pixel; window->attributes.background_pixmap=(Pixmap) NULL; window->attributes.backing_store=NotUseful; window->attributes.bit_gravity=ForgetGravity; window->attributes.border_pixel=pixel_info->border_color.pixel; window->attributes.colormap=map_info->colormap; window->attributes.cursor=window->cursor; window->attributes.do_not_propagate_mask=NoEventMask; window->attributes.event_mask=NoEventMask; window->attributes.override_redirect=False; window->attributes.save_under=False; window->attributes.win_gravity=NorthWestGravity; if (window->id == (Window) NULL) { window->id=(Window) NULL; window->ximage=(XImage *) NULL; window->pixmap=(Pixmap) NULL; window->mapped=False; window->stasis=False; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X H i g h l i g h t L i n e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XHighlightLine puts a border on the X server around a region % defined by highlight_info. % % The format of the XHighlightLine routine is: % % XHighlightLine(display,window,annotate_context,highlight_info) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a Window structure. % % o annotate_context: Specifies a pointer to a GC structure. % % o highlight_info: Specifies a pointer to a RectangleInfo structure. It % contains the extents of any highlighting rectangle. % % */ void XHighlightLine(display,window,annotate_context,highlight_info) Display *display; Window window; GC annotate_context; XSegment *highlight_info; { XDrawLine(display,window,annotate_context,highlight_info->x1, highlight_info->y1,highlight_info->x2,highlight_info->y2); XDrawLine(display,window,annotate_context,highlight_info->x1, highlight_info->y1+2,highlight_info->x2,highlight_info->y2+2); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X H i g h l i g h t R e g i o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XHighlightRegion puts a border on the X server around a region % defined by highlight_info. % % The format of the XHighlightRegion routine is: % % XHighlightRegion(display,window,annotate_context,highlight_info) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a Window structure. % % o annotate_context: Specifies a pointer to a GC structure. % % o highlight_info: Specifies a pointer to a RectangleInfo structure. It % contains the extents of any highlighting rectangle. % % */ void XHighlightRegion(display,window,annotate_context,highlight_info) Display *display; Window window; GC annotate_context; RectangleInfo *highlight_info; { if ((highlight_info->width < 4) || (highlight_info->height < 4)) return; XDrawRectangle(display,window,annotate_context,highlight_info->x, highlight_info->y,highlight_info->width-1,highlight_info->height-1); XDrawRectangle(display,window,annotate_context,highlight_info->x+1, highlight_info->y+1,highlight_info->width-3,highlight_info->height-3); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X L i s t C o l o r s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XListColors reads the X client color database and returns a list % of colors contained in the database sorted in ascending mattebetic order. % % The format of the XListColors function is: % % filelist=XListColors(pattern,number_colors) % % A description of each parameter follows: % % o filelist: Function XListColors returns a list of colors contained % in the database. If the database cannot be read, a NULL list is % returned. % % o pattern: Specifies a pointer to a text string containing a pattern. % % o number_colors: This integer returns the number of colors in the list. % % */ static int ColorCompare(x,y) const void *x, *y; { register char *p, *q; p=(char *) *((char **) x); q=(char *) *((char **) y); while ((*p != '\0') && (*q != '\0') && (*p == *q)) { p++; q++; } return(*p-(*q)); } char **XListColors(pattern,number_colors) char *pattern; int *number_colors; { char color[MaxTextLength], **colorlist, text[MaxTextLength]; FILE *database; int blue, count, green, red; unsigned int max_colors; /* Open database. */ *number_colors=0; database=fopen(RGBColorDatabase,"r"); if (database == (FILE *) NULL) return((char **) NULL); /* Allocate color list. */ max_colors=2048; colorlist=(char **) malloc(max_colors*sizeof(char *)); if (colorlist == (char **) NULL) { (void) fclose(database); return((char **) NULL); } while (fgets(text,MaxTextLength,database) != (char *) NULL) { count=sscanf(text,"%d %d %d %[^\n]\n",&red,&green,&blue,color); if (count != 4) continue; if (GlobExpression(color,pattern)) { if (*number_colors >= max_colors) { max_colors<<=1; colorlist=(char **) realloc((char *) colorlist,max_colors*sizeof(char *)); if (colorlist == (char **) NULL) { (void) fclose(database); return((char **) NULL); } } colorlist[*number_colors]=(char *) malloc(strlen(color)+1); if (colorlist[*number_colors] == (char *) NULL) break; (void) strcpy(colorlist[*number_colors],color); (*number_colors)++; } } (void) fclose(database); /* Sort colorlist in ascending order. */ (void) qsort((void *) colorlist,*number_colors,sizeof(char **),ColorCompare); return(colorlist); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e C u r s o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakeCursor creates a crosshairs X11 cursor. % % The format of the XMakeCursor routine is: % % XMakeCursor(display,window,colormap,background_color,foreground_color) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies the ID of the window for which the cursor is % assigned. % % o colormap: Specifies the ID of the colormap from which the background % and foreground color will be retrieved. % % o background_color: Specifies the color to use for the cursor background. % % o foreground_color: Specifies the color to use for the cursor foreground. % % */ Cursor XMakeCursor(display,window,colormap,background_color,foreground_color) Display *display; Window window; Colormap colormap; char *background_color, *foreground_color; { #define scope_height 17 #define scope_x_hot 8 #define scope_y_hot 8 #define scope_width 17 static unsigned char scope_bits[] = { 0x80, 0x03, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x7f, 0xfc, 0x01, 0x01, 0x00, 0x01, 0x7f, 0xfc, 0x01, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x02, 0x00, 0x80, 0x03, 0x00 }; static unsigned char scope_mask_bits[] = { 0xc0, 0x07, 0x00, 0xc0, 0x07, 0x00, 0xc0, 0x06, 0x00, 0xc0, 0x06, 0x00, 0xc0, 0x06, 0x00, 0xc0, 0x06, 0x00, 0xff, 0xfe, 0x01, 0x7f, 0xfc, 0x01, 0x03, 0x80, 0x01, 0x7f, 0xfc, 0x01, 0xff, 0xfe, 0x01, 0xc0, 0x06, 0x00, 0xc0, 0x06, 0x00, 0xc0, 0x06, 0x00, 0xc0, 0x06, 0x00, 0xc0, 0x07, 0x00, 0xc0, 0x07, 0x00 }; Cursor cursor; Pixmap mask, source; XColor background, foreground; source=XCreateBitmapFromData(display,window,(char *) scope_bits,scope_width, scope_height); mask=XCreateBitmapFromData(display,window,(char *) scope_mask_bits, scope_width,scope_height); if ((source == (Pixmap) NULL) || (mask == (Pixmap) NULL)) Error("Unable to create pixmap",(char *) NULL); XParseColor(display,colormap,background_color,&background); XParseColor(display,colormap,foreground_color,&foreground); cursor=XCreatePixmapCursor(display,source,mask,&foreground,&background, scope_x_hot,scope_y_hot); XFreePixmap(display,source); XFreePixmap(display,mask); return(cursor); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakeImage creates an X11 image. If the image size differs from % the X11 image size, the image is first resized. % % The format of the XMakeImage routine is: % % status=XMakeImage(display,resource_info,window,image,width,height) % % A description of each parameter follows: % % o status: Function XMakeImage returns True if the X image is % successfully created. False is returned is there is a memory shortage. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o window: Specifies a pointer to a XWindowInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o width: Specifies the width in pixels of the rectangular area to % display. % % o height: Specifies the height in pixels of the rectangular area to % display. % % */ unsigned int XMakeImage(display,resource_info,window,image,width,height) Display *display; XResourceInfo *resource_info; XWindowInfo *window; Image *image; unsigned int width, height; { Image *transformed_image; int format; XImage *ximage; if ((window->width == 0) || (window->height == 0)) return(False); /* Display busy cursor. */ XDefineCursor(display,window->id,window->busy_cursor); XFlush(display); transformed_image=image; if (image != (Image *) NULL) { /* Apply user transforms to the image. */ if (window->clip_geometry) { Image *clipped_image; RectangleInfo clip_info; /* Clip image. */ (void) XParseGeometry(window->clip_geometry,&clip_info.x,&clip_info.y, &clip_info.width,&clip_info.height); transformed_image->orphan=True; clipped_image=ClipImage(transformed_image,&clip_info); transformed_image->orphan=False; if (transformed_image != image) DestroyImage(transformed_image); if (clipped_image == (Image *) NULL) return(False); transformed_image=clipped_image; } if ((width != transformed_image->columns) || (height != transformed_image->rows)) { Image *scaled_image; /* Scale image. */ transformed_image->orphan=True; if (window->pixel_info->colors != 0) scaled_image=SampleImage(transformed_image,width,height); else scaled_image=ScaleImage(transformed_image,width,height); transformed_image->orphan=False; if (transformed_image != image) DestroyImage(transformed_image); if (scaled_image == (Image *) NULL) return(False); transformed_image=scaled_image; } width=transformed_image->columns; height=transformed_image->rows; } /* Create X image. */ format=(window->depth == 1) ? XYBitmap : ZPixmap; ximage=XCreateImage(display,window->visual,window->depth,format,0, (char *) NULL,width,height,XBitmapPad(display),0); if (ximage == (XImage *) NULL) { /* Unable to create X image. */ XDefineCursor(display,window->id,window->cursor); return(False); } if (resource_info->debug) { (void) fprintf(stderr,"XImage:\n"); (void) fprintf(stderr," width, height: %dx%d\n",ximage->width, ximage->height); (void) fprintf(stderr," format: %d\n",ximage->format); (void) fprintf(stderr," byte order: %d\n",ximage->byte_order); (void) fprintf(stderr," bitmap unit, bit order, pad: %d %d %d\n", ximage->bitmap_unit,ximage->bitmap_bit_order,ximage->bitmap_pad); (void) fprintf(stderr," depth: %d\n",ximage->depth); (void) fprintf(stderr," bytes per line: %d\n",ximage->bytes_per_line); (void) fprintf(stderr," bits per pixel: %d\n",ximage->bits_per_pixel); (void) fprintf(stderr," red, green, blue masks: 0x%lx 0x%lx 0x%lx\n", ximage->red_mask,ximage->green_mask,ximage->blue_mask); } /* Allocate X image pixel data. */ if (ximage->format == XYBitmap) ximage->data=(char *) malloc(ximage->bytes_per_line*ximage->height*ximage->depth); else ximage->data=(char *) malloc(ximage->bytes_per_line*ximage->height); if (ximage->data == (char *) NULL) { /* Unable to allocate pixel data. */ XDestroyImage(ximage); XDefineCursor(display,window->id,window->cursor); return(False); } if (window->ximage != (XImage *) NULL) XDestroyImage(window->ximage); window->ximage=ximage; window->stasis=False; if (image == (Image *) NULL) { XDefineCursor(display,window->id,window->cursor); return(True); } /* Convert runlength-encoded pixels to X image data. */ if ((ximage->byte_order == LSBFirst) || ((ximage->format == XYBitmap) && (ximage->bitmap_bit_order == LSBFirst))) XMakeImageLSBFirst(window,transformed_image,ximage); else XMakeImageMSBFirst(window,transformed_image,ximage); if (transformed_image != image) DestroyImage(transformed_image); /* Restore cursor. */ XDefineCursor(display,window->id,window->cursor); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e I m a g e L S B F i r s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakeImageLSBFirst initializes the pixel data of an X11 Image. % The X image pixels are copied in least-significant bit and byte first % order. The server's scanline pad is respected. Rather than using one or % two general cases, many special cases are found here to help speed up the % image conversion. % % The format of the XMakeImageLSBFirst routine is: % % XMakeImageLSBFirst(window,image,ximage) % % A description of each parameter follows: % % o window: Specifies a pointer to a XWindowInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o ximage: Specifies a pointer to a XImage structure; returned from % XCreateImage. % % */ static void XMakeImageLSBFirst(window,image,ximage) XWindowInfo *window; Image *image; XImage *ximage; { register int i, j, x; register RunlengthPacket *p; register unsigned char *q; register unsigned long pixel; unsigned int scanline_pad; unsigned long *pixels; pixels=window->pixel_info->pixels; p=image->pixels; q=(unsigned char *) ximage->data; x=0; if (ximage->format == XYBitmap) { register unsigned char background, bit, byte, foreground; register unsigned short polarity; /* Convert image to big-endian bitmap. */ background=(Intensity(window->pixel_info->foreground_color) < Intensity(window->pixel_info->background_color) ? 0x80 : 0x00); foreground=(Intensity(window->pixel_info->background_color) < Intensity(window->pixel_info->foreground_color) ? 0x80 : 0x00); polarity=Intensity(image->colormap[0]) < Intensity(image->colormap[1]); scanline_pad=ximage->bytes_per_line-(ximage->width >> 3); bit=0; byte=0; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { byte>>=1; if (p->index == polarity) byte|=foreground; else byte|=background; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == ximage->width) { /* Advance to the next scanline. */ if (bit != 0) *q=byte >> (8-bit); q+=scanline_pad; bit=0; byte=0; x=0; } } p++; } } else { XStandardColormap *map_info; /* Convert image to little-endian color-mapped X image. */ map_info=window->map_info; scanline_pad=ximage->bytes_per_line- ((ximage->width*ximage->bits_per_pixel) >> 3); if (window->pixel_info->colors != 0) switch (ximage->bits_per_pixel) { case 2: { register unsigned int nibble; /* Convert to 2 bit color-mapped X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=pixels[p->index] & 0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) pixel; nibble++; break; } case 1: { *q|=(unsigned char) (pixel << 2); nibble++; break; } case 2: { *q|=(unsigned char) (pixel << 4); nibble++; break; } case 3: { *q|=(unsigned char) (pixel << 6); q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 4: { register unsigned int nibble; /* Convert to 4 bit color-mapped X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=pixels[p->index] & 0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) pixel; nibble++; break; } case 1: { *q|=(unsigned char) (pixel << 4); q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 6: case 8: { /* Convert to 8 bit color-mapped X image. */ for (i=0; i < image->packets; i++) { pixel=pixels[p->index]; for (j=0; j <= ((int) p->length); j++) { *q++=(unsigned char) pixel; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } break; } default: { register int k; register unsigned int bytes_per_pixel; unsigned char channel[sizeof(unsigned long)]; /* Convert to multi-byte color-mapped X image. */ bytes_per_pixel=ximage->bits_per_pixel >> 3; for (i=0; i < image->packets; i++) { pixel=pixels[p->index]; for (k=0; k < bytes_per_pixel; k++) { channel[k]=(unsigned char) pixel; pixel>>=8; } for (j=0; j <= ((int) p->length); j++) { for (k=0; k < bytes_per_pixel; k++) *q++=channel[k]; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } break; } } else { /* Convert image to little-endian continuous-tone X image. */ switch (ximage->bits_per_pixel) { case 2: { register unsigned int nibble; /* Convert to contiguous 2 bit continuous-tone X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); pixel&=0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) pixel; nibble++; break; } case 1: { *q|=(unsigned char) (pixel << 2); nibble++; break; } case 2: { *q|=(unsigned char) (pixel << 4); nibble++; break; } case 3: { *q|=(unsigned char) (pixel << 6); q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 4: { register unsigned int nibble; /* Convert to contiguous 4 bit continuous-tone X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); pixel&=0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) pixel; nibble++; break; } case 1: { *q|=(unsigned char) (pixel << 4); q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 6: case 8: { /* Convert to contiguous 8 bit continuous-tone X image. */ for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); for (j=0; j <= ((int) p->length); j++) { *q++=(unsigned char) pixel; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } break; } default: { if ((ximage->bits_per_pixel == 32) && (map_info->red_max == 255) && (map_info->green_max == 255) && (map_info->blue_max == 255) && (map_info->red_mult == 65536) && (map_info->green_mult == 256) && (map_info->blue_mult == 1)) { /* Convert to 32 bit continuous-tone X image. */ for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=p->blue; *q++=p->green; *q++=p->red; *q++=0; } p++; } } else { register int k; register unsigned int bytes_per_pixel; unsigned char channel[sizeof(unsigned long)]; /* Convert to multi-byte continuous-tone X image. */ bytes_per_pixel=ximage->bits_per_pixel >> 3; for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); for (k=0; k < bytes_per_pixel; k++) { channel[k]=(unsigned char) pixel; pixel>>=8; } for (j=0; j <= ((int) p->length); j++) { for (k=0; k < bytes_per_pixel; k++) *q++=channel[k]; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } } break; } } } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e I m a g e M S B F i r s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakeImageMSBFirst initializes the pixel data of an X11 Image. % The X image pixels are copied in most-significant bit and byte first order. % The server's scanline pad is also resprected. Rather than using one or two % general cases, many special cases are found here to help speed up the image % conversion. % % The format of the XMakeImageMSBFirst routine is: % % XMakeImageMSBFirst(window,image,ximage) % % A description of each parameter follows: % % o window: Specifies a pointer to a XWindowInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o ximage: Specifies a pointer to a XImage structure; returned from % XCreateImage. % % */ static void XMakeImageMSBFirst(window,image,ximage) XWindowInfo *window; Image *image; XImage *ximage; { register int i, j, x; register RunlengthPacket *p; register unsigned char *q; register unsigned long pixel; unsigned int scanline_pad; unsigned long *pixels; pixels=window->pixel_info->pixels; p=image->pixels; q=(unsigned char *) ximage->data; x=0; if (ximage->format == XYBitmap) { register unsigned char background, bit, byte, foreground; register unsigned short polarity; /* Convert image to big-endian bitmap. */ background=(Intensity(window->pixel_info->foreground_color) < Intensity(window->pixel_info->background_color) ? 0x01 : 0x00); foreground=(Intensity(window->pixel_info->background_color) < Intensity(window->pixel_info->foreground_color) ? 0x01 : 0x00); polarity=Intensity(image->colormap[0]) < Intensity(image->colormap[1]); scanline_pad=ximage->bytes_per_line-(ximage->width >> 3); bit=0; byte=0; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { byte<<=1; if (p->index == polarity) byte|=foreground; else byte|=background; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == ximage->width) { /* Advance to the next scanline. */ if (bit != 0) *q=byte << (8-bit); q+=scanline_pad; bit=0; byte=0; x=0; } } p++; } } else { XStandardColormap *map_info; /* Convert image to big-endian X image. */ map_info=window->map_info; scanline_pad=ximage->bytes_per_line- ((ximage->width*ximage->bits_per_pixel) >> 3); if (window->pixel_info->colors != 0) switch (ximage->bits_per_pixel) { case 2: { register unsigned int nibble; /* Convert to 2 bit color-mapped X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=pixels[p->index] & 0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) (pixel << 6); nibble++; break; } case 1: { *q|=(unsigned char) (pixel << 4); nibble++; break; } case 2: { *q|=(unsigned char) (pixel << 2); nibble++; break; } case 3: { *q|=(unsigned char) pixel; q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 4: { register unsigned int nibble; /* Convert to 4 bit color-mapped X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=pixels[p->index] & 0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) (pixel << 4); nibble++; break; } case 1: { *q|=(unsigned char) pixel; q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 8: { /* Convert to 8 bit color-mapped X image. */ for (i=0; i < image->packets; i++) { pixel=pixels[p->index]; for (j=0; j <= ((int) p->length); j++) { *q++=(unsigned char) pixel; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } break; } default: { register int k; register unsigned int bytes_per_pixel; unsigned char channel[sizeof(unsigned long)]; /* Convert to 8 bit color-mapped X image. */ bytes_per_pixel=ximage->bits_per_pixel >> 3; for (i=0; i < image->packets; i++) { pixel=pixels[p->index]; for (k=bytes_per_pixel-1; k >= 0; k--) { channel[k]=(unsigned char) pixel; pixel>>=8; } for (j=0; j <= ((int) p->length); j++) { for (k=0; k < bytes_per_pixel; k++) *q++=channel[k]; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } break; } } else { /* Convert to big-endian continuous-tone X image. */ switch (ximage->bits_per_pixel) { case 2: { register unsigned int nibble; /* Convert to 4 bit continuous-tone X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); pixel&=0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) (pixel << 6); nibble++; break; } case 1: { *q|=(unsigned char) (pixel << 4); nibble++; break; } case 2: { *q|=(unsigned char) (pixel << 2); nibble++; break; } case 3: { *q|=(unsigned char) pixel; q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 4: { register unsigned int nibble; /* Convert to 4 bit continuous-tone X image. */ nibble=0; for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); pixel&=0xf; for (j=0; j <= ((int) p->length); j++) { switch (nibble) { case 0: { *q=(unsigned char) (pixel << 4); nibble++; break; } case 1: { *q|=(unsigned char) pixel; q++; nibble=0; break; } } x++; if (x == ximage->width) { x=0; nibble=0; q+=scanline_pad; } } p++; } break; } case 8: { /* Convert to 8 bit continuous-tone X image. */ for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); for (j=0; j <= ((int) p->length); j++) { *q++=(unsigned char) pixel; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } break; } default: { if ((ximage->bits_per_pixel == 32) && (map_info->red_max == 255) && (map_info->green_max == 255) && (map_info->blue_max == 255) && (map_info->red_mult == 65536) && (map_info->green_mult == 256) && (map_info->blue_mult == 1)) { /* Convert to 32 bit continuous-tone X image. */ for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=0; *q++=p->red; *q++=p->green; *q++=p->blue; } p++; } } else { register int k; register unsigned int bytes_per_pixel; unsigned char channel[sizeof(unsigned long)]; /* Convert to multi-byte continuous-tone X image. */ bytes_per_pixel=ximage->bits_per_pixel >> 3; for (i=0; i < image->packets; i++) { pixel=XStandardPixel(map_info,(*p),8); for (k=bytes_per_pixel-1; k >= 0; k--) { channel[k]=(unsigned char) pixel; pixel>>=8; } for (j=0; j <= ((int) p->length); j++) { for (k=0; k < bytes_per_pixel; k++) *q++=channel[k]; x++; if (x == ximage->width) { x=0; q+=scanline_pad; } } p++; } } break; } } } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e M a g n i f y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakeMagnifyImage magnifies a region of an X image and displays it. % % The format of the XMakeMagnifyImage routine is: % % XMakeMagnifyImage(display,windows) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o windows: Specifies a pointer to a XWindows structure. % % */ void XMakeMagnifyImage(display,windows) Display *display; XWindows *windows; { register int x, y; register unsigned char *p, *q; register unsigned int j, k, l; static char text[MaxTextLength]; static unsigned int previous_magnify=0; static XWindowInfo magnify_window; unsigned int height, i, magnify, scanline_pad, width; XColor color; XImage *ximage; /* Check boundry conditions. */ magnify=1; for (i=1; i < windows->magnify.data; i++) magnify<<=1; while ((magnify*windows->image.ximage->width) < windows->magnify.width) magnify<<=1; while ((magnify*windows->image.ximage->height) < windows->magnify.height) magnify<<=1; while (magnify > windows->magnify.width) magnify>>=1; while (magnify > windows->magnify.height) magnify>>=1; if (magnify != previous_magnify) { unsigned int status; XTextProperty window_name; /* New magnify factor: update magnify window name. */ i=0; while ((1 << i) <= magnify) i++; (void) sprintf(windows->magnify.name,"Magnify %uX",i); status=XStringListToTextProperty(&windows->magnify.name,1,&window_name); if (status != 0) XSetWMName(display,windows->magnify.id,&window_name); } previous_magnify=magnify; ximage=windows->image.ximage; width=windows->magnify.ximage->width; height=windows->magnify.ximage->height; x=windows->magnify.x-((width/magnify) >> 1); if (x < 0) x=0; else if (x > (ximage->width-(width/magnify))) x=ximage->width-width/magnify; y=windows->magnify.y-((height/magnify) >> 1); if (y < 0) y=0; else if (y > (ximage->height-(height/magnify))) y=ximage->height-height/magnify; q=(unsigned char *) windows->magnify.ximage->data; scanline_pad=windows->magnify.ximage->bytes_per_line- ((width*windows->magnify.ximage->bits_per_pixel) >> 3); if (ximage->bits_per_pixel < 8) { register unsigned char background, byte, foreground, p_bit, q_bit; register unsigned int plane; XPixelInfo *pixel_info; pixel_info=windows->magnify.pixel_info; switch (ximage->bitmap_bit_order) { case LSBFirst: { /* Magnify little-endian bitmap. */ background=0x00; foreground=0x80; if (ximage->format == XYBitmap) { background=(Intensity(pixel_info->foreground_color) < Intensity(pixel_info->background_color) ? 0x80 : 0x00); foreground=(Intensity(pixel_info->background_color) < Intensity(pixel_info->foreground_color) ? 0x80 : 0x00); } for (i=0; i < height; i+=magnify) { /* Propogate pixel magnify rows. */ for (j=0; j < magnify; j++) { p=(unsigned char *) ximage->data+y*ximage->bytes_per_line+ ((x*ximage->bits_per_pixel) >> 3); p_bit=(x*ximage->bits_per_pixel) & 0x07; q_bit=0; byte=0; for (k=0; k < width; k+=magnify) { /* Propogate pixel magnify columns. */ for (l=0; l < magnify; l++) { /* Propogate each bit plane. */ for (plane=0; plane < ximage->bits_per_pixel; plane++) { byte>>=1; if (*p & (0x01 << (p_bit+plane))) byte|=foreground; else byte|=background; q_bit++; if (q_bit == 8) { *q++=byte; q_bit=0; byte=0; } } } p_bit+=ximage->bits_per_pixel; if (p_bit == 8) { p++; p_bit=0; } if (q_bit != 0) *q=byte >> (8-q_bit); q+=scanline_pad; } } y++; } break; } case MSBFirst: default: { /* Magnify big-endian bitmap. */ background=0x00; foreground=0x01; if (ximage->format == XYBitmap) { background=(Intensity(pixel_info->foreground_color) < Intensity(pixel_info->background_color) ? 0x01 : 0x00); foreground=(Intensity(pixel_info->background_color) < Intensity(pixel_info->foreground_color) ? 0x01 : 0x00); } for (i=0; i < height; i+=magnify) { /* Propogate pixel magnify rows. */ for (j=0; j < magnify; j++) { p=(unsigned char *) ximage->data+y*ximage->bytes_per_line+ ((x*ximage->bits_per_pixel) >> 3); p_bit=(x*ximage->bits_per_pixel) & 0x07; q_bit=0; byte=0; for (k=0; k < width; k+=magnify) { /* Propogate pixel magnify columns. */ for (l=0; l < magnify; l++) { /* Propogate each bit plane. */ for (plane=0; plane < ximage->bits_per_pixel; plane++) { byte<<=1; if (*p & (0x80 >> (p_bit+plane))) byte|=foreground; else byte|=background; q_bit++; if (q_bit == 8) { *q++=byte; q_bit=0; byte=0; } } } p_bit+=ximage->bits_per_pixel; if (p_bit == 8) { p++; p_bit=0; } if (q_bit != 0) *q=byte << (8-q_bit); q+=scanline_pad; } } y++; } break; } } } else switch (ximage->bits_per_pixel) { case 8: { /* Magnify 8 bit X image. */ for (i=0; i < height; i+=magnify) { /* Propogate pixel magnify rows. */ for (j=0; j < magnify; j++) { p=(unsigned char *) ximage->data+y*ximage->bytes_per_line+ ((x*ximage->bits_per_pixel) >> 3); for (k=0; k < width; k+=magnify) { /* Propogate pixel magnify columns. */ for (l=0; l < magnify; l++) *q++=(*p); p++; } q+=scanline_pad; } y++; } break; } default: { register unsigned int bytes_per_pixel, m; /* Magnify multi-byte X image. */ bytes_per_pixel=ximage->bits_per_pixel >> 3; for (i=0; i < height; i+=magnify) { /* Propogate pixel magnify rows. */ for (j=0; j < magnify; j++) { p=(unsigned char *) ximage->data+y*ximage->bytes_per_line+ ((x*ximage->bits_per_pixel) >> 3); for (k=0; k < width; k+=magnify) { /* Propogate pixel magnify columns. */ for (l=0; l < magnify; l++) for (m=0; m < bytes_per_pixel; m++) *q++=(*(p+m)); p+=bytes_per_pixel; } q+=scanline_pad; } y++; } break; } } /* Copy X image to magnify pixmap. */ x=windows->magnify.x-((width/magnify) >> 1); if (x < 0) x=(width >> 1)-windows->magnify.x*magnify; else if (x > (ximage->width-(width/magnify))) x=(ximage->width-windows->magnify.x)*magnify-(width >> 1); else x=0; y=windows->magnify.y-((height/magnify) >> 1); if (y < 0) y=(height >> 1)-windows->magnify.y*magnify; else if (y > (ximage->height-(height/magnify))) y=(ximage->height-windows->magnify.y)*magnify-(height >> 1); else y=0; if ((x != 0) || (y != 0)) XFillRectangle(display,windows->magnify.pixmap, windows->magnify.annotate_context,0,0,width,height); XPutImage(display,windows->magnify.pixmap,windows->magnify.annotate_context, windows->magnify.ximage,0,0,x,y,width-x,height-y); if ((magnify > 1) && ((magnify <= (width >> 1)) && (magnify <= (height >> 1)))) { RectangleInfo highlight_info; /* Highlight center pixel. */ highlight_info.x=windows->magnify.width >> 1; highlight_info.y=windows->magnify.height >> 1; highlight_info.width=magnify; highlight_info.height=magnify; XDrawRectangle(display,windows->magnify.pixmap, windows->magnify.highlight_context,highlight_info.x,highlight_info.y, highlight_info.width-1,highlight_info.height-1); XDrawRectangle(display,windows->magnify.pixmap, windows->magnify.annotate_context,highlight_info.x+1,highlight_info.y+1, highlight_info.width-3,highlight_info.height-3); } /* Show center pixel color. */ color.pixel= XGetPixel(windows->image.ximage,windows->magnify.x,windows->magnify.y); XQueryColor(display,windows->image.map_info->colormap,&color); if (windows->magnify.depth > 12) (void) sprintf(text,"%+d%+d (%3u,%3u,%3u)",windows->magnify.x, windows->magnify.y,color.red >> 8,color.green >> 8,color.blue >> 8); else (void) sprintf(text,"%+d%+d (%3u,%3u,%3u) %lu ",windows->magnify.x, windows->magnify.y,color.red >> 8,color.green >> 8,color.blue >> 8, color.pixel); height=windows->magnify.font_info->ascent+windows->magnify.font_info->descent; x=(3*windows->magnify.font_info->max_bounds.width) >> 2; y=windows->magnify.font_info->ascent+(height >> 2); XDrawImageString(display,windows->magnify.pixmap, windows->magnify.annotate_context,x,y,text,strlen(text)); /* Refresh magnify window. */ magnify_window=windows->magnify; magnify_window.x=0; magnify_window.y=0; XRefreshWindow(display,&magnify_window,(XEvent *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e P i x m a p % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakePixmap creates an X11 pixmap. % % The format of the XMakePixmap routine is: % % status=XMakePixmap(display,resource_info,window) % % A description of each parameter follows: % % o status: Function XMakePixmap returns True if the X pixmap is % successfully created. False is returned is there is a memory shortage. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindowInfo structure. % % */ unsigned int XMakePixmap(display,resource_info,window) Display *display; XResourceInfo *resource_info; XWindowInfo *window; { if (window->ximage == (XImage *) NULL) return(False); /* Display busy cursor. */ XDefineCursor(display,window->id,window->busy_cursor); XFlush(display); /* Create pixmap. */ if (window->pixmap != (Pixmap) NULL) XFreePixmap(display,window->pixmap); window->pixmap=XCreatePixmap(display,window->id,(unsigned int) window->ximage->width,(unsigned int) window->ximage->height,window->depth); if (window->pixmap == (Pixmap) NULL) { /* Unable to allocate pixmap. */ XDefineCursor(display,window->id,window->cursor); return(False); } /* Copy X image to pixmap. */ XPutImage(display,window->pixmap,window->annotate_context,window->ximage, 0,0,0,0,(unsigned int) window->ximage->width, (unsigned int) window->ximage->height); if (resource_info->debug) { (void) fprintf(stderr,"Pixmap:\n"); (void) fprintf(stderr," width, height: %dx%d\n",window->ximage->width, window->ximage->height); } /* Restore cursor. */ XDefineCursor(display,window->id,window->cursor); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e S t a n d a r d C o l o r m a p % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakeStandardColormap creates an X11 Standard Colormap. % % The format of the XMakeStandardColormap routine is: % % XMakeStandardColormap(display,visual_info,resource_info,image, % map_info,pixel_info) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o visual_info: Specifies a pointer to a X11 XVisualInfo structure; % returned from XGetVisualInfo. % % o resource_info: Specifies a pointer to a X11 XResourceInfo structure. % % o image: Specifies a pointer to a Image structure; returned from % ReadImage. % % o map_info: If a Standard Colormap type is specified, this structure is % initialized with info from the Standard Colormap. % % o pixel_info: Specifies a pointer to a XPixelInfo structure. % % */ static int IntensityCompare(x,y) const void *x, *y; { DiversityPacket *color_1, *color_2; color_1=(DiversityPacket *) x; color_2=(DiversityPacket *) y; return((int) Intensity(*color_2)-(int) Intensity(*color_1)); } static int PopularityCompare(x,y) const void *x, *y; { DiversityPacket *color_1, *color_2; color_1=(DiversityPacket *) x; color_2=(DiversityPacket *) y; return((int) color_2->count-(int) color_1->count); } void XMakeStandardColormap(display,visual_info,resource_info,image,map_info, pixel_info) Display *display; XVisualInfo *visual_info; XResourceInfo *resource_info; Image *image; XStandardColormap *map_info; XPixelInfo *pixel_info; { Colormap colormap; int status; register int i; unsigned int gray_value, number_colors, retain_colors; XColor color, *colors, *p; if (resource_info->map_type != (char *) NULL) { /* Standard Colormap is already defined (i.e. xstdcmap). */ if (pixel_info->pixels != (unsigned long *) NULL) (void) free((char *) pixel_info->pixels); XGetPixelInfo(display,visual_info,map_info,resource_info,image, pixel_info); return; } if ((visual_info->class != DirectColor) && (visual_info->class != TrueColor)) if ((image->class == DirectClass) || (image->colors > visual_info->colormap_size)) { /* Image has more colors than the visual supports. */ QuantizeImage(image,(unsigned int) visual_info->colormap_size, resource_info->tree_depth,resource_info->dither, resource_info->colorspace,False); image->class=DirectClass; /* promote to DirectClass */ } /* Free previous and create new colormap. */ XFreeStandardColormap(display,visual_info,map_info,pixel_info); colormap=XDefaultColormap(display,visual_info->screen); if (visual_info->visual != XDefaultVisual(display,visual_info->screen)) colormap=XCreateColormap(display,XRootWindow(display,visual_info->screen), visual_info->visual,visual_info->class == DirectColor ? AllocAll : AllocNone); if (colormap == (Colormap) NULL) Error("Unable to create colormap",(char *) NULL); /* Initialize the map and pixel info structures. */ XGetMapInfo(visual_info,colormap,map_info); XGetPixelInfo(display,visual_info,map_info,resource_info,image,pixel_info); /* Allocating colors in server colormap is based on visual class. */ switch (visual_info->class) { case StaticGray: case StaticColor: { /* Define Standard Colormap for StaticGray or StaticColor visual. */ number_colors=image->colors; colors=(XColor *) malloc(visual_info->colormap_size*sizeof(XColor)); if (colors == (XColor *) NULL) Error("Unable to create colormap","Memory allocation failed"); p=colors; color.flags=DoRed | DoGreen | DoBlue; if (visual_info->class == StaticColor) for (i=0; i < image->colors; i++) { color.red=(unsigned short) (image->colormap[i].red << 8); color.green=(unsigned short) (image->colormap[i].green << 8); color.blue=(unsigned short) (image->colormap[i].blue << 8); status=XAllocColor(display,colormap,&color); if (status == 0) { colormap=XCopyColormapAndFree(display,colormap); XAllocColor(display,colormap,&color); } pixel_info->pixels[i]=color.pixel; *p++=color; } else for (i=0; i < image->colors; i++) { gray_value=Intensity(image->colormap[i]); color.red=(unsigned short) (gray_value << 8); color.green=(unsigned short) (gray_value << 8); color.blue=(unsigned short) (gray_value << 8); status=XAllocColor(display,colormap,&color); if (status == 0) { colormap=XCopyColormapAndFree(display,colormap); XAllocColor(display,colormap,&color); } pixel_info->pixels[i]=color.pixel; *p++=color; } break; } case GrayScale: case PseudoColor: { unsigned int colormap_type; /* Define Standard Colormap for GrayScale or PseudoColor visual. */ number_colors=image->colors; colors=(XColor *) malloc(visual_info->colormap_size*sizeof(XColor)); if (colors == (XColor *) NULL) Error("Unable to create colormap","Memory allocation failed"); /* Preallocate our GUI colors. */ (void) XAllocColor(display,colormap,&pixel_info->foreground_color); (void) XAllocColor(display,colormap,&pixel_info->background_color); (void) XAllocColor(display,colormap,&pixel_info->border_color); (void) XAllocColor(display,colormap,&pixel_info->matte_color); (void) XAllocColor(display,colormap,&pixel_info->highlight_color); (void) XAllocColor(display,colormap,&pixel_info->shadow_color); (void) XAllocColor(display,colormap,&pixel_info->depth_color); (void) XAllocColor(display,colormap,&pixel_info->trough_color); for (i=0; i < MaxNumberPens; i++) (void) XAllocColor(display,colormap,&pixel_info->pen_color[i]); /* Determine if image colors will "fit" into X server colormap. */ colormap_type=resource_info->colormap; status=XAllocColorCells(display,colormap,False,(unsigned long *) NULL,0, pixel_info->pixels,image->colors); if (status != 0) colormap_type=PrivateColormap; if (colormap_type == SharedColormap) { DiversityPacket *diversity; register RunlengthPacket *q; unsigned short index; /* Define Standard colormap for shared GrayScale or PseudoColor visual: */ diversity=(DiversityPacket *) malloc(image->colors*sizeof(DiversityPacket)); if (diversity == (DiversityPacket *) NULL) Error("Unable to create colormap","Memory allocation failed"); for (i=0; i < image->colors; i++) { diversity[i].red=image->colormap[i].red; diversity[i].green=image->colormap[i].green; diversity[i].blue=image->colormap[i].blue; diversity[i].index=(unsigned short) i; diversity[i].count=0; } q=image->pixels; for (i=0; i < image->packets; i++) { diversity[q->index].count+=(q->length+1); q++; } /* Sort colors by decreasing intensity. */ (void) qsort((void *) diversity,image->colors,sizeof(DiversityPacket), IntensityCompare); for (i=0; i < image->colors; i+=Max(image->colors >> 4,2)) diversity[i].count<<=4; /* increase this colors popularity */ diversity[image->colors-1].count<<=4; (void) qsort((void *) diversity,image->colors,sizeof(DiversityPacket), PopularityCompare); /* Allocate colors. */ p=colors; color.flags=DoRed | DoGreen | DoBlue; if (visual_info->class == PseudoColor) for (i=0; i < image->colors; i++) { index=diversity[i].index; color.red=(unsigned short) (image->colormap[index].red << 8); color.green=(unsigned short) (image->colormap[index].green << 8); color.blue=(unsigned short) (image->colormap[index].blue << 8); status=XAllocColor(display,colormap,&color); if (status == 0) break; pixel_info->pixels[index]=color.pixel; *p++=color; } else for (i=0; i < image->colors; i++) { index=diversity[i].index; gray_value=Intensity(image->colormap[index]); color.red=(unsigned short) (gray_value << 8); color.green=(unsigned short) (gray_value << 8); color.blue=(unsigned short) (gray_value << 8); status=XAllocColor(display,colormap,&color); if (status == 0) break; pixel_info->pixels[index]=color.pixel; *p++=color; } if (i < image->colors) { register int j; XColor *server_colors; /* Read X server colormap. */ server_colors=(XColor *) malloc(visual_info->colormap_size*sizeof(XColor)); if (server_colors == (XColor *) NULL) Error("Unable to create colormap","Memory allocation failed"); for (j=0; j < visual_info->colormap_size; j++) server_colors[j].pixel=(unsigned long) j; XQueryColors(display,colormap,server_colors, (int) Min(visual_info->colormap_size,256)); /* Select remaining colors from X server colormap. */ if (visual_info->class == PseudoColor) for (; i < image->colors; i++) { index=diversity[i].index; color.red=(unsigned short) (image->colormap[index].red << 8); color.green=(unsigned short) (image->colormap[index].green << 8); color.blue=(unsigned short) (image->colormap[index].blue << 8); XBestPixel(display,colormap,server_colors, (unsigned int) visual_info->colormap_size,&color); pixel_info->pixels[index]=color.pixel; *p++=color; } else for (; i < image->colors; i++) { index=diversity[i].index; gray_value=Intensity(image->colormap[index]); color.red=(unsigned short) (gray_value << 8); color.green=(unsigned short) (gray_value << 8); color.blue=(unsigned short) (gray_value << 8); XBestPixel(display,colormap,server_colors, (unsigned int) visual_info->colormap_size,&color); pixel_info->pixels[index]=color.pixel; *p++=color; } if (image->colors < visual_info->colormap_size) { /* Fill up colors array-- more choices for pen colors. */ retain_colors= Min(visual_info->colormap_size-image->colors,256); for (i=0; i < retain_colors; i++) *p++=server_colors[i]; number_colors+=retain_colors; } (void) free((char *) server_colors); } (void) free((char *) diversity); break; } /* Define Standard colormap for private GrayScale or PseudoColor visual. */ if (status == 0) { /* Not enough colormap entries in the colormap-- Create a new colormap. */ colormap=XCreateColormap(display, XRootWindow(display,visual_info->screen),visual_info->visual, AllocNone); if (colormap == (Colormap) NULL) Error("Unable to create colormap",(char *) NULL); map_info->colormap=colormap; if (image->colors < visual_info->colormap_size) { /* Retain colors from the default colormap to help lessens the effects of colormap flashing. */ retain_colors=Min(visual_info->colormap_size-image->colors,256); p=colors+image->colors; for (i=0; i < retain_colors; i++) { p->pixel=(unsigned long) i; p++; } XQueryColors(display, XDefaultColormap(display,visual_info->screen), colors+image->colors,(int) retain_colors); /* Transfer colors from default to private colormap. */ XAllocColorCells(display,colormap,False,(unsigned long *) NULL,0, pixel_info->pixels,retain_colors); p=colors+image->colors; for (i=0; i < retain_colors; i++) { p->pixel=pixel_info->pixels[i]; p++; } XStoreColors(display,colormap,colors+image->colors,retain_colors); number_colors+=retain_colors; } XAllocColorCells(display,colormap,False,(unsigned long *) NULL,0, pixel_info->pixels,image->colors); } /* Store the image colormap. */ p=colors; color.flags=DoRed | DoGreen | DoBlue; if (visual_info->class == PseudoColor) for (i=0; i < image->colors; i++) { color.red=(unsigned short) (image->colormap[i].red << 8); color.green=(unsigned short) (image->colormap[i].green << 8); color.blue=(unsigned short) (image->colormap[i].blue << 8); color.pixel=pixel_info->pixels[i]; *p++=color; } else for (i=0; i < image->colors; i++) { gray_value=Intensity(image->colormap[i]); color.red=(unsigned short) (gray_value << 8); color.green=(unsigned short) (gray_value << 8); color.blue=(unsigned short) (gray_value << 8); color.pixel=pixel_info->pixels[i]; *p++=color; } XStoreColors(display,colormap,colors,image->colors); break; } case TrueColor: case DirectColor: default: { unsigned int linear_colormap; /* Define Standard Colormap for TrueColor or DirectColor visual. */ number_colors=(unsigned int) ((map_info->red_max*map_info->red_mult)+ (map_info->green_max*map_info->green_mult)+ (map_info->blue_max*map_info->blue_mult)+1); linear_colormap= ((map_info->red_max+1) == visual_info->colormap_size) && ((map_info->green_max+1) == visual_info->colormap_size) && ((map_info->blue_max+1) == visual_info->colormap_size); if (linear_colormap) number_colors=visual_info->colormap_size; /* Allocate color array. */ colors=(XColor *) malloc(number_colors*sizeof(XColor)); if (colors == (XColor *) NULL) Error("Unable to create colormap","Memory allocation failed"); /* Initialize linear color ramp. */ p=colors; color.flags=DoRed | DoGreen | DoBlue; if (linear_colormap) for (i=0; i < number_colors; i++) { color.blue=(unsigned short) 0; if (map_info->blue_max > 0) color.blue=(unsigned short) (((i % map_info->green_mult)*65535)/map_info->blue_max); color.green=color.blue; color.red=color.blue; color.pixel=XStandardPixel(map_info,color,16); *p++=color; } else for (i=0; i < number_colors; i++) { color.red=(unsigned short) 0; if (map_info->red_max > 0) color.red=(unsigned short) (((i/map_info->red_mult)*65535)/map_info->red_max); color.green=(unsigned short) 0; if (map_info->green_max > 0) color.green=(unsigned short) ((((i/map_info->green_mult) % (map_info->green_max+1))*65535)/map_info->green_max); color.blue=(unsigned short) 0; if (map_info->blue_max > 0) color.blue=(unsigned short) (((i % map_info->green_mult)*65535)/map_info->blue_max); color.pixel=XStandardPixel(map_info,color,16); *p++=color; } if ((visual_info->class == DirectColor) && (colormap != XDefaultColormap(display,visual_info->screen))) XStoreColors(display,colormap,colors,number_colors); else for (i=0; i < number_colors; i++) XAllocColor(display,colormap,&colors[i]); break; } } if ((visual_info->class != DirectColor) && (visual_info->class != TrueColor)) { /* Set foreground, background, border, etc. pixels. */ XBestPixel(display,colormap,colors,number_colors, &pixel_info->foreground_color); XBestPixel(display,colormap,colors,number_colors, &pixel_info->background_color); if (pixel_info->background_color.pixel == pixel_info->foreground_color.pixel) { /* Foreground and background colors must differ. */ pixel_info->background_color.red=(~pixel_info->foreground_color.red); pixel_info->background_color.green= (~pixel_info->foreground_color.green); pixel_info->background_color.blue= (~pixel_info->foreground_color.blue); XBestPixel(display,colormap,colors,number_colors, &pixel_info->background_color); } XBestPixel(display,colormap,colors,number_colors, &pixel_info->border_color); XBestPixel(display,colormap,colors,number_colors, &pixel_info->matte_color); XBestPixel(display,colormap,colors,number_colors, &pixel_info->highlight_color); XBestPixel(display,colormap,colors,number_colors, &pixel_info->shadow_color); XBestPixel(display,colormap,colors,number_colors, &pixel_info->depth_color); XBestPixel(display,colormap,colors,number_colors, &pixel_info->trough_color); for (i=0; i < MaxNumberPens; i++) { XBestPixel(display,colormap,colors,number_colors, &pixel_info->pen_color[i]); pixel_info->pixels[image->colors+i]=pixel_info->pen_color[i].pixel; } pixel_info->colors=image->colors+MaxNumberPens; } (void) free((char *) colors); if (resource_info->debug) { (void) fprintf(stderr,"Standard Colormap:\n"); (void) fprintf(stderr," colormap id: 0x%lx\n",map_info->colormap); (void) fprintf(stderr," red, green, blue max: %lu %lu %lu\n", map_info->red_max,map_info->green_max,map_info->blue_max); (void) fprintf(stderr," red, green, blue mult: %lu %lu %lu\n", map_info->red_mult,map_info->green_mult,map_info->blue_mult); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X M a k e W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XMakeWindow creates an X11 window. % % The format of the XMakeWindow routine is: % % XMakeWindow(display,parent,argv,argc,class_hint,manager_hints,property, % window_info) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o parent: Specifies the parent window_info. % % o argv: Specifies the application's argument list. % % o argc: Specifies the number of arguments. % % o class_hint: Specifies a pointer to a X11 XClassHint structure. % % o manager_hints: Specifies a pointer to a X11 XWMHints structure. % % o property: A property to define on the window_info. % % o window_info: Specifies a pointer to a X11 XWindowInfo structure. % % */ void XMakeWindow(display,parent,argv,argc,class_hint,manager_hints,property, window_info) Display *display; Window parent; char **argv; int argc; XClassHint *class_hint; XWMHints *manager_hints; Atom property; XWindowInfo *window_info; { #define MinWindowSize 64 int status; XSizeHints *size_hints; XTextProperty icon_name, window_name; /* Set window_info hints. */ size_hints=XAllocSizeHints(); if (size_hints == (XSizeHints *) NULL) Error("Unable to make X window","Memory allocation failed"); size_hints->flags=window_info->flags; size_hints->x=window_info->x; size_hints->y=window_info->y; size_hints->width=window_info->width; size_hints->height=window_info->height; if (!window_info->immutable) { /* Window size can be changed. */ size_hints->min_width=window_info->min_width; size_hints->min_height=window_info->min_height; size_hints->flags|=PMinSize; } else { /* Window size cannot be changed. */ size_hints->min_width=window_info->width; size_hints->min_height=window_info->height; size_hints->max_width=window_info->width; size_hints->max_height=window_info->height; size_hints->flags|=PMinSize | PMaxSize; } size_hints->flags|=PResizeInc; size_hints->width_inc=window_info->width_inc; size_hints->height_inc=window_info->height_inc; #ifndef PRE_R4_ICCCM size_hints->flags|=PBaseSize; size_hints->base_width=size_hints->width_inc; size_hints->base_height=size_hints->height_inc; #endif if (window_info->geometry != (char *) NULL) { char default_geometry[MaxTextLength], geometry[MaxTextLength]; int flags, gravity; register char *p; /* User specified geometry. */ (void) sprintf(default_geometry,"%dx%d",size_hints->width, size_hints->height); (void) strcpy(geometry,window_info->geometry); p=geometry; while ((int) strlen(p) > 0) { if (!isspace(*p) && (*p != '%')) p++; else (void) strcpy(p,p+1); } flags=XWMGeometry(display,window_info->screen,geometry,default_geometry, window_info->border_width,size_hints,&size_hints->x,&size_hints->y, &size_hints->width,&size_hints->height,&gravity); if ((flags & WidthValue) && (flags & HeightValue)) size_hints->flags|=USSize; if ((flags & XValue) && (flags & YValue)) { size_hints->flags|=USPosition; window_info->x=size_hints->x; window_info->y=size_hints->y; } #ifndef PRE_R4_ICCCM size_hints->win_gravity=gravity; size_hints->flags|=PWinGravity; #endif } if (window_info->id == (Window) NULL) window_info->id=XCreateWindow(display,parent,window_info->x,window_info->y, window_info->width,window_info->height,window_info->border_width, window_info->depth,InputOutput,window_info->visual,window_info->mask, &window_info->attributes); else { unsigned int mask; XEvent sans_event; XWindowChanges window_changes; /* Window already exists; change relevant attributes. */ XChangeWindowAttributes(display,window_info->id,window_info->mask, &window_info->attributes); mask=ConfigureNotify; while (XCheckTypedWindowEvent(display,window_info->id,mask,&sans_event)); window_changes.x=window_info->x; window_changes.y=window_info->y; window_changes.width=window_info->width; window_changes.height=window_info->height; mask=CWWidth | CWHeight; if (window_info->flags & USPosition) mask|=CWX | CWY; XReconfigureWMWindow(display,window_info->id,window_info->screen,mask, &window_changes); } if (window_info->id == (Window) NULL) Error("Unable to create window",window_info->name); status=XStringListToTextProperty(&window_info->name,1,&window_name); if (status == 0) Error("Unable to create text property",window_info->name); status=XStringListToTextProperty(&window_info->icon_name,1,&icon_name); if (status == 0) Error("Unable to create text property",window_info->icon_name); if (window_info->icon_geometry != (char *) NULL) { int flags, gravity, height, width; /* User specified icon geometry. */ size_hints->flags|=USPosition; flags=XWMGeometry(display,window_info->screen,window_info->icon_geometry, (char *) NULL,0,size_hints,&manager_hints->icon_x, &manager_hints->icon_y,&width,&height,&gravity); if ((flags & XValue) && (flags & YValue)) manager_hints->flags|=IconPositionHint; } XSetWMProperties(display,window_info->id,&window_name,&icon_name,argv,argc, size_hints,manager_hints,class_hint); if (property != (Atom) NULL) XSetWMProtocols(display,window_info->id,&property,1); XFree((void *) size_hints); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X R e f r e s h W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XRefreshWindow refreshes an image in a X window. % % The format of the XRefreshWindow routine is: % % XRefreshWindow(display,window,event) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindowInfo structure. % % o event: Specifies a pointer to a XEvent structure. If it is NULL, % the entire image is refreshed. % % */ void XRefreshWindow(display,window,event) Display *display; XWindowInfo *window; XEvent *event; { int x, y; unsigned int height, width; if (event != (XEvent *) NULL) { /* Determine geometry from expose event. */ x=event->xexpose.x; y=event->xexpose.y; width=event->xexpose.width; height=event->xexpose.height; } else { XEvent sans_event; /* Refresh entire window; discard outstanding expose events. */ x=0; y=0; width=window->width; height=window->height; while (XCheckTypedWindowEvent(display,window->id,Expose,&sans_event)); } /* Check boundary conditions. */ if ((window->ximage->width-(x+window->x)) < width) width=window->ximage->width-(x+window->x); if ((window->ximage->height-(y+window->y)) < height) height=window->ximage->height-(y+window->y); /* Refresh image. */ if (window->pixmap != (Pixmap) NULL) { if (window->depth > 1) XCopyArea(display,window->pixmap,window->id,window->annotate_context, x+window->x,y+window->y,width,height,x,y); else XCopyPlane(display,window->pixmap,window->id,window->highlight_context, x+window->x,y+window->y,width,height,x,y,1L); } else XPutImage(display,window->id,window->annotate_context,window->ximage, x+window->x,y+window->y,x,y,width,height); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X R e t a i n W i n d o w C o l o r s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XRetainWindowColors sets X11 color resources on a window. This % perserves the colors associated with an image displayed on the window. % % The format of the XRetainWindowColors routine is: % % XRetainWindowColors(display,window) % % A description of each parameter follows: % % o display: Specifies a connection to an X server; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindowInfo structure. % % */ void XRetainWindowColors(display,window) Display *display; Window window; { Atom property; Pixmap pixmap; /* Put property on the window. */ property=XInternAtom(display,"_XSETROOT_ID",False); if (property == (Atom) NULL) { Warning("Unable to create X property","_XSETROOT_ID"); return; } pixmap=XCreatePixmap(display,window,1,1,1); if (pixmap == (Pixmap) NULL) { Warning("Unable to create X pixmap",(char *) NULL); return; } XChangeProperty(display,window,property,XA_PIXMAP,32,PropModeReplace, (unsigned char *) &pixmap,1); XSetCloseDownMode(display,RetainPermanent); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S e l e c t W i n d o w % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XSelectWindow allows a user to select a window using the mouse. If % the mouse moves, a clipping rectangle is drawn and the extents of the % rectangle is returned in the clip_info structure. % % The format of the XSelectWindow function is: % % target_window=XSelectWindow(display,clip_info) % % A description of each parameter follows: % % o window: XSelectWindow returns the window id. % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o clip_info: Specifies a pointer to a RectangleInfo structure. It % contains the extents of any clipping rectangle. % % */ Window XSelectWindow(display,clip_info) Display *display; RectangleInfo *clip_info; { #define MinimumClipArea (unsigned int) 9 Cursor target_cursor; GC annotate_context; int presses, status, x_offset, y_offset; Window root_window, target_window; XEvent event; XGCValues context_values; /* Initialize graphic context. */ root_window=XRootWindow(display,XDefaultScreen(display)); context_values.background=XBlackPixel(display,XDefaultScreen(display)); context_values.foreground=XWhitePixel(display,XDefaultScreen(display)); context_values.function=GXinvert; context_values.plane_mask= context_values.background ^ context_values.foreground; context_values.subwindow_mode=IncludeInferiors; annotate_context=XCreateGC(display,root_window,GCBackground | GCForeground | GCFunction | GCPlaneMask | GCSubwindowMode,&context_values); if (annotate_context == (GC) NULL) return(False); /* Grab the pointer using target cursor. */ target_cursor=XMakeCursor(display,root_window, XDefaultColormap(display,XDefaultScreen(display)),"white","black"); status=XGrabPointer(display,root_window,False,(unsigned int) (ButtonPressMask | ButtonReleaseMask | ButtonMotionMask),GrabModeSync, GrabModeAsync,root_window,target_cursor,CurrentTime); if (status != GrabSuccess) Error("Unable to grab the mouse",(char *) NULL); /* Select a window. */ clip_info->width=0; clip_info->height=0; presses=0; target_window=(Window) NULL; x_offset=0; y_offset=0; do { if ((clip_info->width*clip_info->height) >= MinimumClipArea) XDrawRectangle(display,root_window,annotate_context,clip_info->x, clip_info->y,clip_info->width-1,clip_info->height-1); /* Allow another event. */ XAllowEvents(display,SyncPointer,CurrentTime); XWindowEvent(display,root_window,ButtonPressMask | ButtonReleaseMask | ButtonMotionMask,&event); if ((clip_info->width*clip_info->height) >= MinimumClipArea) XDrawRectangle(display,root_window,annotate_context,clip_info->x, clip_info->y,clip_info->width-1,clip_info->height-1); switch (event.type) { case ButtonPress: { if (target_window == (Window) NULL) { target_window=event.xbutton.subwindow; if (target_window == (Window) NULL) target_window=root_window; } x_offset=event.xbutton.x_root; y_offset=event.xbutton.y_root; clip_info->x=x_offset; clip_info->y=y_offset; clip_info->width=0; clip_info->height=0; presses++; break; } case ButtonRelease: { presses--; break; } case MotionNotify: { /* Discard pending button motion events. */ while (XCheckMaskEvent(display,ButtonMotionMask,&event)); clip_info->x=event.xmotion.x; clip_info->y=event.xmotion.y; /* Check boundary conditions. */ if (clip_info->x < x_offset) clip_info->width=(unsigned int) (x_offset-clip_info->x); else { clip_info->width=(unsigned int) (clip_info->x-x_offset); clip_info->x=x_offset; } if (clip_info->y < y_offset) clip_info->height=(unsigned int) (y_offset-clip_info->y); else { clip_info->height=(unsigned int) (clip_info->y-y_offset); clip_info->y=y_offset; } } default: break; } } while ((target_window == (Window) NULL) || (presses > 0)); XUngrabPointer(display,CurrentTime); XFreeCursor(display,target_cursor); XFreeGC(display,annotate_context); if ((clip_info->width*clip_info->height) < MinimumClipArea) { clip_info->width=0; clip_info->height=0; } if ((clip_info->width != 0) && (clip_info->height != 0)) target_window=root_window; return(target_window); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S e t W i n d o w E x t e n t s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XSetWindowExtents resizes the window to a size determined by the % text and the font size. % % The format of the XSetWindowExtents function is: % % XSetWindowExtents(display,window,text) % % A description of each parameter follows: % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o window: Specifies a pointer to a XWindowInfo structure. % % o text: Specifies a pointer to a text string. % % */ void XSetWindowExtents(display,window,text) Display *display; XWindowInfo *window; char *text; { unsigned int height; XWindowChanges window_changes; window->width=XTextWidth(window->font_info,text,strlen(text))+ ((3*window->font_info->max_bounds.width) >> 1); height=window->font_info->ascent+window->font_info->descent; window->height=(5*height) >> 2; window_changes.width=window->width; window_changes.height=window->height; XReconfigureWMWindow(display,window->id,window->screen,CWWidth | CWHeight, &window_changes); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X V i s u a l C l a s s N a m e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XVisualClassName returns the visual class name as a character % string. % % The format of the XVisualClassName routine is: % % visual_type=XVisualClassName(class) % % A description of each parameter follows: % % o visual_type: XVisualClassName returns the visual class as a character % string. % % o class: Specifies the visual class. % % */ char *XVisualClassName(class) int class; { switch (class) { case StaticGray: return("StaticGray"); case GrayScale: return("GrayScale"); case StaticColor: return("StaticColor"); case PseudoColor: return("PseudoColor"); case TrueColor: return("TrueColor"); case DirectColor: return("DirectColor"); } return("unknown visual class"); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X W i n d o w B y I D % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XWindowByID locates a child window with a given ID. If not window % with the given name is found, 0 is returned. Only the window specified % and its subwindows are searched. % % The format of the XWindowByID function is: % % child=XWindowByID(display,window,id) % % A description of each parameter follows: % % o child: XWindowByID returns the window with the specified % id. If no windows are found, XWindowByID returns 0. % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o id: Specifies the id of the window to locate. % % */ Window XWindowByID(display,root_window,id) Display *display; Window root_window; unsigned long id; { register int i; unsigned int number_children; Window child, *children, window; if (root_window == id) return(id); if (!XQueryTree(display,root_window,&child,&child,&children,&number_children)) return((Window) NULL); window=(Window) NULL; for (i=0; i < number_children; i++) { /* Search each child and their children. */ window=XWindowByID(display,children[i],id); if (window != (Window) NULL) break; } if (children != (Window *) NULL) XFree((void *) children); return(window); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X W i n d o w B y N a m e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XWindowByName locates a window with a given name on a display. % If no window with the given name is found, 0 is returned. If more than % one window has the given name, the first one is returned. Only root and % its children are searched. % % The format of the XWindowByName function is: % % window=XWindowByName(display,root_window,name) % % A description of each parameter follows: % % o window: XWindowByName returns the window id. % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o root_window: Specifies the id of the root window. % % o name: Specifies the name of the window to locate. % % */ Window XWindowByName(display,root_window,name) Display *display; Window root_window; char *name; { register int i; unsigned int number_children; Window *children, child, window; XTextProperty window_name; if (XGetWMName(display,root_window,&window_name) != 0) if (strcmp((char *) window_name.value,name) == 0) return(root_window); if (!XQueryTree(display,root_window,&child,&child,&children,&number_children)) return((Window) NULL); window=(Window) NULL; for (i=0; i < number_children; i++) { /* Search each child and their children. */ window=XWindowByName(display,children[i],name); if (window != (Window) NULL) break; } if (children != (Window *) NULL) XFree((void *) children); return(window); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X W i n d o w B y P r o p e r y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function XWindowByProperty locates a child window with a given property. % If no window with the given name is found, 0 is returned. If more than % one window has the given property, the first one is returned. Only the % window specified and its subwindows are searched. % % The format of the XWindowByProperty function is: % % child=XWindowByProperty(display,window,property) % % A description of each parameter follows: % % o child: XWindowByProperty returns the window id with the specified % property. If no windows are found, XWindowByProperty returns 0. % % o display: Specifies a pointer to the Display structure; returned from % XOpenDisplay. % % o property: Specifies the property of the window to locate. % % */ static Window XWindowByProperty(display,window,property) Display *display; Window window; Atom property; { Atom type; int format, status; unsigned char *data; unsigned int i, number_children; unsigned long after, number_items; Window child, *children, parent, root; status=XQueryTree(display,window,&root,&parent,&children,&number_children); if (status == 0) return((Window) NULL); type=(Atom) NULL; child=(Window) NULL; for (i=0; (i < number_children) && (child == (Window) NULL); i++) { status=XGetWindowProperty(display,children[i],property,0L,0L,False, (Atom) AnyPropertyType,&type,&format,&number_items,&after,&data); if ((status == Success) && (type != (Atom) NULL)) child=children[i]; } for (i=0; (i < number_children) && (child == (Window) NULL); i++) child=XWindowByProperty(display,children[i],property); if (children != (Window *) NULL) XFree((void *) children); return(child); } Transfer colors from default to private colormap. */ XAllocColorCells(display,colormap,False,(unsigned long *) NULL,0, pixel_info->pixels,retain_colors); p=colors+image->colors; ./ImageMagick/magick/image.c 644 24 24 472070 5555556175 11131 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % IIIII M M AAA GGGG EEEEE % % I MM MM A A G E % % I M M M AAAAA G GG EEE % % I M M A A G G E % % IIIII M M A A GGGG EEEEE % % % % % % ImageMagick Image Routines % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "compress.h" #include "utility.h" #include "X.h" /* Forward declarations. */ static Image *ZoomImage _Declare((Image *)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % A l l o c a t e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function AllocateImage allocates an Image structure and initializes each % field to a default value. % % The format of the AllocateImage routine is: % % allocated_image=AllocateImage(image_info) % % A description of each parameter follows: % % o allocated_image: Function AllocateImage returns a pointer to an image % structure initialized to default values. A null image is returned if % there is a memory shortage. % % o image_info: Specifies a pointer to a ImageInfo structure. % % */ Image *AllocateImage(image_info) ImageInfo *image_info; { Image *allocated_image; /* Allocate image structure. */ allocated_image=(Image *) malloc(sizeof(Image)); if (allocated_image == (Image *) NULL) { Warning("Unable to allocate image","Memory allocation failed"); return((Image *) NULL); } /* Initialize Image structure. */ allocated_image->file=(FILE *) NULL; allocated_image->status=False; *allocated_image->filename='\0'; allocated_image->pipe=False; (void) strcpy(allocated_image->magick,"MIFF"); allocated_image->comments=(char *) NULL; allocated_image->label=(char *) NULL; allocated_image->id=UndefinedId; allocated_image->class=DirectClass; allocated_image->matte=False; allocated_image->compression=RunlengthEncodedCompression; allocated_image->columns=0; allocated_image->rows=0; allocated_image->colors=0; allocated_image->scene=0; allocated_image->montage=(char *) NULL; allocated_image->directory=(char *) NULL; allocated_image->colormap=(ColorPacket *) NULL; allocated_image->signature=(char *) NULL; allocated_image->pixels=(RunlengthPacket *) NULL; allocated_image->packet=(RunlengthPacket *) NULL; allocated_image->packets=0; allocated_image->packet_size=0; allocated_image->packed_pixels=(unsigned char *) NULL; allocated_image->orphan=False; allocated_image->previous=(Image *) NULL; allocated_image->next=(Image *) NULL; if (image_info != (ImageInfo *) NULL) { if (image_info->filename != (char *) NULL) (void) strcpy(allocated_image->filename,image_info->filename); if (image_info->magick != (char *) NULL) if (strlen(image_info->magick) < sizeof(allocated_image->magick)) (void) strcpy(allocated_image->magick,image_info->magick); } return(allocated_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % B o r d e r I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function BorderImage takes an image and puts a border around it of a % particular color. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. Set the border and % highlight to the same color to get a solid border. % % The format of the BorderImage routine is: % % bordered_image=BorderImage(image,border_info,shadow_color, % highlight_color) % % A description of each parameter follows: % % o bordered_image: Function BorderImage returns a pointer to the bordered % image. A null image is returned if there is a a memory shortage. % % o image: The address of a structure of type Image. % % o border_info: Specifies a pointer to a XRectangle which defines the % border region. % % o shadow_color: A pointer to a ColorPacket which contains the red, % green, and blue components of the border color. % % o highlight_color: A pointer to a ColorPacket which contains the red, % green, and blue components of the highlight color. % % */ Image *BorderImage(image,border_info,shadow_color,highlight_color) Image *image; RectangleInfo *border_info; ColorPacket *shadow_color, *highlight_color; { Image *bordered_image; register int x, y; register RunlengthPacket *p, *q; RunlengthPacket highlight, shadow; /* Check border geometry. */ if ((((int) border_info->width-border_info->x) < image->columns) || (((int) border_info->height-border_info->y) < image->rows)) { Warning("Unable to border image","border is less than image size"); return((Image *) NULL); } /* Initialize bordered image attributes. */ bordered_image=CopyImage(image,border_info->width,border_info->height,False); if (bordered_image == (Image *) NULL) { Warning("Unable to border image","Memory allocation failed"); return((Image *) NULL); } /* Initialize border colors. */ shadow.red=shadow_color->red; shadow.green=shadow_color->green; shadow.blue=shadow_color->blue; shadow.index=shadow_color->index; shadow.length=0; highlight.red=highlight_color->red; highlight.green=highlight_color->green; highlight.blue=highlight_color->blue; highlight.index=highlight_color->index; highlight.length=0; /* Copy image and put border around it. */ q=bordered_image->pixels; for (y=0; y < border_info->y; y++) { for (x=0; x < (bordered_image->columns-y); x++) *q++=highlight; for ( ; x < bordered_image->columns; x++) *q++=shadow; } p=image->pixels; image->runlength=p->length+1; for (y=0; y < image->rows; y++) { /* Initialize scanline with border color. */ for (x=0; x < border_info->x; x++) *q++=highlight; /* Transfer scanline. */ for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q++; } for (x=0; x < (border_info->width-image->columns-border_info->x); x++) *q++=shadow; } for (y=(border_info->height-image->rows-border_info->y-1); y >= 0; y--) { for (x=0; x < y; x++) *q++=highlight; for ( ; x < bordered_image->columns; x++) *q++=shadow; } return(bordered_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C l i p I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ClipImage creates a new image that is a subregion of an existing % one. It allocates the memory necessary for the new Image structure and % returns a pointer to the new image. % % The format of the ClipImage routine is: % % clipped_image=ClipImage(image,clip_info) % % A description of each parameter follows: % % o clipped_image: Function ClipImage returns a pointer to the clipped % image. A null image is returned if there is a a memory shortage or % if the image width or height is zero. % % o image: The address of a structure of type Image. % % o clip_info: Specifies a pointer to a RectangleInfo which defines the % region of the image to crop. % % */ Image *ClipImage(image,clip_info) Image *image; RectangleInfo *clip_info; { Image *clipped_image; register int x, y; register RunlengthPacket *p, *q; RunlengthPacket background; /* Check clip geometry. */ if (((clip_info->x+(int) clip_info->width) < 0) || ((clip_info->y+(int) clip_info->height) < 0) || (clip_info->x > (int) image->columns) || (clip_info->y > (int) image->rows)) { Warning("Unable to clip image","geometry does not contain image"); return((Image *) NULL); } if ((clip_info->x+(int) clip_info->width) > (int) image->columns) clip_info->width=(unsigned int) ((int) image->columns-clip_info->x); if ((clip_info->y+(int) clip_info->height) > (int) image->rows) clip_info->height=(unsigned int) ((int) image->rows-clip_info->y); if (clip_info->x < 0) { clip_info->width-=(unsigned int) (-clip_info->x); clip_info->x=0; } if (clip_info->y < 0) { clip_info->height-=(unsigned int) (-clip_info->y); clip_info->y=0; } if ((clip_info->width == 0) && (clip_info->height == 0)) { /* Remove vertical edges that are the background color. */ if (!UncompressImage(image)) return((Image *) NULL); background=image->pixels[0]; clip_info->width=image->columns; for (x=0; x < image->columns; x++) { p=image->pixels+x; for (y=0; y < image->rows; y++) { if ((p->red != background.red) || (p->green != background.green) || (p->blue != background.blue)) break; p+=image->columns; } if (y < image->rows) break; } clip_info->x=x; if (clip_info->x == (int) image->columns) { Warning("Unable to clip image","geometry does not contain image"); return((Image *) NULL); } for (x=image->columns-1; x > 0; x--) { p=image->pixels+x; for (y=0; y < image->rows; y++) { if ((p->red != background.red) || (p->green != background.green) || (p->blue != background.blue)) break; p+=image->columns; } if (y < image->rows) break; } clip_info->width=x-clip_info->x+1; /* Remove horizonal edges that are the background color. */ clip_info->height=image->rows; p=image->pixels; for (y=0; y < image->rows; y++) { for (x=0; x < image->columns; x++) { if ((p->red != background.red) || (p->green != background.green) || (p->blue != background.blue)) break; p++; } if (x < image->columns) break; } clip_info->y=y; p=image->pixels+(image->columns*image->rows)-1; for (y=image->rows-1; y > 0; y--) { for (x=0; x < image->columns; x++) { if ((p->red != background.red) || (p->green != background.green) || (p->blue != background.blue)) break; p--; } if (x < image->columns) break; } clip_info->height=y-clip_info->y+1; } if ((clip_info->width == 0) || (clip_info->height == 0)) { Warning("Unable to clip image","geometry dimensions are zero"); return((Image *) NULL); } /* Initialize clipped image attributes. */ clipped_image=CopyImage(image,clip_info->width,clip_info->height,False); if (clipped_image == (Image *) NULL) { Warning("Unable to clip image","Memory allocation failed"); return((Image *) NULL); } /* Skip pixels up to the clipped image. */ p=image->pixels; image->runlength=p->length+1; for (x=0; x < (clip_info->y*image->columns+clip_info->x); x++) if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } /* Extract clipped image. */ q=clipped_image->pixels; for (y=0; y < (clipped_image->rows-1); y++) { /* Transfer scanline. */ for (x=0; x < clipped_image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q++; } /* Skip to next scanline. */ for (x=0; x < (image->columns-clipped_image->columns); x++) if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } } /* Transfer last scanline. */ for (x=0; x < clipped_image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q++; } return(clipped_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C l o s e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CloseImage closes a file associated with the image. If the % filename prefix is '|', the file is a pipe and is closed with pclose. % % The format of the CloseImage routine is: % % CloseImage(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % */ void CloseImage(image) Image *image; { /* Close image file. */ if (image->file == (FILE *) NULL) return; image->status=ferror(image->file); if (image->pipe) (void) pclose(image->file); else if ((image->file != stdin) && (image->file != stdout)) (void) fclose(image->file); image->file=(FILE *) NULL; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o m m e n t I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CommentImage initializes an image comment. Optionally the % comment can include the image filename, type, width, height, or scene % number by embedding special format characters. Embed %f for filename, % %m for magick, %w for width, %h for height, %s for scene number, or \n % for newline. For example, % % %f %wx%h % % produces an image comment of % % bird.miff 512x480 % % for an image titled bird.miff and whose width is 512 and height is 480. % % The format of the CommentImage routine is: % % CommentImage(image,comments) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % o comments: The address of a character string containing the comment % format. % % */ void CommentImage(image,comments) Image *image; char *comments; { register char *p, *q; unsigned int indirection, length; if (image->comments != (char *) NULL) (void) free((char *) image->comments); image->comments=(char *) NULL; if (comments == (char *) NULL) return; indirection=(*comments == '@'); if (indirection) { FILE *file; int c; /* Read comments from a file. */ file=(FILE *) fopen(comments+1,"r"); if (file == (FILE *) NULL) { Warning("Unable to read comments file",comments+1); return; } length=MaxTextLength; comments=(char *) malloc(length*sizeof(char)); for (q=comments ; comments != (char *) NULL; q++) { c=fgetc(file); if (c == EOF) break; if ((q-comments+1) >= length) { *q='\0'; length<<=1; comments=(char *) realloc((char *) comments,length*sizeof(char)); if (comments == (char *) NULL) break; q=comments+strlen(comments); } *q=(unsigned char) c; } (void) fclose(file); if (comments == (char *) NULL) { Warning("Unable to comments image","Memory allocation failed"); return; } *q='\0'; } /* Allocate and initialize image comments. */ p=comments; length=strlen(comments)+MaxTextLength; image->comments=(char *) malloc(length*sizeof(char)); for (q=image->comments; image->comments != (char *) NULL; p++) { if (*p == '\0') break; if ((q-image->comments+MaxTextLength) >= length) { *q='\0'; length<<=1; image->comments=(char *) realloc((char *) image->comments,length*sizeof(char)); if (image->comments == (char *) NULL) break; q=image->comments+strlen(image->comments); } /* Process formatting characters in comments. */ if (*p != '%') { *q++=(*p); continue; } p++; switch (*p) { case 'f': { register char *p; /* Label segment is the base of the filename. */ p=image->filename+strlen(image->filename)-1; while ((p > image->filename) && (*(p-1) != '/')) p--; (void) strcpy(q,p); q+=strlen(p); break; } case 'h': { (void) sprintf(q,"%u",image->rows); q=image->comments+strlen(image->comments); break; } case 'm': { (void) strcpy(q,image->magick); q+=strlen(image->magick); break; } case 's': { (void) sprintf(q,"%u",image->scene); q=image->comments+strlen(image->comments); break; } case 'w': { (void) sprintf(q,"%u",image->columns); q=image->comments+strlen(image->comments); break; } default: { *q++='%'; *q++=(*p); break; } } } if (image->comments == (char *) NULL) { Warning("Unable to comment image","Memory allocation failed"); return; } *q='\0'; if (indirection) (void) free((char *) comments); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o m p r e s s C o l o r m a p % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CompressColormap compresses an image colormap removing any % unused color entries. % % The format of the CompressColormap routine is: % % CompressColormap(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % */ void CompressColormap(image) Image *image; { ColorPacket *colormap; int number_colors; register int i; register RunlengthPacket *p; register unsigned short index; /* Determine if colormap can be compressed. */ if (image->class != PseudoClass) return; number_colors=image->colors; for (i=0; i < image->colors; i++) image->colormap[i].flags=False; image->colors=0; p=image->pixels; for (i=0; i < image->packets; i++) { if (!image->colormap[p->index].flags) { image->colormap[p->index].index=image->colors; image->colormap[p->index].flags=True; image->colors++; } p++; } if (image->colors == number_colors) return; /* no unused entries */ /* Compress colormap. */ colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (colormap == (ColorPacket *) NULL) { Warning("Unable to compress colormap","Memory allocation failed"); image->colors=number_colors; return; } for (i=0; i < number_colors; i++) if (image->colormap[i].flags) { index=image->colormap[i].index; colormap[index].red=image->colormap[i].red; colormap[index].green=image->colormap[i].green; colormap[index].blue=image->colormap[i].blue; } /* Remap pixels. */ p=image->pixels; for (i=0; i < image->packets; i++) { p->index=image->colormap[p->index].index; p++; } (void) free((char *) image->colormap); image->colormap=colormap; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o m p r e s s I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CompressImage compresses an image to the minimum number of % runlength-encoded packets. % % The format of the CompressImage routine is: % % CompressImage(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % */ void CompressImage(image) Image *image; { register int i; register RunlengthPacket *p, *q; /* Compress image. */ p=image->pixels; image->runlength=p->length+1; image->packets=0; q=image->pixels; q->length=MaxRunlength; if (image->matte) for (i=0; i < (image->columns*image->rows); i++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } if ((p->red == q->red) && (p->green == q->green) && (p->blue == q->blue) && (p->index == q->index) && (q->length < MaxRunlength)) q->length++; else { if (image->packets > 0) q++; image->packets++; *q=(*p); q->length=0; } } else for (i=0; i < (image->columns*image->rows); i++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } if ((p->red == q->red) && (p->green == q->green) && (p->blue == q->blue) && (q->length < MaxRunlength)) q->length++; else { if (image->packets > 0) q++; image->packets++; *q=(*p); q->length=0; } } image->pixels=(RunlengthPacket *) realloc((char *) image->pixels, image->packets*sizeof(RunlengthPacket)); /* Runlength-encode only if it consumes less memory than no compression. */ if (image->compression == RunlengthEncodedCompression) if (image->class == DirectClass) { if (image->packets >= ((image->columns*image->rows*3) >> 2)) image->compression=NoCompression; } else if (image->packets >= ((image->columns*image->rows) >> 1)) image->compression=NoCompression; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o m p o s i t e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CompositeImage returns the second image composited onto the % first at the specified offsets. % % The format of the CompositeImage routine is: % % CompositeImage(image,compose,composite_image,x_offset,y_offset) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % o compose: Specifies an image composite operator. % % o composite_image: The address of a structure of type Image. % % o x_offset: An integer that specifies the column offset of the composited % image. % % o y_offset: An integer that specifies the row offset of the composited % image. % % */ void CompositeImage(image,compose,composite_image,x_offset,y_offset) Image *image; unsigned int compose; Image *composite_image; int x_offset, y_offset; { int blue, green, red; register int i, x, y; register RunlengthPacket *p, *q; register short index; /* Check composite geometry. */ if (((x_offset+(int) image->columns) < 0) || ((y_offset+(int) image->rows) < 0) || (x_offset > (int) image->columns) || (y_offset > (int) image->rows)) { Warning("Unable to composite image","geometry does not contain image"); return; } /* Image must be uncompressed. */ if (!UncompressImage(image)) return; if (compose == ReplaceCompositeOp) { /* Promote image to DirectClass if colormaps differ. */ if (image->class == PseudoClass) if (composite_image->class == DirectClass) image->class=DirectClass; else { if (image->signature == (char *) NULL) ColormapSignature(image); if (composite_image->signature == (char *) NULL) ColormapSignature(composite_image); if (strcmp(image->signature,composite_image->signature) != 0) image->class=DirectClass; } } else { /* Initialize image matte data. */ if (!image->matte) { q=image->pixels; red=q->red; green=q->green; blue=q->blue; for (i=0; i < image->packets; i++) { q->index=MaxRGB; if ((q->red == red) && (q->green == green) && (q->blue == blue)) q->index=0; q++; } image->class=DirectClass; image->matte=True; } if (!composite_image->matte) { p=composite_image->pixels; red=p->red; green=p->green; blue=p->blue; for (i=0; i < composite_image->packets; i++) { p->index=MaxRGB; if ((p->red == red) && (p->green == green) && (p->blue == blue)) p->index=0; p++; } composite_image->class=DirectClass; composite_image->matte=True; } } /* Initialize composited image. */ p=composite_image->pixels; composite_image->runlength=p->length+1; for (y=0; y < composite_image->rows; y++) { if (((y_offset+y) < 0) || ((y_offset+y) >= image->rows)) continue; q=image->pixels+(y_offset+y)*image->columns+x_offset; for (x=0; x < composite_image->columns; x++) { if (composite_image->runlength != 0) composite_image->runlength--; else { p++; composite_image->runlength=p->length; } if (((x_offset+x) < 0) || ((x_offset+x) >= image->columns)) { q++; continue; } switch (compose) { case OverCompositeOp: default: { if (p->index == 0) { red=q->red; green=q->green; blue=q->blue; index=q->index; } else if (p->index == MaxRGB) { red=p->red; green=p->green; blue=p->blue; index=p->index; } else { red=(int) (p->red*MaxRGB+q->red*(MaxRGB-p->index))/MaxRGB; green=(int) (p->green*MaxRGB+q->green*(MaxRGB-p->index))/MaxRGB; blue=(int) (p->blue*MaxRGB+q->blue*(MaxRGB-p->index))/MaxRGB; index=(int) (p->index*MaxRGB+q->index*(MaxRGB-p->index))/MaxRGB; } break; } case InCompositeOp: { red=(int) (p->red*q->index)/MaxRGB; green=(int) (p->green*q->index)/MaxRGB; blue=(int) (p->blue*q->index)/MaxRGB; index=(int) (p->index*q->index)/MaxRGB; break; } case OutCompositeOp: { red=(int) (p->red*(MaxRGB-q->index))/MaxRGB; green=(int) (p->green*(MaxRGB-q->index))/MaxRGB; blue=(int) (p->blue*(MaxRGB-q->index))/MaxRGB; index=(int) (p->index*(MaxRGB-q->index))/MaxRGB; break; } case AtopCompositeOp: { red=(int) (p->red*q->index+q->red*(MaxRGB-p->index))/MaxRGB; green=(int) (p->green*q->index+q->green*(MaxRGB-p->index))/MaxRGB; blue=(int) (p->blue*q->index+q->blue*(MaxRGB-p->index))/MaxRGB; index=(int) (p->index*q->index+q->index*(MaxRGB-p->index))/MaxRGB; break; } case XorCompositeOp: { red=(int) (p->red*(MaxRGB-q->index)+q->red*(MaxRGB-p->index))/MaxRGB; green=(int) (p->green*(MaxRGB-q->index)+q->green*(MaxRGB-p->index))/ MaxRGB; blue=(int) (p->blue*(MaxRGB-q->index)+q->blue*(MaxRGB-p->index))/ MaxRGB; index=(int) (p->index*(MaxRGB-q->index)+q->index*(MaxRGB-p->index))/ MaxRGB; break; } case PlusCompositeOp: { red=(int) p->red+(int) q->red; green=(int) p->green+(int) q->green; blue=(int) p->blue+(int) q->blue; index=(int) p->index+(int) q->index; break; } case MinusCompositeOp: { red=(int) p->red-(int) q->red; green=(int) p->green-(int) q->green; blue=(int) p->blue-(int) q->blue; index=255; break; } case AddCompositeOp: { red=(int) p->red+(int) q->red; if (red > MaxRGB) red-=(MaxRGB+1); green=(int) p->green+(int) q->green; if (green > MaxRGB) green-=(MaxRGB+1); blue=(int) p->blue+(int) q->blue; if (blue > MaxRGB) blue-=(MaxRGB+1); index=(int) p->index+(int) q->index; if (index > MaxRGB) index-=(MaxRGB+1); break; } case SubtractCompositeOp: { red=(int) p->red-(int) q->red; if (red < 0) red+=(MaxRGB+1); green=(int) p->green-(int) q->green; if (green < 0) green+=(MaxRGB+1); blue=(int) p->blue-(int) q->blue; if (blue < 0) blue+=(MaxRGB+1); index=(int) p->index-(int) q->index; if (index < 0) index+=(MaxRGB+1); break; } case DifferenceCompositeOp: { red=AbsoluteValue((int) p->red-(int) q->red); green=AbsoluteValue((int) p->green-(int) q->green); blue=AbsoluteValue((int) p->blue-(int) q->blue); index=AbsoluteValue((int) p->index-(int) q->index); break; } case ReplaceCompositeOp: { red=p->red; green=p->green; blue=p->blue; index=p->index; break; } } if (red > MaxRGB) q->red=MaxRGB; else if (red < 0) q->red=0; else q->red=red; if (green > MaxRGB) q->green=MaxRGB; else if (green < 0) q->green=0; else q->green=green; if (blue > MaxRGB) q->blue=MaxRGB; else if (blue < 0) q->blue=0; else q->blue=blue; if (index > 255) q->index=255; else if (index < 0) q->index=0; else q->index=index; q->length=0; q++; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o p y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CopyImage returns a copy of all fields of the input image. The % the pixel memory is allocated but the pixel data is not copied. % % The format of the CopyImage routine is: % % copy_image=CopyImage(image,columns,rows,copy_pixels) % % A description of each parameter follows: % % o copy_image: Function CopyImage returns a pointer to the image after % copying. A null image is returned if there is a memory shortage. % % o image: The address of a structure of type Image. % % o columns: An integer that specifies the number of columns in the copied % image. % % o rows: An integer that specifies the number of rows in the copied % image. % % o copy_pixels: Specifies whether the pixel data is copied. Must be % either True or False; % % */ Image *CopyImage(image,columns,rows,copy_pixels) Image *image; unsigned int columns, rows, copy_pixels; { Image *copy_image; register int i; /* Allocate image structure. */ copy_image=(Image *) malloc(sizeof(Image)); if (copy_image == (Image *) NULL) return((Image *) NULL); *copy_image=(*image); if (image->comments != (char *) NULL) { /* Allocate and copy the image comments. */ copy_image->comments=(char *) malloc(((strlen(image->comments)+1)*sizeof(char))); if (copy_image->comments == (char *) NULL) return((Image *) NULL); (void) strcpy(copy_image->comments,image->comments); } if (image->label != (char *) NULL) { /* Allocate and copy the image label. */ copy_image->label=(char *) malloc(((strlen(image->label)+1)*sizeof(char))); if (copy_image->label == (char *) NULL) return((Image *) NULL); (void) strcpy(copy_image->label,image->label); } copy_image->columns=columns; copy_image->rows=rows; copy_image->montage=(char *) NULL; copy_image->directory=(char *) NULL; if (image->colormap != (ColorPacket *) NULL) { /* Allocate and copy the image colormap. */ copy_image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (copy_image->colormap == (ColorPacket *) NULL) return((Image *) NULL); for (i=0; i < image->colors; i++) copy_image->colormap[i]=image->colormap[i]; } if (image->signature != (char *) NULL) { /* Allocate and copy the image signature. */ copy_image->signature=(char *) malloc(((strlen(image->signature)+1)*sizeof(char))); if (copy_image->signature == (char *) NULL) return((Image *) NULL); (void) strcpy(copy_image->signature,image->signature); } /* Allocate the image pixels. */ if (!copy_pixels) copy_image->packets=copy_image->columns*copy_image->rows; copy_image->pixels=(RunlengthPacket *) malloc((unsigned int) copy_image->packets*sizeof(RunlengthPacket)); if (copy_image->pixels == (RunlengthPacket *) NULL) return((Image *) NULL); if (copy_pixels) { register RunlengthPacket *p, *q; if ((image->columns != columns) || (image->rows != rows)) return((Image *) NULL); /* Copy the image pixels. */ p=image->pixels; q=copy_image->pixels; for (i=0; i < image->packets; i++) { *q=(*p); p++; q++; } } if (image->orphan) copy_image->file=(FILE *) NULL; else { /* Link image into image list. */ if (copy_image->previous != (Image *) NULL) copy_image->previous->next=copy_image; if (copy_image->next != (Image *) NULL) copy_image->next->previous=copy_image; } return(copy_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C u t I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function CutImage creates a new image that is a subregion of an existing % one. It allocates the memory necessary for the new Image structure and % returns a pointer to the new image. % % The format of the CutImage routine is: % % cut_image=CutImage(image,cut_info) % % A description of each parameter follows: % % o cut_image: Function CutImage returns a pointer to the cut % image. A null image is returned if there is a a memory shortage or % if the image width or height is zero. % % o image: The address of a structure of type Image. % % o cut_info: Specifies a pointer to a RectangleInfo which defines the % region of the image to crop. % % */ Image *CutImage(image,cut_info) Image *image; RectangleInfo *cut_info; { Image *cut_image; register int x, y; register RunlengthPacket *p, *q; /* Check cut geometry. */ if (((cut_info->x+(int) cut_info->width) < 0) || ((cut_info->y+(int) cut_info->height) < 0) || (cut_info->x > (int) image->columns) || (cut_info->y > (int) image->rows)) { Warning("Unable to cut image","geometry does not contain image"); return((Image *) NULL); } if ((cut_info->x+(int) cut_info->width) > (int) image->columns) cut_info->width=(unsigned int) ((int) image->columns-cut_info->x); if ((cut_info->y+(int) cut_info->height) > (int) image->rows) cut_info->height=(unsigned int) ((int) image->rows-cut_info->y); if (cut_info->x < 0) { cut_info->width-=(unsigned int) (-cut_info->x); cut_info->x=0; } if (cut_info->y < 0) { cut_info->height-=(unsigned int) (-cut_info->y); cut_info->y=0; } /* Initialize cut image attributes. */ cut_image=CopyImage(image,image->columns-cut_info->width, image->rows-cut_info->height,False); if (cut_image == (Image *) NULL) { Warning("Unable to cut image","Memory allocation failed"); return((Image *) NULL); } /* Extract cut image. */ p=image->pixels; image->runlength=p->length+1; q=cut_image->pixels; for (y=0; y < cut_info->y; y++) for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } if ((x < cut_info->x) || (x >= (cut_info->x+cut_info->width))) { *q=(*p); q->length=0; q++; } } /* Skip pixels up to the cut image. */ for (x=0; x < (cut_info->height*image->columns); x++) if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } /* Extract cut image. */ for (y=0; y < (image->rows-(cut_info->y+cut_info->height)); y++) for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } if ((x < cut_info->x) || (x >= (cut_info->x+cut_info->width))) { *q=(*p); q->length=0; q++; } } return(cut_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D e s t r o y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function DestroyImage deallocates memory associated with an image. % % The format of the DestroyImage routine is: % % DestroyImage(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % */ void DestroyImage(image) Image *image; { /* Close image. */ CloseImage(image); /* Deallocate the image comments. */ if (image->comments != (char *) NULL) (void) free((char *) image->comments); /* Deallocate the image label. */ if (image->label != (char *) NULL) (void) free((char *) image->label); /* Deallocate the image montage directory. */ if (image->montage != (char *) NULL) (void) free((char *) image->montage); if (image->directory != (char *) NULL) (void) free((char *) image->directory); /* Deallocate the image colormap. */ if (image->colormap != (ColorPacket *) NULL) (void) free((char *) image->colormap); /* Deallocate the image signature. */ if (image->signature != (char *) NULL) (void) free((char *) image->signature); /* Deallocate the image pixels. */ if (image->pixels != (RunlengthPacket *) NULL) (void) free((char *) image->pixels); if (image->packed_pixels != (unsigned char *) NULL) (void) free((char *) image->packed_pixels); /* Deallocate the image structure. */ (void) free((char *) image); image=(Image *) NULL; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D e s t r o y I m a g e s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function DestroyImages deallocates memory associated with a linked list % of images. % % The format of the DestroyImages routine is: % % DestroyImages(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % */ void DestroyImages(image) Image *image; { Image *next_image; /* Proceed to the top of the image list. */ while (image->previous != (Image *) NULL) image=image->previous; do { /* Destroy this image. */ next_image=image->next; DestroyImage(image); image=next_image; } while (image != (Image *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % E n h a n c e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function EnhanceImage creates a new image that is a copy of an existing % one with the noise reduced. It allocates the memory necessary for the new % Image structure and returns a pointer to the new image. % % EnhanceImage does a weighted average of pixels in a 5x5 cell around each % target pixel. Only pixels in the 5x5 cell that are within a RGB distance % threshold of the target pixel are averaged. % % Weights assume that the importance of neighboring pixels is inversely % proportional to the square of their distance from the target pixel. % % The scan only processes pixels that have a full set of neighbors. Pixels % in the top, bottom, left, and right pairs of rows and columns are omitted % from the scan. % % The format of the EnhanceImage routine is: % % enhanced_image=EnhanceImage(image) % % A description of each parameter follows: % % o enhanced_image: Function EnhanceImage returns a pointer to the image % after it is enhanced. A null image is returned if there is a memory % shortage. % % o image: The address of a structure of type Image; returned from % ReadImage. % % */ Image *EnhanceImage(image) Image *image; { #define Esum(weight) \ red_distance=s->red-red; \ green_distance=s->green-green; \ blue_distance=s->blue-blue; \ distance=red_distance*red_distance+green_distance*green_distance+ \ blue_distance*blue_distance; \ if (distance < Threshold) \ { \ total_red+=weight*(s->red); \ total_green+=weight*(s->green); \ total_blue+=weight*(s->blue); \ total_weight+=weight; \ } \ s++; #define Threshold 2500 Image *enhanced_image; int blue_distance, green_distance, red_distance; register RunlengthPacket *p, *q, *s, *s0, *s1, *s2, *s3, *s4; register unsigned int x; RunlengthPacket *scanline; unsigned char blue, green, red; unsigned int y; unsigned long distance, total_blue, total_green, total_red, total_weight; if ((image->columns < 5) || (image->rows < 5)) { Warning("Unable to enhance image","image size must exceed 4x4"); return((Image *) NULL); } /* Initialize enhanced image attributes. */ enhanced_image=CopyImage(image,image->columns,image->rows,False); if (enhanced_image == (Image *) NULL) { Warning("Unable to enhance image","Memory allocation failed"); return((Image *) NULL); } enhanced_image->class=DirectClass; /* Allocate scan line buffer for 5 rows of the image. */ scanline=(RunlengthPacket *) malloc(5*image->columns*sizeof(RunlengthPacket)); if (scanline == (RunlengthPacket *) NULL) { Warning("Unable to enhance image","Memory allocation failed"); DestroyImage(enhanced_image); return((Image *) NULL); } /* Read the first 4 rows of the image. */ p=image->pixels; image->runlength=p->length+1; s=scanline; for (x=0; x < (image->columns*4); x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Dump first 2 scanlines of image. */ q=enhanced_image->pixels; s=scanline; for (x=0; x < (image->columns << 1); x++) { *q=(*s); q->length=0; q++; s++; } /* Enhance each row. */ for (y=2; y < (image->rows-2); y++) { /* Initialize sliding window pointers. */ s0=scanline+image->columns*((y-2) % 5); s1=scanline+image->columns*((y-1) % 5); s2=scanline+image->columns*(y % 5); s3=scanline+image->columns*((y+1) % 5); s4=scanline+image->columns*((y+2) % 5); /* Read another scan line. */ s=s4; for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Transfer first 2 pixels of the scanline. */ s=s2; for (x=0; x < 2; x++) { *q=(*s); q->length=0; q++; s++; } for (x=2; x < (image->columns-2); x++) { /* Compute weighted average of target pixel color components. */ total_red=0; total_green=0; total_blue=0; total_weight=0; s=s2+2; red=s->red; green=s->green; blue=s->blue; s=s0; Esum(5); Esum(8); Esum(10); Esum(8); Esum(5); s=s1; Esum(8); Esum(20); Esum(40); Esum(20); Esum(8); s=s2; Esum(10); Esum(40); Esum(80); Esum(40); Esum(10); s=s3; Esum(8); Esum(20); Esum(40); Esum(20); Esum(8); s=s4; Esum(5); Esum(8); Esum(10); Esum(8); Esum(5); q->red=(unsigned char) ((total_red+(total_weight >> 1)-1)/total_weight); q->green= (unsigned char) ((total_green+(total_weight >> 1)-1)/total_weight); q->blue=(unsigned char) ((total_blue+(total_weight >> 1)-1)/total_weight); q->index=0; q->length=0; q++; s0++; s1++; s2++; s3++; s4++; } /* Transfer last 2 pixels of the scanline. */ s=s2; for (x=0; x < 2; x++) { *q=(*s); q->length=0; q++; s++; } } /* Dump last 2 scanlines of pixels. */ s=scanline+image->columns*(y % 3); for (x=0; x < (image->columns << 1); x++) { *q=(*s); q->length=0; q++; s++; } (void) free((char *) scanline); return(enhanced_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % E q u a l i z e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure EqualizeImage performs histogram equalization on the reference % image. % % The format of the EqualizeImage routine is: % % EqualizeImage(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image; returned from % ReadImage. % % */ void EqualizeImage(image) Image *image; { register int i, j; register RunlengthPacket *p; unsigned char *equalize_map, gray_value; unsigned int *histogram, *map; unsigned long scale_factor; /* Allocate and initialize histogram arrays. */ histogram=(unsigned int *) malloc((MaxRGB+1)*sizeof(unsigned int)); map=(unsigned int *) malloc((MaxRGB+1)*sizeof(unsigned int)); equalize_map=(unsigned char *) malloc((MaxRGB+1)*sizeof(unsigned char)); if ((histogram == (unsigned int *) NULL) || (map == (unsigned int *) NULL) || (equalize_map == (unsigned char *) NULL)) { Warning("Unable to equalize image","Memory allocation failed"); return; } /* Form histogram. */ for (i=0; i <= MaxRGB; i++) histogram[i]=0; p=image->pixels; for (i=0; i < image->packets; i++) { gray_value=Intensity(*p); histogram[gray_value]+=p->length+1; p++; } /* Integrate the histogram to get the equalization map. */ j=0; for (i=0; i <= MaxRGB; i++) { j+=histogram[i]; map[i]=j; } (void) free((char *) histogram); if (map[MaxRGB] == 0) { (void) free((char *) equalize_map); (void) free((char *) map); return; } /* Equalize. */ scale_factor=UpShift(MaxRGB)/map[MaxRGB]; for (i=0; i <= MaxRGB; i++) equalize_map[i]=(unsigned char) DownShift(map[i]*scale_factor); (void) free((char *) map); switch (image->class) { case DirectClass: { /* Equalize DirectClass packets. */ p=image->pixels; for (i=0; i < image->packets; i++) { p->red=equalize_map[p->red]; p->green=equalize_map[p->green]; p->blue=equalize_map[p->blue]; p++; } break; } case PseudoClass: { /* Equalize PseudoClass packets. */ for (i=0; i < image->colors; i++) { image->colormap[i].red=equalize_map[image->colormap[i].red]; image->colormap[i].green=equalize_map[image->colormap[i].green]; image->colormap[i].blue=equalize_map[image->colormap[i].blue]; } SyncImage(image); break; } } (void) free((char *) equalize_map); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % F r a m e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function FrameImage takes an image and puts a frame around it of a % particular color. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. % % The format of the FrameImage routine is: % % framed_image=FrameImage(image,frame_info,bevel_width,matte_color, % highlight_color,shadow_color) % % A description of each parameter follows: % % o framed_image: Function FrameImage returns a pointer to the framed % image. A null image is returned if there is a a memory shortage. % % o image: The address of a structure of type Image. % % o frame_info: Specifies a pointer to a XRectangle which defines the % framed region. % % o bevel_width: An unsigned integer that is the width of the border of % the frame. % % o matte_color: A pointer to a ColorPacket which contains the red, % green, and blue components of the border color. % % o highlight_color: A pointer to a ColorPacket which contains the red, % green, and blue components of the highlight color. % % o shadow_color: A pointer to a ColorPacket which contains the red, % green, and blue components of the shadow color. % % */ Image *FrameImage(image,frame_info,bevel_width,matte_color,highlight_color, shadow_color) Image *image; RectangleInfo *frame_info; unsigned int bevel_width; ColorPacket *matte_color, *highlight_color, *shadow_color; { Image *framed_image; int height, width; register int x, y; register RunlengthPacket *p, *q; RunlengthPacket black, highlight, matte, shadow; /* Check frame geometry. */ width=(int) frame_info->width-frame_info->x-(bevel_width << 1); height=(int) frame_info->height-frame_info->y-(bevel_width << 1); if ((width < image->columns) || (height < image->rows)) { Warning("Unable to frame image","frame is less than image size"); return((Image *) NULL); } /* Initialize framed image attributes. */ framed_image=CopyImage(image,frame_info->width,frame_info->height,False); if (framed_image == (Image *) NULL) { Warning("Unable to border image","Memory allocation failed"); return((Image *) NULL); } image->class=DirectClass; /* Initialize frame colors. */ black.red=0; black.green=0; black.blue=0; black.index=0; black.length=0; matte.red=matte_color->red; matte.green=matte_color->green; matte.blue=matte_color->blue; matte.index=0; matte.length=0; highlight.red=highlight_color->red; highlight.green=highlight_color->green; highlight.blue=highlight_color->blue; highlight.index=0; highlight.length=0; shadow.red=shadow_color->red; shadow.green=shadow_color->green; shadow.blue=shadow_color->blue; shadow.index=0; shadow.length=0; /* Copy image and put an ornamental border around it. */ q=framed_image->pixels; for (x=0; x < framed_image->columns; x++) *q++=black; for (y=0; y < (bevel_width-1); y++) { *q++=black; for (x=0; x < (framed_image->columns-y-2); x++) *q++=highlight; for ( ; x < (framed_image->columns-2); x++) *q++=shadow; *q++=black; } for (y=0; y < (frame_info->y-(bevel_width << 1)); y++) { *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; for (x=0; x < (framed_image->columns-(bevel_width << 1)); x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; } for (y=0; y < (bevel_width-1); y++) { *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; for (x=0; x < (frame_info->x-(bevel_width << 1)); x++) *q++=matte; for (x=0; x < (image->columns+(bevel_width << 1)-y); x++) *q++=shadow; for ( ; x < (image->columns+(bevel_width << 1)); x++) *q++=highlight; width=frame_info->width-frame_info->x-image->columns-(bevel_width << 1); for (x=0; x < width; x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; } *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; for (x=0; x < (frame_info->x-(bevel_width << 1)); x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; for (x=0; x < (image->columns+2); x++) *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; width=frame_info->width-frame_info->x-image->columns-(bevel_width << 1); for (x=0; x < width; x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; p=image->pixels; image->runlength=p->length+1; for (y=0; y < image->rows; y++) { /* Initialize scanline with border color. */ *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; for (x=0; x < (frame_info->x-(bevel_width << 1)); x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; /* Transfer scanline. */ for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q++; } *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; width=frame_info->width-frame_info->x-image->columns-(bevel_width << 1); for (x=0; x < width; x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; } *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; for (x=0; x < (frame_info->x-(bevel_width << 1)); x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; for (x=0; x < (image->columns+2); x++) *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; width=frame_info->width-frame_info->x-image->columns-(bevel_width << 1); for (x=0; x < width; x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; for (y=bevel_width-2; y >= 0; y--) { *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; for (x=0; x < (frame_info->x-(bevel_width << 1)); x++) *q++=matte; for (x=0; x < y; x++) *q++=shadow; for ( ; x < (image->columns+(bevel_width << 1)); x++) *q++=highlight; width=frame_info->width-frame_info->x-image->columns-(bevel_width << 1); for (x=0; x < width; x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; } height=frame_info->height-frame_info->y-image->rows-(bevel_width << 1); for (y=0; y < height; y++) { *q++=black; for (x=0; x < (bevel_width-1); x++) *q++=highlight; for (x=0; x < (framed_image->columns-(bevel_width << 1)); x++) *q++=matte; for (x=0; x < (bevel_width-1); x++) *q++=shadow; *q++=black; } for (y=bevel_width-2; y >= 0; y--) { *q++=black; for (x=0; x < y; x++) *q++=highlight; for ( ; x < (framed_image->columns-2); x++) *q++=shadow; *q++=black; } for (x=0; x < framed_image->columns; x++) *q++=black; return(framed_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % G a m m a I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure GammaImage converts the reference image to gamma corrected colors. % % The format of the GammaImage routine is: % % GammaImage(image,gamma) % % A description of each parameter follows: % % o image: The address of a structure of type Image; returned from % ReadImage. % % o gamma: A character string indicating the level of gamma correction. % % */ void GammaImage(image,gamma) Image *image; char *gamma; { float blue_gamma, green_gamma, red_gamma; int count; register int i; register RunlengthPacket *p; unsigned char *red_map, *green_map, *blue_map; /* Allocate and initialize gamma maps. */ red_map=(unsigned char *) malloc((MaxRGB+1)*sizeof(unsigned char)); green_map=(unsigned char *) malloc((MaxRGB+1)*sizeof(unsigned char)); blue_map=(unsigned char *) malloc((MaxRGB+1)*sizeof(unsigned char)); if ((red_map == (unsigned char *) NULL) || (green_map == (unsigned char *) NULL) || (blue_map == (unsigned char *) NULL)) { Warning("Unable to gamma image","Memory allocation failed"); return; } for (i=0; i <= MaxRGB; i++) { red_map[i]=0; green_map[i]=0; blue_map[i]=0; } /* Initialize gamma table. */ red_gamma=1.0; green_gamma=1.0; blue_gamma=1.0; count=sscanf(gamma,"%f,%f,%f",&red_gamma,&green_gamma,&blue_gamma); if (count == 1) { green_gamma=red_gamma; blue_gamma=red_gamma; } for (i=0; i <= MaxRGB; i++) { if (red_gamma != 0.0) red_map[i]=(unsigned char) ((pow((double) i/MaxRGB,(double) 1.0/red_gamma)*MaxRGB)+0.5); if (green_gamma != 0.0) green_map[i]=(unsigned char) ((pow((double) i/MaxRGB,(double) 1.0/green_gamma)*MaxRGB)+0.5); if (blue_gamma != 0.0) blue_map[i]=(unsigned char) ((pow((double) i/MaxRGB,(double) 1.0/blue_gamma)*MaxRGB)+0.5); } switch (image->class) { case DirectClass: { /* Gamma-correct DirectClass image. */ p=image->pixels; for (i=0; i < image->packets; i++) { p->red=red_map[p->red]; p->green=green_map[p->green]; p->blue=blue_map[p->blue]; p++; } break; } case PseudoClass: { /* Gamma-correct PseudoClass image. */ for (i=0; i < image->colors; i++) { image->colormap[i].red=red_map[image->colormap[i].red]; image->colormap[i].green=green_map[image->colormap[i].green]; image->colormap[i].blue=blue_map[image->colormap[i].blue]; } SyncImage(image); break; } } (void) free((char *) blue_map); (void) free((char *) green_map); (void) free((char *) red_map); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % G e t I m a g e I n f o % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function GetImageInfo initializes the ImageInfo structure. % % The format of the GetImageInfo routine is: % % GetImageInfo(filename,image_info) % % A description of each parameter follows: % % o filename: A character string containing a name of the file to % associate with the ImageInfo structure. % % o image_info: Specifies a pointer to a ImageInfo structure. % % */ void GetImageInfo(filename,image_info) char *filename; ImageInfo *image_info; { *image_info->filename='\0'; if (filename != (char *) NULL) (void) strcpy(image_info->filename,filename); image_info->assert=False; image_info->server_name=(char *) NULL; image_info->font=(char *) NULL; image_info->geometry=(char *) NULL; image_info->density=(char *) NULL; image_info->page=(char *) NULL; image_info->interlace=NoneInterlace; image_info->monochrome=False; image_info->quality=85; image_info->verbose=False; image_info->undercolor=(char *) NULL; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % I n v e r s e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure InverseImage inverses the colors in the reference image. % % The format of the InverseImage routine is: % % InverseImage(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image; returned from % ReadImage. % % */ void InverseImage(image) Image *image; { register int i; register RunlengthPacket *p; switch (image->class) { case DirectClass: { /* Inverse DirectClass packets. */ p=image->pixels; for (i=0; i < image->packets; i++) { p->red=(~p->red); p->green=(~p->green); p->blue=(~p->blue); p++; } break; } case PseudoClass: { /* Inverse PseudoClass packets. */ for (i=0; i < image->colors; i++) { image->colormap[i].red=(~image->colormap[i].red); image->colormap[i].green=(~image->colormap[i].green); image->colormap[i].blue=(~image->colormap[i].blue); } SyncImage(image); break; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % I s G r a y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function IsGrayImage returns True if the image is grayscale otherwise % False is returned. % % The format of the IsGrayImage routine is: % % status=IsGrayImage(image) % % A description of each parameter follows: % % o status: Function IsGrayImage returns True if the image is grayscale % otherwise False is returned. % % o image: The address of a structure of type Image; returned from % ReadImage. % % */ unsigned int IsGrayImage(image) Image *image; { register int i; unsigned int grayscale; if ((image->class == DirectClass) || (image->colors > 256)) return(False); else { /* Determine if image is grayscale. */ grayscale=True; for (i=0; i < image->colors; i++) if ((image->colormap[i].red != image->colormap[i].green) || (image->colormap[i].green != image->colormap[i].blue)) { grayscale=False; break; } return(grayscale); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L a b e l I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LabelImage initializes an image label. Optionally the label % can include the image filename, type, width, height, or scene number by % embedding special format characters. Embed %f for filename, %m for % magick, %w for width, %h for height, or %s for scene number. For % example, % % %f %wx%h % % produces an image label of % % bird.miff 512x480 % % for an image titled bird.miff and whose width is 512 and height is 480. % % The format of the LabelImage routine is: % % LabelImage(image,label) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % o label: The address of a character string containing the label format. % % */ void LabelImage(image,label) Image *image; char *label; { register char *p, *q; unsigned int indirection, length; if (image->label != (char *) NULL) (void) free((char *) image->label); image->label=(char *) NULL; if (label == (char *) NULL) return; indirection=(*label == '@'); if (indirection) { FILE *file; int c; /* Read label from a file. */ file=(FILE *) fopen(label+1,"r"); if (file == (FILE *) NULL) { Warning("Unable to read label file",label+1); return; } length=MaxTextLength; label=(char *) malloc(length*sizeof(char)); for (q=label ; label != (char *) NULL; q++) { c=fgetc(file); if (c == EOF) break; if ((q-label+1) >= length) { *q='\0'; length<<=1; label=(char *) realloc((char *) label,length*sizeof(char)); if (label == (char *) NULL) break; q=label+strlen(label); } *q=(unsigned char) c; } (void) fclose(file); if (label == (char *) NULL) { Warning("Unable to label image","Memory allocation failed"); return; } *q='\0'; } /* Allocate and initialize image label. */ p=label; length=strlen(label)+MaxTextLength; image->label=(char *) malloc(length*sizeof(char)); for (q=image->label; image->label != (char *) NULL; p++) { if (*p == '\0') break; if ((q-image->label+MaxTextLength) >= length) { *q='\0'; length<<=1; image->label=(char *) realloc((char *) image->label,length*sizeof(char)); if (image->label == (char *) NULL) break; q=image->label+strlen(image->label); } /* Process formatting characters in label. */ if (*p != '%') { *q++=(*p); continue; } p++; switch (*p) { case 'f': { register char *p; /* Label segment is the base of the filename. */ p=image->filename+strlen(image->filename)-1; while ((p > image->filename) && (*(p-1) != '/')) p--; (void) strcpy(q,p); q+=strlen(p); break; } case 'h': { (void) sprintf(q,"%u",image->rows); q=image->label+strlen(image->label); break; } case 'm': { (void) strcpy(q,image->magick); q+=strlen(image->magick); break; } case 's': { (void) sprintf(q,"%u",image->scene); q=image->label+strlen(image->label); break; } case 'w': { (void) sprintf(q,"%u",image->columns); q=image->label+strlen(image->label); break; } default: { *q++='%'; *q++=(*p); break; } } } if (image->label == (char *) NULL) { Warning("Unable to label image","Memory allocation failed"); return; } *q='\0'; if (indirection) (void) free((char *) label); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % N o i s y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function NoisyImage creates a new image that is a copy of an existing % one with the noise reduced with a noise peak elimination filter. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The principal function of noise peak elimination filter is to smooth the % objects within an image without losing edge information and without % creating undesired structures. The central idea of the algorithm is to % replace a pixel with its next neighbor in value within a 3 x 3 window, % if this pixel has been found to be noise. A pixel is defined as noise % if and only if this pixel is a maximum or minimum within the 3 x 3 % window. % % The format of the NoisyImage routine is: % % noisy_image=NoisyImage(image) % % A description of each parameter follows: % % o noisy_image: Function NoisyImage returns a pointer to the image after % the noise is reduced. A null image is returned if there is a memory % shortage. % % o image: The address of a structure of type Image; returned from % ReadImage. % % */ static int NoisyCompare(x,y) const void *x, *y; { ColorPacket *color_1, *color_2; color_1=(ColorPacket *) x; color_2=(ColorPacket *) y; return((int) Intensity(*color_1)-(int) Intensity(*color_2)); } Image *NoisyImage(image) Image *image; { Image *noisy_image; int i; register RunlengthPacket *p, *q, *s, *s0, *s1, *s2; register unsigned int x; RunlengthPacket pixel, *scanline, window[9]; unsigned int y; if ((image->columns < 3) || (image->rows < 3)) { Warning("Unable to reduce noise","the image size must exceed 2x2"); return((Image *) NULL); } /* Initialize noisy image attributes. */ noisy_image=CopyImage(image,image->columns,image->rows,False); if (noisy_image == (Image *) NULL) { Warning("Unable to reduce noise","Memory allocation failed"); return((Image *) NULL); } /* Allocate scanline buffer for 3 rows of the image. */ scanline=(RunlengthPacket *) malloc(3*image->columns*sizeof(RunlengthPacket)); if (scanline == (RunlengthPacket *) NULL) { Warning("Unable to reduce noise","Memory allocation failed"); DestroyImage(noisy_image); return((Image *) NULL); } /* Preload the first 2 rows of the image. */ p=image->pixels; image->runlength=p->length+1; s=scanline; for (x=0; x < (image->columns << 1); x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Dump first scanline of image. */ q=noisy_image->pixels; s=scanline; for (x=0; x < image->columns; x++) { *q=(*s); q->length=0; q++; s++; } /* Reduce noise in each row. */ for (y=1; y < (image->rows-1); y++) { /* Initialize sliding window pointers. */ s0=scanline+image->columns*((y-1) % 3); s1=scanline+image->columns*(y % 3); s2=scanline+image->columns*((y+1) % 3); /* Read another scan line. */ s=s2; for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Transfer first pixel of the scanline. */ s=s1; *q=(*s); q->length=0; q++; for (x=1; x < (image->columns-1); x++) { /* Sort window pixels by increasing intensity. */ s=s0; window[0]=(*s++); window[1]=(*s++); window[2]=(*s++); s=s1; window[3]=(*s++); window[4]=(*s++); window[5]=(*s++); s=s2; window[6]=(*s++); window[7]=(*s++); window[8]=(*s++); pixel=window[4]; (void) qsort((void *) window,9,sizeof(RunlengthPacket),NoisyCompare); if (Intensity(pixel) == Intensity(window[0])) { /* Pixel is minimum noise; replace with next neighbor in value. */ for (i=1; i < 8; i++) if (Intensity(window[i]) != Intensity(window[0])) break; pixel=window[i]; } else if (Intensity(pixel) == Intensity(window[8])) { /* Pixel is maximum noise; replace with next neighbor in value. */ for (i=7; i > 0; i--) if (Intensity(window[i]) != Intensity(window[8])) break; pixel=window[i]; } *q=pixel; q->length=0; q++; s0++; s1++; s2++; } /* Transfer last pixel of the scanline. */ s=s1; *q=(*s); q->length=0; q++; } /* Dump last scanline of pixels. */ s=scanline+image->columns*(y % 3); for (x=0; x < image->columns; x++) { *q=(*s); q->length=0; q++; s++; } (void) free((char *) scanline); return(noisy_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % N o r m a l i z e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure NormalizeImage normalizes the pixel values to span the full % range of color values. This is a contrast enhancement technique. % % The format of the NormalizeImage routine is: % % NormalizeImage(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image; returned from % ReadImage. % % */ void NormalizeImage(image) Image *image; { int histogram[MaxRGB+1], threshold_intensity; register int i, intensity; register RunlengthPacket *p; unsigned char gray_value, high, low, normalize_map[MaxRGB+1]; /* Form histogram. */ for (i=0; i <= MaxRGB; i++) histogram[i]=0; p=image->pixels; for (i=0; i < image->packets; i++) { gray_value=Intensity(*p); histogram[gray_value]+=p->length+1; p++; } /* Find the histogram boundaries by locating the 1 percent levels. */ threshold_intensity=(image->columns*image->rows)/100; intensity=0; for (low=0; low < MaxRGB; low++) { intensity+=histogram[low]; if (intensity > threshold_intensity) break; } intensity=0; for (high=MaxRGB; high != 0; high--) { intensity+=histogram[high]; if (intensity > threshold_intensity) break; } if (low == high) { /* Unreasonable contrast; use zero threshold to determine boundaries. */ threshold_intensity=0; intensity=0; for (low=0; low < MaxRGB; low++) { intensity+=histogram[low]; if (intensity > threshold_intensity) break; } intensity=0; for (high=MaxRGB; high != 0; high--) { intensity+=histogram[high]; if (intensity > threshold_intensity) break; } if (low == high) return; /* zero span bound */ } /* Stretch the histogram to create the normalized image mapping. */ for (i=0; i <= MaxRGB; i++) if (i < (int) low) normalize_map[i]=0; else if (i > (int) high) normalize_map[i]=MaxRGB-1; else normalize_map[i]=(MaxRGB-1)*(i-(int) low)/(int) (high-low); /* Normalize the image. */ switch (image->class) { case DirectClass: { /* Normalize DirectClass image. */ p=image->pixels; for (i=0; i < image->packets; i++) { p->red=normalize_map[p->red]; p->green=normalize_map[p->green]; p->blue=normalize_map[p->blue]; p++; } break; } case PseudoClass: { /* Normalize PseudoClass image. */ for (i=0; i < image->colors; i++) { image->colormap[i].red=normalize_map[image->colormap[i].red]; image->colormap[i].green=normalize_map[image->colormap[i].green]; image->colormap[i].blue=normalize_map[image->colormap[i].blue]; } SyncImage(image); break; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % O p e n I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function OpenImage open a file associated with the image. A file name of % '-' sets the file to stdin for type 'r' and stdout for type 'w'. If the % filename suffix is '.gz' or '.Z', the image is decompressed for type 'r' % and compressed for type 'w'. If the filename prefix is '|', it is piped % to or from a system command. % % The format of the OpenImage routine is: % % OpenImage(image,type) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % o type: 'r' for reading; 'w' for writing. % */ void OpenImage(image,type) Image *image; char *type; { char filename[MaxTextLength]; (void) strcpy(filename,image->filename); if (*filename != '|') if (strcmp(filename+strlen(filename)-3,".gz") == 0) { /* Uncompress/compress image file with GNU compress utilities. */ if (*type == 'r') (void) sprintf(filename,"|gunzip -f -c %s",image->filename); else (void) sprintf(filename,"|gzip -f -c > %s",image->filename); } else if (strcmp(filename+strlen(filename)-2,".Z") == 0) { /* Uncompress/compress image file with UNIX compress utilities. */ if (*type == 'r') (void) sprintf(filename,"|uncompress -c %s",image->filename); else (void) sprintf(filename,"|compress -c > %s",image->filename); } /* Open image file. */ image->pipe=False; if (strcmp(filename,"-") == 0) image->file=(*type == 'r') ? stdin : stdout; else if (*filename != '|') { if (*type == 'w') if ((image->previous != (Image *) NULL) || (image->next != (Image *) NULL)) { /* Form filename for multi-part images. */ (void) sprintf(filename,image->filename,image->scene); if (strcmp(filename,image->filename) == 0) (void) sprintf(filename,"%s.%u",image->filename,image->scene); if (image->next != (Image *) NULL) (void) strcpy(image->next->magick,image->magick); (void) strcpy(image->filename,filename); } image->file=(FILE *) fopen(filename,type); } else { /* Pipe image to or from a system command. */ if (*type == 'w') (void) signal(SIGPIPE,SIG_IGN); image->file=(FILE *) popen(filename+1,type); image->pipe=True; } image->status=False; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % P a r s e I m a g e G e o m e t r y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ParseImageGeometry parse a geometry specification and returns the % width and height values. % % The format of the ParseImageGeometry routine is: % % ParseImageGeometry(image_geometry,width,height) % % A description of each parameter follows: % % o image_geometry: Specifies a character string representing the geometry % specification. % % o width: A pointer to an unsigned integer. The width as determined by % the geometry specification is returned here. % % o height: A pointer to an unsigned integer. The height as determined by % the geometry specification is returned here. % % */ void ParseImageGeometry(image_geometry,width,height) char *image_geometry; unsigned int *width, *height; { char geometry[MaxTextLength]; int flags, x, y; register char *p; unsigned int aspect_ratio, former_height, former_width, percentage; unsigned long scale_factor; if (image_geometry == (char *) NULL) return; /* Remove whitespaces and % and ~ characters from geometry specification. */ (void) strcpy(geometry,image_geometry); aspect_ratio=True; percentage=False; p=geometry; while ((int) strlen(p) > 0) { if (isspace(*p)) (void) strcpy(p,p+1); else if (*p == '%') { percentage=True; (void) strcpy(p,p+1); } else if (*p == '!') { aspect_ratio=False; (void) strcpy(p,p+1); } else p++; } /* Parse geometry using XParseGeometry. */ former_width=(*width); former_height=(*height); flags=XParseGeometry(geometry,&x,&y,width,height); if (((flags & WidthValue) != 0) && (flags & HeightValue) == 0) *height=(*width); if (percentage) { /* Geometry is a percentage of the image size. */ *width=(former_width*(*width))/100; *height=(former_height*(*height))/100; former_width=(*width); former_height=(*height); } if (aspect_ratio) { /* Respect aspect ratio of the image. */ scale_factor=UpShift(*width)/former_width; if (scale_factor > (UpShift(*height)/former_height)) scale_factor=UpShift(*height)/former_height; *width=DownShift(former_width*scale_factor); *height=DownShift(former_height*scale_factor); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e d u c e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReduceImage creates a new image that is a integral size less than % an existing one. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. % % ReduceImage scans the reference image to create a reduced image by computing % the weighted average of a 4x4 cell centered at each reference pixel. The % target pixel requires two columns and two rows of the reference pixels. % Therefore the reduced image columns and rows become: % % number_columns/2 % number_rows/2 % % Weights assume that the importance of neighboring pixels is inversely % proportional to the square of their distance from the target pixel. % % The scan only processes pixels that have a full set of neighbors. Pixels % in the top, bottom, left, and right pairs of rows and columns are omitted % from the scan. % % The format of the ReduceImage routine is: % % reduced_image=ReduceImage(image) % % A description of each parameter follows: % % o reduced_image: Function ReduceImage returns a pointer to the image % after reducing. A null image is returned if there is a a memory % shortage or if the image size is less than IconSize*2. % % o image: The address of a structure of type Image. % % */ static Image *ReduceImage(image) Image *image; { #define Rsum(weight) \ total_red+=weight*(s->red); \ total_green+=weight*(s->green); \ total_blue+=weight*(s->blue); \ total_matte+=weight*(s->index); \ s++; Image *reduced_image; register RunlengthPacket *p, *q, *s, *s0, *s1, *s2, *s3; register unsigned int x; RunlengthPacket *scanline; unsigned int y; unsigned long total_matte, total_blue, total_green, total_red; if ((image->columns < 4) || (image->rows < 4)) { Warning("Unable to reduce image","image size must exceed 3x3"); return((Image *) NULL); } /* Initialize reduced image attributes. */ reduced_image=CopyImage(image,image->columns >> 1,image->rows >> 1,False); if (reduced_image == (Image *) NULL) { Warning("Unable to reduce image","Memory allocation failed"); return((Image *) NULL); } reduced_image->class=DirectClass; /* Allocate image buffer and scanline buffer for 4 rows of the image. */ scanline=(RunlengthPacket *) malloc(4*(image->columns+1)*sizeof(RunlengthPacket)); if (scanline == (RunlengthPacket *) NULL) { Warning("Unable to reduce image","Memory allocation failed"); DestroyImage(reduced_image); return((Image *) NULL); } /* Preload the first 2 rows of the image. */ p=image->pixels; image->runlength=p->length+1; s=scanline; for (x=0; x < (image->columns << 1); x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Reduce each row. */ p=image->pixels; image->runlength=p->length+1; q=reduced_image->pixels; for (y=0; y < (image->rows-1); y+=2) { /* Initialize sliding window pointers. */ s0=scanline+image->columns*((y+0) % 4); s1=scanline+image->columns*((y+1) % 4); s2=scanline+image->columns*((y+2) % 4); s3=scanline+image->columns*((y+3) % 4); /* Read another scan line. */ s=s2; for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Read another scan line. */ s=s3; for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } for (x=0; x < (image->columns-1); x+=2) { /* Compute weighted average of target pixel color components. These particular coefficients total to 128. Use 128/2-1 or 63 to insure correct round off. */ total_red=0; total_green=0; total_blue=0; total_matte=0; s=s0; Rsum(3); Rsum(7); Rsum(7); Rsum(3); s=s1; Rsum(7); Rsum(15); Rsum(15); Rsum(7); s=s2; Rsum(7); Rsum(15); Rsum(15); Rsum(7); s=s3; Rsum(3); Rsum(7); Rsum(7); Rsum(3); s0+=2; s1+=2; s2+=2; s3+=2; q->red=(unsigned char) ((total_red+63) >> 7); q->green=(unsigned char) ((total_green+63) >> 7); q->blue=(unsigned char) ((total_blue+63) >> 7); q->index=(unsigned char) ((total_matte+63) >> 7); q->length=0; q++; } } (void) free((char *) scanline); return(reduced_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e f l e c t I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReflectImage creates a new image that refelects each scanline of an % existing one. It allocates the memory necessary for the new Image structure % and returns a pointer to the new image. % % The format of the ReflectImage routine is: % % reflected_image=ReflectImage(image) % % A description of each parameter follows: % % o reflected_image: Function ReflectImage returns a pointer to the image % after reflecting. A null image is returned if there is a memory % shortage. % % o image: The address of a structure of type Image. % % */ Image *ReflectImage(image) Image *image; { Image *reflected_image; register RunlengthPacket *p, *q, *s; register unsigned int x, y; RunlengthPacket *scanline; /* Initialize reflected image attributes. */ reflected_image=CopyImage(image,image->columns,image->rows,False); if (reflected_image == (Image *) NULL) { Warning("Unable to reflect image","Memory allocation failed"); return((Image *) NULL); } /* Allocate scan line buffer and column offset buffers. */ scanline=(RunlengthPacket *) malloc(image->columns*sizeof(RunlengthPacket)); if (scanline == (RunlengthPacket *) NULL) { Warning("Unable to reflect image","Memory allocation failed"); DestroyImage(reflected_image); return((Image *) NULL); } /* Reflect each row. */ p=image->pixels; image->runlength=p->length+1; q=reflected_image->pixels; for (y=0; y < reflected_image->rows; y++) { /* Read a scan line. */ s=scanline; for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Reflect each column. */ s=scanline+image->columns; for (x=0; x < reflected_image->columns; x++) { s--; *q=(*s); q->length=0; q++; } } (void) free((char *) scanline); return(reflected_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % R G B T r a n s f o r m I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure RGBTransformImage converts the reference image from RGB to % an alternate colorspace. The transformation matrices are not the standard % ones: the weights are rescaled to normalized the range of the transformed % values to be [0..255]. % % The format of the RGBTransformImage routine is: % % RGBTransformImage(image,colorspace) % % A description of each parameter follows: % % o image: The address of a structure of type Image; returned from % ReadImage. % % o colorspace: An unsigned integer value that indicates which colorspace % to transform the image. % % */ void RGBTransformImage(image,colorspace) Image *image; unsigned int colorspace; { #define X 0 #define Y (MaxRGB+1) #define Z (MaxRGB+1)*2 long tx, ty, tz, *x, *y, *z; register int blue, green, i, red; register RunlengthPacket *p; register unsigned char *range_limit; unsigned char *range_table; if (colorspace == RGBColorspace) return; /* Allocate the tables. */ x=(long *) malloc(3*(MaxRGB+1)*sizeof(long)); y=(long *) malloc(3*(MaxRGB+1)*sizeof(long)); z=(long *) malloc(3*(MaxRGB+1)*sizeof(long)); range_table=(unsigned char *) malloc(3*(MaxRGB+1)*sizeof(unsigned char)); if ((x == (long *) NULL) || (y == (long *) NULL) || (z == (long *) NULL) || (range_table == (unsigned char *) NULL)) { Warning("Unable to transform color space","Memory allocation failed"); return; } /* Pre-compute conversion tables. */ for (i=0; i <= MaxRGB; i++) { range_table[i]=0; range_table[i+(MaxRGB+1)]=(unsigned char) i; range_table[i+(MaxRGB+1)*2]=MaxRGB; } range_limit=range_table+(MaxRGB+1); tx=0; ty=0; tz=0; switch (colorspace) { case GRAYColorspace: { /* Initialize GRAY tables: G = 0.29900*R+0.58700*G+0.11400*B */ for (i=0; i <= MaxRGB; i++) { x[i+X]=UpShifted(0.29900)*i; y[i+X]=UpShifted(0.58700)*i; z[i+X]=UpShifted(0.11400)*i; x[i+Y]=UpShifted(0.29900)*i; y[i+Y]=UpShifted(0.58700)*i; z[i+Y]=UpShifted(0.11400)*i; x[i+Z]=UpShifted(0.29900)*i; y[i+Z]=UpShifted(0.58700)*i; z[i+Z]=UpShifted(0.11400)*i; } break; } case OHTAColorspace: { /* Initialize OHTA tables: I1 = 0.33333*R+0.33334*G+0.33333*B I2 = 0.50000*R+0.00000*G-0.50000*B I3 =-0.25000*R+0.50000*G-0.25000*B I and Q, normally -0.5 through 0.5, are normalized to the range 0 through MaxRGB. */ ty=UpShifted((MaxRGB+1) >> 1); tz=UpShifted((MaxRGB+1) >> 1); for (i=0; i <= MaxRGB; i++) { x[i+X]=UpShifted(0.33333)*i; y[i+X]=UpShifted(0.33334)*i; z[i+X]=UpShifted(0.33333)*i; x[i+Y]=UpShifted(0.50000)*i; y[i+Y]=0; z[i+Y]=(-UpShifted(0.50000))*i; x[i+Z]=(-UpShifted(0.25000))*i; y[i+Z]=UpShifted(0.50000)*i; z[i+Z]=(-UpShifted(0.25000))*i; } break; } case XYZColorspace: { /* Initialize XYZ tables: X = 0.61800*R+0.17700*G+0.20500*B Y = 0.29900*R+0.58700*G+0.11400*B Z = 0.00000*R+0.05600*G+0.94400*B */ for (i=0; i <= MaxRGB; i++) { x[i+X]=UpShifted(0.61800)*i; y[i+X]=UpShifted(0.17700)*i; z[i+X]=UpShifted(0.20500)*i; x[i+Y]=UpShifted(0.29900)*i; y[i+Y]=UpShifted(0.58700)*i; z[i+Y]=UpShifted(0.11400)*i; x[i+Z]=0; y[i+Z]=UpShifted(0.05600)*i; z[i+Z]=UpShifted(0.94400)*i; } break; } case YCbCrColorspace: { /* Initialize YCbCr tables: Y = 0.29900*R+0.58700*G+0.11400*B Cb= -0.16874*R-0.33126*G+0.50000*B Cr= 0.50000*R-0.41869*G-0.08131*B Cb and Cr, normally -0.5 through 0.5, are normalized to the range 0 through MaxRGB. */ ty=UpShifted((MaxRGB+1) >> 1); tz=UpShifted((MaxRGB+1) >> 1); for (i=0; i <= MaxRGB; i++) { x[i+X]=UpShifted(0.29900)*i; y[i+X]=UpShifted(0.58700)*i; z[i+X]=UpShifted(0.11400)*i; x[i+Y]=(-UpShifted(0.16874))*i; y[i+Y]=(-UpShifted(0.33126))*i; z[i+Y]=UpShifted(0.50000)*i; x[i+Z]=UpShifted(0.50000)*i; y[i+Z]=(-UpShifted(0.41869))*i; z[i+Z]=(-UpShifted(0.08131))*i; } break; } case YIQColorspace: { /* Initialize YIQ tables: Y = 0.29900*R+0.58700*G+0.11400*B I = 0.50000*R-0.23000*G-0.27000*B Q = 0.20200*R-0.50000*G+0.29800*B I and Q, normally -0.5 through 0.5, are normalized to the range 0 through MaxRGB. */ ty=UpShifted((MaxRGB+1) >> 1); tz=UpShifted((MaxRGB+1) >> 1); for (i=0; i <= MaxRGB; i++) { x[i+X]=UpShifted(0.29900)*i; y[i+X]=UpShifted(0.58700)*i; z[i+X]=UpShifted(0.11400)*i; x[i+Y]=UpShifted(0.50000)*i; y[i+Y]=(-UpShifted(0.23000))*i; z[i+Y]=(-UpShifted(0.27000))*i; x[i+Z]=UpShifted(0.20200)*i; y[i+Z]=(-UpShifted(0.50000))*i; z[i+Z]=UpShifted(0.29800)*i; } break; } case YUVColorspace: default: { /* Initialize YUV tables: Y = 0.29900*R+0.58700*G+0.11400*B U = -0.14740*R-0.28950*G+0.43690*B V = 0.61500*R-0.51500*G-0.10000*B U and V, normally -0.5 through 0.5, are normalized to the range 0 through MaxRGB. Note that U = 0.493*(B-Y), V = 0.877*(R-Y). */ ty=UpShifted((MaxRGB+1) >> 1); tz=UpShifted((MaxRGB+1) >> 1); for (i=0; i <= MaxRGB; i++) { x[i+X]=UpShifted(0.29900)*i; y[i+X]=UpShifted(0.58700)*i; z[i+X]=UpShifted(0.11400)*i; x[i+Y]=(-UpShifted(0.14740))*i; y[i+Y]=(-UpShifted(0.28950))*i; z[i+Y]=UpShifted(0.43690)*i; x[i+Z]=UpShifted(0.61500)*i; y[i+Z]=(-UpShifted(0.51500))*i; z[i+Z]=(-UpShifted(0.10000))*i; } break; } } /* Convert from RGB. */ switch (image->class) { case DirectClass: { /* Convert DirectClass image. */ p=image->pixels; for (i=0; i < image->packets; i++) { red=p->red; green=p->green; blue=p->blue; p->red=range_limit[DownShift(x[red+X]+y[green+X]+z[blue+X]+tx)]; p->green=range_limit[DownShift(x[red+Y]+y[green+Y]+z[blue+Y]+ty)]; p->blue=range_limit[DownShift(x[red+Z]+y[green+Z]+z[blue+Z]+tz)]; p++; } break; } case PseudoClass: { /* Convert PseudoClass image. */ for (i=0; i < image->colors; i++) { red=image->colormap[i].red; green=image->colormap[i].green; blue=image->colormap[i].blue; image->colormap[i].red= range_limit[DownShift(x[red+X]+y[green+X]+z[blue+X]+tx)]; image->colormap[i].green= range_limit[DownShift(x[red+Y]+y[green+Y]+z[blue+Y]+ty)]; image->colormap[i].blue= range_limit[DownShift(x[red+Z]+y[green+Z]+z[blue+Z]+tz)]; } SyncImage(image); break; } } /* Free allocated memory. */ (void) free((char *) range_table); (void) free((char *) z); (void) free((char *) y); (void) free((char *) x); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R o l l I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function RollImage rolls an image vertically and horizontally. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the RollImage routine is: % % rolled_image=RollImage(image,columns,rows) % % A description of each parameter follows: % % o rolled_image: Function RollImage returns a pointer to the image after % rolling. A null image is returned if there is a memory shortage. % % o image: The address of a structure of type Image. % % o x_offset: An integer that specifies the number of columns to roll % in the horizontal direction. % % o y_offset: An integer that specifies the number of rows to roll in the % veritical direction. % % */ Image *RollImage(image,x_offset,y_offset) Image *image; int x_offset, y_offset; { Image *rolled_image; register RunlengthPacket *p, *q; register unsigned int packets, x; unsigned int y; /* Initialize rolled image attributes. */ rolled_image=CopyImage(image,image->columns,image->rows,False); if (rolled_image == (Image *) NULL) { Warning("Unable to roll image","Memory allocation failed"); return((Image *) NULL); } /* Roll image. */ p=image->pixels; image->runlength=p->length+1; packets=image->columns*image->rows; for (y=0; y < image->rows; y++) { /* Transfer scanline. */ for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } q=rolled_image->pixels+(y_offset+y)*image->columns+x+x_offset; if (q < rolled_image->pixels) q+=packets; else if (q >= (rolled_image->pixels+packets)) q-=packets; *q=(*p); q->length=0; } } return(rolled_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S a m p l e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SampleImage creates a new image that is a scaled size of an % existing one using pixel sampling. It allocates the memory necessary % for the new Image structure and returns a pointer to the new image. % % The format of the SampleImage routine is: % % sampled_image=SampleImage(image,columns,rows) % % A description of each parameter follows: % % o sampled_image: Function SampleImage returns a pointer to the image after % scaling. A null image is returned if there is a memory shortage. % % o image: The address of a structure of type Image. % % o columns: An integer that specifies the number of columns in the sampled % image. % % o rows: An integer that specifies the number of rows in the sampled % image. % % */ Image *SampleImage(image,columns,rows) Image *image; unsigned int columns, rows; { Image *sampled_image; register RunlengthPacket *p, *q, *s; register unsigned int x; RunlengthPacket *scanline; unsigned int *x_offset, y, *y_offset; unsigned long sample_factor; if ((columns == 0) || (rows == 0)) { Warning("Unable to sample image","image dimensions are zero"); return((Image *) NULL); } if ((columns > MaxImageSize) || (rows > MaxImageSize)) { Warning("Unable to sample image","image too large"); return((Image *) NULL); } /* Initialize sampled image attributes. */ sampled_image=CopyImage(image,columns,rows,False); if (sampled_image == (Image *) NULL) { Warning("Unable to sample image","Memory allocation failed"); return((Image *) NULL); } /* Allocate scan line buffer and column offset buffers. */ scanline=(RunlengthPacket *) malloc(image->columns*sizeof(RunlengthPacket)); x_offset=(unsigned int *) malloc(sampled_image->columns*sizeof(unsigned int)); y_offset=(unsigned int *) malloc(sampled_image->rows*sizeof(unsigned int)); if ((scanline == (RunlengthPacket *) NULL) || (x_offset == (unsigned int *) NULL) || (y_offset == (unsigned int *) NULL)) { Warning("Unable to sample image","Memory allocation failed"); DestroyImage(sampled_image); return((Image *) NULL); } /* Initialize column pixel offsets. */ sample_factor=UpShift(image->columns-1)/sampled_image->columns; columns=0; for (x=0; x < sampled_image->columns; x++) { x_offset[x]=DownShift((x+1)*sample_factor)-columns; columns+=x_offset[x]; } /* Initialize row pixel offsets. */ sample_factor=UpShift(image->rows-1)/sampled_image->rows; rows=0; for (y=0; y < sampled_image->rows; y++) { y_offset[y]=DownShift((y+1)*sample_factor)-rows; rows+=y_offset[y]; } /* Preload first scanline. */ p=image->pixels; image->runlength=p->length+1; s=scanline; for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } /* Sample each row. */ q=sampled_image->pixels; for (y=0; y < sampled_image->rows; y++) { /* Sample each column. */ s=scanline; for (x=0; x < sampled_image->columns; x++) { *q=(*s); q->length=0; q++; s+=x_offset[x]; } if (y_offset[y] != 0) { /* Skip a scan line. */ for (x=0; x < (image->columns*(y_offset[y]-1)); x++) if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } /* Read a scan line. */ s=scanline; for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *s=(*p); s++; } } } (void) free((char *) scanline); (void) free((char *) x_offset); (void) free((char *) y_offset); return(sampled_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S c a l e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ScaleImage creates a new image that is a scaled size of an % existing one. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. To scale a scanline % from x pixels to y pixels, each new pixel represents x/y old pixels. To % read x/y pixels, read (x/y rounded up) pixels but only count the required % fraction of the last old pixel read in your new pixel. The remainder % of the old pixel will be counted in the next new pixel. % % The scaling algorithm was suggested by rjohnson@shell.com and is adapted % from pnmscale(1) of PBMPLUS by Jef Poskanzer. % % The format of the ScaleImage routine is: % % scaled_image=ScaleImage(image,columns,rows) % % A description of each parameter follows: % % o scaled_image: Function ScaleImage returns a pointer to the image after % scaling. A null image is returned if there is a memory shortage. % % o image: The address of a structure of type Image. % % o columns: An integer that specifies the number of columns in the scaled % image. % % o rows: An integer that specifies the number of rows in the scaled % image. % % */ Image *ScaleImage(image,columns,rows) Image *image; unsigned int columns, rows; { typedef struct ScaledPacket { long red, green, blue, index; } ScaledPacket; Image *scaled_image; int next_row, number_rows; long x_scale, x_span; register RunlengthPacket *p, *q; register ScaledPacket *s, *t; register unsigned int x; ScaledPacket *scaled_scanline, *scanline, *y_vector, *x_vector; unsigned int y; unsigned long blue, green, index, red; if ((columns == 0) || (rows == 0)) { Warning("Unable to scale image","image dimensions are zero"); return((Image *) NULL); } if ((columns > MaxImageSize) || (rows > MaxImageSize)) { Warning("Unable to scale image","image too large"); return((Image *) NULL); } /* Initialize scaled image attributes. */ scaled_image=CopyImage(image,columns,rows,False); if (scaled_image == (Image *) NULL) { Warning("Unable to scale image","Memory allocation failed"); return((Image *) NULL); } scaled_image->class=DirectClass; /* Allocate memory. */ x_vector=(ScaledPacket *) malloc(image->columns*sizeof(ScaledPacket)); scanline=x_vector; if (scaled_image->rows != image->rows) scanline=(ScaledPacket *) malloc(image->columns*sizeof(ScaledPacket)); scaled_scanline=(ScaledPacket *) malloc(scaled_image->columns*sizeof(ScaledPacket)); y_vector=(ScaledPacket *) malloc(image->columns*sizeof(ScaledPacket)); if ((x_vector == (ScaledPacket *) NULL) || (scanline == (ScaledPacket *) NULL) || (scaled_scanline == (ScaledPacket *) NULL) || (y_vector == (ScaledPacket *) NULL)) { Warning("Unable to scale image","Memory allocation failed"); DestroyImage(scaled_image); return((Image *) NULL); } /* Scale image. */ number_rows=0; next_row=True; x_scale=UpShift(scaled_image->rows)/image->rows; x_span=UpShift(1); for (x=0; x < image->columns; x++) { y_vector[x].red=0; y_vector[x].green=0; y_vector[x].blue=0; y_vector[x].index=0; } p=image->pixels; image->runlength=p->length+1; q=scaled_image->pixels; for (y=0; y < scaled_image->rows; y++) { if (scaled_image->rows == image->rows) for (x=0; x < image->columns; x++) { /* Read a new scanline. */ if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } x_vector[x].red=p->red; x_vector[x].green=p->green; x_vector[x].blue=p->blue; x_vector[x].index=p->index; } else { /* Scale Y direction. */ while (x_scale < x_span) { if (next_row && (number_rows < image->rows)) { /* Read a new scanline. */ for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } x_vector[x].red=p->red; x_vector[x].green=p->green; x_vector[x].blue=p->blue; x_vector[x].index=p->index; } number_rows++; } for (x=0; x < image->columns; x++) { y_vector[x].red+=x_scale*x_vector[x].red; y_vector[x].green+=x_scale*x_vector[x].green; y_vector[x].blue+=x_scale*x_vector[x].blue; y_vector[x].index+=x_scale*x_vector[x].index; } x_span-=x_scale; x_scale=UpShift(scaled_image->rows)/image->rows; next_row=True; } if (next_row && (number_rows < image->rows)) { /* Read a new scanline. */ for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } x_vector[x].red=p->red; x_vector[x].green=p->green; x_vector[x].blue=p->blue; x_vector[x].index=p->index; } number_rows++; next_row=False; } s=scanline; for (x=0; x < image->columns; x++) { red=DownShift(y_vector[x].red+x_span*x_vector[x].red); green=DownShift(y_vector[x].green+x_span*x_vector[x].green); blue=DownShift(y_vector[x].blue+x_span*x_vector[x].blue); index=DownShift(y_vector[x].index+x_span*x_vector[x].index); s->red=red > MaxRGB ? MaxRGB : red; s->green=green > MaxRGB ? MaxRGB : green; s->blue=blue > MaxRGB ? MaxRGB : blue; s->index=index > MaxColormapSize ? MaxColormapSize : index; s++; y_vector[x].red=0; y_vector[x].green=0; y_vector[x].blue=0; y_vector[x].index=0; } x_scale-=x_span; if (x_scale == 0) { x_scale=UpShift(scaled_image->rows)/image->rows; next_row=True; } x_span=UpShift(1); } if (scaled_image->columns == image->columns) { /* Transfer scanline to scaled image. */ s=scanline; for (x=0; x < scaled_image->columns; x++) { q->red=(unsigned char) s->red; q->green=(unsigned char) s->green; q->blue=(unsigned char) s->blue; q->index=(unsigned short) s->index; q->length=0; q++; s++; } } else { int next_column; long int y_scale, y_span; /* Scale X direction. */ red=0; green=0; blue=0; next_column=False; y_span=UpShift(1); s=scanline; t=scaled_scanline; for (x=0; x < image->columns; x++) { y_scale=UpShift(scaled_image->columns)/image->columns; while (y_scale >= y_span) { if (next_column) { red=0; green=0; blue=0; index=0; t++; } red=DownShift(red+y_span*s->red); green=DownShift(green+y_span*s->green); blue=DownShift(blue+y_span*s->blue); index=DownShift(index+y_span*s->index); t->red=red > MaxRGB ? MaxRGB : red; t->green=green > MaxRGB ? MaxRGB : green; t->blue=blue > MaxRGB ? MaxRGB : blue; t->index=index > MaxColormapSize ? MaxColormapSize : index; y_scale-=y_span; y_span=UpShift(1); next_column=True; } if (y_scale > 0) { if (next_column) { red=0; green=0; blue=0; index=0; next_column=False; t++; } red+=y_scale*s->red; green+=y_scale*s->green; blue+=y_scale*s->blue; index+=y_scale*s->index; y_span-=y_scale; } s++; } if (y_span > 0) { s--; red+=y_span*s->red; green+=y_span*s->green; blue+=y_span*s->blue; index+=y_span*s->index; } if (!next_column) { red=DownShift(red); green=DownShift(green); blue=DownShift(blue); index=DownShift(index); t->red=red > MaxRGB ? MaxRGB : red; t->green=green > MaxRGB ? MaxRGB : green; t->blue=blue > MaxRGB ? MaxRGB : blue; t->index=index > MaxRGB ? MaxRGB : index; } /* Transfer scanline to scaled image. */ t=scaled_scanline; for (x=0; x < scaled_image->columns; x++) { q->red=(unsigned char) t->red; q->green=(unsigned char) t->green; q->blue=(unsigned char) t->blue; q->index=(unsigned short) t->index; q->length=0; q++; t++; } } } /* Free allocated memory. */ (void) free((char *) y_vector); (void) free((char *) scaled_scanline); if (scanline != x_vector) (void) free((char *) scanline); (void) free((char *) x_vector); return(scaled_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S e t I m a g e M a g i c k % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SetImageMagick initializes the `magick' field of the ImageInfo % structure. It is set to a type of image format based on the prefix or % suffix of the filename. For example, `ps:image' returns PS indicating % a Postscript image. JPEG is returned for this filename: `image.jpg'. % The filename prefix has precedance over the suffix. % % The format of the SetImageMagick routine is: % % SetImageMagick(image_info) % % A description of each parameter follows: % % o image_info: Specifies a pointer to a ImageInfo structure. % % */ void SetImageMagick(image_info) ImageInfo *image_info; { static char *ImageTypes[]= { "AVS", "BMP", "CMYK", "EPS", "EPSF", "EPSI", "FAX", "FITS", "GIF", "GIF87", "GRAY", "G3", "HISTOGRAM", "IRIS", "JPEG", "JPG", "MAP", "MATTE", "MIFF", "MTV", "PBM", "PCD", "PCX", "PGM", "PICT", "PM", "PPM", "PNM", "PS", "PS2", "RAS", "RGB", "RLE", "SUN", "TGA", "TEXT", "TIF", "TIFF", "VICAR", "VIFF", "X", "XBM", "XC", "XPM", "XV", "XWD", "YUV", "YUV3", (char *) NULL, }; char c, magick[12]; register char *p, *q; register int i; /* Look for 'image.format' in filename. */ *magick='\0'; p=image_info->filename+strlen(image_info->filename)-1; while ((*p != '.') && (p > image_info->filename)) p--; if ((strcmp(p,".gz") == 0) || (strcmp(p,".Z") == 0)) do { p--; } while ((*p != '.') && (p > image_info->filename)); if ((*p == '.') && (strlen(p) < sizeof(magick))) { /* User specified image format. */ (void) strcpy(magick,p+1); for (q=magick; *q != '\0'; q++) { if (*q == '.') { *q='\0'; break; } c=(*q); if (isascii(c) && islower(c)) *q=toupper(c); } for (i=0; ImageTypes[i] != (char *) NULL; i++) if (strcmp(magick,ImageTypes[i]) == 0) { (void) strcpy(image_info->magick,magick); break; } } /* Look for explicit 'format:image' in filename. */ p=image_info->filename; while ((*p != ':') && (*p != '\0')) p++; if ((*p == ':') && ((p-image_info->filename) < sizeof(magick))) { /* User specified image format. */ (void) strncpy(magick,image_info->filename,p-image_info->filename); magick[p-image_info->filename]='\0'; for (q=magick; *q != '\0'; q++) { c=(*q); if (isascii(c) && islower(c)) *q=toupper(c); } for (i=0; ImageTypes[i] != (char *) NULL; i++) if (strcmp(magick,ImageTypes[i]) == 0) { /* Strip off image format prefix. */ p++; (void) strcpy(image_info->filename,p); (void) strcpy(image_info->magick,magick); image_info->assert=True; break; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S o r t C o l o r m a p B y I n t e n t s i t y % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SortColormapByIntensity sorts the colormap of a PseudoClass image % by decreasing color intensity. % % The format of the SortColormapByIntensity routine is: % % SortColormapByIntensity(image) % % A description of each parameter follows: % % o image: A pointer to a Image structure. % % */ static int IntensityCompare(x,y) const void *x, *y; { ColorPacket *color_1, *color_2; color_1=(ColorPacket *) x; color_2=(ColorPacket *) y; return((int) Intensity(*color_2)-(int) Intensity(*color_1)); } void SortColormapByIntensity(image) Image *image; { register int i; register RunlengthPacket *p; register unsigned short index; unsigned short *pixels; if (image->class != PseudoClass) return; /* Allocate memory for pixel indexes. */ pixels=(unsigned short *) malloc(image->colors*sizeof(unsigned short)); if (pixels == (unsigned short *) NULL) { Warning("Unable to sort colormap","Memory allocation failed"); return; } /* Assign index values to colormap entries. */ for (i=0; i < image->colors; i++) image->colormap[i].index=(unsigned short) i; /* Sort image colormap by decreasing color popularity. */ (void) qsort((void *) image->colormap,(int) image->colors,sizeof(ColorPacket), IntensityCompare); /* Update image colormap indexes to sorted colormap order. */ for (i=0; i < image->colors; i++) pixels[image->colormap[i].index]=(unsigned short) i; p=image->pixels; for (i=0; i < image->packets; i++) { index=pixels[p->index]; p->red=image->colormap[index].red; p->green=image->colormap[index].green; p->blue=image->colormap[index].blue; p->index=index; p++; } (void) free((char *) pixels); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S t e r e o I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function StereoImage combines two images and produces a single image that % is the composite of a left and right image of a stereo pair. The left % image is converted to grayscale and written to the red channel of the % stereo image. The right image is converted to grayscale and written to the % blue channel of the stereo image. View the composite image with red-blue % glasses to create a stereo effect. % % The format of the StereoImage routine is: % % stereo_image=StereoImage(left_image,right_image) % % A description of each parameter follows: % % o stereo_image: Function StereoImage returns a pointer to the stereo % image. A null image is returned if there is a memory shortage. % % o left_image: The address of a structure of type Image. % % o right_image: The address of a structure of type Image. % % */ Image *StereoImage(left_image,right_image) Image *left_image, *right_image; { Image *stereo_image; register int i; register RunlengthPacket *p, *q, *r; if ((left_image->columns != right_image->columns) || (left_image->rows != right_image->rows)) { Warning("Unable to create stereo image", "left and right image sizes differ"); return((Image *) NULL); } /* Initialize stereo image attributes. */ stereo_image=CopyImage(left_image,left_image->columns,left_image->rows,False); if (stereo_image == (Image *) NULL) { Warning("Unable to create stereo image","Memory allocation failed"); return((Image *) NULL); } stereo_image->class=DirectClass; /* Copy left image to red channel and right image to blue channel. */ QuantizeImage(left_image,256,8,False,GRAYColorspace,True); SyncImage(left_image); p=left_image->pixels; left_image->runlength=p->length+1; QuantizeImage(right_image,256,8,False,GRAYColorspace,True); SyncImage(right_image); q=right_image->pixels; right_image->runlength=q->length+1; r=stereo_image->pixels; for (i=0; i < (stereo_image->columns*stereo_image->rows); i++) { if (left_image->runlength != 0) left_image->runlength--; else { p++; left_image->runlength=p->length; } if (right_image->runlength != 0) right_image->runlength--; else { q++; right_image->runlength=q->length; } r->red=(unsigned int) (p->red*12) >> 4; r->green=0; r->blue=q->blue; r->index=0; r->length=0; r++; } return(stereo_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S y n c I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SyncImage initializes the red, green, and blue intensities of each % pixel as defined by the colormap index. % % The format of the SyncImage routine is: % % SyncImage(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % */ void SyncImage(image) Image *image; { register int i; register RunlengthPacket *p; register unsigned short index; p=image->pixels; for (i=0; i < image->packets; i++) { index=p->index; p->red=image->colormap[index].red; p->green=image->colormap[index].green; p->blue=image->colormap[index].blue; p++; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % T r a n s f o r m I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function TransformImage creates a new image that is a transformed size of % of existing one as specified by the clip and image geometries. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % If a clip geometry is specified a subregion of the image is obtained. % If the specified image size, as defined by the image and scale geometries, % is smaller than the actual image size, the image is first reduced to an % integral of the specified image size with an antialias digital filter. The % image is then scaled to the exact specified image size with pixel % replication. If the specified image size is greater than the actual image % size, the image is first enlarged to an integral of the specified image % size with bilinear interpolation. The image is then scaled to the exact % specified image size with pixel replication. % % The format of the TransformImage routine is: % % TransformImage(image,clip_geometry,image_geometry) % % A description of each parameter follows: % % o image: The address of an address of a structure of type Image. The % transformed image is returned as this parameter. % % o clip_geometry: Specifies a pointer to a clip geometry string. % This geometry defines a subregion of the image. % % o image_geometry: Specifies a pointer to a image geometry string. % The specified width and height of this geometry string are absolute. % % */ void TransformImage(image,clip_geometry,image_geometry) Image **image; char *clip_geometry, *image_geometry; { Image *transformed_image; int flags; unsigned int height, width; transformed_image=(*image); if (clip_geometry != (char *) NULL) { Image *clipped_image; RectangleInfo clip_info; /* Clip image to a user specified size. */ clip_info.x=0; clip_info.y=0; flags=XParseGeometry(clip_geometry,&clip_info.x,&clip_info.y, &clip_info.width,&clip_info.height); if ((flags & WidthValue) == 0) clip_info.width=(unsigned int) ((int) transformed_image->columns-clip_info.x); if ((flags & HeightValue) == 0) clip_info.height=(unsigned int) ((int) transformed_image->rows-clip_info.y); if ((flags & XNegative) != 0) clip_info.x+=transformed_image->columns-clip_info.width; if ((flags & YNegative) != 0) clip_info.y+=transformed_image->rows-clip_info.height; clipped_image=ClipImage(transformed_image,&clip_info); if (clipped_image != (Image *) NULL) { DestroyImage(transformed_image); transformed_image=clipped_image; } } /* Scale image to a user specified size. */ width=transformed_image->columns; height=transformed_image->rows; ParseImageGeometry(image_geometry,&width,&height); while ((transformed_image->columns >= (width << 1)) && (transformed_image->rows >= (height << 1))) { Image *reduced_image; /* Reduce image with a antialias digital filter. */ reduced_image=ReduceImage(transformed_image); if (reduced_image == (Image *) NULL) break; DestroyImage(transformed_image); transformed_image=reduced_image; } while ((transformed_image->columns <= (width >> 1)) && (transformed_image->rows <= (height >> 1))) { Image *zoomed_image; /* Zoom image with bilinear interpolation. */ zoomed_image=ZoomImage(transformed_image); if (zoomed_image == (Image *) NULL) break; DestroyImage(transformed_image); transformed_image=zoomed_image; } if ((transformed_image->columns != width) || (transformed_image->rows != height)) { Image *scaled_image; /* Scale image with pixel replication. */ scaled_image=ScaleImage(transformed_image,width,height); if (scaled_image != (Image *) NULL) { DestroyImage(transformed_image); transformed_image=scaled_image; } } *image=transformed_image; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % T r a n s f o r m R G B I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure TransformRGBImage converts the reference image from an alternate % colorspace. The transformation matrices are not the standard ones: the % weights are rescaled to normalized the range of the transformed values to % be [0..255]. % % The format of the TransformRGBImage routine is: % % TransformRGBImage(image,colorspace) % % A description of each parameter follows: % % o image: The address of a structure of type Image; returned from % ReadImage. % % o colorspace: An unsigned integer value that indicates the colorspace % the image is currently in. On return the image is in the RGB % color space. % % */ void TransformRGBImage(image,colorspace) Image *image; unsigned int colorspace; { #define R 0 #define G (MaxRGB+1) #define B (MaxRGB+1)*2 long *blue, *green, *red; register int i, x, y, z; register RunlengthPacket *p; register unsigned char *range_limit; unsigned char *range_table; if ((colorspace == RGBColorspace) || (colorspace == GRAYColorspace)) return; /* Allocate the tables. */ red=(long *) malloc(3*(MaxRGB+1)*sizeof(long)); green=(long *) malloc(3*(MaxRGB+1)*sizeof(long)); blue=(long *) malloc(3*(MaxRGB+1)*sizeof(long)); range_table=(unsigned char *) malloc(3*(MaxRGB+1)*sizeof(unsigned char)); if ((red == (long *) NULL) || (green == (long *) NULL) || (blue == (long *) NULL) || (range_table == (unsigned char *) NULL)) { Warning("Unable to transform color space","Memory allocation failed"); return; } /* Initialize tables. */ for (i=0; i <= MaxRGB; i++) { range_table[i]=0; range_table[i+(MaxRGB+1)]=(unsigned char) i; range_table[i+(MaxRGB+1)*2]=MaxRGB; } range_limit=range_table+(MaxRGB+1); switch (colorspace) { case OHTAColorspace: { /* Initialize OHTA tables: R = I1+1.00000*I2-0.66668*I3 G = I1+0.00000*I2+1.33333*I3 B = I1-1.00000*I2-0.66668*I3 I and Q, normally -0.5 through 0.5, must be normalized to the range 0 through MaxRGB. */ for (i=0; i <= MaxRGB; i++) { red[i+R]=UpShifted(1.00000)*i; green[i+R]=UpShifted(1.0000*0.5)*((i << 1)-MaxRGB); blue[i+R]=(-UpShifted(0.66668*0.5))*((i << 1)-MaxRGB); red[i+G]=UpShifted(1.00000)*i; green[i+G]=0; blue[i+G]=UpShifted(1.33333*0.5)*((i << 1)-MaxRGB); red[i+B]=UpShifted(1.00000)*i; green[i+B]=(-UpShifted(1.00000*0.5))*((i << 1)-MaxRGB); blue[i+B]=(-UpShifted(0.66668*0.5))*((i << 1)-MaxRGB); } break; } case XYZColorspace: { /* Initialize XYZ tables: R = 1.87597*X-0.53294*Y-0.34303*Z G = -0.96670*X+1.99806*Y+0.03136*Z B = 0.05735*X-0.11853*Y+1.06118*Z */ for (i=0; i <= MaxRGB; i++) { red[i+R]=UpShifted(1.87597)*i; green[i+R]=(-UpShifted(0.53294))*i; blue[i+R]=(-UpShifted(0.34303))*i; red[i+G]=(-UpShifted(0.96670))*i; green[i+G]=UpShifted(1.99806)*i; blue[i+G]=UpShifted(0.03136)*i; red[i+B]=UpShifted(0.05735)*i; green[i+B]=(-UpShifted(0.11853))*i; blue[i+B]=UpShifted(1.06118)*i; } break; } case YCbCrColorspace: { /* Initialize YCbCr tables: R = Y +1.40200*Cr G = Y-0.34414*Cb-0.71414*Cr B = Y+1.77200*Cb Cb and Cr, normally -0.5 through 0.5, must be normalized to the range 0 through MaxRGB. */ for (i=0; i <= MaxRGB; i++) { red[i+R]=UpShifted(1.00000)*i; green[i+R]=0; blue[i+R]=UpShifted(1.40200*0.5)*((i << 1)-MaxRGB); red[i+G]=UpShifted(1.00000)*i; green[i+G]=(-UpShifted(0.34414*0.5))*((i << 1)-MaxRGB); blue[i+G]=(-UpShifted(0.71414*0.5))*((i << 1)-MaxRGB); red[i+B]=UpShifted(1.00000)*i; green[i+B]=UpShifted(1.77200*0.5)*((i << 1)-MaxRGB); blue[i+B]=0; } break; } case YIQColorspace: { /* Initialize YIQ tables: R = 0.97087*Y+1.17782*I+0.59800*Q G = 0.97087*Y-0.28626*I-0.72851*Q B = 0.97087*Y-1.27870*I+1.72801*Q I and Q, normally -0.5 through 0.5, must be normalized to the range 0 through MaxRGB. */ for (i=0; i <= MaxRGB; i++) { red[i+R]=UpShifted(0.97087)*i; green[i+R]=UpShifted(1.17782*0.5)*((i << 1)-MaxRGB); blue[i+R]=UpShifted(0.59800*0.5)*((i << 1)-MaxRGB); red[i+G]=UpShifted(0.97087)*i; green[i+G]=(-UpShifted(0.28626*0.5))*((i << 1)-MaxRGB); blue[i+G]=(-UpShifted(0.72851*0.5))*((i << 1)-MaxRGB); red[i+B]=UpShifted(0.97087)*i; green[i+B]=(-UpShifted(1.27870*0.5))*((i << 1)-MaxRGB); blue[i+B]=UpShifted(1.72801*0.5)*((i << 1)-MaxRGB); } break; } case YUVColorspace: default: { /* Initialize YUV tables: R = Y +1.13980*V G = Y-0.39380*U-0.58050*V B = Y+2.02790*U U and V, normally -0.5 through 0.5, must be normalized to the range 0 through MaxRGB. */ for (i=0; i <= MaxRGB; i++) { red[i+R]=UpShifted(1.00000)*i; green[i+R]=0; blue[i+R]=UpShifted(1.13980*0.5)*((i << 1)-MaxRGB); red[i+G]=UpShifted(1.00000)*i; green[i+G]=(-UpShifted(0.39380*0.5))*((i << 1)-MaxRGB); blue[i+G]=(-UpShifted(0.58050*0.5))*((i << 1)-MaxRGB); red[i+B]=UpShifted(1.00000)*i; green[i+B]=UpShifted(2.02790*0.5)*((i << 1)-MaxRGB); blue[i+B]=0; } break; } } /* Convert to RGB. */ switch (image->class) { case DirectClass: { /* Convert DirectClass image. */ p=image->pixels; for (i=0; i < image->packets; i++) { x=p->red; y=p->green; z=p->blue; p->red=range_limit[DownShift(red[x+R]+green[y+R]+blue[z+R])]; p->green=range_limit[DownShift(red[x+G]+green[y+G]+blue[z+G])]; p->blue=range_limit[DownShift(red[x+B]+green[y+B]+blue[z+B])]; p++; } break; } case PseudoClass: { /* Convert PseudoClass image. */ for (i=0; i < image->colors; i++) { x=image->colormap[i].red; y=image->colormap[i].green; z=image->colormap[i].blue; image->colormap[i].red= range_limit[DownShift(red[x+R]+green[y+R]+blue[z+R])]; image->colormap[i].green= range_limit[DownShift(red[x+G]+green[y+G]+blue[z+G])]; image->colormap[i].blue= range_limit[DownShift(red[x+B]+green[y+B]+blue[z+B])]; } p=image->pixels; for (i=0; i < image->packets; i++) { x=p->red; y=p->green; z=p->blue; p->red=range_limit[DownShift(red[x+R]+green[y+R]+blue[z+R])]; p->green=range_limit[DownShift(red[x+G]+green[y+G]+blue[z+G])]; p->blue=range_limit[DownShift(red[x+B]+green[y+B]+blue[z+B])]; p++; } break; } } /* Free allocated memory. */ (void) free((char *) range_table); (void) free((char *) blue); (void) free((char *) green); (void) free((char *) red); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U n C o m p r e s s I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function UncompressImage uncompresses runlength-encoded pixels packets to % a rectangular array of pixels. % % The format of the UncompressImage routine is: % % status=UncompressImage(image) % % A description of each parameter follows: % % o status: Function UncompressImage returns True if the image is % uncompressed otherwise False. % % o image: The address of a structure of type Image. % % */ unsigned int UncompressImage(image) Image *image; { register int i, j, length; register RunlengthPacket *p, *q; RunlengthPacket *uncompressed_pixels; if (image->packets == (image->columns*image->rows)) return(True); /* Uncompress runlength-encoded packets. */ uncompressed_pixels=(RunlengthPacket *) realloc((char *) image->pixels, image->columns*image->rows*sizeof(RunlengthPacket)); if (uncompressed_pixels == (RunlengthPacket *) NULL) return(False); image->pixels=uncompressed_pixels; p=image->pixels+image->packets-1; q=uncompressed_pixels+image->columns*image->rows-1; for (i=0; i < image->packets; i++) { length=p->length; for (j=0; j <= length; j++) { *q=(*p); q->length=0; q--; } p--; } image->packets=image->columns*image->rows; return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Z o o m I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ZoomImage creates a new image that is a integral size greater % than an existing one. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. % % ZoomImage scans the reference image to create a zoomed image by bilinear % interpolation. The zoomed image columns and rows become: % % number_columns << 1 % number_rows << 1 % % The format of the ZoomImage routine is: % % zoomed_image=ZoomImage(image) % % A description of each parameter follows: % % o zoomed_image: Function ZoomImage returns a pointer to the image after % zooming. A null image is returned if there is a a memory shortage. % % o image: The address of a structure of type Image. % % */ static Image *ZoomImage(image) Image *image; { Image *zoomed_image; register RunlengthPacket *cs, *ns, *p, *q, *s; register unsigned int x; RunlengthPacket *scanline; unsigned int y; if (((image->columns*image->rows) << 1) > MaxImageSize) { Warning("Unable to zoom image","image size too large"); return((Image *) NULL); } /* Initialize scaled image attributes. */ zoomed_image=CopyImage(image,image->columns << 1,image->rows << 1,False); if (zoomed_image == (Image *) NULL) { Warning("Unable to zoom image","Memory allocation failed"); return((Image *) NULL); } zoomed_image->class=DirectClass; /* Allocate scan line buffer. */ scanline=(RunlengthPacket *) malloc(4*image->columns*sizeof(RunlengthPacket)); if (scanline == (RunlengthPacket *) NULL) { Warning("Unable to zoom image","Memory allocation failed"); DestroyImage(zoomed_image); return((Image *) NULL); } /* Preload a scan line and interpolate. */ p=image->pixels; image->runlength=p->length+1; s=scanline; for (x=0; x < image->columns; x++) { *s=(*p); s++; if (image->runlength != 0) { image->runlength--; *s=(*p); } else { p++; image->runlength=p->length; s->red=(unsigned char) ((int) (p->red+(s-1)->red) >> 1); s->green=(unsigned char) ((int) (p->green+(s-1)->green) >> 1); s->blue=(unsigned char) ((int) (p->blue+(s-1)->blue) >> 1); s->index=(unsigned short) ((int) (p->index+(s-1)->index) >> 1); } s++; } /* Zoom each row. */ p=image->pixels; image->runlength=p->length+1; q=zoomed_image->pixels; for (y=0; y < image->rows; y++) { cs=scanline+image->columns*((y+0) % 2)*2; ns=scanline+image->columns*((y+1) % 2)*2; /* Read a scan line and interpolate. */ s=ns; for (x=0; x < image->columns; x++) { *s=(*p); s++; if (image->runlength != 0) { image->runlength--; *s=(*p); } else { p++; image->runlength=p->length; s->red=(unsigned char) ((int) (p->red+(s-1)->red) >> 1); s->green=(unsigned char) ((int) (p->green+(s-1)->green) >> 1); s->blue=(unsigned char) ((int) (p->blue+(s-1)->blue) >> 1); s->index=(unsigned short) ((int) (p->index+(s-1)->index) >> 1); } s++; } /* Dump column interpolation values. */ s=cs; for (x=0; x < zoomed_image->columns; x++) { *q=(*s); q->length=0; q++; s++; } /* Dump row interpolation values. */ for (x=0; x < zoomed_image->columns; x++) { q->red=(unsigned char) ((int) (cs->red+ns->red) >> 1); q->green=(unsigned char) ((int) (cs->green+ns->green) >> 1); q->blue=(unsigned char) ((int) (cs->blue+ns->blue) >> 1); q->index=(unsigned short) ((int) (cs->index+ns->index) >> 1); q->length=0; q++; cs++; ns++; } } (void) free((char *) scanline); return(zoomed_image); } blue=0; index=0; t++; } red=DownShift(red+y_span*s->red); green=DownShift(green+y_span*s->green); blue=DownShift(blue+y_span*s->blue); index=DownShift(index+y_span*s->index); t->red=red > MaxRGB ? MaxRGB : red; t->green=green > MaxRGB ? MaxRGB : green; t->blue=blue > MaxRGB ? MaxRGB : blue; t->index=index >./ImageMagick/magick/shear.c 644 24 24 113713 5555556176 11146 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % SSSSS H H EEEEE AAA RRRR % % SS H H E A A R R % % SSS HHHHH EEE AAAAA RRRR % % SS H H E A A R R % % SSSSS H H EEEEE A A R R % % % % % % Shear or rotate a raster image by an arbitrary angle. % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function RotateImage, XShearImage, and YShearImage is based on the paper % "A Fast Algorithm for General Raster Rotatation" by Alan W. Paeth, % Graphics Interface '86 (Vancouver). RotateImage is adapted from a similiar % routine based on the Paeth paper written by Michael Halle of the Spatial % Imaging Group, MIT Media Lab. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C l i p S h e a r I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ClipShearImage clips the sheared image as determined by the % bounding box as defined by width and height and shearing angles. % % The format of the ClipShearImage routine is: % % ClipShearImage(image,x_shear,y_shear,width,height,clip) % % A description of each parameter follows. % % o image: The address of a structure of type Image. % % o x_shear, y_shear, width, height: Defines a region of the image to clip. % % o clip: A value other than zero clips the corners of the rotated % image and retains the original image size. % % */ static Image *ClipShearImage(image,x_shear,y_shear,width,height,clip) Image *image; double x_shear, y_shear; unsigned int width, height, clip; { typedef struct Point { double x, y; } Point; double x_max, x_min, y_max, y_min; Image *clipped_image; Point corners[4]; RectangleInfo clip_info; register int i; /* Calculate the rotated image size. */ clip_info.width=width; clip_info.height=height; corners[0].x=(-((int) clip_info.width)/2.0); corners[0].y=(-((int) clip_info.height)/2.0); corners[1].x=((int) clip_info.width)/2.0; corners[1].y=(-((int) clip_info.height)/2.0); corners[2].x=(-((int) clip_info.width)/2.0); corners[2].y=((int) clip_info.height)/2.0; corners[3].x=((int) clip_info.width)/2.0; corners[3].y=((int) clip_info.height)/2.0; for (i=0; i < 4; i++) { corners[i].x+=x_shear*corners[i].y; corners[i].y+=y_shear*corners[i].x; corners[i].x+=x_shear*corners[i].y; corners[i].x+=(image->columns-1)/2.0; corners[i].y+=(image->rows-3)/2.0; } x_min=corners[0].x; y_min=corners[0].y; x_max=corners[0].x; y_max=corners[0].y; for (i=1; i < 4; i++) { if (x_min > corners[i].x) x_min=corners[i].x; if (y_min > corners[i].y) y_min=corners[i].y; if (x_max < corners[i].x) x_max=corners[i].x; if (y_max < corners[i].y) y_max=corners[i].y; } x_min=floor((double) x_min); x_max=ceil((double) x_max); y_min=floor((double) y_min); y_max=ceil((double) y_max); if (!clip) { /* Do not clip sheared image. */ clip_info.width=(unsigned int) (x_max-x_min); clip_info.height=(unsigned int) (y_max-y_min); } clip_info.x=(int) x_min+(((int) (x_max-x_min)-clip_info.width) >> 1); clip_info.y=(int) y_min+(((int) (y_max-y_min)-clip_info.height) >> 1); /* Clip image and return. */ clipped_image=ClipImage(image,&clip_info); return(clipped_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n t e g r a l R o t a t e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function IntegralRotateImage rotates the image an integral of 90 degrees. % It allocates the memory necessary for the new Image structure and returns % a pointer to the rotated image. % % The format of the IntegralRotateImage routine is: % % rotated_image=IntegralRotateImage(image,rotations) % % A description of each parameter follows. % % o rotated_image: Function IntegralRotateImage returns a pointer to the % rotated image. A null image is returned if there is a a memory shortage. % % o image: The address of a structure of type Image. % % o rotations: Specifies the number of 90 degree rotations. % % */ static Image *IntegralRotateImage(image,rotations) Image *image; unsigned int rotations; { Image *rotated_image; register RunlengthPacket *p, *q; register int x, y; /* Initialize rotated image attributes. */ rotations%=4; if ((rotations == 1) || (rotations == 3)) rotated_image=CopyImage(image,image->rows,image->columns,False); else rotated_image=CopyImage(image,image->columns,image->rows,False); if (rotated_image == (Image *) NULL) { Warning("Unable to rotate image","Memory allocation failed"); return((Image *) NULL); } /* Expand runlength packets into a rectangular array of pixels. */ p=image->pixels; image->runlength=p->length+1; switch (rotations) { case 0: { /* Rotate 0 degrees. */ q=rotated_image->pixels; for (y=0; y < image->rows; y++) { for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q++; } } break; } case 1: { /* Rotate 90 degrees. */ for (x=0; x < rotated_image->columns; x++) { q=rotated_image->pixels+(rotated_image->columns-x)-1; for (y=0; y < rotated_image->rows; y++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q+=rotated_image->columns; } } break; } case 2: { /* Rotate 180 degrees. */ q=rotated_image->pixels+(rotated_image->columns*rotated_image->rows)-1; for (y=image->rows-1; y >= 0; y--) { for (x=0; x < image->columns; x++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q--; } } break; } case 3: { /* Rotate 270 degrees. */ for (x=rotated_image->columns-1; x >= 0; x--) { q=rotated_image->pixels+(rotated_image->columns*rotated_image->rows)- x-1; for (y=0; y < rotated_image->rows; y++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } *q=(*p); q->length=0; q-=rotated_image->columns; } } break; } } return(rotated_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % X S h e a r I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure XShearImage shears the image in the X direction with a shear angle % of 'degrees'. Positive angles shear counter-clockwise (right-hand rule), % and negative angles shear clockwise. Angles are measured relative to a % vertical Y-axis. X shears will widen an image creating 'empty' triangles % on the left and right sides of the source image. % % The format of the XShearImage routine is: % % XShearImage(image,degrees,width,height,x_offset,y_offset,background, % range_limit) % % A description of each parameter follows. % % o image: The address of a structure of type Image. % % o degrees: A double representing the shearing angle along the X axis. % % o width, height, x_offset, y_offset: Defines a region of the image % to shear. % % o background: Specifies a ColorPacket used to fill empty triangles % left over from shearing. % % */ static void XShearImage(image,degrees,width,height,x_offset,y_offset,background, range_limit) Image *image; double degrees; unsigned int width, height; int x_offset, y_offset; ColorPacket background; register unsigned char *range_limit; { double displacement; enum {LEFT,RIGHT} direction; int step, y; long fractional_step; register RunlengthPacket *p, *q; register int blue, green, i, index, red; RunlengthPacket last_pixel; y_offset--; for (y=0; y < height; y++) { y_offset++; displacement=degrees*(((double) y)-(height-1)/2.0); if (displacement == 0.0) continue; if (displacement > 0.0) direction=RIGHT; else { displacement*=(-1.0); direction=LEFT; } step=(int) floor(displacement); fractional_step=UpShifted(displacement-(double) step); if (fractional_step == 0) { /* No fractional displacement-- just copy. */ switch (direction) { case LEFT: { /* Transfer pixels left-to-right. */ p=image->pixels+image->columns*y_offset+x_offset; q=p-step; for (i=0; i < width; i++) { *q=(*p); q++; p++; } /* Set old row to background color. */ for (i=0; i < step; i++) { q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; q++; } break; } case RIGHT: { /* Transfer pixels right-to-left. */ p=image->pixels+image->columns*y_offset+x_offset+width; q=p+step; for (i=0; i < width; i++) { p--; q--; *q=(*p); } /* Set old row to background color. */ for (i=0; i < step; i++) { q--; q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; } break; } } continue; } /* Fractional displacement. */ step++; last_pixel.red=background.red; last_pixel.green=background.green; last_pixel.blue=background.blue; last_pixel.index=background.index; switch (direction) { case LEFT: { /* Transfer pixels left-to-right. */ p=image->pixels+image->columns*y_offset+x_offset; q=p-step; for (i=0; i < width; i++) { red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+p->red* fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ p->green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+p->blue* fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ p->index*fractional_step); last_pixel=(*p); p++; q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; q++; } /* Set old row to background color. */ red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+ background.red*fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ background.green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+ background.blue*fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ background.index*fractional_step); q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; q++; for (i=0; i < step-1; i++) { q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; q++; } break; } case RIGHT: { /* Transfer pixels right-to-left. */ p=image->pixels+image->columns*y_offset+x_offset+width; q=p+step; for (i=0; i < width; i++) { p--; red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+p->red* fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ p->green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+p->blue* fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ p->index*fractional_step); last_pixel=(*p); q--; q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; } /* Set old row to background color. */ red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+ background.red*fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ background.green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+ background.blue*fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ background.index*fractional_step); q--; q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; for (i=0; i < step-1; i++) { q--; q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; } break; } } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Y S h e a r I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure YShearImage shears the image in the Y direction with a shear % angle of 'degrees'. Positive angles shear counter-clockwise (right-hand % rule), and negative angles shear clockwise. Angles are measured relative % to a horizontal X-axis. Y shears will increase the height of an image % creating 'empty' triangles on the top and bottom of the source image. % % The format of the YShearImage routine is: % % YShearImage(image,degrees,width,height,x_offset,y_offset,background, % range_limit) % % A description of each parameter follows. % % o image: The address of a structure of type Image. % % o degrees: A double representing the shearing angle along the Y axis. % % o width, height, x_offset, y_offset: Defines a region of the image % to shear. % % o background: Specifies a ColorPacket used to fill empty triangles % left over from shearing. % % */ static void YShearImage(image,degrees,width,height,x_offset,y_offset,background, range_limit) Image *image; double degrees; unsigned int width, height; int x_offset, y_offset; ColorPacket background; register unsigned char *range_limit; { double displacement; enum {UP,DOWN} direction; int step, y; long fractional_step; register RunlengthPacket *p, *q; register int blue, green, i, index, red; RunlengthPacket last_pixel; x_offset--; for (y=0; y < width; y++) { x_offset++; displacement=degrees*(((double) y)-(width-1)/2.0); if (displacement == 0.0) continue; if (displacement > 0.0) direction=DOWN; else { displacement*=(-1.0); direction=UP; } step=(int) floor(displacement); fractional_step=UpShifted(displacement-(double) step); if (fractional_step == 0) { /* No fractional displacement-- just copy the pixels. */ switch (direction) { case UP: { /* Transfer pixels top-to-bottom. */ p=image->pixels+image->columns*y_offset+x_offset; q=p-step*image->columns; for (i=0; i < height; i++) { *q=(*p); q+=image->columns; p+=image->columns; } /* Set old column to background color. */ for (i=0; i < step; i++) { q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; q+=image->columns; } break; } case DOWN: { /* Transfer pixels bottom-to-top. */ p=image->pixels+image->columns*(y_offset+height)+x_offset; q=p+step*image->columns; for (i=0; i < height; i++) { q-=image->columns; p-=image->columns; *q=(*p); } /* Set old column to background color. */ for (i=0; i < step; i++) { q-=image->columns; q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; } break; } } continue; } /* Fractional displacment. */ step++; last_pixel.red=background.red; last_pixel.green=background.green; last_pixel.blue=background.blue; last_pixel.index=background.index; switch (direction) { case UP: { /* Transfer pixels top-to-bottom. */ p=image->pixels+image->columns*y_offset+x_offset; q=p-step*image->columns; for (i=0; i < height; i++) { red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+p->red* fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ p->green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+p->blue* fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ p->index*fractional_step); last_pixel=(*p); p+=image->columns; q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; q+=image->columns; } /* Set old column to background color. */ red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+ background.red*fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ background.green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+ background.blue*fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ background.index*fractional_step); q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; q+=image->columns; for (i=0; i < step-1; i++) { q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; q+=image->columns; } break; } case DOWN: { /* Transfer pixels bottom-to-top. */ p=image->pixels+image->columns*(y_offset+height)+x_offset; q=p+step*image->columns; for (i=0; i < height; i++) { p-=image->columns; red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+p->red* fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ p->green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+p->blue* fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ p->index*fractional_step); last_pixel=(*p); q-=image->columns; q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; } /* Set old column to background color. */ red=DownShift(last_pixel.red*(UpShift(1)-fractional_step)+ background.red*fractional_step); green=DownShift(last_pixel.green*(UpShift(1)-fractional_step)+ background.green*fractional_step); blue=DownShift(last_pixel.blue*(UpShift(1)-fractional_step)+ background.blue*fractional_step); index=DownShift(last_pixel.index*(UpShift(1)-fractional_step)+ background.index*fractional_step); q-=image->columns; q->red=range_limit[red]; q->green=range_limit[green]; q->blue=range_limit[blue]; if (index < 0) q->index=0; else if (index > MaxColormapSize) q->index=MaxColormapSize; else q->index=(unsigned short) index; for (i=0; i < step-1; i++) { q-=image->columns; q->red=background.red; q->green=background.green; q->blue=background.blue; q->index=background.index; } break; } } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R o t a t e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function RotateImage creates a new image that is a rotated copy of an % existing one. Positive angles rotate counter-clockwise (right-hand rule), % while negative angles rotate clockwise. Rotated images are usually larger % than the originals and have 'empty' triangular corners. X axis. Empty % triangles left over from shearing the image are filled with the color % defined by the pixel at location (0,0). RotateImage allocates the memory % necessary for the new Image structure and returns a pointer to the new % image. % % Function RotateImage is based on the paper "A Fast Algorithm for General % Raster Rotatation" by Alan W. Paeth. RotateImage is adapted from a similiar % routine based on the Paeth paper written by Michael Halle of the Spatial % Imaging Group, MIT Media Lab. % % The format of the RotateImage routine is: % % RotateImage(image,degrees,clip) % % A description of each parameter follows. % % o status: Function RotateImage returns a pointer to the image after % rotating. A null image is returned if there is a memory shortage. % % o image: The address of a structure of type Image; returned from % ReadImage. % % o degrees: Specifies the number of degrees to rotate the image. % % o clip: A value other than zero clips the corners of the rotated % image and retains the original image size. % % */ Image *RotateImage(image,degrees,clip) Image *image; double degrees; unsigned int clip; { ColorPacket background; double x_shear, y_shear; Image *clipped_image, *integral_image, *rotated_image; int x_offset, y_offset; RectangleInfo border_info; register int i; unsigned char *range_limit, *range_table; unsigned int height, rotations, width, y_width; /* Adjust rotation angle. */ while (degrees < -45.0) degrees+=360.0; for (rotations=0; degrees > 45.0; rotations++) degrees-=90.0; rotations%=4; /* Calculate shear equations. */ x_shear=(-tan(DegreesToRadians(degrees)/2.0)); y_shear=sin(DegreesToRadians(degrees)); integral_image=IntegralRotateImage(image,rotations); if ((x_shear == 0.0) || (y_shear == 0.0)) return(integral_image); /* Initialize range table. */ range_table=(unsigned char *) malloc(3*(MaxRGB+1)*sizeof(unsigned char)); if (range_table == (unsigned char *) NULL) { DestroyImage(integral_image); Warning("Unable to rotate image","Memory allocation failed"); return((Image *) NULL); } for (i=0; i <= MaxRGB; i++) { range_table[i]=0; range_table[i+(MaxRGB+1)]=(unsigned char) i; range_table[i+(MaxRGB+1)*2]=MaxRGB; } range_limit=range_table+(MaxRGB+1); /* Compute image size. */ width=image->columns; height=image->rows; if ((rotations == 1) || (rotations == 3)) { width=image->rows; height=image->columns; } y_width=width+(int) ceil(fabs(x_shear)*(double) (height-1)); x_offset=(width+ ((int) ceil(fabs(x_shear)*(double) (height-1)) << 1)-width) >> 1; y_offset=(height+(int) ceil(fabs(y_shear)*(double) (y_width-1))-height) >> 1; /* Surround image with border of background color. */ background.red=image->pixels[0].red; background.green=image->pixels[0].green; background.blue=image->pixels[0].blue; background.index=image->pixels[0].index; border_info.width=integral_image->columns+(x_offset << 1); border_info.height=integral_image->rows+((y_offset+1) << 1); border_info.x=x_offset; border_info.y=y_offset+1; rotated_image=BorderImage(integral_image,&border_info,&background, &background); DestroyImage(integral_image); if (rotated_image == (Image *) NULL) { Warning("Unable to rotate image","Memory allocation failed"); return((Image *) NULL); } rotated_image->class=DirectClass; /* Perform a fractional rotation. First, shear the image rows. */ XShearImage(rotated_image,x_shear,width,height,x_offset, ((int) (rotated_image->rows-height-2) >> 1)+1,background,range_limit); /* Shear the image columns. */ YShearImage(rotated_image,y_shear,y_width,height, ((int) (rotated_image->columns-y_width) >> 1),y_offset+1,background, range_limit); /* Shear the image rows again. */ XShearImage(rotated_image,x_shear,y_width,rotated_image->rows-2, ((int) (rotated_image->columns-y_width) >> 1),1,background,range_limit); (void) free((char *) range_table); clipped_image=ClipShearImage(rotated_image,x_shear,y_shear,width,height,clip); DestroyImage(rotated_image); return(clipped_image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S h e a r I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ShearImage creates a new image that is a sheared copy of an % existing one. Shearing slides one edge of an image along the X or Y % axis, creating a parallelogram. An X direction shear slides an edge % along the X axis, while a Y direction shear slides an edge along the Y % axis. The amount of the shear is controlled by a shear angle. For X % direction shears, x_shear is measured relative to the Y axis, and % similarly, for Y direction shears y_shear is measured relative to the % X axis. Empty triangles left over from shearing the image are filled % with the color defined by the pixel at location (0,0). ShearImage % allocates the memory necessary for the new Image structure and returns % a pointer to the new image. % % Function ShearImage is based on the paper "A Fast Algorithm for General % Raster Rotatation" by Alan W. Paeth. % % The format of the ShearImage routine is: % % ShearImage(image,x_shear,y_shear,clip) % % A description of each parameter follows. % % o status: Function ShearImage returns a pointer to the image after % rotating. A null image is returned if there is a memory shortage. % % o image: The address of a structure of type Image; returned from % ReadImage. % % o x_shear, y_shear: Specifies the number of degrees to shear the image. % % o clip: A value other than zero clips the corners of the rotated % image and retains the original image size. % % */ Image *ShearImage(image,x_shear,y_shear,clip) Image *image; double x_shear, y_shear; unsigned int clip; { ColorPacket background; Image *clipped_image, *sheared_image; int x_offset, y_offset; RectangleInfo border_info; register int i; unsigned char *range_limit, *range_table; unsigned int y_width; /* Adjust shear angle. */ while (x_shear < -45.0) x_shear+=360.0; while (x_shear > 45.0) x_shear-=90.0; while (y_shear < -45.0) y_shear+=360.0; while (y_shear > 45.0) y_shear-=90.0; x_shear=(-tan(DegreesToRadians(x_shear)/2.0)); y_shear=sin(DegreesToRadians(y_shear)); /* Initialize range table. */ range_table=(unsigned char *) malloc(3*(MaxRGB+1)*sizeof(unsigned char)); if (range_table == (unsigned char *) NULL) { Warning("Unable to shear image","Memory allocation failed"); return((Image *) NULL); } for (i=0; i <= MaxRGB; i++) { range_table[i]=0; range_table[i+(MaxRGB+1)]=(unsigned char) i; range_table[i+(MaxRGB+1)*2]=MaxRGB; } range_limit=range_table+(MaxRGB+1); /* Compute image size. */ y_width=image->columns+(int) ceil(fabs(x_shear)*(double) (image->rows-1)); x_offset=(image->columns+((int) ceil(fabs(x_shear)*(double) (image->rows-1)) << 1)-image->columns) >> 1; y_offset=(image->rows+(int) ceil(fabs(y_shear)*(double) (y_width-1))- image->rows) >> 1; /* Surround image with border of background color. */ background.red=image->pixels[0].red; background.green=image->pixels[0].green; background.blue=image->pixels[0].blue; background.index=image->pixels[0].index; border_info.width=image->columns+(x_offset << 1); border_info.height=image->rows+((y_offset+1) << 1); border_info.x=x_offset; border_info.y=y_offset+1; sheared_image=BorderImage(image,&border_info,&background,&background); if (sheared_image == (Image *) NULL) { Warning("Unable to shear image","Memory allocation failed"); return((Image *) NULL); } sheared_image->class=DirectClass; /* Shear the image rows. */ if (x_shear != 0.0) XShearImage(sheared_image,x_shear,image->columns,image->rows,x_offset, ((int) (sheared_image->rows-image->rows) >> 1)+1,background,range_limit); /* Shear the image columns. */ if (y_shear != 0.0) YShearImage(sheared_image,y_shear,y_width,image->rows,(int) ((sheared_image->columns-y_width) >> 1),y_offset+1,background, range_limit); (void) free((char *) range_table); clipped_image=ClipShearImage(sheared_image,x_shear,y_shear,image->columns, image->rows,clip); DestroyImage(sheared_image); return(clipped_image); } ortColormapByIntensity(image) % % A description of e./ImageMagick/magick/quantize.c 644 24 24 164467 5555556176 11720 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % QQQ U U AAA N N TTTTT IIIII ZZZZZ EEEEE % % Q Q U U A A NN N T I ZZ E % % Q Q U U AAAAA N N N T I ZZZ EEEEE % % Q QQ U U A A N NN T I ZZ E % % QQQQ UUU A A N N T IIIII ZZZZZ EEEEE % % % % % % Reduce the Number of Unique Colors in an Image % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Realism in computer graphics typically requires using 24 bits/pixel to % generate an image. Yet many graphic display devices do not contain % the amount of memory necessary to match the spatial and color % resolution of the human eye. The QUANTIZE program takes a 24 bit % image and reduces the number of colors so it can be displayed on % raster device with less bits per pixel. In most instances, the % quantized image closely resembles the original reference image. % % A reduction of colors in an image is also desirable for image % transmission and real-time animation. % % Function Quantize takes a standard RGB or monochrome images and quantizes % them down to some fixed number of colors. % % For purposes of color allocation, an image is a set of n pixels, where % each pixel is a point in RGB space. RGB space is a 3-dimensional % vector space, and each pixel, pi, is defined by an ordered triple of % red, green, and blue coordinates, (ri, gi, bi). % % Each primary color component (red, green, or blue) represents an % intensity which varies linearly from 0 to a maximum value, cmax, which % corresponds to full saturation of that color. Color allocation is % defined over a domain consisting of the cube in RGB space with % opposite vertices at (0,0,0) and (cmax,cmax,cmax). QUANTIZE requires % cmax = 255. % % The algorithm maps this domain onto a tree in which each node % represents a cube within that domain. In the following discussion % these cubes are defined by the coordinate of two opposite vertices: % The vertex nearest the origin in RGB space and the vertex farthest % from the origin. % % The tree's root node represents the the entire domain, (0,0,0) through % (cmax,cmax,cmax). Each lower level in the tree is generated by % subdividing one node's cube into eight smaller cubes of equal size. % This corresponds to bisecting the parent cube with planes passing % through the midpoints of each edge. % % The basic algorithm operates in three phases: Classification, % Reduction, and Assignment. Classification builds a color % description tree for the image. Reduction collapses the tree until % the number it represents, at most, the number of colors desired in the % output image. Assignment defines the output image's color map and % sets each pixel's color by reclassification in the reduced tree. % % Classification begins by initializing a color description tree of % sufficient depth to represent each possible input color in a leaf. % However, it is impractical to generate a fully-formed color % description tree in the classification phase for realistic values of % cmax. If colors components in the input image are quantized to k-bit % precision, so that cmax= 2k-1, the tree would need k levels below the % root node to allow representing each possible input color in a leaf. % This becomes prohibitive because the tree's total number of nodes is % 1 + sum(i=1,k,8k). % % A complete tree would require 19,173,961 nodes for k = 8, cmax = 255. % Therefore, to avoid building a fully populated tree, QUANTIZE: (1) % Initializes data structures for nodes only as they are needed; (2) % Chooses a maximum depth for the tree as a function of the desired % number of colors in the output image (currently log2(colormap size)). % % For each pixel in the input image, classification scans downward from % the root of the color description tree. At each level of the tree it % identifies the single node which represents a cube in RGB space % containing the pixel's color. It updates the following data for each % such node: % % n1 : Number of pixels whose color is contained in the RGB cube % which this node represents; % % n2 : Number of pixels whose color is not represented in a node at % lower depth in the tree; initially, n2 = 0 for all nodes except % leaves of the tree. % % Sr, Sg, Sb : Sums of the red, green, and blue component values for % all pixels not classified at a lower depth. The combination of % these sums and n2 will ultimately characterize the mean color of a % set of pixels represented by this node. % % Reduction repeatedly prunes the tree until the number of nodes with % n2 > 0 is less than or equal to the maximum number of colors allowed % in the output image. On any given iteration over the tree, it selects % those nodes whose n1 count is minimal for pruning and merges their % color statistics upward. It uses a pruning threshold, ns, to govern % node selection as follows: % % ns = 0 % while number of nodes with (n2 > 0) > required maximum number of colors % prune all nodes such that n1 <= ns % Set ns to minimum n1 in remaining nodes % % When a node to be pruned has offspring, the pruning procedure invokes % itself recursively in order to prune the tree from the leaves upward. % n2, Sr, Sg, and Sb in a node being pruned are always added to the % corresponding data in that node's parent. This retains the pruned % node's color characteristics for later averaging. % % For each node, n2 pixels exist for which that node represents the % smallest volume in RGB space containing those pixel's colors. When n2 % > 0 the node will uniquely define a color in the output image. At the % beginning of reduction, n2 = 0 for all nodes except a the leaves of % the tree which represent colors present in the input image. % % The other pixel count, n1, indicates the total number of colors % within the cubic volume which the node represents. This includes n1 - % n2 pixels whose colors should be defined by nodes at a lower level in % the tree. % % Assignment generates the output image from the pruned tree. The % output image consists of two parts: (1) A color map, which is an % array of color descriptions (RGB triples) for each color present in % the output image; (2) A pixel array, which represents each pixel as % an index into the color map array. % % First, the assignment phase makes one pass over the pruned color % description tree to establish the image's color map. For each node % with n2 > 0, it divides Sr, Sg, and Sb by n2 . This produces the % mean color of all pixels that classify no lower than this node. Each % of these colors becomes an entry in the color map. % % Finally, the assignment phase reclassifies each pixel in the pruned % tree to identify the deepest node containing the pixel's color. The % pixel's value in the pixel array becomes the index of this node's mean % color in the color map. % % For efficiency, QUANTIZE requires that the reference image be in a % run-length encoded format. % % With the permission of USC Information Sciences Institute, 4676 Admiralty % Way, Marina del Rey, California 90292, this code was adapted from module % ALCOLS written by Paul Raveling. % % The names of ISI and USC are not used in advertising or publicity % pertaining to distribution of the software without prior specific % written permission from ISI. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" /* Define declarations. */ #define color_number number_colors #define MaxNodes 266817 #define MaxShift 8 #define MaxTreeDepth 8 /* Log2(MaxRGB) */ #define NodesInAList 2048 /* Structures. */ typedef struct _Node { struct _Node *parent, *child[8]; unsigned char id, level, children, mid_red, mid_green, mid_blue; unsigned long number_colors, number_unique, total_red, total_green, total_blue; } Node; typedef struct _Nodes { Node nodes[NodesInAList]; struct _Nodes *next; } Nodes; typedef struct _Cube { Node *root; ColorPacket color, *colormap; unsigned int depth; unsigned long colors, pruning_threshold, next_pruning_threshold, distance, squares[MaxRGB+MaxRGB+1]; unsigned int shift[MaxTreeDepth+1], nodes, free_nodes, color_number; Node *next_node; Nodes *node_queue; } Cube; /* Global variables. */ static Cube cube; /* Forward declarations. */ static Node *InitializeNode _Declare((unsigned int,unsigned int,Node *,unsigned int, unsigned int,unsigned int)); static unsigned int DitherImage _Declare((Image *)); static void ClosestColor _Declare((Node *)), Colormap _Declare((Node *)), PruneLevel _Declare((Node *)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % A s s i g n m e n t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Assignment generates the output image from the pruned tree. The % output image consists of two parts: (1) A color map, which is an % array of color descriptions (RGB triples) for each color present in % the output image; (2) A pixel array, which represents each pixel as % an index into the color map array. % % First, the assignment phase makes one pass over the pruned color % description tree to establish the image's color map. For each node % with n2 > 0, it divides Sr, Sg, and Sb by n2 . This produces the % mean color of all pixels that classify no lower than this node. Each % of these colors becomes an entry in the color map. % % Finally, the assignment phase reclassifies each pixel in the pruned % tree to identify the deepest node containing the pixel's color. The % pixel's value in the pixel array becomes the index of this node's mean % color in the color map. % % The format of the Assignment routine is: % % Assignment(image,dither,colorspace,optimal) % % A description of each parameter follows. % % o image: Specifies a pointer to an Image structure; returned from % ReadImage. % % o dither: Set this integer value to something other than zero to % dither the quantized image. The basic strategy of dithering is to % trade intensity resolution for spatial resolution by averaging the % intensities of several neighboring pixels. Images which suffer % from severe contouring when quantized can be improved with the % technique of dithering. Severe contouring generally occurs when % quantizing to very few colors, or to a poorly-chosen colormap. % Note, dithering is a computationally expensive process and will % increase processing time significantly. % % o colorspace: An unsigned integer value that indicates the colorspace. % % o optimal: An unsigned integer value greater than zero indicates that % the optimal representation of the reference image should be returned. % % */ static void Assignment(image,dither,colorspace,optimal) Image *image; unsigned int dither, colorspace, optimal; { register int i; register Node *node; register RunlengthPacket *p; register unsigned int id; /* Allocate image colormap. */ if (image->colormap != (ColorPacket *) NULL) (void) free((char *) image->colormap); image->colormap=(ColorPacket *) malloc((unsigned int) cube.colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Unable to quantize image","Memory allocation failed"); exit(1); } if (image->signature != (char *) NULL) (void) free((char *) image->signature); image->signature=(char *) NULL; cube.colormap=image->colormap; cube.colors=0; Colormap(cube.root); if ((cube.colors == 2) && (colorspace == GRAYColorspace)) { unsigned int polarity; /* Monochrome image. */ polarity=Intensity(image->colormap[0]) > Intensity(image->colormap[1]); image->colormap[polarity].red=0; image->colormap[polarity].green=0; image->colormap[polarity].blue=0; image->colormap[!polarity].red=MaxRGB; image->colormap[!polarity].green=MaxRGB; image->colormap[!polarity].blue=MaxRGB; dither|=((image->class == DirectClass) || (image->colors > 2)); } image->matte=False; image->class=PseudoClass; image->colors=(unsigned int) cube.colors; /* Create a reduced color image. For the non-optimal case we trade accuracy for speed improvements. */ if (dither || !optimal) dither=!DitherImage(image); p=image->pixels; if (!dither) if (!optimal) for (i=0; i < image->packets; i++) { /* Identify the deepest node containing the pixel's color. */ node=cube.root; for ( ; ; ) { id=(p->red > node->mid_red ? 1 : 0) | (p->green > node->mid_green ? 1 : 0) << 1 | (p->blue > node->mid_blue ? 1 : 0) << 2; if ((node->children & (1 << id)) == 0) break; node=node->child[id]; } p->index=(unsigned short) node->color_number; p++; } else for (i=0; i < image->packets; i++) { /* Identify the deepest node containing the pixel's color. */ node=cube.root; for ( ; ; ) { id=(p->red > node->mid_red ? 1 : 0) | (p->green > node->mid_green ? 1 : 0) << 1 | (p->blue > node->mid_blue ? 1 : 0) << 2; if ((node->children & (1 << id)) == 0) break; node=node->child[id]; } /* Find closest color among siblings and their children. */ cube.color.red=p->red; cube.color.green=p->green; cube.color.blue=p->blue; cube.distance=(unsigned long) (~0); ClosestColor(node->parent); p->index=cube.color_number; p++; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C l a s s i f i c a t i o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Classification begins by initializing a color description tree % of sufficient depth to represent each possible input color in a leaf. % However, it is impractical to generate a fully-formed color % description tree in the classification phase for realistic values of % cmax. If colors components in the input image are quantized to k-bit % precision, so that cmax= 2k-1, the tree would need k levels below the % root node to allow representing each possible input color in a leaf. % This becomes prohibitive because the tree's total number of nodes is % 1 + sum(i=1,k,8k). % % A complete tree would require 19,173,961 nodes for k = 8, cmax = 255. % Therefore, to avoid building a fully populated tree, QUANTIZE: (1) % Initializes data structures for nodes only as they are needed; (2) % Chooses a maximum depth for the tree as a function of the desired % number of colors in the output image (currently log2(colormap size)). % % For each pixel in the input image, classification scans downward from % the root of the color description tree. At each level of the tree it % identifies the single node which represents a cube in RGB space % containing It updates the following data for each such node: % % n1 : Number of pixels whose color is contained in the RGB cube % which this node represents; % % n2 : Number of pixels whose color is not represented in a node at % lower depth in the tree; initially, n2 = 0 for all nodes except % leaves of the tree. % % Sr, Sg, Sb : Sums of the red, green, and blue component values for % all pixels not classified at a lower depth. The combination of % these sums and n2 will ultimately characterize the mean color of a % set of pixels represented by this node. % % The format of the Classification routine is: % % Classification(image) % % A description of each parameter follows. % % o image: Specifies a pointer to an Image structure; returned from % ReadImage. % % */ static void Classification(image) Image *image; { register int i; register Node *node; register RunlengthPacket *p; register unsigned int bisect, count, id, level; p=image->pixels; for (i=0; i < image->packets; i++) { if (cube.nodes > MaxNodes) { /* Prune one level if the color tree is too large. */ PruneLevel(cube.root); cube.depth--; } /* Start at the root and descend the color cube tree. */ count=p->length+1; node=cube.root; for (level=1; level <= cube.depth; level++) { id=(p->red > node->mid_red ? 1 : 0) | (p->green > node->mid_green ? 1 : 0) << 1 | (p->blue > node->mid_blue ? 1 : 0) << 2; if (node->child[id] == (Node *) NULL) { /* Set colors of new node to contain pixel. */ node->children|=1 << id; bisect=(unsigned int) (1 << (MaxTreeDepth-level)) >> 1; node->child[id]=InitializeNode(id,level,node, node->mid_red+(id & 1 ? bisect : -bisect), node->mid_green+(id & 2 ? bisect : -bisect), node->mid_blue+(id & 4 ? bisect : -bisect)); if (node->child[id] == (Node *) NULL) { Warning("Unable to quantize image","Memory allocation failed"); exit(1); } if (level == cube.depth) cube.colors++; } /* Record the number of colors represented by this node. Shift by level in the color description tree. */ node=node->child[id]; node->number_colors+=count << cube.shift[level]; } /* Increment unique color count and sum RGB values for this leaf for later derivation of the mean cube color. */ node->number_unique+=count; node->total_red+=p->red*count; node->total_green+=p->green*count; node->total_blue+=p->blue*count; p++; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C l o s e s t C o l o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure ClosestColor traverses the color cube tree at a particular node % and determines which colormap entry best represents the input color. % % The format of the ClosestColor routine is: % % ClosestColor(node) % % A description of each parameter follows. % % o node: The address of a structure of type Node which points to a % node in the color cube tree that is to be pruned. % % */ static void ClosestColor(node) register Node *node; { register unsigned int id; /* Traverse any children. */ if (node->children != 0) for (id=0; id < 8; id++) if (node->children & (1 << id)) ClosestColor(node->child[id]); if (node->number_unique != 0) { register ColorPacket *color; register unsigned int blue_distance, green_distance, red_distance; register unsigned long distance; /* Determine if this color is "closest". */ color=cube.colormap+node->color_number; red_distance=(int) color->red-(int) cube.color.red+MaxRGB; green_distance=(int) color->green-(int) cube.color.green+MaxRGB; blue_distance=(int) color->blue-(int) cube.color.blue+MaxRGB; distance=cube.squares[red_distance]+cube.squares[green_distance]+ cube.squares[blue_distance]; if (distance < cube.distance) { cube.distance=distance; cube.color_number=(unsigned short) node->color_number; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o l o r m a p % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Colormap traverses the color cube tree and notes each colormap % entry. A colormap entry is any node in the color cube tree where the % number of unique colors is not zero. % % The format of the Colormap routine is: % % Colormap(node) % % A description of each parameter follows. % % o node: The address of a structure of type Node which points to a % node in the color cube tree that is to be pruned. % % */ static void Colormap(node) register Node *node; { register unsigned int id; /* Traverse any children. */ if (node->children != 0) for (id=0; id < 8; id++) if (node->children & (1 << id)) Colormap(node->child[id]); if (node->number_unique > 0) { /* Colormap entry is defined by the mean color in this cube. */ cube.colormap[cube.colors].red=(unsigned char) ((node->total_red+(node->number_unique >> 1))/node->number_unique); cube.colormap[cube.colors].green=(unsigned char) ((node->total_green+(node->number_unique >> 1))/node->number_unique); cube.colormap[cube.colors].blue=(unsigned char) ((node->total_blue+(node->number_unique >> 1))/node->number_unique); node->color_number=cube.colors++; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D i t h e r I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure DitherImage uses the Floyd-Steinberg algorithm to dither the % image. Refer to "An Adaptive Algorithm for Spatial GreySscale", Robert W. % Floyd and Louis Steinberg, Proceedings of the S.I.D., Volume 17(2), 1976. % % First find the closest representation to the reference pixel color in the % colormap, the node pixel is assigned this color. Next, the colormap color % is subtracted from the reference pixels color, this represents the % quantization error. Various amounts of this error are added to the pixels % ahead and below the node pixel to correct for this error. The error % proportions are: % % P 7/16 % 3/16 5/16 1/16 % % The error is distributed left-to-right for even scanlines and right-to-left % for odd scanlines. % % The format of the DitherImage routine is: % % DitherImage(image) % % A description of each parameter follows. % % o image: Specifies a pointer to an Image structure; returned from % ReadImage. % % */ static unsigned int DitherImage(image) Image *image; { #define MaxError 32 typedef struct _ErrorPacket { int red, green, blue; } ErrorPacket; ErrorPacket *error; int *cache; register int blue_error, green_error, red_error, step; register Node *node; register RunlengthPacket *q; register ErrorPacket *cs, *ns; register unsigned char *range_limit; register unsigned int id; unsigned char blue, green, *range_table, red; unsigned int i, x, y; unsigned short index; /* Image must be uncompressed. */ if (!UncompressImage(image)) return(True); /* Allocate memory. */ cache=(int *) malloc((1 << 18)*sizeof(int)); error=(ErrorPacket *) malloc(((image->columns+2) << 1)*sizeof(ErrorPacket)); range_table=(unsigned char *) malloc(3*(MaxRGB+1)*sizeof(unsigned char)); if ((cache == (int *) NULL) || (error == (ErrorPacket *) NULL) || (range_table == (unsigned char *) NULL)) { Warning("Unable to dither image","Memory allocation failed"); return(True); } /* Initialize tables. */ for (i=0; i < (1 << 18); i++) cache[i]=(-1); for (i=0; i < ((image->columns+2) << 1); i++) { error[i].red=0; error[i].green=0; error[i].blue=0; } for (i=0; i <= MaxRGB; i++) { range_table[i]=0; range_table[i+(MaxRGB+1)]=(unsigned char) i; range_table[i+(MaxRGB+1)*2]=MaxRGB; } range_limit=range_table+(MaxRGB+1); /* Dither image. */ for (y=0; y < image->rows; y++) { q=image->pixels+image->columns*y; cs=error+1; ns=error+(image->columns+2)+1; step=1; if (y & 0x01) { /* Distribute error right-to-left for odd scanlines. */ q+=(image->columns-1); cs=error+(image->columns+2)+(image->columns-1)+1; ns=error+(image->columns-1)+1; step=(-1); } for (x=0; x < image->columns; x++) { red_error=(cs->red+8)/16; if (image->colors > 2) if (red_error > MaxError) red_error=MaxError; else if (red_error < -MaxError) red_error=(-MaxError); green_error=(cs->green+8)/16; if (image->colors > 2) if (green_error > MaxError) green_error=MaxError; else if (green_error < -MaxError) green_error=(-MaxError); blue_error=(cs->blue+8)/16; if (image->colors > 2) if (blue_error > MaxError) blue_error=MaxError; else if (blue_error < -MaxError) blue_error=(-MaxError); red=range_limit[q->red+red_error]; green=range_limit[q->green+green_error]; blue=range_limit[q->blue+blue_error]; i=(red >> 2) << 12 | (green >> 2) << 6 | blue >> 2; if (cache[i] < 0) { /* Identify the deepest node containing the pixel's color. */ node=cube.root; for ( ; ; ) { id=(red > node->mid_red ? 1 : 0) | (green > node->mid_green ? 1 : 0) << 1 | (blue > node->mid_blue ? 1 : 0) << 2; if ((node->children & (1 << id)) == 0) break; node=node->child[id]; } /* Find closest color among siblings and their children. */ cube.color.red=red; cube.color.green=green; cube.color.blue=blue; cube.distance=(unsigned long) (~0); ClosestColor(node->parent); cache[i]=cube.color_number; } index=(unsigned short) cache[i]; red_error=(int) red-(int) cube.colormap[index].red; green_error=(int) green-(int) cube.colormap[index].green; blue_error=(int) blue-(int) cube.colormap[index].blue; q->index=index; q+=step; /* Propagate the error in these proportions: Q 7/16 3/16 5/16 1/16 */ cs->red=0; cs->green=0; cs->blue=0; cs+=step; cs->red+=7*red_error; cs->green+=7*green_error; cs->blue+=7*blue_error; ns-=step; ns->red+=3*red_error; ns->green+=3*green_error; ns->blue+=3*blue_error; ns+=step; ns->red+=5*red_error; ns->green+=5*green_error; ns->blue+=5*blue_error; ns+=step; ns->red+=red_error; ns->green+=green_error; ns->blue+=blue_error; } } /* Free up memory. */ (void) free((char *) range_table); (void) free((char *) error); (void) free((char *) cache); return(False); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n i t i a l i z e C u b e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function InitializeCube initialize the Cube data structure. % % The format of the InitializeCube routine is: % % InitializeCube(number_colors,tree_depth,number_pixels,optimal) % % A description of each parameter follows. % % o number_colors: This integer value indicates the maximum number of % colors in the quantized image or colormap. Here we use this value % to determine the depth of the color description tree. % % o tree_depth: Normally, this integer value is zero or one. A zero or % one tells Quantize to choose a optimal tree depth of Log4(number_colors). % A tree of this depth generally allows the best representation of the % reference image with the least amount of memory and the fastest % computational speed. In some cases, such as an image with low color % dispersion (a few number of colors), a value other than % Log4(number_colors) is required. To expand the color tree completely, % use a value of 8. % % o number_pixels: Specifies the number of individual pixels in the image. % % o optimal: An unsigned integer value greater than zero indicates that % the optimal representation of the reference image should be returned. % */ static void InitializeCube(number_colors,tree_depth,number_pixels,optimal) unsigned int number_colors, tree_depth, number_pixels, optimal; { char c; register int i; static int log4[6] = {4, 16, 64, 256, 1024, ~0}; unsigned int bits, level, max_shift; /* Initialize tree to describe color cube. Depth is: Log4(colormap size)+2; */ cube.node_queue=(Nodes *) NULL; cube.nodes=0; cube.free_nodes=0; if (tree_depth > 1) cube.depth=Min(tree_depth,8); else { for (i=0; i < 6; i++) if (number_colors <= log4[i]) break; cube.depth=i+2; if (!optimal) cube.depth--; } /* Initialize the shift values. */ c=1; for (bits=0; c != (char) 0; bits++) c<<=1; for (max_shift=sizeof(unsigned int)*bits; number_pixels != 0; max_shift--) number_pixels>>=1; for (level=0; level <= cube.depth; level++) { cube.shift[level]=max_shift; if (max_shift != 0) max_shift--; } /* Initialize root node. */ cube.root=InitializeNode(0,0,(Node *) NULL,(MaxRGB+1) >> 1,(MaxRGB+1) >> 1, (MaxRGB+1) >> 1); if (cube.root == (Node *) NULL) { Warning("Unable to quantize image","Memory allocation failed"); exit(1); } cube.root->parent=cube.root; cube.root->number_colors=(unsigned long) (~0); cube.colors=0; /* Initialize the square values. */ for (i=(-MaxRGB); i <= MaxRGB; i++) cube.squares[i+MaxRGB]=i*i; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n i t i a l i z e N o d e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function InitializeNode allocates memory for a new node in the color cube % tree and presets all fields to zero. % % The format of the InitializeNode routine is: % % node=InitializeNode(node,id,level,mid_red,mid_green,mid_blue) % % A description of each parameter follows. % % o node: The InitializeNode routine returns this integer address. % % o id: Specifies the child number of the node. % % o level: Specifies the level in the classification the node resides. % % o mid_red: Specifies the mid point of the red axis for this node. % % o mid_green: Specifies the mid point of the green axis for this node. % % o mid_blue: Specifies the mid point of the blue axis for this node. % % */ static Node *InitializeNode(id,level,parent,mid_red,mid_green,mid_blue) unsigned int id, level; Node *parent; unsigned int mid_red, mid_green, mid_blue; { register int i; register Node *node; if (cube.free_nodes == 0) { register Nodes *nodes; /* Allocate a new nodes of nodes. */ nodes=(Nodes *) malloc(sizeof(Nodes)); if (nodes == (Nodes *) NULL) return((Node *) NULL); nodes->next=cube.node_queue; cube.node_queue=nodes; cube.next_node=nodes->nodes; cube.free_nodes=NodesInAList; } cube.nodes++; cube.free_nodes--; node=cube.next_node++; node->parent=parent; for (i=0; i < 8; i++) node->child[i]=(Node *) NULL; node->id=id; node->level=level; node->children=0; node->mid_red=mid_red; node->mid_green=mid_green; node->mid_blue=mid_blue; node->number_colors=0; node->number_unique=0; node->total_red=0; node->total_green=0; node->total_blue=0; return(node); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % P r u n e C h i l d % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function PruneChild deletes the given node and merges its statistics into % its parent. % % The format of the PruneSubtree routine is: % % PruneChild(node) % % A description of each parameter follows. % % o node: pointer to node in color cube tree that is to be pruned. % % */ static void PruneChild(node) register Node *node; { register Node *parent; /* Merge color statistics into parent. */ parent=node->parent; parent->children&=~(1 << node->id); parent->number_unique+=node->number_unique; parent->total_red+=node->total_red; parent->total_green+=node->total_green; parent->total_blue+=node->total_blue; cube.nodes--; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % P r u n e L e v e l % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure PruneLevel deletes all nodes at the bottom level of the color % tree merging their color statistics into their parent node. % % The format of the PruneLevel routine is: % % PruneLevel(node) % % A description of each parameter follows. % % o node: pointer to node in color cube tree that is to be pruned. % % */ static void PruneLevel(node) register Node *node; { register int id; /* Traverse any children. */ if (node->children != 0) for (id=0; id < 8; id++) if (node->children & (1 << id)) PruneLevel(node->child[id]); if (node->level == cube.depth) PruneChild(node); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e d u c e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Reduce traverses the color cube tree and prunes any node whose % number of colors fall below a particular threshold. % % The format of the Reduce routine is: % % Reduce(node) % % A description of each parameter follows. % % o node: pointer to node in color cube tree that is to be pruned. % % */ static void Reduce(node) register Node *node; { register unsigned int id; /* Traverse any children. */ if (node->children != 0) for (id=0; id < 8; id++) if (node->children & (1 << id)) Reduce(node->child[id]); /* Node is a colormap entry if it has unique colors. */ if (node->number_unique > 0) cube.colors++; /* Find minimum pruning threshold. */ if (node->number_colors < cube.next_pruning_threshold) cube.next_pruning_threshold=node->number_colors; if (node->number_colors <= cube.pruning_threshold) PruneChild(node); /* Node has a sub-threshold color count */ } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e d u c t i o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Reduction repeatedly prunes the tree until the number of nodes % with n2 > 0 is less than or equal to the maximum number of colors allowed % in the output image. On any given iteration over the tree, it selects % those nodes whose n1 count is minimal for pruning and merges their % color statistics upward. It uses a pruning threshold, ns, to govern % node selection as follows: % % ns = 0 % while number of nodes with (n2 > 0) > required maximum number of colors % prune all nodes such that n1 <= ns % Set ns to minimum n1 in remaining nodes % % When a node to be pruned has offspring, the pruning procedure invokes % itself recursively in order to prune the tree from the leaves upward. % n2, Sr, Sg, and Sb in a node being pruned are always added to the % corresponding data in that node's parent. This retains the pruned % node's color characteristics for later averaging. % % For each node, n2 pixels exist for which that node represents the % smallest volume in RGB space containing those pixel's colors. When n2 % > 0 the node will uniquely define a color in the output image. At the % beginning of reduction, n2 = 0 for all nodes except a the leaves of % the tree which represent colors present in the input image. % % The other pixel count, n1, indicates the total number of colors % within the cubic volume which the node represents. This includes n1 - % n2 pixels whose colors should be defined by nodes at a lower level in % the tree. % % The format of the Reduction routine is: % % Reduction(number_colors) % % A description of each parameter follows. % % o number_colors: This integer value indicates the maximum number of % colors in the quantized image or colormap. The actual number of % colors allocated to the colormap may be less than this value, but % never more. Note, the number of colors is restricted to a value % less than or equal to 65536 if the continuous_tone parameter has a % value of zero. % % */ static void Reduction(number_colors) unsigned int number_colors; { cube.next_pruning_threshold=1; while (cube.colors > number_colors) { cube.pruning_threshold=cube.next_pruning_threshold; cube.next_pruning_threshold=cube.root->number_colors-1; cube.colors=0; Reduce(cube.root); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Q u a n t i z a t i o n E r r o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function QuantizationError measures the difference between the original % and quantized images. This difference is the total quantization error. % The error is computed by summing over all pixels in an image the distance % squared in RGB space between each reference pixel value and its quantized % value. % % The format of the QuantizationError routine is: % % QuantizationError(image,mean_error_per_pixel, % normalized_mean_square_error,normalized_maximum_square_error) % % A description of each parameter follows. % % o image: The address of a byte (8 bits) array of run-length % encoded pixel data of your reference image. The sum of the % run-length counts in the reference image must be equal to or exceed % the number of pixels. % % o mean_error_per_pixel: The address of an integer value. The value % returned is the mean error for any single pixel in the image. % % o normalized_mean_square_error: The address of a real value. The value % returned is the normalized mean quantization error for any single % pixel in the image. This distance measure is normalized to a % range between 0 and 1. It is independent of the range of red, % green, and blue values in your image. % % o normalized_maximum_square_error: The address of a real value. The value % returned is the normalized maximum quantization error for any % single pixel in the image. This distance measure is normalized to % a range between 0 and 1. It is independent of the range of red, % green, and blue values in your image. % % */ void QuantizationError(image,mean_error_per_pixel,normalized_mean_square_error, normalized_maximum_square_error) Image *image; unsigned int *mean_error_per_pixel; double *normalized_mean_square_error, *normalized_maximum_square_error; { register int i; register RunlengthPacket *p; register unsigned int blue_distance, green_distance, red_distance; unsigned long distance, maximum_error_per_pixel, total_error; /* For each pixel, collect error statistics. */ for (i=(-MaxRGB); i <= MaxRGB; i++) cube.squares[i+MaxRGB]=i*i; maximum_error_per_pixel=0; total_error=0; p=image->pixels; for (i=0; i < image->packets; i++) { red_distance=(int) p->red-(int) image->colormap[p->index].red+MaxRGB; green_distance=(int) p->green-(int) image->colormap[p->index].green+MaxRGB; blue_distance=(int) p->blue-(int) image->colormap[p->index].blue+MaxRGB; distance=cube.squares[red_distance]+cube.squares[green_distance]+ cube.squares[blue_distance]; total_error+=(distance*(p->length+1)); if (distance > maximum_error_per_pixel) maximum_error_per_pixel=distance; p++; } /* Compute final error statistics. */ *mean_error_per_pixel=(unsigned int) total_error/(image->columns*image->rows); *normalized_mean_square_error=((double) *mean_error_per_pixel)/ (3.0*(MaxRGB+1)*(MaxRGB+1)); *normalized_maximum_square_error=((double) maximum_error_per_pixel)/ (3.0*(MaxRGB+1)*(MaxRGB+1)); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Q u a n t i z e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function QuantizeImage analyzes the colors within a reference image and % chooses a fixed number of colors to represent the image. The goal of the % algorithm is to minimize the difference between the input and output image % while minimizing the processing time. % % The format of the QuantizeImage routine is: % % colors=QuantizeImage(image,number_colors,tree_depth,dither,optimal) % % A description of each parameter follows. % % o colors: The QuantizeImage function returns this integer % value. It is the actual number of colors allocated in the % colormap. Note, the actual number of colors allocated may be less % than the number of colors requested, but never more. % % o image: Specifies a pointer to an Image structure; returned from % ReadImage. % % o number_colors: This integer value indicates the maximum number of % colors in the quantized image or colormap. The actual number of % colors allocated to the colormap may be less than this value, but % never more. Note, the number of colors is restricted to a value % less than or equal to 65536 if the continuous_tone parameter has a % value of zero. % % o tree_depth: Normally, this integer value is zero or one. A zero or % one tells Quantize to choose a optimal tree depth of % Log4(number_colors). A tree of this depth generally allows the best % representation of the reference image with the least amount of memory % and the fastest computational speed. In some cases, such as an image % with low color dispersion (a few number of colors), a value other than % Log4(number_colors) is required. To expand the color tree completely, % use a value of 8. % % o dither: Set this integer value to something other than zero to % dither the quantized image. The basic strategy of dithering is to % trade intensity resolution for spatial resolution by averaging the % intensities of several neighboring pixels. Images which suffer % from severe contouring when quantized can be improved with the % technique of dithering. Severe contouring generally occurs when % quantizing to very few colors, or to a poorly-chosen colormap. % Note, dithering is a computationally expensive process and will % increase processing time significantly. % % o colorspace: An unsigned integer value that indicates the colorspace. % Empirical evidence suggests that distances in YUV or YIQ correspond to % perceptual color differences more closely than do distances in RGB % space. The image is then returned to RGB colorspace after color % reduction. % % o optimal: An unsigned integer value greater than zero indicates that % the optimal representation of the reference image should be returned. % % */ void QuantizeImage(image,number_colors,tree_depth,dither,colorspace,optimal) Image *image; unsigned int number_colors, tree_depth, dither, colorspace, optimal; { Nodes *nodes; /* Reduce the number of colors in the continuous tone image. */ if (number_colors > MaxColormapSize) number_colors=MaxColormapSize; InitializeCube(number_colors,tree_depth,image->columns*image->rows,optimal); if (!dither || !optimal) if (image->packets == (image->columns*image->rows)) CompressImage(image); if (colorspace != RGBColorspace) RGBTransformImage(image,colorspace); Classification(image); Reduction(number_colors); Assignment(image,dither,colorspace,optimal); if (colorspace != RGBColorspace) TransformRGBImage(image,colorspace); /* Release color cube tree storage. */ do { nodes=cube.node_queue->next; (void) free((char *) cube.node_queue); cube.node_queue=nodes; } while (cube.node_queue != (Nodes *) NULL); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Q u a n t i z e I m a g e s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % QuantizeImages analyzes the colors within a set of reference images and % chooses a fixed number of colors to represent the set. The goal of the % algorithm is to minimize the difference between the input and output images % while minimizing the processing time. % % The format of the QuantizeImages routine is: % % QuantizeImages(images,number_images,number_colors,tree_depth,dither, % optimal) % % A description of each parameter follows: % % o images: Specifies a pointer to a set of Image structures. % % o number_images: Specifies an unsigned integer representing the number % images in the image set. % % o colormap_image: Specifies a pointer to a Image structure. Reduce % images to a set of colors represented by this image. % % o number_colors: This integer value indicates the maximum number of % colors in the quantized image or colormap. The actual number of colors % allocated to the colormap may be less than this value, but never more. % Note, the number of colors is restricted to a value less than or equal % to 65536 if the quantized image is not DirectClass. % % o tree_depth: Normally, this integer value is zero or one. A zero or % one tells QUANTIZE to choose a optimal tree depth. An optimal depth % generally allows the best representation of the reference image with the % fastest computational speed and the least amount of memory. However, % the default depth is inappropriate for some images. To assure the best % representation, try values between 2 and 8 for this parameter. % % o dither: Set this integer value to something other than zero to % dither the quantized image. The basic strategy of dithering is to % trade intensity resolution for spatial resolution by averaging the % intensities of several neighboring pixels. Images which suffer % from severe contouring when quantized can be improved with the % technique of dithering. Severe contouring generally occurs when % quantizing to very few colors, or to a poorly-chosen colormap. % Note, dithering is a computationally expensive process and will % increase processing time significantly. % % o colorspace: An unsigned integer value that indicates the colorspace. % Empirical evidence suggests that distances in YUV or YIQ correspond to % perceptual color differences more closely than do distances in RGB % space. The image is then returned to RGB colorspace after color % reduction. % % o optimal: An unsigned integer value greater than zero indicates that % the optimal representation of the reference image should be returned. % % */ void QuantizeImages(images,number_images,colormap_image,number_colors, tree_depth,dither,colorspace,optimal) Image **images; unsigned int number_images; Image *colormap_image; unsigned int number_colors, tree_depth, dither, colorspace, optimal; { Nodes *nodes; register unsigned int i; /* Reduce the number of colors in the continuous tone image sequence. */ InitializeCube(number_colors,tree_depth,~0,optimal); if (colormap_image != (Image *) NULL) { /* Reduce images to a set of colors represented by the colormap image. */ if (!dither || !optimal) if (colormap_image->packets == (colormap_image->columns*colormap_image->rows)) CompressImage(colormap_image); if (colorspace != RGBColorspace) RGBTransformImage(colormap_image,colorspace); Classification(colormap_image); if (colorspace != RGBColorspace) TransformRGBImage(colormap_image,colorspace); optimal=True; } for (i=0; i < number_images; i++) { if (!dither || !optimal) if (images[i]->packets == (images[i]->columns*images[i]->rows)) CompressImage(images[i]); if (colorspace != RGBColorspace) RGBTransformImage(images[i],colorspace); if (colormap_image == (Image *) NULL) Classification(images[i]); } Reduction(number_colors); for (i=0; i < number_images; i++) { Assignment(images[i],dither,colorspace,optimal); if (colorspace != RGBColorspace) TransformRGBImage(images[i],colorspace); } /* Release color cube tree storage. */ do { nodes=cube.node_queue->next; (void) free((char *) cube.node_queue); cube.node_queue=nodes; } while (cube.node_queue != (Nodes *) NULL); } % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure DitherImage uses the Floyd-Steinberg algorithm to dither the % image./ImageMagick/magick/colors.c 644 24 24 25703 5555556174 11324 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % CCCC OOO L OOO RRRR SSSSS % % C O O L O O R R SS % % C O O L O O RRRR SSS % % C O O L O O R R SS % % CCCC OOO LLLLL OOO R R SSSSS % % % % % % Count the Colors in an Image % % % % % % % % Software Design % % John Cristy % % July 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % */ /* Include declarations. */ #include "magick.h" #include "image.h" /* Define declarations. */ #define MaxTreeDepth 8 /* Log2(MaxRGB) */ #define NodesInAList MaxTextLength /* Structures. */ typedef struct _Node { struct _Node *child[8]; unsigned char level, mid_red, mid_green, mid_blue; unsigned long number_colors; } Node; typedef struct _Nodes { Node nodes[NodesInAList]; struct _Nodes *next; } Nodes; typedef struct _Cube { Node *root; unsigned int colors; unsigned int free_nodes; Node *node; Nodes *node_list; } Cube; /* Global variables. */ static Cube cube; /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % H i s t o g r a m % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure Histogram traverses the color cube tree and produces a list of % unique pixel field values and the number of times each occurs in the image. % % The format of the Histogram routine is: % % Histogram(node,file) % % A description of each parameter follows. % % o node: The address of a structure of type Node which points to a % node in the color cube tree that is to be pruned. % % */ static void Histogram(node,file) register Node *node; FILE *file; { register unsigned int id; /* Traverse any children. */ for (id=0; id < 8; id++) if (node->child[id] != (Node *) NULL) Histogram(node->child[id],file); if (node->level == MaxTreeDepth) (void) fprintf(file,"%8lu\t%d\t%d\t%d\n",node->number_colors, node->mid_red,node->mid_green,node->mid_blue); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n i t i a l i z e N o d e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function InitializeNode allocates memory for a new node in the color cube % tree and presets all fields to zero. % % The format of the InitializeNode routine is: % % node=InitializeNode(level,mid_red,mid_green,mid_blue) % % A description of each parameter follows. % % o level: Specifies the level in the classification the node resides. % % o mid_red: Specifies the mid point of the red axis for this node. % % o mid_green: Specifies the mid point of the green axis for this node. % % o mid_blue: Specifies the mid point of the blue axis for this node. % % */ static Node *InitializeNode(level,mid_red,mid_green,mid_blue) unsigned int level, mid_red, mid_green, mid_blue; { register int i; register Node *node; if (cube.free_nodes == 0) { register Nodes *nodes; /* Allocate a new nodes of nodes. */ nodes=(Nodes *) malloc(sizeof(Nodes)); if (nodes == (Nodes *) NULL) return((Node *) NULL); nodes->next=cube.node_list; cube.node_list=nodes; cube.node=nodes->nodes; cube.free_nodes=NodesInAList; } cube.free_nodes--; node=cube.node++; for (i=0; i < 8; i++) node->child[i]=(Node *) NULL; node->level=level; node->mid_red=mid_red; node->mid_green=mid_green; node->mid_blue=mid_blue; node->number_colors=0; return(node); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % N u m b e r C o l o r s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function NumberColors returns the number of unique colors in an image. % % The format of the NumberColors routine is: % % number_colors=NumberColors(image,file) % % A description of each parameter follows. % % o image: The address of a byte (8 bits) array of run-length % encoded pixel data of your source image. The sum of the % run-length counts in the source image must be equal to or exceed % the number of pixels. % % o file: An pointer to a FILE. If it is non-null a list of unique pixel % field values and the number of times each occurs in the image is % written to the file. % % % */ unsigned int NumberColors(image,file) Image *image; FILE *file; { Nodes *nodes; register RunlengthPacket *p; register int i; register Node *node; register unsigned int count, id, level; unsigned int bisect; /* Initialize color description tree. */ cube.node_list=(Nodes *) NULL; cube.colors=0; cube.free_nodes=0; cube.root=InitializeNode(0,(MaxRGB+1) >> 1,(MaxRGB+1) >> 1,(MaxRGB+1) >> 1); if (cube.root == (Node *) NULL) { Warning("Unable to count colors","Memory allocation failed"); return(0); } p=image->pixels; for (i=0; i < image->packets; i++) { /* Start at the root and proceed level by level. */ count=p->length+1; node=cube.root; for (level=1; level <= MaxTreeDepth; level++) { id=(p->red >= node->mid_red ? 1 : 0) | (p->green >= node->mid_green ? 1 : 0) << 1 | (p->blue >= node->mid_blue ? 1 : 0) << 2; if (node->child[id] == (Node *) NULL) { if (level == MaxTreeDepth) { node->child[id]=InitializeNode(level,(unsigned int) p->red, (unsigned int) p->green,(unsigned int) p->blue); cube.colors++; } else { bisect=(unsigned int) (1 << (MaxTreeDepth-level)) >> 1; node->child[id]=InitializeNode(level, node->mid_red+(id & 1 ? bisect : -bisect), node->mid_green+(id & 2 ? bisect : -bisect), node->mid_blue+(id & 4 ? bisect : -bisect)); } if (node->child[id] == (Node *) NULL) { Warning("Unable to count colors","Memory allocation failed"); return(0); } } node=node->child[id]; } node->number_colors+=count; p++; } if (file != (FILE *) NULL) Histogram(cube.root,file); /* Release color cube tree storage. */ do { nodes=cube.node_list->next; (void) free((char *) cube.node_list); cube.node_list=nodes; } while (cube.node_list != (Nodes *) NULL); return(cube.colors); } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function QuantizeIma./ImageMagick/magick/signature.c 644 24 24 42576 5555556176 12035 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % SSSSS IIIII GGGG N N AAA TTTTT U U RRRR EEEEE % % SS I G NN N A A T U U R R E % % SSS I G GG N N N AAAAA T U U RRRR EEE % % SS I G G N NN A A T U U R R E % % SSSSS IIIII GGG N N A A T UUU R R EEEEE % % % % % % Compute a Digital Signature for a Image Colormap % % % % % % % % Software Design % % John Cristy % % December 1992 % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Routine ColormapSignature computes a digital signature from the image % colormap. This signature uniquely identifies the colormap and is convenient % for determining if the colormap of a sequence of images is identical when % animating. The digital signature is from RSA Data Security MD5 Digest % Algorithm described in Internet draft [MD5], July 1992. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" /* Typedef declarations. */ typedef struct _MessageDigest { unsigned long number_bits[2], accumulator[4]; unsigned char message[64], digest[16]; } MessageDigest; /* Forward declarations. */ static void TransformMessageDigest _Declare((MessageDigest *,unsigned long *)), UpdateMessageDigest _Declare((MessageDigest *,unsigned char *,unsigned long)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o m p u t e M e s s a g e D i g e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ComputeMessageDigest computes the message digest. % % The format of the ComputeMessageDigest routine is: % % ComputeMessageDigest(message_digest,input_message,message_length) % % A description of each parameter follows: % % o message_digest: The address of a structure of type MessageDigest. % % */ static void ComputeMessageDigest(message_digest) MessageDigest *message_digest; { int number_bytes; register unsigned char *p; register unsigned int i; unsigned char padding[64]; unsigned long message[16], padding_length; /* Save number of bits. */ message[14]=message_digest->number_bits[0]; message[15]=message_digest->number_bits[1]; /* Compute number of bytes mod 64. */ number_bytes=(int) ((message_digest->number_bits[0] >> 3) & 0x3F); /* Pad message to 56 mod 64. */ padding_length=(number_bytes < 56) ? (56-number_bytes) : (120-number_bytes); padding[0]=0x80; for (i=1; i < padding_length; i++) padding[i]=(char) 0; UpdateMessageDigest(message_digest,padding,padding_length); /* Append length in bits and transform. */ p=message_digest->message; for (i=0; i < 14; i++) { message[i]=(unsigned long) (*p++); message[i]|=((unsigned long) (*p++)) << 8; message[i]|=((unsigned long) (*p++)) << 16; message[i]|=((unsigned long) (*p++)) << 24; } TransformMessageDigest(message_digest,message); /* Store message in digest. */ p=message_digest->digest; for (i=0; i < 4; i++) { *p++=(unsigned char) (message_digest->accumulator[i] & 0xff); *p++=(unsigned char) ((message_digest->accumulator[i] >> 8) & 0xff); *p++=(unsigned char) ((message_digest->accumulator[i] >> 16) & 0xff); *p++=(unsigned char) ((message_digest->accumulator[i] >> 24) & 0xff); } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % I n i t i a l i z e M e s s a g e D i g e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function InitializeMessageDigest initializes the message digest structure. % % The format of the InitializeMessageDigest routine is: % % InitializeMessageDigest(message_digest) % % A description of each parameter follows: % % o message_digest: The address of a structure of type MessageDigest. % % */ static void InitializeMessageDigest(message_digest) MessageDigest *message_digest; { message_digest->number_bits[0]=(unsigned long) 0; message_digest->number_bits[1]=(unsigned long) 0; /* Load magic initialization constants. */ message_digest->accumulator[0]=(unsigned long) 0x67452301; message_digest->accumulator[1]=(unsigned long) 0xefcdab89; message_digest->accumulator[2]=(unsigned long) 0x98badcfe; message_digest->accumulator[3]=(unsigned long) 0x10325476; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % T r a n s f o r m M e s s a g e D i g e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function TransformMessageDigest updates the message digest. % % The format of the TransformMessageDigest routine is: % % TransformMessageDigest(message_digest,message) % % A description of each parameter follows: % % o message_digest: The address of a structure of type MessageDigest. % % */ static void TransformMessageDigest(message_digest,message) MessageDigest *message_digest; unsigned long *message; { #define F(x,y,z) (((x) & (y)) | ((~x) & (z))) #define G(x,y,z) (((x) & (z)) | ((y) & (~z))) #define H(x,y,z) ((x) ^ (y) ^ (z)) #define I(x,y,z) ((y) ^ ((x) | (~z))) #define RotateLeft(x,n) (((x) << (n)) | (((x) & 0xffffffff) >> (32-(n)))) static unsigned long additive_constant[64]= /* 4294967296*abs(sin(i)), i in radians */ { 0xd76aa478, 0xe8c7b756, 0x242070db, 0xc1bdceee, 0xf57c0faf, 0x4787c62a, 0xa8304613, 0xfd469501, 0x698098d8, 0x8b44f7af, 0xffff5bb1, 0x895cd7be, 0x6b901122, 0xfd987193, 0xa679438e, 0x49b40821, 0xf61e2562, 0xc040b340, 0x265e5a51, 0xe9b6c7aa, 0xd62f105d, 0x2441453, 0xd8a1e681, 0xe7d3fbc8, 0x21e1cde6, 0xc33707d6, 0xf4d50d87, 0x455a14ed, 0xa9e3e905, 0xfcefa3f8, 0x676f02d9, 0x8d2a4c8a, 0xfffa3942, 0x8771f681, 0x6d9d6122, 0xfde5380c, 0xa4beea44, 0x4bdecfa9, 0xf6bb4b60, 0xbebfbc70, 0x289b7ec6, 0xeaa127fa, 0xd4ef3085, 0x4881d05, 0xd9d4d039, 0xe6db99e5, 0x1fa27cf8, 0xc4ac5665, 0xf4292244, 0x432aff97, 0xab9423a7, 0xfc93a039, 0x655b59c3, 0x8f0ccc92, 0xffeff47d, 0x85845dd1, 0x6fa87e4f, 0xfe2ce6e0, 0xa3014314, 0x4e0811a1, 0xf7537e82, 0xbd3af235, 0x2ad7d2bb, 0xeb86d391, }; register int i; register unsigned int j; register unsigned long a, b, c, d, *p; /* Save accumulator. */ a=message_digest->accumulator[0]; b=message_digest->accumulator[1]; c=message_digest->accumulator[2]; d=message_digest->accumulator[3]; /* a=b+((a+F(b,c,d)+X[k]+t) <<< s). */ p=additive_constant; j=0; for (i=0; i < 4; i++) { a+=F(b,c,d)+message[j & 0x0f]+(*p++); a=RotateLeft(a,7)+b; j++; d+=F(a,b,c)+message[j & 0x0f]+(*p++); d=RotateLeft(d,12)+a; j++; c+=F(d,a,b)+message[j & 0x0f]+(*p++); c=RotateLeft(c,17)+d; j++; b+=F(c,d,a)+message[j & 0x0f]+(*p++); b=RotateLeft(b,22)+c; j++; } /* a=b+((a+G(b,c,d)+X[k]+t) <<< s). */ j=1; for (i=0; i < 4; i++) { a+=G(b,c,d)+message[j & 0x0f]+(*p++); a=RotateLeft(a,5)+b; j+=5; d+=G(a,b,c)+message[j & 0x0f]+(*p++); d=RotateLeft(d,9)+a; j+=5; c+=G(d,a,b)+message[j & 0x0f]+(*p++); c=RotateLeft(c,14)+d; j+=5; b+=G(c,d,a)+message[j & 0x0f]+(*p++); b=RotateLeft(b,20)+c; j+=5; } /* a=b+((a+H(b,c,d)+X[k]+t) <<< s). */ j=5; for (i=0; i < 4; i++) { a+=H(b,c,d)+message[j & 0x0f]+(*p++); a=RotateLeft(a,4)+b; j+=3; d+=H(a,b,c)+message[j & 0x0f]+(*p++); d=RotateLeft(d,11)+a; j+=3; c+=H(d,a,b)+message[j & 0x0f]+(*p++); c=RotateLeft(c,16)+d; j+=3; b+=H(c,d,a)+message[j & 0x0f]+(*p++); b=RotateLeft(b,23)+c; j+=3; } /* a=b+((a+I(b,c,d)+X[k]+t) <<< s). */ j=0; for (i=0; i < 4; i++) { a+=I(b,c,d)+message[j & 0x0f]+(*p++); a=RotateLeft(a,6)+b; j+=7; d+=I(a,b,c)+message[j & 0x0f]+(*p++); d=RotateLeft(d,10)+a; j+=7; c+=I(d,a,b)+message[j & 0x0f]+(*p++); c=RotateLeft(c,15)+d; j+=7; b+=I(c,d,a)+message[j & 0x0f]+(*p++); b=RotateLeft(b,21)+c; j+=7; } /* Increment accumulator. */ message_digest->accumulator[0]+=a; message_digest->accumulator[1]+=b; message_digest->accumulator[2]+=c; message_digest->accumulator[3]+=d; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U p d a t e M e s s a g e D i g e s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function UpdateMessageDigest updates the message digest. % % The format of the UpdateMessageDigest routine is: % % UpdateMessageDigest(message_digest,input_message,message_length) % % A description of each parameter follows: % % o message_digest: The address of a structure of type MessageDigest. % % */ static void UpdateMessageDigest(message_digest,input_message,message_length) MessageDigest *message_digest; unsigned char *input_message; unsigned long message_length; { int number_bytes; register unsigned char *p; register unsigned int i; unsigned long message[16]; /* Compute number of bytes mod 64. */ number_bytes=(int) ((message_digest->number_bits[0] >> 3) & 0x3F); /* Update number of bits. */ if (((message_digest->number_bits[0]+(message_length << 3)) & 0xffffffff) < message_digest->number_bits[0]) message_digest->number_bits[1]++; message_digest->number_bits[0]+=message_length << 3; message_digest->number_bits[1]+=message_length >> 29; while (message_length--) { /* Add new character to message. */ message_digest->message[number_bytes++]=(*input_message++); if (number_bytes == 0x40) { /* Transform message digest 64 bytes at a time. */ p=message_digest->message; for (i=0; i < 16; i++) { message[i]=(unsigned long) (*p++); message[i]|=((unsigned long) (*p++)) << 8; message[i]|=((unsigned long) (*p++)) << 16; message[i]|=((unsigned long) (*p++)) << 24; } TransformMessageDigest(message_digest,message); number_bytes=0; } } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % C o l o r m a p S i g n a t u r e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Fucntion ColormapSignature computes a digital signature from the image % colormap. This signature uniquely identifies the colormap and is convenient % for determining if the colormap of a sequence of images is identical when % animating. The digital signature is from RSA Data Security MD5 Digest % Algorithm described in Internet draft [MD5], July 1992. % % The format of the ColormapSignature routine is: % % ColormapSignature(image) % % A description of each parameter follows: % % o image: The address of a structure of type Image. % % % */ void ColormapSignature(image) Image *image; { char *hex; MessageDigest message_digest; register int i; register unsigned char *p; unsigned char *colormap; if (image->class != PseudoClass) return; /* Allocate colormap. */ colormap=(unsigned char *) malloc(3*image->colors*sizeof(unsigned char)); if (colormap == (unsigned char *) NULL) { Warning("Unable to compute colormap signature", "Memory allocation failed"); return; } p=colormap; for (i=0; i < image->colors; i++) { *p++=image->colormap[i].red; *p++=image->colormap[i].green; *p++=image->colormap[i].blue; } /* Compute program colormap signature. */ InitializeMessageDigest(&message_digest); UpdateMessageDigest(&message_digest,colormap, (unsigned long) (image->colors*3)); ComputeMessageDigest(&message_digest); (void) free((char *) colormap); /* Allocate memory for signature. */ if (image->signature != (char *) NULL) (void) free((char *) image->signature); image->signature=(char *) malloc(33*sizeof(char)); if (image->signature == (char *) NULL) { Warning("Unable to compute colormap signature", "Memory allocation failed"); return; } /* Convert digital signature to a 32 character hex string. */ p=(unsigned char *) image->signature; hex="0123456789abcdef"; for (i=0; i < 16; i++) { *p++=hex[(message_digest.digest[i] >> 4) & 0xf]; *p++=hex[message_digest.digest[i] & 0xf]; } *p='\0'; } ing. Severe contouring generally occurs when % quantizing to very few colors, or to a poorly-chosen colormap. % Note, d./ImageMagick/magick/decode.c 644 24 24 1027555 5556517067 11315 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % DDDD EEEEE CCCC OOO DDDD EEEEE % % D D E C O O D D E % % D D EEE C O O D D EEE % % D D E C O O D D E % % DDDD EEEEE CCCC OOO DDDD EEEEE % % % % % % Utility Routines to Read Image Formats % % % % % % % % Software Design % % John Cristy % % January 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Functions in this library convert to and from `alien' image formats to the % MIFF image format. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "compress.h" #include "utility.h" #include "X.h" #include "XWDFile.h" /* Forward declarations. */ static Image *ReadMIFFImage _Declare((ImageInfo *)), *ReadPNMImage _Declare((ImageInfo *)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d A V S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadAVSImage reads a AVS X image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadAVSImage routine is: % % image=ReadAVSImage(image_info) % % A description of each parameter follows: % % o image: Function ReadAVSImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or if % the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadAVSImage(image_info) ImageInfo *image_info; { typedef struct _AVSHeader { int width, height; } AVSHeader; AVSHeader avs_header; Image *image; register int i; register unsigned char *p; register RunlengthPacket *q; unsigned char *avs_pixels; unsigned int status; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read AVS image. */ status=ReadData((char *) &avs_header,1,sizeof(AVSHeader),image->file); if (status == False) { Warning("Not a AVS image file",(char *) NULL); DestroyImage(image); return((Image *) NULL); } do { /* Initialize image structure. */ image->matte=True; image->columns=avs_header.width; image->rows=avs_header.height; image->packets=image->columns*image->rows; avs_pixels=(unsigned char *) malloc(4*image->packets*sizeof(unsigned char)); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((avs_pixels == (unsigned char *) NULL) || (image->pixels == (RunlengthPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Convert AVS raster image to runlength-encoded packets. */ (void) ReadData((char *) avs_pixels,4,(int) image->packets,image->file); p=avs_pixels; q=image->pixels; for (i=0; i < image->packets; i++) { q->index=(unsigned char) (*p++); q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->length=0; q++; } (void) free((char *) avs_pixels); status=ReadData((char *) &avs_header,1,sizeof(AVSHeader),image->file); if (status == True) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while (status == True); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d B M P I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadBMPImage reads a Microsoft Windows bitmap image file and % returns it. It allocates the memory necessary for the new Image structure % and returns a pointer to the new image. % % The format of the ReadBMPImage routine is: % % image=ReadBMPImage(image_info) % % A description of each parameter follows: % % o image: Function ReadBMPImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadBMPImage(image_info) ImageInfo *image_info; { typedef struct _BMPHeader { unsigned long file_size; unsigned short reserved[2]; unsigned long offset_bits, size, width, height; unsigned short planes, bit_count; unsigned long compression, image_size, x_pixels, y_pixels, number_colors, colors_important; } BMPHeader; BMPHeader bmp_header; Image *image; register int bit, i, x, y; register RunlengthPacket *q; register unsigned char *p; unsigned char *bmp_data, *bmp_pixels, magick[12]; unsigned int bytes_per_line, status; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine if this is a BMP file. */ status=ReadData((char *) magick,1,2,image->file); do { /* Verify BMP identifier. */ if ((status == False) || (strncmp((char *) magick,"BM",2) != 0)) { Warning("Not a BMP image file",(char *) NULL); DestroyImages(image); return((Image *) NULL); } bmp_header.file_size=LSBFirstReadLong(image->file); bmp_header.reserved[0]=LSBFirstReadShort(image->file); bmp_header.reserved[1]=LSBFirstReadShort(image->file); bmp_header.offset_bits=LSBFirstReadLong(image->file); bmp_header.size=LSBFirstReadLong(image->file); if (bmp_header.size == 12) { /* OS/2 BMP image file. */ bmp_header.width=(unsigned long) LSBFirstReadShort(image->file); bmp_header.height=(unsigned long) LSBFirstReadShort(image->file); bmp_header.planes=LSBFirstReadShort(image->file); bmp_header.bit_count=LSBFirstReadShort(image->file); bmp_header.number_colors=0; bmp_header.compression=0; bmp_header.image_size=0; } else { /* Microsoft Windows BMP image file. */ bmp_header.width=LSBFirstReadLong(image->file); bmp_header.height=LSBFirstReadLong(image->file); bmp_header.planes=LSBFirstReadShort(image->file); bmp_header.bit_count=LSBFirstReadShort(image->file); bmp_header.compression=LSBFirstReadLong(image->file); bmp_header.image_size=LSBFirstReadLong(image->file); bmp_header.x_pixels=LSBFirstReadLong(image->file); bmp_header.y_pixels=LSBFirstReadLong(image->file); bmp_header.number_colors=LSBFirstReadLong(image->file); bmp_header.colors_important=LSBFirstReadLong(image->file); for (i=0; i < ((int) bmp_header.size-40); i++) (void) fgetc(image->file); } if (bmp_header.bit_count < 24) { unsigned char *bmp_colormap; unsigned int packet_size; /* Read BMP raster colormap. */ image->class=PseudoClass; image->colors=1 << bmp_header.bit_count; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); bmp_colormap=(unsigned char *) malloc(4*image->colors*sizeof(unsigned char)); if ((image->colormap == (ColorPacket *) NULL) || (bmp_colormap == (unsigned char *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } packet_size=4; if (bmp_header.size == 12) packet_size=3; (void) ReadData((char *) bmp_colormap,(int) packet_size, (int) image->colors,image->file); p=bmp_colormap; for (i=0; i < image->colors; i++) { image->colormap[i].blue=(*p++); image->colormap[i].green=(*p++); image->colormap[i].red=(*p++); if (bmp_header.size != 12) p++; } (void) free((char *) bmp_colormap); } /* Read image data. */ if (bmp_header.image_size == 0) bmp_header.image_size= ((bmp_header.width*bmp_header.bit_count+31)/32)*4*bmp_header.height; bmp_data=(unsigned char *) malloc(bmp_header.image_size*sizeof(unsigned char)); if (bmp_data == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } status=ReadData((char *) bmp_data,1,(int) bmp_header.image_size, image->file); if (status == False) { Warning("Unable to read image data",image_info->filename); DestroyImages(image); return((Image *) NULL); } bmp_pixels=bmp_data; if (bmp_header.compression != 0) { unsigned int packets; /* Convert run-length encoded raster pixels. */ packets= ((bmp_header.width*bmp_header.bit_count+31)/32)*4*bmp_header.height; if (bmp_header.compression == 2) packets<<=1; bmp_pixels=(unsigned char *) malloc(packets*sizeof(unsigned char)); if (bmp_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) BMPDecodeImage(bmp_data,bmp_pixels, (unsigned int) bmp_header.compression,(unsigned int) bmp_header.width, (unsigned int) bmp_header.height); if (bmp_header.compression == 2) bmp_header.bit_count<<=1; (void) free((char *) bmp_data); } /* Initialize image structure. */ image->columns=bmp_header.width; image->rows=bmp_header.height; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Convert BMP raster image to runlength-encoded packets. */ bytes_per_line=((image->columns*bmp_header.bit_count+31)/32)*4; switch (bmp_header.bit_count) { case 1: { /* Convert bitmap scanline to runlength-encoded color packets. */ for (y=image->rows-1; y >= 0; y--) { p=bmp_pixels+(image->rows-y-1)*bytes_per_line; q=image->pixels+(y*image->columns); for (x=0; x < (image->columns-7); x+=8) { for (bit=0; bit < 8; bit++) { q->index=((*p) & (0x80 >> bit) ? 0x00 : 0x01); q->length=0; q++; } p++; } if ((image->columns % 8) != 0) { for (bit=0; bit < (8-(image->columns % 8)); bit++) { q->index=((*p) & (0x80 >> bit) ? 0x00 : 0x01); q->length=0; q++; } p++; } } SyncImage(image); break; } case 4: { /* Convert PseudoColor scanline to runlength-encoded color packets. */ for (y=image->rows-1; y >= 0; y--) { p=bmp_pixels+(image->rows-y-1)*bytes_per_line; q=image->pixels+(y*image->columns); for (x=0; x < (image->columns-1); x+=2) { q->index=(*p >> 4) & 0xf; q->length=0; q++; q->index=(*p) & 0xf; q->length=0; p++; q++; } if ((image->columns % 2) != 0) { q->index=(*p >> 4) & 0xf; q->length=0; q++; p++; } } SyncImage(image); CompressColormap(image); break; } case 8: { /* Convert PseudoColor scanline to runlength-encoded color packets. */ for (y=image->rows-1; y >= 0; y--) { p=bmp_pixels+(image->rows-y-1)*bytes_per_line; q=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { q->index=(*p++); q->length=0; q++; } } SyncImage(image); CompressColormap(image); break; } case 24: { /* Convert DirectColor scanline to runlength-encoded color packets. */ for (y=image->rows-1; y >= 0; y--) { p=bmp_pixels+(image->rows-y-1)*bytes_per_line; q=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { q->index=(unsigned short) (image->matte ? (*p++) : 0); q->blue=(*p++); q->green=(*p++); q->red=(*p++); q->length=0; q++; } } break; } default: { Warning("Not a BMP image file",(char *) NULL); DestroyImages(image); return((Image *) NULL); } } (void) free((char *) bmp_pixels); /* Proceed to next image. */ status=ReadData((char *) magick,1,2,image->file); if ((status == True) && (strncmp((char *) magick,"BM",2) == 0)) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while ((status == True) && (strncmp((char *) magick,"BM",2) == 0)); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d C M Y K I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadCMYKImage reads an image of raw cyan, magenta, yellow, and % black bytes and returns it. It allocates the memory necessary for the new % Image structure and returns a pointer to the new image. % % The format of the ReadCMYKImage routine is: % % image=ReadCMYKImage(image_info) % % A description of each parameter follows: % % o image: Function ReadCMYKImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadCMYKImage(image_info) ImageInfo *image_info; { Image *image; int x, y; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char black, *cmyk_pixels, cyan, magenta, yellow; unsigned int height, width; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine width and height, e.g. 640x512. */ width=512; height=512; if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); /* Initialize image structure. */ image->columns=width; image->rows=height; image->packets=image->columns*image->rows; cmyk_pixels=(unsigned char *) malloc(4*image->packets*sizeof(unsigned char)); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((cmyk_pixels == (unsigned char *) NULL) || (image->pixels == (RunlengthPacket *) NULL)) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Convert raster image to runlength-encoded packets. */ (void) ReadData((char *) cmyk_pixels,4,(int) image->packets,image->file); p=cmyk_pixels; switch (image_info->interlace) { case NoneInterlace: default: { /* No interlacing: CMYKCMYKCMYKCMYKCMYKCMYK... */ q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=(*p++); q->length=0; q++; } break; } case LineInterlace: { /* Line interlacing: CCC...MMM...YYY...KKK...CCC...MMM...YYY...KKK... */ for (y=0; y < image->rows; y++) { q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->red=(*p++); q->length=0; q++; } q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->green=(*p++); q++; } q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->blue=(*p++); q++; } q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->index=(*p++); q++; } } break; } case PlaneInterlace: { /* Plane interlacing: CCCCCC...MMMMMM...YYYYYY...KKKKKK... */ q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->length=0; q++; } q=image->pixels; for (i=0; i < image->packets; i++) { q->green=(*p++); q++; } q=image->pixels; for (i=0; i < image->packets; i++) { q->blue=(*p++); q++; } q=image->pixels; for (i=0; i < image->packets; i++) { q->index=(*p++); q++; } break; } } /* Transform image to CMYK. */ q=image->pixels; for (i=0; i < image->packets; i++) { cyan=q->red; magenta=q->green; yellow=q->blue; black=q->index; if ((unsigned int) (cyan+black) > MaxRGB) q->red=0; else q->red=MaxRGB-(cyan+black); if ((unsigned int) (magenta+black) > MaxRGB) q->green=0; else q->green=MaxRGB-(magenta+black); if ((unsigned int) (yellow+black) > MaxRGB) q->blue=0; else q->blue=MaxRGB-(yellow+black); q->index=0; q->length=0; q++; } (void) free((char *) cmyk_pixels); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d F A X I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadFAXImage reads a Group 3 FAX image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadFAXImage routine is: % % image=ReadFAXImage(image_info) % % A description of each parameter follows: % % o image: Function ReadFAXImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadFAXImage(image_info) ImageInfo *image_info; { Image *image; unsigned int status; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Initialize image structure. */ image->class=PseudoClass; image->columns=1728; image->rows=2156; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); image->colors=2; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if ((image->pixels == (RunlengthPacket *) NULL) || (image->colormap == (ColorPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Monochrome colormap. */ image->colormap[0].red=MaxRGB; image->colormap[0].green=MaxRGB; image->colormap[0].blue=MaxRGB; image->colormap[1].red=0; image->colormap[1].green=0; image->colormap[1].blue=0; status=HuffmanDecodeImage(image); if (status == False) { Warning("Unable to read image data",(char *) NULL); DestroyImage(image); return((Image *) NULL); } SyncImage(image); CompressImage(image); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d F I T S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadFITSImage reads a FITS image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadFITSImage routine is: % % image=ReadFITSImage(image_info) % % A description of each parameter follows: % % o image: Function ReadFITSImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or if % the image cannot be read. % % o filename: Specifies the name of the image to read. % % */ static Image *ReadFITSImage(image_info) ImageInfo *image_info; { typedef struct _FITSHeader { unsigned int simple; int bits_per_pixel; unsigned int number_of_axis, columns, rows, depth; double min_data, max_data, zero, scale; } FITSHeader; char keyword[MaxTextLength], value[MaxTextLength]; double pixel, scaled_pixel; FITSHeader fits_header; Image *image; int packet_size; long count, quantum; register int c, i, j; register RunlengthPacket *q; register unsigned char *p; unsigned char *fits_pixels; unsigned int status, value_expected; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Initialize image header. */ fits_header.simple=False; fits_header.bits_per_pixel=8; fits_header.columns=1; fits_header.rows=1; fits_header.depth=1; fits_header.min_data=0.0; fits_header.max_data=0.0; fits_header.zero=0.0; fits_header.scale=1.0; /* Decode image header. */ c=fgetc(image->file); count=1; if (c == EOF) { DestroyImage(image); return((Image *) NULL); } while (count < 2880) { if (!isalnum(c)) { c=fgetc(image->file); count++; } else { register char *p; /* Determine a keyword and its value. */ p=keyword; do { if ((p-keyword) < (MaxTextLength-1)) *p++=(char) c; c=fgetc(image->file); count++; } while (isalnum(c) || (c == '_')); *p='\0'; if (strcmp(keyword,"END") == 0) break; value_expected=False; while (isspace(c) || (c == '=')) { if (c == '=') value_expected=True; c=fgetc(image->file); count++; } if (value_expected == False) continue; p=value; while (isalnum(c) || (c == '-') || (c == '+') || (c == '.')) { if ((p-value) < (MaxTextLength-1)) *p++=(char) c; c=fgetc(image->file); count++; } *p='\0'; /* Assign a value to the specified keyword. */ if (strcmp(keyword,"SIMPLE") == 0) fits_header.simple=(*value == 'T') || (*value == 't'); if (strcmp(keyword,"BITPIX") == 0) fits_header.bits_per_pixel=(unsigned int) atoi(value); if (strcmp(keyword,"NAXIS") == 0) fits_header.number_of_axis=(unsigned int) atoi(value); if (strcmp(keyword,"NAXIS1") == 0) fits_header.columns=(unsigned int) atoi(value); if (strcmp(keyword,"NAXIS2") == 0) fits_header.rows=(unsigned int) atoi(value); if (strcmp(keyword,"NAXIS3") == 0) fits_header.depth=(unsigned int) atoi(value); if (strcmp(keyword,"DATAMAX") == 0) fits_header.max_data=atof(value); if (strcmp(keyword,"DATAMIN") == 0) fits_header.min_data=atof(value); if (strcmp(keyword,"BZERO") == 0) fits_header.zero=atof(value); if (strcmp(keyword,"BSCALE") == 0) fits_header.scale=atof(value); } while (isspace(c) && (count < 2880)) { c=fgetc(image->file); count++; } } for ( ; count < 2880; count++) (void) fgetc(image->file); /* Verify that required image information is defined. */ if ((!fits_header.simple) || (fits_header.number_of_axis < 1) || (fits_header.number_of_axis > 3) || (fits_header.columns*fits_header.rows) == 0) { Warning("Unable to read FITS image","image type not supported"); DestroyImage(image); return((Image *) NULL); } /* Create linear colormap. */ image->columns=fits_header.columns; image->rows=fits_header.rows; image->class=PseudoClass; image->colors=MaxRGB+1; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=(unsigned char) i; image->colormap[i].green=(unsigned char) i; image->colormap[i].blue=(unsigned char) i; } /* Initialize image structure. */ image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); packet_size=fits_header.bits_per_pixel/8; if (packet_size < 0) packet_size=(-packet_size); fits_pixels=(unsigned char *) malloc(image->packets*packet_size*sizeof(unsigned char)); if ((image->pixels == (RunlengthPacket *) NULL) || (fits_pixels == (unsigned char *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Convert FITS pixels to runlength-encoded packets. */ status=ReadData((char *) fits_pixels,(int) packet_size,(int) image->packets, image->file); if (status == False) Warning("Insufficient image data in file",image->filename); if ((fits_header.min_data == 0.0) && (fits_header.max_data == 0.0)) { /* Determine minimum and maximum intensity. */ p=fits_pixels; quantum=(*p++); for (j=0; j < (packet_size-1); j++) quantum=(quantum << 8) | (*p++); pixel=(double) quantum; if (fits_header.bits_per_pixel == -32) pixel=(double) (*((float *) &quantum)); fits_header.min_data=pixel*fits_header.scale+fits_header.zero; fits_header.max_data=pixel*fits_header.scale+fits_header.zero; for (i=1; i < image->packets; i++) { quantum=(*p++); for (j=0; j < (packet_size-1); j++) quantum=(quantum << 8) | (*p++); pixel=(double) quantum; if (fits_header.bits_per_pixel == -32) pixel=(double) (*((float *) &quantum)); scaled_pixel=pixel*fits_header.scale+fits_header.zero; if (scaled_pixel < fits_header.min_data) fits_header.min_data=scaled_pixel; if (scaled_pixel > fits_header.max_data) fits_header.max_data=scaled_pixel; } } /* Convert FITS pixels to runlength-encoded packets. */ p=fits_pixels; q=image->pixels; for (i=0; i < image->packets; i++) { quantum=(*p++); for (j=0; j < (packet_size-1); j++) quantum=(quantum << 8) | (*p++); pixel=(double) quantum; if (fits_header.bits_per_pixel == -32) pixel=(double) (*((float *) &quantum)); scaled_pixel=MaxRGB*(pixel*fits_header.scale+fits_header.zero+ fits_header.min_data)/(fits_header.max_data-fits_header.min_data); q->index=(unsigned short) scaled_pixel; q->length=0; q++; } (void) free((char *) fits_pixels); SyncImage(image); CompressColormap(image); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d G I F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadGIFImage reads a Compuserve Graphics image file and returns it. % It allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadGIFImage routine is: % % image=ReadGIFImage(image_info) % % A description of each parameter follows: % % o image: Function ReadGIFImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % an error occurs. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadGIFImage(image_info) ImageInfo *image_info; { #define BitSet(byte,bit) (((byte) & (bit)) == (bit)) #define LSBFirstOrder(x,y) (((y) << 8) | (x)) Image *image; int pass, status, transparency_index, x, y; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char c, *global_colormap, header[MaxTextLength], magick[12]; unsigned int global_colors, image_count, interlace, local_colormap; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine if this is a GIF file. */ status=ReadData((char *) magick,1,6,image->file); if ((status == False) || ((strncmp((char *) magick,"GIF87",5) != 0) && (strncmp((char *) magick,"GIF89",5) != 0))) { Warning("Not a GIF image file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read the screen descriptor. */ status=ReadData((char *) header,1,7,image->file); if (status == False) { Warning("Failed to read screen descriptor",(char *) NULL ); DestroyImage(image); return((Image *) NULL); } global_colors=0; global_colormap=(unsigned char *) NULL; if (BitSet(header[4],0x80)) { /* Read global colormap. */ global_colors=1 << ((header[4] & 0x07)+1); global_colormap=(unsigned char *) malloc(3*global_colors*sizeof(unsigned char)); if (global_colormap == (unsigned char *) NULL) { Warning("Unable to read image colormap","Memory allocation failed"); DestroyImage(image); return((Image *) NULL); } (void) ReadData((char *) global_colormap,1,(int) (3*global_colors), image->file); } transparency_index=(-1); image_count=0; for ( ; ; ) { status=ReadData((char *) &c,1,1,image->file); if (status == False) break; if (c == ';') break; /* terminator */ if (c == '!') { /* GIF Extension block. */ status=ReadData((char *) &c,1,1,image->file); if (status == False) { Warning("Unable to read extention block",(char *) NULL); DestroyImages(image); return((Image *) NULL); } switch (c) { case 0xf9: { /* Transparency extension block. */ while (ReadDataBlock((char *) header,image->file) != 0); if ((header[0] & 0x01) == 1) transparency_index=header[3]; break; } case 0xfe: { int length; /* Comment extension block. */ for ( ; ; ) { length=ReadDataBlock((char *) header,image->file); if (length == 0) break; if (image->comments != (char *) NULL) image->comments=(char *) realloc((char *) image->comments, (strlen(image->comments)+length+1)*sizeof(char)); else { image->comments=(char *) malloc(length*sizeof(char)); if (image->comments != (char *) NULL) *image->comments='\0'; } if (image->comments == (char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } header[length]='\0'; (void) strcat(image->comments,(char *) header); } break; } default: { while (ReadDataBlock((char *) header,image->file) != 0); break; } } } if (c != ',') continue; /* Read image attributes. */ if (image_count != 0) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } image_count++; status=ReadData((char *) header,1,9,image->file); if (status == False) { Warning("Unable to read left/top/width/height",(char *) NULL); DestroyImages(image); return((Image *) NULL); } interlace=BitSet(header[8],0x40); local_colormap=BitSet(header[8],0x80); /* Allocate image. */ image->columns=LSBFirstOrder(header[4],header[5]); image->rows=LSBFirstOrder(header[6],header[7]); image->packets=image->columns*image->rows; if (image->pixels != (RunlengthPacket *) NULL) (void) free((char *) image->pixels); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } /* Inititialize colormap. */ image->class=PseudoClass; image->colors=!local_colormap ? global_colors : 1 << ((header[8] & 0x07)+1); image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } if (!local_colormap) { /* Use global colormap. */ p=global_colormap; for (i=0; i < image->colors; i++) { image->colormap[i].red=(*p++); image->colormap[i].green=(*p++); image->colormap[i].blue=(*p++); } } else { unsigned char *colormap; /* Read local colormap. */ colormap=(unsigned char *) malloc(3*image->colors*sizeof(unsigned char)); if (colormap == (unsigned char *) NULL) { Warning("Unable to read local colormap","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) colormap,1,(int) image->colors*3,image->file); p=colormap; for (i=0; i < image->colors; i++) { image->colormap[i].red=(*p++); image->colormap[i].green=(*p++); image->colormap[i].blue=(*p++); } (void) free((char *) colormap); } /* Decode image. */ status=LZWDecodeImage(image); if (status == False) { Warning("Unable to read image data",(char *) NULL); DestroyImages(image); return((Image *) NULL); } if (interlace) { Image *interlaced_image; register RunlengthPacket *p; static int interlace_rate[4] = { 8, 8, 4, 2 }, interlace_start[4] = { 0, 4, 2, 1 }; /* Interlace image. */ image->orphan=True; interlaced_image=CopyImage(image,image->columns,image->rows,True); image->orphan=False; if (interlaced_image == (Image *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } p=interlaced_image->pixels; q=image->pixels; for (pass=0; pass < 4; pass++) { y=interlace_start[pass]; while (y < image->rows) { q=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { *q=(*p); p++; q++; } y+=interlace_rate[pass]; } } DestroyImage(interlaced_image); } if (transparency_index >= 0) { /* Create matte channel. */ q=image->pixels; for (i=0; i < image->packets; i++) { if (q->index != transparency_index) q->index=0; else q->index=MaxRGB; q++; } transparency_index=(-1); image->class=DirectClass; image->matte=True; } } (void) free((char *) global_colormap); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d G R A Y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadGRAYImage reads an image of raw grayscale bytes and returns it. % It allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadGRAYImage routine is: % % image=ReadGRAYImage(image_info) % % A description of each parameter follows: % % o image: Function ReadGRAYImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadGRAYImage(image_info) ImageInfo *image_info; { Image *image; int x, y; register int i; register RunlengthPacket *q; register unsigned char index, *p; unsigned char *gray_pixels; unsigned int height, width; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Create linear colormap. */ image->class=PseudoClass; image->colors=256; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=(unsigned char) i; image->colormap[i].green=(unsigned char) i; image->colormap[i].blue=(unsigned char) i; } /* Determine width and height, e.g. 640x512. */ width=512; height=512; if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); /* Initialize image structure. */ image->columns=width; image->rows=height; image->packets=image->columns*image->rows; gray_pixels=(unsigned char *) malloc(image->packets*sizeof(unsigned char)); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((gray_pixels == (unsigned char *) NULL) || (image->pixels == (RunlengthPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Convert raster image to runlength-encoded packets. */ (void) ReadData((char *) gray_pixels,1,(int) image->packets,image->file); p=gray_pixels; q=image->pixels; for (i=0; i < image->packets; i++) { index=(*p++); q->red=index; q->green=index; q->blue=index; q->index=(unsigned short) index; q->length=0; q++; } (void) free((char *) gray_pixels); CompressColormap(image); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d H I S T O G R A M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadHISTOGRAMImage reads a HISTOGRAM image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadHISTOGRAMImage routine is: % % image=ReadHISTOGRAMImage(image_info) % % A description of each parameter follows: % % o image: Function ReadHISTOGRAMImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadHISTOGRAMImage(image_info) ImageInfo *image_info; { Image *image; Warning("Cannot read HISTOGRAM images",image_info->filename); image=ReadMIFFImage(image_info); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d I R I S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadIRISImage reads a SGI RGB image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadIRISImage routine is: % % image=ReadIRISImage(image_info) % % A description of each parameter follows: % % o image: Function ReadIRISImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static void IRISDecode(packets,pixels) unsigned char *packets, *pixels; { unsigned char count, pixel; for ( ; ;) { pixel=(*packets++); count=pixel & 0x7f; if (count == 0) break; if (pixel & 0x80) for ( ; count != 0; count--) { *pixels=(*packets++); pixels+=4; } else { pixel=(*packets++); for ( ; count != 0; count--) { *pixels=pixel; pixels+=4; } } } } static Image *ReadIRISImage(image_info) ImageInfo *image_info; { typedef struct _IRISHeader { unsigned short magic; unsigned char storage, bytes_per_pixel; unsigned short dimension, columns, rows, depth; unsigned long minimum_value, maximum_value; unsigned char filler[492]; } IRISHeader; Image *image; IRISHeader iris_header; register int i, x, y, z; register RunlengthPacket *q; register unsigned char *p; unsigned char *iris_pixels; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read IRIS raster header. */ iris_header.magic=MSBFirstReadShort(image->file); do { /* Verify IRIS identifier. */ if (iris_header.magic != 0x01DA) { Warning("Not a IRIS RGB image,",image->filename); DestroyImages(image); return((Image *) NULL); } iris_header.storage=fgetc(image->file); iris_header.bytes_per_pixel=fgetc(image->file); if (iris_header.bytes_per_pixel != 1) { Warning("Image must have 1 byte per pixel channel,",image->filename); DestroyImages(image); return((Image *) NULL); } iris_header.dimension=MSBFirstReadShort(image->file); iris_header.columns=MSBFirstReadShort(image->file); iris_header.rows=MSBFirstReadShort(image->file); iris_header.depth=MSBFirstReadShort(image->file); iris_header.minimum_value=MSBFirstReadLong(image->file); iris_header.maximum_value=MSBFirstReadLong(image->file); (void) ReadData((char *) iris_header.filler,1,sizeof(iris_header.filler), image->file); /* Allocate IRIS pixels. */ iris_pixels=(unsigned char *) malloc(4*iris_header.columns*iris_header.rows*sizeof(unsigned char)); if (iris_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",image->filename); DestroyImages(image); return((Image *) NULL); } if (iris_header.storage != 0x01) { unsigned char *scanline; /* Read standard image format. */ scanline=(unsigned char *) malloc(iris_header.columns*sizeof(unsigned char)); if (scanline == (unsigned char *) NULL) { Warning("Memory allocation error",image->filename); DestroyImages(image); return((Image *) NULL); } for (z=0; z < (int) iris_header.depth; z++) { p=iris_pixels+z; for (y=0; y < (int) iris_header.rows; y++) { (void) ReadData((char *) scanline,1,(int) iris_header.columns, image->file); for (x=0; x < (int) iris_header.columns; x++) { *p=scanline[x]; p+=4; } } } (void) free((char *) scanline); } else { unsigned char *packets; unsigned int data_order; unsigned long offset, *offsets, *runlength; /* Read runlength-encoded image format. */ offsets=(unsigned long *) malloc(iris_header.rows*iris_header.depth*sizeof(unsigned long)); packets=(unsigned char *) malloc(((iris_header.columns << 1)+10)*sizeof(unsigned char)); runlength=(unsigned long *) malloc(iris_header.rows*iris_header.depth*sizeof(unsigned long)); if ((offsets == (unsigned long *) NULL) || (packets == (unsigned char *) NULL) || (runlength == (unsigned long *) NULL)) { Warning("Memory allocation error",image->filename); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) offsets,sizeof(unsigned long), (int) (iris_header.rows*iris_header.depth),image->file); (void) ReadData((char *) runlength,sizeof(unsigned long), (int) (iris_header.rows*iris_header.depth),image->file); /* Check data order. */ offset=0; data_order=0; for (y=0; ((y < (int) iris_header.rows) && !data_order); y++) for (z=0; ((z < (int) iris_header.depth) && !data_order); z++) { if (offsets[y+z*iris_header.rows] < offset) data_order=1; offset=offsets[y+z*iris_header.rows]; } offset=512+ ((iris_header.rows*iris_header.depth) << 1)*sizeof(unsigned long); if (data_order == 1) { for (z=0; z < (int) iris_header.depth; z++) { p=iris_pixels; for (y=0; y < (int) iris_header.rows; y++) { if (offset != offsets[y+z*iris_header.rows]) { offset=offsets[y+z*iris_header.rows]; (void) fseek(image->file,(int) offset,0); } (void) ReadData((char *) packets,1, (int) runlength[y+z*iris_header.rows],image->file); offset+=runlength[y+z*iris_header.rows]; IRISDecode(packets,p+z); p+=(iris_header.columns*4); } } } else { p=iris_pixels; for (y=0; y < (int) iris_header.rows; y++) { for (z=0; z < (int) iris_header.depth; z++) { if (offset != offsets[y+z*iris_header.rows]) { offset=offsets[y+z*iris_header.rows]; (void) fseek(image->file,(int) offset,0); } (void) ReadData((char *) packets,1, (int) runlength[y+z*iris_header.rows],image->file); offset+=runlength[y+z*iris_header.rows]; IRISDecode(packets,p+z); } p+=(iris_header.columns*4); } } (void) free(runlength); (void) free(packets); (void) free(offsets); } /* Initialize image structure. */ image->matte=iris_header.depth == 4; image->columns=iris_header.columns; image->rows=iris_header.rows; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Convert IRIS raster image to runlength-encoded packets. */ q=image->pixels; if (iris_header.depth >= 3) { /* Convert IRIS image to DirectClass runlength-encoded packets. */ for (y=0; y < image->rows; y++) { p=iris_pixels+((image->rows-1)-y)*(image->columns*4); for (x=0; x < image->columns; x++) { q->red=(*p); q->green=(*(p+1)); q->blue=(*(p+2)); q->index=(*(p+3)); q->length=0; p+=4; q++; } } } else { unsigned short index; /* Create grayscale map. */ image->class=PseudoClass; image->colors=256; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImage(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=(unsigned char) i; image->colormap[i].green=(unsigned char) i; image->colormap[i].blue=(unsigned char) i; } /* Convert IRIS image to PseudoClass runlength-encoded packets. */ for (y=0; y < image->rows; y++) { p=iris_pixels+((image->rows-1)-y)*(image->columns*4); for (x=0; x < image->columns; x++) { index=(unsigned short) (*p); q->red=image->colormap[index].red; q->green=image->colormap[index].green; q->blue=image->colormap[index].blue; q->index=index; q->length=0; p+=4; q++; } } } (void) free((char *) iris_pixels); /* Proceed to next image. */ iris_header.magic=MSBFirstReadShort(image->file); if (iris_header.magic == 0x01DA) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while (iris_header.magic == 0x01DA); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } #ifdef HasJPEG #undef FREAD #undef FWRITE #undef const #include "jinclude.h" Image *jpeg_image; /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d J P E G I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadJPEGImage reads a JPEG image file and returns it. It allocates % the memory necessary for the new Image structure and returns a pointer to % the new image. % % The format of the ReadJPEGImage routine is: % % image=ReadJPEGImage(image_info) % % A description of each parameter follows: % % o image: Function ReadJPEGImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o filename: Specifies the name of the jpeg image to read. % % */ static void MIFFInitializeImage(jpeg_info) decompress_info_ptr jpeg_info; { /* Create JPEG image. */ jpeg_image->columns=jpeg_info->image_width; jpeg_image->rows=jpeg_info->image_height; jpeg_image->packets=jpeg_image->columns*jpeg_image->rows; jpeg_image->pixels=(RunlengthPacket *) malloc(jpeg_image->packets*sizeof(RunlengthPacket)); if (jpeg_image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); exit(1); } jpeg_image->packet=jpeg_image->pixels; } static void MIFFComment(jpeg_info,length) decompress_info_ptr jpeg_info; long length; { register char *p; if (jpeg_image->comments != (char *) NULL) jpeg_image->comments=(char *) realloc((char *) jpeg_image->comments, (unsigned int) (strlen(jpeg_image->comments)+length+1)*sizeof(char)); else { jpeg_image->comments=(char *) malloc((unsigned int) (length+1)*sizeof(char)); if (jpeg_image->comments != (char *) NULL) *jpeg_image->comments='\0'; } if (jpeg_image->comments == (char *) NULL) { Warning("Memory allocation error",(char *) NULL); return; } p=jpeg_image->comments+strlen(jpeg_image->comments); for ( ; length > 0; length--) *p++=JGETC(jpeg_info); *p='\0'; } static void MIFFOutputTermMethod(jpeg_info) decompress_info_ptr jpeg_info; { } static void MIFFWriteGRAY(jpeg_info,number_rows,pixel_data) decompress_info_ptr jpeg_info; int number_rows; JSAMPIMAGE pixel_data; { register int column, row; register JSAMPROW gray; register RunlengthPacket *q; /* Transfer grayscale JPEG pixel data to MIFF pixels. */ q=jpeg_image->packet; for (row=0; row < number_rows; row++) { gray=pixel_data[0][row]; for (column=jpeg_info->image_width; column > 0; column--) { q->red=GETJSAMPLE(*gray); q->green=GETJSAMPLE(*gray); q->blue=GETJSAMPLE(*gray); q->index=(unsigned short) GETJSAMPLE(*gray); q->length=0; q++; gray++; } } jpeg_image->packet=q; } static void MIFFWriteRGB(jpeg_info,number_rows,pixel_data) decompress_info_ptr jpeg_info; int number_rows; JSAMPIMAGE pixel_data; { register int column, row; register JSAMPROW blue, green, red; register RunlengthPacket *q; /* Transfer JPEG pixel data to MIFF pixels. */ q=jpeg_image->packet; for (row=0; row < number_rows; row++) { red=pixel_data[0][row]; green=pixel_data[1][row]; blue=pixel_data[2][row]; for (column=jpeg_info->image_width; column > 0; column--) { q->red=GETJSAMPLE(*red++); q->green=GETJSAMPLE(*green++); q->blue=GETJSAMPLE(*blue++); q->index=0; q->length=0; q++; } } jpeg_image->packet=q; } static void MIFFSelectMethod(jpeg_info) decompress_info_ptr jpeg_info; { jpeg_info->methods->put_pixel_rows=MIFFWriteRGB; jpeg_info->out_color_space=CS_RGB; if (jpeg_info->jpeg_color_space == CS_GRAYSCALE) { jpeg_info->out_color_space=CS_GRAYSCALE; jpeg_info->methods->put_pixel_rows=MIFFWriteGRAY; } jpeg_info->data_precision=8; } static Image *ReadJPEGImage(image_info) ImageInfo *image_info; { Image *image; struct Decompress_info_struct jpeg_info; struct Decompress_methods_struct jpeg_methods; struct External_methods_struct external_methods; /* Allocate jpeg_image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Initialize the JPEG system-dependent methods. */ jpeg_image=image; jpeg_info.input_file=image->file; jpeg_info.output_file=(FILE *) NULL; jpeg_info.methods=(&jpeg_methods); jpeg_info.emethods=(&external_methods); jselerror(&external_methods); jselmemmgr(&external_methods); jpeg_info.methods->output_init=MIFFInitializeImage; jpeg_info.methods->output_term=MIFFOutputTermMethod; jpeg_methods.d_ui_method_selection=MIFFSelectMethod; j_d_defaults(&jpeg_info,True); #ifdef HUFF_LOOKAHEAD jpeg_info.methods->process_comment=MIFFComment; #endif /* Read a JFIF JPEG file. */ jselrjfif(&jpeg_info); jpeg_decompress(&jpeg_info); if (jpeg_info.jpeg_color_space == CS_GRAYSCALE) { register int i; /* Initialize grayscale colormap. */ jpeg_image->class=PseudoClass; jpeg_image->colors=256; jpeg_image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (jpeg_image->colormap == (ColorPacket *) NULL) { Warning("Unable to create image colormap","Memory allocation failed"); DestroyImage(jpeg_image); return((Image *) NULL); } for (i=0; i < jpeg_image->colors; i++) { jpeg_image->colormap[i].red=(unsigned short) i; jpeg_image->colormap[i].green=(unsigned short) i; jpeg_image->colormap[i].blue=(unsigned short) i; } } CloseImage(jpeg_image); return(jpeg_image); } #else static Image *ReadJPEGImage(image_info) ImageInfo *image_info; { Warning("JPEG library is not available",image_info->filename); return(ReadMIFFImage(image_info)); } #endif /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d M A P I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadMAPImage reads an image of raw RGB colormap and colormap index % bytes and returns it. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. % % The format of the ReadMAPImage routine is: % % image=ReadMAPImage(image_info) % % A description of each parameter follows: % % o image: Function ReadMAPImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadMAPImage(image_info) ImageInfo *image_info; { Image *image; int colors; register int i; register unsigned char *p; unsigned char *colormap; unsigned int height, packet_size, status, width; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine width, height, and number of colors, e.g. 640x512+256. */ width=512; height=512; colors=256; if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&colors,&colors,&width,&height); /* Initialize image structure. */ image->class=PseudoClass; image->compression=NoCompression; image->columns=width; image->rows=height; image->colors=colors; image->packets=image->columns*image->rows; packet_size=1; if (image->colors > 256) packet_size++; colormap=(unsigned char *) malloc(3*image->colors*sizeof(unsigned char)); image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); image->packed_pixels=(unsigned char *) malloc(image->packets*packet_size*sizeof(unsigned char)); if ((colormap == (unsigned char *) NULL) || (image->colormap == (ColorPacket *) NULL) || (image->packed_pixels == (unsigned char *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Read image colormap. */ (void) ReadData((char *) colormap,3,(int) image->colors,image->file); p=colormap; for (i=0; i < image->colors; i++) { image->colormap[i].red=(*p++); image->colormap[i].green=(*p++); image->colormap[i].blue=(*p++); } (void) free((char *) colormap); /* Convert raster image to runlength-encoded packets. */ (void) ReadData((char *) image->packed_pixels,packet_size, (int) image->packets,image->file); status=RunlengthDecodeImage(image); if (status == False) { DestroyImages(image); return((Image *) NULL); } CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d M A T T E I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadMATTEImage reads an image of raw matte bytes and returns it. % It allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadMATTEImage routine is: % % image=ReadMATTEImage(image_info) % % A description of each parameter follows: % % o image: Function ReadMATTEImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadMATTEImage(image_info) ImageInfo *image_info; { Image *image; int x, y; register int i; register RunlengthPacket *q; register unsigned char index, *p; unsigned char *matte_pixels; unsigned int height, width; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine width and height, e.g. 640x512. */ width=512; height=512; if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); /* Initialize image structure. */ image->matte=True; image->columns=width; image->rows=height; image->packets=image->columns*image->rows; matte_pixels=(unsigned char *) malloc(image->packets*sizeof(unsigned char)); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((matte_pixels == (unsigned char *) NULL) || (image->pixels == (RunlengthPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Convert raster image to runlength-encoded packets. */ (void) ReadData((char *) matte_pixels,1,(int) image->packets,image->file); p=matte_pixels; q=image->pixels; for (i=0; i < image->packets; i++) { index=(*p++); q->red=0; q->green=0; q->blue=0; q->index=(unsigned short) index; q->length=0; q++; } (void) free((char *) matte_pixels); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d M I F F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadMIFFImage reads a MIFF image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadMIFFImage routine is: % % image=ReadMIFFImage(filename) % % A description of each parameter follows: % % o image: Function ReadMIFFImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadMIFFImage(image_info) ImageInfo *image_info; { char keyword[MaxTextLength], value[MaxTextLength]; Image *image; register int c, i; register unsigned char *p; unsigned int length, packet_size, status; unsigned long count, packets; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Decode image header; header terminates one character beyond a ':'. */ c=fgetc(image->file); if (c == EOF) { DestroyImage(image); return((Image *) NULL); } do { /* Decode image header; header terminates one character beyond a ':'. */ image->compression=NoCompression; while (isgraph(c) && (c != ':')) { register char *p; if (c == '{') { /* Read comment-- any text between { }. */ if (image->comments != (char *) NULL) { length=strlen(image->comments); p=image->comments+length; } else { length=MaxTextLength; image->comments=(char *) malloc(length*sizeof(char)); p=image->comments; } for ( ; image->comments != (char *) NULL; p++) { c=fgetc(image->file); if ((c == EOF) || (c == '}')) break; if ((p-image->comments+1) >= length) { *p='\0'; length<<=1; image->comments=(char *) realloc((char *) image->comments,length*sizeof(char)); if (image->comments == (char *) NULL) break; p=image->comments+strlen(image->comments); } *p=(unsigned char) c; } if (image->comments == (char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } *p='\0'; c=fgetc(image->file); } else if (isalnum(c)) { /* Determine a keyword and its value. */ p=keyword; do { if ((p-keyword) < (MaxTextLength-1)) *p++=(char) c; c=fgetc(image->file); } while (isalnum(c)); *p='\0'; while (isspace(c) || (c == '=')) c=fgetc(image->file); p=value; while (!isspace(c)) { if ((p-value) < (MaxTextLength-1)) *p++=(char) c; c=fgetc(image->file); } *p='\0'; /* Assign a value to the specified keyword. */ if (strcmp(keyword,"class") == 0) if (strcmp(value,"PseudoClass") == 0) image->class=PseudoClass; else if (strcmp(value,"DirectClass") == 0) image->class=DirectClass; else image->class=UndefinedClass; if (strcmp(keyword,"colors") == 0) image->colors=(unsigned int) atoi(value); if (strcmp(keyword,"compression") == 0) if (strcmp(value,"QEncoded") == 0) image->compression=QEncodedCompression; else if (strcmp(value,"RunlengthEncoded") == 0) image->compression=RunlengthEncodedCompression; else image->compression=UndefinedCompression; if (strcmp(keyword,"columns") == 0) image->columns=(unsigned int) atoi(value); if (strcmp(keyword,"id") == 0) if (strcmp(value,"ImageMagick") == 0) image->id=ImageMagickId; else image->id=UndefinedId; if ((strcmp(keyword,"matte") == 0) || (strcmp(keyword,"alpha") == 0)) if ((strcmp(value,"True") == 0) || (strcmp(value,"true") == 0)) image->matte=True; else image->matte=False; if (strcmp(keyword,"montage") == 0) { image->montage=(char *) malloc(strlen(value)+1*sizeof(char)); if (image->montage == (char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->montage,value); } if (strcmp(keyword,"packets") == 0) image->packets=(unsigned int) atoi(value); if (strcmp(keyword,"rows") == 0) image->rows=(unsigned int) atoi(value); if (strcmp(keyword,"scene") == 0) image->scene=(unsigned int) atoi(value); if (strcmp(keyword,"signature") == 0) { image->signature=(char *) malloc((strlen(value)+1)*sizeof(char)); if (image->signature == (char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->signature,value); } } else c=fgetc(image->file); while (isspace(c)) c=fgetc(image->file); } (void) fgetc(image->file); /* Verify that required image information is defined. */ if ((image->id == UndefinedId) || (image->class == UndefinedClass) || (image->compression == UndefinedCompression) || (image->columns == 0) || (image->rows == 0)) { Warning("Incorrect image header in file",image->filename); DestroyImages(image); return((Image *) NULL); } if ((image->columns*image->rows) > MaxImageSize) { Warning("Unable to read image","image size too large"); DestroyImages(image); return((Image *) NULL); } if (image->montage != (char *) NULL) { register char *p; /* Image directory. */ image->directory=(char *) malloc(MaxTextLength*sizeof(char)); if (image->directory == (char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } p=image->directory; do { if ((((int) strlen(image->directory)+1) % MaxTextLength) == 0) { /* Allocate more memory for the image directory. */ *p='\0'; image->directory=(char *) realloc((char *) image->directory, (strlen(image->directory)+MaxTextLength+1)*sizeof(char)); if (image->directory == (char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } p=image->directory+strlen(image->directory); } c=fgetc(image->file); *p++=(unsigned char) c; } while (c != '\0'); } if (image->class == PseudoClass) { unsigned int colors; /* PseudoClass image cannot have matte data or be QEncoded. */ if (image->matte) { Warning("Unable to read image","matte images must be DirectClass"); DestroyImages(image); return((Image *) NULL); } if (image->compression == QEncodedCompression) { Warning("Unable to read image", "QEncoded images must be DirectClass"); DestroyImages(image); return((Image *) NULL); } /* Create image colormap. */ colors=image->colors; if (colors == 0) colors=256; image->colormap=(ColorPacket *) malloc(colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } if (image->colors == 0) for (i=0; i < colors; i++) { image->colormap[i].red=(unsigned char) i; image->colormap[i].green=(unsigned char) i; image->colormap[i].blue=(unsigned char) i; image->colors++; } else { unsigned char *colormap; /* Read image colormap from file. */ colormap=(unsigned char *) malloc(3*image->colors*sizeof(unsigned char)); if (colormap == (unsigned char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) colormap,1,(int) (3*image->colors), image->file); p=colormap; for (i=0; i < image->colors; i++) { image->colormap[i].red=(*p++); image->colormap[i].green=(*p++); image->colormap[i].blue=(*p++); } (void) free((char *) colormap); } } /* Determine packed packet size. */ if (image->class == PseudoClass) { image->packet_size=1; if (image->colors > 256) image->packet_size++; } else { image->packet_size=3; if (image->matte) image->packet_size++; } if (image->compression == RunlengthEncodedCompression) image->packet_size++; packet_size=image->packet_size; if (image->compression == QEncodedCompression) packet_size=1; /* Allocate image pixels. */ if (image->compression == NoCompression) image->packets=image->columns*image->rows; packets=image->packets; if (image->packets == 0) packets=image->columns*image->rows; image->packed_pixels=(unsigned char *) malloc((unsigned int) packets*packet_size*sizeof(unsigned char)); if (image->packed_pixels == (unsigned char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } /* Read image pixels from file. */ if ((image->compression != RunlengthEncodedCompression) || (image->packets != 0)) (void) ReadData((char *) image->packed_pixels,1, (int) (packets*packet_size),image->file); else { /* Number of runlength packets is unspecified. */ count=0; p=image->packed_pixels; do { (void) ReadData((char *) p,1,(int) packet_size,image->file); image->packets++; p+=(packet_size-1); count+=(*p+1); p++; } while (count < (image->columns*image->rows)); } if (image->compression == QEncodedCompression) { unsigned char *compressed_pixels; /* Uncompress image pixels with Q encoding. */ image->packets=image->columns*image->rows; compressed_pixels=image->packed_pixels; image->packed_pixels=(unsigned char *) malloc((unsigned int) image->packets*image->packet_size*sizeof(unsigned char)); if (image->packed_pixels == (unsigned char *) NULL) { Warning("Unable to write image","Memory allocation failed"); DestroyImage(image); return(False); } packets=QDecodeImage(compressed_pixels,image->packed_pixels, image->columns*(int) image->packet_size,image->rows); if (packets != (image->packets*image->packet_size)) { Warning("Q encoding failed",image->filename); DestroyImages(image); return((Image *) NULL); } (void) free((char *) compressed_pixels); } /* Unpack the packed image pixels into runlength-encoded pixel packets. */ status=RunlengthDecodeImage(image); if (status == False) { DestroyImages(image); return((Image *) NULL); } /* Proceed to next image. */ do { c=fgetc(image->file); } while (!isgraph(c) && (c != EOF)); if (c != EOF) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while (c != EOF); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d M T V I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadMTVImage reads a MTV image file and returns it. It allocates % the memory necessary for the new Image structure and returns a pointer to % the new image. % % The format of the ReadMTVImage routine is: % % image=ReadMTVImage(image_info) % % A description of each parameter follows: % % o image: Function ReadMTVImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadMTVImage(image_info) ImageInfo *image_info; { Image *image; int count; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char *mtv_pixels; unsigned int columns, rows; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read MTV image. */ count=fscanf(image->file,"%u %u\n",&columns,&rows); if (count == 0) { Warning("Not a MTV image,",image->filename); DestroyImage(image); return((Image *) NULL); } do { /* Initialize image structure. */ image->columns=columns; image->rows=rows; image->packets=image->columns*image->rows; mtv_pixels=(unsigned char *) malloc(3*image->packets*sizeof(unsigned char)); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((mtv_pixels == (unsigned char *) NULL) || (image->pixels == (RunlengthPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Convert MTV raster image to runlength-encoded packets. */ (void) ReadData((char *) mtv_pixels,3,(int) image->packets,image->file); p=mtv_pixels; q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=0; q->length=0; q++; } (void) free((char *) mtv_pixels); /* Proceed to next image. */ count=fscanf(image->file,"%u %u\n",&columns,&rows); if (count > 0) { /* Allocate next image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while (count > 0); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d P C D I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadPCDImage reads a Photo CD image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadPCDImage routine is: % % image=ReadPCDImage(image_info) % % A description of each parameter follows: % % o image: Function ReadPCDImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadPCDImage(image_info) ImageInfo *image_info; { char filename[MaxTextLength], options[MaxTextLength]; Image *image, *next_image; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } CloseImage(image); DestroyImage(image); (void) strcpy(options,"-3"); if (image_info->geometry != (char *) NULL) { int x, y; register int i; unsigned int height, width; /* Determine width and height, e.g. 640x512. */ width=512; height=768; (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); for (i=1; i < 5; i++) { width>>=1; height>>=1; if ((width < 128) && (height < 192)) break; } (void) sprintf(options,"-%d",i); } /* Use hpcdtoppm to convert Photo CD image. */ (void) strcpy(filename,image_info->filename); (void) sprintf(image_info->filename,"|hpcdtoppm -ppm %s %s",options,filename); image=ReadPNMImage(image_info); if (image == (Image *) NULL) { Warning("Photo CD translation failed",image_info->filename); return((Image *) NULL); } /* Assign proper filename. */ do { (void) strcpy(image->filename,filename); next_image=image->next; if (next_image != (Image *) NULL) image=next_image; } while (next_image != (Image *) NULL); while (image->previous != (Image *) NULL) image=image->previous; return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d P C X I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadPCXImage reads a ZSoft IBM PC Paintbrush file and returns it. % It allocates the memory necessary for the new Image structure and returns % a pointer to the new image. % % The format of the ReadPCXImage routine is: % % image=ReadPCXImage(image_info) % % A description of each parameter follows: % % o image: Function ReadPCXImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadPCXImage(image_info) ImageInfo *image_info; { typedef struct _PCXHeader { unsigned char identifier, version, encoding, bits_per_pixel; short int left, top, right, bottom, horizontal_resolution, vertical_resolution; unsigned char reserved, planes; short int bytes_per_line, palette_info; unsigned char colormap_signature; } PCXHeader; PCXHeader pcx_header; Image *image; int count, packets; register int i, x, y; register RunlengthPacket *q; register unsigned char *p; unsigned char packet, *pcx_colormap, *pcx_pixels; unsigned int status; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine if this is a PCX file. */ status=ReadData((char *) &pcx_header.identifier,1,1,image->file); do { /* Verify PCX identifier. */ if ((status == False) || (pcx_header.identifier != 0x0a)) { Warning("Not a PCX image file",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) &pcx_header.version,1,1,image->file); (void) ReadData((char *) &pcx_header.encoding,1,1,image->file); (void) ReadData((char *) &pcx_header.bits_per_pixel,1,1,image->file); pcx_header.left=LSBFirstReadShort(image->file); pcx_header.top=LSBFirstReadShort(image->file); pcx_header.right=LSBFirstReadShort(image->file); pcx_header.bottom=LSBFirstReadShort(image->file); pcx_header.horizontal_resolution=LSBFirstReadShort(image->file); pcx_header.vertical_resolution=LSBFirstReadShort(image->file); /* Read PCX raster colormap. */ image->columns=(pcx_header.right-pcx_header.left)+1; image->rows=(pcx_header.bottom-pcx_header.top)+1; image->class=PseudoClass; image->colors=16; image->colormap=(ColorPacket *) malloc(256*sizeof(ColorPacket)); pcx_colormap=(unsigned char *) malloc(3*256*sizeof(unsigned char)); if ((image->colormap == (ColorPacket *) NULL) || (pcx_colormap == (unsigned char *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) pcx_colormap,3,(int) image->colors,image->file); p=pcx_colormap; for (i=0; i < image->colors; i++) { image->colormap[i].red=(*p++); image->colormap[i].green=(*p++); image->colormap[i].blue=(*p++); } (void) ReadData((char *) &pcx_header.reserved,1,1,image->file); (void) ReadData((char *) &pcx_header.planes,1,1,image->file); pcx_header.bytes_per_line=LSBFirstReadShort(image->file); pcx_header.palette_info=LSBFirstReadShort(image->file); for (i=0; i < 58; i++) (void) fgetc(image->file); /* Read image data. */ packets=image->rows*pcx_header.bytes_per_line*pcx_header.planes; pcx_pixels=(unsigned char *) malloc(packets*sizeof(unsigned char)); if (pcx_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Uncompress image data. */ p=pcx_pixels; while (packets > 0) { packet=fgetc(image->file); if ((packet & 0xc0) != 0xc0) { *p++=packet; packets--; continue; } count=packet & 0x3f; packet=fgetc(image->file); packets-=count; while (--count >= 0) *p++=packet; } image->colors=1 << (pcx_header.bits_per_pixel*pcx_header.planes); if (image->colors > 16) { /* 256 color images have their color map at the end of the file. */ (void) ReadData((char *) &pcx_header.colormap_signature,1,1, image->file); (void) ReadData((char *) pcx_colormap,3,(int) image->colors, image->file); p=pcx_colormap; for (i=0; i < image->colors; i++) { image->colormap[i].red=(*p++); image->colormap[i].green=(*p++); image->colormap[i].blue=(*p++); } } else if (image->colors == 2) if (Intensity(image->colormap[0]) == Intensity(image->colormap[1])) { /* Monochrome colormap. */ image->colormap[0].red=MaxRGB; image->colormap[0].green=MaxRGB; image->colormap[0].blue=MaxRGB; image->colormap[1].red=0; image->colormap[1].green=0; image->colormap[1].blue=0; } (void) free((char *) pcx_colormap); /* Initialize image structure. */ image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Convert PCX raster image to runlength-encoded packets. */ q=image->pixels; if (pcx_header.planes > 1) { register int bits, mask; /* Convert multi-plane format into runlength-encoded pixels. */ for (i=0; i < image->packets; i++) { q->index=0; q->length=0; q++; } for (y=0; y < image->rows; y++) { p=pcx_pixels+(y*pcx_header.bytes_per_line*pcx_header.planes); for (i=0; i < (int) pcx_header.planes; i++) { q=image->pixels+y*image->columns; for (x=0; x < pcx_header.bytes_per_line; x++) { bits=(*p++); for (mask=0x80; mask != 0; mask>>=1) { if (bits & mask) q->index|=1 << i; q++; } } } } } else for (y=0; y < image->rows; y++) { p=pcx_pixels+y*pcx_header.bytes_per_line; switch (pcx_header.bits_per_pixel) { case 1: { register int bit; for (x=0; x < (image->columns-7); x+=8) { for (bit=7; bit >= 0; bit--) { q->index=((*p) & (0x01 << bit) ? 0x01 : 0x00); q->length=0; q++; } p++; } if ((image->columns % 8) != 0) { for (bit=7; bit >= (8-(image->columns % 8)); bit--) { q->index=((*p) & (0x01 << bit) ? 0x01 : 0x00); q->length=0; q++; } p++; } break; } case 2: { for (x=0; x < (image->columns-3); x+=4) { q->index=(*p >> 6) & 0x3; q->length=0; q++; q->index=(*p >> 4) & 0x3; q->length=0; q++; q->index=(*p >> 2) & 0x3; q->length=0; q++; q->index=(*p) & 0x3; q->length=0; q++; p++; } if ((image->columns % 4) != 0) { for (i=3; i >= (4-(image->columns % 4)); i--) { q->index=(*p >> (i*2)) & 0x03; q->length=0; q++; } p++; } break; } case 4: { for (x=0; x < (image->columns-1); x+=2) { q->index=(*p >> 4) & 0xf; q->length=0; q++; q->index=(*p) & 0xf; q->length=0; q++; p++; } if ((image->columns % 2) != 0) { q->index=(*p >> 4) & 0xf; q->length=0; q++; p++; } break; } case 8: { for (x=0; x < image->columns; x++) { q->index=(*p); q->length=0; q++; p++; } break; } default: break; } } (void) free((char *) pcx_pixels); SyncImage(image); /* Proceed to next image. */ status=ReadData((char *) &pcx_header.identifier,1,1,image->file); if ((status == True) && (pcx_header.identifier == 0x0a)) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while ((status == True) && (pcx_header.identifier == 0x0a)); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d P I C T I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadPICTImage reads an Apple Macintosh QuickDraw/PICT image file % and returns it. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. % % The format of the ReadPICTImage routine is: % % image=ReadPICTImage(image_info) % % A description of each parameter follows: % % o image: Function ReadPICTImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadPICTImage(image_info) ImageInfo *image_info; { char filename[MaxTextLength]; Image *image, *next_image; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } CloseImage(image); DestroyImage(image); /* Use picttoppm to convert Macintosh PICT image. */ (void) strcpy(filename,image_info->filename); (void) sprintf(image_info->filename,"|picttoppm %s",filename); image=ReadPNMImage(image_info); if (image == (Image *) NULL) { Warning("PICT translation failed",image_info->filename); return((Image *) NULL); } /* Assign proper filename. */ do { (void) strcpy(image->filename,filename); next_image=image->next; if (next_image != (Image *) NULL) image=next_image; } while (next_image != (Image *) NULL); while (image->previous != (Image *) NULL) image=image->previous; return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d P N M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadPNMImage reads a Portable Anymap image file and returns it. % It allocates the memory necessary for the new Image structure and returns % a pointer to the new image. % % The format of the ReadPNMImage routine is: % % image=ReadPNMImage(image_info) % % A description of each parameter follows: % % o image: Function ReadPNMImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static unsigned int GetInteger(image,base) Image *image; unsigned int base; { int c; unsigned int value; /* Skip any leading whitespace. */ do { c=fgetc(image->file); if (c == EOF) return(0); if (c == '#') { register char *p; unsigned int length; /* Read comment. */ if (image->comments != (char *) NULL) { length=strlen(image->comments); p=image->comments+length; } else { length=MaxTextLength; image->comments=(char *) malloc(length*sizeof(char)); p=image->comments; } for ( ; image->comments != (char *) NULL; p++) { if ((p-image->comments+2) >= length) { *p='\0'; length<<=1; image->comments=(char *) realloc((char *) image->comments,length*sizeof(char)); if (image->comments == (char *) NULL) break; p=image->comments+strlen(image->comments); } c=fgetc(image->file); if ((c == EOF) || (c == '\n')) break; *p=(unsigned char) c; } if (image->comments == (char *) NULL) { Warning("Memory allocation error",(char *) NULL); return(0); } *p++='\n'; *p='\0'; } } while (!isdigit(c)); if (base == 2) return(c-'0'); /* Evaluate number. */ value=0; do { value*=10; value+=c-'0'; c=fgetc(image->file); if (c == EOF) return(0); } while (isdigit(c)); return(value); } static Image *ReadPNMImage(image_info) ImageInfo *image_info; { char format; Image *image; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char *pixels, *scale; unsigned int max_value, status; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read PNM image. */ status=ReadData((char *) &format,1,1,image->file); do { /* Verify PNM identifier. */ if ((status == False) || (format != 'P')) { Warning("Not a PNM image file",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Initialize image structure. */ format=fgetc(image->file); image->columns=GetInteger(image,10); image->rows=GetInteger(image,10); image->packets=image->columns*image->rows; if (image->packets == 0) { Warning("Unable to read image","image dimensions are zero"); return((Image *) NULL); } image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } if ((format == '1') || (format == '4')) max_value=1; /* bitmap */ else max_value=GetInteger(image,10); scale=(unsigned char *) NULL; if (max_value != MaxRGB) { /* Compute pixel scaling table. */ scale=(unsigned char *) malloc((max_value+1)*sizeof(unsigned char)); if (scale == (unsigned char *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImages(image); return((Image *) NULL); } for (i=0; i <= max_value; i++) scale[i]=(unsigned char) ((i*MaxRGB+(max_value >> 1))/max_value); } if ((format != '3') && (format != '6')) { /* Create gray scale colormap. */ image->class=PseudoClass; image->colors=Min(max_value,MaxRGB)+1; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=(MaxRGB*i)/(image->colors-1); image->colormap[i].green=(MaxRGB*i)/(image->colors-1); image->colormap[i].blue=(MaxRGB*i)/(image->colors-1); } } /* Convert PNM pixels to runlength-encoded MIFF packets. */ q=image->pixels; switch (format) { case '1': { /* Convert PBM image to runlength-encoded packets. */ for (i=0; i < image->packets; i++) { q->index=!GetInteger(image,2); q->length=0; q++; } SyncImage(image); break; } case '2': { /* Convert PGM image to runlength-encoded packets. */ if (max_value == MaxRGB) for (i=0; i < image->packets; i++) { q->index=GetInteger(image,10); q->length=0; q++; } else for (i=0; i < image->packets; i++) { q->index=scale[GetInteger(image,10)]; q->length=0; q++; } SyncImage(image); break; } case '3': { /* Convert PNM image to runlength-encoded packets. */ if (max_value == MaxRGB) for (i=0; i < image->packets; i++) { q->red=GetInteger(image,10); q->green=GetInteger(image,10); q->blue=GetInteger(image,10); q->index=0; q->length=0; q++; } else for (i=0; i < image->packets; i++) { q->red=scale[GetInteger(image,10)]; q->green=scale[GetInteger(image,10)]; q->blue=scale[GetInteger(image,10)]; q->index=0; q->length=0; q++; } break; } case '4': { unsigned char bit, byte; unsigned int x, y; /* Convert PBM raw image to runlength-encoded packets. */ for (y=0; y < image->rows; y++) { bit=0; byte=0; for (x=0; x < image->columns; x++) { if (bit == 0) byte=fgetc(image->file); q->index=(byte & 0x80) ? 0 : 1; q->length=0; q++; bit++; if (bit == 8) bit=0; byte<<=1; } } SyncImage(image); break; } case '5': { /* Convert PGM raw image to runlength-encoded packets. */ pixels=(unsigned char *) malloc(image->packets*sizeof(unsigned char)); if (pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } status=ReadData((char *) pixels,1,(int) image->packets,image->file); if (status == False) { Warning("Insufficient image data in file",image->filename); DestroyImages(image); return((Image *) NULL); } /* Convert PNM raw image to runlength-encoded packets. */ p=pixels; for (i=0; i < image->packets; i++) { q->index=(*p++); q->length=0; q++; } SyncImage(image); (void) free((char *) pixels); break; } case '6': { /* Convert PNM raster image to runlength-encoded packets. */ pixels=(unsigned char *) malloc(image->packets*3*sizeof(unsigned char)); if (pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } status=ReadData((char *) pixels,1,(int) image->packets*3,image->file); if (status == False) { Warning("Insufficient image data in file",image->filename); DestroyImages(image); return((Image *) NULL); } p=pixels; if (max_value == MaxRGB) for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=0; q->length=0; q++; } else for (i=0; i < image->packets; i++) { q->red=scale[*p++]; q->green=scale[*p++]; q->blue=scale[*p++]; q->index=0; q->length=0; q++; } (void) free((char *) pixels); break; } default: { Warning("Not a PNM image file",(char *) NULL); DestroyImages(image); return((Image *) NULL); } } if (scale != (unsigned char *) NULL) (void) free((char *) scale); if (image->class == PseudoClass) CompressColormap(image); /* Proceed to next image. */ if ((format == '1') || (format == '2') || (format == '3')) do { /* Skip to end of line. */ status=ReadData(&format,1,1,image->file); if (status == False) break; } while (format != '\n'); status=ReadData((char *) &format,1,1,image->file); if ((status == True) && (format == 'P')) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while ((status == True) && (format == 'P')); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d P S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadPSImage reads a Adobe Postscript image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadPSImage routine is: % % image=ReadPSImage(image_info) % % A description of each parameter follows: % % o image: Function ReadPSImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadPSImage(image_info) ImageInfo *image_info; { char command[MaxTextLength], clip_geometry[MaxTextLength], *device, *directory, filename[MaxTextLength], options[MaxTextLength]; FILE *file; Image *image, *next_image; ImageInfo postscript_info; unsigned int showpage; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Open temporary output file. */ directory=(char *) getenv("TMPDIR"); if (directory == (char *) NULL) directory="/tmp"; (void) sprintf(filename,"%s/magickXXXXXX",directory); (void) mktemp(filename); file=fopen(filename,"w"); if (file == (FILE *) NULL) { Warning("Unable to write file",filename); return((Image *) NULL); } /* Determine if Postscript specifies a bounding box. */ showpage=False; *options='\0'; *clip_geometry='\0'; while (fgets(command,MaxTextLength,image->file) != (char *) NULL) { showpage|=GlobExpression(command,"*showpage*"); if (strncmp("%%BoundingBox:",command,strlen("%%BoundingBox:")) == 0) { int count, flags, lower_x, lower_y, upper_x, upper_y, x, y; unsigned int dx_resolution, dy_resolution, x_resolution, y_resolution; count=sscanf(command,"%%%%BoundingBox: %d %d %d %d",&lower_x,&lower_y, &upper_x,&upper_y); if (count != 4) break; /* Determine bounding box. */ (void) XParseGeometry(PSDensityGeometry,&x,&y,&dx_resolution, &dy_resolution); x_resolution=dx_resolution; y_resolution=dy_resolution; flags=XParseGeometry(image_info->density,&x,&y,&x_resolution, &y_resolution); if ((flags & HeightValue) == 0) y_resolution=x_resolution; if (image_info->page == (char *) NULL) { unsigned int height, width; /* Set Postscript render geometry. */ width=(upper_x*x_resolution+(x_resolution >> 1))/dx_resolution; height=(upper_y*y_resolution+(y_resolution >> 1))/dy_resolution; if (width > height) (void) sprintf(options,"-g%ux%u",width,width); else (void) sprintf(options,"-g%ux%u",height,height); } (void) strcpy(clip_geometry,"0x0"); } (void) fputs(command,file); } /* Force *showpage* operator and close files. */ if (!showpage) (void) fputs("showpage\n",file); (void) fclose(file); CloseImage(image); DestroyImage(image); /* Determine if page geometry or density options are specified. */ if (image_info->page != (char *) NULL) { (void) strcat(options," -g"); (void) strcat(options,image_info->page); } if (image_info->density != (char *) NULL) { (void) strcat(options," -r"); (void) strcat(options,image_info->density); } /* Use Ghostscript to convert Postscript image. */ device="ppmraw"; if (image_info->monochrome) device="pbmraw"; postscript_info=(*image_info); (void) sprintf(postscript_info.filename, "|gs -q -dNOPAUSE -sDEVICE=%s -sOutputFile=- %s %s < /dev/null", device,options,filename); image=ReadPNMImage(&postscript_info); (void) unlink(filename); if (image == (Image *) NULL) { Warning("Postscript translation failed",image_info->filename); return((Image *) NULL); } do { (void) strcpy(image->filename,image_info->filename); if (*clip_geometry != '\0') { /* Clip to bounding box. */ TransformImage(&image,clip_geometry,(char *) NULL); if (image->next != (Image *) NULL) image->next->previous=image; } next_image=image->next; if (next_image != (Image *) NULL) image=next_image; } while (next_image != (Image *) NULL); while (image->previous != (Image *) NULL) image=image->previous; return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d R G B I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadRGBImage reads an image of raw red, green, and blue bytes and % returns it. It allocates the memory necessary for the new Image structure % and returns a pointer to the new image. % % The format of the ReadRGBImage routine is: % % image=ReadRGBImage(image_info) % % A description of each parameter follows: % % o image: Function ReadRGBImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadRGBImage(image_info) ImageInfo *image_info; { Image *image; int x, y; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char *rgb_pixels; unsigned int height, width; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine width and height, e.g. 640x512. */ width=512; height=512; if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); /* Initialize image structure. */ image->columns=width; image->rows=height; image->packets=image->columns*image->rows; rgb_pixels=(unsigned char *) malloc(3*image->packets*sizeof(unsigned char)); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((rgb_pixels == (unsigned char *) NULL) || (image->pixels == (RunlengthPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Convert raster image to runlength-encoded packets. */ (void) ReadData((char *) rgb_pixels,3,(int) image->packets,image->file); p=rgb_pixels; switch (image_info->interlace) { case NoneInterlace: default: { /* No interlacing: RGBRGBRGBRGBRGBRGB... */ q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=0; q->length=0; q++; } break; } case LineInterlace: { /* Line interlacing: RRR...GGG...BBB...RRR...GGG...BBB... */ for (y=0; y < image->rows; y++) { q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->red=(*p++); q->index=0; q->length=0; q++; } q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->green=(*p++); q++; } q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->blue=(*p++); q++; } } break; } case PlaneInterlace: { /* Plane interlacing: RRRRRR...GGGGGG...BBBBBB... */ q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->index=0; q->length=0; q++; } q=image->pixels; for (i=0; i < image->packets; i++) { q->green=(*p++); q++; } q=image->pixels; for (i=0; i < image->packets; i++) { q->blue=(*p++); q++; } break; } } (void) free((char *) rgb_pixels); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d R L E I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadRLEImage reads a run-length encoded Utah Raster Toolkit % image file and returns it. It allocates the memory necessary for the new % Image structure and returns a pointer to the new image. % % The format of the ReadRLEImage routine is: % % image=ReadRLEImage(image_info) % % A description of each parameter follows: % % o image: Function ReadRLEImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadRLEImage(image_info) ImageInfo *image_info; { #define SkipLinesOp 0x01 #define SetColorOp 0x02 #define SkipPixelsOp 0x03 #define ByteDataOp 0x05 #define RunDataOp 0x06 #define EOFOp 0x07 char magick[12]; Image *image; int opcode, operand, status, x, y; register int i, j; register RunlengthPacket *q; register unsigned char *p; unsigned char background_color[256], *colormap, pixel, plane, *rle_pixels; unsigned int bits_per_pixel, flags, map_length, number_colormaps, number_planes; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine if this is a RLE file. */ status=ReadData((char *) magick,1,2,image->file); if ((status == False) || (strncmp(magick,"\122\314",2) != 0)) { Warning("Not a RLE image file",(char *) NULL); DestroyImage(image); return((Image *) NULL); } do { /* Read image header. */ (void) LSBFirstReadShort(image->file); (void) LSBFirstReadShort(image->file); image->columns=LSBFirstReadShort(image->file); image->rows=LSBFirstReadShort(image->file); image->packets=image->columns*image->rows; flags=fgetc(image->file); image->matte=flags & 0x04; number_planes=fgetc(image->file); bits_per_pixel=fgetc(image->file); number_colormaps=fgetc(image->file); map_length=1 << fgetc(image->file); if ((number_planes == 0) || (number_planes == 2) || (bits_per_pixel != 8) || (image->columns == 0)) { Warning("Unsupported RLE image file",(char *) NULL); DestroyImage(image); return((Image *) NULL); } if (flags & 0x02) { /* No background color-- initialize to black. */ for (i=0; i < number_planes; i++) background_color[i]=(unsigned char) 0; (void) fgetc(image->file); } else { /* Initialize background color. */ p=background_color; for (i=0; i < number_planes; i++) *p++=(unsigned char) fgetc(image->file); } if ((number_planes & 0x01) == 0) (void) fgetc(image->file); colormap=(unsigned char *) NULL; if (number_colormaps != 0) { /* Read image colormaps. */ colormap=(unsigned char *) malloc(number_colormaps*map_length*sizeof(unsigned char)); if (colormap == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } p=colormap; for (i=0; i < number_colormaps; i++) for (j=0; j < map_length; j++) *p++=(unsigned char) (LSBFirstReadShort(image->file) >> 8); } if (flags & 0x08) { unsigned int length; /* Read image comment. */ length=LSBFirstReadShort(image->file); image->comments=(char *) malloc((length+1)*sizeof(char)); if (image->comments == (char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } (void) ReadData((char *) image->comments,1,(int) length,image->file); image->comments[length]='\0'; if ((length & 0x01) == 0) (void) fgetc(image->file); } /* Allocate RLE pixels. */ if (image->matte) number_planes++; rle_pixels=(unsigned char *) malloc(image->packets*number_planes*sizeof(unsigned char)); if (rle_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } if ((flags & 0x01) && ((~flags) & 0x02)) { /* Set background color. */ p=rle_pixels; for (i=0; i < image->packets; i++) { if (!image->matte) for (j=0; j < number_planes; j++) *p++=background_color[j]; else { for (j=0; j < (number_planes-1); j++) *p++=background_color[j]; *p++=0; /* initialize matte channel */ } } } /* Read runlength-encoded image. */ plane=0; x=0; y=0; (void) fgetc(image->file); opcode=fgetc(image->file); while (((opcode & 0x3f) != EOFOp) && (opcode != EOF)) { switch (opcode & 0x3f) { case SkipLinesOp: { operand=fgetc(image->file); if (opcode & 0x40) operand=LSBFirstReadShort(image->file); x=0; y+=operand; break; } case SetColorOp: { operand=fgetc(image->file); plane=operand; if (plane == 255) plane=number_planes-1; x=0; break; } case SkipPixelsOp: { operand=fgetc(image->file); if (opcode & 0x40) operand=LSBFirstReadShort(image->file); x+=operand; break; } case ByteDataOp: { operand=fgetc(image->file); if (opcode & 0x40) operand=LSBFirstReadShort(image->file); p=rle_pixels+((image->rows-y-1)*image->columns*number_planes)+ x*number_planes+plane; operand++; for (i=0; i < operand; i++) { pixel=fgetc(image->file); if ((y < image->rows) && ((x+i) < image->columns)) *p=pixel; p+=number_planes; } if (operand & 0x01) (void) fgetc(image->file); x+=operand; break; } case RunDataOp: { operand=fgetc(image->file); if (opcode & 0x40) operand=LSBFirstReadShort(image->file); pixel=fgetc(image->file); (void) fgetc(image->file); operand++; p=rle_pixels+((image->rows-y-1)*image->columns*number_planes)+ x*number_planes+plane; for (i=0; i < operand; i++) { if ((y < image->rows) && ((x+i) < image->columns)) *p=pixel; p+=number_planes; } x+=operand; break; } default: break; } opcode=fgetc(image->file); } if (number_colormaps != 0) { unsigned int mask; /* Apply colormap transformation to image. */ mask=(map_length-1); p=rle_pixels; if (number_colormaps == 1) for (i=0; i < image->packets; i++) *p++=(unsigned char) colormap[*p & mask]; else if ((number_planes >= 3) && (number_colormaps >= 3)) for (i=0; i < image->packets; i++) for (j=0; j < number_planes; j++) *p++=(unsigned char) colormap[j*map_length+(*p & mask)]; } /* Initialize image structure. */ image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } q=image->pixels; if (number_planes >= 3) { /* Convert raster image to DirectClass runlength-encoded packets. */ p=rle_pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=(unsigned short) (image->matte ? (*p++) : 0); q->length=0; q++; } } else { /* Create colormap. */ image->class=PseudoClass; image->colors=256; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Unable to read image","Memory allocation failed"); DestroyImage(image); return((Image *) NULL); } p=colormap; if (number_colormaps == 1) for (i=0; i < image->colors; i++) { image->colormap[i].red=(unsigned char) i; image->colormap[i].green=(unsigned char) i; image->colormap[i].blue=(unsigned char) i; } else for (i=0; i < image->colors; i++) { image->colormap[i].red=(*p); image->colormap[i].green=(*(p+256)); image->colormap[i].blue=(*(p+512)); p++; } /* Convert raster image to PseudoClass runlength-encoded packets. */ p=rle_pixels; for (i=0; i < image->packets; i++) { q->index=(unsigned short) (*p++); q->length=0; q++; } SyncImage(image); } if (number_colormaps != 0) (void) free((char *) colormap); (void) free((char *) rle_pixels); /* Proceed to next image. */ (void) fgetc(image->file); status=ReadData((char *) magick,1,2,image->file); if ((status == True) && (strncmp(magick,"\122\314",2) == 0)) { /* Allocate next image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while ((status == True) && (strncmp(magick,"\122\314",2) == 0)); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d S U N I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadSUNImage reads a SUN image file and returns it. It allocates % the memory necessary for the new Image structure and returns a pointer to % the new image. % % The format of the ReadSUNImage routine is: % % image=ReadSUNImage(image_info) % % A description of each parameter follows: % % o image: Function ReadSUNImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadSUNImage(image_info) ImageInfo *image_info; { #define RMT_EQUAL_RGB 1 #define RMT_NONE 0 #define RMT_RAW 2 #define RT_STANDARD 1 #define RT_ENCODED 2 #define RT_FORMAT_RGB 3 typedef struct _SUNHeader { unsigned long magic, width, height, depth, length, type, maptype, maplength; } SUNHeader; Image *image; register int bit, i, x, y; register RunlengthPacket *q; register unsigned char *p; SUNHeader sun_header; unsigned char *sun_data, *sun_pixels; unsigned int status; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read SUN raster header. */ sun_header.magic=MSBFirstReadLong(image->file); do { /* Verify SUN identifier. */ if (sun_header.magic != 0x59a66a95) { Warning("Not a SUN raster,",image->filename); DestroyImages(image); return((Image *) NULL); } sun_header.width=MSBFirstReadLong(image->file); sun_header.height=MSBFirstReadLong(image->file); sun_header.depth=MSBFirstReadLong(image->file); sun_header.length=MSBFirstReadLong(image->file); sun_header.type=MSBFirstReadLong(image->file); sun_header.maptype=MSBFirstReadLong(image->file); sun_header.maplength=MSBFirstReadLong(image->file); switch (sun_header.maptype) { case RMT_NONE: { if (sun_header.depth < 24) { /* Create linear color ramp. */ image->colors=1 << sun_header.depth; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=(MaxRGB*i)/(image->colors-1); image->colormap[i].green=(MaxRGB*i)/(image->colors-1); image->colormap[i].blue=(MaxRGB*i)/(image->colors-1); } } break; } case RMT_EQUAL_RGB: { unsigned char *sun_colormap; /* Read SUN raster colormap. */ image->colors=sun_header.maplength/3; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); sun_colormap=(unsigned char *) malloc(image->colors*sizeof(unsigned char)); if ((image->colormap == (ColorPacket *) NULL) || (sun_colormap == (unsigned char *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) sun_colormap,1,(int) image->colors, image->file); for (i=0; i < image->colors; i++) image->colormap[i].red=sun_colormap[i]; (void) ReadData((char *) sun_colormap,1,(int) image->colors, image->file); for (i=0; i < image->colors; i++) image->colormap[i].green=sun_colormap[i]; (void) ReadData((char *) sun_colormap,1,(int) image->colors, image->file); for (i=0; i < image->colors; i++) image->colormap[i].blue=sun_colormap[i]; (void) free((char *) sun_colormap); break; } case RMT_RAW: { unsigned char *sun_colormap; /* Read SUN raster colormap. */ sun_colormap=(unsigned char *) malloc(sun_header.maplength*sizeof(unsigned char)); if (sun_colormap == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) sun_colormap,1,(int) sun_header.maplength, image->file); (void) free((char *) sun_colormap); break; } default: { Warning("Colormap type is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } } sun_data=(unsigned char *) malloc(sun_header.length*sizeof(unsigned char)); if (sun_data == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } status=ReadData((char *) sun_data,1,(int) sun_header.length,image->file); if ((status == False) && (sun_header.type != RT_ENCODED)) { Warning("Unable to read image data",image_info->filename); DestroyImages(image); return((Image *) NULL); } sun_pixels=sun_data; if (sun_header.type == RT_ENCODED) { unsigned int width, height; /* Read run-length encoded raster pixels. */ width=sun_header.width*(((sun_header.depth-1) >> 3)+1); height=sun_header.height; sun_pixels=(unsigned char *) malloc(width*height*sizeof(unsigned char)); if (sun_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) SUNDecodeImage(sun_data,sun_pixels,width,height); (void) free((char *) sun_data); } /* Initialize image structure. */ image->matte=(sun_header.depth == 32); image->class=(sun_header.depth < 24 ? PseudoClass : DirectClass); image->columns=sun_header.width; image->rows=sun_header.height; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Convert SUN raster image to runlength-encoded packets. */ p=sun_pixels; q=image->pixels; if (sun_header.depth == 1) for (y=0; y < image->rows; y++) { /* Convert bitmap scanline to runlength-encoded color packets. */ for (x=0; x < (image->columns >> 3); x++) { for (bit=7; bit >= 0; bit--) { q->index=((*p) & (0x01 << bit) ? 0x00 : 0x01); q->length=0; q++; } p++; } if ((image->columns % 8) != 0) { for (bit=7; bit >= (8-(image->columns % 8)); bit--) { q->index=((*p) & (0x01 << bit) ? 0x00 : 0x01); q->length=0; q++; } p++; } if ((((image->columns/8)+(image->columns % 8 ? 1 : 0)) % 2) != 0) p++; } else if (image->class == PseudoClass) for (y=0; y < image->rows; y++) { /* Convert PseudoColor scanline to runlength-encoded color packets. */ for (x=0; x < image->columns; x++) { q->index=(*p++); q->length=0; q++; } if ((image->columns % 2) != 0) p++; } else for (y=0; y < image->rows; y++) { /* Convert DirectColor scanline to runlength-encoded color packets. */ for (x=0; x < image->columns; x++) { q->index=(unsigned short) (image->matte ? (*p++) : 0); if (sun_header.type == RT_STANDARD) { q->blue=(*p++); q->green=(*p++); q->red=(*p++); } else { q->red=(*p++); q->green=(*p++); q->blue=(*p++); } if (image->colors != 0) { q->red=image->colormap[q->red].red; q->green=image->colormap[q->green].green; q->blue=image->colormap[q->blue].blue; } q->length=0; q++; } if (((image->columns % 2) != 0) && (image->matte == False)) p++; } (void) free((char *) sun_pixels); if (image->class == PseudoClass) { SyncImage(image); CompressColormap(image); } /* Proceed to next image. */ sun_header.magic=MSBFirstReadLong(image->file); if (sun_header.magic == 0x59a66a95) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while (sun_header.magic == 0x59a66a95); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d T A R G A I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadTARGAImage reads a Truevision Targa image file and returns % it. It allocates the memory necessary for the new Image structure and % returns a pointer to the new image. % % The format of the ReadTARGAImage routine is: % % image=ReadTARGAImage(image_info) % % A description of each parameter follows: % % o image: Function ReadTARGAImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadTARGAImage(image_info) ImageInfo *image_info; { #define TargaColormap 1 #define TargaRGB 2 #define TargaMonochrome 3 #define TargaRLEColormap 9 #define TargaRLERGB 10 #define TargaRLEMonochrome 11 typedef struct _TargaHeader { unsigned char id_length, colormap_type, image_type; unsigned short colormap_index, colormap_length; unsigned char colormap_size; unsigned short x_origin, y_origin, width, height; unsigned char pixel_size, attributes; } TargaHeader; Image *image; register int i, x, y; register RunlengthPacket *q; TargaHeader targa_header; unsigned char blue, green, j, k, red, runlength; unsigned int base, flag, real, skip, status, true; unsigned short index; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine if this is a TARGA file. */ status=ReadData((char *) &targa_header.id_length,1,1,image->file); do { /* Read TARGA header information. */ targa_header.colormap_type=fgetc(image->file); targa_header.image_type=fgetc(image->file); if ((status == False) || (targa_header.image_type > 11)) { Warning("Not a TARGA image file",(char *) NULL); DestroyImages(image); return((Image *) NULL); } targa_header.colormap_index=LSBFirstReadShort(image->file); targa_header.colormap_length=LSBFirstReadShort(image->file); targa_header.colormap_size=fgetc(image->file); targa_header.x_origin=LSBFirstReadShort(image->file); targa_header.y_origin=LSBFirstReadShort(image->file); targa_header.width=LSBFirstReadShort(image->file); targa_header.height=LSBFirstReadShort(image->file); targa_header.pixel_size=fgetc(image->file); targa_header.attributes=fgetc(image->file); /* Initialize image structure. */ image->matte=targa_header.pixel_size == 32; image->columns=targa_header.width; image->rows=targa_header.height; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } if (targa_header.id_length != 0) { /* TARGA image comment. */ image->comments=(char *) malloc((targa_header.id_length+1)*sizeof(char)); if (image->comments == (char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) ReadData(image->comments,1,(int) targa_header.id_length, image->file); image->comments[targa_header.id_length]='\0'; } if (targa_header.colormap_type != 0) { /* Read TARGA raster colormap. */ image->class=PseudoClass; image->colors=targa_header.colormap_length; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { switch (targa_header.colormap_size) { case 8: default: { /* Gray scale. */ red=fgetc(image->file); green=red; blue=red; break; } case 15: case 16: { /* 5 bits each of red green and blue. */ j=fgetc(image->file); k=fgetc(image->file); red=(unsigned char) ((MaxRGB*((int) (k & 0x7c) >> 2))/31); green=(unsigned char) ((MaxRGB*(((int) (k & 0x03) << 3)+((int) (j & 0xe0) >> 5)))/31); blue=(unsigned char) ((MaxRGB*((int) (j & 0x1f)))/31); break; } case 32: case 24: { /* 8 bits each of blue green and red. */ blue=fgetc(image->file); green=fgetc(image->file); red=fgetc(image->file); break; } } image->colormap[i].red=red; image->colormap[i].green=green; image->colormap[i].blue=blue; } } /* Convert TARGA pixels to runlength-encoded packets. */ base=0; flag=0; index=0; skip=False; real=0; runlength=0; true=0; for (y=0; y < image->rows; y++) { real=true; if (((unsigned char) (targa_header.attributes & 0x20) >> 5) == 0) real=image->rows-real-1; q=image->pixels+(real*image->columns); for (x=0; x < image->columns; x++) { if ((targa_header.image_type == TargaRLEColormap) || (targa_header.image_type == TargaRLERGB) || (targa_header.image_type == TargaRLEMonochrome)) if (runlength != 0) { runlength--; skip=flag != 0; } else { status=ReadData((char *) &runlength,1,1,image->file); if (status == False) { Warning("Unable to read image data",image_info->filename); DestroyImages(image); return((Image *) NULL); } flag=runlength & 0x80; if (flag != 0) runlength-=128; skip=False; } if (!skip) switch (targa_header.pixel_size) { case 8: default: { /* Gray scale. */ index=fgetc(image->file); if (targa_header.colormap_type == 0) { red=(unsigned char) index; green=(unsigned char) index; blue=(unsigned char) index; } else { red=image->colormap[index].red; green=image->colormap[index].green; blue=image->colormap[index].blue; } break; } case 15: case 16: { /* 5 bits each of red green and blue. */ j=fgetc(image->file); k=fgetc(image->file); red=(unsigned char) ((MaxRGB*((int) (k & 0x7c) >> 2))/31); green=(unsigned char) ((MaxRGB*(((int) (k & 0x03) << 3)+((int) (j & 0xe0) >> 5)))/31); blue=(unsigned char) ((MaxRGB*((int) (j & 0x1f)))/31); break; } case 24: case 32: { /* 8 bits each of blue green and red. */ blue=fgetc(image->file); green=fgetc(image->file); red=fgetc(image->file); if (targa_header.pixel_size == 32) index=fgetc(image->file); break; } } if (status == False) { Warning("Unable to read image data",image_info->filename); DestroyImages(image); return((Image *) NULL); } q->red=red; q->green=green; q->blue=blue; q->index=index; q->length=0; q++; } if (((unsigned char) (targa_header.attributes & 0xc0) >> 6) == 4) true+=4; else if (((unsigned char) (targa_header.attributes & 0xc0) >> 6) == 2) true+=2; else true++; if (true >= image->rows) { base++; true=base; } } /* Proceed to next image. */ status=ReadData((char *) &targa_header.id_length,1,1,image->file); if (status == True) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while (status == True); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d T E X T I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadTEXTImage reads a text file and returns it as an image. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadTEXTImage routine is: % % image=ReadTEXTImage(image_info) % % A description of each parameter follows: % % o image: Function ReadTEXTImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or if % the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadTEXTImage(image_info) ImageInfo *image_info; { char *resource_value, *text_status, text[MaxTextLength]; Display *display; Image *image; int status, offset, x, y; register int i; register RunlengthPacket *p; RunlengthPacket background_color; unsigned int height, width; XAnnotateInfo annotate_info; XFontStruct *font_info; XPixelInfo pixel_info; XResourceInfo resource_info; XrmDatabase resource_database, server_database; XStandardColormap *map_info; XVisualInfo *visual_info; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Open X server connection. */ display=XOpenDisplay(image_info->server_name); if (display == (Display *) NULL) { Warning("Unable to connect to X server", XDisplayName(image_info->server_name)); DestroyImage(image); return((Image *) NULL); } /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Get user defaults from X resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); XGetResourceInfo(resource_database,client_name,&resource_info); resource_info.colormap=PrivateColormap; /* Allocate standard colormap. */ XGetAnnotateInfo(&annotate_info); map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Warning("Unable to create standard colormap","Memory allocation failed"); else { /* Initialize visual info. */ visual_info=XBestVisualInfo(display,map_info,&resource_info); if (visual_info == (XVisualInfo *) NULL) Warning("Unable to get visual",resource_info.visual_type); map_info->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; /* Initialize font info. */ if (image_info->font != (char *) NULL) resource_info.font=image_info->font; font_info=XBestFont(display,&resource_info); if (font_info == (XFontStruct *) NULL) Warning("Unable to load font",resource_info.font); annotate_info.font_info=font_info; annotate_info.height=font_info->ascent+font_info->descent; } if ((map_info == (XStandardColormap *) NULL) || (visual_info == (XVisualInfo *) NULL) || (font_info == (XFontStruct *) NULL)) { XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, font_info,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } /* Initialize Standard Colormap. */ XGetMapInfo(visual_info,XDefaultColormap(display,visual_info->screen), map_info); XGetPixelInfo(display,visual_info,map_info,&resource_info,(Image *) NULL, &pixel_info); pixel_info.annotate_context=XDefaultGC(display,visual_info->screen); pixel_info.annotate_index=1; background_color.red=pixel_info.background_color.red >> 8; background_color.green=pixel_info.background_color.red >> 8; background_color.blue=pixel_info.background_color.red >> 8; background_color.index=0; background_color.length=0; /* Initialize Image structure. */ (void) XParseGeometry(TextPageGeometry,&x,&y,&width,&height); (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); image->columns=width; image->rows=height; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); image->class=PseudoClass; image->colors=2; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if ((image->pixels == (RunlengthPacket *) NULL) || (image->colormap == (ColorPacket *) NULL)) { Warning("Unable to allocate image","Memory allocation error"); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, font_info,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } /* Initialize colormap. */ image->colormap[0].red=pixel_info.background_color.red >> 8; image->colormap[0].green=pixel_info.background_color.green >> 8; image->colormap[0].blue=pixel_info.background_color.blue >> 8; image->colormap[1].red=pixel_info.foreground_color.red >> 8; image->colormap[1].green=pixel_info.foreground_color.green >> 8; image->colormap[1].blue=pixel_info.foreground_color.blue >> 8; /* Initialize text image to background color. */ p=image->pixels; for (i=0; i < image->packets; i++) *p++=background_color; /* Annotate the text image. */ annotate_info.text=(char *) malloc(MaxTextLength*sizeof(char)); if (annotate_info.text == (char *) NULL) { Warning("Unable to read image","Memory allocation failed"); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, font_info,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } text[MaxTextLength-1]='\0'; text_status=fgets(text,MaxTextLength,image->file); if ((int) strlen(text) > 0) text[strlen(text)-1]='\0'; offset=0; while (text_status != (char *) NULL) { *annotate_info.text='\0'; if (*text != '\0') { /* Compute width of text. */ (void) strcpy(annotate_info.text,text); annotate_info.width= XTextWidth(font_info,annotate_info.text,strlen(annotate_info.text)); if ((annotate_info.width+4) >= image->columns) { /* Reduce text until width is within bounds. */ i=strlen(annotate_info.text); for (; (annotate_info.width+(x << 1)) >= image->columns; i--) annotate_info.width= XTextWidth(font_info,annotate_info.text,(unsigned int) i); annotate_info.text[i]='\0'; while ((i > 0) && !isspace(annotate_info.text[i])) i--; if (i > 0) annotate_info.text[i]='\0'; annotate_info.width=XTextWidth(font_info,annotate_info.text, strlen(annotate_info.text)); } /* Annotate image with text. */ (void) sprintf(annotate_info.geometry,"%ux%u%+d%+d", annotate_info.width,annotate_info.height,x,y+offset); status=XAnnotateImage(display,&pixel_info,&annotate_info,False,image); if (status == 0) { Warning("Unable to annotate image","Memory allocation error"); break; } } /* Get next string. */ if (strlen(text) != strlen(annotate_info.text)) (void) strcpy(text,text+strlen(annotate_info.text)+1); else { text_status=fgets(text,MaxTextLength,image->file); if ((int) strlen(text) > 0) text[strlen(text)-1]='\0'; } offset+=annotate_info.height; if ((text_status != (char *) NULL) && (((y << 1)+offset+annotate_info.height) >= image->rows)) { /* Page is full-- allocate next image structure. */ image->orphan=True; image->next=CopyImage(image,image->columns,image->rows,False); image->orphan=False; if (image->next == (Image *) NULL) { Warning("Unable to annotate image","Memory allocation error"); break; } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; /* Initialize text image to background color. */ p=image->pixels; for (i=0; i < image->packets; i++) *p++=background_color; offset=0; } } /* Force class to PseudoClass. */ while (image->previous != (Image *) NULL) { image->class=PseudoClass; image=image->previous; } image->class=PseudoClass; CloseImage(image); /* Free resources. */ (void) free((char *) annotate_info.text); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, font_info,&resource_info,(XWindowInfo *) NULL); return(image); } #ifdef HasTIFF #include "tiff.h" #include "tiffio.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d T I F F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadTIFFImage reads a Tagged image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadTIFFImage routine is: % % image=ReadTIFFImage(image_info) % % A description of each parameter follows: % % o image: Function ReadTIFFImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadTIFFImage(image_info) ImageInfo *image_info; { char *comment; Image *image; int range; register int i, quantum, x, y; register RunlengthPacket *q; TIFF *tiff; unsigned int status; unsigned long height, width; unsigned short bits_per_sample, max_sample_value, min_sample_value, photometric, samples_per_pixel; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open TIFF image tiff. */ tiff=TIFFOpen(image->filename,"r"); if (tiff == (TIFF *) NULL) { Warning("Unable to open tiff image",image->filename); DestroyImage(image); return((Image *) NULL); } do { if (image_info->verbose) TIFFPrintDirectory(tiff,stderr,False); /* Allocate memory for the image and pixel buffer. */ TIFFGetField(tiff,TIFFTAG_IMAGEWIDTH,&width); TIFFGetField(tiff,TIFFTAG_IMAGELENGTH,&height); for (quantum=1; quantum <= 16; quantum<<=1) { image->columns=width/quantum; image->rows=height/quantum; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((image->pixels != (RunlengthPacket *) NULL)) break; } if (image->pixels == (RunlengthPacket *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImages(image); TIFFClose(tiff); return((Image *) NULL); } TIFFGetFieldDefaulted(tiff,TIFFTAG_BITSPERSAMPLE,&bits_per_sample); TIFFGetFieldDefaulted(tiff,TIFFTAG_MINSAMPLEVALUE,&min_sample_value); TIFFGetFieldDefaulted(tiff,TIFFTAG_MAXSAMPLEVALUE,&max_sample_value); TIFFGetFieldDefaulted(tiff,TIFFTAG_PHOTOMETRIC,&photometric); TIFFGetFieldDefaulted(tiff,TIFFTAG_SAMPLESPERPIXEL,&samples_per_pixel); comment=(char *) NULL; TIFFGetField(tiff,TIFFTAG_IMAGEDESCRIPTION,&comment); if (comment != (char *) NULL) if ((int) strlen(comment) > 4) { image->comments=(char *) malloc((unsigned int) (strlen(comment)+1)*sizeof(char)); if (image->comments == (char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImages(image); TIFFClose(tiff); return((Image *) NULL); } (void) strcpy(image->comments,comment); } range=max_sample_value-min_sample_value; if ((bits_per_sample > 8) || (samples_per_pixel > 1) || TIFFIsTiled(tiff)) { register unsigned long *p, *pixels; /* Convert TIFF image to DirectClass MIFF image. */ image->matte=samples_per_pixel > 3; pixels=(unsigned long *) malloc(image->packets*sizeof(unsigned long)); if (pixels == (unsigned long *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImages(image); TIFFClose(tiff); return((Image *) NULL); } if (quantum > 1) Warning("Not enough memory","cropping required"); status=TIFFReadRGBAImage(tiff,image->columns,image->rows,pixels,0); if (status == False) { Warning("Unable to read TIFF image",(char *) NULL); (void) free((char *) pixels); DestroyImages(image); TIFFClose(tiff); return((Image *) NULL); } /* Convert image to DirectClass runlength-encoded packets. */ q=image->pixels; for (y=image->rows-1; y >= 0; y--) { p=pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->red=TIFFGetR(*p); q->green=TIFFGetG(*p); q->blue=TIFFGetB(*p); q->index=(unsigned short) (image->matte ? TIFFGetA(*p) : 0); q->length=0; p++; q++; } } (void) free((char *) pixels); if (samples_per_pixel == 1) QuantizeImage(image,(unsigned int) range,8,False,RGBColorspace,True); } else { unsigned char *p, *r, *quantum_scanline, *scanline; /* Convert TIFF image to PseudoClass MIFF image. */ image->class=PseudoClass; image->colors=range+1; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); quantum_scanline=(unsigned char *) malloc(width*sizeof(unsigned char)); scanline=(unsigned char *) malloc(TIFFScanlineSize(tiff)); if ((image->colormap == (ColorPacket *) NULL) || (quantum_scanline == (unsigned char *) NULL) || (scanline == (unsigned char *) NULL)) { Warning("Unable to allocate memory",(char *) NULL); DestroyImages(image); TIFFClose(tiff); return((Image *) NULL); } /* Create colormap. */ switch (photometric) { case PHOTOMETRIC_MINISBLACK: { for (i=0; i < image->colors; i++) { image->colormap[i].red=(MaxRGB*i)/range; image->colormap[i].green=(MaxRGB*i)/range; image->colormap[i].blue=(MaxRGB*i)/range; } break; } case PHOTOMETRIC_MINISWHITE: { for (i=0; i < image->colors; i++) { image->colormap[i].red=((range-i)*MaxRGB)/range; image->colormap[i].green=((range-i)*MaxRGB)/range; image->colormap[i].blue=((range-i)*MaxRGB)/range; } break; } case PHOTOMETRIC_PALETTE: { unsigned short *blue_colormap, *green_colormap, *red_colormap; TIFFGetField(tiff,TIFFTAG_COLORMAP,&red_colormap,&green_colormap, &blue_colormap); for (i=0; i < image->colors; i++) { image->colormap[i].red=((int) red_colormap[i]*MaxRGB)/65535; image->colormap[i].green=((int) green_colormap[i]*MaxRGB)/65535; image->colormap[i].blue=((int) blue_colormap[i]*MaxRGB)/65535; } break; } default: break; } /* Convert image to PseudoClass runlength-encoded packets. */ if (quantum > 1) Warning("Not enough memory","subsampling required"); q=image->pixels; for (y=0; y < image->rows; y++) { for (i=0; i < quantum; i++) TIFFReadScanline(tiff,scanline,y*quantum+i,0); p=scanline; r=quantum_scanline; switch (photometric) { case PHOTOMETRIC_MINISBLACK: case PHOTOMETRIC_MINISWHITE: { switch (bits_per_sample) { case 1: { register int bit; for (x=0; x < (width-7); x+=8) { for (bit=7; bit >= 0; bit--) *r++=((*p) & (0x01 << bit) ? 0x01 : 0x00); p++; } if ((width % 8) != 0) { for (bit=7; bit >= (8-(width % 8)); bit--) *r++=((*p) & (0x01 << bit) ? 0x00 : 0x01); p++; } break; } case 2: { for (x=0; x < (width-3); x+=4) { *r++=(*p >> 6) & 0x3; *r++=(*p >> 4) & 0x3; *r++=(*p >> 2) & 0x3; *r++=(*p) & 0x3; p++; } if ((width % 4) != 0) { for (i=3; i >= (4-(width % 4)); i--) *r++=(*p >> (i*2)) & 0x03; p++; } break; } case 4: { for (x=0; x < (width-1); x+=2) { *r++=(*p >> 4) & 0xf; *r++=(*p) & 0xf; p++; } if ((width % 2) != 0) { *r++=(*p >> 4) & 0xf; p++; } break; } case 8: { for (x=0; x < width; x++) { *r++=(*p); p++; } break; } default: break; } break; } case PHOTOMETRIC_PALETTE: { for (x=0; x < width; x++) { *r++=(*p); p++; } break; } default: break; } /* Subsample quantum scanline. */ r=quantum_scanline; for (x=0; x < image->columns; x++) { q->index=(*r); q->length=0; q++; r+=quantum; } } (void) free((char *) quantum_scanline); (void) free((char *) scanline); } if (image->class == PseudoClass) { SyncImage(image); CompressColormap(image); } /* Proceed to next image. */ status=TIFFReadDirectory(tiff); if (status == True) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while (status == True); TIFFClose(tiff); while (image->previous != (Image *) NULL) image=image->previous; return(image); } #else static Image *ReadTIFFImage(image_info) ImageInfo *image_info; { Warning("TIFF library is not available",image_info->filename); return(ReadMIFFImage(image_info)); } #endif /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d V I C A R I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadVICARImage reads a VICAR image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadVICARImage routine is: % % image=ReadVICARImage(image_info) % % A description of each parameter follows: % % o image: Function ReadVICARImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or if % the image cannot be read. % % o filename: Specifies the name of the image to read. % % */ static Image *ReadVICARImage(image_info) ImageInfo *image_info; { char keyword[MaxTextLength], value[MaxTextLength]; Image *image; long count; register int c, i; register RunlengthPacket *q; register unsigned char *p; unsigned char *vicar_pixels; unsigned int header_length, status, value_expected; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Decode image header. */ c=fgetc(image->file); count=1; if (c == EOF) { DestroyImage(image); return((Image *) NULL); } header_length=0; while (isgraph(c) && ((image->columns*image->rows) == 0)) { if (!isalnum(c)) { c=fgetc(image->file); count++; } else { register char *p; /* Determine a keyword and its value. */ p=keyword; do { if ((p-keyword) < (MaxTextLength-1)) *p++=(char) c; c=fgetc(image->file); count++; } while (isalnum(c) || (c == '_')); *p='\0'; value_expected=False; while (isspace(c) || (c == '=')) { if (c == '=') value_expected=True; c=fgetc(image->file); count++; } if (value_expected == False) continue; p=value; while (isalnum(c)) { if ((p-value) < (MaxTextLength-1)) *p++=(char) c; c=fgetc(image->file); count++; } *p='\0'; /* Assign a value to the specified keyword. */ if (strcmp(keyword,"LABEL_RECORDS") == 0) header_length=(unsigned int) atoi(value); if (strcmp(keyword,"LBLSIZE") == 0) header_length=(unsigned int) atoi(value); if (strcmp(keyword,"RECORD_BYTES") == 0) image->columns=(unsigned int) atoi(value); if (strcmp(keyword,"NS") == 0) image->columns=(unsigned int) atoi(value); if (strcmp(keyword,"LINES") == 0) image->rows=(unsigned int) atoi(value); if (strcmp(keyword,"NL") == 0) image->rows=(unsigned int) atoi(value); } while (isspace(c)) { c=fgetc(image->file); count++; } } /* Read the rest of the header. */ while (count < header_length) { c=fgetc(image->file); count++; } /* Verify that required image information is defined. */ if ((image->columns*image->rows) == 0) { Warning("Incorrect image header in file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Create linear colormap. */ image->class=PseudoClass; image->colors=256; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=(unsigned char) i; image->colormap[i].green=(unsigned char) i; image->colormap[i].blue=(unsigned char) i; } /* Initialize image structure. */ image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); vicar_pixels=(unsigned char *) malloc(image->packets*sizeof(unsigned char)); if ((image->pixels == (RunlengthPacket *) NULL) || (vicar_pixels == (unsigned char *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Convert VICAR pixels to runlength-encoded packets. */ status=ReadData((char *) vicar_pixels,1,(int) image->packets,image->file); if (status == False) { Warning("Insufficient image data in file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Convert VICAR pixels to runlength-encoded packets. */ p=vicar_pixels; q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p); q->green=(*p); q->blue=(*p); q->index=(unsigned short) *p; q->length=0; p++; q++; } (void) free((char *) vicar_pixels); CompressColormap(image); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d V I F F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadVIFFImage reads a Khoros Visualization image file and returns % it. It allocates the memory necessary for the new Image structure and % returns a pointer to the new image. % % The format of the ReadVIFFImage routine is: % % image=ReadVIFFImage(image_info) % % A description of each parameter follows: % % o image: Function ReadVIFFImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or if % the image cannot be read. % % o filename: Specifies the name of the image to read. % % */ static Image *ReadVIFFImage(image_info) ImageInfo *image_info; { #define VFF_CM_genericRGB 15 #define VFF_CM_ntscRGB 1 #define VFF_CM_NONE 0 #define VFF_DEP_DECORDER 0x4 #define VFF_DEP_NSORDER 0x8 #define VFF_DES_RAW 0 #define VFF_LOC_IMPLICIT 1 #define VFF_MAPTYP_NONE 0 #define VFF_MAPTYP_1_BYTE 1 #define VFF_MS_NONE 0 #define VFF_MS_ONEPERBAND 1 #define VFF_MS_SHARED 3 #define VFF_TYP_BIT 0 #define VFF_TYP_1_BYTE 1 #define VFF_TYP_2_BYTE 2 #define VFF_TYP_4_BYTE 4 typedef struct _ViffHeader { unsigned char identifier, file_type, release, version, machine_dependency, reserve[3]; char comment[512]; unsigned long rows, columns, subrows; long x_offset, y_offset; float x_pixel_size, y_pixel_size; unsigned long location_type, location_dimension, number_of_images, number_data_bands, data_storage_type, data_encode_scheme, map_scheme, map_storage_type, map_rows, map_columns, map_subrows, map_enable, maps_per_cycle, color_space_model; } ViffHeader; Image *image; int bytes_per_pixel; register int bit, i, x, y; register RunlengthPacket *q; register unsigned char *p; unsigned char buffer[7], *viff_pixels; unsigned int status; unsigned long packets; ViffHeader viff_header; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read VIFF header (1024 bytes). */ status=ReadData((char *) &viff_header.identifier,1,1,image->file); do { /* Verify VIFF identifier. */ if ((status == False) || ((unsigned char) viff_header.identifier != 0xab)) { Warning("Not a VIFF raster,",image->filename); DestroyImages(image); return((Image *) NULL); } /* Initialize VIFF image. */ (void) ReadData((char *) buffer,1,7,image->file); viff_header.file_type=buffer[0]; viff_header.release=buffer[1]; viff_header.version=buffer[2]; viff_header.machine_dependency=buffer[3]; (void) ReadData((char *) viff_header.comment,1,512,image->file); viff_header.comment[511]='\0'; if ((int) strlen(viff_header.comment) > 4) { image->comments=(char *) malloc((unsigned int) (strlen(viff_header.comment)+1)*sizeof(char)); if (image->comments == (char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->comments,viff_header.comment); } if ((viff_header.machine_dependency == VFF_DEP_DECORDER) || (viff_header.machine_dependency == VFF_DEP_NSORDER)) { viff_header.rows=LSBFirstReadLong(image->file); viff_header.columns=LSBFirstReadLong(image->file); viff_header.subrows=LSBFirstReadLong(image->file); viff_header.x_offset=LSBFirstReadLong(image->file); viff_header.y_offset=LSBFirstReadLong(image->file); viff_header.x_pixel_size=(float) LSBFirstReadLong(image->file); viff_header.y_pixel_size=(float) LSBFirstReadLong(image->file); viff_header.location_type=LSBFirstReadLong(image->file); viff_header.location_dimension=LSBFirstReadLong(image->file); viff_header.number_of_images=LSBFirstReadLong(image->file); viff_header.number_data_bands=LSBFirstReadLong(image->file); viff_header.data_storage_type=LSBFirstReadLong(image->file); viff_header.data_encode_scheme=LSBFirstReadLong(image->file); viff_header.map_scheme=LSBFirstReadLong(image->file); viff_header.map_storage_type=LSBFirstReadLong(image->file); viff_header.map_rows=LSBFirstReadLong(image->file); viff_header.map_columns=LSBFirstReadLong(image->file); viff_header.map_subrows=LSBFirstReadLong(image->file); viff_header.map_enable=LSBFirstReadLong(image->file); viff_header.maps_per_cycle=LSBFirstReadLong(image->file); viff_header.color_space_model=LSBFirstReadLong(image->file); } else { viff_header.rows=MSBFirstReadLong(image->file); viff_header.columns=MSBFirstReadLong(image->file); viff_header.subrows=MSBFirstReadLong(image->file); viff_header.x_offset=MSBFirstReadLong(image->file); viff_header.y_offset=MSBFirstReadLong(image->file); viff_header.x_pixel_size=(float) MSBFirstReadLong(image->file); viff_header.y_pixel_size=(float) MSBFirstReadLong(image->file); viff_header.location_type=MSBFirstReadLong(image->file); viff_header.location_dimension=MSBFirstReadLong(image->file); viff_header.number_of_images=MSBFirstReadLong(image->file); viff_header.number_data_bands=MSBFirstReadLong(image->file); viff_header.data_storage_type=MSBFirstReadLong(image->file); viff_header.data_encode_scheme=MSBFirstReadLong(image->file); viff_header.map_scheme=MSBFirstReadLong(image->file); viff_header.map_storage_type=MSBFirstReadLong(image->file); viff_header.map_rows=MSBFirstReadLong(image->file); viff_header.map_columns=MSBFirstReadLong(image->file); viff_header.map_subrows=MSBFirstReadLong(image->file); viff_header.map_enable=MSBFirstReadLong(image->file); viff_header.maps_per_cycle=MSBFirstReadLong(image->file); viff_header.color_space_model=MSBFirstReadLong(image->file); } for (i=0; i < 420; i++) (void) fgetc(image->file); /* Verify that we can read this VIFF image. */ if ((viff_header.columns*viff_header.rows) == 0) { Warning("Image column or row size is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } if ((viff_header.data_storage_type != VFF_TYP_BIT) && (viff_header.data_storage_type != VFF_TYP_1_BYTE) && (viff_header.data_storage_type != VFF_TYP_2_BYTE) && (viff_header.data_storage_type != VFF_TYP_4_BYTE)) { Warning("Data storage type is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } if (viff_header.data_encode_scheme != VFF_DES_RAW) { Warning("Data encoding scheme is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } if ((viff_header.map_storage_type != VFF_MAPTYP_NONE) && (viff_header.map_storage_type != VFF_MAPTYP_1_BYTE)) { Warning("Map storage type is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } if ((viff_header.color_space_model != VFF_CM_NONE) && (viff_header.color_space_model != VFF_CM_ntscRGB) && (viff_header.color_space_model != VFF_CM_genericRGB)) { Warning("Color space model is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } if (viff_header.location_type != VFF_LOC_IMPLICIT) { Warning("Location type is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } if (viff_header.number_of_images != 1) { Warning("Number of images is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } switch (viff_header.map_scheme) { case VFF_MS_NONE: { if (viff_header.number_data_bands < 3) { /* Create linear color ramp. */ if (viff_header.data_storage_type == VFF_TYP_BIT) image->colors=2; else image->colors=1 << (viff_header.number_data_bands*8); image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=(MaxRGB*i)/(image->colors-1); image->colormap[i].green=(MaxRGB*i)/(image->colors-1); image->colormap[i].blue=(MaxRGB*i)/(image->colors-1); } } break; } case VFF_MS_ONEPERBAND: case VFF_MS_SHARED: { unsigned char *viff_colormap; /* Read VIFF raster colormap. */ image->colors=viff_header.map_columns; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); viff_colormap=(unsigned char *) malloc(image->colors*sizeof(unsigned char)); if ((image->colormap == (ColorPacket *) NULL) || (viff_colormap == (unsigned char *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) viff_colormap,1,(int) image->colors, image->file); for (i=0; i < image->colors; i++) { image->colormap[i].red=viff_colormap[i]; image->colormap[i].green=viff_colormap[i]; image->colormap[i].blue=viff_colormap[i]; } if (viff_header.map_rows > 1) { (void) ReadData((char *) viff_colormap,1,(int) image->colors, image->file); for (i=0; i < image->colors; i++) image->colormap[i].green=viff_colormap[i]; } if (viff_header.map_rows > 2) { (void) ReadData((char *) viff_colormap,1,(int) image->colors, image->file); for (i=0; i < image->colors; i++) image->colormap[i].blue=viff_colormap[i]; } (void) free((char *) viff_colormap); break; } default: { Warning("Colormap type is not supported",image->filename); DestroyImages(image); return((Image *) NULL); } } /* Allocate VIFF pixels. */ bytes_per_pixel=1; if (viff_header.data_storage_type == VFF_TYP_2_BYTE) bytes_per_pixel=2; if (viff_header.data_storage_type == VFF_TYP_4_BYTE) bytes_per_pixel=4; if (viff_header.data_storage_type == VFF_TYP_BIT) packets=((viff_header.columns+7) >> 3)*viff_header.rows; else packets= viff_header.columns*viff_header.rows*viff_header.number_data_bands; viff_pixels=(unsigned char *) malloc(bytes_per_pixel*packets*sizeof(unsigned char)); if (viff_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } (void) ReadData((char *) viff_pixels,bytes_per_pixel,(int) packets, image->file); if (viff_header.data_storage_type == VFF_TYP_2_BYTE) { register short int *p; register unsigned char *q; short int max_value, min_value, value; unsigned long scale_factor; /* Ensure the header byte-order is most-significant byte first. */ if ((viff_header.machine_dependency == VFF_DEP_DECORDER) || (viff_header.machine_dependency == VFF_DEP_NSORDER)) MSBFirstOrderShort((char *) &viff_header,bytes_per_pixel*packets); /* Determine scale factor. */ p=(short int *) viff_pixels; max_value=(*p); min_value=(*p); for (i=0; i < packets; i++) { if (*p > max_value) max_value=(*p); else if (*p < min_value) min_value=(*p); p++; } if ((min_value == 0) && (max_value == 0)) scale_factor=0; else if (min_value == max_value) { scale_factor=UpShift(MaxRGB)/min_value; min_value=0; } else scale_factor=UpShift(MaxRGB)/(max_value-min_value); /* Scale integer pixels to [0..MaxRGB]. */ p=(short int *) viff_pixels; q=viff_pixels; for (i=0; i < packets; i++) { value=DownShift((*p-min_value)*scale_factor); if (value > MaxRGB) value=MaxRGB; else if (value < 0) value=0; *q=(unsigned char) value; p++; q++; } } if (viff_header.data_storage_type == VFF_TYP_4_BYTE) { int max_value, min_value, value; register int *p; register unsigned char *q; unsigned long scale_factor; /* Ensure the header byte-order is most-significant byte first. */ if ((viff_header.machine_dependency == VFF_DEP_DECORDER) || (viff_header.machine_dependency == VFF_DEP_NSORDER)) MSBFirstOrderLong((char *) &viff_header,bytes_per_pixel*packets); /* Determine scale factor. */ p=(int *) viff_pixels; max_value=(*p); min_value=(*p); for (i=0; i < packets; i++) { if (*p > max_value) max_value=(*p); else if (*p < min_value) min_value=(*p); p++; } if ((min_value == 0) && (max_value == 0)) scale_factor=0; else if (min_value == max_value) { scale_factor=UpShift(MaxRGB)/min_value; min_value=0; } else scale_factor=UpShift(MaxRGB)/(max_value-min_value); /* Scale integer pixels to [0..MaxRGB]. */ p=(int *) viff_pixels; q=viff_pixels; for (i=0; i < packets; i++) { value=DownShift((*p-min_value)*scale_factor); if (value > MaxRGB) value=MaxRGB; else if (value < 0) value=0; *q=(unsigned char) value; p++; q++; } } /* Initialize image structure. */ image->matte=(viff_header.number_data_bands == 4); image->class= (viff_header.number_data_bands < 3 ? PseudoClass : DirectClass); image->columns=viff_header.rows; image->rows=viff_header.columns; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImages(image); return((Image *) NULL); } /* Convert VIFF raster image to runlength-encoded packets. */ p=viff_pixels; q=image->pixels; if (viff_header.data_storage_type == VFF_TYP_BIT) { unsigned int polarity; /* Convert bitmap scanline to runlength-encoded color packets. */ polarity=(viff_header.machine_dependency == VFF_DEP_DECORDER) || (viff_header.machine_dependency == VFF_DEP_NSORDER); for (y=0; y < image->rows; y++) { /* Convert bitmap scanline to runlength-encoded color packets. */ for (x=0; x < (image->columns >> 3); x++) { for (bit=0; bit < 8; bit++) { q->index=((*p) & (0x01 << bit) ? polarity : !polarity); q->length=0; q++; } p++; } if ((image->columns % 8) != 0) { for (bit=0; bit < (image->columns % 8); bit++) { q->index=((*p) & (0x01 << bit) ? polarity : !polarity); q->length=0; q++; } p++; } } } else if (image->class == PseudoClass) for (y=0; y < image->rows; y++) { /* Convert PseudoColor scanline to runlength-encoded color packets. */ for (x=0; x < image->columns; x++) { q->index=(*p++); q->length=0; q++; } } else { unsigned long offset; /* Convert DirectColor scanline to runlength-encoded color packets. */ offset=image->columns*image->rows; for (y=0; y < image->rows; y++) { for (x=0; x < image->columns; x++) { q->red=(*p); q->green=(*(p+offset)); q->blue=(*(p+offset*2)); if (image->colors != 0) { q->red=image->colormap[q->red].red; q->green=image->colormap[q->green].green; q->blue=image->colormap[q->blue].blue; } q->index=(unsigned short) (image->matte ? (*(p+offset*3)) : 0); q->length=0; p++; q++; } } } (void) free((char *) viff_pixels); if (image->class == PseudoClass) { SyncImage(image); CompressColormap(image); } /* Proceed to next image. */ status=ReadData((char *) &viff_header.identifier,1,1,image->file); if ((status == True) && (viff_header.identifier == 0xab)) { /* Allocate image structure. */ image->next=AllocateImage(image_info); if (image->next == (Image *) NULL) { DestroyImages(image); return((Image *) NULL); } (void) strcpy(image->next->filename,image_info->filename); image->next->file=image->file; image->next->scene=image->scene+1; image->next->previous=image; image=image->next; } } while ((status == True) && (viff_header.identifier == 0xab)); while (image->previous != (Image *) NULL) image=image->previous; CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d X I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure ReadXImage reads an image from an X window. % % The format of the ReadXImage routine is: % % image=ReadXImage(image_info,frame,borders,screen,descend) % % A description of each parameter follows: % % o image_info: Specifies a pointer to an ImageInfo structure. % % o frame: Specifies whether to include the window manager frame with the % image. % % o borders: Specifies whether borders pixels are to be saved with % the image. % % o screen: Specifies whether the GetImage request used to obtain the image % should be done on the root window, rather than directly on the specified % window. % % o descend: If this option is zero the colormap of the chosen window is % used to obtain the red, green, and blue values. Otherwise the image % is obtained by descending the window hierarchy and reading each % subwindow and its colormap. % % */ Image *ReadXImage(image_info,frame,borders,screen,descend) ImageInfo *image_info; unsigned int frame, borders, screen, descend; { Colormap *colormaps; Display *display; Image *image; int number_colormaps, number_windows, status, x; RectangleInfo clip_info; Window client_window, *colormap_windows, root_window, target_window; XTextProperty window_name; /* Open X server connection. */ display=XOpenDisplay(image_info->server_name); if (display == (Display *) NULL) { Warning("Unable to connect to X server", XDisplayName(image_info->server_name)); return((Image *) NULL); } /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Select target window. */ clip_info.x=0; clip_info.y=0; clip_info.width=0; clip_info.height=0; root_window=XRootWindow(display,XDefaultScreen(display)); target_window=(Window) NULL; if ((image_info->filename != (char *) NULL) && (*image_info->filename != '\0')) if (Latin1Compare(image_info->filename,"root") == 0) target_window=root_window; else { /* Select window by ID or name. */ if (isdigit(*image_info->filename)) target_window=XWindowByID(display,root_window, (Window) strtol(image_info->filename,(char **) NULL,0)); if (target_window == (Window) NULL) target_window=XWindowByName(display,root_window,image_info->filename); if (target_window == (Window) NULL) Warning("No window with specified id exists",image_info->filename); } /* If target window is not defined, interactively select one. */ if (target_window == (Window) NULL) target_window=XSelectWindow(display,&clip_info); client_window=target_window; if (target_window != root_window) { unsigned int d; /* Get client window. */ status=XGetGeometry(display,target_window,&root_window,&x,&x,&d,&d,&d,&d); if (status != 0) { client_window=XClientWindow(display,target_window); if (!frame) target_window=client_window; } } if (screen) { int y; Window child; XWindowAttributes window_attributes; /* Obtain window image directly from screen. */ status=XGetWindowAttributes(display,target_window,&window_attributes); if (status == False) { Warning("Unable to read X window attributes",image_info->filename); XCloseDisplay(display); return((Image *) NULL); } XTranslateCoordinates(display,target_window,root_window,0,0,&x,&y,&child); clip_info.x=x; clip_info.y=y; clip_info.width=window_attributes.width; clip_info.height=window_attributes.height; if (borders) { /* Include border in image. */ clip_info.x-=window_attributes.border_width; clip_info.y-=window_attributes.border_width; clip_info.width+=window_attributes.border_width << 1; clip_info.height+=window_attributes.border_width << 1; } target_window=root_window; } /* If WM_COLORMAP_WINDOWS property is set or multiple colormaps, descend. */ number_windows=0; status=XGetWMColormapWindows(display,target_window,&colormap_windows, &number_windows); if ((status == True) && (number_windows > 0)) { descend=True; XFree ((char *) colormap_windows); } colormaps=XListInstalledColormaps(display,target_window,&number_colormaps); if (number_colormaps > 0) { if (number_colormaps > 1) descend=True; XFree((char *) colormaps); } /* Alert the user not to alter the screen. */ XBell(display,0); /* Get image by window id. */ XGrabServer(display); image=XGetWindowImage(display,target_window,borders,descend); XUngrabServer(display); (void) strcpy(image->filename,image_info->filename); if (image == (Image *) NULL) Warning("Unable to read X window image",image_info->filename); else { if ((clip_info.width != 0) && (clip_info.height != 0)) { Image *clipped_image; /* Clip image as defined by the clipping rectangle. */ clipped_image=ClipImage(image,&clip_info); if (clipped_image != (Image *) NULL) { DestroyImage(image); image=clipped_image; } } status=XGetWMName(display,target_window,&window_name); if (status == True) { if ((image_info->filename != (char *) NULL) && (*image_info->filename == '\0')) { /* Initialize image filename. */ (void) strncpy(image->filename,(char *) window_name.value, (int) window_name.nitems); image->filename[window_name.nitems]='\0'; } } } /* Alert the user we're done. */ XBell(display,0); XBell(display,0); XCloseDisplay(display); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d X B M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadXBMImage reads an X11 bitmap image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadXBMImage routine is: % % image=ReadXBMImage(image_info) % % A description of each parameter follows: % % o image: Function ReadXBMImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadXBMImage(image_info) ImageInfo *image_info; { char data[MaxTextLength]; Image *image; register int x, y; register RunlengthPacket *q; register unsigned char bit; register unsigned short index; unsigned int byte; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read X bitmap header. */ while (fgets(data,MaxTextLength,image->file) != (char *) NULL) if (sscanf(data,"#define %*32s %u",&image->columns) == 1) break; while (fgets(data,MaxTextLength,image->file) != (char *) NULL) if (sscanf(data,"#define %*32s %u",&image->rows) == 1) break; if ((image->columns == 0) || (image->rows == 0)) { Warning("XBM file is not in the correct format",image->filename); DestroyImage(image); return((Image *) NULL); } while (fgets(data,MaxTextLength,image->file) != (char *) NULL) if (sscanf(data,"%*[^#] char")) break; if (feof(image->file)) { Warning("XBM file is not in the correct format",image->filename); DestroyImage(image); return((Image *) NULL); } /* Initialize image structure. */ image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Create colormap. */ image->class=PseudoClass; image->colors=2; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } image->colormap[0].red=0; image->colormap[0].green=0; image->colormap[0].blue=0; image->colormap[1].red=MaxRGB; image->colormap[1].green=MaxRGB; image->colormap[1].blue=MaxRGB; /* Convert X bitmap image to runlength-encoded packets. */ q=image->pixels; for (y=0; y < image->rows; y++) { bit=0; for (x=0; x < image->columns; x++) { if (bit == 0) (void) fscanf(image->file,"%i,",&byte); index=(byte & 0x01) ? 0 : 1; q->red=image->colormap[index].red; q->green=image->colormap[index].green; q->blue=image->colormap[index].blue; q->index=index; q->length=0; q++; bit++; byte>>=1; if (bit == 8) bit=0; } } CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d X C I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadXCImage creates a constant image and initializes to the % X server color as specified by the filename. It allocates the memory % necessary for the new Image structure and returns a pointer to the new % image. % % The format of the ReadXCImage routine is: % % image=ReadXCImage(image_info) % % A description of each parameter follows: % % o image: Function ReadXCImage returns a pointer to the image after % creating it. A null image is returned if there is a a memory shortage % or if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadXCImage(image_info) ImageInfo *image_info; { char *resource_value; Display *display; Image *image; int x, y; register int i; register RunlengthPacket *q; unsigned int height, width; XPixelInfo pixel_info; XResourceInfo resource_info; XrmDatabase resource_database, server_database; XStandardColormap *map_info; XVisualInfo *visual_info; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open X server connection. */ display=XOpenDisplay(image_info->server_name); if (display == (Display *) NULL) { Warning("Unable to connect to X server", XDisplayName(image_info->server_name)); DestroyImage(image); return((Image *) NULL); } /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Get user defaults from X resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); XGetResourceInfo(resource_database,client_name,&resource_info); /* Allocate standard colormap. */ map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Warning("Unable to create standard colormap","Memory allocation failed"); else { /* Initialize visual info. */ visual_info=XBestVisualInfo(display,map_info,&resource_info); if (visual_info == (XVisualInfo *) NULL) Warning("Unable to get visual",resource_info.visual_type); map_info->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; } if ((map_info == (XStandardColormap *) NULL) || (visual_info == (XVisualInfo *) NULL)) { XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } /* Determine image color-- specified by the filename. */ if (*image_info->filename != '\0') resource_info.background_color=image_info->filename; XGetMapInfo(visual_info,XDefaultColormap(display,visual_info->screen), map_info); XGetPixelInfo(display,visual_info,map_info,&resource_info,(Image *) NULL, &pixel_info); pixel_info.annotate_context=XDefaultGC(display,visual_info->screen); /* Determine width and height, e.g. 640x512. */ width=512; height=512; (void) strcpy(image->filename,image_info->filename); if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); /* Initialize Image structure. */ image->columns=width; image->rows=height; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); image->class=PseudoClass; image->colors=1; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if ((image->pixels == (RunlengthPacket *) NULL) || (image->colormap == (ColorPacket *) NULL)) { Warning("Unable to allocate image","Memory allocation error"); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } /* Initialize colormap. */ image->colormap[0].red=pixel_info.background_color.red >> 8; image->colormap[0].green=pixel_info.background_color.green >> 8; image->colormap[0].blue=pixel_info.background_color.blue >> 8; q=image->pixels; for (i=0; i < image->packets; i++) { q->index=0; q->length=0; q++; } SyncImage(image); /* Free resources. */ XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d X P M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadXBMImage reads an X11 pixmap image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the ReadXPMImage routine is: % % image=ReadXPMImage(image_info) % % A description of each parameter follows: % % o image: Function ReadXPMImage returns a pointer to the image after % creating it. A null image is returned if there is a a memory shortage % or if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ #ifdef HasXPM #include "xpm.h" static Image *ReadXPMImage(image_info) ImageInfo *image_info; { char *resource_value, *xpm_buffer; Display *display; Image *image; int length, status, x, y; register char *q; register int i; register RunlengthPacket *p; register unsigned long pixel; XColor *colors; XImage *mask_image, *ximage; XpmAttributes xpm_attributes; XResourceInfo resource_info; XrmDatabase resource_database, server_database; XStandardColormap *map_info; XVisualInfo *visual_info; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read XPM file. */ length=MaxTextLength; xpm_buffer=(char *) malloc(length*sizeof(char)); if (xpm_buffer != (char *) NULL) { q=xpm_buffer; while (fgets(q,MaxTextLength,image->file) != (char *) NULL) { q+=strlen(q); if ((q-xpm_buffer+MaxTextLength) > length) { *q='\0'; length<<=1; xpm_buffer=(char *) realloc((char *) xpm_buffer,length*sizeof(char)); if (xpm_buffer == (char *) NULL) break; q=xpm_buffer+strlen(xpm_buffer); } } } if (xpm_buffer == (char *) NULL) { Warning("Unable to read XPM image","Memory allocation failed"); DestroyImage(image); return((Image *) NULL); } CloseImage(image); /* Open X server connection. */ display=XOpenDisplay(image_info->server_name); if (display == (Display *) NULL) { Warning("Unable to connect to X server", XDisplayName(image_info->server_name)); DestroyImage(image); return((Image *) NULL); } /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Get user defaults from X resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); XGetResourceInfo(resource_database,client_name,&resource_info); /* Allocate standard colormap. */ map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Warning("Unable to create standard colormap","Memory allocation failed"); else { /* Initialize visual info. */ visual_info=XBestVisualInfo(display,map_info,&resource_info); if (visual_info == (XVisualInfo *) NULL) Warning("Unable to get visual",resource_info.visual_type); map_info->colormap=(Colormap) NULL; } if ((map_info == (XStandardColormap *) NULL) || (visual_info == (XVisualInfo *) NULL)) { XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } /* Initialize X colormap. */ map_info->colormap=XCreateColormap(display, XRootWindow(display,visual_info->screen),visual_info->visual, visual_info->class == DirectColor ? AllocAll : AllocNone); if (map_info->colormap == (Colormap) NULL) { Warning("Unable to create colormap",(char *) NULL); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } /* Initialize XPM attributes. */ xpm_attributes.valuemask=XpmColorKey | XpmColormap | XpmDepth | XpmVisual; xpm_attributes.visual=visual_info->visual; xpm_attributes.colormap=map_info->colormap; xpm_attributes.depth=visual_info->depth; xpm_attributes.color_key=XPM_COLOR; if (IsGrayImage(image)) if (image->colors > 16) xpm_attributes.color_key=XPM_GRAY; else if (image->colors == 2) xpm_attributes.color_key=XPM_MONO; else xpm_attributes.color_key=XPM_GRAY4; /* Read in a file in the XPM format into a X image structure. */ status=XpmCreateImageFromBuffer(display,xpm_buffer,&ximage,&mask_image, &xpm_attributes); if (status != XpmSuccess) { Warning("Unable to read XPM image",(char *) NULL); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return((Image *) NULL); } XpmFreeAttributes(&xpm_attributes); /* Get the colormap colors. */ colors=(XColor *) malloc(visual_info->colormap_size*sizeof(XColor)); if (colors == (XColor *) NULL) { Warning("Unable to read X colormap",(char *) NULL); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); XDestroyImage(ximage); DestroyImage(image); return((Image *) NULL); } if ((visual_info->class != DirectColor) && (visual_info->class != TrueColor)) for (i=0; i < visual_info->colormap_size; i++) { colors[i].pixel=i; colors[i].pad=0; } else { unsigned long blue, blue_bit, green, green_bit, red, red_bit; /* DirectColor or TrueColor visual. */ red=0; green=0; blue=0; red_bit=visual_info->red_mask & (~(visual_info->red_mask)+1); green_bit=visual_info->green_mask & (~(visual_info->green_mask)+1); blue_bit=visual_info->blue_mask & (~(visual_info->blue_mask)+1); for (i=0; i < visual_info->colormap_size; i++) { colors[i].pixel=red | green | blue; colors[i].pad=0; red+=red_bit; if (red > visual_info->red_mask) red=0; green+=green_bit; if (green > visual_info->green_mask) green=0; blue+=blue_bit; if (blue > visual_info->blue_mask) blue=0; } } XQueryColors(display,map_info->colormap,colors,visual_info->colormap_size); /* Convert X image to MIFF format. */ if ((visual_info->class != TrueColor) && (visual_info->class != DirectColor)) image->class=PseudoClass; image->columns=ximage->width; image->rows=ximage->height; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { (void) free((char *) colors); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); XDestroyImage(ximage); DestroyImage(image); return((Image *) NULL); } p=image->pixels; switch (image->class) { case DirectClass: { register unsigned long color, index; unsigned long blue_mask, blue_shift, green_mask, green_shift, red_mask, red_shift; /* Determine shift and mask for red, green, and blue. */ red_mask=visual_info->red_mask; red_shift=0; while ((red_mask & 0x01) == 0) { red_mask>>=1; red_shift++; } green_mask=visual_info->green_mask; green_shift=0; while ((green_mask & 0x01) == 0) { green_mask>>=1; green_shift++; } blue_mask=visual_info->blue_mask; blue_shift=0; while ((blue_mask & 0x01) == 0) { blue_mask>>=1; blue_shift++; } /* Convert X image to DirectClass packets. */ if ((visual_info->colormap_size > 0) && (visual_info->class == DirectColor)) for (y=0; y < image->rows; y++) { for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); index=(pixel >> red_shift) & red_mask; p->red=(unsigned char) (colors[index].red >> 8); index=(pixel >> green_shift) & green_mask; p->green=(unsigned char) (colors[index].green >> 8); index=(pixel >> blue_shift) & blue_mask; p->blue=(unsigned char) (colors[index].blue >> 8); p->index=0; p->length=0; p++; } } else for (y=0; y < image->rows; y++) for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); color=(pixel >> red_shift) & red_mask; p->red=(unsigned char) ((((unsigned long) color*65535)/red_mask) >> 8); color=(pixel >> green_shift) & green_mask; p->green=(unsigned char) ((((unsigned long) color*65535)/green_mask) >> 8); color=(pixel >> blue_shift) & blue_mask; p->blue=(unsigned char) ((((unsigned long) color*65535)/blue_mask) >> 8); p->index=0; p->length=0; p++; } break; } case PseudoClass: { /* Create colormap. */ image->colors=visual_info->colormap_size; image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { (void) free((char *) colors); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); XDestroyImage(ximage); DestroyImage(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[colors[i].pixel].red=colors[i].red >> 8; image->colormap[colors[i].pixel].green=colors[i].green >> 8; image->colormap[colors[i].pixel].blue=colors[i].blue >> 8; } /* Convert X image to PseudoClass packets. */ for (y=0; y < image->rows; y++) for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); p->index=(unsigned short) pixel; p->length=0; p++; } SyncImage(image); break; } } if (image->class == PseudoClass) CompressColormap(image); /* Free resources. */ (void) free((char *) colors); XDestroyImage(ximage); XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); return(image); } #else static Image *ReadXPMImage(image_info) ImageInfo *image_info; { Warning("XPM library is not available",image_info->filename); return(ReadMIFFImage(image_info)); } #endif /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d X W D I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadXWDImage reads an X Window System window dump image file and % returns it. It allocates the memory necessary for the new Image structure % and returns a pointer to the new image. % % The format of the ReadXWDImage routine is: % % image=ReadXWDImage(image_info) % % A description of each parameter follows: % % o image: Function ReadXWDImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadXWDImage(image_info) ImageInfo *image_info; { char *window_name; Display display; Image *image; int status, x, y; register int i; register RunlengthPacket *q; register unsigned short index; register unsigned long pixel; unsigned long lsb_first, packets; ScreenFormat screen_format; XColor *colors; XImage *ximage; XWDFileHeader header; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Read in header information. */ status=ReadData((char *) &header,sizeof(header),1,image->file); if (status == False) { Warning("Unable to read dump file header",image->filename); DestroyImage(image); return((Image *) NULL); } /* Ensure the header byte-order is most-significant byte first. */ lsb_first=1; if (*(char *) &lsb_first) MSBFirstOrderLong((char *) &header,sizeof(header)); /* Check to see if the dump file is in the proper format. */ if (header.file_version != XWD_FILE_VERSION) { Warning("XWD file format version mismatch",image->filename); DestroyImage(image); return((Image *) NULL); } if (header.header_size < sizeof(header)) { Warning("XWD header size is too small",image->filename); DestroyImage(image); return((Image *) NULL); } packets=(header.header_size-sizeof(header)); window_name=(char *) malloc((unsigned int) packets*sizeof(char)); if (window_name == (char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImage(image); return((Image *) NULL); } status=ReadData((char *) window_name,1,(int) packets,image->file); if (status == False) { Warning("Unable to read window name from dump file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Initialize the X image. */ display.byte_order=header.byte_order; display.bitmap_unit=header.bitmap_unit; display.bitmap_bit_order=header.bitmap_bit_order; display.pixmap_format=(&screen_format); display.nformats=1; screen_format.depth=header.pixmap_depth; screen_format.bits_per_pixel=(int) header.bits_per_pixel; ximage=XCreateImage(&display,(Visual *) NULL, (unsigned int) header.pixmap_depth,(int) header.pixmap_format, (int) header.xoffset,(char *) NULL,(unsigned int) header.pixmap_width, (unsigned int) header.pixmap_height,(int) header.bitmap_pad, (int) header.bytes_per_line); ximage->red_mask=header.red_mask; ximage->green_mask=header.green_mask; ximage->blue_mask=header.blue_mask; /* Read colormap. */ colors=(XColor *) NULL; if (header.ncolors != 0) { colors=(XColor *) malloc((unsigned int) header.ncolors*sizeof(XColor)); if (colors == (XColor *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImage(image); return((Image *) NULL); } status=ReadData((char *) colors,sizeof(XColor),(int) header.ncolors, image->file); if (status == False) { Warning("Unable to read color map from dump file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Ensure the header byte-order is most-significant byte first. */ lsb_first=1; if (*(char *) &lsb_first) for (i=0; i < header.ncolors; i++) { MSBFirstOrderLong((char *) &colors[i].pixel,sizeof(unsigned long)); MSBFirstOrderShort((char *) &colors[i].red,3*sizeof(unsigned short)); } } /* Allocate the pixel buffer. */ if (ximage->format == ZPixmap) packets=ximage->bytes_per_line*ximage->height; else packets=ximage->bytes_per_line*ximage->height*ximage->depth; ximage->data=(char *) malloc(packets*sizeof(unsigned char)); if (ximage->data == (char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImage(image); return((Image *) NULL); } status=ReadData(ximage->data,1,(int) packets,image->file); if (status == False) { Warning("Unable to read dump pixmap",image->filename); DestroyImage(image); return((Image *) NULL); } /* Convert image to MIFF format. */ image->columns=ximage->width; image->rows=ximage->height; /* Initial image comment. */ if ((ximage->red_mask > 0) || (ximage->green_mask > 0) || (ximage->blue_mask > 0)) image->class=DirectClass; else image->class=PseudoClass; image->colors=header.ncolors; image->packets=image->columns*image->rows; image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImage(image); return((Image *) NULL); } q=image->pixels; switch (image->class) { case DirectClass: { register unsigned long color; unsigned long blue_mask, blue_shift, green_mask, green_shift, red_mask, red_shift; /* Determine shift and mask for red, green, and blue. */ red_mask=ximage->red_mask; red_shift=0; while ((red_mask & 0x01) == 0) { red_mask>>=1; red_shift++; } green_mask=ximage->green_mask; green_shift=0; while ((green_mask & 0x01) == 0) { green_mask>>=1; green_shift++; } blue_mask=ximage->blue_mask; blue_shift=0; while ((blue_mask & 0x01) == 0) { blue_mask>>=1; blue_shift++; } /* Convert X image to DirectClass packets. */ if (image->colors != 0) for (y=0; y < image->rows; y++) { for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); index=(unsigned short) ((pixel >> red_shift) & red_mask); q->red=(unsigned char) (colors[index].red >> 8); index=(unsigned short) ((pixel >> green_shift) & green_mask); q->green=(unsigned char) (colors[index].green >> 8); index=(unsigned short) ((pixel >> blue_shift) & blue_mask); q->blue=(unsigned char) (colors[index].blue >> 8); q->index=0; q->length=0; q++; } } else for (y=0; y < image->rows; y++) for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); color=(pixel >> red_shift) & red_mask; q->red=(unsigned char) ((((unsigned long) color*65535)/red_mask) >> 8); color=(pixel >> green_shift) & green_mask; q->green=(unsigned char) ((((unsigned long) color*65535)/green_mask) >> 8); color=(pixel >> blue_shift) & blue_mask; q->blue=(unsigned char) ((((unsigned long) color*65535)/blue_mask) >> 8); q->index=0; q->length=0; q++; } break; } case PseudoClass: { /* Convert X image to PseudoClass packets. */ image->colormap=(ColorPacket *) malloc(image->colors*sizeof(ColorPacket)); if (image->colormap == (ColorPacket *) NULL) { Warning("Unable to allocate memory",(char *) NULL); DestroyImage(image); return((Image *) NULL); } for (i=0; i < image->colors; i++) { image->colormap[i].red=colors[i].red >> 8; image->colormap[i].green=colors[i].green >> 8; image->colormap[i].blue=colors[i].blue >> 8; } for (y=0; y < image->rows; y++) for (x=0; x < image->columns; x++) { pixel=XGetPixel(ximage,x,y); q->red=(unsigned char) (colors[pixel].red >> 8); q->green=(unsigned char) (colors[pixel].green >> 8); q->blue=(unsigned char) (colors[pixel].blue >> 8); q->index=(unsigned short) pixel; q->length=0; q++; } CompressColormap(image); break; } } /* Free image and colormap. */ (void) free((char *) window_name); if (header.ncolors != 0) (void) free((char *) colors); XDestroyImage(ximage); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d Y U V I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadYUVImage reads an image with digital YUV (CCIR 601 1:1:1) bytes % and returns it. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. U and V, normally -0.5 % through 0.5, are expected to be normalized to the range 0 through MaxRGB % fit withing a byte. % % The format of the ReadYUVImage routine is: % % image=ReadYUVImage(image_info) % % A description of each parameter follows: % % o image: Function ReadYUVImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadYUVImage(image_info) ImageInfo *image_info; { Image *image; int x, y; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char *yuv_pixels; unsigned int height, width; /* Allocate image structure. */ image=AllocateImage(image_info); if (image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ OpenImage(image,"r"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); DestroyImage(image); return((Image *) NULL); } /* Determine width and height, e.g. 640x512. */ width=512; height=512; if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); /* Initialize image structure. */ image->columns=width; image->rows=height; image->packets=image->columns*image->rows; yuv_pixels=(unsigned char *) malloc(3*image->packets*sizeof(unsigned char)); image->pixels=(RunlengthPacket *) malloc(image->packets*sizeof(RunlengthPacket)); if ((yuv_pixels == (unsigned char *) NULL) || (image->pixels == (RunlengthPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(image); return((Image *) NULL); } /* Convert raster image to runlength-encoded packets. */ (void) ReadData((char *) yuv_pixels,3,(int) image->packets,image->file); p=yuv_pixels; switch (image_info->interlace) { case NoneInterlace: default: { /* No interlacing: YUVYUVYUVYUVYUVYUV... */ q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=0; q->length=0; q++; } break; } case LineInterlace: { /* Line interlacing: YYY...UUU...VVV...YYY...UUU...VVV... */ for (y=0; y < image->rows; y++) { q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->red=(*p++); q->index=0; q->length=0; q++; } q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->green=(*p++); q++; } q=image->pixels+y*image->columns; for (x=0; x < image->columns; x++) { q->blue=(*p++); q++; } } break; } case PlaneInterlace: { /* Plane interlacing: YYYYYY...UUUUUU...VVVVVV... */ q=image->pixels; for (i=0; i < image->packets; i++) { q->red=(*p++); q->index=0; q->length=0; q++; } q=image->pixels; for (i=0; i < image->packets; i++) { q->green=(*p++); q++; } q=image->pixels; for (i=0; i < image->packets; i++) { q->blue=(*p++); q++; } break; } } (void) free((char *) yuv_pixels); TransformRGBImage(image,YCbCrColorspace); CloseImage(image); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d Y U V 3 I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadYUV3Image reads an image with digital YUV (CCIR 601 2:1:1) % bytes and returns it. It allocates the memory necessary for the new Image % structure and returns a pointer to the new image. U and V, normally -0.5 % through 0.5, are expected to be normalized to the range 0 through MaxRGB % fit withing a byte. % % The format of the ReadYUV3Image routine is: % % image=ReadYUV3Image(image_info) % % A description of each parameter follows: % % o image: Function ReadYUV3Image returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ static Image *ReadYUV3Image(image_info) ImageInfo *image_info; { char filename[MaxTextLength]; Image *image, *scaled_image; int x, y; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char *uv_pixels, *y_pixels; unsigned int height, width; /* Allocate image structure. */ scaled_image=AllocateImage(image_info); if (scaled_image == (Image *) NULL) return((Image *) NULL); /* Open image file. */ (void) strcpy(filename,image_info->filename); (void) strcpy(scaled_image->filename,filename); if (strcmp(scaled_image->filename,"-") != 0) (void) strcat(scaled_image->filename,".Y"); OpenImage(scaled_image,"r"); if (scaled_image->file == (FILE *) NULL) { Warning("Unable to open file",scaled_image->filename); DestroyImage(scaled_image); return((Image *) NULL); } /* Determine width and height, e.g. 640x512. */ width=512; height=512; if (image_info->geometry != (char *) NULL) (void) XParseGeometry(image_info->geometry,&x,&y,&width,&height); /* Read Y channel. */ scaled_image->columns=width >> 1; scaled_image->rows=height >> 1; scaled_image->packets=scaled_image->columns*scaled_image->rows; uv_pixels=(unsigned char *) malloc(scaled_image->packets*sizeof(unsigned char)); y_pixels=(unsigned char *) malloc(4*scaled_image->packets*sizeof(unsigned char)); scaled_image->pixels=(RunlengthPacket *) malloc(scaled_image->packets*sizeof(RunlengthPacket)); if ((uv_pixels == (unsigned char *) NULL) || (y_pixels == (unsigned char *) NULL) || (scaled_image->pixels == (RunlengthPacket *) NULL)) { Warning("Memory allocation error",(char *) NULL); DestroyImage(scaled_image); return((Image *) NULL); } (void) ReadData((char *) y_pixels,4,(int) scaled_image->packets, scaled_image->file); CloseImage(scaled_image); /* Read U channel. */ (void) strcpy(scaled_image->filename,filename); if (strcmp(scaled_image->filename,"-") != 0) (void) strcat(scaled_image->filename,".U"); OpenImage(scaled_image,"r"); if (scaled_image->file == (FILE *) NULL) { Warning("Unable to open file",scaled_image->filename); DestroyImage(scaled_image); return((Image *) NULL); } (void) ReadData((char *) uv_pixels,1,(int) scaled_image->packets, scaled_image->file); p=uv_pixels; q=scaled_image->pixels; for (i=0; i < scaled_image->packets; i++) { q->green=(*p); q->index=0; q->length=0; p++; q++; } CloseImage(scaled_image); /* Read V channel. */ (void) strcpy(scaled_image->filename,filename); if (strcmp(scaled_image->filename,"-") != 0) (void) strcat(scaled_image->filename,".V"); OpenImage(scaled_image,"r"); if (scaled_image->file == (FILE *) NULL) { Warning("Unable to open file",scaled_image->filename); DestroyImage(scaled_image); return((Image *) NULL); } (void) ReadData((char *) uv_pixels,1,(int) scaled_image->packets, scaled_image->file); p=uv_pixels; q=scaled_image->pixels; for (i=0; i < scaled_image->packets; i++) { q->blue=(*p); p++; q++; } CloseImage(scaled_image); (void) free((char *) uv_pixels); /* Scale image. */ scaled_image->orphan=True; image= ScaleImage(scaled_image,scaled_image->columns << 1,scaled_image->rows << 1); DestroyImage(scaled_image); if (image == (Image *) NULL) { Warning("Unable to read image","Memory allocation failed"); return((Image *) NULL); } p=y_pixels; q=image->pixels; for (i=0; i < (image->columns*image->rows); i++) { q->red=(*p); p++; q++; } (void) free((char *) y_pixels); TransformRGBImage(image,YCbCrColorspace); (void) strcpy(image->filename,filename); return(image); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadImage reads an image and returns it. It allocates % the memory necessary for the new Image structure and returns a pointer to % the new image. By default, the image format is determined by its magic % number. To specify a particular image format, precede the filename with an % explicit image format name and a colon (i.e. ps:image) or as the filename % suffix (i.e. image.ps). % % The format of the ReadImage routine is: % % image=ReadImage(image_info) % % A description of each parameter follows: % % o image: Function ReadImage returns a pointer to the image after % reading. A null image is returned if there is a a memory shortage or % if the image cannot be read. % % o image_info: Specifies a pointer to an ImageInfo structure. % % */ Image *ReadImage(image_info) ImageInfo *image_info; { char magic_number[12]; Image *image; unsigned int temporary_file; temporary_file=False; SetImageMagick(image_info); if (!image_info->assert) { Image decode_image; /* Determine type from image magic number. */ *magic_number='\0'; (void) strcpy(decode_image.filename,image_info->filename); OpenImage(&decode_image,"r"); if (decode_image.file != (FILE *) NULL) if ((decode_image.file == stdin) || decode_image.pipe) { char *directory; FILE *file; int c; /* Copy standard input or pipe to temporary file. */ temporary_file=True; directory=(char *) getenv("TMPDIR"); if (directory == (char *) NULL) directory="/tmp"; (void) sprintf(image_info->filename,"%s/magickXXXXXX",directory); (void) mktemp(image_info->filename); file=fopen(image_info->filename,"w"); if (file == (FILE *) NULL) { Warning("Unable to write file",image_info->filename); return((Image *) NULL); } c=fgetc(decode_image.file); while (c != EOF) { (void) putc(c,file); c=fgetc(decode_image.file); } (void) fclose(file); CloseImage(&decode_image); (void) strcpy(decode_image.filename,image_info->filename); OpenImage(&decode_image,"r"); } if (decode_image.file != (FILE *) NULL) { /* Read magic number. */ (void) ReadData(magic_number,sizeof(char),sizeof(magic_number), decode_image.file); CloseImage(&decode_image); } /* Determine the image format. */ if (strncmp(magic_number,"BM",2) == 0) (void) strcpy(image_info->magick,"BMP"); if (strncmp(magic_number,"GIF8",4) == 0) (void) strcpy(image_info->magick,"GIF"); if (strncmp(magic_number,"\001\332",2) == 0) (void) strcpy(image_info->magick,"IRIS"); if (strncmp(magic_number,"\377\330\377",3) == 0) (void) strcpy(image_info->magick,"JPEG"); else if ((strcmp(image_info->magick,"JPEG") == 0) || (strcmp(image_info->magick,"JPG") == 0)) (void) strcpy(image_info->magick,"MIFF"); if ((unsigned char) *magic_number == 0x0a) (void) strcpy(image_info->magick,"PCX"); if ((*magic_number == 'P') && isdigit(magic_number[1])) (void) strcpy(image_info->magick,"PNM"); if (strncmp(magic_number,"%!",2) == 0) (void) strcpy(image_info->magick,"PS"); if (strncmp(magic_number,"\131\246\152\225",4) == 0) (void) strcpy(image_info->magick,"SUN"); if ((strncmp(magic_number,"\115\115",2) == 0) || (strncmp(magic_number,"\111\111",2) == 0)) (void) strcpy(image_info->magick,"TIFF"); if (strncmp(magic_number,"\122\314",2) == 0) (void) strcpy(image_info->magick,"RLE"); if ((strncmp(magic_number,"LBLSIZE",7) == 0) || (strncmp(magic_number,"NJPL1I",6) == 0)) (void) strcpy(image_info->magick,"VICAR"); if ((unsigned char) *magic_number == 0xab) (void) strcpy(image_info->magick,"VIFF"); if (strncmp(magic_number,"#define",7) == 0) (void) strcpy(image_info->magick,"XBM"); if ((magic_number[1] == 0x00) && (magic_number[2] == 0x00)) if ((magic_number[5] == 0x00) && (magic_number[6] == 0x00)) if ((magic_number[4] == 0x07) || (magic_number[7] == 0x07)) (void) strcpy(image_info->magick,"XWD"); } /* Call appropriate image reader based on image type. */ switch (*image_info->magick) { case 'A': { image=ReadAVSImage(image_info); break; } case 'B': { image=ReadBMPImage(image_info); break; } case 'C': { image=ReadCMYKImage(image_info); break; } case 'E': { image=ReadPSImage(image_info); break; } case 'F': { if (strcmp(image_info->magick,"FAX") == 0) image=ReadFAXImage(image_info); else image=ReadFITSImage(image_info); break; } case 'G': { if (strcmp(image_info->magick,"GIF") == 0) image=ReadGIFImage(image_info); else if (strcmp(image_info->magick,"GIF87") == 0) image=ReadGIFImage(image_info); else if (strcmp(image_info->magick,"GRAY") == 0) image=ReadGRAYImage(image_info); else image=ReadFAXImage(image_info); break; } case 'H': { image=ReadHISTOGRAMImage(image_info); break; } case 'I': { image=ReadIRISImage(image_info); break; } case 'J': { image=ReadJPEGImage(image_info); break; } case 'M': { if (strcmp(image_info->magick,"MAP") == 0) image=ReadMAPImage(image_info); else if (strcmp(image_info->magick,"MATTE") == 0) image=ReadMATTEImage(image_info); else if (strcmp(image_info->magick,"MIFF") == 0) image=ReadMIFFImage(image_info); else image=ReadMTVImage(image_info); break; } case 'P': { if (strcmp(image_info->magick,"PCD") == 0) image=ReadPCDImage(image_info); else if (strcmp(image_info->magick,"PCX") == 0) image=ReadPCXImage(image_info); else if (strcmp(image_info->magick,"PICT") == 0) image=ReadPICTImage(image_info); else if (strcmp(image_info->magick,"PM") == 0) image=ReadXPMImage(image_info); else if ((strcmp(image_info->magick,"PS") == 0) || (strcmp(image_info->magick,"PS2") == 0)) image=ReadPSImage(image_info); else image=ReadPNMImage(image_info); break; } case 'R': { if (strcmp(image_info->magick,"RAS") == 0) image=ReadSUNImage(image_info); else if (strcmp(image_info->magick,"RGB") == 0) image=ReadRGBImage(image_info); else image=ReadRLEImage(image_info); break; } case 'S': { image=ReadSUNImage(image_info); break; } case 'T': { if (strcmp(image_info->magick,"TGA") == 0) image=ReadTARGAImage(image_info); else if ((strcmp(image_info->magick,"TIF") == 0) || (strcmp(image_info->magick,"TIFF") == 0)) image=ReadTIFFImage(image_info); else image=ReadTEXTImage(image_info); break; } case 'V': { if (strcmp(image_info->magick,"VICAR") == 0) image=ReadVICARImage(image_info); else image=ReadVIFFImage(image_info); break; } case 'X': { if (strcmp(image_info->magick,"X") == 0) image=ReadXImage(image_info,False,False,False,False); else if (strcmp(image_info->magick,"XC") == 0) image=ReadXCImage(image_info); else if (strcmp(image_info->magick,"XBM") == 0) image=ReadXBMImage(image_info); else if (strcmp(image_info->magick,"XPM") == 0) image=ReadXPMImage(image_info); else if (strcmp(image_info->magick,"XV") == 0) image=ReadVIFFImage(image_info); else image=ReadXWDImage(image_info); break; } case 'Y': { if (strcmp(image_info->magick,"YUV") == 0) image=ReadYUVImage(image_info); else image=ReadYUV3Image(image_info); break; } default: image=ReadMIFFImage(image_info); } if (temporary_file) (void) unlink(image_info->filename); if (image != (Image *) NULL) { if (image->status) { Warning("An error has occurred reading from file",image->filename); DestroyImages(image); return((Image *) NULL); } if (image->comments == (char *) NULL) CommentImage(image," Imported from %m image: %f"); } return(image); } umns; x++) { pixel=XGetPixel(ximage,x,y); index=(pixel >> red_shift) & red_mask; p->red=(unsigned cha./ImageMagick/magick/encode.c 644 24 24 610206 5555556175 11277 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % EEEEE N N CCCC OOO DDDD EEEEE % % E NN N C O O D D E % % EEE N N N C O O D D EEE % % E N NN C O O D D E % % EEEEE N N CCCC OOO DDDD EEEEE % % % % % % Utility Routines to Write Image Formats % % % % % % % % Software Design % % John Cristy % % January 1992 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Functions in this library convert to and from `alien' image formats to the % MIFF image format. % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "X.h" #include "compress.h" #include "utility.h" #include "XWDFile.h" /* Forward declarations. */ static unsigned int WriteMIFFImage _Declare((Image *)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e A V S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteAVSImage writes an image to a file in AVS X image format. % % The format of the WriteAVSImage routine is: % % status=WriteAVSImage(image) % % A description of each parameter follows. % % o status: Function WriteAVSImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteAVSImage(image) Image *image; { typedef struct _AVSHeader { int width, height; } AVSHeader; AVSHeader avs_header; register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *avs_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Initialize raster file header. */ avs_header.width=image->columns; avs_header.height=image->rows; avs_pixels=(unsigned char *) malloc(4*image->columns*image->rows*sizeof(unsigned char)); if (avs_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } (void) fwrite((char *) &avs_header,sizeof(AVSHeader),1,image->file); p=image->pixels; q=avs_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=(unsigned char) (image->matte ? p->index : 0); *q++=p->red; *q++=p->green; *q++=p->blue; } p++; } (void) fwrite((char *) avs_pixels,4,(int)(image->columns*image->rows), image->file); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e B M P I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteBMPImage writes an image in Microsoft Windows bitmap encoded % image format. % % The format of the WriteBMPImage routine is: % % status=WriteBMPImage(image) % % A description of each parameter follows. % % o status: Function WriteBMPImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteBMPImage(image) Image *image; { typedef struct _BMPHeader { unsigned long file_size; unsigned short reserved[2]; unsigned long offset_bits, size, width, height; unsigned short planes, bit_count; unsigned long compression, image_size, x_pixels, y_pixels, number_colors, colors_important; } BMPHeader; BMPHeader bmp_header; register int i, j, x, y; register RunlengthPacket *p; register unsigned char *q; unsigned char *bmp_data, *bmp_pixels; unsigned int bytes_per_line; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Initialize BMP raster file header. */ bmp_header.file_size=14+40; bmp_header.offset_bits=14+40; if ((image->class == DirectClass) || (image->colors > 256)) { /* Full color BMP raster. */ bmp_header.bit_count=24; bmp_header.number_colors=0; } else { /* Colormapped BMP raster. */ bmp_header.bit_count=8; if (IsGrayImage(image) && (image->colors == 2)) bmp_header.bit_count=1; bmp_header.file_size+=image->colors*4; bmp_header.offset_bits+=image->colors*4; bmp_header.number_colors=image->colors; } bmp_header.reserved[0]=0; bmp_header.reserved[1]=0; bmp_header.size=40; bmp_header.width=image->columns; bmp_header.height=image->rows; bmp_header.planes=1; bmp_header.compression=0; bytes_per_line=((image->columns*bmp_header.bit_count+31)/32)*4; bmp_header.image_size=bytes_per_line*image->rows; bmp_header.file_size+=bmp_header.image_size; bmp_header.x_pixels=75*39; bmp_header.y_pixels=75*39; bmp_header.colors_important=bmp_header.number_colors; /* Convert MIFF to BMP raster pixels. */ bmp_pixels=(unsigned char *) malloc(bmp_header.image_size*sizeof(unsigned char)); if (bmp_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; x=0; y=image->rows-1; switch (bmp_header.bit_count) { case 1: { register unsigned char bit, byte; /* Convert PseudoClass image to a BMP monochrome image. */ bit=0; byte=0; q=bmp_pixels+y*bytes_per_line; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { byte<<=1; if (p->index == 0) byte|=0x01; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == image->columns) { /* Advance to the next scanline. */ if (bit != 0) *q++=byte << (8-bit); bit=0; byte=0; x=0; y--; q=bmp_pixels+y*bytes_per_line; } } p++; } break; } case 8: { /* Convert PseudoClass packet to BMP pixel. */ q=bmp_pixels+y*bytes_per_line; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=p->index; x++; if (x == image->columns) { x=0; y--; q=bmp_pixels+y*bytes_per_line; } } p++; } break; } case 24: { /* Convert DirectClass packet to BMP RGB pixel. */ q=bmp_pixels+y*bytes_per_line; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=p->blue; *q++=p->green; *q++=p->red; x++; if (x == image->columns) { x=0; y--; q=bmp_pixels+y*bytes_per_line; } } p++; } break; } } if (bmp_header.bit_count == 8) { if (image->compression == RunlengthEncodedCompression) CompressImage(image); if (image->compression == RunlengthEncodedCompression) { unsigned int packets; /* Convert run-length encoded raster pixels. */ packets=(bytes_per_line*(bmp_header.height+2)+1) << 1; bmp_data=(unsigned char *) malloc(packets*sizeof(unsigned char)); if (bmp_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); (void) free((char *) bmp_pixels); return(False); } bmp_header.image_size= BMPEncodeImage(bmp_pixels,bmp_data,image->columns,image->rows); (void) free((char *) bmp_pixels); bmp_pixels=bmp_data; bmp_header.compression=1; } } /* Write BMP header. */ (void) fwrite("BM",1,2,image->file); LSBFirstWriteLong(bmp_header.file_size,image->file); LSBFirstWriteShort(bmp_header.reserved[0],image->file); LSBFirstWriteShort(bmp_header.reserved[1],image->file); LSBFirstWriteLong(bmp_header.offset_bits,image->file); LSBFirstWriteLong(bmp_header.size,image->file); LSBFirstWriteLong(bmp_header.width,image->file); LSBFirstWriteLong(bmp_header.height,image->file); LSBFirstWriteShort(bmp_header.planes,image->file); LSBFirstWriteShort(bmp_header.bit_count,image->file); LSBFirstWriteLong(bmp_header.compression,image->file); LSBFirstWriteLong(bmp_header.image_size,image->file); LSBFirstWriteLong(bmp_header.x_pixels,image->file); LSBFirstWriteLong(bmp_header.y_pixels,image->file); LSBFirstWriteLong(bmp_header.number_colors,image->file); LSBFirstWriteLong(bmp_header.colors_important,image->file); if (image->class == PseudoClass) { unsigned char *bmp_colormap; /* Dump colormap to file. */ bmp_colormap=(unsigned char *) malloc(4*image->colors*sizeof(unsigned char)); if (bmp_colormap == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } q=bmp_colormap; for (i=0; i < image->colors; i++) { *q++=image->colormap[i].blue; *q++=image->colormap[i].green; *q++=image->colormap[i].red; q++; } (void) fwrite((char *) bmp_colormap,4,(int) image->colors,image->file); (void) free((char *) bmp_colormap); } (void) fwrite((char *) bmp_pixels,1,(int) bmp_header.image_size,image->file); (void) free((char *) bmp_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e C M Y K I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteCMYKImage writes an image to a file in cyan, magenta, % yellow, and black rasterfile format. % % The format of the WriteCMYKImage routine is: % % status=WriteCMYKImage(image,interlace,undercolor_geometry) % % A description of each parameter follows. % % o status: Function WriteCMYKImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % o interlace: An unsigned integer that specifies the interlacing % scheme. % % o undercolor_geometry: Specifies a pointer to a undercolor geometry % string. The specified undercolor removal and black generation of this % geometry string are relative. % % */ static unsigned int WriteCMYKImage(image,interlace,undercolor_geometry) Image *image; unsigned int interlace; char *undercolor_geometry; { float black_generation, undercolor; register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char black, cyan, magenta, *cmyk_pixels, yellow; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Convert MIFF to CMYK raster pixels. */ cmyk_pixels=(unsigned char *) malloc(4*image->columns*image->rows*sizeof(unsigned char)); if (cmyk_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } undercolor=1.0; black_generation=1.0; if (undercolor_geometry != (char *) NULL) { (void) sscanf(undercolor_geometry,"%fx%f",&undercolor,&black_generation); if (black_generation == 1.0) black_generation=undercolor; } q=cmyk_pixels; switch (interlace) { case NoneInterlace: default: { /* No interlacing: CMYKCMYKCMYKCMYKCMYKCMYK... */ p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=cyan-undercolor*black; *q++=magenta-undercolor*black; *q++=yellow-undercolor*black; *q++=black_generation*black; } p++; } break; } case LineInterlace: { register int x, y; /* Line interlacing: CCC...MMM...YYY...CCC...MMM...YYY... */ if (!UncompressImage(image)) return(False); for (y=0; y < image->rows; y++) { p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=cyan-undercolor*black; p++; } p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=magenta-undercolor*black; p++; } p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=yellow-undercolor*black; p++; } p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=black_generation*black; p++; } } break; } case PlaneInterlace: { /* Plane interlacing: CCCCCC...MMMMMM...YYYYYY...KKKKKK... */ p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=cyan-undercolor*black; } p++; } p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=magenta-undercolor*black; } p++; } p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=yellow-undercolor*black; } p++; } p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { cyan=MaxRGB-p->red; magenta=MaxRGB-p->green; yellow=MaxRGB-p->blue; black=cyan; if (magenta < black) black=magenta; if (yellow < black) black=yellow; *q++=black_generation*black; } p++; } break; } } (void) fwrite((char *) cmyk_pixels,4,(int) (image->columns*image->rows), image->file); (void) free((char *) cmyk_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e F A X I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure WriteFAXImage writes an image to a file in 1 dimensional Huffman % encoded format. % % The format of the WriteFAXImage routine is: % % status=WriteFAXImage(image) % % A description of each parameter follows. % % o status: Function WriteFAXImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteFAXImage(image) Image *image; { unsigned int status; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Convert MIFF to monochrome. */ QuantizeImage(image,2,8,False,GRAYColorspace,True); SyncImage(image); status=HuffmanEncodeImage(image); CloseImage(image); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e F I T S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteFITSImage writes a Flexible Image Transport System image to a % file as gray scale intensities [0..255]. % % The format of the WriteFITSImage routine is: % % status=WriteFITSImage(image) % % A description of each parameter follows. % % o status: Function WriteFITSImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteFITSImage(image) Image *image; { char buffer[81], *fits_header; register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *fits_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Allocate image header. */ fits_header=(char *) malloc(2880*sizeof(unsigned char)); if (fits_header == (char *) NULL) { Warning("Unable to write image","Memory allocation failed"); return(False); } /* Initialize image header. */ for (i=0; i < 2880; i++) fits_header[i]=' '; (void) strcpy(buffer,"SIMPLE = T"); (void) strncpy(fits_header+0,buffer,strlen(buffer)); (void) strcpy(buffer,"BITPIX = 8"); (void) strncpy(fits_header+80,buffer,strlen(buffer)); (void) strcpy(buffer,"NAXIS = 2"); (void) strncpy(fits_header+160,buffer,strlen(buffer)); (void) sprintf(buffer,"NAXIS1 = %10u",image->columns); (void) strncpy(fits_header+240,buffer,strlen(buffer)); (void) sprintf(buffer,"NAXIS2 = %10u",image->rows); (void) strncpy(fits_header+320,buffer,strlen(buffer)); (void) strcpy(buffer,"HISTORY Created by ImageMagick."); (void) strncpy(fits_header+400,buffer,strlen(buffer)); (void) strcpy(buffer,"END"); (void) strncpy(fits_header+480,buffer,strlen(buffer)); (void) fwrite((char *) fits_header,1,2880,image->file); (void) free((char *) fits_header); /* Convert image to fits scale PseudoColor class. */ fits_pixels=(unsigned char *) malloc(image->columns*image->rows*sizeof(unsigned char)); if (fits_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; q=fits_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=Intensity(*p); p++; } (void) fwrite((char *) fits_pixels,1,(int) (image->columns*image->rows), image->file); (void) free((char *) fits_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e G I F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteGIFImage writes an image to a file in the Compuserve Graphics % image format. % % The format of the WriteGIFImage routine is: % % status=WriteGIFImage(image) % % A description of each parameter follows. % % o status: Function WriteGIFImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteGIFImage(image) Image *image; { int transparency_index; register int i; register RunlengthPacket *p; unsigned char bits_per_pixel, c; unsigned int status; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } transparency_index=(-1); if (image->matte) { /* Determine transparency index. */ transparency_index=0; p=image->pixels; image->runlength=p->length+1; for (i=0; i < (image->columns*image->rows); i++) { if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } if (p->index) { transparency_index=i; break; } } } if ((image->class == DirectClass) || (image->colors > 256)) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,True,RGBColorspace,True); SyncImage(image); } for (bits_per_pixel=1; bits_per_pixel < 8; bits_per_pixel++) if ((1 << bits_per_pixel) >= image->colors) break; /* Write GIF header. */ if (strcmp(image->magick,"GIF87") == 0) (void) fwrite("GIF87a",1,6,image->file); else (void) fwrite("GIF89a",1,6,image->file); LSBFirstWriteShort(image->columns,image->file); LSBFirstWriteShort(image->rows,image->file); c=0x80; /* global colormap */ c|=(8-1) << 4; /* color resolution */ c|=(bits_per_pixel-1); /* size of global colormap */ (void) fputc((char) c,image->file); (void) fputc(0x0,image->file); /* background color */ (void) fputc(0x0,image->file); /* reserved */ /* Write colormap. */ for (i=0; i < image->colors; i++) { (void) fputc((char) image->colormap[i].red,image->file); (void) fputc((char) image->colormap[i].green,image->file); (void) fputc((char) image->colormap[i].blue,image->file); } for ( ; i < (int) (1 << bits_per_pixel); i++) { (void) fputc(0x0,image->file); (void) fputc(0x0,image->file); (void) fputc(0x0,image->file); } if (strcmp(image->magick,"GIF87") != 0) { if (transparency_index >= 0) { /* Write out extension for transparent color index. */ p=image->pixels; image->runlength=p->length+1; for (i=0; i < transparency_index; i++) if (image->runlength != 0) image->runlength--; else { p++; image->runlength=p->length; } (void) fputc(0x21,image->file); (void) fputc(0xf9,image->file); (void) fputc(0x4,image->file); (void) fputc(0x1,image->file); (void) fputc(0x0,image->file); (void) fputc(0x0,image->file); (void) fputc((char) p->index,image->file); (void) fputc(0x0,image->file); } if (image->comments != (char *) NULL) { register char *p; register unsigned int count; /* Write comment extension block. */ (void) fputc(0x21,image->file); (void) fputc(0xfe,image->file); p=image->comments; while ((int) strlen(p) > 0) { count=Min((int) strlen(p),255); (void) fputc(count,image->file); for (i=0; i < count; i++) (void) fputc(*p++,image->file); } (void) fputc(0x0,image->file); } } (void) fputc(',',image->file); /* image separator */ /* Write the image header. */ LSBFirstWriteShort(0,image->file); LSBFirstWriteShort(0,image->file); LSBFirstWriteShort(image->columns,image->file); LSBFirstWriteShort(image->rows,image->file); (void) fputc(0x0,image->file); c=Max(bits_per_pixel,2); (void) fputc((char) c,image->file); status=LZWEncodeImage(image,Max(bits_per_pixel,2)+1); if (status == False) { Warning("Unable to write image","Memory allocation failed"); return(False); } (void) fputc(0x0,image->file); (void) fputc(';',image->file); /* terminator */ CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e G R A Y I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteGRAYImage writes an image to a file as gray scale intensity % values [0..255]. % % The format of the WriteGRAYImage routine is: % % status=WriteGRAYImage(image) % % A description of each parameter follows. % % o status: Function WriteGRAYImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteGRAYImage(image) Image *image; { register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *gray_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Convert image to gray scale PseudoColor class. */ gray_pixels=(unsigned char *) malloc(image->columns*image->rows*sizeof(unsigned char)); if (gray_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; q=gray_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=Intensity(*p); p++; } (void) fwrite((char *) gray_pixels,1,(int) (image->columns*image->rows), image->file); (void) free((char *) gray_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e H I S T O G R A M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteHISTOGRAMImage writes an image to a file in HISTOGRAM format. % A list of unique pixel values and the number of times each occurs in the % image is written to the file. % % The format of the WriteHISTOGRAMImage routine is: % % status=WriteHISTOGRAMImage(image) % % A description of each parameter follows. % % o status: Function WriteHISTOGRAMImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteHISTOGRAMImage(image) Image *image; { /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } (void) NumberColors(image,image->file); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e I R I S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteIRISImage writes an image in SGI RGB encoded image format. % % The format of the WriteIRISImage routine is: % % status=WriteIRISImage(image) % % A description of each parameter follows. % % o status: Function WriteIRISImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static int IRISEncode(pixels,count,packets) unsigned char *pixels; int count; unsigned char *packets; { short runlength; unsigned char *limit, *mark, *p, *q; p=pixels; limit=p+count*4; q=packets; while (p < limit) { mark=p; p+=8; while ((p < limit) && ((*(p-8) != *(p-4)) || (*(p-4) != *p))) p+=4; p-=8; count=((p-mark) >> 2); while (count) { runlength=count > 126 ? 126 : count; count-=runlength; *q++=0x80 | runlength; for ( ; runlength > 0; runlength--) { *q++=(*mark); mark+=4; } } mark=p; p+=4; while ((p < limit) && (*p == *mark)) p+=4; count=((p-mark) >> 2); while (count) { runlength=count > 126 ? 126 : count; count-=runlength; *q++=runlength; *q++=(*mark); } } *q++=0; return(q-packets); } static unsigned int WriteIRISImage(image) Image *image; { typedef struct _IRISHeader { unsigned short magic; unsigned char storage, bytes_per_pixel; unsigned short dimension, columns, rows, depth; unsigned long minimum_value, maximum_value; unsigned char filler[492]; } IRISHeader; IRISHeader iris_header; register int i, j, x, y, z; register RunlengthPacket *p; register unsigned char *q; unsigned char *iris_pixels, *packets; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Initialize IRIS raster file header. */ iris_header.magic=0x01DA; if (image->compression == NoCompression) iris_header.storage=0x01; else iris_header.storage=0x01; iris_header.bytes_per_pixel=1; /* one byte per pixel */ iris_header.dimension=3; iris_header.columns=image->columns; iris_header.rows=image->rows; iris_header.depth=image->matte ? 4 : 3; if (IsGrayImage(image)) { iris_header.dimension=2; iris_header.depth=1; } iris_header.minimum_value=0; iris_header.maximum_value=MaxRGB; for (i=0; i < sizeof(iris_header.filler); i++) iris_header.filler[i]=0; /* Write IRIS header. */ MSBFirstWriteShort(iris_header.magic,image->file); (void) fputc(iris_header.storage,image->file); (void) fputc(iris_header.bytes_per_pixel,image->file); MSBFirstWriteShort(iris_header.dimension,image->file); MSBFirstWriteShort(iris_header.columns,image->file); MSBFirstWriteShort(iris_header.rows,image->file); MSBFirstWriteShort(iris_header.depth,image->file); MSBFirstWriteLong(iris_header.minimum_value,image->file); MSBFirstWriteLong(iris_header.maximum_value,image->file); (void) fwrite(iris_header.filler,1,sizeof(iris_header.filler),image->file); /* Allocate IRIS pixels. */ iris_pixels=(unsigned char *) malloc(4*image->columns*image->rows*sizeof(unsigned char)); if (iris_pixels == (unsigned char *) NULL) { Warning("Memory allocation error",image->filename); return(False); } /* Convert runlength-encoded packets to uncompressed IRIS pixels. */ x=0; y=0; p=image->pixels; q=iris_pixels+(iris_header.rows-1)*(iris_header.columns*4); for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=p->red; *q++=p->green; *q++=p->blue; *q++=(unsigned char) p->index; x++; if (x == image->columns) { y++; q=iris_pixels+((iris_header.rows-1)-y)*(iris_header.columns*4); x=0; } } p++; } if (image->compression == NoCompression) { unsigned char *scanline; /* Write uncompressed IRIS pixels. */ scanline=(unsigned char *) malloc(iris_header.columns*sizeof(unsigned char)); if (scanline == (unsigned char *) NULL) { Warning("Memory allocation error",image->filename); return(False); } for (z=0; z < (int) iris_header.depth; z++) { q=iris_pixels+z; for (y=0; y < (int) iris_header.rows; y++) { for (x=0; x < (int) iris_header.columns; x++) { scanline[x]=(*q); q+=4; } (void) fwrite(scanline,sizeof(unsigned char),iris_header.columns, image->file); } } (void) free(scanline); } else { unsigned long length, number_packets, offset, *offsets, *runlength; /* Convert IRIS uncompressed pixels to runlength-encoded pixels. */ offsets=(unsigned long *) malloc(iris_header.rows*iris_header.depth*sizeof(unsigned long)); packets=(unsigned char *) malloc(4*((iris_header.columns << 1)+10)* image->rows*sizeof(unsigned char)); runlength=(unsigned long *) malloc(iris_header.rows*iris_header.depth*sizeof(unsigned long)); if ((offsets == (unsigned long *) NULL) || (packets == (unsigned char *) NULL) || (runlength == (unsigned long *) NULL)) { Warning("Memory allocation error",image->filename); return(False); } offset=512+ ((iris_header.rows*iris_header.depth) << 1)*sizeof(unsigned long); number_packets=0; q=iris_pixels; for (y=0; y < (int) iris_header.rows; y++) { for (z=0; z < (int) iris_header.depth; z++) { length= IRISEncode(q+z,(int) iris_header.columns,packets+number_packets); number_packets+=length; offsets[y+z*iris_header.rows]=offset; runlength[y+z*iris_header.rows]=length; offset+=length; } q+=(iris_header.columns*4); } /* Write out line start and length tables and runlength-encoded pixels. */ (void) fwrite(offsets,sizeof(unsigned long), iris_header.rows*iris_header.depth,image->file); (void) fwrite(runlength,sizeof(unsigned long), iris_header.rows*iris_header.depth,image->file); (void) fwrite(packets,sizeof(unsigned char),number_packets,image->file); /* Free memory. */ (void) free(runlength); (void) free(packets); (void) free(offsets); } (void) free(iris_pixels); CloseImage(image); return(True); } #ifdef HasJPEG #undef FREAD #undef FWRITE #undef const #include "jinclude.h" static Image *jpeg_image; /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e J P E G I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteJPEGImage writes a JPEG image file and returns it. It % allocates the memory necessary for the new Image structure and returns a % pointer to the new image. % % The format of the WriteJPEGImage routine is: % % status=WriteJPEGImage(image,quality) % % A description of each parameter follows: % % o status: Function WriteJPEGImage return True if the image is written. % False is returned is there is of a memory shortage or if the image % file cannot be opened for writing. % % o jpeg_image: A pointer to a Image structure. % % o quality: Specifies quality setting. Quality is 0 (worst) to 100 (best). % % */ METHODDEF void JPEGInitializeImage(jpeg_info) compress_info_ptr jpeg_info; { /* Initialize JPEG image. */ jpeg_info->image_width=jpeg_image->columns; jpeg_info->image_height=jpeg_image->rows; jpeg_info->data_precision=8; jpeg_info->input_components=3; jpeg_info->in_color_space=CS_RGB; if (IsGrayImage(jpeg_image)) { jpeg_info->input_components=1; jpeg_info->in_color_space=CS_GRAYSCALE; } jpeg_image->packet=jpeg_image->pixels; jpeg_image->runlength=jpeg_image->packet->length+1; } static void JPEGInputTermMethod(jpeg_info) compress_info_ptr jpeg_info; { } static void JPEGWriteGRAY(jpeg_info,pixel_data) compress_info_ptr jpeg_info; JSAMPARRAY pixel_data; { register int column; register JSAMPROW gray; register RunlengthPacket *p; /* Convert run-length encoded grayscale MIFF packets to JPEG pixels. */ gray=pixel_data[0]; p=jpeg_image->packet; for (column=jpeg_info->image_width; column > 0; column--) { if (jpeg_image->runlength > 0) jpeg_image->runlength--; else { p++; jpeg_image->runlength=p->length; } *gray++=(JSAMPLE) p->red; } jpeg_image->packet=p; } static void JPEGWriteRGB(jpeg_info,pixel_data) compress_info_ptr jpeg_info; JSAMPARRAY pixel_data; { register int column; register JSAMPROW blue, green, red; register RunlengthPacket *p; /* Convert run-length encoded MIFF packets to JPEG pixels. */ red=pixel_data[0]; green=pixel_data[1]; blue=pixel_data[2]; p=jpeg_image->packet; for (column=jpeg_info->image_width; column > 0; column--) { if (jpeg_image->runlength > 0) jpeg_image->runlength--; else { p++; jpeg_image->runlength=p->length; } *red++=(JSAMPLE) p->red; *green++=(JSAMPLE) p->green; *blue++=(JSAMPLE) p->blue; } jpeg_image->packet=p; } static void JPEGSelectMethod(jpeg_info) compress_info_ptr jpeg_info; { jpeg_info->methods->get_input_row=JPEGWriteRGB; if (jpeg_info->in_color_space == CS_GRAYSCALE) { j_monochrome_default(jpeg_info); jpeg_info->methods->get_input_row=JPEGWriteGRAY; } } static unsigned int WriteJPEGImage(image,quality) Image *image; unsigned int quality; { struct Compress_info_struct jpeg_info; struct Compress_methods_struct jpeg_methods; struct External_methods_struct external_methods; /* Open image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Initialize the JPEG system-dependent methods. */ jpeg_image=image; jpeg_info.methods=(&jpeg_methods); jpeg_info.emethods=(&external_methods); jselerror(&external_methods); jselmemmgr(&external_methods); jpeg_info.methods->input_init=JPEGInitializeImage; jpeg_info.methods->input_term=JPEGInputTermMethod; jpeg_methods.c_ui_method_selection=JPEGSelectMethod; j_c_defaults(&jpeg_info,quality,False); jpeg_info.optimize_coding=True; jpeg_info.restart_in_rows=1; if ((image->class == PseudoClass) && (image->colors <= 256)) jpeg_info.smoothing_factor=25; /* Write a JFIF JPEG file. */ #ifdef HUFF_LOOKAHEAD jpeg_info.comment_text=jpeg_image->comments; #endif jpeg_info.input_file=(FILE *) NULL; jpeg_info.output_file=image->file; jselwjfif(&jpeg_info); jpeg_compress(&jpeg_info); CloseImage(image); return(True); } #else static unsigned int WriteJPEGImage(image,quality) Image *image; unsigned int quality; { unsigned int status; Warning("JPEG library is not available",image->filename); status=WriteMIFFImage(image); return(status); } #endif /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e M A P I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteMAPImage writes an image to a file as red, green, and blue % colormap bytes followed by the colormap indexes. % % The format of the WriteMAPImage routine is: % % status=WriteMAPImage(image) % % A description of each parameter follows. % % o status: Function WriteMAPImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteMAPImage(image) Image *image; { register int i; register unsigned char *q; unsigned char *colormap; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Allocate colormap. */ if (image->class == DirectClass) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,MaxColormapSize,8,False,RGBColorspace,True); SyncImage(image); } colormap=(unsigned char *) malloc(3*image->colors*sizeof(unsigned char)); if (colormap == (unsigned char *) NULL) { Warning("Unable to write image","Memory allocation failed"); return(False); } /* Write colormap to file. */ q=colormap; for (i=0; i < image->colors; i++) { *q++=image->colormap[i].red; *q++=image->colormap[i].green; *q++=image->colormap[i].blue; } (void) fwrite((char *) colormap,3,(int) image->colors,image->file); (void) free((char *) colormap); /* Write image pixels to file. */ image->compression=NoCompression; (void) RunlengthEncodeImage(image); (void) fwrite((char *) image->packed_pixels,(int) image->packet_size, (int) image->packets,image->file); (void) free((char *) image->packed_pixels); image->packed_pixels=(unsigned char *) NULL; CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e M A T T E I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteMATTEImage writes an mage of matte bytes to a file. It % consists of data from the matte component of the image [0..255]. % % The format of the WriteMATTEImage routine is: % % status=WriteMATTEImage(image) % % A description of each parameter follows. % % o status: Function WriteMATTEImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteMATTEImage(image) Image *image; { register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *matte_pixels; if (!image->matte) { Warning("Image does not have an matte channel",image->filename); return(False); } /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Allocate matte pixels. */ matte_pixels=(unsigned char *) malloc(image->columns*image->rows*sizeof(unsigned char)); if (matte_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; q=matte_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=(unsigned char) p->index; p++; } (void) fwrite((char *) matte_pixels,1,(int) (image->columns*image->rows), image->file); (void) free((char *) matte_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e M I F F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteMIFFImage writes an image to a file. % % The format of the WriteMIFFImage routine is: % % status=WriteMIFFImage(image) % % A description of each parameter follows: % % o status: Function WriteMIFFImage return True if the image is written. % False is returned if there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteMIFFImage(image) Image *image; { register int i; unsigned long packets; if ((image->class != DirectClass) && (image->class != PseudoClass)) { Warning("Unable to write image","unknown image class"); return(False); } if ((image->compression != RunlengthEncodedCompression) && (image->compression != QEncodedCompression) && (image->compression != NoCompression)) { Warning("Unable to write image","unknown image compression"); return(False); } /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Pack image pixels. */ if ((image->class == PseudoClass) && (image->compression == QEncodedCompression)) image->class=DirectClass; (void) RunlengthEncodeImage(image); packets=image->packets; if (image->compression == QEncodedCompression) { unsigned char *compressed_pixels; /* Compress image pixels with Q encoding. */ compressed_pixels=(unsigned char *) malloc((unsigned int) packets*image->packet_size*sizeof(unsigned char)); if (compressed_pixels == (unsigned char *) NULL) { Warning("Unable to write image","Memory allocation failed"); return(False); } packets=QEncodeImage(image->packed_pixels,compressed_pixels, image->columns*(int) image->packet_size,image->rows); (void) free((char *) image->packed_pixels); image->packed_pixels=compressed_pixels; image->packet_size=1; } if (image->class == PseudoClass) ColormapSignature(image); /* Write header to file. */ if (image->comments != (char *) NULL) (void) fprintf(image->file,"{\n%s\n}\n",image->comments); (void) fprintf(image->file,"id=ImageMagick\n"); if (image->class == PseudoClass) (void) fprintf(image->file,"class=PseudoClass colors=%u signature=%s\n", image->colors,image->signature); else if (image->matte) (void) fprintf(image->file,"class=DirectClass matte=True\n"); else (void) fprintf(image->file,"class=DirectClass\n"); if (image->compression == RunlengthEncodedCompression) (void) fprintf(image->file,"compression=RunlengthEncoded packets=%lu\n", packets); else if (image->compression == QEncodedCompression) (void) fprintf(image->file,"compression=QEncoded packets=%lu\n",packets); (void) fprintf(image->file,"columns=%u rows=%u\n",image->columns, image->rows); if (image->scene != 0) (void) fprintf(image->file,"scene=%u\n",image->scene); if (image->montage != (char *) NULL) (void) fprintf(image->file,"montage=%s\n",image->montage); (void) fprintf(image->file,"\f\n:\n"); if (image->montage != (char *) NULL) { /* Write montage tile directory. */ if (image->directory != (char *) NULL) (void) fprintf(image->file,"%s",image->directory); (void) fputc('\0',image->file); } if (image->class == PseudoClass) { register unsigned char *q; unsigned char *colormap; /* Allocate colormap. */ colormap=(unsigned char *) malloc(3*image->colors*sizeof(unsigned char)); if (colormap == (unsigned char *) NULL) { Warning("Unable to write image","Memory allocation failed"); return(False); } q=colormap; for (i=0; i < image->colors; i++) { *q++=image->colormap[i].red; *q++=image->colormap[i].green; *q++=image->colormap[i].blue; } /* Write colormap to file. */ (void) fwrite((char *) colormap,3,(int) image->colors,image->file); (void) free((char *) colormap); } /* Write image pixels to file. */ (void) fwrite((char *) image->packed_pixels,(int) image->packet_size, (int) packets,image->file); (void) free((char *) image->packed_pixels); image->packed_pixels=(unsigned char *) NULL; CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e M T V I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteMTVImage writes an image to a file in red, green, and blue % MTV rasterfile format. % % The format of the WriteMTVImage routine is: % % status=WriteMTVImage(image) % % A description of each parameter follows. % % o status: Function WriteMTVImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteMTVImage(image) Image *image; { register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *mtv_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Convert MIFF to MTV raster pixels. */ mtv_pixels=(unsigned char *) malloc(3*image->columns*image->rows*sizeof(unsigned char)); if (mtv_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; q=mtv_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=p->red; *q++=p->green; *q++=p->blue; } p++; } (void) fprintf(image->file,"%u %u\n",image->columns,image->rows); (void) fwrite((char *) mtv_pixels,3,(int) (image->columns*image->rows), image->file); (void) free((char *) mtv_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e P C D I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WritePCDImage writes an image in the Photo CD encoded image % format. % % The format of the WritePCDImage routine is: % % status=WritePCDImage(image) % % A description of each parameter follows. % % o status: Function WritePCDImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WritePCDImage(image) Image *image; { unsigned int status; Warning("Cannot write PCD images",image->filename); status=WriteMIFFImage(image); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e P C X I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WritePCXImage writes an image in the ZSoft IBM PC Paintbrush file % format. % % The format of the WritePCXImage routine is: % % status=WritePCXImage(image) % % A description of each parameter follows. % % o status: Function WritePCXImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WritePCXImage(image) Image *image; { typedef struct _PCXHeader { unsigned char identifier, version, encoding, bits_per_pixel; short int left, top, right, bottom, horizontal_resolution, vertical_resolution; unsigned char reserved, planes; short int bytes_per_line, palette_info; unsigned char colormap_signature; } PCXHeader; PCXHeader pcx_header; register int i, j, x, y; register RunlengthPacket *p; register unsigned char *q; unsigned char count, packet, *pcx_colormap, *pcx_pixels, previous; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if ((image->class == DirectClass) || (image->colors > 256)) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,True,RGBColorspace,True); SyncImage(image); } /* Initialize PCX raster file header. */ pcx_header.identifier=0x0a; pcx_header.version=5; pcx_header.encoding=1; pcx_header.bits_per_pixel=8; if (IsGrayImage(image) && (image->colors == 2)) pcx_header.bits_per_pixel=1; pcx_header.left=0; pcx_header.top=0; pcx_header.right=image->columns-1; pcx_header.bottom=image->rows-1; pcx_header.horizontal_resolution=image->columns; pcx_header.vertical_resolution=image->rows; pcx_header.reserved=0; pcx_header.planes=1; pcx_header.bytes_per_line=(image->columns*pcx_header.bits_per_pixel+7)/8; pcx_header.palette_info=1; pcx_header.colormap_signature=0x0c; /* Write PCX header. */ (void) fwrite(&pcx_header.identifier,1,1,image->file); (void) fwrite(&pcx_header.version,1,1,image->file); (void) fwrite(&pcx_header.encoding,1,1,image->file); (void) fwrite(&pcx_header.bits_per_pixel,1,1,image->file); LSBFirstWriteShort((unsigned int) pcx_header.left,image->file); LSBFirstWriteShort((unsigned int) pcx_header.top,image->file); LSBFirstWriteShort((unsigned int) pcx_header.right,image->file); LSBFirstWriteShort((unsigned int) pcx_header.bottom,image->file); LSBFirstWriteShort((unsigned int) pcx_header.horizontal_resolution, image->file); LSBFirstWriteShort((unsigned int) pcx_header.vertical_resolution,image->file); /* Dump colormap to file. */ pcx_colormap=(unsigned char *) malloc(3*256*sizeof(unsigned char)); if (pcx_colormap == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } q=pcx_colormap; for (i=0; i < image->colors; i++) { *q++=image->colormap[i].red; *q++=image->colormap[i].green; *q++=image->colormap[i].blue; } (void) fwrite((char *) pcx_colormap,3,16,image->file); (void) fwrite(&pcx_header.reserved,1,1,image->file); (void) fwrite(&pcx_header.planes,1,1,image->file); LSBFirstWriteShort((unsigned int) pcx_header.bytes_per_line,image->file); LSBFirstWriteShort((unsigned int) pcx_header.palette_info,image->file); for (i=0; i < 58; i++) (void) fwrite("\0",1,1,image->file); /* Convert MIFF to PCX raster pixels. */ pcx_pixels=(unsigned char *) malloc(pcx_header.bytes_per_line*image->rows*sizeof(unsigned char)); if (pcx_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } x=0; y=0; p=image->pixels; q=pcx_pixels; if (pcx_header.bits_per_pixel > 1) for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=p->index; x++; if (x == image->columns) { x=0; y++; q=pcx_pixels+y*pcx_header.bytes_per_line; } } p++; } else { register unsigned char bit, byte; /* Convert PseudoClass image to a PCX monochrome image. */ bit=0; byte=0; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { byte<<=1; if (p->index == 1) byte|=0x01; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == image->columns) { /* Advance to the next scanline. */ if (bit != 0) *q++=byte << (8-bit); bit=0; byte=0; x=0; y++; q=pcx_pixels+y*pcx_header.bytes_per_line; } } p++; } } /* Runlength-encoded PCX pixels. */ for (y=0; y < image->rows; y++) { q=pcx_pixels+y*pcx_header.bytes_per_line; previous=(*q++); count=1; for (x=0; x < (pcx_header.bytes_per_line-1); x++) { packet=(*q++); if ((packet == previous) && (count < 63)) { count++; continue; } if ((count > 1) || ((previous & 0xc0) == 0xc0)) { count|=0xc0; (void) fwrite(&count,1,1,image->file); } (void) fwrite(&previous,1,1,image->file); previous=packet; count=1; } if ((count > 1) || ((previous & 0xc0) == 0xc0)) { count|=0xc0; (void) fwrite(&count,1,1,image->file); } (void) fwrite(&previous,1,1,image->file); } if (image->colors > 16) { (void) fwrite(&pcx_header.colormap_signature,1,1,image->file); (void) fwrite((char *) pcx_colormap,3,256,image->file); } (void) free((char *) pcx_pixels); (void) free((char *) pcx_colormap); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e P I C T I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WritePICTImage writes an image to a file in the Apple Macintosh % QuickDraw/PICT image format. % % The format of the WritePICTImage routine is: % % status=WritePICTImage(image) % % A description of each parameter follows. % % o status: Function WritePICTImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WritePICTImage(image) Image *image; { #define MaxCount 128 #define PictClipRegionOp 0x01 #define PictEndOfPictureOp 0xff #define PictHeaderOp 0x0C00 #define PictHeaderSize 512 #define PictPixmapOp 0x9A #define PictPackbitsOp 0x98 #define PictVersion 0x11 typedef struct _PICTRectangle { unsigned short top, left, bottom, right; } PICTRectangle; typedef struct _PICTPixmap { unsigned short base_address, row_bytes; PICTRectangle bounds; unsigned short version, pack_type; unsigned long pack_size, horizontal_resolution, vertical_resolution; unsigned short pixel_type, pixel_size, component_count, component_size; unsigned short plane_bytes, table, reserved; } PICTPixmap; int count; PICTPixmap pixmap; PICTRectangle clip_rectangle, destination_rectangle, frame_rectangle, size_rectangle, source_rectangle; register int i, j, x; register RunlengthPacket *p; unsigned char *buffer, *packed_scanline, *scanline; unsigned int bytes_per_line; unsigned short transfer_mode; unsigned long horizontal_resolution, vertical_resolution; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Allocate memory. */ bytes_per_line=image->columns; if (image->class == DirectClass) bytes_per_line*=3; buffer=(unsigned char *) malloc(PictHeaderSize*sizeof(unsigned char)); packed_scanline=(unsigned char *) malloc((bytes_per_line+bytes_per_line/MaxCount+1)*sizeof(unsigned char)); scanline=(unsigned char *) malloc(bytes_per_line*sizeof(unsigned char)); if ((buffer == (unsigned char *) NULL) || (packed_scanline == (unsigned char *) NULL) || (scanline == (unsigned char *) NULL)) { Warning("Unable to allocate memory",(char *) NULL); return(False); } /* Initialize image info. */ size_rectangle.top=0; size_rectangle.left=0; size_rectangle.right=image->rows; size_rectangle.bottom=image->columns; frame_rectangle=size_rectangle; clip_rectangle=size_rectangle; source_rectangle=size_rectangle; destination_rectangle=size_rectangle; horizontal_resolution=0x00480000; vertical_resolution=0x00480000; pixmap.base_address=0xff; pixmap.row_bytes= ((image->class == DirectClass ? 4 : 1)*image->columns) | 0x8000; pixmap.version=0; pixmap.bounds.top=0; pixmap.bounds.left=0; pixmap.bounds.right=image->rows; pixmap.bounds.bottom=image->columns; pixmap.pack_type=(image->class == DirectClass ? 0x4 : 0x0); pixmap.pack_size=0; pixmap.horizontal_resolution=horizontal_resolution; pixmap.vertical_resolution=vertical_resolution; pixmap.pixel_type=(image->class == DirectClass ? 16 : 0); pixmap.pixel_size=(image->class == DirectClass ? 32 : 8); pixmap.component_count=(image->class == DirectClass ? 3 : 1); pixmap.component_size=8; pixmap.plane_bytes=0; pixmap.table=0; pixmap.reserved=0; transfer_mode=(image->class == DirectClass ? 0x40 : 0); /* Write header, header size, size bounding box, version, and reserved. */ for (i=0; i < PictHeaderSize; i++) buffer[i]=0; (void) fwrite((char *) buffer,1,PictHeaderSize,image->file); MSBFirstWriteShort(0,image->file); MSBFirstWriteShort(size_rectangle.top,image->file); MSBFirstWriteShort(size_rectangle.left,image->file); MSBFirstWriteShort(size_rectangle.right,image->file); MSBFirstWriteShort(size_rectangle.bottom,image->file); MSBFirstWriteShort(PictVersion,image->file); MSBFirstWriteShort(0x02FF,image->file); MSBFirstWriteShort(PictHeaderOp,image->file); /* Write full size of the file, resolution, frame bounding box, and reserved. */ MSBFirstWriteLong(0xFFFE0000L,image->file); MSBFirstWriteLong(horizontal_resolution,image->file); MSBFirstWriteLong(vertical_resolution,image->file); MSBFirstWriteShort(frame_rectangle.top,image->file); MSBFirstWriteShort(frame_rectangle.left,image->file); MSBFirstWriteShort(frame_rectangle.right,image->file); MSBFirstWriteShort(frame_rectangle.bottom,image->file); MSBFirstWriteLong(0L,image->file); /* Write clip region opcode and clip bounding box. */ MSBFirstWriteShort(PictClipRegionOp,image->file); MSBFirstWriteShort(0xA,image->file); MSBFirstWriteShort(clip_rectangle.top,image->file); MSBFirstWriteShort(clip_rectangle.left,image->file); MSBFirstWriteShort(clip_rectangle.right,image->file); MSBFirstWriteShort(clip_rectangle.bottom,image->file); /* Write picture opcode, row bytes, and picture bounding box, and version. */ if (image->class == PseudoClass) MSBFirstWriteShort(PictPackbitsOp,image->file); else { MSBFirstWriteShort(PictPixmapOp,image->file); MSBFirstWriteLong((unsigned long) pixmap.base_address,image->file); } if (pixmap.row_bytes & 0x01) pixmap.row_bytes++; MSBFirstWriteShort(pixmap.row_bytes | 0x8000,image->file); MSBFirstWriteShort(pixmap.bounds.top,image->file); MSBFirstWriteShort(pixmap.bounds.left,image->file); MSBFirstWriteShort(pixmap.bounds.right,image->file); MSBFirstWriteShort(pixmap.bounds.bottom,image->file); MSBFirstWriteShort(pixmap.version,image->file); /* Write pack type, pack size, resolution, pixel type, and pixel size. */ MSBFirstWriteShort(pixmap.pack_type,image->file); MSBFirstWriteLong(pixmap.pack_size,image->file); MSBFirstWriteLong(pixmap.horizontal_resolution,image->file); MSBFirstWriteLong(pixmap.vertical_resolution,image->file); MSBFirstWriteShort(pixmap.pixel_type,image->file); MSBFirstWriteShort(pixmap.pixel_size,image->file); /* Write component count, size, plane bytes, table size, and reserved. */ MSBFirstWriteShort(pixmap.component_count,image->file); MSBFirstWriteShort(pixmap.component_size,image->file); MSBFirstWriteLong((unsigned long) pixmap.plane_bytes,image->file); MSBFirstWriteLong((unsigned long) pixmap.table,image->file); MSBFirstWriteLong((unsigned long) pixmap.reserved,image->file); if (image->class == PseudoClass) { unsigned short red, green, blue; /* Write image colormap. */ MSBFirstWriteLong(0L,image->file); /* color seed */ MSBFirstWriteShort(0L,image->file); /* color flags */ MSBFirstWriteShort((unsigned short) (image->colors-1),image->file); for (i=0; i < image->colors; i++) { red=(image->colormap[i].red*65535)/(unsigned int) MaxRGB; green=(image->colormap[i].green*65535)/(unsigned int) MaxRGB; blue=(image->colormap[i].blue*65535)/(unsigned int) MaxRGB; MSBFirstWriteShort((unsigned int) i,image->file); MSBFirstWriteShort(red,image->file); MSBFirstWriteShort(green,image->file); MSBFirstWriteShort(blue,image->file); } } /* Write source and destination rectangle. */ MSBFirstWriteShort(source_rectangle.top,image->file); MSBFirstWriteShort(source_rectangle.left,image->file); MSBFirstWriteShort(source_rectangle.right,image->file); MSBFirstWriteShort(source_rectangle.bottom,image->file); MSBFirstWriteShort(destination_rectangle.top,image->file); MSBFirstWriteShort(destination_rectangle.left,image->file); MSBFirstWriteShort(destination_rectangle.right,image->file); MSBFirstWriteShort(destination_rectangle.bottom,image->file); MSBFirstWriteShort(transfer_mode,image->file); /* Write picture data. */ count=0; x=0; p=image->pixels; if (image->class == PseudoClass) { register unsigned char *index; index=scanline; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *index++=(unsigned char) p->index; x++; if (x == image->columns) { count+=PackbitsEncodeImage(image,scanline,packed_scanline); index=scanline; x=0; } } p++; } } else { register unsigned char *blue, *red, *green; red=scanline; green=scanline+image->columns; blue=scanline+(image->columns << 1); for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *red++=p->red; *green++=p->green; *blue++=p->blue; x++; if (x == image->columns) { red=scanline; green=scanline+image->columns; blue=scanline+(image->columns << 1); count+=PackbitsEncodeImage(image,red,packed_scanline); x=0; } } p++; } } if (count & 0x1) (void) fputc('\0',image->file); MSBFirstWriteShort(PictEndOfPictureOp,image->file); (void) free((char *) scanline); (void) free((char *) packed_scanline); (void) free((char *) buffer); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e P N M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure WritePNMImage writes an image to a file in the PNM rasterfile % format. % % The format of the WritePNMImage routine is: % % status=WritePNMImage(image) % % A description of each parameter follows. % % o status: Function WritePNMImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WritePNMImage(image) Image *image; { register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char format, *pnm_pixels; unsigned int packets; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Promote/Demote image based on image type. */ if (strcmp(image->magick,"PPM") == 0) image->class=DirectClass; else if (strcmp(image->magick,"PGM") == 0) { QuantizeImage(image,256,8,False,GRAYColorspace,True); SyncImage(image); } else if (strcmp(image->magick,"PBM") == 0) { QuantizeImage(image,2,8,False,GRAYColorspace,True); SyncImage(image); } else if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Write PNM file header. */ packets=image->columns*image->rows; if ((image->class == DirectClass) || (image->colors > 256)) { /* Full color PNM image. */ format='6'; packets*=3; } else { /* Colormapped PNM image. */ format='6'; if (!IsGrayImage(image)) packets*=3; else { /* Grayscale PNM image. */ format='5'; if (image->colors == 2) format='4'; } } (void) fprintf(image->file,"P%c\n",format); if (image->comments != (char *) NULL) { register char *p; /* Write comments to file. */ (void) fprintf(image->file,"# "); for (p=image->comments; *p != '\0'; p++) { (void) fputc(*p,image->file); if (*p == '\n') (void) fprintf(image->file,"# "); } (void) fputc('\n',image->file); } (void) fprintf(image->file,"%u %u\n",image->columns,image->rows); /* Convert MIFF to PNM raster pixels. */ pnm_pixels=(unsigned char *) malloc(packets*sizeof(unsigned char)); if (pnm_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; q=pnm_pixels; switch (format) { case '4': { register unsigned char bit, byte; unsigned int x; /* Convert image to a PBM image. */ bit=0; byte=0; x=0; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { byte<<=1; if (p->index == 0) byte|=0x01; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == image->columns) { /* Advance to the next scanline. */ if (bit != 0) *q++=byte << (8-bit); bit=0; byte=0; x=0; } } p++; } packets=q-pnm_pixels; break; } case '5': { /* Convert image to a PGM image. */ (void) fprintf(image->file,"%d\n",MaxRGB); for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=image->colormap[p->index].red; p++; } break; } case '6': { /* Convert image to a PNM image. */ (void) fprintf(image->file,"%d\n",MaxRGB); for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=p->red; *q++=p->green; *q++=p->blue; } p++; } break; } } (void) fwrite((char *) pnm_pixels,1,(int) packets,image->file); (void) free((char *) pnm_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e R L E I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteRLEImage writes an image in the Utah Run length encoded image % format. % % The format of the WriteRLEImage routine is: % % status=WriteRLEImage(image) % % A description of each parameter follows. % % o status: Function WriteRLEImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteRLEImage(image) Image *image; { unsigned int status; Warning("Cannot write RLE images",image->filename); status=WriteMIFFImage(image); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e P S I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WritePSImage translates an image to encapsulated Postscript % Level I for printing. If the supplied geometry is null, the image is % centered on the Postscript page. Otherwise, the image is positioned as % specified by the geometry. % % The format of the WritePSImage routine is: % % status=WritePSImage(image,geometry,density) % % A description of each parameter follows: % % o status: Function WritePSImage return True if the image is printed. % False is returned if the image file cannot be opened for printing. % % o image: The address of a structure of type Image; returned from % ReadImage. % % o geometry: A pointer to a geometry string. Specifies the width and % height of the Postscript image. % % o density: A pointer to a density string. Specifies the dots-per-inch % of the Postscript image. % % */ static unsigned int WritePSImage(image,geometry,density) Image *image; char *geometry, *density; { static char *Postscript[]= { "%%BeginProlog", "%", "% Display a color image. The image is displayed in color on", "% Postscript viewers or printers that support color, otherwise", "% it is displayed as grayscale.", "%", "/buffer 512 string def", "/byte 1 string def", "/color_packet 3 string def", "/pixels 768 string def", "", "/DirectClassPacket", "{", " %", " % Get a DirectClass packet.", " %", " % Parameters: ", " % red.", " % green.", " % blue.", " % length: number of pixels minus one of this color (optional).", " %", " currentfile color_packet readhexstring pop pop", " compression 0 gt", " {", " /number_pixels 3 def", " }", " {", " currentfile byte readhexstring pop 0 get", " /number_pixels exch 1 add 3 mul def", " } ifelse", " 0 3 number_pixels 1 sub", " {", " pixels exch color_packet putinterval", " } for", " pixels 0 number_pixels getinterval", "} bind def", "", "/DirectClassImage", "{", " %", " % Display a DirectClass image.", " %", " systemdict /colorimage known", " {", " columns rows 8", " [", " columns 0 0", " rows neg 0 rows", " ]", " { DirectClassPacket } false 3 colorimage", " }", " {", " %", " % No colorimage operator; convert to grayscale.", " %", " columns rows 8", " [", " columns 0 0", " rows neg 0 rows", " ]", " { GrayDirectClassPacket } image", " } ifelse", "} bind def", "", "/GrayDirectClassPacket", "{", " %", " % Get a DirectClass packet; convert to grayscale.", " %", " % Parameters: ", " % red", " % green", " % blue", " % length: number of pixels minus one of this color (optional).", " %", " currentfile color_packet readhexstring pop pop", " color_packet 0 get 0.299 mul", " color_packet 1 get 0.587 mul add", " color_packet 2 get 0.114 mul add", " cvi", " /gray_packet exch def", " compression 0 gt", " {", " /number_pixels 1 def", " }", " {", " currentfile byte readhexstring pop 0 get", " /number_pixels exch 1 add def", " } ifelse", " 0 1 number_pixels 1 sub", " {", " pixels exch gray_packet put", " } for", " pixels 0 number_pixels getinterval", "} bind def", "", "/GrayPseudoClassPacket", "{", " %", " % Get a PseudoClass packet; convert to grayscale.", " %", " % Parameters: ", " % index: index into the colormap.", " % length: number of pixels minus one of this color (optional).", " %", " currentfile byte readhexstring pop 0 get", " /offset exch 3 mul def", " /color_packet colormap offset 3 getinterval def", " color_packet 0 get 0.299 mul", " color_packet 1 get 0.587 mul add", " color_packet 2 get 0.114 mul add", " cvi", " /gray_packet exch def", " compression 0 gt", " {", " /number_pixels 1 def", " }", " {", " currentfile byte readhexstring pop 0 get", " /number_pixels exch 1 add def", " } ifelse", " 0 1 number_pixels 1 sub", " {", " pixels exch gray_packet put", " } for", " pixels 0 number_pixels getinterval", "} bind def", "", "/PseudoClassPacket", "{", " %", " % Get a PseudoClass packet.", " %", " % Parameters: ", " % index: index into the colormap.", " % length: number of pixels minus one of this color (optional).", " %", " currentfile byte readhexstring pop 0 get", " /offset exch 3 mul def", " /color_packet colormap offset 3 getinterval def", " compression 0 gt", " {", " /number_pixels 3 def", " }", " {", " currentfile byte readhexstring pop 0 get", " /number_pixels exch 1 add 3 mul def", " } ifelse", " 0 3 number_pixels 1 sub", " {", " pixels exch color_packet putinterval", " } for", " pixels 0 number_pixels getinterval", "} bind def", "", "/PseudoClassImage", "{", " %", " % Display a PseudoClass image.", " %", " % Parameters: ", " % colors: number of colors in the colormap.", " % colormap: red, green, blue color packets.", " %", " currentfile buffer readline pop", " token pop /colors exch def pop", " /colors colors 3 mul def", " /colormap colors string def", " currentfile colormap readhexstring pop pop", " systemdict /colorimage known", " {", " columns rows 8", " [", " columns 0 0", " rows neg 0 rows", " ]", " { PseudoClassPacket } false 3 colorimage", " }", " {", " %", " % No colorimage operator; convert to grayscale.", " %", " columns rows 8", " [", " columns 0 0", " rows neg 0 rows", " ]", " { GrayPseudoClassPacket } image", " } ifelse", "} bind def", "", "/DisplayImage", "{", " %", " % Display a DirectClass or PseudoClass image.", " %", " % Parameters: ", " % x & y translation.", " % x & y scale.", " % image label.", " % image columns & rows.", " % class: 0-DirectClass or 1-PseudoClass.", " % compression: 0-RunlengthEncodedCompression or 1-NoCompression.", " % hex color packets.", " %", " gsave", " currentfile buffer readline pop", " token pop /x exch def", " token pop /y exch def pop", " x y translate", " currentfile buffer readline pop", " token pop /x exch def", " token pop /y exch def pop", " /NewCenturySchlbk-Roman findfont 24 scalefont setfont", " currentfile buffer readline pop", " 0 y 12 add moveto buffer show", " x y scale", " currentfile buffer readline pop", " token pop /columns exch def", " token pop /rows exch def pop", " currentfile buffer readline pop", " token pop /class exch def pop", " currentfile buffer readline pop", " token pop /compression exch def pop", " class 0 gt { PseudoClassImage } { DirectClassImage } ifelse", " grestore", " showpage", "} bind def", "%%EndProlog", "%%Page: 1 1", NULL }; char *label, **q; int sans_offset, x, y; register RunlengthPacket *p; register int i, j; time_t timer; unsigned int dx_resolution, dy_resolution, height, text_size, x_resolution, y_resolution, width; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Scale image to size of Postscript page. */ text_size=image->label == (char *) NULL ? 0 : 36; x=0; y=0; width=image->columns; height=image->rows; if (strcmp(image->magick,"PS") == 0) { int flags; unsigned int page_height, page_width; unsigned long scale_factor; /* Center image on Postscript page. */ (void) XParseGeometry(PSPageGeometry,&x,&y,&page_width,&page_height); flags=XParseGeometry(geometry,&x,&y,&page_width,&page_height); scale_factor=UpShift(page_width-(x << 1))/image->columns; if (scale_factor > (UpShift(page_height-(y << 1)-text_size)/image->rows)) scale_factor=UpShift(page_height-(y << 1)-text_size)/image->rows; width=DownShift(image->columns*scale_factor); height=DownShift(image->rows*scale_factor); if (((flags & XValue) == 0) && ((flags & YValue) == 0)) { int delta_x, delta_y; delta_x=page_width-(width+(x << 1)); delta_y=page_height-(height+(y << 1))-text_size; if (delta_x >= 0) x=(delta_x >> 1)+x; if (delta_y >= 0) y=(delta_y >> 1)+y; } } /* Scale relative to dots-per-inch. */ (void) XParseGeometry(PSDensityGeometry,&sans_offset,&sans_offset, &dx_resolution,&dy_resolution); x_resolution=dx_resolution; y_resolution=dy_resolution; (void) XParseGeometry(density,&sans_offset,&sans_offset,&x_resolution, &y_resolution); width=(width*dx_resolution)/x_resolution; height=(height*dy_resolution)/y_resolution; /* Output Postscript header. */ if (strcmp(image->magick,"PS") == 0) (void) fprintf(image->file,"%%!PS-Adobe-3.0\n"); else (void) fprintf(image->file,"%%!PS-Adobe-3.0 EPSF-3.0\n"); (void) fprintf(image->file,"%%%%Title: %s\n",image->filename); (void) fprintf(image->file,"%%%%Creator: ImageMagick\n"); timer=time((time_t *) NULL); (void) localtime(&timer); (void) fprintf(image->file,"%%%%CreationDate: %s",ctime(&timer)); (void) fprintf(image->file,"%%%%BoundingBox: %d %d %d %d\n",x,y,x+(int) width, y+(int) height+text_size); if (strcmp(image->magick,"PS") == 0) { (void) fprintf(image->file,"%%%%Orientation: Portrait\n"); (void) fprintf(image->file,"%%%%PageOrder: Ascend\n"); } (void) fprintf(image->file,"%%%%Pages: %d\n",strcmp(image->magick,"PS") == 0); (void) fprintf(image->file,"%%%%EndComments\n"); if (strcmp(image->magick,"EPSI") == 0) { Image *preview_image; register unsigned char bit, byte, polarity; unsigned int count; /* Initialize bordered image attributes. */ image->orphan=True; preview_image=CopyImage(image,image->columns,image->rows,True); image->orphan=False; if (preview_image == (Image *) NULL) { Warning("Unable to include preview image","Memory allocation failed"); return(False); } /* Convert MIFF to bitmap pixels. */ QuantizeImage(preview_image,2,8,False,GRAYColorspace,True); polarity=0; if (image->colors == 2) polarity=Intensity(image->colormap[0]) > Intensity(image->colormap[1]); bit=0; byte=0; count=0; x=0; p=preview_image->pixels; (void) fprintf(image->file,"%%%%BeginPreview: %u %u %u %u\n%% ", preview_image->columns,preview_image->rows,(unsigned int) 1, (((preview_image->columns+7) >> 3)*preview_image->rows+35)/36); for (i=0; i < preview_image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { byte<<=1; if (p->index == polarity) byte|=0x01; bit++; if (bit == 8) { /* Write a bitmap byte to the image file. */ (void) fprintf(image->file,"%02x",byte & 0xff); count++; if (count == 36) { (void) fprintf(image->file,"\n%% "); count=0; }; bit=0; byte=0; } x++; if (x == preview_image->columns) { if (bit != 0) { /* Write a bitmap byte to the image file. */ byte<<=(8-bit); (void) fprintf(image->file,"%02x",byte & 0xff); count++; if (count == 36) { (void) fprintf(image->file,"\n%% "); count=0; }; bit=0; byte=0; }; x=0; } } p++; } (void) fprintf(image->file,"\n%%%%EndPreview\n"); DestroyImage(preview_image); } /* Output Postscript commands. */ for (q=Postscript; *q; q++) (void) fprintf(image->file,"%s\n",*q); if (strcmp(image->magick,"PS") != 0) (void) fprintf(image->file,"userdict begin\n"); (void) fprintf(image->file,"%%%%BeginData:\n"); (void) fprintf(image->file,"DisplayImage\n"); /* Output image data. */ if (image->compression == RunlengthEncodedCompression) CompressImage(image); label=image->label; if (label == (char *) NULL) label=" "; p=image->pixels; switch (image->class) { case DirectClass: { (void) fprintf(image->file,"%d %d\n%u %u\n%s \n%u %u\n%d\n%d\n", x,y,width,height,label,image->columns,image->rows, image->class == PseudoClass,image->compression == NoCompression); switch (image->compression) { case RunlengthEncodedCompression: default: { /* Dump runlength-encoded DirectColor packets. */ x=0; for (i=0; i < image->packets; i++) { x++; (void) fprintf(image->file,"%02x%02x%02x%02x",p->red,p->green, p->blue,p->length); if (x == 9) { x=0; (void) fprintf(image->file,"\n"); } p++; } break; } case NoCompression: { /* Dump uncompressed DirectColor packets. */ x=0; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { x++; (void) fprintf(image->file,"%02x%02x%02x",p->red,p->green, p->blue); if (x == 12) { x=0; (void) fprintf(image->file,"\n"); } } p++; } break; } } break; } case PseudoClass: { (void) fprintf(image->file,"%d %d\n%u %u\n%s \n%u %u\n%d\n%d\n", x,y,width,height,label,image->columns,image->rows, image->class == PseudoClass,image->compression == NoCompression); /* Dump number of colors and colormap. */ (void) fprintf(image->file,"%u\n",image->colors); for (i=0; i < image->colors; i++) (void) fprintf(image->file,"%02x%02x%02x\n",image->colormap[i].red, image->colormap[i].green,image->colormap[i].blue); switch (image->compression) { case RunlengthEncodedCompression: default: { /* Dump runlength-encoded PseudoColor packets. */ x=0; for (i=0; i < image->packets; i++) { x++; (void) fprintf(image->file,"%02x%02x",p->index,p->length); if (x == 18) { x=0; (void) fprintf(image->file,"\n"); } p++; } break; } case NoCompression: { /* Dump uncompressed PseudoColor packets. */ x=0; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { x++; (void) fprintf(image->file,"%02x",p->index); if (x == 36) { x=0; (void) fprintf(image->file,"\n"); } } p++; } break; } } } } (void) fprintf(image->file,"\n"); (void) fprintf(image->file,"%%%%EndData\n"); if (strcmp(image->magick,"PS") != 0) (void) fprintf(image->file,"end\n"); (void) fprintf(image->file,"%%%%PageTrailer\n"); (void) fprintf(image->file,"%%%%Trailer\n"); (void) fprintf(image->file,"%%%%EOF\n"); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e P S 2 I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WritePS2Image translates an image to encapsulated Postscript % Level II for printing. If the supplied geometry is null, the image is % centered on the Postscript page. Otherwise, the image is positioned as % specified by the geometry. % % The format of the WritePS2Image routine is: % % status=WritePS2Image(image,geometry,density) % % A description of each parameter follows: % % o status: Function WritePS2Image return True if the image is printed. % False is returned if the image file cannot be opened for printing. % % o image: The address of a structure of type Image; returned from % ReadImage. % % o geometry: A pointer to a geometry string. Specifies the width and % height of the Postscript image. % % o density: A pointer to a density string. Specifies the dots-per-inch % of the Postscript image. % % */ static unsigned int WritePS2Image(image,geometry,density) Image *image; char *geometry, *density; { static char *Postscript[]= { "%%BeginProlog", "%", "% Display a color image. The image is displayed in color on", "% Postscript viewers or printers that support color, otherwise", "% it is displayed as grayscale.", "%", "/buffer 512 string def", "", "/DirectClassImage", "{", " %", " % Display a DirectClass image.", " %", " /DeviceRGB setcolorspace", " <<", " /ImageType 1", " /Interpolate true", " /Width columns", " /Height rows", " /BitsPerComponent 8", " /Decode [0 1 0 1 0 1]", " /ImageMatrix [columns 0 0 rows neg 0 rows]", " compression 0 gt", " {", " /DataSource currentfile /ASCIIHexDecode filter", " }", " {", " /DataSource currentfile /ASCIIHexDecode filter /LZWDecode filter", " } ifelse", " >> image", "} bind def", "", "/PseudoClassImage", "{", " %", " % Display a PseudoClass image.", " %", " % Parameters: ", " % colors: number of colors in the colormap.", " % colormap: red, green, blue color packets.", " %", " currentfile buffer readline pop", " token pop /colors exch def pop", " /colormap colors 3 mul string def", " currentfile colormap readhexstring pop pop", " [ /Indexed /DeviceRGB colors 1 sub colormap ] setcolorspace", " <<", " /ImageType 1", " /Interpolate true", " /Width columns", " /Height rows", " /BitsPerComponent 8", " /Decode [0 255]", " /ImageMatrix [columns 0 0 rows neg 0 rows]", " compression 0 gt", " {", " /DataSource currentfile /ASCIIHexDecode filter", " }", " {", " /DataSource currentfile /ASCIIHexDecode filter /LZWDecode filter", " } ifelse", " >> image", "} bind def", "", "/DisplayImage", "{", " %", " % Display a DirectClass or PseudoClass image.", " %", " % Parameters: ", " % x & y translation.", " % x & y scale.", " % image label.", " % image columns & rows.", " % class: 0-DirectClass or 1-PseudoClass.", " % compression: 0-RunlengthEncodedCompression or 1-NoCompression.", " % hex color packets.", " %", " gsave", " currentfile buffer readline pop", " token pop /x exch def", " token pop /y exch def pop", " x y translate", " currentfile buffer readline pop", " token pop /x exch def", " token pop /y exch def pop", " /NewCenturySchlbk-Roman findfont 24 scalefont setfont", " currentfile buffer readline pop", " 0 y 12 add moveto buffer show", " x y scale", " currentfile buffer readline pop", " token pop /columns exch def", " token pop /rows exch def pop", " currentfile buffer readline pop", " token pop /class exch def pop", " currentfile buffer readline pop", " token pop /compression exch def pop", " class 0 gt { PseudoClassImage } { DirectClassImage } ifelse", " grestore", " showpage", "} bind def", "%%EndProlog", "%%Page: 1 1", NULL }; char *label, **q; int sans_offset, x, y; register RunlengthPacket *p; register int i, j; time_t timer; unsigned char *pixels; unsigned int dx_resolution, dy_resolution, height, number_packets, text_size, x_resolution, y_resolution, width; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Scale image to size of Postscript page. */ text_size=image->label == (char *) NULL ? 0 : 36; x=0; y=0; width=image->columns; height=image->rows; if (strcmp(image->magick,"PS") == 0) { int flags; unsigned int page_height, page_width; unsigned long scale_factor; /* Center image on Postscript page. */ (void) XParseGeometry(PSPageGeometry,&x,&y,&page_width,&page_height); flags=XParseGeometry(geometry,&x,&y,&page_width,&page_height); scale_factor=UpShift(page_width-(x << 1))/image->columns; if (scale_factor > (UpShift(page_height-(y << 1)-text_size)/image->rows)) scale_factor=UpShift(page_height-(y << 1)-text_size)/image->rows; width=DownShift(image->columns*scale_factor); height=DownShift(image->rows*scale_factor); if (((flags & XValue) == 0) && ((flags & YValue) == 0)) { int delta_x, delta_y; delta_x=page_width-(width+(x << 1)); delta_y=page_height-(height+(y << 1))-text_size; if (delta_x >= 0) x=(delta_x >> 1)+x; if (delta_y >= 0) y=(delta_y >> 1)+y; } } /* Scale relative to dots-per-inch. */ (void) XParseGeometry(PSDensityGeometry,&sans_offset,&sans_offset, &dx_resolution,&dy_resolution); x_resolution=dx_resolution; y_resolution=dy_resolution; (void) XParseGeometry(density,&sans_offset,&sans_offset,&x_resolution, &y_resolution); width=(width*dx_resolution)/x_resolution; height=(height*dy_resolution)/y_resolution; /* Output Postscript header. */ if (strcmp(image->magick,"PS") == 0) (void) fprintf(image->file,"%%!PS-Adobe-3.0\n"); else (void) fprintf(image->file,"%%!PS-Adobe-3.0 EPSF-3.0\n"); (void) fprintf(image->file,"%%%%Title: %s\n",image->filename); (void) fprintf(image->file,"%%%%Creator: ImageMagick\n"); timer=time((time_t *) NULL); (void) localtime(&timer); (void) fprintf(image->file,"%%%%CreationDate: %s",ctime(&timer)); (void) fprintf(image->file,"%%%%BoundingBox: %d %d %d %d\n",x,y,x+(int) width, y+(int) height+text_size); if (strcmp(image->magick,"PS") == 0) { (void) fprintf(image->file,"%%%%Orientation: Portrait\n"); (void) fprintf(image->file,"%%%%PageOrder: Ascend\n"); } (void) fprintf(image->file,"%%%%Pages: %d\n",strcmp(image->magick,"PS") == 0); (void) fprintf(image->file,"%%%%EndComments\n"); /* Output Postscript commands. */ for (q=Postscript; *q; q++) (void) fprintf(image->file,"%s\n",*q); if (strcmp(image->magick,"PS") != 0) (void) fprintf(image->file,"userdict begin\n"); (void) fprintf(image->file,"%%%%BeginData:\n"); (void) fprintf(image->file,"DisplayImage\n"); /* Output image data. */ label=image->label; if (label == (char *) NULL) label=" "; p=image->pixels; if ((image->class == DirectClass) || (image->colors > 256)) { (void) fprintf(image->file,"%d %d\n%u %u\n%s \n%u %u\n%d\n%d\n", x,y,width,height,label,image->columns,image->rows, image->class == PseudoClass,image->compression == NoCompression); switch (image->compression) { case RunlengthEncodedCompression: default: { register unsigned char *q; /* Allocate pixel array. */ number_packets=3*image->columns*image->rows; pixels=(unsigned char *) malloc(number_packets*sizeof(unsigned char)); if (pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); return(False); } /* Dump LZW encoded pixels. */ q=pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=p->red; *q++=p->green; *q++=p->blue; } p++; } (void) LZWEncodeFilter(image->file,pixels,number_packets); (void) fprintf(image->file,">"); (void) free((char *) pixels); break; } case NoCompression: { /* Dump uncompressed DirectColor packets. */ x=0; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { x++; (void) fprintf(image->file,"%02x%02x%02x",p->red,p->green, p->blue); if (x == 12) { x=0; (void) fprintf(image->file,"\n"); } } p++; } break; } } } else { (void) fprintf(image->file,"%d %d\n%u %u\n%s \n%u %u\n%d\n%d\n", x,y,width,height,label,image->columns,image->rows, image->class == PseudoClass,image->compression == NoCompression); /* Dump number of colors and colormap. */ (void) fprintf(image->file,"%u\n",image->colors); for (i=0; i < image->colors; i++) (void) fprintf(image->file,"%02x%02x%02x\n",image->colormap[i].red, image->colormap[i].green,image->colormap[i].blue); switch (image->compression) { case RunlengthEncodedCompression: default: { register unsigned char *q; /* Allocate pixel array. */ number_packets=image->columns*image->rows; pixels=(unsigned char *) malloc(number_packets*sizeof(unsigned char)); if (pixels == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); return(False); } /* Dump LZW encoded pixels. */ q=pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) *q++=(unsigned char) p->index; p++; } (void) LZWEncodeFilter(image->file,pixels,number_packets); (void) fprintf(image->file,">"); (void) free((char *) pixels); break; } case NoCompression: { /* Dump uncompressed PseudoColor packets. */ x=0; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { x++; (void) fprintf(image->file,"%02x",p->index); if (x == 36) { x=0; (void) fprintf(image->file,"\n"); } } p++; } break; } } } (void) fprintf(image->file,"\n"); (void) fprintf(image->file,"%%%%EndData\n"); if (strcmp(image->magick,"PS") != 0) (void) fprintf(image->file,"end\n"); (void) fprintf(image->file,"%%%%PageTrailer\n"); (void) fprintf(image->file,"%%%%Trailer\n"); (void) fprintf(image->file,"%%%%EOF\n"); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e R G B I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteRGBImage writes an image to a file in red, green, and % blue rasterfile format. % % The format of the WriteRGBImage routine is: % % status=WriteRGBImage(image,interlace) % % A description of each parameter follows. % % o status: Function WriteRGBImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % o interlace: An unsigned integer that specifies the interlacing % scheme. % % */ static unsigned int WriteRGBImage(image,interlace) Image *image; unsigned int interlace; { register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *rgb_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Convert MIFF to RGB raster pixels. */ rgb_pixels=(unsigned char *) malloc(3*image->columns*image->rows*sizeof(unsigned char)); if (rgb_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } q=rgb_pixels; switch (interlace) { case NoneInterlace: default: { /* No interlacing: RGBRGBRGBRGBRGBRGB... */ p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=p->red; *q++=p->green; *q++=p->blue; } p++; } break; } case LineInterlace: { register int x, y; /* Line interlacing: RRR...GGG...BBB...RRR...GGG...BBB... */ if (!UncompressImage(image)) return(False); for (y=0; y < image->rows; y++) { p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { *q++=p->red; p++; } p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { *q++=p->green; p++; } p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { *q++=p->blue; p++; } } break; } case PlaneInterlace: { /* Plane interlacing: RRRRRR...GGGGGG...BBBBBB... */ p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=p->red; p++; } p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=p->green; p++; } p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=p->blue; p++; } break; } } (void) fwrite((char *) rgb_pixels,3,(int) (image->columns*image->rows), image->file); (void) free((char *) rgb_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e S U N I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteSUNImage writes an image in the SUN rasterfile format. % % The format of the WriteSUNImage routine is: % % status=WriteSUNImage(image) % % A description of each parameter follows. % % o status: Function WriteSUNImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteSUNImage(image) Image *image; { #define RMT_EQUAL_RGB 1 #define RMT_NONE 0 #define RMT_RAW 2 #define RT_STANDARD 1 #define RT_FORMAT_RGB 3 typedef struct _SUNHeader { unsigned long magic, width, height, depth, length, type, maptype, maplength; } SUNHeader; register int i, j, x; register RunlengthPacket *p; register unsigned char *q; SUNHeader sun_header; unsigned char *sun_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Initialize SUN raster file header. */ sun_header.magic=0x59a66a95; sun_header.width=image->columns; sun_header.height=image->rows; sun_header.type=(image->class == DirectClass ? RT_FORMAT_RGB : RT_STANDARD); sun_header.maptype=RMT_NONE; sun_header.maplength=0; if ((image->class == DirectClass) || (image->colors > 256)) { /* Full color SUN raster. */ sun_header.depth=(image->matte ? 32 : 24); sun_header.length=image->columns*image->rows*(image->matte ? 4 : 3); sun_header.length+=image->columns % 2 ? image->rows : 0; } else if (IsGrayImage(image) && (image->colors == 2)) { /* Monochrome SUN raster. */ sun_header.depth=1; sun_header.length=((image->columns+7) >> 3)*image->rows; sun_header.length+=((image->columns/8)+(image->columns % 8 ? 1 : 0)) % 2 ? image->rows : 0; } else { /* Colormapped SUN raster. */ sun_header.depth=8; sun_header.length=image->columns*image->rows; sun_header.length+=image->columns % 2 ? image->rows : 0; sun_header.maptype=RMT_EQUAL_RGB; sun_header.maplength=image->colors*3; } /* Write SUN header. */ MSBFirstWriteLong(sun_header.magic,image->file); MSBFirstWriteLong(sun_header.width,image->file); MSBFirstWriteLong(sun_header.height,image->file); MSBFirstWriteLong(sun_header.depth,image->file); MSBFirstWriteLong(sun_header.length,image->file); MSBFirstWriteLong(sun_header.type,image->file); MSBFirstWriteLong(sun_header.maptype,image->file); MSBFirstWriteLong(sun_header.maplength,image->file); /* Convert MIFF to SUN raster pixels. */ sun_pixels=(unsigned char *) malloc(sun_header.length*sizeof(unsigned char)); if (sun_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; q=sun_pixels; x=0; if ((image->class == DirectClass) || (image->colors > 256)) { /* Convert DirectClass packet to SUN RGB pixel. */ for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { if (image->matte) *q++=(unsigned char) p->index; *q++=p->red; *q++=p->green; *q++=p->blue; x++; if (x == image->columns) { if ((image->columns % 2) != 0) q++; /* pad scanline */ x=0; } } p++; } } else if (IsGrayImage(image) && (image->colors == 2)) { register unsigned char bit, byte; /* Convert PseudoClass image to a SUN monochrome image. */ bit=0; byte=0; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { byte<<=1; if (p->index == 0) byte|=0x01; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == image->columns) { /* Advance to the next scanline. */ if (bit != 0) *q++=byte << (8-bit); if ((((image->columns/8)+ (image->columns % 8 ? 1 : 0)) % 2) != 0) q++; /* pad scanline */ bit=0; byte=0; x=0; } } p++; } } else { unsigned char *sun_colormap; /* Dump colormap to file. */ sun_colormap=(unsigned char *) malloc(sun_header.maplength*sizeof(unsigned char)); if (sun_colormap == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } q=sun_colormap; for (i=0; i < image->colors; i++) *q++=image->colormap[i].red; for (i=0; i < image->colors; i++) *q++=image->colormap[i].green; for (i=0; i < image->colors; i++) *q++=image->colormap[i].blue; (void) fwrite((char *) sun_colormap,1,(int) sun_header.maplength, image->file); (void) free((char *) sun_colormap); /* Convert PseudoClass packet to SUN colormapped pixel. */ q=sun_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=p->index; x++; if (x == image->columns) { if ((image->columns % 2) != 0) q++; /* pad scanline */ x=0; } } p++; } } (void) fwrite((char *) sun_pixels,1,(int) sun_header.length,image->file); (void) free((char *) sun_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e T A R G A I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteTARGAImage writes a image in the Truevision Targa rasterfile % format. % % The format of the WriteTARGAImage routine is: % % status=WriteTARGAImage(image) % % A description of each parameter follows. % % o status: Function WriteTARGAImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteTARGAImage(image) Image *image; { #define TargaColormap 1 #define TargaRGB 2 #define TargaMonochrome 3 #define TargaRLEColormap 9 #define TargaRLERGB 10 #define TargaRLEMonochrome 11 typedef struct _TargaHeader { unsigned char id_length, colormap_type, image_type; unsigned short colormap_index, colormap_length; unsigned char colormap_size; unsigned short x_origin, y_origin, width, height; unsigned char pixel_size, attributes; } TargaHeader; int count, runlength; register int i, j; register RunlengthPacket *p; register unsigned char *q, *r; TargaHeader targa_header; unsigned char *targa_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Reflect image. */ image=ReflectImage(image); if (image == (Image *) NULL) { Warning("Unable to reflect file",image->filename); return(False); } if (image->compression == RunlengthEncodedCompression) CompressImage(image); /* Initialize TARGA raster file header. */ targa_header.id_length=0; if (image->comments != (char *) NULL) targa_header.id_length=Min((int) strlen(image->comments),255); targa_header.colormap_type=0; targa_header.colormap_index=0; targa_header.colormap_length=0; targa_header.colormap_size=0; targa_header.x_origin=0; targa_header.y_origin=0; targa_header.width=image->columns; targa_header.height=image->rows; targa_header.pixel_size=8; targa_header.attributes=0; if ((image->class == DirectClass) || (image->colors > 256)) { /* Full color TARGA raster. */ targa_header.image_type=TargaRGB; if (image->compression == RunlengthEncodedCompression) targa_header.image_type=TargaRLERGB; targa_header.pixel_size=image->matte ? 32 : 24; } else { /* Colormapped TARGA raster. */ targa_header.image_type=TargaColormap; if (image->compression == RunlengthEncodedCompression) targa_header.image_type=TargaRLEColormap; if (!IsGrayImage(image) || (image->colors != 2)) { targa_header.colormap_type=1; targa_header.colormap_index=0; targa_header.colormap_length=image->colors; targa_header.colormap_size=24; } else { /* Monochrome TARGA raster. */ targa_header.image_type=TargaMonochrome; if (image->compression == RunlengthEncodedCompression) targa_header.image_type=TargaRLEMonochrome; } } /* Write TARGA header. */ (void) fputc((char) targa_header.id_length,image->file); (void) fputc((char) targa_header.colormap_type,image->file); (void) fputc((char) targa_header.image_type,image->file); LSBFirstWriteShort(targa_header.colormap_index,image->file); LSBFirstWriteShort(targa_header.colormap_length,image->file); (void) fputc((char) targa_header.colormap_size,image->file); LSBFirstWriteShort(targa_header.x_origin,image->file); LSBFirstWriteShort(targa_header.y_origin,image->file); LSBFirstWriteShort(targa_header.width,image->file); LSBFirstWriteShort(targa_header.height,image->file); (void) fputc((char) targa_header.pixel_size,image->file); (void) fputc((char) targa_header.attributes,image->file); if (targa_header.id_length != 0) (void) fwrite((char *) image->comments,1,targa_header.id_length, image->file); /* Convert MIFF to TARGA raster pixels. */ count=(unsigned int) (targa_header.pixel_size*targa_header.width*targa_header.height) >> 3; if (image->compression == RunlengthEncodedCompression) count+=(count/128)+1; targa_pixels=(unsigned char *) malloc(count*sizeof(unsigned char)); if (targa_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels+(image->packets-1); q=targa_pixels; if ((image->class == DirectClass) || (image->colors > 256)) { /* Convert DirectClass packet to TARGA RGB pixel. */ if (image->compression != RunlengthEncodedCompression) for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=p->blue; *q++=p->green; *q++=p->red; if (image->matte) *q++=p->index; } p--; } else for (i=0; i < image->packets; i++) { runlength=p->length+1; if (runlength > 128) { *q++=0xff; *q++=p->blue; *q++=p->green; *q++=p->red; if (image->matte) *q++=p->index; runlength-=128; } r=q; *q++=0x80+(runlength-1); *q++=p->blue; *q++=p->green; *q++=p->red; if (image->matte) *q++=p->index; if (runlength != 1) p--; else { for ( ; i < image->packets; i++) { p--; if ((p->length != 0) || (runlength == 128)) break; *q++=p->blue; *q++=p->green; *q++=p->red; if (image->matte) *q++=p->index; runlength++; } *r=runlength-1; } } } else if (!IsGrayImage(image) || (image->colors != 2)) { unsigned char *targa_colormap; /* Dump colormap to file (blue, green, red byte order). */ targa_colormap=(unsigned char *) malloc(3*targa_header.colormap_length*sizeof(unsigned char)); if (targa_colormap == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } q=targa_colormap; for (i=0; i < image->colors; i++) { *q++=image->colormap[i].blue; *q++=image->colormap[i].green; *q++=image->colormap[i].red; } (void) fwrite((char *) targa_colormap,1, (int) 3*targa_header.colormap_length,image->file); (void) free((char *) targa_colormap); /* Convert PseudoClass packet to TARGA colormapped pixel. */ q=targa_pixels; if (image->compression != RunlengthEncodedCompression) for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) *q++=p->index; p--; } else for (i=0; i < image->packets; i++) { runlength=p->length+1; if (runlength > 128) { *q++=0xff; *q++=p->index; runlength-=128; } r=q; *q++=0x80+(runlength-1); *q++=p->index; if (runlength != 1) p--; else { for ( ; i < image->packets; i++) { p--; if ((p->length != 0) || (runlength == 128)) break; *q++=p->index; runlength++; } *r=runlength-1; } } } else { /* Convert PseudoClass image to a TARGA monochrome image. */ if (image->compression != RunlengthEncodedCompression) for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) *q++=p->index == 1 ? 0 : MaxRGB; p--; } else for (i=0; i < image->packets; i++) { runlength=p->length+1; if (runlength > 128) { *q++=0xff; *q++=p->index == 1 ? 0 : MaxRGB; runlength-=128; } r=q; *q++=0x80+(runlength-1); *q++=p->index == 1 ? 0 : MaxRGB; if (runlength != 1) p--; else { for ( ; i < image->packets; i++) { p--; if ((p->length != 0) || (runlength == 128)) break; *q++=p->index == 1 ? 0 : MaxRGB; runlength++; } *r=runlength-1; } } } (void) fwrite((char *) targa_pixels,1,(int) (q-targa_pixels),image->file); (void) free((char *) targa_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e T E X T I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteTEXTImage writes an image in the TEXT image forma. % % The format of the WriteTEXTImage routine is: % % status=WriteTEXTImage(image) % % A description of each parameter follows. % % o status: Function WriteTEXTImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteTEXTImage(image) Image *image; { unsigned int status; Warning("Cannot write TEXT images",image->filename); status=WriteMIFFImage(image); return(status); } #ifdef HasTIFF #include "tiff.h" #include "tiffio.h" /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e T I F F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteTIFFImage writes an image in the Tagged image file format. % % The format of the WriteTIFFImage routine is: % % status=WriteTIFFImage(image,verbose) % % A description of each parameter follows: % % o status: Function WriteTIFFImage return True if the image is written. % False is returned is there is of a memory shortage or if the image % file cannot be opened for writing. % % o image: A pointer to a Image structure. % % o verbose: A value greater than zero prints detailed information about % the image. % % */ static unsigned int WriteTIFFImage(image,verbose) Image *image; unsigned int verbose; { register RunlengthPacket *p; register int i, j, x, y; register unsigned char *q; TIFF *tiff; unsigned char *scanline; unsigned short photometric, rows_per_strip; /* Open TIFF file. */ tiff=TIFFOpen(image->filename,"w"); if (tiff == (TIFF *) NULL) return(False); if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Initialize TIFF fields. */ TIFFSetField(tiff,TIFFTAG_DOCUMENTNAME,image->filename); TIFFSetField(tiff,TIFFTAG_SOFTWARE,"ImageMagick"); if (image->comments != (char *) NULL) TIFFSetField(tiff,TIFFTAG_IMAGEDESCRIPTION,image->comments); if ((image->class == DirectClass) || (image->colors > 256)) { /* Full color TIFF raster. */ photometric=PHOTOMETRIC_RGB; TIFFSetField(tiff,TIFFTAG_BITSPERSAMPLE,8); TIFFSetField(tiff,TIFFTAG_SAMPLESPERPIXEL,(image->matte ? 4 : 3)); } else { /* Colormapped TIFF raster. */ photometric=PHOTOMETRIC_PALETTE; TIFFSetField(tiff,TIFFTAG_SAMPLESPERPIXEL,1); TIFFSetField(tiff,TIFFTAG_BITSPERSAMPLE,8); if (IsGrayImage(image)) { /* Grayscale TIFF raster. */ photometric=PHOTOMETRIC_MINISBLACK; if (image->colors == 2) TIFFSetField(tiff,TIFFTAG_BITSPERSAMPLE,1); } } TIFFSetField(tiff,TIFFTAG_PHOTOMETRIC,photometric); TIFFSetField(tiff,TIFFTAG_IMAGELENGTH,image->rows); TIFFSetField(tiff,TIFFTAG_IMAGEWIDTH,image->columns); TIFFSetField(tiff,TIFFTAG_FILLORDER,FILLORDER_MSB2LSB); TIFFSetField(tiff,TIFFTAG_ORIENTATION,ORIENTATION_TOPLEFT); TIFFSetField(tiff,TIFFTAG_PLANARCONFIG,PLANARCONFIG_CONTIG); TIFFSetField(tiff,TIFFTAG_COMPRESSION,COMPRESSION_LZW); if (image->compression == NoCompression) TIFFSetField(tiff,TIFFTAG_COMPRESSION,COMPRESSION_NONE); rows_per_strip=8192/TIFFScanlineSize(tiff); if (rows_per_strip == 0) rows_per_strip=1; TIFFSetField(tiff,TIFFTAG_ROWSPERSTRIP,rows_per_strip); scanline=(unsigned char *) malloc(TIFFScanlineSize(tiff)); if (scanline == (unsigned char *) NULL) { Warning("Memory allocation error",(char *) NULL); return(False); } p=image->pixels; q=scanline; x=0; y=0; if (photometric == PHOTOMETRIC_RGB) for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { /* Convert DirectClass packets to contiguous RGB scanlines. */ *q++=p->red; *q++=p->green; *q++=p->blue; if (image->matte) *q++=(unsigned char) p->index; x++; if (x == image->columns) { if (TIFFWriteScanline(tiff,scanline,y,0) < 0) break; q=scanline; x=0; y++; } } p++; } else if (photometric == PHOTOMETRIC_PALETTE) { unsigned short blue[256], green[256], red[256]; /* Initialize TIFF colormap. */ for (i=0; i < image->colors; i++) { red[i]=(unsigned short) ((image->colormap[i].red*65535)/(unsigned int) MaxRGB); green[i]=(unsigned short) ((image->colormap[i].green*65535)/(unsigned int) MaxRGB); blue[i]=(unsigned short) ((image->colormap[i].blue*65535)/(unsigned int) MaxRGB); } TIFFSetField(tiff,TIFFTAG_COLORMAP,red,green,blue); /* Convert PseudoClass packets to contiguous colormap indexed scanlines. */ for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q++=(unsigned char) p->index; x++; if (x == image->columns) { if (TIFFWriteScanline(tiff,scanline,y,0) < 0) break; q=scanline; x=0; y++; } } p++; } } else if (image->colors > 2) for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { /* Convert PseudoClass packets to contiguous grayscale scanlines. */ *q++=(unsigned char) image->colormap[p->index].red; x++; if (x == image->columns) { if (TIFFWriteScanline(tiff,scanline,y,0) < 0) break; q=scanline; x=0; y++; } } p++; } else { register unsigned char bit, byte, polarity; /* Convert PseudoClass packets to contiguous monochrome scanlines. */ polarity=0; if (image->colors == 2) polarity= Intensity(image->colormap[0]) < Intensity(image->colormap[1]); bit=0; byte=0; x=0; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { byte<<=1; if (p->index == polarity) byte|=0x01; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == image->columns) { /* Advance to the next scanline. */ if (bit != 0) *q++=byte << (8-bit); if (TIFFWriteScanline(tiff,scanline,y,0) < 0) break; q=scanline; bit=0; byte=0; x=0; y++; } } p++; } } (void) free((char *) scanline); (void) TIFFFlushData(tiff); if (verbose == True) TIFFPrintDirectory(tiff,stderr,False); (void) TIFFClose(tiff); return(True); } #else static unsigned int WriteTIFFImage(image,verbose) Image *image; unsigned int verbose; { unsigned int status; Warning("TIFF library is not available",image->filename); status=WriteMIFFImage(image); return(status); } #endif /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e V I C A R I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteVICARImage writes an image in the VICAR rasterfile format. % % The format of the WriteVICARImage routine is: % % status=WriteVICARImage(image) % % A description of each parameter follows. % % o status: Function WriteVICARImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteVICARImage(image) Image *image; { unsigned int status; Warning("Cannot write VICAR images",image->filename); status=WriteMIFFImage(image); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e V I F F I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteVIFFImage writes an image to a file in the VIFF image format. % % The format of the WriteVIFFImage routine is: % % status=WriteVIFFImage(image) % % A description of each parameter follows. % % o status: Function WriteVIFFImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteVIFFImage(image) Image *image; { #define VFF_CM_genericRGB 15 #define VFF_CM_NONE 0 #define VFF_DEP_IEEEORDER 0x2 #define VFF_DES_RAW 0 #define VFF_LOC_IMPLICIT 1 #define VFF_MAPTYP_NONE 0 #define VFF_MAPTYP_1_BYTE 1 #define VFF_MS_NONE 0 #define VFF_MS_ONEPERBAND 1 #define VFF_TYP_BIT 0 #define VFF_TYP_1_BYTE 1 typedef struct _ViffHeader { char identifier, file_type, release, version, machine_dependency, reserve[3], comment[512]; unsigned long rows, columns, subrows; long x_offset, y_offset; unsigned int x_pixel_size, y_pixel_size; unsigned long location_type, location_dimension, number_of_images, number_data_bands, data_storage_type, data_encode_scheme, map_scheme, map_storage_type, map_rows, map_columns, map_subrows, map_enable, maps_per_cycle, color_space_model; } ViffHeader; register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char buffer[8], *viff_pixels; unsigned long packets; ViffHeader viff_header; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Initialize VIFF image structure. */ viff_header.identifier=0xab; viff_header.file_type=1; viff_header.release=1; viff_header.version=3; viff_header.machine_dependency=VFF_DEP_IEEEORDER; /* IEEE byte ordering */ *viff_header.comment='\0'; if (image->comments != (char *) NULL) { (void) strncpy(viff_header.comment,image->comments, Min((int) strlen(image->comments),511)); viff_header.comment[Min((int) strlen(image->comments),511)]='\0'; } viff_header.rows=image->columns; viff_header.columns=image->rows; viff_header.subrows=0; viff_header.x_offset=(~0); viff_header.y_offset=(~0); viff_header.x_pixel_size=0; viff_header.y_pixel_size=0; viff_header.location_type=VFF_LOC_IMPLICIT; viff_header.location_dimension=0; viff_header.number_of_images=1; viff_header.data_encode_scheme=VFF_DES_RAW; viff_header.map_scheme=VFF_MS_NONE; viff_header.map_storage_type=VFF_MAPTYP_NONE; viff_header.map_rows=0; viff_header.map_columns=0; viff_header.map_subrows=0; viff_header.map_enable=1; /* no colormap */ viff_header.maps_per_cycle=0; if ((image->class == DirectClass) || (image->colors > 256)) { /* Full color VIFF raster. */ viff_header.number_data_bands=image->matte ? 4 : 3; viff_header.color_space_model=VFF_CM_genericRGB; viff_header.data_storage_type=VFF_TYP_1_BYTE; packets=image->columns*image->rows*viff_header.number_data_bands; } else { viff_header.number_data_bands=1; viff_header.color_space_model=VFF_CM_NONE; viff_header.data_storage_type=VFF_TYP_1_BYTE; packets=image->columns*image->rows; if (!IsGrayImage(image)) { /* Colormapped VIFF raster. */ viff_header.map_scheme=VFF_MS_ONEPERBAND; viff_header.map_storage_type=VFF_MAPTYP_1_BYTE; viff_header.map_rows=3; viff_header.map_columns=image->colors; } else if (image->colors == 2) { /* Monochrome VIFF raster. */ viff_header.data_storage_type=VFF_TYP_BIT; packets=((image->columns+7) >> 3)*image->rows; } } /* Write VIFF image header (pad to 1024 bytes). */ buffer[0]=viff_header.identifier; buffer[1]=viff_header.file_type; buffer[2]=viff_header.release; buffer[3]=viff_header.version; buffer[4]=viff_header.machine_dependency; buffer[5]=viff_header.reserve[0]; buffer[6]=viff_header.reserve[1]; buffer[7]=viff_header.reserve[2]; (void) fwrite((char *) buffer,1,8,image->file); (void) fwrite((char *) viff_header.comment,1,512,image->file); MSBFirstWriteLong(viff_header.rows,image->file); MSBFirstWriteLong(viff_header.columns,image->file); MSBFirstWriteLong(viff_header.subrows,image->file); MSBFirstWriteLong((unsigned long) viff_header.x_offset,image->file); MSBFirstWriteLong((unsigned long) viff_header.y_offset,image->file); MSBFirstWriteLong((unsigned long) viff_header.x_pixel_size,image->file); MSBFirstWriteLong((unsigned long) viff_header.y_pixel_size,image->file); MSBFirstWriteLong(viff_header.location_type,image->file); MSBFirstWriteLong(viff_header.location_dimension,image->file); MSBFirstWriteLong(viff_header.number_of_images,image->file); MSBFirstWriteLong(viff_header.number_data_bands,image->file); MSBFirstWriteLong(viff_header.data_storage_type,image->file); MSBFirstWriteLong(viff_header.data_encode_scheme,image->file); MSBFirstWriteLong(viff_header.map_scheme,image->file); MSBFirstWriteLong(viff_header.map_storage_type,image->file); MSBFirstWriteLong(viff_header.map_rows,image->file); MSBFirstWriteLong(viff_header.map_columns,image->file); MSBFirstWriteLong(viff_header.map_subrows,image->file); MSBFirstWriteLong(viff_header.map_enable,image->file); MSBFirstWriteLong(viff_header.maps_per_cycle,image->file); MSBFirstWriteLong(viff_header.color_space_model,image->file); for (i=0; i < 420; i++) (void) fputc('\0',image->file); /* Convert MIFF to VIFF raster pixels. */ viff_pixels=(unsigned char *) malloc(packets*sizeof(unsigned char)); if (viff_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } p=image->pixels; q=viff_pixels; if ((image->class == DirectClass) || (image->colors > 256)) { unsigned long offset; /* Convert DirectClass packet to VIFF RGB pixel. */ offset=image->columns*image->rows; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { *q=p->red; *(q+offset)=p->green; *(q+offset*2)=p->blue; if (image->matte) *(q+offset*3)=(unsigned char) p->index; q++; } p++; } } else if (!IsGrayImage(image)) { unsigned char *viff_colormap; /* Dump colormap to file. */ viff_colormap=(unsigned char *) malloc(image->colors*3*sizeof(unsigned char)); if (viff_colormap == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } q=viff_colormap; for (i=0; i < image->colors; i++) *q++=image->colormap[i].red; for (i=0; i < image->colors; i++) *q++=image->colormap[i].green; for (i=0; i < image->colors; i++) *q++=image->colormap[i].blue; (void) fwrite((char *) viff_colormap,1,(int) image->colors*3, image->file); (void) free((char *) viff_colormap); /* Convert PseudoClass packet to VIFF colormapped pixels. */ q=viff_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) *q++=p->index; p++; } } else if (image->colors == 2) { register unsigned char bit, byte; register int x; /* Convert PseudoClass image to a VIFF monochrome image. */ x=0; bit=0; byte=0; for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) { byte>>=1; if (p->index == 1) byte|=0x80; bit++; if (bit == 8) { *q++=byte; bit=0; byte=0; } x++; if (x == image->columns) { /* Advance to the next scanline. */ if (bit != 0) *q++=byte >> (8-bit); bit=0; byte=0; x=0; } } p++; } } else { /* Convert PseudoClass packet to VIFF grayscale pixel. */ for (i=0; i < image->packets; i++) { for (j=0; j <= (int) p->length; j++) *q++=p->red; p++; } } (void) fwrite((char *) viff_pixels,1,(int) packets,image->file); (void) free((char *) viff_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e X I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteXImage writes an image to an X server. % % The format of the WriteXImage routine is: % % status=WriteXImage(image,server_name) % % A description of each parameter follows. % % o status: Function WriteXImage return True if the image is displayed on % the X server. False is returned is there is a memory shortage or if % the image file fails to write. % % o image: A pointer to a Image structure. % % o server_name: A pointer to a character string representing the % X server to display the image. % % */ static unsigned int WriteXImage(image,server_name) Image *image; char *server_name; { Atom wm_delete_window, wm_protocols; char *resource_value; Display *display; register char *p; unsigned int status; XResourceInfo resource_info; XrmDatabase resource_database, server_database; XEvent event; XPixelInfo pixel_info; XStandardColormap *map_info; XVisualInfo *visual_info; XWindowInfo window_info; /* Open X server connection. */ display=XOpenDisplay(server_name); if (display == (Display *) NULL) { Warning("Unable to connect to X server",XDisplayName(server_name)); return(False); } /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Get user defaults from X resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); XGetResourceInfo(resource_database,client_name,&resource_info); /* Allocate standard colormap. */ map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Warning("Unable to create standard colormap","Memory allocation failed"); else { /* Initialize visual info. */ visual_info=XBestVisualInfo(display,map_info,&resource_info); if (visual_info == (XVisualInfo *) NULL) Warning("Unable to get visual",resource_info.visual_type); map_info->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; } /* Initialize atoms. */ wm_protocols=XInternAtom(display,"WM_PROTOCOLS",False); wm_delete_window=XInternAtom(display,"WM_DELETE_WINDOW",False); if ((wm_protocols == (Atom) NULL) || (wm_delete_window == (Atom) NULL)) Warning("Unable to create property",(char *) NULL); if ((map_info == (XStandardColormap *) NULL) || (visual_info == (XVisualInfo *) NULL) || (wm_protocols == (Atom) NULL) || (wm_delete_window == (Atom) NULL)) { XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return(False); } /* Initialize Standard Colormap. */ XMakeStandardColormap(display,visual_info,&resource_info,image,map_info, &pixel_info); pixel_info.annotate_context=(GC) NULL; pixel_info.highlight_context=(GC) NULL; pixel_info.widget_context=(GC) NULL; /* Initialize window info structure. */ window_info.id=(Window) NULL; XGetWindowInfo(display,visual_info,map_info,&pixel_info,(XFontStruct *) NULL, &resource_info,&window_info); p=image->filename+strlen(image->filename)-1; while ((p > image->filename) && (*(p-1) != '/')) p--; window_info.name=p; window_info.width=image->columns; window_info.height=image->rows; window_info.attributes.event_mask=ButtonPressMask | ExposureMask; XMakeWindow(display,XRootWindow(display,visual_info->screen),(char **) NULL,0, (XClassHint *) NULL,(XWMHints *) NULL,wm_delete_window,&window_info); /* Initialize graphic context. */ window_info.annotate_context= XCreateGC(display,window_info.id,0,(XGCValues *) NULL); if (window_info.annotate_context == (GC) NULL) Warning("Unable to create property",(char *) NULL); /* Initialize X image. */ status=XMakeImage(display,&resource_info,&window_info,image,image->columns, image->rows); if (status == False) Warning("Unable to make X image",(char *) NULL); if ((status == False) || (window_info.annotate_context == (GC) NULL)) { XFreeResources(display,visual_info,map_info,&pixel_info, (XFontStruct *) NULL,&resource_info,&window_info); return(False); } /* Display image and wait for button press to exit. */ XMapWindow(display,window_info.id); for ( ; ; ) { XNextEvent(display,&event); if (event.type == ButtonPress) break; if (event.type == ClientMessage) if (event.xclient.message_type == wm_protocols) if (*event.xclient.data.l == wm_delete_window) if (event.xclient.window == window_info.id) break; if (event.type == Expose) XRefreshWindow(display,&window_info,&event); } XWithdrawWindow(display,window_info.id,window_info.screen); /* Free X resources. */ XFreeResources(display,visual_info,map_info,&pixel_info,(XFontStruct *) NULL, &resource_info,&window_info); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e X B M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure WriteXBMImage writes an image to a file in the X bitmap format. % % The format of the WriteXBMImage routine is: % % status=WriteXBMImage(image) % % A description of each parameter follows. % % o status: Function WriteXBMImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteXBMImage(image) Image *image; { char name[MaxTextLength]; register int i, j, x; register char *q; register RunlengthPacket *p; register unsigned char bit, byte; unsigned int count; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Write X bitmap header. */ (void) strcpy(name,image->filename); q=name; while ((*q != '.') && (*q != '\0')) q++; if (*q == '.') *q='\0'; (void) fprintf(image->file,"#define %s_width %u\n",name,image->columns); (void) fprintf(image->file,"#define %s_height %u\n",name,image->rows); (void) fprintf(image->file,"static char %s_bits[] = {\n",name); (void) fprintf(image->file," "); /* Convert MIFF to X bitmap pixels. */ QuantizeImage(image,2,8,False,GRAYColorspace,True); SyncImage(image); bit=0; byte=0; count=0; x=0; p=image->pixels; (void) fprintf(image->file," "); for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { byte>>=1; if (p->index == 0) byte|=0x80; bit++; if (bit == 8) { /* Write a bitmap byte to the image file. */ (void) fprintf(image->file,"0x%02x, ",byte & 0xff); count++; if (count == 12) { (void) fprintf(image->file,"\n "); count=0; }; bit=0; byte=0; } x++; if (x == image->columns) { if (bit != 0) { /* Write a bitmap byte to the image file. */ byte>>=(8-bit); (void) fprintf(image->file,"0x%02x, ",byte & 0xff); count++; if (count == 12) { (void) fprintf(image->file,"\n "); count=0; }; bit=0; byte=0; }; x=0; } } p++; } (void) fprintf(image->file,"};\n"); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e X C I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteXCImage writes an image in the X constant image format. % % The format of the WriteXCImage routine is: % % status=WriteXCImage(image) % % A description of each parameter follows. % % o status: Function WriteXCImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteXCImage(image) Image *image; { unsigned int status; Warning("Cannot write XC images",image->filename); status=WriteMIFFImage(image); return(status); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e X P M I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Procedure WriteXPMImage writes an image to a file in the X pixmap format. % % The format of the WriteXPMImage routine is: % % status=WriteXPMImage(image,server_name) % % A description of each parameter follows. % % o status: Function WriteXPMImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % o server_name: A pointer to a character string representing the % X server to display the image. % % */ #ifdef HasXPM #include "xpm.h" static unsigned int WriteXPMImage(image,server_name) Image *image; char *server_name; { char *resource_value, *xpm_buffer; Display *display; register char *p; unsigned int status; XResourceInfo resource_info; XrmDatabase resource_database, server_database; XPixelInfo pixel_info; XpmAttributes xpm_attributes; XStandardColormap *map_info; XVisualInfo *visual_info; XWindowInfo window_info; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if ((image->class == DirectClass) || (image->colors > 256)) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,True,RGBColorspace,True); SyncImage(image); } /* Open X server connection. */ display=XOpenDisplay(server_name); if (display == (Display *) NULL) { Warning("Unable to connect to X server",XDisplayName(server_name)); return(False); } /* Set our forgiving error handler. */ XSetErrorHandler(XError); /* Get user defaults from X resource database. */ XrmInitialize(); XGetDefault(display,client_name,"dummy"); resource_database=XrmGetDatabase(display); resource_value=XResourceManagerString(display); if (resource_value == (char *) NULL) resource_value=""; server_database=XrmGetStringDatabase(resource_value); XrmMergeDatabases(server_database,&resource_database); XGetResourceInfo(resource_database,client_name,&resource_info); resource_info.colormap=PrivateColormap; /* Allocate standard colormap. */ map_info=XAllocStandardColormap(); if (map_info == (XStandardColormap *) NULL) Warning("Unable to create standard colormap","Memory allocation failed"); else { /* Initialize visual info. */ visual_info=XBestVisualInfo(display,map_info,&resource_info); if (visual_info == (XVisualInfo *) NULL) Warning("Unable to get visual",resource_info.visual_type); map_info->colormap=(Colormap) NULL; pixel_info.pixels=(unsigned long *) NULL; } /* Initialize atoms. */ if ((map_info == (XStandardColormap *) NULL) || (visual_info == (XVisualInfo *) NULL)) { XFreeResources(display,visual_info,map_info,(XPixelInfo *) NULL, (XFontStruct *) NULL,&resource_info,(XWindowInfo *) NULL); DestroyImage(image); return(False); } /* Initialize Standard Colormap. */ XMakeStandardColormap(display,visual_info,&resource_info,image,map_info, &pixel_info); pixel_info.annotate_context=(GC) NULL; pixel_info.highlight_context=(GC) NULL; pixel_info.widget_context=(GC) NULL; /* Initialize window info structure. */ window_info.id=(Window) NULL; XGetWindowInfo(display,visual_info,map_info,&pixel_info,(XFontStruct *) NULL, &resource_info,&window_info); p=image->filename+strlen(image->filename)-1; while ((p > image->filename) && (*(p-1) != '/')) p--; window_info.name=p; window_info.width=image->columns; window_info.height=image->rows; XMakeWindow(display,XRootWindow(display,visual_info->screen),(char **) NULL,0, (XClassHint *) NULL,(XWMHints *) NULL,(Atom) NULL,&window_info); /* Initialize X image. */ status=XMakeImage(display,&resource_info,&window_info,image,image->columns, image->rows); if (status == False) { Warning("Unable to make X image",(char *) NULL); XFreeResources(display,visual_info,map_info,&pixel_info, (XFontStruct *) NULL,&resource_info,&window_info); return(False); } /* Intialize XPM attributes. */ xpm_attributes.valuemask= XpmColormap | XpmDepth | XpmRgbFilename | XpmSize | XpmVisual; xpm_attributes.visual=visual_info->visual; xpm_attributes.depth=visual_info->depth; xpm_attributes.colormap=map_info->colormap; xpm_attributes.rgb_fname=RGBColorDatabase; xpm_attributes.width=image->columns; xpm_attributes.height=image->rows; status=XpmCreateBufferFromImage(display,&xpm_buffer,window_info.ximage, (XImage *) NULL,&xpm_attributes); /* Free X resources. */ XpmFreeAttributes(&xpm_attributes); XFreeResources(display,visual_info,map_info,&pixel_info,(XFontStruct *) NULL, &resource_info,&window_info); if (status != XpmSuccess) { Warning("Unable to write image",(char *) NULL); return(False); } /* Write XPM image. */ status=fputs(xpm_buffer,image->file); (void) free((char *) xpm_buffer); CloseImage(image); return(status != EOF); } #else static unsigned int WriteXPMImage(image,server_name) Image *image; char *server_name; { unsigned int status; Warning("XPM library is not available",image->filename); status=WriteMIFFImage(image); return(status); } #endif /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e Y U V I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteYUVImage writes an image to a file in the digital YUV % (CCIR 601 1:1:1) format. % % The format of the WriteYUVImage routine is: % % status=WriteYUVImage(image,interlace) % % A description of each parameter follows. % % o status: Function WriteYUVImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % o interlace: An unsigned integer that specifies the interlacing % scheme. % % */ static unsigned int WriteYUVImage(image,interlace) Image *image; unsigned int interlace; { register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *yuv_pixels; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Convert MIFF to YUV raster pixels. */ yuv_pixels=(unsigned char *) malloc(3*image->columns*image->rows*sizeof(unsigned char)); if (yuv_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } RGBTransformImage(image,YCbCrColorspace); q=yuv_pixels; switch (interlace) { case NoneInterlace: default: { /* No interlacing: YUVYUVYUVYUVYUVYUV... */ p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=p->red; *q++=p->green; *q++=p->blue; } p++; } break; } case LineInterlace: { register int x, y; /* Line interlacing: YYY...UUU...VVV...YYY...UUU...VVV... */ if (!UncompressImage(image)) return(False); for (y=0; y < image->rows; y++) { p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { *q++=p->red; p++; } p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { *q++=p->green; p++; } p=image->pixels+(y*image->columns); for (x=0; x < image->columns; x++) { *q++=p->blue; p++; } } break; } case PlaneInterlace: { /* Plane interlacing: YYYYYY...UUUUUU...VVVVVV... */ p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=p->red; p++; } p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=p->green; p++; } p=image->pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=p->blue; p++; } break; } } (void) fwrite((char *) yuv_pixels,3,(int) (image->columns*image->rows), image->file); (void) free((char *) yuv_pixels); TransformRGBImage(image,YCbCrColorspace); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e Y U V 3 I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteYUV3Image writes an image to a file in the digital YUV % (CCIR 601 2:1:1) format. % % The format of the WriteYUV3Image routine is: % % status=WriteYUV3Image(image) % % A description of each parameter follows. % % o status: Function WriteYUV3Image return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteYUV3Image(image) Image *image; { char filename[MaxTextLength]; Image *scaled_image; register int i; register RunlengthPacket *p; register unsigned char *q; unsigned char *yuv_pixels; if (!UncompressImage(image)) return(False); /* Open output image file. */ (void) strcpy(filename,image->filename); if (strcmp(image->filename,"-") != 0) (void) strcat(image->filename,".Y"); OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } /* Write Y channel. */ yuv_pixels=(unsigned char *) malloc(image->columns*image->rows*sizeof(unsigned char)); if (yuv_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } RGBTransformImage(image,YCbCrColorspace); p=image->pixels; q=yuv_pixels; for (i=0; i < (image->rows*image->columns); i++) { *q=p->red; p++; q++; } (void) fwrite((char *) yuv_pixels,1,(int) (image->columns*image->rows), image->file); CloseImage(image); /* Scale image. */ image->orphan=True; scaled_image=ScaleImage(image,image->columns >> 1,image->rows >> 1); image->orphan=False; if (scaled_image == (Image *) NULL) { Warning("Unable to scale image",image->filename); return(False); } /* Write U channel. */ (void) strcpy(scaled_image->filename,filename); if (strcmp(scaled_image->filename,"-") != 0) (void) strcat(scaled_image->filename,".U"); OpenImage(scaled_image,"w"); if (scaled_image->file == (FILE *) NULL) { Warning("Unable to open file",scaled_image->filename); DestroyImage(scaled_image); return(False); } p=scaled_image->pixels; q=yuv_pixels; for (i=0; i < (scaled_image->rows*scaled_image->columns); i++) { *q=p->green; p++; q++; } (void) fwrite((char *) yuv_pixels,1,(int) (scaled_image->columns*scaled_image->rows),scaled_image->file); CloseImage(scaled_image); /* Write V channel. */ (void) strcpy(scaled_image->filename,filename); if (strcmp(scaled_image->filename,"-") != 0) (void) strcat(scaled_image->filename,".V"); OpenImage(scaled_image,"w"); if (scaled_image->file == (FILE *) NULL) { Warning("Unable to open file",scaled_image->filename); DestroyImage(scaled_image); return(False); } p=scaled_image->pixels; q=yuv_pixels; for (i=0; i < (scaled_image->rows*scaled_image->columns); i++) { *q=p->blue; p++; q++; } (void) fwrite((char *) yuv_pixels,1,(int) (scaled_image->columns*scaled_image->rows),scaled_image->file); CloseImage(scaled_image); DestroyImage(scaled_image); (void) free((char *) yuv_pixels); TransformRGBImage(image,YCbCrColorspace); (void) sprintf(image->filename,filename); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e X W D I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteXWDImage writes an image to a file in X window dump % rasterfile format. % % The format of the WriteXWDImage routine is: % % status=WriteXWDImage(image) % % A description of each parameter follows. % % o status: Function WriteXWDImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image: A pointer to a Image structure. % % */ static unsigned int WriteXWDImage(image) Image *image; { int x; register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned char *xwd_pixels; unsigned int scanline_pad; unsigned long packets; XWDFileHeader xwd_header; /* Open output image file. */ OpenImage(image,"w"); if (image->file == (FILE *) NULL) { Warning("Unable to open file",image->filename); return(False); } if (image->class == DirectClass) if (NumberColors(image,(FILE *) NULL) <= 256) { /* Demote DirectClass to PseudoClass. */ QuantizeImage(image,256,8,False,RGBColorspace,True); SyncImage(image); } /* Initialize XWD file header. */ xwd_header.header_size=100+strlen(image->filename)+1; xwd_header.file_version=(unsigned long) XWD_FILE_VERSION; xwd_header.pixmap_format=(unsigned long) ZPixmap; xwd_header.pixmap_depth=(unsigned long) (image->class == DirectClass ? 24 : 8); xwd_header.pixmap_width=(unsigned long) image->columns; xwd_header.pixmap_height=(unsigned long) image->rows; xwd_header.xoffset=(unsigned long) 0; xwd_header.byte_order=(unsigned long) MSBFirst; xwd_header.bitmap_unit=(unsigned long) (image->class == DirectClass ? 32 : 8); xwd_header.bitmap_bit_order=(unsigned long) MSBFirst; xwd_header.bitmap_pad=(unsigned long) (image->class == DirectClass ? 32 : 8); xwd_header.bits_per_pixel=(unsigned long) (image->class == DirectClass ? 24 : 8); xwd_header.bytes_per_line=(unsigned long) ((((xwd_header.bits_per_pixel* xwd_header.pixmap_width)+((xwd_header.bitmap_pad)-1))/ (xwd_header.bitmap_pad))*((xwd_header.bitmap_pad) >> 3)); xwd_header.visual_class=(unsigned long) (image->class == DirectClass ? DirectColor : PseudoColor); xwd_header.red_mask=(unsigned long) (image->class == DirectClass ? 0xff0000 : 0); xwd_header.green_mask=(unsigned long) (image->class == DirectClass ? 0xff00 : 0); xwd_header.blue_mask=(unsigned long) (image->class == DirectClass ? 0xff : 0); xwd_header.bits_per_rgb=(unsigned long) (image->class == DirectClass ? 24 : 8); xwd_header.colormap_entries=(unsigned long) (image->class == DirectClass ? 256 : image->colors); xwd_header.ncolors=(image->class == DirectClass ? 0 : image->colors); xwd_header.window_width=(unsigned long) image->columns; xwd_header.window_height=(unsigned long) image->rows; xwd_header.window_x=0; xwd_header.window_y=0; xwd_header.window_bdrwidth=(unsigned long) 0; /* Write XWD header. */ MSBFirstWriteLong(xwd_header.header_size,image->file); MSBFirstWriteLong(xwd_header.file_version,image->file); MSBFirstWriteLong(xwd_header.pixmap_format,image->file); MSBFirstWriteLong(xwd_header.pixmap_depth,image->file); MSBFirstWriteLong(xwd_header.pixmap_width,image->file); MSBFirstWriteLong(xwd_header.pixmap_height,image->file); MSBFirstWriteLong(xwd_header.xoffset,image->file); MSBFirstWriteLong(xwd_header.byte_order,image->file); MSBFirstWriteLong(xwd_header.bitmap_unit,image->file); MSBFirstWriteLong(xwd_header.bitmap_bit_order,image->file); MSBFirstWriteLong(xwd_header.bitmap_pad,image->file); MSBFirstWriteLong(xwd_header.bits_per_pixel,image->file); MSBFirstWriteLong(xwd_header.bytes_per_line,image->file); MSBFirstWriteLong(xwd_header.visual_class,image->file); MSBFirstWriteLong(xwd_header.red_mask,image->file); MSBFirstWriteLong(xwd_header.green_mask,image->file); MSBFirstWriteLong(xwd_header.blue_mask,image->file); MSBFirstWriteLong(xwd_header.bits_per_rgb,image->file); MSBFirstWriteLong(xwd_header.colormap_entries,image->file); MSBFirstWriteLong(xwd_header.ncolors,image->file); MSBFirstWriteLong(xwd_header.window_width,image->file); MSBFirstWriteLong(xwd_header.window_height,image->file); MSBFirstWriteLong(xwd_header.window_x,image->file); MSBFirstWriteLong(xwd_header.window_y,image->file); MSBFirstWriteLong(xwd_header.window_bdrwidth,image->file); (void) fwrite((char *) image->filename,1,strlen(image->filename)+1, image->file); if (image->class == PseudoClass) { unsigned long lsb_first; XColor *colors; /* Dump colormap to file. */ colors=(XColor *) malloc(image->colors*sizeof(XColor)); if (colors == (XColor *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } lsb_first=1; for (i=0; i < image->colors; i++) { colors[i].pixel=i; colors[i].red=image->colormap[i].red << 8; colors[i].green=image->colormap[i].green << 8; colors[i].blue=image->colormap[i].blue << 8; colors[i].flags=DoRed | DoGreen | DoBlue; colors[i].pad=0; if (*(char *) &lsb_first) { MSBFirstOrderLong((char *) &colors[i].pixel,sizeof(long)); MSBFirstOrderShort((char *) &colors[i].red,3*sizeof(short)); } } (void) fwrite((char *) colors,sizeof(XColor),(int) image->colors, image->file); (void) free((char *) colors); } /* Convert MIFF to XWD raster pixels. */ packets=xwd_header.bytes_per_line*xwd_header.pixmap_height; xwd_pixels=(unsigned char *) malloc((unsigned int) packets*sizeof(unsigned char)); if (xwd_pixels == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } scanline_pad=(unsigned int) (xwd_header.bytes_per_line- ((xwd_header.pixmap_width*xwd_header.bits_per_pixel) >> 3)); x=0; p=image->pixels; q=xwd_pixels; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { if (image->class == PseudoClass) *q++=p->index; else { *q++=p->red; *q++=p->green; *q++=p->blue; } x++; if (x == image->columns) { q+=scanline_pad; x=0; } } p++; } /* Dump pixels to file. */ (void) fwrite((char *) xwd_pixels,1,(int) packets,image->file); (void) free((char *) xwd_pixels); CloseImage(image); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function WriteImage writes an image to a file. You can specify a % particular image format by prefixing the file with the image type and a % colon (i.e. ps:image) or specify the image type as the filename suffix % (i.e. image.ps). % % The format of the WriteImage routine is: % % status=WriteImage(image_info,image) % % A description of each parameter follows: % % o status: Function WriteImage return True if the image is written. % False is returned is there is a memory shortage or if the image file % fails to write. % % o image_info: Specifies a pointer to an ImageInfo structure. % % o image: A pointer to a Image structure. % % */ unsigned int WriteImage(image_info,image) ImageInfo *image_info; Image *image; { unsigned int status; /* Call appropriate image writer based on image type. */ (void) strcpy(image_info->filename,image->filename); (void) strcpy(image_info->magick,image->magick); SetImageMagick(image_info); (void) strcpy(image->filename,image_info->filename); (void) strcpy(image->magick,image_info->magick); switch (*image_info->magick) { case 'A': { status=WriteAVSImage(image); break; } case 'B': { status=WriteBMPImage(image); break; } case 'C': { status=WriteCMYKImage(image,image_info->interlace,image_info->undercolor); break; } case 'E': { status=WritePSImage(image,image_info->page,image_info->density); break; } case 'F': { if (strcmp(image_info->magick,"FAX") == 0) status=WriteFAXImage(image); else status=WriteFITSImage(image); break; } case 'G': { if (strcmp(image_info->magick,"GIF") == 0) status=WriteGIFImage(image); else if (strcmp(image_info->magick,"GIF87") == 0) status=WriteGIFImage(image); else if (strcmp(image_info->magick,"GRAY") == 0) status=WriteGRAYImage(image); else status=WriteFAXImage(image); break; } case 'H': { status=WriteHISTOGRAMImage(image); break; } case 'I': { status=WriteIRISImage(image); break; } case 'J': { status=WriteJPEGImage(image,image_info->quality); break; } case 'M': { if (strcmp(image_info->magick,"MAP") == 0) status=WriteMAPImage(image); else if (strcmp(image_info->magick,"MATTE") == 0) status=WriteMATTEImage(image); else if (strcmp(image_info->magick,"MIFF") == 0) status=WriteMIFFImage(image); else status=WriteMTVImage(image); break; } case 'P': { if (strcmp(image_info->magick,"PCD") == 0) status=WritePCDImage(image); else if (strcmp(image_info->magick,"PCX") == 0) status=WritePCXImage(image); else if (strcmp(image_info->magick,"PICT") == 0) status=WritePICTImage(image); else if (strcmp(image_info->magick,"PM") == 0) status=WriteXPMImage(image,image_info->server_name); else if (strcmp(image_info->magick,"PS") == 0) status=WritePSImage(image,image_info->page,image_info->density); else if (strcmp(image_info->magick,"PS2") == 0) status= WritePS2Image(image,image_info->page,image_info->density); else status=WritePNMImage(image); break; } case 'R': { if (strcmp(image_info->magick,"RAS") == 0) status=WriteSUNImage(image); else if (strcmp(image_info->magick,"RGB") == 0) status=WriteRGBImage(image,image_info->interlace); else status=WriteRLEImage(image); break; } case 'S': { status=WriteSUNImage(image); break; } case 'T': { if (strcmp(image_info->magick,"TGA") == 0) status=WriteTARGAImage(image); else if ((strcmp(image_info->magick,"TIF") == 0) || (strcmp(image_info->magick,"TIFF") == 0)) status=WriteTIFFImage(image,image_info->verbose); else status=WriteTEXTImage(image); break; } case 'V': { if (strcmp(image_info->magick,"VICAR") == 0) status=WriteVICARImage(image); else status=WriteVIFFImage(image); break; } case 'X': { if (strcmp(image_info->magick,"X") == 0) status=WriteXImage(image,image_info->server_name); else if (strcmp(image_info->magick,"XBM") == 0) status=WriteXBMImage(image); else if (strcmp(image_info->magick,"XC") == 0) status=WriteXCImage(image); else if (strcmp(image_info->magick,"XPM") == 0) status=WriteXPMImage(image,image_info->server_name); else if (strcmp(image_info->magick,"XV") == 0) status=WriteVIFFImage(image); else status=WriteXWDImage(image); break; } case 'Y': { if (strcmp(image_info->magick,"YUV") == 0) status=WriteYUVImage(image,image_info->interlace); else status=WriteYUV3Image(image); break; } default: status=WriteMIFFImage(image); } if (image->status) { Warning("An error has occurred writing to file",image->filename); return(False); } return(status); } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W r i t e X B M I m a g e ./ImageMagick/magick/compress.c 644 24 24 225531 5555556174 11677 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % CCCC OOO M M PPPP RRRR EEEEE SSSSS SSSSS % % C O O MM MM P P R R E SS SS % % C O O M M M PPPP RRRR EEE SSS SSS % % C O O M M P R R E SS SS % % CCCC OOO M M P R R EEEEE SSSSS SSSSS % % % % % % Image Compression/Decompression Coders % % % % % % % % Software Design % % John Cristy % % May 1993 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortious action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "utility.h" /* Define declarations. */ #define LowerBound 0 #define MaxContextStates 121 #define MinimumIntervalD (unsigned short) 0xf000 /* ~-0.75 */ #define MinimumIntervalE (unsigned short) 0x1000 /* ~0.75 */ #define No 0 #define UpperBound 2 #define Yes 1 /* State classification. */ #define ZeroState 0 #define SmallPostitiveState 1 #define SmallNegativeState 2 #define LargePostitiveState 3 #define LargeNegativeState 4 /* Typedef declarations. */ typedef struct HuffmanTable { int id, code, length, count; } HuffmanTable; typedef struct _ScanlinePacket { unsigned char pixel; int state; } ScanlinePacket; /* Huffman coding declarations. */ #define TWId 23 #define MWId 24 #define TBId 25 #define MBId 26 #define EXId 27 static HuffmanTable MBTable[]= { { MBId, 0x0f, 10, 64 }, { MBId, 0xc8, 12, 128 }, { MBId, 0xc9, 12, 192 }, { MBId, 0x5b, 12, 256 }, { MBId, 0x33, 12, 320 }, { MBId, 0x34, 12, 384 }, { MBId, 0x35, 12, 448 }, { MBId, 0x6c, 13, 512 }, { MBId, 0x6d, 13, 576 }, { MBId, 0x4a, 13, 640 }, { MBId, 0x4b, 13, 704 }, { MBId, 0x4c, 13, 768 }, { MBId, 0x4d, 13, 832 }, { MBId, 0x72, 13, 896 }, { MBId, 0x73, 13, 960 }, { MBId, 0x74, 13, 1024 }, { MBId, 0x75, 13, 1088 }, { MBId, 0x76, 13, 1152 }, { MBId, 0x77, 13, 1216 }, { MBId, 0x52, 13, 1280 }, { MBId, 0x53, 13, 1344 }, { MBId, 0x54, 13, 1408 }, { MBId, 0x55, 13, 1472 }, { MBId, 0x5a, 13, 1536 }, { MBId, 0x5b, 13, 1600 }, { MBId, 0x64, 13, 1664 }, { MBId, 0x65, 13, 1728 }, { MBId, 0x00, 0, 0 } }; static HuffmanTable EXTable[]= { { EXId, 0x08, 11, 1792 }, { EXId, 0x0c, 11, 1856 }, { EXId, 0x0d, 11, 1920 }, { EXId, 0x12, 12, 1984 }, { EXId, 0x13, 12, 2048 }, { EXId, 0x14, 12, 2112 }, { EXId, 0x15, 12, 2176 }, { EXId, 0x16, 12, 2240 }, { EXId, 0x17, 12, 2304 }, { EXId, 0x1c, 12, 2368 }, { EXId, 0x1d, 12, 2432 }, { EXId, 0x1e, 12, 2496 }, { EXId, 0x1f, 12, 2560 }, { EXId, 0x00, 0, 0 } }; static HuffmanTable MWTable[]= { { MWId, 0x1b, 5, 64 }, { MWId, 0x12, 5, 128 }, { MWId, 0x17, 6, 192 }, { MWId, 0x37, 7, 256 }, { MWId, 0x36, 8, 320 }, { MWId, 0x37, 8, 384 }, { MWId, 0x64, 8, 448 }, { MWId, 0x65, 8, 512 }, { MWId, 0x68, 8, 576 }, { MWId, 0x67, 8, 640 }, { MWId, 0xcc, 9, 704 }, { MWId, 0xcd, 9, 768 }, { MWId, 0xd2, 9, 832 }, { MWId, 0xd3, 9, 896 }, { MWId, 0xd4, 9, 960 }, { MWId, 0xd5, 9, 1024 }, { MWId, 0xd6, 9, 1088 }, { MWId, 0xd7, 9, 1152 }, { MWId, 0xd8, 9, 1216 }, { MWId, 0xd9, 9, 1280 }, { MWId, 0xda, 9, 1344 }, { MWId, 0xdb, 9, 1408 }, { MWId, 0x98, 9, 1472 }, { MWId, 0x99, 9, 1536 }, { MWId, 0x9a, 9, 1600 }, { MWId, 0x18, 6, 1664 }, { MWId, 0x9b, 9, 1728 }, { MWId, 0x00, 0, 0 } }; static HuffmanTable TBTable[]= { { TBId, 0x37, 10, 0 }, { TBId, 0x02, 3, 1 }, { TBId, 0x03, 2, 2 }, { TBId, 0x02, 2, 3 }, { TBId, 0x03, 3, 4 }, { TBId, 0x03, 4, 5 }, { TBId, 0x02, 4, 6 }, { TBId, 0x03, 5, 7 }, { TBId, 0x05, 6, 8 }, { TBId, 0x04, 6, 9 }, { TBId, 0x04, 7, 10 }, { TBId, 0x05, 7, 11 }, { TBId, 0x07, 7, 12 }, { TBId, 0x04, 8, 13 }, { TBId, 0x07, 8, 14 }, { TBId, 0x18, 9, 15 }, { TBId, 0x17, 10, 16 }, { TBId, 0x18, 10, 17 }, { TBId, 0x08, 10, 18 }, { TBId, 0x67, 11, 19 }, { TBId, 0x68, 11, 20 }, { TBId, 0x6c, 11, 21 }, { TBId, 0x37, 11, 22 }, { TBId, 0x28, 11, 23 }, { TBId, 0x17, 11, 24 }, { TBId, 0x18, 11, 25 }, { TBId, 0xca, 12, 26 }, { TBId, 0xcb, 12, 27 }, { TBId, 0xcc, 12, 28 }, { TBId, 0xcd, 12, 29 }, { TBId, 0x68, 12, 30 }, { TBId, 0x69, 12, 31 }, { TBId, 0x6a, 12, 32 }, { TBId, 0x6b, 12, 33 }, { TBId, 0xd2, 12, 34 }, { TBId, 0xd3, 12, 35 }, { TBId, 0xd4, 12, 36 }, { TBId, 0xd5, 12, 37 }, { TBId, 0xd6, 12, 38 }, { TBId, 0xd7, 12, 39 }, { TBId, 0x6c, 12, 40 }, { TBId, 0x6d, 12, 41 }, { TBId, 0xda, 12, 42 }, { TBId, 0xdb, 12, 43 }, { TBId, 0x54, 12, 44 }, { TBId, 0x55, 12, 45 }, { TBId, 0x56, 12, 46 }, { TBId, 0x57, 12, 47 }, { TBId, 0x64, 12, 48 }, { TBId, 0x65, 12, 49 }, { TBId, 0x52, 12, 50 }, { TBId, 0x53, 12, 51 }, { TBId, 0x24, 12, 52 }, { TBId, 0x37, 12, 53 }, { TBId, 0x38, 12, 54 }, { TBId, 0x27, 12, 55 }, { TBId, 0x28, 12, 56 }, { TBId, 0x58, 12, 57 }, { TBId, 0x59, 12, 58 }, { TBId, 0x2b, 12, 59 }, { TBId, 0x2c, 12, 60 }, { TBId, 0x5a, 12, 61 }, { TBId, 0x66, 12, 62 }, { TBId, 0x67, 12, 63 }, { TBId, 0x00, 0, 0 } }; static HuffmanTable TWTable[]= { { TWId, 0x35, 8, 0 }, { TWId, 0x07, 6, 1 }, { TWId, 0x07, 4, 2 }, { TWId, 0x08, 4, 3 }, { TWId, 0x0b, 4, 4 }, { TWId, 0x0c, 4, 5 }, { TWId, 0x0e, 4, 6 }, { TWId, 0x0f, 4, 7 }, { TWId, 0x13, 5, 8 }, { TWId, 0x14, 5, 9 }, { TWId, 0x07, 5, 10 }, { TWId, 0x08, 5, 11 }, { TWId, 0x08, 6, 12 }, { TWId, 0x03, 6, 13 }, { TWId, 0x34, 6, 14 }, { TWId, 0x35, 6, 15 }, { TWId, 0x2a, 6, 16 }, { TWId, 0x2b, 6, 17 }, { TWId, 0x27, 7, 18 }, { TWId, 0x0c, 7, 19 }, { TWId, 0x08, 7, 20 }, { TWId, 0x17, 7, 21 }, { TWId, 0x03, 7, 22 }, { TWId, 0x04, 7, 23 }, { TWId, 0x28, 7, 24 }, { TWId, 0x2b, 7, 25 }, { TWId, 0x13, 7, 26 }, { TWId, 0x24, 7, 27 }, { TWId, 0x18, 7, 28 }, { TWId, 0x02, 8, 29 }, { TWId, 0x03, 8, 30 }, { TWId, 0x1a, 8, 31 }, { TWId, 0x1b, 8, 32 }, { TWId, 0x12, 8, 33 }, { TWId, 0x13, 8, 34 }, { TWId, 0x14, 8, 35 }, { TWId, 0x15, 8, 36 }, { TWId, 0x16, 8, 37 }, { TWId, 0x17, 8, 38 }, { TWId, 0x28, 8, 39 }, { TWId, 0x29, 8, 40 }, { TWId, 0x2a, 8, 41 }, { TWId, 0x2b, 8, 42 }, { TWId, 0x2c, 8, 43 }, { TWId, 0x2d, 8, 44 }, { TWId, 0x04, 8, 45 }, { TWId, 0x05, 8, 46 }, { TWId, 0x0a, 8, 47 }, { TWId, 0x0b, 8, 48 }, { TWId, 0x52, 8, 49 }, { TWId, 0x53, 8, 50 }, { TWId, 0x54, 8, 51 }, { TWId, 0x55, 8, 52 }, { TWId, 0x24, 8, 53 }, { TWId, 0x25, 8, 54 }, { TWId, 0x58, 8, 55 }, { TWId, 0x59, 8, 56 }, { TWId, 0x5a, 8, 57 }, { TWId, 0x5b, 8, 58 }, { TWId, 0x4a, 8, 59 }, { TWId, 0x4b, 8, 60 }, { TWId, 0x32, 8, 61 }, { TWId, 0x33, 8, 62 }, { TWId, 0x34, 8, 63 }, { TWId, 0x00, 0, 0 } }; /* Static Q-coder declarations. */ static int decrement_less_probable[]= { 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 3, 2 }; static int increment_more_probable[]= { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0 }; static int more_probable_exchange[]= { 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; static int statistics[][5]= { 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64, 68, 72, 76, 80, 84, 88, 92, 96 }; static unsigned short probability[]= { 0x0ac1, 0x0a81, 0x0a01, 0x0901, 0x0701, 0x0681, 0x0601, 0x0501, 0x0481, 0x0441, 0x0381, 0x0301, 0x02c1, 0x0281, 0x0241, 0x0181, 0x0121, 0x00e1, 0x00a1, 0x0071, 0x0059, 0x0053, 0x0027, 0x0017, 0x0013, 0x000b, 0x0007, 0x0005, 0x0003, 0x0001 }; /* Declarations and initializations for predictive arithimetic coder. */ static int code, less_probable[MaxContextStates], more_probable[MaxContextStates], probability_estimate[MaxContextStates]; static unsigned char *q; static unsigned short interval; /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % B M P D e c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function BMPDecodeImage unpacks the packed image pixels into % runlength-encoded pixel packets. % % The format of the BMPDecodeImage routine is: % % status=BMPDecodeImage(compressed_pixels,pixels,compression, % number_columns,number_rows) % % A description of each parameter follows: % % o status: Function BMPDecodeImage returns True if all the pixels are % uncompressed without error, otherwise False. % % o compressed_pixels: The address of a byte (8 bits) array of compressed % pixel data. % % o pixels: The address of a byte (8 bits) array of pixel data created by % the decoding process. % % o compression: A value of 1 means the compressed pixels are runlength % encoded for a 256-color bitmap. A value of 2 means a 16-color bitmap. % % o number_columns: An integer value that is the number of columns or % width in pixels of your source image. % % o number_rows: An integer value that is the number of rows or % heigth in pixels of your source image. % % */ unsigned int BMPDecodeImage(compressed_pixels,pixels,compression, number_columns,number_rows) unsigned char *compressed_pixels, *pixels; unsigned int compression, number_columns, number_rows; { register int i, x, y; register unsigned char *p, *q; unsigned char byte, count; p=compressed_pixels; q=pixels; x=0; for (y=0; y < number_rows; ) { count=(*p++); if (count != 0) { /* Encoded mode. */ byte=(*p++); for (i=0; i < (int) count; i++) { if (compression == 1) *q++=byte; else *q++=(i & 0x01) ? (byte & 0x0f) : ((byte >> 4) & 0x0f); x++; } } else { /* Escape mode. */ count=(*p++); if (count == 0x01) return(True); switch (count) { case 0x00: { /* End of line. */ x=0; y++; q=pixels+y*number_columns; break; } case 0x02: { /* Delta mode. */ x+=(*p++); y+=(*p++); q=pixels+y*number_columns+x; break; } default: { /* Absolute mode. */ for (i=0; i < (int) count; i++) { if (compression == 1) *q++=(*p++); else { if ((i & 0x01) == 0) byte=(*p++); *q++=(i & 0x01) ? (byte & 0x0f) : ((byte >> 4) & 0x0f); } x++; } /* Read pad byte. */ if (compression == 1) { if (count & 0x01) p++; } else if (((count & 0x03) == 1) || ((count & 0x03) == 2)) p++; break; } } } } return(False); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % B M P E n c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function BMPEncodeImage compresses pixels using a runlength encoded format. % % The format of the BMPEncodeImage routine is: % % status=BMPEncodeImage(pixels,compressed_pixels,number_columns, % number_rows) % % A description of each parameter follows: % % o status: Function BMPEncodeImage returns the number of bytes in the % runlength encoded compress_pixels array. % % o pixels: The address of a byte (8 bits) array of pixel data created by % the compression process. % % o compressed_pixels: The address of a byte (8 bits) array of compressed % pixel data. % % o number_columns: An integer value that is the number of columns or % width in pixels of your source image. % % o number_rows: An integer value that is the number of rows or % heigth in pixels of your source image. % % */ unsigned int BMPEncodeImage(pixels,compressed_pixels,number_columns,number_rows) unsigned char *pixels, *compressed_pixels; unsigned int number_columns, number_rows; { register int i, x, y; register unsigned char *p, *q; /* Runlength encode pixels. */ p=pixels; q=compressed_pixels; for (y=0; y < number_rows; y++) { for (x=0; x < number_columns; x+=i) { /* Determine runlength. */ for (i=1; ((x+i) < number_columns); i++) if ((*(p+i) != *p) || (i == 255)) break; *q++=i; *q++=(*p); p+=i; } /* End of line. */ *q++=0; *q++=0x00; } /* End of bitmap. */ *q++=0; *q++=0x01; return(q-compressed_pixels); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D e c o d e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Decode uncompresses a string. % % The format of the Decode routine is: % % Decode(state,decision) % % A description of each parameter follows: % % o state: An integer value representing the current state. % % o decision: A pointer to an integer. The output of the binary % decision (Yes/No) is returned in this value. % % */ static void Decode(state,decision) register int state, *decision; { interval+=probability[probability_estimate[state]]; if (((code >> 16) & 0xffff) < ((int) interval)) { code-=(interval << 16); interval=(-probability[probability_estimate[state]]); *decision=less_probable[state]; } else { *decision=more_probable[state]; if (interval <= MinimumIntervalD) return; } do { if ((code & 0xff) == 0) { code&=0xffff0000; if ((*q++) == 0xff) code+=((int) (*q) << 9)+0x02; else code+=((int) (*q) << 8)+0x01; } interval<<=1; code<<=1; } while (interval > MinimumIntervalD); /* Update probability estimates. */ if (*decision == more_probable[state]) probability_estimate[state]+= increment_more_probable[probability_estimate[state]]; else probability_estimate[state]-= decrement_less_probable[probability_estimate[state]]; if (more_probable_exchange[probability_estimate[state]] != 0) { /* Exchange sense of most probable and least probable. */ less_probable[state]=more_probable[state]; more_probable[state]=1-more_probable[state]; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % E n c o d e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Encode generate compressed data string by encoding yes-no decision % given state s. % % The format of the Encode routine is: % % Encode(state,decision) % % A description of each parameter follows: % % o state: An integer value representing the current state. % % o decision: An integer value representing a binary decision. % % */ static void Encode(state,decision) register int state, decision; { /* Test on "most-probable-symbol" for state s(more_probable[state]) */ interval-=probability[probability_estimate[state]]; if (more_probable[state] != decision) { code-=interval; interval=probability[probability_estimate[state]]; } else if (interval >= MinimumIntervalE) return; /* Encoder renormalization. */ do { interval<<=1; if (code >= 0) code<<=1; else { /* Shift unsigned char of data from Code register to compressed string. */ code<<=1; if (code > 0) { /* Add eight bits from Code register to compressed data string. */ (*q++)--; *q=(unsigned char) (code >> 16); code&=0x0000ffff; code|=0x01800000; } else { code&=0x01ffffff; if ((int) interval > code) { /* Add eight bits from Code register to compressed data string. */ (*q++)--; *q=0xff; code|=0x01810000; } else if ((*q++) == 0xff) { /* Add seven bits from Code register plus one stuffed bit to compressed data string. */ *q=(unsigned char) (code >> 17); code&=0x0001ffff; code|=0x03000000; } else { /* Add eight bits from Code register to compressed data string. */ *q=(unsigned char) (code >> 16); code&=0x0000ffff; code|=0x01800000; } } } } while (interval < MinimumIntervalE); /* Update probability estimates */ if (decision == more_probable[state]) probability_estimate[state]+= increment_more_probable[probability_estimate[state]]; else probability_estimate[state]-= decrement_less_probable[probability_estimate[state]]; if (more_probable_exchange[probability_estimate[state]] != 0) more_probable[state]=1-more_probable[state]; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % F l u s h % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Flush flushes the final bits of data from the Code register to the % compressed data string. % % The format of the Flush routine is: % % Flush() % % */ static void Flush() { register int extra_bits; code-=interval; extra_bits=24; extra_bits--; while (code >= 0) { code<<=1; extra_bits--; } code<<=1; if (code > 0) (*q)--; /* Add the final compressed data unsigned chars to the compressed data string. */ do { if ((*q++) == 0xff) { /* Add seven bits of data plus one stuffed bit to the compressed data string during final Flush of Code register. */ *q=(unsigned char) (code >> 17); code&=0x0001ffff; code<<=7; extra_bits-=7; } else { /* Add eight bits of data to the compressed data string during final flush of Code register. */ *q=(unsigned char) (code >> 16); code&=0x0000ffff; code<<=8; extra_bits-=8; } } while (extra_bits > 0); q++; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % H u f f m a n D e c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function HuffmanDecodeImage uncompresses an image via Huffman-coding. % % The format of the HuffmanDecodeImage routine is: % % status=HuffmanDecodeImage(image) % % A description of each parameter follows: % % o status: Function HuffmanDecodeImage returns True if all the pixels are % compressed without error, otherwise False. % % o image: The address of a structure of type Image. % % */ unsigned int HuffmanDecodeImage(image) Image *image; { #define HashSize 1021 #define MBHashA 293 #define MBHashB 2695 #define MWHashA 3510 #define MWHashB 1178 #define InitializeHashTable(hash,table,a,b) \ { \ entry=table; \ while (entry->code != 0) \ { \ hash[((entry->length+a)*(entry->code+b)) % HashSize]=entry; \ entry++; \ } \ } #define InputBit(bit) \ { \ if ((mask & 0xff) == 0) \ { \ byte=getc(image->file); \ mask=0x80; \ } \ runlength++; \ bit=byte & mask ? 1 : 0; \ mask>>=1; \ if (bit) \ runlength=0; \ } HuffmanTable *entry, **mb_hash, **mw_hash; int code, color, count, length, null_lines, runlength, x, y; register int i; register RunlengthPacket *q; register unsigned char *p; unsigned char bit, byte, mask, *scanline; /* Allocate buffers. */ mb_hash=(HuffmanTable **) malloc(HashSize*sizeof(HuffmanTable *)); mw_hash=(HuffmanTable **) malloc(HashSize*sizeof(HuffmanTable *)); scanline=(unsigned char *) malloc(image->columns*sizeof(unsigned char)); if ((mb_hash == (HuffmanTable **) NULL) || (mw_hash == (HuffmanTable **) NULL) || (scanline == (unsigned char *) NULL)) { Warning("Unable to allocate memory",(char *) NULL); return(False); } /* Initialize Huffman tables. */ for (i=0; i < HashSize; i++) { mb_hash[i]=(HuffmanTable *) NULL; mw_hash[i]=(HuffmanTable *) NULL; } InitializeHashTable(mw_hash,TWTable,MWHashA,MWHashB); InitializeHashTable(mw_hash,MWTable,MWHashA,MWHashB); InitializeHashTable(mw_hash,EXTable,MWHashA,MWHashB); InitializeHashTable(mb_hash,TBTable,MBHashA,MBHashB); InitializeHashTable(mb_hash,MBTable,MBHashA,MBHashB); InitializeHashTable(mb_hash,EXTable,MBHashA,MBHashB); /* Uncompress 1D Huffman to runlength encoded pixels. */ mask=0; null_lines=0; q=image->pixels; for (y=0; ((y < image->rows) && (null_lines < 3)); y++) { /* Initialize scanline to white. */ p=scanline; for (x=0; x < image->columns; x++) *p++=0; /* Decode Huffman encoded scanline. */ color=True; code=0; count=0; length=0; runlength=0; for (x=0; x < image->columns; ) { do { if (runlength < 11) InputBit(bit) else { InputBit(bit); if (bit) length=13; } code=(code << 1)+bit; length++; } while ((code <= 0) && (length < 14)); if (length > 13) break; if (color) { if (length < 4) continue; entry=mw_hash[((length+MWHashA)*(code+MWHashB)) % HashSize]; } else { if (length < 2) continue; entry=mb_hash[((length+MBHashA)*(code+MBHashB)) % HashSize]; } if (!entry) continue; else if ((entry->length != length) || (entry->code != code)) continue; switch (entry->id) { case TWId: case TBId: { count+=entry->count; if ((x+count) > image->columns) count=image->columns-x; if (count > 0) if (color) { x+=count; count=0; } else for ( ; count > 0; count--) scanline[x++]=1; color=!color; break; } case MWId: case MBId: { count+=entry->count; break; } case EXId: { count+=entry->count; break; } default: break; } code=0; length=0; } null_lines++; if (x != 0) { /* Skip to end of scanline. */ while (runlength < 11) InputBit(bit); do { InputBit(bit); } while (bit == 0); null_lines=0; } /* Transfer scanline to image pixels. */ p=scanline; for (x=0; x < image->columns; x++) { q->index=(unsigned short) (*p); q->length=0; p++; q++; } } image->rows=y-1; /* Free decoder memory. */ (void) free((char *) mw_hash); (void) free((char *) mb_hash); (void) free((char *) scanline); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % H u f f m a n E n c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function HuffmanEncodeImage compresses an image via Huffman-coding. % % The format of the HuffmanEncodeImage routine is: % % status=HuffmanEncodeImage(image) % % A description of each parameter follows: % % o status: Function HuffmanEncodeImage returns True if all the pixels are % compressed without error, otherwise False. % % o image: The address of a structure of type Image. % % */ unsigned int HuffmanEncodeImage(image) Image *image; { #define HuffmanOutputCode(entry) \ { \ mask=1 << (entry->length-1); \ while (mask != 0) \ { \ OutputBit((entry->code & mask ? 1 : 0)); \ mask>>=1; \ } \ } #define OutputBit(count) \ { \ if(count > 0) \ byte=byte | bit; \ bit>>=1; \ if ((bit & 0xff) == 0) \ { \ (void) fputc((char) byte,image->file); \ byte=0; \ bit=0x80; \ } \ } HuffmanTable *entry; int i, k, runlength; register int j, n, x; register RunlengthPacket *p; register unsigned char *q; register unsigned short polarity; unsigned char bit, byte, *scanline; unsigned int mask; /* Allocate scanline buffer. */ scanline=(unsigned char *) malloc((Max(image->columns,1728)+1)*sizeof(unsigned char)); if (scanline == (unsigned char *) NULL) { Warning("Unable to allocate memory",(char *) NULL); return(False); } /* Compress runlength encoded to 1D Huffman pixels. */ polarity=0; if (image->colors == 2) polarity=(Intensity(image->colormap[0]) > Intensity(image->colormap[1]) ? 0 : 1); q=scanline; for (i=0; i < Max(image->columns,1728); i++) *q++=polarity; byte=0; bit=0x80; p=image->pixels; q=scanline; x=0; for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=(unsigned char) (p->index == polarity ? polarity : !polarity); x++; if (x < image->columns) continue; /* Huffman encode scanline. */ q=scanline; for (n=Max(image->columns,1728); n > 0; ) { /* Output white run. */ for (runlength=0; ((*q == polarity) && (n > 0)); n--) { q++; runlength++; } if (runlength >= 64) { entry=MWTable+((runlength/64)-1); runlength-=entry->count; HuffmanOutputCode(entry); } entry=TWTable+runlength; HuffmanOutputCode(entry); if (n != 0) { /* Output black run. */ for (runlength=0; ((*q != polarity) && (n > 0)); n--) { q++; runlength++; } if (runlength >= 64) { entry=MBTable+((runlength/64)-1); runlength-=entry->count; HuffmanOutputCode(entry); } entry=TBTable+runlength; HuffmanOutputCode(entry); } } /* End of line. */ for (k=0; k < 11; k++) OutputBit(0); OutputBit(1); x=0; q=scanline; } p++; } /* End of page. */ for (i=0; i < 6; i++) { for (k=0; k < 11; k++) OutputBit(0); OutputBit(1); } /* Flush bits. */ if (bit != 0x80) (void) fputc((char) byte,image->file); (void) free((char *) scanline); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L Z W D e c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LZWDecodeImage uncompresses an image via LZW-coding. % % The format of the LZWDecodeImage routine is: % % status=LZWDecodeImage(image) % % A description of each parameter follows: % % o status: Function LZWDecodeImage returns True if all the pixels are % uncompressed without error, otherwise False. % % o image: The address of a structure of type Image. % % */ unsigned int LZWDecodeImage(image) Image *image; { #define MaxStackSize 4096 #define NullCode (-1) int available, clear, code_mask, code_size, end_of_information, in_code, old_code; register int bits, code, count, i; register RunlengthPacket *p; register unsigned char *c; register unsigned int datum; short *prefix; unsigned char data_size, first, *packet, *pixel_stack, *suffix, *top_stack; /* Allocate decoder tables. */ packet=(unsigned char *) malloc(256*sizeof(unsigned char)); prefix=(short *) malloc(MaxStackSize*sizeof(short)); suffix=(unsigned char *) malloc(MaxStackSize*sizeof(unsigned char)); pixel_stack=(unsigned char *) malloc(MaxStackSize*sizeof(unsigned char)); if ((packet == (unsigned char *) NULL) || (prefix == (short *) NULL) || (suffix == (unsigned char *) NULL) || (pixel_stack == (unsigned char *) NULL)) return(False); /* Initialize LZW data stream decoder. */ data_size=fgetc(image->file); clear=1 << data_size; end_of_information=clear+1; available=clear+2; old_code=NullCode; code_size=data_size+1; code_mask=(1 << code_size)-1; for (code=0; code < clear; code++) { prefix[code]=0; suffix[code]=code; } /* Decode LZW pixel stream. */ datum=0; bits=0; c=0; count=0; first=0; top_stack=pixel_stack; p=image->pixels; for (i=0; i < image->packets; ) { if (top_stack == pixel_stack) { if (bits < code_size) { /* Load bytes until there is enough bits for a code. */ if (count == 0) { /* Read a new data block. */ count=ReadDataBlock((char *) packet,image->file); if (count <= 0) break; c=packet; } datum+=(*c) << bits; bits+=8; c++; count--; continue; } /* Get the next code. */ code=datum & code_mask; datum>>=code_size; bits-=code_size; /* Interpret the code */ if ((code > available) || (code == end_of_information)) break; if (code == clear) { /* Reset decoder. */ code_size=data_size+1; code_mask=(1 << code_size)-1; available=clear+2; old_code=NullCode; continue; } if (old_code == NullCode) { *top_stack++=suffix[code]; old_code=code; first=code; continue; } in_code=code; if (code == available) { *top_stack++=first; code=old_code; } while (code > clear) { *top_stack++=suffix[code]; code=prefix[code]; } first=suffix[code]; /* Add a new string to the string table, */ *top_stack++=first; prefix[available]=old_code; suffix[available]=first; available++; if (((available & code_mask) == 0) && (available < MaxStackSize)) { code_size++; code_mask+=available; } old_code=in_code; } /* Pop a pixel off the pixel stack. */ top_stack--; p->index=(unsigned short) *top_stack; p->length=0; p++; i++; } /* Initialize any remaining color packets to a known color. */ for ( ; i < image->packets; i++) { p->index=0; p->length=0; p++; } SyncImage(image); /* Free decoder memory. */ (void) free((char *) pixel_stack); (void) free((char *) suffix); (void) free((char *) prefix); (void) free((char *) packet); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L Z W E n c o d e F i l t e r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LZWEncodeFilter compresses an image via LZW-coding specific to % Postscript Level II. % % The format of the LZWEncodeFilter routine is: % % status=LZWEncodeFilter(file,pixels,number_pixels) % % A description of each parameter follows: % % o status: Function LZWEncodeFilter returns True if all the pixels are % compressed without error, otherwise False. % % o file: The address of a structure of type FILE. LZW encoded pixels % are written to this file. % % o pixels: The address of an unsigned array of characters containing the % pixels to compress. % % o number_pixels: An unsigned interger that specifies the number of % pixels to compress. % % */ unsigned int LZWEncodeFilter(file,pixels,number_pixels) FILE *file; unsigned char *pixels; unsigned int number_pixels; { #define LZWClr 256 /* Clear Table Marker */ #define LZWEod 257 /* End of Data marker */ #define OutputCode(code) \ { \ accumulator+=((long) code) << (32-code_width-number_bits); \ number_bits+=code_width; \ while (number_bits >= 8) \ { \ PrintByte(accumulator >> 24); \ accumulator=accumulator << 8; \ number_bits-=8; \ } \ } #define PrintByte(value) \ { \ (void) fprintf(file,"%02x",(int) (value & 0x0ff)); \ count++; \ if (count >= 36) \ { \ (void) fputc('\n',file); \ count=0; \ } \ } typedef struct _TableType { short prefix, suffix, next; } TableType; int index; register int i; short number_bits, code_width, count, last_code, next_index; TableType *table; unsigned long accumulator; /* Allocate string table. */ table=(TableType *) malloc((1 << 12)*sizeof(TableType)); if (table == (TableType *) NULL) return(False); /* Initialize variables. */ accumulator=0; code_width=9; count=0; number_bits=0; last_code=0; OutputCode(LZWClr); for (index=0; index < 256; index++) { table[index].prefix=(-1); table[index].suffix=index; table[index].next=(-1); } next_index=LZWEod+1; code_width=9; last_code=pixels[0]; for (i=1; i < number_pixels; i++) { /* Find string. */ index=last_code; while (index != -1) if ((table[index].prefix != last_code) || (table[index].suffix != pixels[i])) index=table[index].next; else { last_code=index; break; } if (last_code != index) { /* Add string. */ OutputCode(last_code); table[next_index].prefix=last_code; table[next_index].suffix=pixels[i]; table[next_index].next=table[last_code].next; table[last_code].next=next_index; next_index++; /* Did we just move up to next bit width? */ if ((next_index >> code_width) != 0) { code_width++; if (code_width > 12) { /* Did we overflow the max bit width? */ code_width--; OutputCode(LZWClr); for (index=0; index < 256; index++) { table[index].prefix=(-1); table[index].suffix=index; table[index].next=(-1); } next_index=LZWEod+1; code_width=9; } } last_code=pixels[i]; } } /* Flush tables. */ OutputCode(last_code); OutputCode(LZWEod); if (number_bits != 0) PrintByte(accumulator >> 24); (void) free(table); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L Z W E n c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LZWEncodeImage compresses an image via LZW-coding. % % The format of the LZWEncodeImage routine is: % % status=LZWEncodeImage(image,data_size) % % A description of each parameter follows: % % o status: Function LZWEncodeImage returns True if all the pixels are % compressed without error, otherwise False. % % o image: The address of a structure of type Image. % % */ unsigned int LZWEncodeImage(image,data_size) Image *image; unsigned int data_size; { #define MaxCode(number_bits) ((1 << (number_bits))-1) #define MaxHashTable 5003 #define MaxLZWBits 12 #define MaxLZWTable (1 << MaxLZWBits) #define LZWOutputCode(code) \ { \ /* \ Emit a code. \ */ \ if (bits > 0) \ datum|=((long) code << bits); \ else \ datum=(long) code; \ bits+=number_bits; \ while (bits >= 8) \ { \ /* \ Add a character to current packet. \ */ \ packet[byte_count++]=(unsigned char) (datum & 0xff); \ if (byte_count >= 254) \ { \ (void) fputc(byte_count,image->file); \ (void) fwrite((char *) packet,1,byte_count,image->file); \ byte_count=0; \ } \ datum>>=8; \ bits-=8; \ } \ if (free_code > max_code) \ { \ number_bits++; \ if (number_bits == MaxLZWBits) \ max_code=MaxLZWTable; \ else \ max_code=MaxCode(number_bits); \ } \ } int bits, byte_count, next_pixel, number_bits; long datum; register int displacement, i, j; register RunlengthPacket *p; short clear_code, end_of_information_code, free_code, *hash_code, *hash_prefix, index, max_code, waiting_code; unsigned char *packet, *hash_suffix; /* Uncompress image. */ if (!UncompressImage(image)) return(False); /* Allocate encoder tables. */ packet=(unsigned char *) malloc(256*sizeof(unsigned char)); hash_code=(short *) malloc(MaxHashTable*sizeof(short)); hash_prefix=(short *) malloc(MaxHashTable*sizeof(short)); hash_suffix=(unsigned char *) malloc(MaxHashTable*sizeof(unsigned char)); if ((packet == (unsigned char *) NULL) || (hash_code == (short *) NULL) || (hash_prefix == (short *) NULL) || (hash_suffix == (unsigned char *) NULL)) return(False); /* Initialize LZW encoder. */ number_bits=data_size; max_code=MaxCode(number_bits); clear_code=((short) 1 << (data_size-1)); end_of_information_code=clear_code+1; free_code=clear_code+2; byte_count=0; datum=0; bits=0; for (i=0; i < MaxHashTable; i++) hash_code[i]=0; LZWOutputCode(clear_code); /* Encode pixels. */ p=image->pixels; waiting_code=p->index; for (i=1; i < (image->columns*image->rows); i++) { /* Probe hash table. */ p++; index=p->index & 0xff; j=(int) ((int) index << (MaxLZWBits-8))+waiting_code; if (j >= MaxHashTable) j-=MaxHashTable; if (hash_code[j] > 0) { if ((hash_prefix[j] == waiting_code) && (hash_suffix[j] == index)) { waiting_code=hash_code[j]; continue; } if (j == 0) displacement=1; else displacement=MaxHashTable-j; next_pixel=False; for ( ; ; ) { j-=displacement; if (j < 0) j+=MaxHashTable; if (hash_code[j] == 0) break; if ((hash_prefix[j] == waiting_code) && (hash_suffix[j] == index)) { waiting_code=hash_code[j]; next_pixel=True; break; } } if (next_pixel == True) continue; } LZWOutputCode(waiting_code); if (free_code < MaxLZWTable) { hash_code[j]=free_code++; hash_prefix[j]=waiting_code; hash_suffix[j]=index; } else { /* Fill the hash table with empty entries. */ for (j=0; j < MaxHashTable; j++) hash_code[j]=0; /* Reset compressor and issue a clear code. */ free_code=clear_code+2; LZWOutputCode(clear_code); number_bits=data_size; max_code=MaxCode(number_bits); } waiting_code=index; } /* Flush out the buffered code. */ LZWOutputCode(waiting_code); LZWOutputCode(end_of_information_code); if (bits > 0) { /* Add a character to current packet. */ packet[byte_count++]=(unsigned char) (datum & 0xff); if (byte_count >= 254) { (void) fputc(byte_count,image->file); (void) fwrite((char *) packet,1,byte_count,image->file); byte_count=0; } } /* Flush accumulated data. */ if (byte_count > 0) { (void) fputc(byte_count,image->file); (void) fwrite((char *) packet,1,byte_count,image->file); } /* Free encoder memory. */ (void) free((char *) hash_suffix); (void) free((char *) hash_prefix); (void) free((char *) hash_code); (void) free((char *) packet); if (i < image->packets) return(False); return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % P a c k b i t s E n c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function PackbitsEncodeImage compresses an image via Macintosh pack bits % encoding. % % The format of the PackbitsEncodeImage routine is: % % status=PackbitsEncodeImage(image,scanline,packbits) % % A description of each parameter follows: % % o status: Function PackbitsEncodeImage returns True if all the pixels are % compressed without error, otherwise False. % % o image: The address of a structure of type Image. % % o scanline: A pointer to an array of characters to pack. % % o packbits: A pointer to an array of characters where the packed % characters are stored. % % */ unsigned int PackbitsEncodeImage(image,scanline,packbits) Image *image; unsigned char *scanline, *packbits; { #define MaxCount 128 #define MaxPackBitsRunlength 128 int count, number_packets, repeat_count, runlength; register int i; register unsigned char *p, *q; unsigned char index; unsigned int bytes_per_line; /* Pack scanline. */ bytes_per_line=image->columns; if (image->class == DirectClass) bytes_per_line*=3; count=0; runlength=0; p=scanline+(bytes_per_line-1); q=packbits; index=(*p); for (i=bytes_per_line-1; i >= 0; i--) { if (index == *p) runlength++; else { if (runlength < 3) while (runlength > 0) { *q++=index; runlength--; count++; if (count == MaxCount) { *q++=MaxCount-1; count-=MaxCount; } } else { if (count > 0) *q++=count-1; count=0; while (runlength > 0) { repeat_count=runlength; if (repeat_count > MaxPackBitsRunlength) repeat_count=MaxPackBitsRunlength; *q++=index; *q++=257-repeat_count; runlength-=repeat_count; } } runlength=1; } index=(*p); p--; } if (runlength < 3) while (runlength > 0) { *q++=index; runlength--; count++; if (count == MaxCount) { *q++=MaxCount-1; count-=MaxCount; } } else { if (count > 0) *q++=count-1; count=0; while (runlength > 0) { repeat_count=runlength; if (repeat_count > MaxPackBitsRunlength) repeat_count=MaxPackBitsRunlength; *q++=index; *q++=257-repeat_count; runlength-=repeat_count; } } if (count > 0) *q++=count-1; /* Write the number of and the packed packets. */ number_packets=q-packbits; if ((bytes_per_line-1) > 250) { MSBFirstWriteShort((unsigned short) number_packets,image->file); number_packets+=2; } else { index=number_packets; (void) fputc((char) index,image->file); number_packets++; } while (q != packbits) { q--; (void) fputc((char) *q,image->file); } return(number_packets); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Q D e c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function QDecodeImage uncompresses an image via Q-coding. % % The format of the QDecodeImage routine is: % % count=QDecodeImage(compressed_pixels,pixels,number_columns,number_rows) % % A description of each parameter follows: % % o count: The QDecodeImage routine returns this integer value. It is % the actual number of pixels created by the decompression process. % % o compressed_pixels: The address of a byte (8 bits) array of compressed % pixel data. % % o pixels: The address of a byte (8 bits) array of pixel data created by % the uncompression process. The number of bytes in this array % must be at least equal to the number columns times the number of rows % of the source pixels. % % o number_columns: An integer value that is the number of columns or % width in pixels of your source image. % % o number_rows: An integer value that is the number of rows or % heigth in pixels of your source image. % % */ unsigned int QDecodeImage(compressed_pixels,pixels,number_columns,number_rows) unsigned char *compressed_pixels, *pixels; unsigned int number_columns, number_rows; { int decision, i, prediction, row; register int column, magnitude, sign, state, value; register ScanlinePacket *cs, *ls; register unsigned char *p; ScanlinePacket *scanline; for (i=0; i < MaxContextStates; i++) { probability_estimate[i]=0; more_probable[i]=0; less_probable[i]=1; } /* Allocate scanline for row values and states */ scanline=(ScanlinePacket *) malloc((((number_columns+1) << 1)*sizeof(ScanlinePacket))); if (scanline == (ScanlinePacket *) NULL) { Warning("Unable to compress image, Unable to allocate memory", (char *) NULL); exit(1); } cs=scanline; for (i=0; i < ((number_columns+1) << 1); i++) { cs->pixel=0; cs->state=ZeroState; cs++; } interval=MinimumIntervalD; p=pixels; q=compressed_pixels+1; /* Add a new unsigned char of compressed data to the Code register. */ code=(int) (*q) << 16; if ((*q++) == 0xff) code+=((int) (*q) << 9)+0x02; else code+=((*q) << 8)+0x01; code<<=4; code+=(interval << 16); /* Decode each image scanline. */ for (row=0; row < number_rows; row++) { ls=scanline+(number_columns+1)*((row+0) % 2); cs=scanline+(number_columns+1)*((row+1) % 2); for (column=0; column < number_columns; column++) { prediction=(int) cs->pixel-(int) ls->pixel; ls++; prediction+=(int) ls->pixel; state=statistics[cs->state][ls->state]; cs++; cs->state=ZeroState; /* Branch for zero code value */ Decode(state,&decision); if (decision == No) value=0; else { /* Decode sign information */ state++; Decode(state,&decision); if (decision == Yes) sign=(-1); else { sign=1; state++; } state++; /* Branch for value=+-1 */ Decode(state,&decision); if (decision == No) value=1; else { /* Establish magnitude of value. */ magnitude=2; state=100; Decode(state,&decision); while (decision != No) { if (state < 107) state++; magnitude<<=1; Decode(state,&decision); } /* Code remaining bits. */ state+=7; value=1; magnitude>>=2; if (magnitude != 0) { Decode(state,&decision); state+=6; value=(value << 1) | decision; magnitude>>=1; while (magnitude != 0) { Decode(state,&decision); value=(value << 1) | decision; magnitude>>=1; } } value++; } if (value > LowerBound) if (value <= UpperBound) cs->state= (sign < ZeroState ? SmallPostitiveState : SmallNegativeState); else cs->state= (sign < ZeroState ? LargePostitiveState : LargeNegativeState); if (sign < 0) value=(-value); } cs->pixel=(unsigned char) (value+prediction); *p++=cs->pixel; } } (void) free((char *) scanline); return((unsigned int) (p-pixels)); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % Q E n c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function QEncodeImage compresses an image via q-coding. QEncodeImage uses % a simple predictive method. The predictor combines three neighboring % samples (A, B, and C) to form a prediction of the sample X: % % C B % A X % % The prediction formula is A + B - C. The prediction is subtracted from % from the actual sample X and the difference is encoded by an arithmetic % entropy coding method. % % The format of the QEncodeImage routine is: % % count=QEncodeImage(pixels,compressed_pixels,number_columns,number_rows) % % A description of each parameter follows: % % o count: The QEncodeImage routine returns this integer value. It is % the actual number of compressed pixels created by the compression % process. % % o pixels: The address of a byte (8 bits) array of pixel data. % % o compressed_pixels: The address of a byte (8 bits) array of pixel data % created by the compression process. The number of bytes in this array % must be at least equal to the number columns times the number of rows % of the source pixels to allow for the possibility that no compression % is possible. The actual number of bytes used is reflected by the % count parameter. % % o number_columns: An integer value that is the number of columns or % width in pixels of your source image. % % o number_rows: An integer value that is the number of rows or % heigth in pixels of your source image. % % % */ unsigned int QEncodeImage(pixels,compressed_pixels,number_columns,number_rows) unsigned char *pixels, *compressed_pixels; unsigned int number_columns, number_rows; { int i, prediction, row; register int column, magnitude, sign, state, value; register ScanlinePacket *cs, *ls; register unsigned char *p; ScanlinePacket *scanline; void Flush(); for (i=0; i < MaxContextStates; i++) { probability_estimate[i]=0; more_probable[i]=0; } /* Allocate scanline for row values and states. */ scanline=(ScanlinePacket *) malloc(((number_columns+1) << 1)*sizeof(ScanlinePacket)); if (scanline == (ScanlinePacket *) NULL) { Warning("Unable to compress image, Unable to allocate memory", (char *) NULL); exit(1); } cs=scanline; for (i=0; i < ((number_columns+1) << 1); i++) { cs->pixel=0; cs->state=ZeroState; cs++; } interval=MinimumIntervalE; p=pixels; q=compressed_pixels; (*q)++; code=0x00180000; /* Encode each scanline. */ for (row=0; row < number_rows; row++) { ls=scanline+(number_columns+1)*((row+0) % 2); cs=scanline+(number_columns+1)*((row+1) % 2); for (column=0; column < number_columns; column++) { prediction=(int) cs->pixel-(int) ls->pixel; ls++; prediction+=(int) ls->pixel; state=statistics[cs->state][ls->state]; cs++; cs->pixel=(*p++); cs->state=ZeroState; value=(int) cs->pixel-prediction; Encode(state,(value == 0 ? No : Yes)); if (value != 0) { /* Code sign information */ state++; sign=(value < 0 ? -1 : 1); Encode(state,(sign >= 0 ? No : Yes)); if (sign < 0) value=(-value); else state++; state++; value--; /* Branch for code=+-1 */ Encode(state,(value == 0 ? No : Yes)); if (value != 0) { /* Establish magnitude of value. */ state=100; magnitude=2; while (value >= magnitude) { Encode(state,Yes); if (state < 107) state++; magnitude<<=1; } Encode(state,No); /* Code remaining bits */ state+=7; magnitude>>=2; if (magnitude != 0) { Encode(state,((magnitude & value) == 0 ? No : Yes)); state+=6; magnitude>>=1; while (magnitude != 0) { Encode(state,((magnitude & value) == 0 ? No : Yes)); magnitude>>=1; } } } if (value >= LowerBound) if (value < UpperBound) cs->state= (sign < ZeroState ? SmallPostitiveState : SmallNegativeState); else cs->state= (sign < ZeroState ? LargePostitiveState : LargeNegativeState); } } } Flush(); (void) free((char *) scanline); return((unsigned int) (q-compressed_pixels)); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R u n l e n g t h D e c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function RunlengthDecodeImage unpacks the packed image pixels into % runlength-encoded pixel packets. The packed image pixel memory is then % freed. % % The format of the RunlengthDecodeImage routine is: % % status=RunlengthDecodeImage(image) % % A description of each parameter follows: % % o status: Function RunlengthDecodeImage return True if the image is % decoded. False is returned if there is an error occurs. % % o image: The address of a structure of type Image. % % */ unsigned int RunlengthDecodeImage(image) Image *image; { register int i; register RunlengthPacket *q; register unsigned char *p; unsigned long count; if (image->packed_pixels == (unsigned char *) NULL) { Warning("Unable to unpack pixels","no packed image pixels"); return(False); } /* Allocate pixels. */ if (image->pixels != (RunlengthPacket *) NULL) (void) free((char *) image->pixels); image->pixels=(RunlengthPacket *) malloc((unsigned int) image->packets*sizeof(RunlengthPacket)); if (image->pixels == (RunlengthPacket *) NULL) { Warning("Unable to unpack pixels","Memory allocation failed"); return(False); } /* Unpack the packed image pixels into runlength-encoded pixel packets. */ p=image->packed_pixels; q=image->pixels; count=0; if (image->class == DirectClass) { register int matte; matte=image->matte; if (image->compression == RunlengthEncodedCompression) for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=(unsigned short) (matte ? (*p++) : 0); q->length=(*p++); count+=(q->length+1); q++; } else for (i=0; i < image->packets; i++) { q->red=(*p++); q->green=(*p++); q->blue=(*p++); q->index=(unsigned short) (matte ? (*p++) : 0); q->length=0; count++; q++; } } else { register unsigned short index; if (image->compression == RunlengthEncodedCompression) { if (image->colors <= 256) for (i=0; i < image->packets; i++) { q->index=(unsigned short) (*p++); q->length=(*p++); count+=(q->length+1); q++; } else for (i=0; i < image->packets; i++) { index=(*p++) << 8; index|=(*p++); q->index=index; q->length=(*p++); count+=(q->length+1); q++; } } else if (image->colors <= 256) for (i=0; i < image->packets; i++) { q->index=(unsigned short) (*p++); q->length=0; count++; q++; } else for (i=0; i < image->packets; i++) { index=(*p++) << 8; index|=(*p++); q->index=index; q->length=0; count++; q++; } SyncImage(image); } /* Free packed pixels memory. */ (void) free((char *) image->packed_pixels); image->packed_pixels=(unsigned char *) NULL; /* Guarentee the correct number of pixel packets. */ if (count > (image->columns*image->rows)) { Warning("insufficient image data in file",image->filename); return(False); } else if (count < (image->columns*image->rows)) { Warning("too much image data in file",image->filename); return(False); } return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R u n l e n g t h E n c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function RunlengthEncodeImage packs the runlength-encoded pixel packets % into the minimum number of bytes. % % The format of the RunlengthEncodeImage routine is: % % status=RunlengthEncodeImage(image) % % A description of each parameter follows: % % o status: Function RunlengthEncodeImage return True if the image is % packed. False is returned if an error occurs. % % o image: The address of a structure of type Image. % % */ unsigned int RunlengthEncodeImage(image) Image *image; { register int i, j; register RunlengthPacket *p; register unsigned char *q; unsigned long count, packets; if (image->pixels == (RunlengthPacket *) NULL) { Warning("Unable to pack pixels","no image pixels"); return(False); } /* Runlength-encode only if it consumes less memory than no compression. */ if (image->compression == RunlengthEncodedCompression) CompressImage(image); /* Determine packed packet size. */ if (image->class == PseudoClass) { image->packet_size=1; if (image->colors > 256) image->packet_size++; } else { image->packet_size=3; if (image->matte) image->packet_size++; } if (image->compression == RunlengthEncodedCompression) image->packet_size++; /* Allocate packed pixel memory. */ if (image->packed_pixels != (unsigned char *) NULL) (void) free((char *) image->packed_pixels); packets=image->packets; if (image->compression != RunlengthEncodedCompression) packets=image->columns*image->rows; image->packed_pixels=(unsigned char *) malloc((unsigned int) packets*image->packet_size*sizeof(unsigned char)); if (image->packed_pixels == (unsigned char *) NULL) { Warning("Unable to pack pixels","Memory allocation failed"); return(False); } /* Packs the runlength-encoded pixel packets into the minimum number of bytes. */ p=image->pixels; q=image->packed_pixels; count=0; if (image->class == DirectClass) { register int matte; matte=image->matte; if (image->compression == RunlengthEncodedCompression) for (i=0; i < image->packets; i++) { *q++=p->red; *q++=p->green; *q++=p->blue; if (matte) *q++=(unsigned char) p->index; *q++=p->length; count+=(p->length+1); p++; } else for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) { *q++=p->red; *q++=p->green; *q++=p->blue; if (matte) *q++=(unsigned char) p->index; } count+=(p->length+1); p++; } } else if (image->compression == RunlengthEncodedCompression) { if (image->colors <= 256) for (i=0; i < image->packets; i++) { *q++=(unsigned char) p->index; *q++=p->length; count+=(p->length+1); p++; } else for (i=0; i < image->packets; i++) { *q++=(unsigned char) (p->index >> 8); *q++=(unsigned char) p->index; *q++=p->length; count+=(p->length+1); p++; } } else if (image->colors <= 256) for (i=0; i < image->packets; i++) { for (j=0; j <= ((int) p->length); j++) *q++=(unsigned char) p->index; count+=(p->length+1); p++; } else { register unsigned char xff00, xff; for (i=0; i < image->packets; i++) { xff00=(unsigned char) (p->index >> 8); xff=(unsigned char) p->index; for (j=0; j <= ((int) p->length); j++) { *q++=xff00; *q++=xff; } count+=(p->length+1); p++; } } image->packets=packets; /* Guarentee the correct number of pixel packets. */ if (count < (image->columns*image->rows)) { Warning("insufficient image data in",image->filename); return(False); } else if (count > (image->columns*image->rows)) { Warning("too much image data in",image->filename); return(False); } return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S U N D e c o d e I m a g e % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SUNDecodeImage unpacks the packed image pixels into % runlength-encoded pixel packets. % % The format of the SUNDecodeImage routine is: % % status=SUNDecodeImage(compressed_pixels,pixels,number_columns, % number_rows) % % A description of each parameter follows: % % o status: Function SUNDecodeImage returns True if all the pixels are % uncompressed without error, otherwise False. % % o compressed_pixels: The address of a byte (8 bits) array of compressed % pixel data. % % o pixels: The address of a byte (8 bits) array of pixel data created by % the uncompression process. The number of bytes in this array % must be at least equal to the number columns times the number of rows % of the source pixels. % % o number_columns: An integer value that is the number of columns or % width in pixels of your source image. % % o number_rows: An integer value that is the number of rows or % heigth in pixels of your source image. % % */ unsigned int SUNDecodeImage(compressed_pixels,pixels,number_columns,number_rows) unsigned char *compressed_pixels, *pixels; unsigned int number_columns, number_rows; { register int count; register unsigned char *p, *q; unsigned char byte; p=compressed_pixels; q=pixels; while ((q-pixels) <= (number_columns*number_rows)) { byte=(*p++); if (byte != 128) *q++=byte; else { /* Runlength-encoded packet: */ count=(*p++); if (count > 0) byte=(*p++); while (count >= 0) { *q++=byte; count--; } } } return(True); } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % ./ImageMagick/magick/utility.c 644 24 24 104247 5555556176 11551 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % U U TTTTT IIIII L IIIII TTTTT Y Y % % U U T I L I T Y Y % % U U T I L I T Y % % U U T I L I T Y % % UUU T IIIII LLLLL IIIII T Y % % % % % % ImageMagick Utility Routines % % % % % % % % Software Design % % John Cristy % % January 1993 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % */ /* Include declarations. */ #include "magick.h" #include "image.h" #include "utility.h" #include "X.h" /* Forward declarations. */ unsigned int ReadData _Declare((char *,int,int,FILE *)); /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % G l o b E x p e s s i o n % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function GlobExpression returns True if the expression matches the pattern. % % The format of the GlobExpression function is: % % GlobExpression(expression,pattern) % % A description of each parameter follows: % % o expression: Specifies a pointer to a text string containing a file name. % % o pattern: Specifies a pointer to a text string containing a pattern. % % */ int GlobExpression(expression,pattern) char *expression, *pattern; { int done; if (pattern == (char *) NULL) return(True); if (strlen(pattern) == 0) return(True); if (strcmp(pattern,"*") == 0) return(True); done=False; while ((*pattern != '\0') && !done) { if (*expression == '\0') if ((*pattern != '{') && (*pattern != '*')) break; switch (*pattern) { case '\\': { pattern++; if (*pattern != '\0') pattern++; break; } case '*': { int status; pattern++; status=False; while ((*expression != '\0') && !status) status=GlobExpression(expression++,pattern); if (status) { while (*expression != '\0') expression++; while (*pattern != '\0') pattern++; } break; } case '[': { char c; pattern++; for ( ; ; ) { if ((*pattern == '\0') || (*pattern == ']')) { done=True; break; } if (*pattern == '\\') { pattern++; if (*pattern == '\0') { done=True; break; } } if (*(pattern+1) == '-') { c=(*pattern); pattern+=2; if (*pattern == ']') { done=True; break; } if (*pattern == '\\') { pattern++; if (*pattern == '\0') { done=True; break; } } if ((*expression < c) || (*expression > *pattern)) { pattern++; continue; } } else if (*pattern != *expression) { pattern++; continue; } pattern++; while ((*pattern != ']') && (*pattern != '\0')) { if ((*pattern == '\\') && (*(pattern+1) != '\0')) pattern++; pattern++; } if (*pattern != '\0') { pattern++; expression++; } break; } break; } case '?': { pattern++; expression++; break; } case '{': { int match; register char *p; pattern++; while ((*pattern != '}') && (*pattern != '\0')) { p=expression; match=True; while ((*p != '\0') && (*pattern != '\0') && (*pattern != ',') && (*pattern != '}') && match) { if (*pattern == '\\') pattern++; match=(*pattern == *p); p++; pattern++; } if (*pattern == '\0') { match=False; done=True; break; } else if (match) { expression=p; while ((*pattern != '}') && (*pattern != '\0')) { pattern++; if (*pattern == '\\') { pattern++; if (*pattern == '}') pattern++; } } } else { while ((*pattern != '}') && (*pattern != ',') && (*pattern != '\0')) { pattern++; if (*pattern == '\\') { pattern++; if ((*pattern == '}') || (*pattern == ',')) pattern++; } } } if (*pattern != '\0') pattern++; } break; } default: { if (*expression != *pattern) done=True; else { expression++; pattern++; } } } } while (*pattern == '*') pattern++; return((*expression == '\0') && (*pattern == '\0')); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L i s t F i l e s % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ListFiles reads the directory specified and returns a list % of filenames contained in the directory sorted in ascending mattebetic % order. % % The format of the ListFiles function is: % % filelist=ListFiles(directory,pattern,number_entries) % % A description of each parameter follows: % % o filelist: Function ListFiles returns a list of filenames contained % in the directory. If the directory specified cannot be read or it is % a file a NULL list is returned. % % o directory: Specifies a pointer to a text string containing a directory % name. % % o pattern: Specifies a pointer to a text string containing a pattern. % % o number_entries: This integer returns the number of filenames in the % list. % % */ static int FileCompare(x,y) const void *x, *y; { register char *p, *q; p=(char *) *((char **) x); q=(char *) *((char **) y); while ((*p != '\0') && (*q != '\0') && (*p == *q)) { p++; q++; } return(*p-(*q)); } char **ListFiles(directory,pattern,number_entries) char *directory, *pattern; int *number_entries; { #ifndef vms #define UpDirectoryName ".." char **filelist, working_directory[MaxTextLength]; DIR *current_directory; struct dirent *entry; struct stat file_status; unsigned int max_entries; /* Open directory. */ *number_entries=0; current_directory=opendir(directory); if (current_directory == (DIR *) NULL) return((char **) NULL); /* Allocate filelist. */ max_entries=2048; filelist=(char **) malloc(max_entries*sizeof(char *)); if (filelist == (char **) NULL) { (void) closedir(current_directory); return((char **) NULL); } /* Save the current and change to the new directory. */ (void) getcwd(working_directory,MaxTextLength-1); (void) chdir(directory); entry=readdir(current_directory); while (entry != (struct dirent *) NULL) { if (*entry->d_name == '.') { entry=readdir(current_directory); continue; } (void) stat(entry->d_name,&file_status); if (S_ISDIR(file_status.st_mode) || GlobExpression(entry->d_name,pattern)) { if (*number_entries >= max_entries) { max_entries<<=1; filelist=(char **) realloc((char *) filelist,max_entries*sizeof(char *)); if (filelist == (char **) NULL) { (void) closedir(current_directory); return((char **) NULL); } } filelist[*number_entries]=(char *) malloc(strlen(entry->d_name)+2); if (filelist[*number_entries] == (char *) NULL) break; (void) strcpy(filelist[*number_entries],entry->d_name); if (S_ISDIR(file_status.st_mode)) (void) strcat(filelist[*number_entries],DirectorySeparator); (*number_entries)++; } entry=readdir(current_directory); } (void) closedir(current_directory); /* Sort filelist in ascending order. */ (void) qsort((void *) filelist,*number_entries,sizeof(char **),FileCompare); /* Determine current working directory. */ (void) chdir(working_directory); (void) chdir(directory); (void) getcwd(directory,MaxTextLength-1); return(filelist); #else return((char **) NULL); #endif } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L S B F i r s t R e a d L o n g % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LSBFirstReadLong reads a long value as a 32 bit quantity in % least-significant byte first order. % % The format of the LSBFirstReadLong routine is: % % value=LSBFirstReadLong(file) % % A description of each parameter follows. % % o value: Function LSBFirstReadLong returns an unsigned long read from % the file. % % o file: Specifies the file to read the data from. % % */ unsigned long LSBFirstReadLong(file) FILE *file; { unsigned char buffer[4]; unsigned int status; unsigned long value; status=ReadData((char *) buffer,1,4,file); if (status == False) return((unsigned long) ~0); value=(unsigned int) (buffer[3] << 24); value|=(unsigned int) (buffer[2] << 16); value|=(unsigned int) (buffer[1] << 8); value|=(unsigned int) (buffer[0]); return(value); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L S B F i r s t R e a d S h o r t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LSBFirstReadShort reads a short value as a 16 bit quantity in % least-significant byte first order. % % The format of the LSBFirstReadShort routine is: % % value=LSBFirstReadShort(file) % % A description of each parameter follows. % % o value: Function LSBFirstReadShort returns an unsigned short read from % the file. % % o file: Specifies the file to read the data from. % % */ unsigned short LSBFirstReadShort(file) FILE *file; { unsigned char buffer[2]; unsigned int status; unsigned short value; status=ReadData((char *) buffer,1,2,file); if (status == False) return((unsigned short) ~0); value=(unsigned short) (buffer[1] << 8); value|=(unsigned short) (buffer[0]); return(value); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L S B F i r s t W r i t e L o n g % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LSBFirstWriteLong writes a long value as a 32 bit quantity in % least-significant byte first order. % % The format of the LSBFirstWriteLong routine is: % % LSBFirstWriteLong(value,file) % % A description of each parameter follows. % % o value: Specifies the value to write. % % o file: Specifies the file to write the data to. % % */ void LSBFirstWriteLong(value,file) unsigned long value; FILE *file; { unsigned char buffer[4]; buffer[0]=(unsigned char) (value); buffer[1]=(unsigned char) ((value) >> 8); buffer[2]=(unsigned char) ((value) >> 16); buffer[3]=(unsigned char) ((value) >> 24); (void) fwrite((char *) buffer,1,4,file); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % L S B F i r s t W r i t e S h o r t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function LSBFirstWriteShort writes a long value as a 16 bit quantity in % least-significant byte first order. % % The format of the LSBFirstWriteShort routine is: % % LSBFirstWriteShort(value,file) % % A description of each parameter follows. % % o value: Specifies the value to write. % % o file: Specifies the file to write the data to. % % */ void LSBFirstWriteShort(value,file) unsigned int value; FILE *file; { unsigned char buffer[2]; buffer[0]=(unsigned char) (value); buffer[1]=(unsigned char) ((value) >> 8); (void) fwrite((char *) buffer,1,2,file); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M S B F i r s t O r d e r L o n g % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MSBFirstOrderLong converts a least-significant byte first buffer % of integers to most-significant byte first. % % The format of the MSBFirstOrderLong routine is: % % MSBFirstOrderLong(p,length); % % A description of each parameter follows. % % o p: Specifies a pointer to a buffer of integers. % % o length: Specifies the length of the buffer. % % */ void MSBFirstOrderLong(p,length) register char *p; register unsigned int length; { register char c, *q, *sp; q=p+length; while (p < q) { sp=p+3; c=(*sp); *sp=(*p); *p++=c; sp=p+1; c=(*sp); *sp=(*p); *p++=c; p+=2; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M S B F i r s t O r d e r S h o r t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MSBFirstOrderShort converts a least-significant byte first buffer % of integers to most-significant byte first. % % The format of the MSBFirstOrderShort routine is: % % MSBFirstOrderLongShort(p,length); % % A description of each parameter follows. % % o p: Specifies a pointer to a buffer of integers. % % o length: Specifies the length of the buffer. % % */ void MSBFirstOrderShort(p,length) register char *p; register unsigned int length; { register char c, *q; q=p+length; while (p < q) { c=(*p); *p=(*(p+1)); p++; *p++=c; } } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M S B F i r s t R e a d S h o r t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MSBFirstReadShort reads a short value as a 16 bit quantity in % most-significant byte first order. % % The format of the MSBFirstReadShort routine is: % % value=MSBFirstReadShort(file) % % A description of each parameter follows. % % o value: Function MSBFirstReadShort returns an unsigned short read from % the file. % % o file: Specifies the file to read the data from. % % */ unsigned short MSBFirstReadShort(file) FILE *file; { unsigned char buffer[2]; unsigned int status; unsigned short value; status=ReadData((char *) buffer,1,2,file); if (status == False) return((unsigned short) ~0); value=(unsigned int) (buffer[0] << 8); value|=(unsigned int) (buffer[1]); return(value); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M S B F i r s t R e a d L o n g % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MSBFirstReadLong reads a long value as a 32 bit quantity in % most-significant byte first order. % % The format of the MSBFirstReadLong routine is: % % value=MSBFirstReadLong(file) % % A description of each parameter follows. % % o value: Function MSBFirstReadLong returns an unsigned long read from % the file. % % o file: Specifies the file to read the data from. % % */ unsigned long MSBFirstReadLong(file) FILE *file; { unsigned char buffer[4]; unsigned int status; unsigned long value; status=ReadData((char *) buffer,1,4,file); if (status == False) return((unsigned long) ~0); value=(unsigned int) (buffer[0] << 24); value|=(unsigned int) (buffer[1] << 16); value|=(unsigned int) (buffer[2] << 8); value|=(unsigned int) (buffer[3]); return(value); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M S B F i r s t W r i t e L o n g % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MSBFirstWriteLong writes a long value as a 32 bit quantity in % most-significant byte first order. % % The format of the MSBFirstWriteLong routine is: % % MSBFirstWriteLong(value,file) % % A description of each parameter follows. % % o value: Specifies the value to write. % % o file: Specifies the file to write the data to. % % */ void MSBFirstWriteLong(value,file) unsigned long value; FILE *file; { unsigned char buffer[4]; buffer[0]=(unsigned char) ((value) >> 24); buffer[1]=(unsigned char) ((value) >> 16); buffer[2]=(unsigned char) ((value) >> 8); buffer[3]=(unsigned char) (value); (void) fwrite((char *) buffer,1,4,file); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % M S B F i r s t W r i t e S h o r t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function MSBFirstWriteShort writes a long value as a 16 bit quantity in % most-significant byte first order. % % The format of the MSBFirstWriteShort routine is: % % MSBFirstWriteShort(value,file) % % A description of each parameter follows. % % o value: Specifies the value to write. % % o file: Specifies the file to write the data to. % % */ void MSBFirstWriteShort(value,file) unsigned int value; FILE *file; { unsigned char buffer[2]; buffer[0]=(unsigned char) ((value) >> 8); buffer[1]=(unsigned char) (value); (void) fwrite((char *) buffer,1,2,file); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d D a t a % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadData reads data from the image file and returns it. If it % cannot read the requested number of items, False is returned indicating % an error. % % The format of the ReadData routine is: % % status=ReadData(data,size,number_items,file) % % A description of each parameter follows: % % o status: Function ReadData returns True if all the data requested % is obtained without error, otherwise False. % % o data: Specifies an area to place the information reuested from % the file. % % o size: Specifies an integer representing the length of an % individual item to be read from the file. % % o number_items: Specifies an integer representing the number of items % to read from the file. % % o file: Specifies a file to read the data. % % */ unsigned int ReadData(data,size,number_items,file) char *data; int size, number_items; FILE *file; { size*=number_items; while (size > 0) { number_items=fread(data,1,size,file); if (number_items <= 0) return(False); size-=number_items; data+=number_items; } return(True); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % R e a d D a t a B l o c k % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function ReadDataBlock reads data from the image file and returns it. The % amount of data is determined by first reading a count byte. If % ReadDataBlock cannot read the requested number of items, `-1' is returned % indicating an error. % % The format of the ReadData routine is: % % status=ReadData(data,file) % % A description of each parameter follows: % % o status: Function ReadData returns the number of characters read % unless there is an error, otherwise `-1'. % % o data: Specifies an area to place the information reuested from % the file. % % o file: Specifies a file to read the data. % % */ int ReadDataBlock(data,file) char *data; FILE *file; { unsigned char count; unsigned int status; status=ReadData((char *) &count,1,1,file); if (status == False) return(-1); if (count == 0) return(0); status=ReadData(data,1,(int) count,file); if (status == False) return(-1); return(count); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S t r i n g T o L i s t % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function StringToList converts a text string into a list by segmenting the % text string at each carriage return discovered. The list is converted to % HEX characters if any non-printable characters are discovered within the % text string. % % The format of the StringToList routine is: % % list=StringToList(text) % % A description of each parameter follows: % % o list: Function StringToList returns the string list unless an error % occurs, otherwise NULL. % % o text: Specifies the string to segment into a list. % % */ char **StringToList(text) char *text; { char **textlist; register char *p, *q; register int i; unsigned int lines; if (text == (char *) NULL) return((char **) NULL); for (p=text; *p != '\0'; p++) if (!(isprint(*p) || isspace(*p))) break; if (*p == '\0') { /* Convert string to an ASCII list. */ lines=1; for (p=text; *p != '\0'; p++) if (*p == '\n') lines++; textlist=(char **) malloc((lines+1)*sizeof(char *)); if (textlist == (char **) NULL) { Warning("Unable to convert text","Memory allocation failed"); return((char **) NULL); } p=text; for (i=0; i < lines; i++) { for (q=p; *q != '\0'; q++) if (*q == '\n') break; textlist[i]=(char *) malloc((q-p+1)*sizeof(char)); if (textlist[i] == (char *) NULL) { Warning("Unable to convert text","Memory allocation failed"); return((char **) NULL); } (void) strncpy(textlist[i],p,q-p); textlist[i][q-p]='\0'; p=q+1; } } else { char hex_string[MaxTextLength]; register int j; /* Convert string to a HEX list. */ lines=((int) strlen(text)/0x14)+1; textlist=(char **) malloc((lines+1)*sizeof(char *)); if (textlist == (char **) NULL) { Warning("Unable to convert text","Memory allocation failed"); return((char **) NULL); } p=text; for (i=0; i < lines; i++) { textlist[i]=(char *) malloc(900*sizeof(char)); if (textlist[i] == (char *) NULL) { Warning("Unable to convert text","Memory allocation failed"); return((char **) NULL); } (void) sprintf(textlist[i],"0x%08x: ",i*0x14); q=textlist[i]+strlen(textlist[i]); for (j=1; j <= Min((int) strlen(p),0x14); j++) { (void) sprintf(hex_string,"%02x",*(p+j)); (void) strcpy(q,hex_string); q+=2; if ((j % 0x04) == 0) *q++=' '; } for (; j <= 0x14; j++) { *q++=' '; *q++=' '; if ((j % 0x04) == 0) *q++=' '; } *q++=' '; for (j=1; j <= Min((int) strlen(p),0x14); j++) { if (isprint(*p)) *q++=(*p); else *q++='-'; p++; } *q='\0'; } } textlist[i]=(char *) NULL; return(textlist); } _prefix == (short *) NULL) || (hash_suffix == (unsigned char *) NULL)) return(False); /* Initialize LZW encoder. */ number_bits=data_size; max_code=MaxCode(number_bits); clear_code=((short) 1 << (data_size-1)); end_of_information_code=clear_code+1; free_code=clear_code+2; byte_count=0; datum=0; bits=0; for (./ImageMagick/magick/error.c 644 24 24 25612 5555556175 11154 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % EEEEE RRRR RRRR OOO RRRR % % E R R R R O O R R % % EEE RRRR RRRR O O RRRR % % E R R R R O O R R % % EEEEE R R R R OOO R R % % % % % % ImageMagick Error Routines % % % % % % % % Software Design % % John Cristy % % July 1993 % % % % % % Copyright 1994 E. I. du Pont de Nemours & Company % % % % Permission to use, copy, modify, distribute, and sell this software and % % its documentation for any purpose is hereby granted without fee, % % provided that the above Copyright notice appear in all copies and that % % both that Copyright notice and this permission notice appear in % % supporting documentation, and that the name of E. I. du Pont de Nemours % % & Company not be used in advertising or publicity pertaining to % % distribution of the software without specific, written prior % % permission. E. I. du Pont de Nemours & Company makes no representations % % about the suitability of this software for any purpose. It is provided % % "as is" without express or implied warranty. % % % % E. I. du Pont de Nemours & Company disclaims all warranties with regard % % to this software, including all implied warranties of merchantability % % and fitness, in no event shall E. I. du Pont de Nemours & Company be % % liable for any special, indirect or consequential damages or any % % damages whatsoever resulting from loss of use, data or profits, whether % % in an action of contract, negligence or other tortuous action, arising % % out of or in connection with the use or performance of this software. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % */ /* Include declarations. */ #include "magick.h" /* Forward declaraations. */ static void DefaultErrorHandler _Declare((char *,char *)), DefaultWarningHandler _Declare((char *,char *)); /* Global declarations. */ char *client_name; static ErrorHandler error_handler = DefaultErrorHandler, warning_handler = DefaultWarningHandler; /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D e f a u l t E r r o r H a n d l e r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function DefaultErrorHandler displays an error message and then terminates % the program. % % The format of the DefaultErrorHandler routine is: % % DefaultErrorHandler(message,qualifier) % % A description of each parameter follows: % % o message: Specifies the message to display before terminating the % program. % % o qualifier: Specifies any qualifier to the message. % % */ static void DefaultErrorHandler(message,qualifier) char *message, *qualifier; { (void) fprintf(stderr,"%s: %s",client_name,message); if (qualifier != (char *) NULL) (void) fprintf(stderr," (%s)",qualifier); (void) fprintf(stderr,".\n"); exit(1); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % D e f a u l t W a r n i n g H a n d l e r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function DefaultWarningHandler displays an warning message. % % The format of the DefaultWarningHandler routine is: % % DefaultWarningHandler(message,qualifier) % % A description of each parameter follows: % % o message: Specifies the message to display before terminating the % program. % % o qualifier: Specifies any qualifier to the message. % % */ static void DefaultWarningHandler(message,qualifier) char *message, *qualifier; { (void) fprintf(stderr,"%s: %s",client_name,message); if (qualifier != (char *) NULL) (void) fprintf(stderr," (%s)",qualifier); (void) fprintf(stderr,".\n"); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % E r r o r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Error calls the error handler routines with an error message. % % The format of the Error routine is: % % Error(message,qualifier) % % A description of each parameter follows: % % o message: Specifies the message to display before terminating the % program. % % o qualifier: Specifies any qualifier to the message. % % */ void Error(message,qualifier) char *message, *qualifier; { if (error_handler != (ErrorHandler) NULL) (*error_handler)(message,qualifier); } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S e t E r r o r H a n d l e r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SetErrorHandler sets the error handler to the specified routine. % % The format of the SetErrorHandler routine is: % % SetErrorHandler(handler) % % A description of each parameter follows: % % o handler: Specifies a pointer to a routine to handle errors. % % */ void SetErrorHandler(handler) ErrorHandler handler; { error_handler=handler; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % S e t W a r n i n g H a n d l e r % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function SetWarningHandler sets the warning handler to the specified routine. % % The format of the SetWarningHandler routine is: % % SetWarningHandler(handler) % % A description of each parameter follows: % % o handler: Specifies a pointer to a routine to handle warnings. % % */ void SetWarningHandler(handler) ErrorHandler handler; { warning_handler=handler; } /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % % % % % W a r n i n g % % % % % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Function Warning calls the warning handler routines with an warning message. % % The format of the Warning routine is: % % Warning(message,qualifier) % % A description of each parameter follows: % % o message: Specifies the message to display before terminating the % program. % % o qualifier: Specifies any qualifier to the message. % % */ void Warning(message,qualifier) char *message, *qualifier; { if (warning_handler != (ErrorHandler) NULL) (*warning_handler)(message,qualifier); } parameter follows: % % o status: Function ReadData returns True if all the data requested % is obtained with./ImageMagick/magick/PreRvIcccm.c 644 24 24 13234 5555556174 12014 #include "magick.h" #include "image.h" #include "X.h" #ifdef PRE_R5_ICCCM /* Compatibility routines for pre X11R5 ICCCM. */ XrmDatabase XrmGetDatabase(display) Display *display; { return(display->db); } #endif #ifdef PRE_R4_ICCCM /* Compatibility routines for pre X11R4 ICCCM. */ XClassHint *XAllocClassHint() { return((XClassHint *) malloc(sizeof(XClassHint))); } XIconSize *XAllocIconSize() { return((XIconSize *) malloc(sizeof(XIconSize))); } XSizeHints *XAllocSizeHints() { return((XSizeHints *) malloc(sizeof(XSizeHints))); } Status XReconfigureWMWindow(display,window,screen_number,value_mask,values) Display *display; Window window; int screen_number; unsigned int value_mask; XWindowChanges *values; { return(XConfigureWindow(display,window,value_mask,values)); } XStandardColormap *XAllocStandardColormap() { return((XStandardColormap *) malloc(sizeof(XStandardColormap))); } XWMHints *XAllocWMHints() { return((XWMHints *) malloc(sizeof(XWMHints))); } Status XGetGCValues(display,gc,mask,values) Display *display; GC gc; unsigned long mask; XGCValues *values; { return(True); } Status XGetRGBColormaps(display,window,colormap,count,property) Display *display; Window window; XStandardColormap **colormap; int *count; Atom property; { *count=1; return(XGetStandardColormap(display,window,colormap,property)); } Status XGetWMColormapWindows(display,window,colormap_windows,number_windows) Display *display; Window window, **colormap_windows; int *number_windows; { Atom actual_type, *data, property; int actual_format, status; unsigned long leftover, number_items; property=XInternAtom(display,"WM_COLORMAP_WINDOWS",False); if (property == None) return(False); /* Get the window property. */ *data=(Atom) NULL; status=XGetWindowProperty(display,window,property,0L,1000000L,False, XA_WINDOW,&actual_type,&actual_format,&number_items,&leftover, (unsigned char **) &data); if (status != Success) return(False); if ((actual_type != XA_WINDOW) || (actual_format != 32)) { if (data != (Atom *) NULL) XFree((char *) data); return(False); } *colormap_windows=(Window *) data; *number_windows=(int) number_items; return(True); } Status XGetWMName(display,window,text_property) Display *display; Window window; XTextProperty *text_property; { char *window_name; if (XFetchName(display,window,&window_name) == 0) return(False); text_property->value=(unsigned char *) window_name; text_property->encoding=XA_STRING; text_property->format=8; text_property->nitems=strlen(window_name); return(True); } char *XResourceManagerString(display) Display *display; { return display->xdefaults; } void XrmDestroyDatabase(database) XrmDatabase database; { } void XSetWMName(display,window,property) Display *display; Window window; XTextProperty *property; { XStoreName(display,window,property->value); } int XStringListToTextProperty(argv,argc,property) char **argv; int argc; XTextProperty *property; { register int i; register unsigned int number_bytes; XTextProperty protocol; number_bytes=0; for (i=0; i < argc; i++) number_bytes+=(unsigned int) ((argv[i] ? strlen(argv[i]) : 0)+1); protocol.encoding=XA_STRING; protocol.format=8; protocol.nitems=0; if (number_bytes) protocol.nitems=number_bytes-1; protocol.value=NULL; if (number_bytes <= 0) { protocol.value=(unsigned char *) malloc(sizeof(char)); if (!protocol.value) return(False); *protocol.value='\0'; } else { register char *buffer; buffer=(char *) malloc(number_bytes*sizeof(char)); if (buffer == (char *) NULL) return(False); protocol.value=(unsigned char *) buffer; for (i=0; i < argc; i++) { char *argument; argument=argv[i]; if (!argument) *buffer++='\0'; else { (void) strcpy(buffer,argument); buffer+=(strlen(argument)+1); } } } *property=protocol; return(True); } void XSetWMProperties(display,window,window_name,icon_name,argv,argc, size_hints,manager_hints,class_hint) Display *display; Window window; XTextProperty *window_name, *icon_name; char **argv; int argc; XSizeHints *size_hints; XWMHints *manager_hints; XClassHint *class_hint; { XSetStandardProperties(display,window,window_name->value,icon_name,None, argv,argc,size_hints); XSetWMHints(display,window,manager_hints); XSetClassHint(display,window,class_hint); } Status XSetWMProtocols(display,window,protocols,count) Display *display; Window window; Atom *protocols; int count; { Atom wm_protocols; wm_protocols=XInternAtom(display,"WM_PROTOCOLS",False); XChangeProperty(display,window,wm_protocols,XA_ATOM,32,PropModeReplace, (unsigned char *) protocols, count); return(True); } VisualID XVisualIDFromVisual(visual) Visual *visual; { return(visual->visualid); } Status XWithdrawWindow(display,window,screen) Display *display; Window window; int screen; { return(XUnmapWindow(display,window)); } int XWMGeometry(display,screen,user_geometry,default_geometry,border_width, size_hints,x,y,width,height,gravity) Display *display; int screen; char *user_geometry, *default_geometry; unsigned int border_width; XSizeHints *size_hints; int *x, *y, *width, *height, *gravity; { int status; status=XGeometry(display,screen,user_geometry,default_geometry,border_width, 0,0,0,0,x,y,width,height); *gravity=NorthWestGravity; return(status); } #endif % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % */ /* Include declarations. */ #include "magick.h" /* Forward declaraations. */ static void DefaultErrorHandler _Declare((char *,char *)), DefaultWarningHandler _Declare((char *,char *)); /* Global d./ImageMagick/magick/compress.h 644 24 24 1644 5555556176 11643 /* Compress utility routines. */ extern unsigned int BMPDecodeImage _Declare((unsigned char *,unsigned char *,unsigned int, unsigned int,unsigned int)), BMPEncodeImage _Declare((unsigned char *,unsigned char *,unsigned int, unsigned int)), HuffmanDecodeImage _Declare((Image *)), HuffmanEncodeImage _Declare((Image *)), LZWDecodeImage _Declare((Image *)), LZWEncodeFilter _Declare((FILE *,unsigned char *,unsigned int)), LZWEncodeImage _Declare((Image *,unsigned int)), PackbitsEncodeImage _Declare((Image *,unsigned char *,unsigned char *)), QDecodeImage _Declare((unsigned char *,unsigned char *,unsigned int, unsigned int)), QEncodeImage _Declare((unsigned char *,unsigned char *,unsigned int, unsigned int)), RunlengthDecodeImage _Declare((Image *)), RunlengthEncodeImage _Declare((Image *)), SUNDecodeImage _Declare((unsigned char *,unsigned char *,unsigned int, unsigned int)); ol.value=NULL; if (number_bytes <= 0) { protocol.value=(unsigned char *) malloc(./ImageMagick/magick/utility.h 644 24 24 2126 5555556176 11507 #ifndef vms #ifndef NoDIRENT #include #else #include #ifndef dirent #define dirent direct #endif #endif #endif #ifndef S_ISDIR #define S_ISDIR(mode) (((mode) & S_IFMT) == S_IFDIR) #endif /* Utility define declarations. */ #define DirectorySeparator "/" /* Utilities routines. */ extern char **StringToList _Declare((char *)), **ListFiles _Declare((char *,char *,int *)); extern int GlobExpression _Declare((char *,char *)), ReadDataBlock _Declare((char *,FILE *)); extern unsigned int ReadData _Declare((char *,int,int,FILE *)); extern unsigned long LSBFirstReadLong _Declare((FILE *)), MSBFirstReadLong _Declare((FILE *)); extern unsigned short LSBFirstReadShort _Declare((FILE *)), MSBFirstReadShort _Declare((FILE *)); extern void LSBFirstWriteLong _Declare((unsigned long,FILE *)), LSBFirstWriteShort _Declare((unsigned int,FILE *)), MSBFirstOrderLong _Declare((char *,unsigned int)), MSBFirstOrderShort _Declare((char *,unsigned int)), MSBFirstWriteLong _Declare((unsigned long,FILE *)), MSBFirstWriteShort _Declare((unsigned int,FILE *)); ='\0'; } else { register char *buffer; buffer=(char *) malloc(number_bytes*sizeof(char)); if (buffer == (char *) NULL) return(False); protocol.value=(unsigned char *) buffer; for (i=0; i < argc; i++) { char *argument; argument=argv[i]; if (!argument) *buffer++='\0'; else { (void) strcpy(./ImageMagick/magick/widget.h 644 24 24 1636 5555556176 11274 /* Define declarations. */ #define DoubleClick 250 /* Typedef declarations. */ typedef struct _XWidgetInfo { int id; unsigned int bevel_width, width, height; int x, y, min_y, max_y; unsigned int raised, active, trough, highlight; char *text, *cursor, *marker; } XWidgetInfo; /* X utilities routines. */ extern int XMenuWidget _Declare((Display *,XWindows *,int,int,char *,char **, unsigned int,char *)); extern void XColorBrowserWidget _Declare((Display *,XWindows *,char *,char *)), XDialogWidget _Declare((Display *,XWindows *,char *,char *, char *)), XFileBrowserWidget _Declare((Display *,XWindows *,char *,char *)), XFontBrowserWidget _Declare((Display *,XWindows *,char *,char *)), XNoticeWidget _Declare((Display *,XWindows *,char *,char *)), XTextViewWidget _Declare((Display *,XWindows *,char *,char **)); har *,unsigned int)), MSBFirstOrderShort _Declare((char *,unsigned int)), MSBFirstWriteLong _D./ImageMagick/magick/PreRvIcccm.h 644 24 24 2313 5555556176 11777 #ifdef PRE_R5_ICCCM /* Compatability defines for pre X11R5 ICCCM. */ extern XrmDatabase XrmGetDatabase(); #endif #ifdef PRE_R4_ICCCM /* Compatability defines for pre X11R4 ICCCM. */ #ifdef vms #define XMaxRequestSize(display) 16384 #endif #define WithdrawnState 0 #define XInductColormap(display,colormap) XInstallColormap(display,colormap) #define XUninductColormap(display,colormap) XUninstallColormap(display,colormap) typedef struct _XTextProperty { unsigned char *value; Atom encoding; int format; unsigned long nitems; } XTextProperty; /* Pre R4 ICCCM compatibility routines. */ char *XResourceManagerString(); extern int XWMGeometry(); extern Status XGetRGBColormaps(), XGetWMName(), XReconfigureWMWindow(), XSetWMProtocols(), XWithdrawWindow(); extern XClassHint *XAllocClassHint(); extern XIconSize *XAllocIconSize(); extern XSizeHints *XAllocSizeHints(); extern XStandardColormap *XAllocStandardColormap(); extern XWMHints *XAllocWMHints(); extern VisualID XVisualIDFromVisual(); extern void XrmDestroyDatabase(), XSetWMProperties(); #else #define XInductColormap(display,colormap) #define XUninductColormap(display,colormap) #endif )); if (buffer == (char *) NULL) return(False); protocol.value=(unsigned char *) buffer; for (i=0; i < argc; i++) { char *argument; argument=argv[i]; if (!argument) *buffer++='\0'; else { (void) strcpy(./ImageMagick/magick/X.h 644 24 24 17240 5555644114 10224 #undef False #undef True #define XLIB_ILLEGAL_ACCESS 1 #include #include #include #include #include #include #include #include #undef index #ifdef hpux #undef SYSV #endif /* Default colors declarations. */ #define BackgroundColor "#ccc" /* gray */ #define BorderColor "#000" /* black */ #define ForegroundColor "#000" /* black */ #define Pen0Color "#000" /* black */ #define Pen1Color "#000" /* black */ #define Pen2Color "#00f" /* blue */ #define Pen3Color "#0ff" /* cyan */ #define Pen4Color "#0f0" /* green */ #define Pen5Color "#ccc" /* gray */ #define Pen6Color "#f00" /* red */ #define Pen7Color "#f0f" /* magenta */ #define Pen8Color "#ff0" /* yellow */ #define Pen9Color "#ccc" /* gray */ /* Colormap declarations. */ #define UndefinedColormap 0 #define PrivateColormap 1 #define SharedColormap 2 /* Define declarations. */ #define EditorCommand "xterm -title 'Image Comment Editor' -e vi %s" #define MaxNumberFonts 10 #define MaxNumberPens 10 #define PrintCommand "lpr" #define RGBColorDatabase "/usr/lib/X11/rgb.txt" #define SuspendTime 40 #define XStandardPixel(map,color,dx) (unsigned long) (map->base_pixel+ \ ((color.red*map->red_max+(1 << (dx-1)))/((1 << dx)-1))*map->red_mult+ \ ((color.green*map->green_max+(1 << (dx-1)))/((1 << dx)-1))*map->green_mult+ \ ((color.blue*map->blue_max+(1 << (dx-1)))/((1 << dx)-1))*map->blue_mult) /* Typedef declarations. */ typedef struct _DiversityPacket { unsigned char red, green, blue; unsigned short index; unsigned long count; } DiversityPacket; typedef struct _XAnnotateInfo { int x, y; unsigned int width, height; double degrees; XFontStruct *font_info; char *text, geometry[MaxTextLength]; struct _XAnnotateInfo *previous, *next; } XAnnotateInfo; typedef struct _XPixelInfo { unsigned int colors; unsigned long *pixels; XColor foreground_color, background_color, border_color, matte_color, highlight_color, shadow_color, depth_color, trough_color, pen_color[MaxNumberPens], annotate_color; unsigned short background_index, annotate_index; GC annotate_context, highlight_context, widget_context; } XPixelInfo; typedef struct _XResourceInfo { XrmDatabase resource_database; ImageInfo *image_info; unsigned int backdrop; char *background_color, *border_color; unsigned int border_width, colormap, colorspace, debug, delay, dither; char *editor_command, *font, *font_name[MaxNumberFonts], *foreground_color; int gravity; char *icon_geometry; unsigned int iconic; char *image_geometry; unsigned int magnify; char *map_type, *matte_color; unsigned int monochrome; char *name; unsigned int number_colors; char *pen_color[MaxNumberPens], *print_command; char *server_name, *title; unsigned int tree_depth, update, use_pixmap; char *visual_type, *window_id, *write_filename; } XResourceInfo; typedef struct _XWindowInfo { Window id; int screen; Visual *visual; int class, depth; XVisualInfo *visual_info; XStandardColormap *map_info; XPixelInfo *pixel_info; XFontStruct *font_info; GC annotate_context, highlight_context, widget_context; Cursor cursor, busy_cursor; char *name, *geometry, *icon_name, *icon_geometry, *clip_geometry; unsigned long flags; int x, y; unsigned int width, height, min_width, min_height, width_inc, height_inc, border_width, immutable, data; XImage *ximage; Pixmap highlight_stipple, shadow_stipple, pixmap, *pixmaps; int mask; XSetWindowAttributes attributes; XWindowChanges window_changes; unsigned int mapped, stasis; } XWindowInfo; typedef struct _XWindows { XWindowInfo context, backdrop, icon, info, image, magnify, pan, popup; Atom wm_protocols, wm_delete_window, im_protocols, im_window_colormap, im_former_image, im_next_image, im_exit; } XWindows; /* X utilities routines. */ extern char *XGetResourceClass _Declare((XrmDatabase,char *,char *,char *)), **XListColors _Declare((char *,int *)), *XVisualClassName _Declare((int)); extern Cursor XMakeCursor _Declare((Display *,Window,Colormap,char *,char *)); extern Image *XGetWindowImage _Declare((Display *,Window,unsigned int,unsigned int)), *ReadXImage _Declare((ImageInfo *,unsigned int,unsigned int,unsigned int, unsigned int)); extern int Latin1Compare _Declare((char *,char *)), XError _Declare((Display *,XErrorEvent *)); extern unsigned int IsTrue _Declare((char *)), XAnnotateImage _Declare((Display *,XPixelInfo *,XAnnotateInfo *,unsigned int, Image *)), XGetWindowColor _Declare((Display *,XColor *)), XMakeImage _Declare((Display *,XResourceInfo *,XWindowInfo *,Image *, unsigned int,unsigned int)), XMakePixmap _Declare((Display *,XResourceInfo *,XWindowInfo *)); extern void XBestIconSize _Declare((Display *,XWindowInfo *,Image *)), XBestPixel _Declare((Display *,Colormap,XColor *,unsigned int,XColor *)), XCheckRefreshWindow _Declare((Display *,XWindowInfo *)), XClientMessage _Declare((Display *,Window,Atom,Atom,Time)), XDelay _Declare((Display *,unsigned long)), XDestroyWindowColors _Declare((Display *,Window)), XDisplayInfoString _Declare((Display *,XWindowInfo *,char *)), XFreeResources _Declare((Display *,XVisualInfo *,XStandardColormap *, XPixelInfo *,XFontStruct *,XResourceInfo *,XWindowInfo *)), XFreeStandardColormap _Declare((Display *,XVisualInfo *,XStandardColormap *, XPixelInfo *)), XGetAnnotateInfo _Declare((XAnnotateInfo *)), XGetMapInfo _Declare((XVisualInfo *,Colormap,XStandardColormap *)), XGetPixelInfo _Declare((Display *,XVisualInfo *,XStandardColormap *, XResourceInfo *,Image *,XPixelInfo *)), XGetResourceInfo _Declare((XrmDatabase,char *,XResourceInfo *)), XGetWindowInfo _Declare((Display *,XVisualInfo *,XStandardColormap *, XPixelInfo *,XFontStruct *,XResourceInfo *,XWindowInfo *)), XHighlightLine _Declare((Display *,Window,GC,XSegment *)), XHighlightRegion _Declare((Display *,Window,GC,RectangleInfo *)), XMakeMagnifyImage _Declare((Display *,XWindows *)), XMakeStandardColormap _Declare((Display *,XVisualInfo *,XResourceInfo *, Image *,XStandardColormap *,XPixelInfo *)), XMakeWindow _Declare((Display *,Window,char **,int,XClassHint *,XWMHints *, Atom,XWindowInfo *)), XRetainWindowColors _Declare((Display *,Window)), XSetWindowExtents _Declare((Display *,XWindowInfo *,char *)), XRefreshWindow _Declare((Display *,XWindowInfo *,XEvent *)); extern Window XClientWindow _Declare((Display *,Window)), XSelectWindow _Declare((Display *,RectangleInfo *)), XWindowByID _Declare((Display *,Window,unsigned long)), XWindowByName _Declare((Display *,Window,char *)); extern XFontStruct *XBestFont _Declare((Display *,XResourceInfo *)); extern XVisualInfo *XBestVisualInfo _Declare((Display *,XStandardColormap *,XResourceInfo *)); /* Variable declarations */ extern char *client_name; /* Invoke pre-X11R5 ICCCM routines if XlibSpecificationRelease is not defined. */ #ifndef XlibSpecificationRelease #define PRE_R5_ICCCM #endif /* Invoke pre-X11R4 ICCCM routines if PWinGravity is not defined. */ #ifndef PWinGravity #define PRE_R4_ICCCM #endif #include "PreRvIcccm.h" % % % % % % S e t E r r o r H a n d l e r % % % % ./ImageMagick/magick/image.h 644 24 24 13131 5555556176 11104 /* Image define declarations. */ #define AbsoluteValue(x) ((x) < 0 ? -(x) : (x)) #define DegreesToRadians(x) ((x)*3.14159265358979323846/180.0) #define Intensity(color) (unsigned int) \ ((unsigned int) ((color).red*77+(color).green*150+(color).blue*29) >> 8) #define MaxColormapSize 65535 #define MaxImageSize (4096*4096) #define MaxRGB 255 #define MaxRunlength 255 #define MaxTextLength 2048 #define RadiansToDegrees(x) ((x)*180/3.14159265358979323846) /* Image Id's */ #define UndefinedId 0 #define ImageMagickId 1 /* Image classes: */ #define UndefinedClass 0 #define DirectClass 1 #define PseudoClass 2 /* Image colorspaces: */ #define UndefinedColorspace 0 #define RGBColorspace 1 #define GRAYColorspace 2 #define OHTAColorspace 3 #define XYZColorspace 4 #define YCbCrColorspace 5 #define YIQColorspace 6 #define YUVColorspace 7 /* Image compression algorithms: */ #define UndefinedCompression 0 #define NoCompression 1 #define RunlengthEncodedCompression 2 #define QEncodedCompression 3 /* Image interlace: */ #define UndefinedInterlace 0 #define NoneInterlace 1 #define LineInterlace 2 #define PlaneInterlace 3 /* Image compositing operations: */ #define UndefinedCompositeOp 0 #define OverCompositeOp 1 #define InCompositeOp 2 #define OutCompositeOp 3 #define AtopCompositeOp 4 #define XorCompositeOp 5 #define PlusCompositeOp 6 #define MinusCompositeOp 7 #define AddCompositeOp 8 #define SubtractCompositeOp 9 #define DifferenceCompositeOp 10 #define ReplaceCompositeOp 11 /* Page geometries: */ #define PSDensityGeometry "72x72" #define PSPageGeometry "612x792+18+94" #define TextPageGeometry "612x792+36+36" /* Typedef declarations for the Display program. */ typedef struct _ColorPacket { unsigned char red, green, blue, flags; unsigned short index; } ColorPacket; typedef struct _ImageInfo { char filename[MaxTextLength], magick[12]; unsigned int assert; char *server_name, *font, *geometry, *density, *page; unsigned int interlace, monochrome, quality, verbose; char *undercolor; } ImageInfo; typedef struct _RectangleInfo { unsigned int width, height; int x, y; } RectangleInfo; typedef struct _RunlengthPacket { unsigned char red, green, blue, length; unsigned short index; } RunlengthPacket; typedef struct _Image { FILE *file; int status; char filename[MaxTextLength]; int pipe; char magick[12], *comments, *label; unsigned int id, class, colorspace, matte, compression, columns, rows, colors, scene; char *montage, *directory; ColorPacket *colormap; char *signature; RunlengthPacket *pixels, *packet; unsigned long packets; unsigned int runlength, packet_size; unsigned char *packed_pixels; unsigned int orphan; struct _Image *previous, *next; } Image; /* Image utilities routines. */ extern void CommentImage _Declare((Image *,char *)), Error _Declare((char *,char *)), LabelImage _Declare((Image *,char *)), Warning _Declare((char *,char *)); extern Image *AllocateImage _Declare((ImageInfo *)), *BorderImage _Declare((Image *,RectangleInfo *,ColorPacket *,ColorPacket *)), *ClipImage _Declare((Image *,RectangleInfo *)), *CopyImage _Declare((Image *,unsigned int,unsigned int,unsigned int)), *CutImage _Declare((Image *,RectangleInfo *)), *EnhanceImage _Declare((Image *)), *FrameImage _Declare((Image *,RectangleInfo *,unsigned int,ColorPacket *, ColorPacket *,ColorPacket *)), *NoisyImage _Declare((Image *)), *ReadImage _Declare((ImageInfo *)), *ReflectImage _Declare((Image *)), *RollImage _Declare((Image *,int,int)), *RotateImage _Declare((Image *,double,unsigned int)), *SampleImage _Declare((Image *,unsigned int,unsigned int)), *ScaleImage _Declare((Image *,unsigned int,unsigned int)), *ShearImage _Declare((Image *,double,double,unsigned int)), *StereoImage _Declare((Image *,Image *)); extern int ReadDataBlock _Declare((char *,FILE *)); extern unsigned int IsGrayImage _Declare((Image *)), NumberColors _Declare((Image *,FILE *)), ReadData _Declare((char *,int,int,FILE *)), UncompressImage _Declare((Image *)), WriteImage _Declare((ImageInfo *,Image *)); extern void CloseImage _Declare((Image *)), ColormapSignature _Declare((Image *)), CompositeImage _Declare((Image *,unsigned int,Image *,int,int)), CompressColormap _Declare((Image *)), CompressImage _Declare((Image *)), DestroyImage _Declare((Image *)), DestroyImages _Declare((Image *)), EqualizeImage _Declare((Image *)), GammaImage _Declare((Image *,char *)), InverseImage _Declare((Image *)), GetImageInfo _Declare((char *,ImageInfo *)), NormalizeImage _Declare((Image *)), OpenImage _Declare((Image *,char *)), ParseImageGeometry _Declare((char *,unsigned int *,unsigned int *)), QuantizationError _Declare((Image *,unsigned int *,double *,double *)), QuantizeImage _Declare((Image *,unsigned int,unsigned int,unsigned int, unsigned int,unsigned int)), QuantizeImages _Declare((Image **,unsigned int,Image *,unsigned int, unsigned int,unsigned int,unsigned int,unsigned int)), RGBTransformImage _Declare((Image *,unsigned int)), SetErrorHandler _Declare((ErrorHandler)), SetImageMagick _Declare((ImageInfo *)), SetWarningHandler _Declare((ErrorHandler)), SortColormapByIntensity _Declare((Image *)), SyncImage _Declare((Image *)), TransformImage _Declare((Image **,char *,char *)), TransformRGBImage _Declare((Image *,unsigned int)); troyWindowColors _Declare((Display *,Window)), XDisplayInfoString _Declare((Display *,XWindowInfo *,char *)), XFreeResources _Declare((Display *,XVisualInfo *,XStandardColormap *, XPixelInfo *,XFontStruct *,XResourceInfo *,XWindowInfo *)), XFreeStandardColormap _Declare((Display *,XVisualInfo *,XStandardColormap *, XPixelInfo *)), XGetAnnotateInfo _Declare((XAnnotateInfo *)), XGetMapInfo _Declare((XVis./ImageMagick/magick/Imakefile 644 24 24 5604 5554541720 11434 #ifndef XCOMM #define XCOMM # #endif XCOMM XCOMM Imakefile for display, animate, montage, and import. XCOMM XCOMM Copyright 1994 E. I. du Pont de Nemours & Company XCOMM XCOMM Permission to use, copy, modify, distribute, and sell this software and XCOMM its documentation for any purpose is hereby granted without fee, XCOMM provided that the above Copyright notice appear in all copies and that XCOMM both that Copyright notice and this permission notice appear in XCOMM supporting documentation, and that the name of E. I. du Pont de Nemours XCOMM & Company not be used in advertising or publicity pertaining to XCOMM distribution of the software without specific, written prior XCOMM permission. E. I. du Pont de Nemours & Company makes no representations XCOMM about the suitability of this software for any purpose. It is provided XCOMM "as is" without express or implied warranty. XCOMM XCOMM E. I. du Pont de Nemours & Company disclaims all warranties with regard XCOMM to this software, including all implied warranties of merchantability XCOMM and fitness, in no event shall E. I. du Pont de Nemours & Company be XCOMM liable for any special, indirect or consequential damages or any XCOMM damages whatsoever resulting from loss of use, data or profits, whether XCOMM in an action of contract, negligence or other tortious action, arising XCOMM out of or in connection with the use or performance of this software. XCOMM #include "../Magick.tmpl" #define DoNormalLib NormalLibX #if (ProjectX < 5) STD_DEFINES = LibraryDefines CDEBUGFLAGS = LibraryCDebugFlags #else #include #endif #ifdef RsArchitecture REQUIREDLIBS = $(REQUIRED_LIBRARIES) -lXext -lX11 #endif #ifdef AlphaArchitecture SO_REQLIBS=-lX11 -lc #endif SOMAGICKLIBREV = 3.0 HEADERS = magick.h image.h compress.h utility.h X.h widget.h PreRvIcccm.h SRCS = widget.c X.c image.c shear.c quantize.c colors.c signature.c \ decode.c encode.c compress.c utility.c error.c PreRvIcccm.c OBJS = widget.o X.o image.o shear.o quantize.o colors.o signature.o \ decode.o encode.o compress.o utility.o error.o PreRvIcccm.o #if (ProjectX < 5) #if DoSharedLib SharedLibraryObjectRule() NormalSharedLibraryTarget(Magick,$(SOMAGICKLIBREV),$(OBJS)) InstallSharedLibrary(Magick,$(SOMAGICKLIBREV),$(LOCALLIB)) #else NormalLibraryObjectRule() #endif NormalLibraryTarget(Magick,$(OBJS)) InstallLibrary(Magick,$(LOCALLIB)) #else LibraryObjectRule() #if DoSharedLib #if DoNormalLib SharedLibraryTarget(Magick,$(SOMAGICKLIBREV),$(OBJS),shared,..) #else SharedLibraryTarget(Magick,$(SOMAGICKLIBREV),$(OBJS),.,.) #endif InstallSharedLibrary(Magick,$(SOMAGICKLIBREV),$(LOCALLIB)) #endif #if DoNormalLib NormalLibraryTarget(Magick,$(OBJS)) InstallLibrary(Magick,$(LOCALLIB)) #endif #endif InstallMultiple($(HEADERS),$(LOCALINC)) LintLibraryTarget(Magick,$(SRCS)) InstallLintLibrary(Magick,$(LINTLIBDIR)) DependTarget() NormalLintTarget($(SRCS)) ked_pixels; unsigned int orphan; struct _Image *previous, *next; } Image; /* Image utilities routines../ImageMagick/magick/Makefile 644 24 24 4717 5506501440 11257 # # Generic makefile for the ImageMagick image library for computers that do # not have xmkmf. # # Copyright 1994 E. I. du Pont de Nemours & Company # # Permission to use, copy, modify, distribute, and sell this software and # its documentation for any purpose is hereby granted without fee, # provided that the above Copyright notice appear in all copies and that # both that Copyright notice and this permission notice appear in # supporting documentation, and that the name of E. I. du Pont de Nemours # & Company not be used in advertising or publicity pertaining to # distribution of the software without specific, written prior # permission. E. I. du Pont de Nemours & Company makes no representations # about the suitability of this software for any purpose. It is provided # "as is" without express or implied warranty. # # E. I. du Pont de Nemours & Company disclaims all warranties with regard # to this software, including all implied warranties of merchantability # and fitness, in no event shall E. I. du Pont de Nemours & Company be # liable for any special, indirect or consequential damages or any # damages whatsoever resulting from loss of use, data or profits, whether # in an action of contract, negligence or other tortious action, arising # out of or in connection with the use or performance of this software. # MagickObjects= widget.o X.o image.o shear.o quantize.o colors.o signature.o \ decode.o encode.o compress.o utility.o error.o PreRvIcccm.o CC = cc -O AR = ar r RANLIB = ranlib RM = rm -f INSTALL = install -c CDEBUGFLAGS= -O -I.. LOCALLIB=/usr/local/lib LOCALINC=/usr/local/include CFLAGS= $(CDEBUGFLAGS) $(DEFINES) all: libMagick.a clean: $(RM) *.o libMagick.a libMagick.a: $(MagickObjects) $(AR) libMagick.a $(MagickObjects) $(RANLIB) libMagick.a install: $(INSTALL) -m 0664 libMagick.a $(LOCALLIB) cd $(LOCALLIB); $(RANLIB) libMagick.a -mkdir $(LOCALINC) -chmod ugo+rx $(LOCALINC) $(INSTALL) -m 0444 xpm.h $(LOCALINC) widget.o: magick.h image.h utility.h X.h widget.h X.o: magick.h image.h X.h image.o: magick.h image.h compress.h utility.h X.h shear.o: magick.h image.h quantize.o: magick.h image.h colors.o: magick.h image.h signature.o: magick.h image.h decode.o: magick.h image.h compress.h utility.h X.h XWDFile.h encode.o: magick.h image.h compress.h utility.h X.h XWDFile.h compress.o: magick.h image.h utility.h utility.o: magick.h image.h compress.h X.h error.o: magick.h PreRvIcccm.o: magick.h image.h X.h MAGICKLIBREV),$(OBJS),shared,..) #else SharedLi./ImageMagick/magick/XWDFile.h 644 24 24 6033 5555556176 11247 /* Copyright 1985, 1986, Massachusetts Institute of Technology */ /* $XConsortium: XWDFile.h,v 1.12 89/10/08 16:33:57 rws Exp $ */ /* * XWDFile.h MIT Project Athena, X Window system window raster * image dumper, dump file format header file. * * Author: Tony Della Fera, DEC * 27-Jun-85 * * Modifier: William F. Wyatt, SAO * 18-Nov-86 - version 6 for saving/restoring color maps */ /* * This is not portable between machines of differing word sizes. To make * it portable, do the following things: * * o #include * o remove the typedef for xwdval * o replace all instances of xwdval with the appropriate CARD32 ... B32 * o make sure that XWDFileHeader is padded to quadword boundaries * o make sure the window name is written out quadword aligned * o create an XWDColor structure that contains the same fields as XColor * but which is defined in terms of CARD32 B32, CARD16 B16, and CARD8 * o convert XColor structures to XWDColor structures in xwd * o remove all xwdval casts from xwd * o pack image data before writing out if necessary * o replace casts from xwdval objects in xwud with cvtINT macros * o convert XWDColor structures to XColor structures * o unpack data after reading in if necessary */ #include #define XWD_FILE_VERSION 7 #ifdef WORD64 #define sz_XWDheader 104 #else #define sz_XWDheader 100 #endif #define sz_XWDColor 12 typedef CARD32 xwdval; /* for old broken programs */ typedef struct _xwd_file_header { CARD32 header_size B32; /* Size of the entire file header (bytes). */ CARD32 file_version B32; /* XWD_FILE_VERSION */ CARD32 pixmap_format B32; /* Pixmap format */ CARD32 pixmap_depth B32; /* Pixmap depth */ CARD32 pixmap_width B32; /* Pixmap width */ CARD32 pixmap_height B32; /* Pixmap height */ CARD32 xoffset B32; /* Bitmap x offset */ CARD32 byte_order B32; /* MSBFirst, LSBFirst */ CARD32 bitmap_unit B32; /* Bitmap unit */ CARD32 bitmap_bit_order B32; /* MSBFirst, LSBFirst */ CARD32 bitmap_pad B32; /* Bitmap scanline pad */ CARD32 bits_per_pixel B32; /* Bits per pixel */ CARD32 bytes_per_line B32; /* Bytes per scanline */ CARD32 visual_class B32; /* Class of colormap */ CARD32 red_mask B32; /* Z red mask */ CARD32 green_mask B32; /* Z green mask */ CARD32 blue_mask B32; /* Z blue mask */ CARD32 bits_per_rgb B32; /* Log2 of distinct color values */ CARD32 colormap_entries B32; /* Number of entries in colormap */ CARD32 ncolors B32; /* Number of Color structures */ CARD32 window_width B32; /* Window width */ CARD32 window_height B32; /* Window height */ CARD32 window_x B32; /* Window upper left X coordinate */ CARD32 window_y B32; /* Window upper left Y coordinate */ CARD32 window_bdrwidth B32; /* Window border width */ #ifdef WORD64 CARD32 header_end B32; /* Pad to fill out word */ #endif } XWDFileHeader; static struct { CARD32 pixel B32; CARD16 red B16; CARD16 green B16; CARD16 blue B16; CARD8 flags; CARD8 pad; } XWDColor; age _Declare((Image *,char *)), Error _Declare((char *,char *)), LabelImage _Declare((Image *,char *)), Warning _Declare((char *,char *)); extern Image *AllocateImage _Declare((ImageInfo *)), *BorderImage _Declare((Image *,RectangleInfo *,ColorPacket *,ColorPacket *)), *ClipImage _Declare((Image *,RectangleInfo *)), *CopyImage _Declare((Image *,unsigned int,unsigned int,unsigned int)), *CutImage _Declare((Image *,RectangleInfo *)), *EnhanceImage _Declare((Image ./ImageMagick/magick/Make.com 644 24 24 2271 5477402223 11173 $! $! Make ImageMagick X image utilities for VMS. $! $ $define/nolog X11 decw$include: $define/nolog sys sys$library: $link_options="/nodebug/notraceback" $define/nolog lnk$library sys$library:vaxcrtl $ $write sys$output "Making Magick..." $call Make widget $call Make X $call Make image $call Make shear $call Make quantize $call Make colors $call Make signature $call Make decode $call Make encode $call Make compress $call Make utility $call Make error $call Make PreRvIcccm $exit $ $Make: subroutine $! $! A very primitive "make" (or MMS) hack for DCL. $! $if (p1.eqs."") then exit $source_file=f$search(f$parse(p1,".c")) $if (source_file.nes."") $ then $ object_file=f$parse(source_file,,,"name")+".obj" $ object_file=f$search( object_file ) $ if (object_file.nes."") $ then $ object_time=f$file_attribute(object_file,"cdt") $ source_time=f$file_attribute(source_file,"cdt") $ if (f$cvtime(object_time).lts.f$cvtime(source_time)) then - $ object_file="" $ endif $ if (object_file.eqs."") $ then $ write sys$output "Compiling ",p1 $ cc/nodebug/optimize/include_directory=[-] 'source_file' $ endif $ endif $exit $endsubroutine INT macros * o convert XWDColor structures to XColor structures * o unpack data after reading in if necessary */ #include #define XWD_FILE_VERSION 7 #ifdef WORD64 #define sz_XWDheader 104 #else #define sz_XWDheader 100 #endif #define sz_XWDColor 12 typedef CARD32 xwdval; /* for old broken program./ImageMagick/magick/magick.h 644 24 24 2236 5555556176 11241 /* Include declarations */ #include #if defined(__STDC__) || defined(sgi) || defined(_AIX) #include #include #else #ifndef vms #include #include #endif #endif #include #include #include #include #include #include #include #undef index /* Define declarations for the Display program. */ #if __STDC__ || defined(sgi) || defined(_AIX) #define _Declare(formal_parameters) formal_parameters #else #define const #define _Declare(formal_parameters) () #endif #define DownShift(x) ((int) ((x)+(1L << 15)) >> 16) #define False 0 #define Max(x,y) (((x) > (y)) ? (x) : (y)) #define Min(x,y) (((x) < (y)) ? (x) : (y)) #define True 1 #define UpShift(x) ((x) << 16) #define UpShifted(x) ((int) ((x)*(1L << 16)+0.5)) #ifdef vms #define pclose(file) exit(1) #define popen(command,mode) exit(1) #define unlink(file) remove(file) #endif /* Typedef declarations. */ typedef void (*ErrorHandler) _Declare((char *,char *)); /* Variable declarations. */ #ifndef lint static char Version[]="@(#)ImageMagick 3.0 94/05/01 cristy@dupont.com"; #endif ndif $exit $endsubroutine INT macros * o convert XWDColor structures to XColor structures * o unpack data after reading in if necessary */ #include #define XWD_FILE_VERSION 7 #ifdef WORD64 #define sz_XWDheader 104 #else #define sz_XWDheader 100 #endif #define sz_XWDColor 12 typedef CARD32 xwdval; /* for old broken program./ImageMagick/Magick.faq 644 24 24 13720 5554515564 10301 Each frequently asked question is listed here. Look for a detailed response following this list. 1. I received the following message, "?????? translation failed ...". What does it mean? 2. How can I improve the appearance of 24-bit images displayed on my colormapped X server? 3. How do I set the transparency index in a GIF image so it displays properly within Mosaic? 4. How can I stop the filenames from changing in the title bar of the animate(1) image window? 5. The image I obtained from the X server with import(1) did not look anything like the screen image. 6. How do I animate a digital YUV image sequence? 7. How do I view only the red channel of an RGB image? 8. How do I change the default Postscript page size? 9. I am trying to display a sequence of 100 images and I run out of memory. What can I do? * * * * * * * * * * * * * * * * * * * * 1. I received the following message, "?????? translation failed ...". What does it mean? ImageMagick uses several freely available packages to perform the translation of certain image formats (Postscript, Photo CD, PICT, etc.). Make sure these packages are available as described in the README file. Also verify that you have plenty of temporary disk space. If not, set the TMPDIR environment variable to an area where space is available. * * * * * * * * * * * * * * * * * * * * 2. How can I improve the appearance of 24-bit images displayed on my colormapped X server? If you have a colormapped X server, the number of unique colors in an image must first be reduced to match the requirements of your server before it can be displayed. Display(1) tries to make the color reduced image closely resemble the original. However, this process can be time consuming. To speed it up, ImageMagick trades image quality for processing time. For the *best* image possible, type display -colors 256 -dither image.jpeg or add this to your X resources file: display.colors: 256 display.dither: True This example assumes your server supports 256 colors. Choose whatever value is appropriate for your X server. Alternatively if you intend to view the image frequently, reduce the number of colors to match the resolution of your X server once and write to a new image. Then display this new image. For example, convert -colors 256 -dither image.jpeg image.miff display image.miff * * * * * * * * * * * * * * * * * * * * 3. How do I set the transparency index in a GIF image so it displays properly within Mosaic? Display your GIF image with display(1). Choose "Alpha Edit" from the command menu and identify a pixel that has the `transparency' color. Select the pixel with the pointer and press button 1 and ESC. Finally, choose "Write" from the command menu and write your GIF image to a file. * * * * * * * * * * * * * * * * * * * * 4. How can I stop the filenames from changing in the title bar of the animate(1) image window? Animate(1) updates the image file name in the title bar of the image window as each image is displayed from the image sequence. To display just a single name that will not change, use -title: animate -title "My Image Sequence" images.* * * * * * * * * * * * * * * * * * * * * 5. The image I obtained from the X server with import(1) did not look anything like the screen image. Import(1) obtaines an image from the X server screen using the top-level colormap unless the WM_COLORMAP_WINDOWS property is set. Use the -descend to read each subwindow and its colormap. The final image is guarenteed to have the correct colors but obtaining the image is significantly slower. * * * * * * * * * * * * * * * * * * * * 6. How do I animate a digital YUV image sequence? Suppose your sequence is 72 352x240 frames titled frame0.Y, frame0.U, frame0.V, frame1.Y, frame1.U, etc. Use this command: animate -geometry 352x240 -scene 0-71 yuv3:frame%d * * * * * * * * * * * * * * * * * * * * 7. How do I view only the red channel of an RGB image? display -gamma 1.0,0.0,0.0 image.miff * * * * * * * * * * * * * * * * * * * * 8. How do I change the default Postscript page size? The default dimensions of a Postscript page is 612x792. If you prefer another default, change the page geometries in magick/image.h and recompile. * * * * * * * * * * * * * * * * * * * * 9. I am trying to display a sequence of 100 images and I run out of memory. What can I do? The simplest thing to do is to increase your virtual memory by expanding your swap partition. ImageMagick is designed to be general purpose. It can display many image storage formats (Monochrome, PseudoColor, or TrueColor) on many different types of X visuals (StaticGray, StaticColor, PseudoColor, GrayScale, DirectColor, or TrueColor). To support all these combinations of image storage formats and X visuals, extra memory is required. In fact, each image requires 6 bytes per pixel to store in memory. Additionally, animate(1) and montage(1) store an entire image sequence in memory. For animation, consider using the MPEG programs from Berkeley if you encounter memory limitations with animate(1). It only stores a few frames at a time in memory. Convert(1) has an option to create the proper CCIR 601 2:1:1 files as input to the MPEG program. However, the CCIR 601 2:1:1 image format is lossy. Computer generated images may not look very good. * * * * * * * * * * * * * * * * * * * * (XAnnotateInfo *)), XGetMapInfo _Declare((XVis./ImageMagick/X.h 0 24 24 0 5524255173 10564 2./magick/X.h./ImageMagick/ImageMagick.man 644 24 24 14201 5556401425 11233 .ad l .nh .TH ImageMagick 1 "10 April 1994" "ImageMagick" .SH NAME ImageMagick - ImageMagick is an X11 package for display and interactive manipulation of images. .SH DESCRIPTION ImageMagick is an X11 package for display and interactive manipulation of images. The package includes tools for image conversion, annotation, compositing, animation, and creating montages. ImageMagick can read and write many of the more popular image formats (e.g. JPEG, TIFF, PNM, etc.). ImageMagick is available via anonymous FTP as \fBftp.x.org:contrib/ImageMagick.tar.gz\fP. .PP .TP 5 .B display Display is a machine architecture independent image processing and display program. It can display an image on any workstation display running an X server. Display first determines the hardware capabilities of the workstation. If the number of unique colors in the image is less than or equal to the number the workstation can support, the image is displayed in an X window. Otherwise the number of colors in the image is first reduced to match the color resolution of the workstation before it is displayed. This means that a continuous-tone 24 bits/pixel image can display on a 8 bit pseudo-color device or monochrome device. In most instances the reduced color image closely resembles the original. Alternatively, a monochrome or pseudo-color image can display on a continuous-tone 24 bits/pixels device. .TP 5 .B import Import reads an image from any visible window on an X server and outputs it as an image file. You can capture a single window, the entire screen, or any rectangular portion of the screen. You can use display (see display(1)) utility for redisplay, printing, editing, formatting, archiving, image processing, etc. of the captured image. The target window can be specified by id, name, or may be selected by clicking the mouse in the desired window. If you press a button and then drag, a rectangle will form which expands and contracts as the mouse moves. To save the portion of the screen defined by the rectangle, just release the button. The keyboard bell is rung once at the beginning of the screen capture and twice when it completes. .TP 5 .B animate Animate displays a sequence of images on any workstation display running an X server. Animate first determines the hardware capabilities of the workstation. If the number of unique colors in an image is less than or equal to the number the workstation can support, the image is displayed in an X window. Otherwise the number of colors in the image is first reduced to match the color resolution of the workstation before it is displayed. This means that a continuous-tone 24 bits/pixel image can display on a 8 bit pseudo-color device or monochrome device. In most instances the reduced color image closely resembles the original. Alternatively, a monochrome or pseudo-color image sequence can display on a continuous-tone 24 bits/pixels device. .TP 5 .B montage Montage creates a composite image by combining several separate images. The images are tiled on the composite image with the name of the image optionally appearing just below the individual tile. .TP 5 .B mogrify Mogrify transforms an image or a sequence of images. These transforms include image scaling, image rotation, color reduction, and others. The transmogrified image overwrites the original image. .TP 5 .B convert Convert converts an input file using one image format to an output file with a differing image format. By default, the image format is determined by it's magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). Specify file as - for standard input or output. If file has the extension .Z, the file is decoded with uncompress. .TP 5 .B combine Combine combines images to create new images. .TP 5 .B segment Segment segments an image by analyzing the histograms of the color components and identifying units that are homogeneous with the fuzzy c-means technique. The scale-space filter analyzes the histograms of the three color components of the image and identifies a set of classes. The extents of each class is used to coarsely segment the image with thresholding. The color associated with each class is determined by the mean color of all pixels within the extents of a particular class. Finally, any unclassified pixels are assigned to the closest class with the fuzzy c- means technique. .TP 5 .B XTP Xtp is a utility for retrieving, listing, or printing files from a remote network site, or sending files to a remote network site. Xtp performs most of the same functions as the ftp program, but does not require any interactive commands. You simply specify the file transfer task on the command line and xtp performs the task automatically. .SH SEE ALSO .B display(1), animate(1), import(1), montage(1), mogrify(1), convert(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH AUTHORS John Cristy, E.I. du Pont de Nemours & Company Incorporated o *,Image *,XPixelInfo *)), XGetResourceInfo _Declare((XrmDatabase,char *,XResourceInfo *)), XGetWindowInfo _Declare((Display *,XVisualInfo *,XStandardColormap *, XPixelInfo *,XFontStruct *,XResourceInfo *,XWindowInfo *)), XHighlightLine _Declare((Display *,Window,GC,XSegment *)), XHighlightRegion _Declare((Display *,Window,GC,RectangleInfo *)), XMakeMagnifyImage _De./ImageMagick/import.man 644 24 24 30666 5556401661 10426 .ad l .nh .TH import 1 "1 May 1994" "ImageMagick" .SH NAME import - capture some or all of an X server screen and save the image to a file. .SH SYNOPSIS .B "import" [ \fIoptions\fP ... ] \fIfile\fP .SH DESCRIPTION \fBimport\fP reads an image from any visible window on an X server and outputs it as an image file. You can capture a single window, the entire screen, or any rectangular portion of the screen. Use \fBdisplay\fP (see \fBdisplay(1)\fP) for redisplay, printing, editing, formatting, archiving, image processing, etc. of the captured image. .PP The target window can be specified by id, name, or may be selected by clicking the mouse in the desired window. If you press a button and then drag, a rectangle will form which expands and contracts as the mouse moves. To save the portion of the screen defined by the rectangle, just release the button. The keyboard bell is rung once at the beginning of the screen capture and twice when it completes. .PP .SH EXAMPLES .PP To select an X window with the mouse and save it in the MIFF image format to a file titled window.miff, use: .PP .B import window.miff .PP To select an X window and save it in the Encapsulated Postscript format to include in another document, use: .PP .B import figure.eps .PP To capture the entire X server screen in the JPEG image format in a file titled root.jpeg, use: .PP .B import -window root root.jpeg .SH OPTIONS \fBimport\fP options can appear on the command line or in your X resources file (see \fBX(1)\fP). Options on the command line supersede values specified in your X resources file. .TP 5 .B "-border" include image borders in the output image. .TP 5 .B "-clip \fIx{\+-}{\+-}\fP" preferred size and location of the clipped image. See \fBX(1)\fP for details about the geometry specification. Use clipping to crop a particular area of an image. Use \fB-clip 0x0\fP to remove edges that are the background color. .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. Note, options \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. See \fBmiff(5)\fP for details. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-delay \fIseconds\fP" pause before selecting target window. This option is useful when you need time to ready the target window before it is captured to a file. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-descend" obtain image by descending window hierarchy. This option reads each subwindow and its colormap of the chosen window. The final image is guarenteed to have the correct colors but obtaining the image is significantly slower. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP option is required for dithering to take effect. .TP 5 .B "-frame" include window manager frame. .TP 5 .B "-geometry \fI{%}x{%}{!}" the width and height of the image. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. Use this option to specify the width and height of raw images whose dimensions are unknown such as \fBGRAY\fP, \fBRGB\fP, and \fBCMYK\fP. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-inverse" apply color inversion to image. The red, green, and blue intensities of an image are negated. .TP 5 .B "-label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, or \fB%s\fP for scene number. For example, .nf -label "%m:%f %wx%h" .fi produces an image label of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image label is read from a file titled by the remaining characters in the string. When converting to Postscript, use this option to specify a header string to print above the image. .TP 5 .B "-monochrome" transform image to black and white. .TP 5 .B "-page \fIx{\+-}{\+-}\fP" preferred size and location of the Postscript page. Use this option to specify the dimensions of the Postscript page in picas or a TEXT page in pixels. The default for a Postscript page is to center the image on a letter page 612 by 792 dots per inch. The left and right margins are 18 picas and the top and bottom 94 picas (i.e. 612x792+18+94). Other common sizes are: 540x720 Note 612x1008 Legal 842x1190 A3 595x842 A4 421x595 A5 297x421 A6 709x1002 B4 612x936 U.S. Foolscap 612x936 European Foolscap 396x612 Half Letter 792x1224 11x17 1224x792 Ledger The page geometry is relative to the vertical and horizontal density of the Postscript page. See \fB-density\fP for details. The default page dimensions for a TEXT image is 612x792+36+36. .TP 5 .B "-quality \fIvalue\fP" JPEG quality setting. Quality is 0 (worst) to 100 (best). The default is 85. .TP 5 .B "-rotate \fIdegrees\fP" apply Paeth image rotation to the image. Empty triangles left over from rotating the image are filled with the color defined by the pixel at location (0,0). .TP 5 .B "-scene \fIvalue\fP" image scene number. .TP 5 .B "-screen" This option indicates that the GetImage request used to obtain the image should be done on the root window, rather than directly on the specified window. In this way, you can obtain pieces of other windows that overlap the specified window, and more importantly, you can capture menus or other popups that are independent windows but appear over the specified window. .TP 5 .B "-treedepth \fIvalue\fP" Normally, this integer value is zero or one. A zero or one tells \fBconvert\fP to choose a optimal tree depth for the color reduction algorithm. An optimal depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. To assure the best representation, try values between 2 and 8 for this parameter. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP option is required for this option to take effect. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors; and the number of seconds to read and write the image. .TP 5 .B "-window \fIid\fP" select window with this id or name. With this option you can specify the target window by id or name rather than using the mouse. Specify 'root' to select X's root window as the target window. .PP Change \fI-\fP to \fI+\fP in any option above to reverse its effect. For example \fB+frame\fP means do include window manager frame. .PP \fIfile\fP specifies the image filename. By default, the image is written in the Postscript image format. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. .PP Specify \fIfile\fP as \fI-\fP for standard output. If \fIfile\fP has the extension \fB.Z\fP or \fB.gz\fP, the file size is compressed using with \fBcompress\fP or \fBgzip\fP respectively. Precede the image file name \fI|\fP to pipe to a system command. If \fIfile\fP already exists, you will be prompted as to whether it should be overwritten. .SH ENVIRONMENT .PP .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B display(1), animate(1), montage(1), mogrify(1), convert(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH AUTHORS John Cristy, E.I. du Pont De Nemours & Company Incorporated "-comment \fIstring\fP" annotate an image with a comment. By default, ea./ImageMagick/miff.man 644 24 24 23417 5556401676 10037 .ad l .nh .TH MIFF 5 "1 May 1994" "ImageMagick" .SH NAME MIFF - ImageMagick's file format for raster images. MIFF is an acronym for Magick Image File Format. .SH SYNOPSIS .B #include .SH DESCRIPTION A MIFF image file consist of two sections. The first section is composed of keywords describing the image in text form. The next section is the binary image data. The two sections are separated by a \fB:\fP character immediately followed by a \fInewline\fP. Generally, the first section has a \fIform-feed\fP and \fInewline\fP proceeding the \fB:\fP character. You can then list the image keywords with \fImore\fP, without printing the binary image that follows the \fB:\fP separator. .PP Each keyword must be separated by at least one space but can be separated with control characters such a \fIform-feed\fP or \fInewline\fP. .PP A list of valid keywords follows: .TP 5 .B "class=\fIDirectClass | PseudoClass\fP" identifies the type of binary image stored within the file. This keyword is optional. If it is not specified, a \fIDirectClass\fP image format is assumed. An explanation of \fIDirectClass\fP and \fIPseudoClass\fP image data follows this list. .TP 5 .B "colors=\fIvalue\fP" specifies the number of colors in the image, and for pseudo-color images the size of the colormap. This keyword is optional. However, if a colormap size is not specified, a linear colormap is assumed for pseudo-color images. .TP 5 .B "columns=\fIvalue\fP" is a required keyword and specifies the number of columns, or width in pixels, of the image. .TP 5 .B "compression=\fIQEncoded | RunlengthEncoded\fP" identifies how the image stored within the file is compressed. This keyword is optional. If it is not specified, the image is assumed to be uncompressed. \fIQEncoded\fP has no meaning for pseudo-color images. A detailed explanation of runlength-encoded and predictive arithmetic image compression follows this list. .TP 5 .B "id=\fBImageMagick\fP" is a required keyword and identifies this file as a MIFF image. .TP 5 .B "matte=\fITrue | False\fP" specifies whether a continuous-tone image also has matte data. Matte data is generally useful for image compositing. This keyword is optional. If it is not specified, no matte data is assumed. This keyword has no meaning for pseudo-color images. .TP 5 .B "montage=\fIx{\+-}{\+-}\fP size and location of the individual tiles of a composite image. See \fBX(1)\fP for details about the geometry specification. Use this keyword when the image is a composite of a number of different tiles. A tile consists of an image and optionally a border and a label. \fI\fP is the size in pixels of each individual tile in the horizontal direction and \fI\fP is the size in the vertical direction. Each tile must have an equal number of pixels in width and equal in height. However, the width can differ from the height. \fI\fP is the offset in number of pixels from the vertical edge of the composite image where the first tile of a row begins and \fI\fP is the offset from the horizontal edge where the first tile of a column begins. If this keyword is specified, a directory of tile names must follow the image header. The format of the directory is explained below. .TP 5 .B "packets=\fIvalue\fP" specifies the number of compressed color packets in the image data section. This keyword is optional, but recommended, for runlength-encoded image compression. It is required for arithmetic encoded image compression. A detailed explanation of image compression follows this list. .TP 5 .B "rows=\fIvalue\fP" is a required keyword and specifies the number of rows, or height in pixels, of the image. .TP 5 .B "scene=\fIvalue\fP" is an optional keyword and is a reference number for sequencing of images. This keyword is typically useful for animating a sequence of images. .TP 5 .B "signature=\fIvalue\fP" is an optional keyword and is a character string that uniquely identifies the image colormap. A unique identifier for the colormap is useful for animating a sequence of \fIPseudoClass\fP images. The default identifier is a digital signature computed from RSA's Data Security MD5 Digest Algorithm described in Internet draft [MD5], July 1992. The colormap signature is usually computed for \fIPseudoClass\fP images. .PP Comments can be included in the keyword section. Comments must begin with a \fB{\fP character and end with a \fI}\fP character. .PP An example keyword section follows: .PP { Rendered via Dore by Sandy Hause. } id=ImageMagick class=PseudoClass colors=256 signature=d79e1c308aa5bbcdeea8ed63df412da9 compression=RunlengthEncoded packets=27601 columns=1280 rows=1024 scene=1 ^L : .PP If you specify \fBmontage\fP in the image header, follow the header with a directory of image tiles. This directory consists of a name for each tile of the composite image separated by a NEWLINE character. The list is terminated with a NULL character. .PP The binary image data that follows the keyword text is stored in one of two binary classes as specified by the \fBclass\fP keyword: \fIDirectClass\fP or \fIPseudoClass\fP. .PP Use the \fIDirectClass\fP class to store continuous-tone images. \fIDirectClass\fP requires that the image pixels immediately follow the keyword text and be stored as binary red, green, and blue intensity values (and optional matte value). Each color component is stored as one binary byte (8 bit) and ranges from 0 through 255. The total number of pixels expected is equal to the number of pixel columns times the number of pixel rows as specified by the \fBcolumns\fP and \fBrows\fP keywords. .PP If the \fBcompression\fP keyword is not specified, a red, green, and blue byte (and optional matte byte) in that order is expected for each pixel of the image. .PP If \fBcompression\fP is \fIQEncoded\fP, each red, green, and blue byte intensity value (and optional matte value) is encoded using the predictive arithmetic compression algorithm. Use the \fBpackets\fP keyword to specify the total number of arithmetic encoded packets that comprise the image. .PP If \fBcompression\fP is \fIRunlengthEncoded\fP, each red, green, and blue byte intensity value (and optional matte value) is followed by a count byte. This value specifies the number of horizontally contiguous pixels in the image of that color. The count (0-255) is one less than the actual number of contiguous pixels; thus a single packet can represent from 1 up to 256 identical pixels. The total number of pixels specified by the individual count bytes must add up to the number of pixel columns times the number of pixel rows as specified by the \fBcolumns\fP and \fBrows\fP keywords. Use \fBpackets\fP to specify the total number of runlength-encoded packets that comprise the image. .PP Use the \fIPseudoClass\fP class to store pseudo-color images. \fIPseudoClass\fP requires that the image colormap and pseudo-color pixels immediately follow the keyword text. The colormap is stored as contiguous red, green, and blue intensity values. Each color component is stored as one binary byte (8 bit) and ranges from 0 through 255. The number of intensity values expected is determined by the \fBcolors\fP keyword. Note, an image colormap is restricted to at most 65535 entries. The binary pseudo-color image is stored as indexes into the colormap. For colormaps of 256 colors or less, the indexes are stored as one binary byte (8 bit) and ranges from 0 through 255. If the colormap size exceeds 256 entries, then each colormap index is two bytes each with the most-significant-byte first. The total number of pixels expected is equal to the number of pixel columns times the number of pixel rows as specified by the \fBcolumns\fP and \fBrows\fP keywords. .PP If the \fBcompression\fP keyword is not specified, a colormap index is expected for each pixel of the image. .PP If \fBcompression\fP is \fIRunlengthEncoded\fP, each colormap index is followed by a count byte. This value specifies the number of horizontally contiguous pixels in the image of that color. The count (0-255) is one less than the actual number of contiguous pixels; thus a single packet can represent from 1 up to 256 identical pixels. The total number of pixels specified by the individual count bytes must add up to the number of pixels expected in the image as specified by the \fBcolumns\fP and \fBrows\fP keywords. Use \fBpackets\fP to specify the total number of runlength-encoded packets that comprise the image. .SH SEE ALSO .B display(1), animate(1), import(1), montage(1), mogrify(1), convert(1), more(1), compress(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH AUTHORS John Cristy, E.I. du Pont de Nemours & Company Incorporated % % % % % % W a r n i ./ImageMagick/quantize.man 644 24 24 25441 5556401717 10751 .ad l .nh .TH quantize 9 "1 May 1994" "ImageMagick" .SH NAME Quantize - ImageMagick's color reduction algorithm. .SH SYNOPSIS .B #include .SH DESCRIPTION This document describes how \fBImageMagick\fP performs color reduction on an image. To fully understand this document, you should have a knowledge of basic imaging techniques and the tree data structure and terminology. .PP For purposes of color allocation, an image is a set of \fIn\fP pixels, where each pixel is a point in RGB space. RGB space is a 3-dimensional vector space, and each pixel, \fIp\d\s-3i\s0\u\fP, is defined by an ordered triple of red, green, and blue coordinates, (\fIr\d\s-3i\s0\u, g\d\s-3i\s0\u, b\d\s-3i\s0\u\fP). .PP Each primary color component (red, green, or blue) represents an intensity which varies linearly from 0 to a maximum value, \fIc\d\s-3max\s0\u\fP, which corresponds to full saturation of that color. Color allocation is defined over a domain consisting of the cube in RGB space with opposite vertices at (0,0,0) and (\fIc\d\s-3max\s0\u,c\d\s-3max\s0\u,c\d\s-3max\s0\u\fP). \fBImageMagick\fP requires \fIc\d\s-3max\s0\u = 255\fP. .PP The algorithm maps this domain onto a tree in which each node represents a cube within that domain. In the following discussion, these cubes are defined by the coordinate of two opposite vertices: The vertex nearest the origin in RGB space and the vertex farthest from the origin. .PP The tree's root node represents the the entire domain, (0,0,0) through (\fIc\d\s-3max\s0\u,c\d\s-3max\s0\u,c\d\s-3max\s0\u\fP). Each lower level in the tree is generated by subdividing one node's cube into eight smaller cubes of equal size. This corresponds to bisecting the parent cube with planes passing through the midpoints of each edge. .PP The basic algorithm operates in three phases: \fBClassification, Reduction\fP, and \fBAssignment\fP. \fBClassification\fP builds a color description tree for the image. \fBReduction\fP collapses the tree until the number it represents, at most, is the number of colors desired in the output image. \fBAssignment\fP defines the output image's color map and sets each pixel's color by reclassification in the reduced tree. .PP \fBClassification\fP begins by initializing a color description tree of sufficient depth to represent each possible input color in a leaf. However, it is impractical to generate a fully-formed color description tree in the classification phase for realistic values of \fIc\d\s-3max\s0\u\fP. If color components in the input image are quantized to \fIk\fP-bit precision, so that \fIc\d\s-3max\s0\u = 2\u\s-3k\s0\d-1\fP, the tree would need \fIk\fP levels below the root node to allow representing each possible input color in a leaf. This becomes prohibitive because the tree's total number of nodes is .PP \fI\s+6\(*S\u\s-9 k\d\di=1\s0 8k\fP\s0\u .PP A complete tree would require 19,173,961 nodes for \fIk = 8, c\d\s-3max\s0\u = 255\fP. Therefore, to avoid building a fully populated tree, \fBImageMagick\fP: (1) Initializes data structures for nodes only as they are needed; (2) Chooses a maximum depth for the tree as a function of the desired number of colors in the output image (currently \fIlog\d\s-34\s0\u(colormap size)\+2\fP). A tree of this depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. Therefore, the caller can request a specific tree depth. .PP For each pixel in the input image, classification scans downward from the root of the color description tree. At each level of the tree, it identifies the single node which represents a cube in RGB space containing the pixel's color. It updates the following data for each such node: .TP 5 .B n\d\s-31\s0\u: Number of pixels whose color is contained in the RGB cube which this node represents; .TP 5 .B n\d\s-32\s0\u: Number of pixels whose color is not represented in a node at lower depth in the tree; initially, \fIn\d\s-32\s0\u = 0\fP for all nodes except leaves of the tree. .TP 5 .B S\d\s-3r\s0\u, S\d\s-3g\s0\u, S\d\s-3b\s0\u: Sums of the red, green, and blue component values for all pixels not classified at a lower depth. The combination of these sums and \fIn\d\s-32\s0\u\fP will ultimately characterize the mean color of a set of pixels represented by this node. .PP \fBReduction\fP repeatedly prunes the tree until the number of nodes with \fIn\d\s-32\s0\u > 0\fP is less than or equal to the maximum number of colors allowed in the output image. On any given iteration over the tree, it selects those nodes whose \fIn\d\s-31\s0\u\fP count is minimal for pruning and merges their color statistics upward. It uses a pruning threshold, \fIn\d\s-3p\s0\u\fP, to govern node selection as follows: .PP n\d\s-3p\s0\u = 0 while number of nodes with (n\d\s-32\s0\u > 0) > required maximum number of colors prune all nodes such that n\d\s-31\s0\u <= n\d\s-3p\s0\u Set n\d\s-3p\s0\u to minimum n\d\s-31\s0\u in remaining nodes .PP When a node to be pruned has offspring, the pruning procedure invokes itself recursively in order to prune the tree from the leaves upward. The values of \fIn\d\s-32\s0\u S\d\s-3r\s0\u, S\d\s-3g\s0\u,\fP and \fIS\d\s-3b\s0\u\fP in a node being pruned are always added to the corresponding data in that node's parent. This retains the pruned node's color characteristics for later averaging. .PP For each node, \fIn\d\s-32\s0\u\fP pixels exist for which that node represents the smallest volume in RGB space containing those pixel's colors. When \fIn\d\s-32\s0\u > 0\fP the node will uniquely define a color in the output image. At the beginning of reduction, \fIn\d\s-32\s0\u = 0\fP for all nodes except the leaves of the tree which represent colors present in the input image. .PP The other pixel count, \fIn\d\s-31\s0\u\fP, indicates the total number of colors within the cubic volume which the node represents. This includes \fIn\d\s-31\s0\u - n\d\s-32\s0\u\fP pixels whose colors should be defined by nodes at a lower level in the tree. .PP \fBAssignment\fP generates the output image from the pruned tree. The output image consists of two parts: (1) A color map, which is an array of color descriptions (RGB triples) for each color present in the output image; (2) A pixel array, which represents each pixel as an index into the color map array. .PP First, the assignment phase makes one pass over the pruned color description tree to establish the image's color map. For each node with \fIn\d\s-32\s0\u > 0\fP, it divides \fIS\d\s-3r\s0\u, S\d\s-3g\s0\u\fP, and \fPS\d\s-3b\s0\u\fP by \fIn\d\s-32\s0\u\fP. This produces the mean color of all pixels that classify no lower than this node. Each of these colors becomes an entry in the color map. .PP Finally, the assignment phase reclassifies each pixel in the pruned tree to identify the deepest node containing the pixel's color. The pixel's value in the pixel array becomes the index of this node's mean color in the color map. .PP Empirical evidence suggests that distances in color spaces such as YUV, or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Here the algorithm is as described except each pixel is a point in the alternate color space. For convenience, the color components are normalized to the range 0 to a maximum value, \fIc\d\s-3max\s0\u\fP. The color reduction can then proceed as described. .SH "MEASURING COLOR REDUCTION ERROR" .PP Depending on the image, the color reduction error may be obvious or invisible. Images with high spatial frequencies (such as hair or grass) will show error much less than pictures with large smoothly shaded areas (such as faces). This is because the high-frequency contour edges introduced by the color reduction process are masked by the high frequencies in the image. .PP To measure the difference between the original and color reduced images (the total color reduction error), \fBImageMagick\fP sums over all pixels in an image the distance squared in RGB space between each original pixel value and its color reduced value. \fBImageMagick\fP prints several error measurements including the mean error per pixel, the normalized mean error, and the normalized maximum error. .PP The normalized error measurement can be used to compare images. In general, the closer the mean error is to zero the more the quantized image resembles the source image. Ideally, the error should be perceptually-based, since the human eye is the final judge of quantization quality. .PP These errors are measured and printed when \fB-verbose\fP and \fB-colors\fI are specified on the command line: .TP 5 .B mean error per pixel: is the mean error for any single pixel in the image. .TP 5 .B normalized mean square error: is the normalized mean square quantization error for any single pixel in the image. This distance measure is normalized to a range between 0 and 1. It is independent of the range of red, green, and blue values in the image. .TP 5 .B normalized maximum square error: is the largest normalized square quantization error for any single pixel in the image. This distance measure is normalized to a range between 0 and 1. It is independent of the range of red, green, and blue values in the image. .SH SEE ALSO .B display(1), animate(1), mogrify(1), import(1), miff(5) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS Paul Raveling, USC Information Sciences Institute, for the original idea of using space subdivision for the color reduction algorithm. With Paul's permission, this document is an adaptation from a document he wrote. .SH AUTHORS John Cristy, E.I. du Pont de Nemours & Company Incorporated *qualifier; { if (warning_handler != (ErrorHandler) NULL) (*warning_handler)(message,qualifier); } parameter follows: % % o status: Function ReadData returns True if all the data requested % is obtained with./ImageMagick/display.man 644 24 24 127442 5556401617 10601 .ad l .nh .TH display 1 "1 May 1994" "ImageMagick" .SH NAME display - display an image on any workstation running X .SH SYNOPSIS .B "display" [ \fIoptions\fP ...] \fIfile\fP [ [ \fIoptions\fP ...] \fIfile\fP ...] .SH DESCRIPTION \fBdisplay\fP is a machine architecture independent image processing and display program. It can display an image on any workstation display running an X server. \fBdisplay\fP first determines the hardware capabilities of the workstation. If the number of unique colors in the image is less than or equal to the number the workstation can support, the image is displayed in an X window. Otherwise the number of colors in the image is first reduced to match the color resolution of the workstation before it is displayed. .PP This means that a continuous-tone 24 bits-per-pixel image can display on a 8 bit pseudo-color device or monochrome device. In most instances the reduced color image closely resembles the original. Alternatively, a monochrome or pseudo-color image can display on a continuous-tone 24 bits-per-pixel device. .SH EXAMPLES To scale an image of a cockatoo to exactly 640 pixels in width and 480 pixels in height and position the window at location (200,200), use: .PP .B display -geometry 640x480\+200\+200! cockatoo.miff .PP To display an image of a cockatoo without a border centered on a backdrop, use: .PP .B display +borderwidth -backdrop cockatoo.miff .PP To tile an image of a cockatoo onto the root window, use: .PP .B display -window root cockatoo.miff .SH OPTIONS .TP 5 .B "-backdrop" display the image centered on a backdrop. This backdrop covers the entire workstation screen and is useful for hiding other X window activity while viewing the image. The color of the backdrop is specified as the background color. Refer to \fBX RESOURCES\fP for details. .TP 5 .B "-border \fIxfP" surround the image with a border or color. See \fBX(1)\fP for details about the geometry specification. The color of the border is obtained from the X server and is defined as \fBbordercolor\fP (class \fBborderColor\fP). See \fBX(1)\fP for details. .TP 5 .B "-clip \fIx{\+-}{\+-}\fP" preferred size and location of the clipped image. See \fBX(1)\fP for details about the geometry specification. Use clipping to apply image processing options to, or display, a particular area of an image. Use \fB-clip 0x0\fP to remove edges that are the background color. The equivalent X resource for this option is \fBclipGeometry\fP (class \fBClipGeometry\fP). See \fBX RESOURCES\fP for details. .TP 5 .B "-colormap \fItype\fP" the type of colormap: \fBShared\fP or \fBPrivate\fP. This option only applies when the default X server visual is \fIPseudoColor\fP or \fIGrayScale\fP. Refer to \fB-visual\fP for more details. By default, a shared colormap is allocated. The image shares colors with other X clients. Some image colors could be approximated, therefore your image may look very different than intended. Choose \fBPrivate\fP and the image colors appear exactly as they are defined. However, other clients may go "technicolor" when the image colormap is installed. .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. Note, options \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. Use this option with \fB-write\fP to specify the the type of image compression. See \fBmiff(5)\fP for details. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-delay \fIseconds\fP" display the next image after pausing. This option is useful when viewing several images in sequence. Each image will display and wait the number of seconds specified before the next image is displayed. The default is to display the image and wait until you choose to display the next image or terminate the program. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-enhance" apply a digital filter to enhance a noisy image. .TP 5 .B "-equalize" perform histogram equalization to the image. .TP 5 .B "-gamma \fIvalue\fP" level of gamma correction. The same color image displayed on two different workstations may look different due to differences in the display monitor. Use gamma correction to adjust for this color difference. Reasonable values extend from 0.8 to 2.3. You can apply separate gamma values to the red, green, and blue channels of the image with a gamma value list delineated with commas (i.e. 1.7,2.3,1.2). .TP 5 .B "-geometry \fI{%}x{%}{\+-}{\+-}{!}\fP" preferred size and location of the image window. See \fBX(1)\fP for details about the geometry specification. By default, the window size is the image size and the location is choosen by you when it is mapped. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. When displaying an image on an X server, \fI\fP and \fI\fP is relative to the root window. The equivalent X resource for this option is \fBimageGeometry\fP (class \fBImageGeometry\fP). See \fBX RESOURCES\fP for details. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-inverse" apply color inversion to image. The red, green, and blue intensities of an image are negated. .TP 5 .B "-label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, or \fB%s\fP for scene number. For example, .nf -label "%m:%f %wx%h" .fi produces an image label of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image label is read from a file titled by the remaining characters in the string. When converting to Postscript, use this option to specify a header string to print above the image. .TP 5 .B "-map \fItype\fP" display image using this Standard Colormap type. Choose from these Standard Colormap types: default best red green blue gray The X server must support the Standard Colormap you choose, otherwise an error occurs. See \fBxstdcmap(1)\fP for one way of creating Standard Colormaps. .TP 5 .B "-matte" store matte channel if the image has one. .TP 5 .B "-monochrome" transform the image to black and white. .TP 5 .B "-noise" reduce the noise in an image with a noise peak elimination filter. The principal function of noise peak elimination filter is to smooth the objects within an image without losing edge information and without creating undesired structures. The central idea of the algorithm is to replace a pixel with its next neighbor in value within a 3 x 3 window, if this pixel has been found to be noise. A pixel is defined as noise if and only if this pixel is a maximum or minimum within the 3 x 3 window. .TP 5 .B "-normalize" transform image to span the full range of color values. This is a contrast enhancement technique. .TP 5 .B "-page \fIx{\+-}{\+-}\fP" size and location of the Postscript page. Use this option to specify the dimensions of the Postscript page in picas or a TEXT page in pixels. The default for a Postscript page is to center the image on a letter page 612 by 792 dots per inch. The left and right margins are 18 picas and the top and bottom 94 picas (i.e. 612x792+18+94). Other common sizes are: 540x720 Note 612x1008 Legal 842x1190 A3 595x842 A4 421x595 A5 297x421 A6 709x1002 B4 612x936 U.S. Foolscap 612x936 European Foolscap 396x612 Half Letter 792x1224 11x17 1224x792 Ledger The page geometry is relative to the vertical and horizontal density of the Postscript page. See \fB-density\fP for details. The default page dimensions for a TEXT image is 612x792+36+36. .TP 5 .B "-quality \fIvalue\fP" JPEG quality setting. Quality is 0 (worst) to 100 (best). The default is 85. .TP 5 .B "-reflect" create a "mirror image" by reflecting the image scanlines. .TP 5 .B "-roll \fI{\+-}{\+-}\fP" roll an image vertically or horizontally. See \fBX(1)\fP for details about the geometry specification. A negative \fIx offset\fP rolls the image left-to-right. A negative \fIy offset\fP rolls the image top-to-bottom. .TP 5 .B "-rotate \fIdegrees\fP" apply Paeth image rotation to the image. Empty triangles left over from rotating the image are filled with the color defined by the pixel at location (0,0). .TP 5 .B "-scene \fIvalue\fP" image scene number. Use this option to specify an image sequence with a single filename. See the discussion of \fIfile\fP below for details. .TP 5 .B "-shear \fIx\fP" shear the image along the X or Y axis by a positive or negative shear angle. Shearing slides one edge of an image along the X or Y axis, creating a parallelogram. An X direction shear slides an edge along the X axis, while a Y direction shear slides an edge along the Y axis. The amount of the shear is controlled by a shear angle. For X direction shears, \fIx degrees>\fP is measured relative to the Y axis, and similarly, for Y direction shears \fIy degrees\fP is measured relative to the X axis. Empty triangles left over from shearing the image are filled with the color defined by the pixel at location (0,0). Refer to \fB-border\fP to choose a specific color. .TP 5 .B "-treedepth \fIvalue\fP" Normally, this integer value is zero or one. A zero or one tells \fBdisplay\fP to choose a optimal tree depth for the color reduction algorithm. An optimal depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. To assure the best representation, try values between 2 and 8 for this parameter. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-update \fIseconds\fP" detect when image file is modified and redisplay. Suppose that while you are displaying an image the file that is currently displayed is over-written. \fBdisplay\fP will automatically detect that the input file has been changed and update the displayed image accordingly. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors; and the number of seconds to read and transform the image. Refer to \fBmiff(5)\fP for a description of the image class. If \fB-colors\fP is also specified, the total unique colors in the image and color reduction error values are printed. Refer to \fBquantize(9)\fP for a description of these values. .TP 5 .B "-visual \fItype\fP" display image using this visual type. Choose from these visual classes: StaticGray GrayScale StaticColor PseudoColor TrueColor DirectColor default \fIvisual id\fP The X server must support the visual you choose, otherwise an error occurs. If a visual is not specified, the visual class that can display the most simultaneous colors on the default X server screen is choosen. .TP 5 .B "-window \fIid\fP" set the background pixmap of this window to the image. \fIid\fP can be a window id or name. Specify \fBroot\fP to select X's root window as the target window. By default the image is tiled onto the background of the target window. If \fB-backdrop\fP or \fB-geometry\fP are specified, the image is surrounded by the background color. Refer to \fBX RESOURCES\fP for details. The image will not display on the root window if the image has more unique colors than the target window colormap allows. Use \fB-colors\fP to reduce the number of colors. .TP 5 .B "-write \fIfilename\fP" write image to a file. If \fIfile\fP already exists, you will be prompted as to whether it should be overwritten. By default, the image is written in the format that it was read in as. To specify a particular image format, prefix \fIfile\fP with the image type and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. Specify \fIfile\fP as \fI-\fP for standard output. If \fIfile\fP has the extension \fB.Z\fP or \fB.gz\fP, the file size is compressed using with \fBcompress\fP or \fBgzip\fP respectively. Precede the image file name \fI|\fP to pipe to a system command. If \fIfile\fP already exists, you will be prompted as to whether it should be overwritten. Use \fB-compress\fP to specify the type of image compression. The equivalent X resource for this option is \fBwriteFilename\fP (class \fBWriteFilename\fP). See \fBX RESOURCES\fP for details. .PP In addition to those listed above, you can specify these standard X resources as command line options: \fB-background\fP, \fB-bordercolor\fP, \fB-borderwidth\fP, \fB-font\fP, \fB-foreground\fP, \fB-iconGeometry\fP, \fB-iconic\fP, \fB-mattecolor\fP, \fB-name\fP, or \fB-title\fP. See \fBX RESOURCES\fP for details. .PP Any option you specify on the command line remains in effect until it is explicitly changed by specifying the option again with a different effect. For example to display two images, the first with 32 colors, and the second with only 16 colors, use: .PP display -colors 32 cockatoo.miff -colors 16 macaw.miff .PP Change \fI-\fP to \fI\+\fP in any option above to reverse its effect. For example, specify \fB\+matte\fP to store the image without its matte channel. .PP By default, the image format is determined by its magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. .PP When you specify \fBX\fP as your image type, the filename has special meaning. It specifies an X window by id, name, or \fBroot\fP. If no filename is specified, the window is selected by clicking the mouse in the desired window. .PP Specify \fIfile\fP as \fI-\fP for standard input. If \fIfile\fP has the extension \fB.Z\fP or \fB.gz\fP, the file is uncompressed with \fBuncompress\fP or \fBgunzip\fP respectively. Precede the image file name \fI|\fP to pipe from a system command. .PP Single images are read with the filename you specify. Alternatively, you can display an image sequence with a single filename. Define the range of the image sequence with \fI-scene\fP. Each image in the range is read with the filename followed by a period (\fB.\fP) and the scene number. You can change this behavior by embedding a \fBprintf\fP format specification in the file name. For example, .nf -scene 0-9 image%02d.miff .fi displays files image00.miff, image01.miff, through image09.miff. .SH BUTTONS The effects of each button press is described below. Three buttons are required. If you have a two button mouse, button 1 and 3 are returned. Press ALT and button 3 to simulate button 2. .TP 5 .B "1" Press and drag to select a command from a pop-up menu. Choose from these commands: Image Info Comment Half Size Double Size Rotate Right Rotate Left Print Write Load Next Former Help Quit .TP 5 .B "2" Press and drag to select an image editing command from a pop-up menu. Choose from these commands: Gamma Equalize Resize Trim Edges Clip Cut Rotate Reflect Annotate Composite Color Edit Matte Edit Restore .TP 5 .B "3" Press and drag to define a region of the image to magnify. If the image is a montage image, choose a particular tile of the image and press this button. The image represented by the tile is then displayed. To return to the composite MIFF image, choose \fINext\fP from the command menu (refer to Button 1). See \fBmontage(1)\fP and \fBmiff(5)\fP for more details. .SH KEYBOARD ACCELERATORS .TP 5 .B "h" Press to display helpful information about \fBdisplay(1)\fP. Function keys \fIHELP\fP or \fIF1\fP are synonomous with the \fIh\fP key. .TP 5 .B "i" Press to display information about the image. Press any key or button to erase the information. This information is printed: image scene number; image name; image size; the visual class (see \fB-visual\fP); and the total number of unique colors in the image. .TP 5 .B "#" Press to add an image comment. .TP 5 .B "<" Press to half the image size. .TP 5 .B ">" Press to double the image size. .TP 5 .B "/" Press to rotate the image 90 degrees clockwise. .TP 5 .B \(bs Press to rotate the image 90 degrees counter-clockwise. .TP 5 .B "p" Press to print the image to a Postscript printer. .TP 5 .B "w" Press to write the image to a file. .TP 5 .B "l" Press to load an image from a file. .TP 5 .B "n" Press to display the next image. .TP 5 .B "f" Press to display the former image. .TP 5 .B "q" Press to discard all images and exit program. .TP 5 .B "g" Press to gamma correct the image. .TP 5 .B "g" Press to perform histogram equalization on the image. .TP 5 .B "-" Press to resize the image to a width and height you specify. .TP 5 .B "t" Press to trim the image edges. .TP 5 .B "[" Press to crop the image. Refer to \fBIMAGE CROPPING\fP for more details. .TP 5 .B "]" Press to cut the image. Refer to \fBIMAGE CUTTING\fP for more details. .TP 5 .B "|" Press to rotate the image the number of degrees you specify. Refer to \fBIMAGE ROTATION\fP for more details. .TP 5 .B "r" Press to reflect the image scanlines. .TP 5 .B "a" Press to annotate the image with text. Refer to \fBIMAGE ANNOTATION\fP for more details. .TP 5 .B "x" Press to composite the image with another. Refer to \fBIMAGE COMPOSITING\fP for more details. .TP 5 .B "c" Press to edit an image pixel color. Refer to \fBCOLOR EDITING\fP for more details. .TP 5 .B "m" Press to edit the image matte information. Refer to \fBMATTE EDITING\fP for more details. .TP 5 .B "o" Press to restore the image to its original size. .TP 5 .B "1-9" Press to change the level of magnification. Use the arrow keys to move the image one pixel up, down, left, or right within the magnify window. Be sure to first map the magnify window by pressing button 2. Press \fBALT\fP and one of the arrow keys to trim off one pixel from any side of the image. .SH "X RESOURCES" \fBdisplay\fP options can appear on the command line or in your X resource file. Options on the command line supersede values specified in your X resource file. See \fBX(1)\fP for more information on X resources. All \fBdisplay\fP options have a corresponding X resource. In addition, \fBdisplay\fP uses the following X resources: .TP 5 .B background (\fIclass\fP Background) Specifies the preferred color to use for the image window background. The default is #ccc. .TP 5 .B borderColor (\fIclass\fP BorderColor) Specifies the preferred color to use for the image window border. The default is black. .TP 5 .B borderWidth (\fIclass\fP BorderWidth) Specifies the width in pixels of the image window border. The default is 2. .TP 5 .B editorCommand (\fIclass\fP editorCommand) Specifies the name of the preferred editor when editing image comments. The default is \fIxterm -e vi %s\fP. .TP 5 .B font (\fIclass\fP FontList) Specifies the name of the preferred font to use when displaying text within the image window. The default is \fI9x15\fP, \fIfixed\fP, or \fI6x13\fP determined by the image window size. .TP 5 .B font[1-9] (\fIclass\fP Font[1-9]) Specifies the name of the preferred font to use when annotating the image window with text. The default fonts are \fIfixed\fP, \fIvariable\fP, \fI5x8\fP, \fI6x10\fP, \fI7x13bold\fP, \fI8x13bold\fP, \fI9x15bold\fP, \fI10x20\fP, and \fI12x24\fP. Refer to \fBIMAGE ANNOTATION\fP for more details. .TP 5 .B foreground (\fIclass\fP Foreground) Specifies the preferred color to use for text within the image window. The default is black. .TP 5 .B iconGeometry (\fIclass\fP IconGeometry) Specifies the preferred size and position of the application when iconified. It is not necessarily obeyed by all window managers. .TP 5 .B iconic (\fIclass\fP Iconic) This resource indicates that you would prefer that the application's windows initially not be visible as if the windows had be immediately iconified by you. Window managers may choose not to honor the application's request. .TP 5 .B magnify (\fIclass\fP Magnify) specifies an integral factor by which the image should be enlarged. The default is 2. This value only affects the magnification window which is invoked with button number 3 after the image is displayed. Refer to \fBBUTTONS\fP for more details. .TP 5 .B matteColor (\fIclass\fP MatteColor) Specify the color of windows. It is used for the backgrounds of windows, menus, and notices. A 3D effect is achieved by using highlight and shadow colors derived from this color. Default value: #ddd. .TP 5 .B name (\fIclass\fP Name) This resource specifies the name under which resources for the application should be found. This resource is useful in shell aliases to distinguish between invocations of an application, without resorting to creating links to alter the executable file name. The default is the application name. .TP 5 .B pen[1-9] (\fIclass\fP Pen[1-9]) Specifies the color of the preferred font to use when annotating the image window with text. The default colors are \fIblack\fP, \fIblue\fP, \fIgreen\fP, \fIcyan\fP, \fIgray\fP, \fIred\fP, \fImagenta\fP, \fIyellow\fP, and \fIwhite\fP. Refer to \fBIMAGE ANNOTATION\fP for more details. .TP 5 .B printCommand (\fIclass\fP PrintCommand) This command is executed whenever \fBPrint\fP is issued (see \fBBUTTONS\fP. In general, it is the command to print Postscript to your printer. Default value: \fBlpr\fP. .TP 5 .B title (\fIclass\fP Title) This resource specifies the title to be used for the image window. This information is sometimes used by a window manager to provide a header identifying the window. The default is the image file name. .TP 5 .B usePixmap (\fIclass\fP UsePixmap) Images are maintained as a XImage by default. Set this resource to True to utilize a server Pixmap instead. This option is useful if your image exceeds the dimensions of your server screen and you intend to pan the image. Panning is much faster with Pixmaps than with a XImage. Pixmaps are considered a precious resource, use them with discretion. .SH IMAGE PANNING When an image exceeds the width or height of the X server screen, \fBdisplay\fP maps a small panning window. The rectangle within the panning window shows the area that is currently displayed in the the image window. To "pan" about the image, press and drag the mouse within the panning window. The panning rectangle moves with the mouse and the image window is updated to reflect the location of the rectangle within the panning window. When you have selected the area of the image you wish to view, just release the mouse button. Use the arrow keys to pan the image one pixel up, down, left, or right within the image window. The panning window goes away if the image becomes smaller than the dimensions of the X server screen. If you force the panning window to withdraw, the image is restored to its original size. .SH IMAGE CROPPING To begin, press button 2 and choose \fIClip\fP from the command menu (see \fBBUTTONS\fP). Alternatively, press \fIc\fP in the image window (see \fBKEYBOARD ACCELERATORS\fP). To exit immediately, press \fIESC\fP. A small window appears showing the location of the cursor in the image window. You are now in \fIclip mode\fP. To exit immediately, press \fIESC\fP. To define a clipping region, press button 1 and drag. The clipping region is defined by a highlighted rectangle that expands or contracts as it follows the pointer. Once you are satisfied with the clipping region, release the button. You can make adjustments to the clipping rectangle with the arrow keys. Press an arrow key to expand the region by one pixel. Press \fBALT\fP and an arrow key to contract the clipping region. Finally, press \fIRETURN\fP to commit your clipping region. To exit without cropping the image, press \fIESC\fP. .SH IMAGE CUTTING An image is cut interactively. There is no command line argument to cut an image. To begin, press button 2 and choose \fICut\fP from the image edit menu (see \fBBUTTONS\fP). Alternatively, press \fIx\fP in the image window (see \fBKEYBOARD ACCELERATORS\fP). To exit immediately, press \fIESC\fP. .PP You are now in \fIcut mode\fP. To exit immediately, press \fIESC\fP. In \fIcut mode\fP a button press has a different effect than described in \fBBUTTONS\fP. Press a button to affect this behavior: .TP 5 .B "1" Select a location within the image window to begin your cut, press and hold. Next, move the pointer to another location in the image. As you move a line will connect the initial location and the pointer. When you release the button, the area within the image to cut is determined by which cut direction you choose with button 2. .TP 5 .B "2" Press and drag to select a cut operator from a pop-up menu. Choose from these cut operators: horizontal vertical .PP If the operator is \fBhorizontal\fP, the area of the image between the two horizontal endpoints of the cut line is removed. Otherwise, the area of the image between the two vertical endpoints of the cut line is removed. .PP To cancel the image cutting, move the pointer back to the starting point of the line and release the button. .SH IMAGE ROTATION Press the \fI/\fP key to rotate the image 90 degrees or \fI\\\fP to rotate -90 degrees (see \fBKEYBOARD ACCELERATORS\fP). To interactively choose the degree of rotation, choose \fIRotate\fP from the image edit menu (see \fBBUTTONS\fP). Alternatively, press \fI|\fP in the image window (see \fBKEYBOARD ACCELERATORS\fP). To exit immediately, press any button in the image window twice. .PP A small horizontal line is drawn next to the pointer. You are now in \fIrotation mode\fP. To exit immediately, press any button and release. .PP Choose a point in the image window and press any button and hold. Next, move the pointer to another location in the image. As you move a line will connect the initial location and the pointer. When you release the button, the degree of image rotation is determined by the slope of the line you just drew. .PP To cancel the image rotation, move the pointer back to the starting point of the line and release the button. .SH IMAGE ANNOTATION An image is annotated with text interactively. There is no command line argument to annotate an image. To begin, press button 2 and choose \fIAnnotate\fP from the image edit menu (see \fBBUTTONS\fP). Alternatively, press \fIa\fP in the image window (see \fBKEYBOARD ACCELERATORS\fP). To exit immediately, press \fIESC\fP. .PP A small window appears showing the location of the cursor in the image window. You are now in \fIannotate mode\fP. To exit immediately, press \fIESC\fP. In \fIannotate mode\fP a button press has a different effect than described in \fBBUTTONS\fP. Press a button to affect this behavior: .TP 5 .B "1" Press to select a location within the image window to begin entering text. .TP 5 .B "2" Press and drag to select a font color from a pop-up menu. Choose from these font colors: black blue cyan green gray red magenta yellow white Other font colors can be specified with the color browser or by setting the X resources \fBpen1\fP through \fBpen9\fP. Refer to \fBX RESOURCES\fP for more details. .PP If you select the color browser and press \fBGrab\fP, you can choose the font color by moving the pointer to the desired color on the screen and press any button. .TP 5 .B "3" Press and drag to select a font from a pop-up menu. Choose from these fonts: fixed variable 5x8 6x10 7x13bold 8x13bold 9x15bold 10x20 12x24 Other fonts can be specified with the font browser or by setting the X resources \fBfont1\fP through \fBfont9\fP. Refer to \fBX RESOURCES\fP for more details. .PP Choosing a font and its color is optional. The default font is \fIfixed\fP and the default color is \fIblack\fP. However, you must choose a location to begin entering text and press button 1. An underscore character will appear at the location of the cursor where you pressed button 1. The cursor changes to a pencil to indicate you are in \fItext mode\fP. To exit immediately, press \fIESC\fP. .PP In \fItext mode\fP, any key presses will display the character at the location of the underscore and advance the underscore cursor. Enter your text and once completed press \fIESC\fP to finish your image annotation. To correct errors press \fIBACK SPACE\fP. To delete an entire line of text, press \fIDELETE\fP. Any text that exceeds the boundaries of the image window is automatically continued onto the next line. .PP Before exiting \fItext mode\fP, immediately after pressing the \fIESC\fP key, the image is permanently updated with the text you entered. There is no way to `undo' your changes so be careful to check your text before you press \fIESC\fP. .PP The actual color you request for the font is saved in the image. However, the color that appears in your image window may be different. For example, on a monochrome screen the text will appear black or white even if you choose the color red as the font color. However, the image saved to a file with \fB-write\fP is written with red lettering. To assure the correct color text in the final image, any \fIPseudoClass\fP image is promoted to \fIDirectClass\fP (see \fBmiff(5)\fP). To force a \fIPseudoClass\fP image to remain \fIPseudoClass\fP, use \fB-colors\fP. .SH IMAGE COMPOSITING An image composite is created interactively. There is no command line argument to composite an image. To begin, press button 2 and choose \fIComposite Image\fP from the image edit menu (see \fBBUTTONS\fP). Alternatively, press \fI*\fP in the image window (see \fBKEYBOARD ACCELERATORS\fP). .PP First a popup window is displayed requesting you to enter an image name. Press \fIComposite\fP, enter 'X:', or type a file name. Press \fICancel\fP if you choose not to create a composite image. When you specify \fBX:\fP as your file name, the filename has special meaning. It specifies an X window by id, name, or \fBroot\fP. If no name is specified, the window is selected by clicking the mouse in the desired window. See \fBimport(1)\fP for details. .PP A small window appears showing the location of the cursor in the image window. You are now in \fIcomposite mode\fP. To exit immediately, press \fIESC\fP. In \fIcomposite mode\fP a button press has a different effect than described in \fBBUTTONS\fP. Press a button to affect this behavior: .TP 5 .B "1" Press to select a location within \fIimage window\fP to composite your image. .TP 5 .B "2" Press and drag to select a composite operation from a pop-up menu. Choose from these composite operations: over in out atop xor plus minus add subtract difference replace .PP How each operator behaves is described below. \fIimage window\fP is the image currently displayed on your X server and \fIimage\fP is image obtained with the File Browser widget. .TP 9 .B over The result is the union of the two image shapes, with \fIimage\fP obscuring \fIimage window\fP in the region of overlap. .TP 9 .B in The result is simply \fIimage\fP cut by the shape of \fIimage window\fP. None of the image data of \fIimage window\fP is in the result. .TP 9 .B out The resulting image is \fIimage\fP with the shape of \fIimage window\fP cut out. .TP 9 .B atop The result is the same shape as image \fIimage window\fP, with \fIimage\fP obscuring \fIimage window\fP where the image shapes overlap. Note this differs from \fBover\fP because the portion of \fIimage\fP outside \fIimage window\fP's shape does not appear in the result. .TP 9 .B xor The result is the image data from both \fIimage\fP and \fIimage window\fP that is outside the overlap region. The overlap region is blank. .TP 9 .B plus The result is just the sum of the image data. Output values are clipped to 255 (no overflow). This operation is independent of the matte channels. .TP 9 .B minus The result of \fIimage\fP \- \fIimage window\fP, with underflow clipped to zero. The matte channel is ignored (set to 255, full coverage). .TP 9 .B add The result of \fIimage\fP + \fIimage window\fP, with overflow wrapping around (\fImod\fP 256). .TP 9 .B subtract The result of \fIimage\fP - \fIimage window\fP, with underflow wrapping around (\fImod\fP 256). The \fBadd\fP and \fBsubtract\fP operators can be used to perform reversible transformations. .TP 9 .B difference The result of abs(\fIimage\fP \- \fIimage window\fP). This is useful for comparing two very similar images. .TP 9 .B replace The resulting image is \fIimage window\fP replaced with \fIimage\fP. Here the matte information is ignored. .PP The image compositor requires an matte, or alpha channel in the image for some operations. This extra channel usually defines a mask which represents a sort of a cookie-cutter for the image. This is the case when matte is 255 (full coverage) for pixels inside the shape, zero outside, and between zero and 255 on the boundary. If \fIimage\fP does not have an matte channel, it is initialized with 0 for any pixel matching in color to pixel location (0,0), otherwise 255. See \fBMATTE EDITING\fP for a method of defining a matte channel. .PP Note that matte information for \fIimage window\fP is not retained for colormapped X server visuals (e.g. \fIStaticColor\fP, \fIStaticColor\fP, \fIGrayScale\fP, \fIPseudoColor\fP). Correct compositing behavior may require a \fITrueColor\fP or \fIDirectColor\fP visual or a \fIStandard Colormap\fP. .PP Choosing a composite operator is optional. The default operator is \fIover\fP. However, you must choose a location to composite your image and press button 1. Press and hold button 1 before releasing and an outline of the image will appear to help you identify your location. .PP Immediately after releasing button 1, \fIimage window\fP is permanently updated with your composited image. There is no way to `undo' your changes. Be careful when choosing your location. .PP The actual colors of the composite image is saved. However, the color that appears in \fIimage window\fP may be different. For example, on a monochrome screen \fIimage window\fP will appear black or white even though your composited image may have many colors. If the image is saved to a file it is written with the correct colors. To assure the correct colors are saved in the final image, any \fIPseudoClass\fP image is promoted to \fIDirectClass\fP (see \fBmiff(5)\fP). To force a \fIPseudoClass\fP image to remain \fIPseudoClass\fP, use \fB-colors\fP. .SH COLOR EDITING Changing the the color of a set of pixels is performed interactively. There is no command line argument to edit a pixel. To begin, press button 2 and choose \fIColor Edit\fP from the command menu (see \fBBUTTONS\fP). Alternatively, press \fIe\fP in the image window (see \fBKEYBOARD ACCELERATORS\fP). To exit immediately, press \fIESC\fP. .PP A small window appears showing the location of the cursor in the image window. You are now in \fIpixel edit mode\fP. To exit immediately, press \fIESC\fP. In \fIpixel edit mode\fP a button press has a different effect than described in \fBBUTTONS\fP. Press a button to affect this behavior: .TP 5 .B "1" Press to select a pixel within the image window to change its color. Any pixel within the image that matches the color of the selected pixel is recolored. .TP 5 .B "2" Press and drag to select a pixel color from a pop-up menu. Choose from these font colors: black blue cyan green gray red magenta yellow white Other pixel colors are specified with the color browser or by setting the X resources \fBpen1\fP through \fBpen9\fP. Refer to \fBX RESOURCES\fP for more details. .PP If you select the color browser and press \fBGrab\fP, you can choose the font color by moving the pointer to the desired color on the screen and press any button. .PP The actual color you request for the pixels is saved in the image. However, the color that appears in your image window may be different. For example, on a monochrome screen the pixel will appear black or white even if you choose the color red as the font color. However, the image saved to a file with \fB-write\fP is written with red pixels. To assure the correct color text in the final image, any \fIPseudoClass\fP image is promoted to \fIDirectClass\fP (see \fBmiff(5)\fP). To force a \fIPseudoClass\fP image to remain \fIPseudoClass\fP, use \fB-colors\fP. .SH MATTE EDITING Matte information within an image is useful for some operations such as image compositing (See \fBIMAGE COMPOSITING\fP). This extra channel usually defines a mask which represents a sort of a cookie-cutter for the image. This is the case when matte is 255 (full coverage) for pixels inside the shape, zero outside, and between zero and 255 on the boundary. Setting the matte information in an image is done interactively. There is no command line argument to edit a pixel. To begin, press button 2 and choose \fIAlph Edit\fP from the command menu (see \fBBUTTONS\fP). Alternatively, press \fIe\fP in the image window (see \fBKEYBOARD ACCELERATORS\fP). To exit immediately, press \fIESC\fP. .PP A small window appears showing the location of the cursor in the image window. You are now in \fImatte edit mode\fP. To exit immediately, press \fIESC\fP. In \fImatte edit mode\fP a button press has a different effect than described in \fBBUTTONS\fP. Press a button to affect this behavior: .TP 5 .B "1" Press to select a pixel within the image window to set it's matte value. The matte value of any pixel within the image that matches the color of the selected pixel is initialized. .TP 5 .B "2" Press an a dialog appears requesting an matte value. Enter a value between 0 and 255. This value is assigned as the matte value of the selected pixel or pixels. .PP Matte information is only valid in a \fIDirectClass\fP image. Therefore, any \fIPseudoClass\fP image is promoted to \fIDirectClass\fP (see \fBmiff(5)\fP). Note that matte information for \fIPseudoClass\fP is not retained for colormapped X server visuals (e.g. \fIStaticColor\fP, \fIStaticColor\fP, \fIGrayScale\fP, \fIPseudoColor\fP) unless you immediatelysave your image to a file (refer to \fBWrite\fP). Correct matte editing behavior may require a \fITrueColor\fP or \fIDirectColor\fP visual or a \fIStandard Colormap\fP. .SH ENVIRONMENT .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B animate(1), import(1), montage(1), mogrify(1), convert(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS The MIT X Consortium for making network transparent graphics a reality. .PP Rod Bogart and John W. Peterson, University of Utah. Image compositing is loosely based on \fIrlecomp\fP of the Utah Raster Toolkit. .PP Michael Halle, Spatial Imaging Group at MIT, for the initial implementation of Alan Paeth's image rotation algorithm. .PP David Pensak, E. I. du Pont de Nemours & Company, for providing a computing environment that made this program possible. .PP Paul Raveling, USC Information Sciences Institute, for the original idea of using space subdivision for the color reduction algorithm. .SH AUTHORS John Cristy, E.I. du Pont de Nemours & Company Incorporated left-to-right. A negative \fIy offset\fP rolls the image top-to-bottom. .TP 5 .B "-rotate \fIdegrees\fP" apply Paeth image rotation to the image. Empty triangles left over from rotating the image are filled with the col./ImageMagick/Imakefile 644 24 24 6414 5556377520 10210 #ifndef XCOMM #define XCOMM # #endif #ifndef NullParameter #define NullParameter #endif XCOMM XCOMM Imakefile for display, animate, montage, and import. XCOMM XCOMM Copyright 1994 E. I. du Pont de Nemours & Company XCOMM XCOMM Permission to use, copy, modify, distribute, and sell this software and XCOMM its documentation for any purpose is hereby granted without fee, XCOMM provided that the above Copyright notice appear in all copies and that XCOMM both that Copyright notice and this permission notice appear in XCOMM supporting documentation, and that the name of E. I. du Pont de Nemours XCOMM & Company not be used in advertising or publicity pertaining to XCOMM distribution of the software without specific, written prior XCOMM permission. E. I. du Pont de Nemours & Company makes no representations XCOMM about the suitability of this software for any purpose. It is provided XCOMM "as is" without express or implied warranty. XCOMM XCOMM E. I. du Pont de Nemours & Company disclaims all warranties with regard XCOMM to this software, including all implied warranties of merchantability XCOMM and fitness, in no event shall E. I. du Pont de Nemours & Company be XCOMM liable for any special, indirect or consequential damages or any XCOMM damages whatsoever resulting from loss of use, data or profits, whether XCOMM in an action of contract, negligence or other tortious action, arising XCOMM out of or in connection with the use or performance of this software. XCOMM #include "Magick.tmpl" #define PassCDebugFlags CCOPTIONS='$(CCOPTIONS)' #define IHaveSubdirs SUBDIRS= magick MakeSubdirs($(SUBDIRS)) DependSubdirs($(SUBDIRS)) PROGRAMS= display import montage animate convert mogrify combine segment AllTarget($(PROGRAMS)) NormalProgramTarget(display,display.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(display,$(LOCALDIR)) InstallManPage(display,$(MANDIR)) NormalProgramTarget(montage,montage.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(montage,$(LOCALDIR)) InstallManPage(montage,$(MANDIR)) NormalProgramTarget(import,import.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(import,$(LOCALDIR)) InstallManPage(import,$(MANDIR)) NormalProgramTarget(animate,animate.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(animate,$(LOCALDIR)) InstallManPage(animate,$(MANDIR)) NormalProgramTarget(convert,convert.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(convert,$(LOCALDIR)) InstallManPage(convert,$(MANDIR)) NormalProgramTarget(mogrify,mogrify.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(mogrify,$(LOCALDIR)) InstallManPage(mogrify,$(MANDIR)) NormalProgramTarget(combine,combine.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(combine,$(LOCALDIR)) InstallManPage(combine,$(MANDIR)) NormalProgramTarget(segment,segment.o,NullParameter,$(LOCAL_LIBRARIES),$(XLIB) -lm) InstallProgram(segment,$(LOCALDIR)) InstallManPage(segment,$(MANDIR)) #define InstallMyManPage(file,destdir,suffix) @@\ install.man:: file.man @@\ $(INSTALL) -c $(INSTMANFLAGS) file.man $(DESTDIR)destdir/file.suffix InstallMyManPage(ImageMagick,$(MANSOURCEPATH)n,n) InstallMyManPage(quantize,$(MANSOURCEPATH)5,5) InstallMyManPage(miff,$(MANSOURCEPATH)5,5) y To get the default host, display number, and screen. .SH SEE ALSO .B animate(1), import(1), montage(1), mogrify(1), convert(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to u./ImageMagick/animate.man 644 24 24 44771 5556401461 10532 .ad l .nh .TH animate 1 "1 May 1994" "ImageMagick" .SH NAME animate - display a sequence of images on any workstation running X .SH SYNOPSIS .B "animate" [ \fIoptions\fP ...] \fIfile\fP [ [ \fIoptions\fP ...] \fIfile\fP ...] .SH DESCRIPTION \fBanimate\fP displays a sequence of images on any workstation display running an X server. \fBanimate\fP first determines the hardware capabilities of the workstation. If the number of unique colors in an image is less than or equal to the number the workstation can support, the image is displayed in an X window. Otherwise the number of colors in the image is first reduced to match the color resolution of the workstation before it is displayed. .PP This means that a continuous-tone 24 bits-per-pixel image can display on a 8 bit pseudo-color device or monochrome device. In most instances the reduced color image closely resembles the original. Alternatively, a monochrome or pseudo-color image sequence can display on a continuous-tone 24 bits-per-pixel device. .PP To help prevent color flashing on X server visuals that have colormaps, \fBanimate\fP creates a single colormap from the image sequence. This can be rather time consuming. You can speed this operation up by reducing the colors in the image before you `animate' them. Use \fBmogrify\fP to color reduce the images to a single colormap. See \fBmogrify(1)\fP for details. Alternatively, you can use a Standard Colormap; or a static, direct, or true color visual. You can define a Standard Colormap with \fIxstdcmap\fP. See \fBXSTDCMAP(1)\fP for details. .SH EXAMPLES To animate a set of images of a cockatoo, use: .PP .B animate cockatoo.* .PP To animate a cockatoo image sequence while using the Standard Colormap "best", use: .PP .B xstdcmap -best .B animate -map best cockatoo.* .PP To animate an image of a cockatoo without a border centered on a backdrop, use: .PP .B animate +borderwidth -backdrop cockatoo.* .SH OPTIONS .TP 5 .B "-backdrop" display the image centered on a backdrop. This backdrop covers the entire workstation screen and is useful for hiding other X window activity while viewing the image sequence. The color of the backdrop is specified as the background color. Refer to \fBX RESOURCES\fP for details. .TP 5 .B "-clip \fIx{\+-}{\+-}\fP" preferred size and location of the clipped image. See \fBX(1)\fP for details about the geometry specification. Use clipping to apply image processing options, or display, only a particular area of an image. Use \fB-clip 0x0\fP to remove edges that are the background color. The equivalent X resource for this option is \fBclipGeometry\fP (class \fBClipGeometry\fP). See \fBX RESOURCES\fP for details. .TP 5 .B "-colormap \fItype\fP" the type of colormap: \fBShared\fP or \fBPrivate\fP. This option only applies when the default X server visual is \fIPseudoColor\fP or \fIGrayScale\fP. Refer to \fB-visual\fP for more details. By default, a shared colormap is allocated. The image shares colors with other X clients. Some image colors could be approximated, therefore your image may look very different than intended. Choose \fBPrivate\fP and the image colors appear exactly as they are defined. However, other clients may go "technicolor" when the image colormap is installed. .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. Note, options \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-delay \fImilliseconds\fP" display the next image after pausing. This option is useful for regulating the display of the sequence of images. \fImilliseconds\fP milliseconds must expire before the display of the next image. The default is 30 milliseconds between each frame of the image sequence. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-gamma \fIvalue\fP" level of gamma correction. The same color image displayed on two different workstations may look different due to differences in the display monitor. Use gamma correction to adjust for this color difference. Reasonable values extend from 0.8 to 2.3. You can apply separate gamma values to the red, green, and blue channels of the image with a gamma value list delineated with commas (i.e. 1.7,2.3,1.2). .TP 5 .B "-geometry \fI{%}x{%}{\+-}{\+-}{!}\fP" preferred size and location of the image window. See \fBX(1)\fP for details about the geometry specification. By default, the window size is the image size and the location is choosen by you when it is mapped. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. If the specified image size is smaller than the actual image size, the image is first reduced to an integral of the specified image size with an antialias digital filter. The image is then scaled to the exact specified image size with pixel replication. If the specified image size is greater than the actual image size, the image is first enlarged to an integral of the specified image size with bilinear interpolation. The image is then scaled to the exact specified image size with pixel replication. When displaying an image on an X server, \fI\fP and \fI\fP is relative to the root window. The equivalent X resource for this option is \fBimageGeometry\fP (class \fBImageGeometry\fP). See \fBX RESOURCES\fP for details. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-map \fItype\fP" animate images using this Standard Colormap type. Choose from these Standard Colormap types: default best red green blue gray The X server must support the Standard Colormap you choose, otherwise an error occurs. See \fBXSTDCMAP(1)\fP for one way of creating Standard Colormaps. .TP 5 .B "-monochrome" transform the image to black and white. .TP 5 .B "-reflect" create a "mirror image" by reflecting the image scanlines. .TP 5 .B "-rotate \fIdegrees\fP" apply Paeth image rotation to the image. Empty triangles left over from rotating the image are filled with the color defined by the pixel at location (0,0). .TP 5 .B "-scene \fIvalue{-value}\fP" image scene number. Use this option to specify an image sequence with a single filename. See the discussion of \fIfile\fP below for details. .TP 5 .B "-treedepth \fIvalue\fP" Normally, this integer value is zero or one. A zero or one tells \fBanimate\fP to choose a optimal tree depth for the color reduction algorithm. An optimal depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. To assure the best representation, try values between 2 and 8 for this parameter. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors; and the number of seconds to read and transform the image. Refer to \fBmiff(5)\fP for a description of the image class. If \fB-colors\fP is also specified, the total unique colors in the image and color reduction error values are printed. Refer to \fBquantize(9)\fP for a description of these values. .TP 5 .B "-visual \fItype\fP" animate images using this visual type. Choose from these visual classes: StaticGray GrayScale StaticColor PseudoColor TrueColor DirectColor default \fIvisual id\fP The X server must support the visual you choose, otherwise an error occurs. If a visual is not specified, the visual class that can display the most simultaneous colors on the default screen is choosen. .TP 5 .B "-window \fIid\fP" set the background pixmap of this window to the image. \fIid\fP can be a window id or name. Specify \fBroot\fP to select X's root window as the target window. By default the image is tiled onto the background of the target window. If \fB-backdrop\fP or \fB-geometry\fP are specified, the image is surrounded by the background color. Refer to \fBX RESOURCES\fP for details. The image will not display on the root window if the image has more unique colors than the target window colormap allows. Use \fB-colors\fP to reduce the number of colors. .PP In addition to those listed above, you can specify these standard X resources as command line options: \fB-background\fP, \fB-bordercolor\fP, \fB-borderwidth\fP, \fB-font\fP, \fB-foreground\fP, \fB-iconGeometry\fP, \fB-iconic\fP, \fB-mattecolor\fP, \fB-name\fP, or \fB-title\fP. See \fBX RESOURCES\fP for details. .PP Any option you specify on the command line remains in effect until it is explicitly changed by specifying the option again with a different effect. For example, to animate two images, the first with 32 colors and the second with only 16 colors, use: .PP animate -colors 32 cockatoo.1 -colors 16 cockatoo.2 .PP Change \fI-\fP to \fI\+\fP in any option above to reverse its effect. For example, specify \fB\+dither\fP to not apply error diffusion to an image. .PP By default, the image format is determined by its magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. .PP When you specify \fBX\fP as your image type, the filename has special meaning. It specifies an X window by id, name, or \fBroot\fP. If no filename is specified, the window is selected by clicking the mouse in the desired window. .PP Specify \fIfile\fP as \fI-\fP for standard input, If \fIfile\fP has the extension \fB.Z\fP or \fB.gz\fP, the file is uncompressed with \fBuncompress\fP or \fBgunzip\fP respectively. Precede the image file name with \fI|\fP to pipe from a system command. .PP Single images are read with the filename you specify. Alternatively, you can animate an image sequence with a single filename. Define the range of the image sequence with \fI-scene\fP. Each image in the range is read with the filename followed by a period (\fB.\fP) and the scene number. You can change this behavior by embedding a \fBprintf\fP format specification in the file name. For example, .nf -scene 0-9 image%02d.miff .fi animates files image00.miff, image01.miff, through image09.miff. .PP Image filenames may appear in any order on the command line if the image format is \fIMIFF\fP (refer to \fBmiff(5)\fP and the \fBscene\fP keyword is specified in the image. Otherwise the images will display in the order they appear on the command line. .SH BUTTONS .TP 5 .B "1" Press and drag to select a command from a pop-up menu. Choose from these commands: Play Step Repeat Auto Reverse Slower Faster Forward Reverse Image Info Quit .SH KEYBOARD ACCELERATORS .TP 5 .B "p" Press to animate the sequence of images. .TP 5 .B "s" Press to display the next image in the sequence. .TP 5 .B "." Press to continually display the sequence of images. .TP 5 .B "a" Press to automatically reverse the sequence of images. .TP 5 .B "<" Press to slow the display of the images. Refer to \fB-delay\fP for more information. .TP 5 .B ">" Press to speed-up the display of the images. Refer to \fB-delay\fP for more information. .TP 5 .B "f" Press to animate in the forward direction. .TP 5 .B "r" Press to animate in the reverse direction. .TP 5 .B "i" Press to display information about the image. Press any key or button to erase the information. This information is printed: image name; image size; and the total number of unique colors in the image. .TP 5 .B "q" Press to discard all images and exit program. .SH "X RESOURCES" \fBanimate\fP options can appear on the command line or in your X resource file. Options on the command line supersede values specified in your X resource file. See \fBX(1)\fP for more information on X resources. All \fBanimate\fP options have a corresponding X resource. In addition, the \fBanimate\fP program uses the following X resources: .TP 5 .B background (\fIclass\fP Background) Specifies the preferred color to use for the image window background. The default is #ccc. .TP 5 .B borderColor (\fIclass\fP BorderColor) Specifies the preferred color to use for the image window border. The default is black. .TP 5 .B borderWidth (\fIclass\fP BorderWidth) Specifies the width in pixels of the image window border. The default is 2. .TP 5 .B font (\fIclass\fP Font) Specifies the name of the preferred font to use when displaying text within the image window. The default is \fI/g9x15\fP, \fIfixed\fP, or \fI/g6x13\fP determined by the image window size. .TP 5 .B foreground (\fIclass\fP Foreground) Specifies the preferred color to use for text within the image window. The default is black. .TP 5 .B iconGeometry (\fIclass\fP IconGeometry) Specifies the preferred size and position of the application when iconified. It is not necessarily obeyed by all window managers. .TP 5 .B iconic (\fIclass\fP Iconic) This resource indicates that you would prefer that the application's windows initially not be visible as if the windows had be immediately iconified by you. Window managers may choose not to honor the application's request. .TP 5 .B matteColor (\fIclass\fP MatteColor) Specify the color of windows. It is used for the backgrounds of windows, menus, and notices. A 3D effect is achieved by using highlight and shadow colors derived from this color. Default value: #ddd. .TP 5 .B name (\fIclass\fP Name) This resource specifies the name under which resources for the application should be found. This resource is useful in shell aliases to distinguish between invocations of an application, without resorting to creating links to alter the executable file name. The default is the application name. .TP 5 .B title (\fIclass\fP Title) This resource specifies the title to be used for the image window. This information is sometimes used by a window manager to provide some sort of header identifying the window. The default is the image file name. .SH ENVIRONMENT .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B display(1), import(1), montage(1), mogrify(1), convert(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS The MIT X Consortium for making network transparent graphics a reality. .PP Michael Halle, Spatial Imaging Group at MIT, for the initial implementation of Alan Paeth's image rotation algorithm. .PP David Pensak, E. I. du Pont de Nemours & Company, for providing a computing environment that made this program possible. .PP Paul Raveling, USC Information Sciences Institute, for the original idea of using space subdivision for the color reduction algorithm. .SH AUTHORS John Cristy, E.I. du Pont de Nemours & Company Incorporated and is ./ImageMagick/montage.man 644 24 24 51346 5556401713 10542 .ad l .nh .TH montage 1 "1 May 1994" "ImageMagick" .SH NAME montage - creates a composite image by combining several separate images .SH SYNOPSIS .B "montage" [ \fIoptions\fP ...] \fIfile\fP [ [ \fIoptions\fP ...] \fIfile\fP ...] \fIoutput_file\fP .SH DESCRIPTION \fBmontage\fP creates a composite image by combining several separate images. The images are tiled on the composite image with the name of the image optionally appearing just below the individual tile. The composite image is constructed in the following manner. First, each image specified on the command line, except for the last, is scaled to fit the maximum tile size. The maximum tile size by default is 256x256. It can be modified with the \fB-geometry\fP command line argument or X resource. See \fBOPTIONS\fP for more information on command line arguments. See \fBX(1)\fP for more information on X resources. Note that the maximum tile size need not be a square. To respect the aspect ratio of each image append \fB~\fP to the geometry specification. Next the composite image is initialized with the color specified by the \fP-background\fP command line argument or X resource. The width and height of the composite image is determined by the title specified, the maximum tile size, the number of tiles per row, the tile border width and height, the image border width, and the label height. The number of tiles per row specifies how many images are to appear in each row of the composite image. The default is to have an equal number of images in each row and column of the composite. A specific value is specified with \fB-tiles_per_row\fP. The tile border width and height, and the image border width defaults to the value of the X resource \fB-borderwidth\fP. It can be changed with the \fB-borderwidth\fP or \fB-geometry\fP command line argument or X resource. The label height is determined by the font you specify with the \fB-font\fP command line argument or X resource. If you do not specify a font, a font is choosen that allows the name of the image to fit the maximum width of a tiled area. The label colors is determined by the \fB-background\fP and \fB-foreground\fP command line argument or X resource. Note, that if the background and foreground colors are the same, labels will not appear. Initially, the composite image title is placed at the top if one is specified (refer to \fB-foreground\fP X resource). Next, each image is set onto the composite image, surrounded by its border color, with its name centered just below it. The individual images are left-justified within the width of the tiled area. The order of the images is the same as they appear on the command line unless the images have a scene keyword. If a scene number is specified in each image, then the images are tiled onto the composite in the order of their scene number. Finally, the last argument on the command line is the name assigned to the composite image. By default, the image is written in the \fBMIFF\fP format and can be viewed or printed with \fBdisplay(1)\fP. .SH EXAMPLES To create a montage of a cockatoo, a parrot, and a hummingbird and write it to a file called birds, use: .PP .B montage cockatoo.miff parrot.miff hummingbird.miff birds.miff .PP To tile several bird images so that they are at most 256 pixels in width and 192 pixels in height, surrounded by a red border, and separated by 10 pixels of background color, use: .PP .B montage -geometry 256x192+10+10 -bordercolor red birds.* montage.miff .PP To create an unlabeled parrot image, 640 by 480 pixels, and surrounded by a border of black, use: .PP .B montage -geometry 640x480 -bordercolor black -label "" parrot.miff bird.miff .SH OPTIONS .TP 5 .B "-clip \fIx++\fP" preferred size and location of the clipped image. See \fBX(1)\fP for details about the geometry specification. Use clipping to tile only a particular area of an image. Use \fB-clip 0x0\fP to remove edges that are the background color. The equivalent X resource for this option is \fBclipGeometry\fP (class \fBClipGeometry\fP). See \fBX RESOURCES\fP for details. .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. Note, options \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compose \fIoperator\fP" the type of image composition. By default, each of the composite image pixels are replaced by the corresponding image tile pixel. You can choose an alternate composite operation: over in out atop xor plus minus add subtract difference replace .PP The operations behaves as follows: .TP 9 .B over The result will be the union of the two image shapes, with \fIimage\fP obscuring \fIcomposite image\fP in the region of overlap. .TP 9 .B in The result is simply \fIimage\fP cut by the shape of \fIimage window\fP. None of the image data of \fIcomposite image\fP will be in the result. .TP 9 .B out The resulting image is \fIimage\fP with the shape of \fIcomposite image\fP cut out. .TP 9 .B atop The result is the same shape as image \fIcomposite image\fP, with \fIimage\fP obscuring \fIcomposite image\fP where the image shapes overlap. Note this differs from \fBover\fP because the portion of \fIimage\fP outside \fIcomposite image\fP's shape does not appear in the result. .TP 9 .B xor The result is the image data from both \fIimage\fP and \fIcomposite image\fP that is outside the overlap region. The overlap region will be blank. .TP 9 .B plus The result is just the sum of the image data. Output values are clipped to 255 (no overflow). This operation is independent of the matte channels. .TP 9 .B minus The result of \fIimage\fP \- \fIcomposite image\fP, with underflow clipped to zero. The matte channel is ignored (set to 255, full coverage). .TP 9 .B add The result of \fIimage\fP + \fIcomposite image\fP, with overflow wrapping around (\fImod\fP 256). .TP 9 .B subtract The result of \fIimage\fP - \fIcomposite image\fP, with underflow wrapping around (\fImod\fP 256). The \fBadd\fP and \fBsubtract\fP operators can be used to perform reversible transformations. .TP 9 .B difference The result of abs(\fIimage\fP \- \fIcomposite image\fP). This is useful for comparing two very similar images. .TP 9 .B replace The resulting image is \fIcomposite image\fP replaced with \fIimage\fP. Here the matte information is ignored. The image compositor requires an matte, or alpha channel in the image for some operations. This extra channel usually defines a mask which represents a sort of a cookie-cutter for the image. This is the case when matte is 255 (full coverage) for pixels inside the shape, zero outside, and between zero and 255 on the boundary. If \fIimage\fP does not have an matte channel, it is initialized with 0 for any pixel matching in color to pixel location (0,0), otherwise 255 (to work properly \fBborderwidth\fP must be 0). .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. This option specifies the type of image compression for the composite image. See \fBmiff(5)\fP for details. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. Specify \fB+display\fP if an X server is not available. The label font is obtained from the X server. If none is available, the composite image will not have labels. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-frame" surround image with an ornamental border. Specify the width of the matte with \fB-borderwidth\fP. Use \fB-gravity\fP to specify how the image is oriented within the ornamental border. Use \fB-mattecolor\fP to specify the frame color. .TP 5 .B "-gamma \fIvalue\fP" level of gamma correction. The same color image displayed on two different workstations may look different due to differences in the display monitor. Use gamma correction to adjust for this color difference. Reasonable values extend from 0.8 to 2.3. You can apply separate gamma values to the red, green, and blue channels of the image with a gamma value list delineated with commas (i.e. 1.7,2.3,1.2). .TP 5 .B "-geometry \fIx++{!}\fP" preferred tile and border size of each tile of the composite image. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. Each image is surrounded by a border whose size in pixels is specified as \fI\fP and \fI\fP and whose color is the background color. By default, the tile size is 256x256 and there is no border. The equivalent X resource for this option is \fBimageGeometry\fP (class \fBImageGeometry\fP). See \fBX RESOURCES\fP for details. .TP 5 .B "-gravity \fIdirection\fP" direction image gravitates to within a tile. See \fBX(1)\fP for details about the gravity specification. A tile of the composite image is a fixed width and height. However, the image within the tile may not fill it completely (see \fB-aspect_ratio\fP). The direction you specify indicates where to position the image within the tile. For example \fICenter\fP gravity forces the image to be centered within the tile. By default, the image gravity is \fINorth\fP. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-label \fIname\fP" assign a label to an image. By default, each image is labeled with its file name. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, or \fB%s\fP for scene number. For example, .nf -label "%m:%f %wx%h" .fi produces an image label of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image label is read from a file titled by the remaining characters in the string. .TP 5 .B "-monochrome" transform the image to black and white. .TP 5 .B "-page \fIx{\+-}{\+-}\fP" preferred size and location of the Postscript page. Use this option to specify the dimensions of the Postscript page in picas or a TEXT page in pixels. The default for a Postscript page is to center the image on a letter page 612 by 792 dots per inch. The left and right margins are 18 picas and the top and bottom 94 picas (i.e. 612x792+18+94). Other common sizes are: 540x720 Note 612x1008 Legal 842x1190 A3 595x842 A4 421x595 A5 297x421 A6 709x1002 B4 612x936 U.S. Foolscap 612x936 European Foolscap 396x612 Half Letter 792x1224 11x17 1224x792 Ledger The page geometry is relative to the vertical and horizontal density of the Postscript page. See \fB-density\fP for details. The default page dimensions for a TEXT image is 612x792+36+36. .TP 5 .B "-quality \fIvalue\fP" JPEG quality setting. Quality is 0 (worst) to 100 (best). The default is 85. .TP 5 .B "-rotate \fIdegrees\fP" apply Paeth image rotation to the image. Empty triangles left over from rotating the image are filled with the color defined by the pixel at location (0,0). .TP 5 .B "-scene \fIvalue\fP" image scene number. .TP 5 .B "-tiles_per_row \fIvalue\fP" specifies how many images are to appear in each row of the composite image. The default is to have an equal number of images in each row and column of the composite. .TP 5 .B "-treedepth \fIvalue\fP" Normally, this integer value is zero or one. A zero or one tells \fBmontage\fP to choose a optimal tree depth for the color reduction algorithm. An optimal depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. To assure the best representation, try values between 2 and 8 for this parameter. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors; and the number of seconds to read and write the image. .PP In addition to those listed above, you can specify these standard X resources as command line options: -background, -bordercolor, -borderwidth, -font, -foreground, -mattecolor, or -title. See \fBX RESOURCES\fP for details. .PP Any option you specify on the command line remains in effect until it is explicitly changed by specifying the option again with a different effect. For example, to montage two images, the first with 32 colors and the second with only 16 colors, use: .PP montage -colors 32 cockatoo.1 -colors 16 cockatoo.2 cockatoo.miff .PP Change \fI-\fP to \fI\+\fP in any option above to reverse its effect. For example, specify \fB\+dither\fP to not apply error diffusion to an image. .PP By default, the image format is determined by its magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. .PP When you specify \fBX\fP as your image type, the filename has special meaning. It specifies an X window by id, name, or \fBroot\fP. If no filename is specified, the window is selected by clicking the mouse in the desired window. .PP Specify \fIfile\fP as \fI-\fP for standard input, \fIoutput_file\fP as \fI-\fP for standard output. If \fIfile\fP has the extension \fB.Z\fP or \fB.gz\fP, the file is uncompressed with \fBuncompress\fP or \fBgunzip\fP respectively. If \fIoutput_file\fP has the extension \fB.Z\fP or \fB.gz\fP, the file size is compressed using with \fBcompress\fP or \fBgzip\fP respectively. Finally, precede the image file name with \fI|\fP to pipe to or from a system command. If \fIoutput_file\fP already exists, you will be prompted as to whether it should be overwritten. .PP Note, a composite MIFF image displayed to an X server with \fBdisplay\fP behaves differently than other images. You can think of the composite as a visual image directory. Choose a particular tile of the composite and press a button to display it. See \fBdisplay(1)\fP and \fBmiff(5)\fP for details. .SH "X RESOURCES" \fBmontage\fP options can appear on the command line or in your X resource file. Options on the command line supersede values specified in your X resource file. See \fBX(1)\fP for more information on X resources. All \fBmontage\fP options have a corresponding X resource. In addition, \fBmontage\fP uses the following X resources: .TP 5 .B background (\fPclass\fB Background) Specifies the preferred color to use for the composite image background. The default is white. .TP 5 .B borderColor (\fPclass\fB BorderColor) Specifies the preferred color to use for the composite image border. The default is black. .TP 5 .B borderWidth (\fPclass\fB BorderWidth) Specifies the width in pixels of the composite image border. The default is 2. .TP 5 .B font (\fPclass\fB Font) Specifies the name of the preferred font to use when displaying text within the composite image. The default is 9x15, fixed, or 5x8 determined by the composite image size. .TP 5 .B foreground (\fPclass\fB Foreground) Specifies the preferred color to use for text within the composite image. The default is black. .TP 5 .B matteColor (\fPclass\fB MatteColor) Specify the color of an image frame. A 3D effect is achieved by using highlight and shadow colors derived from this color. Default value: #bcd. .TP 5 .B title (\fPclass\fB Title) This resource specifies the title to be placed at the top of the composite image. The default is not to place a title at the top of the composite image. .SH ENVIRONMENT .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B display(1), animate(1), import(1), mogrify(1), convert(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS The MIT X Consortium for making network transparent graphics a reality. .PP Michael Halle, Spatial Imaging Group at MIT, for the initial implementation of Alan Paeth's image rotation algorithm. .PP David Pensak, E. I. du Pont de Nemours & Company, for providing a computing environment that made this program possible. .PP Paul Raveling, USC Information Sciences Institute, for the original idea of using space subdivision for the color reduction algorithm. .SH AUTHORS John Cristy, E.I. du Pont de Nemours & Company Incorporated uential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS The MIT X Consortium for ./ImageMagick/Magick.tmpl 644 24 24 5564 5556376662 10503 #ifndef XCOMM #define XCOMM # #endif XCOMM ImageMagick Imakefile info. This contains any special redefinitions. XCOMM XCOMM Copyright 1994 E. I. du Pont de Nemours & Company XCOMM XCOMM Permission to use, copy, modify, distribute, and sell this software and XCOMM its documentation for any purpose is hereby granted without fee, XCOMM provided that the above Copyright notice appear in all copies and that XCOMM both that Copyright notice and this permission notice appear in XCOMM supporting documentation, and that the name of E. I. du Pont de Nemours XCOMM & Company not be used in advertising or publicity pertaining to XCOMM distribution of the software without specific, written prior XCOMM permission. E. I. du Pont de Nemours & Company makes no representations XCOMM about the suitability of this software for any purpose. It is provided XCOMM "as is" without express or implied warranty. XCOMM XCOMM E. I. du Pont de Nemours & Company disclaims all warranties with regard XCOMM to this software, including all implied warranties of merchantability XCOMM and fitness, in no event shall E. I. du Pont de Nemours & Company be XCOMM liable for any special, indirect or consequential damages or any XCOMM damages whatsoever resulting from loss of use, data or profits, whether XCOMM in an action of contract, negligence or other tortious action, arising XCOMM out of or in connection with the use or performance of this software. XCOMM If your system does not have /usr/include/dirent.h, define DIRENT. XCOMM XCOMM DIRENT_DEFINES= -DDIRENT=0 XCOMM Set DoSharedLib to SharedLibX to build ImageMagick with shared libraries. XCOMM XCOMM #define DoSharedLib SharedLibX #define DoSharedLib No XCOMM If you have the JPEG, TIFF, or XPM libraries define HasJPEG, HasTIFF, or XCOMM HasXPM respectively. Make sure the path names are correct. See README XCOMM for more details. XCOMM XCOMM #define HasJPEG XCOMM #define HasTIFF XCOMM #define HasXPM #ifdef HasJPEG JPEG_DEFINES= -DHasJPEG JPEG_INCLUDES= -I$(TOP)/jpeg JPEG_LIBRARIES= -L$(TOP)/jpeg -ljpeg #endif #ifdef HasTIFF TIFF_DEFINES= -DHasTIFF TIFF_INCLUDES= -I$(TOP)/tiff/libtiff TIFF_LIBRARIES= -L$(TOP)/tiff/libtiff -ltiff #endif #ifdef HasXPM XPM_DEFINES= -DHasXPM XPM_INCLUDES= -I$(TOP)/xpm XPM_LIBRARIES= -L$(TOP)/xpm -lXpm #endif XCOMM Might need extra libraries for xtp to link correctly. XCOMM XCOMM EXTRA_LOAD_FLAGS= -lnsl #ifdef HPArchitecture CCOPTIONS= -Aa -D_HPUX_SOURCE -Dhpux #endif LOCALDIR=/usr/local/bin LOCALINC=/usr/local/include LOCALLIB=/usr/local/lib MAGICK_INCLUDES= -I$(TOP)/magick MAGICK_LIBRARIES= -L$(TOP)/magick -lMagick DEFINES= $(MAGICK_INCLUDES) $(DIRENT_DEFINES) $(JPEG_DEFINES) $(JPEG_INCLUDES)\ $(TIFF_DEFINES) $(TIFF_INCLUDES) $(XPM_DEFINES) $(XPM_INCLUDES) LOCAL_LIBRARIES= $(MAGICK_LIBRARIES) $(JPEG_LIBRARIES) $(TIFF_LIBRARIES) \ $(XPM_LIBRARIES) REQUIRED_LIBRARIES= $(JPEG_LIBRARIES) $(TIFF_LIBRARIES) $(XPM_LIBRARIES) mposition. By default, each of the composite image pixels are replaced by the corresponding image tile pixel. You can choose an alternate c./ImageMagick/Manifest.ps 644 24 24 5254 5552550662 10506 %!PS-Adobe-2.0 EPSF-2.0 %%Title: (Directory map of ImageMagick) %%Creator: pstree, (C) 1990 Gisle Aas, NR %%DocumentFonts: Times-Roman %%BoundingBox: 60 70 297 742 60.0 8.612 translate 0.98824 dup scale /s {show} bind def /m {moveto} bind def /Times-Roman findfont 10 scalefont setfont 0.1 setlinewidth 90 732 m(ChangeLog)s 90 722 m(ImageMagick.man)s 90 712 m(Imakefile)s 90 702 m(Magick.faq)s 90 692 m(Magick.tmpl)s 90 682 m(Make.com)s 90 672 m(Makefile)s 90 662 m(Manifest.ps)s 90 652 m(README)s 90 642 m(X.h)s 90 632 m(animate.c)s 90 622 m(animate.man)s 90 612 m(combine.c)s 90 602 m(combine.man)s 90 592 m(convert.c)s 90 582 m(convert.man)s 90 572 m(display.c)s 90 562 m(display.man)s 180 552 m(Makefile)s 180 542 m(README)s 180 532 m(view)s 90 542 m(images)s (images) stringwidth pop 91.0 add 545.3 m [ 555.3 545.3 535.3] {gsave 176.0 exch lineto stroke grestore} forall 90 522 m(import.c)s 90 512 m(import.man)s 180 502 m(Imakefile)s 180 492 m(Make.com)s 180 482 m(Makefile)s 180 472 m(PreRvIcccm.c)s 180 462 m(PreRvIcccm.h)s 180 452 m(X.c)s 180 442 m(X.h)s 180 432 m(XWDFile.h)s 180 422 m(colors.c)s 180 412 m(compress.c)s 180 402 m(compress.h)s 180 392 m(decode.c)s 180 382 m(encode.c)s 180 372 m(error.c)s 180 362 m(image.c)s 180 352 m(image.h)s 180 342 m(magick.h)s 180 332 m(quantize.c)s 180 322 m(shear.c)s 180 312 m(signature.c)s 180 302 m(utility.c)s 180 292 m(utility.h)s 180 282 m(widget.c)s 180 272 m(widget.h)s 90 387 m(magick)s (magick) stringwidth pop 91.0 add 390.3 m [ 505.3 495.3 485.3 475.3 465.3 455.3 445.3 435.3 425.3 415.3 405.3 395.3 385.3 375.3 365.3 355.3 345.3 335.3 325.3 315.3 305.3 295.3 285.3 275.3] {gsave 176.0 exch lineto stroke grestore} forall 90 262 m(miff.man)s 90 252 m(mogrify.c)s 90 242 m(mogrify.man)s 90 232 m(montage.c)s 90 222 m(montage.man)s 90 212 m(quantize.man)s 180 202 m(Makefile)s 180 192 m(README)s 180 182 m(dna.script)s 90 192 m(scenes)s (scenes) stringwidth pop 91.0 add 195.3 m [ 205.3 195.3 185.3] {gsave 176.0 exch lineto stroke grestore} forall 90 172 m(segment.c)s 90 162 m(segment.man)s 180 152 m(Imakefile)s 180 142 m(Makefile)s 180 132 m(README)s 180 122 m(get)s 180 112 m(network.c)s 180 102 m(regular.c)s 180 92 m(regular.h)s 180 82 m(xtp.c)s 180 72 m(xtp.h)s 180 62 m(xtp.man)s 90 107 m(xtp)s (xtp) stringwidth pop 91.0 add 110.3 m [ 155.3 145.3 135.3 125.3 115.3 105.3 95.3 85.3 75.3 65.3] {gsave 176.0 exch lineto stroke grestore} forall 0 420 m(ImageMagick)s (ImageMagick) stringwidth pop 1.0 add 422.8 m [ 735.3 725.3 715.3 705.3 695.3 685.3 675.3 665.3 655.3 645.3 635.3 625.3 615.3 605.3 595.3 585.3 575.3 565.3 545.3 525.3 515.3 390.3 265.3 255.3 245.3 235.3 225.3 215.3 195.3 175.3 165.3 110.3] {gsave 86.0 exch lineto stroke grestore} forall showpage ) $(XPM_DEFINES) $(XPM_INCLUDES) LOCAL_LIBRARIES= $(MAGICK_LIBRARIES) $(JPEG_LIBRARIES) $(TIFF_LIBRARIES) \ $(XPM_LIBRARIES) REQUIRED_LIBRARIES= $(JPEG_LIBRARIES) $(TIFF_LIBRARIES) $(XPM_LIBRARIES) mposition. By default, each of the composite image pixels are replaced by the corresponding image tile pixel. You can choose an alternate c./ImageMagick/combine.man 644 24 24 32753 5556401500 10517 .ad l .nh .TH combine 1 "10 January 1993" "ImageMagick" .SH NAME combine - combine images to create new images. .SH SYNOPSIS .B "combine" [ \fIoptions\fP ... ] \fIinput_file1\fP \fIinput_file2\fP \fIoutput_file\fP .SH DESCRIPTION \fBcombine\fP combine images to create new images. .SH EXAMPLES .PP To combine a image of a cockatoo with a perch, use .PP .B combine cockatoo.miff perch.ras composite.miff .PP To compute the difference between images in a series, use .PP .B combine -compose difference series.1 series.2 difference.miff .PP To combine a image of a cockatoo with a perch starting at location (100,150), use .PP .B combine -geometry +100+150 cockatoo.miff perch.ras composite.miff .SH OPTIONS .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. Note, options \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compose \fIoperator\fP" the type of image composition. By default, each of the composite image pixels are replaced by the cooresponding image tile pixel. You can choose an alternate composite operation: over in out atop xor plus minus add subtract difference replace .PP How each operator behaves is described below. \fIP\fP is the image read as \fIinput_file1\fP and \fIQ\fP is image \fIinput_file2\fP. .TP 9 .B over The result will be the union of the two image shapes, with \fIP\fP obscuring \fIQ\fP in the region of overlap. .TP 9 .B in The result is simply \fIP\fP cut by the shape of \fIQ\fP. None of the image data of \fIQ\fP will be in the result. .TP 9 .B out The resulting image is \fIP\fP with the shape of \fIQ\fP cut out. .TP 9 .B atop The result is the same shape as image \fIQ\fP, with \fIP\fP obscuring \fIQ\fP where the image shapes overlap. Note this differs from \fBover\fP because the portion of \fIP\fP outside \fIQ\fP's shape does not appear in the result. .TP 9 .B xor The result is the image data from both \fIP\fP and \fIQ\fP that is outside the overlap region. The overlap region will be blank. .TP 9 .B plus The result is just the sum of the image data. Output values are clipped to 255 (no overflow). This operation is independent of the matte channels. .TP 9 .B minus The result of \fIP\fP \- \fIQ\fP, with underflow clipped to zero. The matte channel is ignored (set to 255, full coverage). .TP 9 .B add The result of \fIP\fP + \fIQ\fP, with overflow wrapping around (\fImod\fP 256). .TP 9 .B subtract The result of \fIP\fP - \fIQ\fP, with underflow wrapping around (\fImod\fP 256). The \fBadd\fP and \fBsubtract\fP operators can be used to perform reversible transformations. .TP 9 .B difference The result of abs(\fIP\fP \- \fIQ\fP). This is useful for comparing two very similar images. .TP 9 .B replace The resulting image is \fIQ\fP replaced with \fIP\fP. Here the matte information is ignored. .TP 5 The image compositor requires an matte, or alpha channel in the image for some operations. This extra channel usually defines a mask which represents a sort of a cookie-cutter for the image. This is the case when matte is 255 (full coverage) for pixels inside the shape, zero outside, and between zero and 255 on the boundary. If \fIimage\fP does not have an matte channel, it is initialized with 0 for any pixel matching in color to pixel location (0,0), otherwise 255 (to work properly \fBborderwidth\fP must be 0). .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP option is required for dithering to take effect. .TP 5 .B "-font \fIname\fP" This option specifies the font to be used for displaying normal text. The default is \fBfixed\fP. .TP 5 .B "-geometry \fI{%}x{%}{\+-}{\+-}{!}\fP" the width and height of the image. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. Use this option to specified the width and height of raw images whose dimensions are unknown such as \fBGRAY\fP, \fBRGB\fP, and \fBCMYK\fP. This option can also change the default 8.5 by 11 width and height of the Postscript canvas. By default the images are combined relative to the top left corner, location (0,0). Use \fI\fP and \fI\fP to specify a particular location to combine the images. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, or \fB%s\fP for scene number. For example, .nf -label "%m:%f %wx%h" .fi produces an image label of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image label is read from a file titled by the remaining characters in the string. When converting to Postscript, use this option to specify a header string to print above the image. .TP 5 .B "-matte" store matte channel if the image has one. .TP 5 .B "-monochrome" transform the image to black and white. .TP 5 .B "-page \fIx{\+-}{\+-}\fP" preferred size and location of the Postscript page. Use this option to specify the dimensions of the Postscript page in picas or a TEXT page in pixels. The default for a Postscript page is to center the image on a letter page 612 by 792 dots per inch. The left and right margins are 18 picas and the top and bottom 94 picas (i.e. 612x792+18+94). Other common sizes are: 540x720 Note 612x1008 Legal 842x1190 A3 595x842 A4 421x595 A5 297x421 A6 709x1002 B4 612x936 U.S. Foolscap 612x936 European Foolscap 396x612 Half Letter 792x1224 11x17 1224x792 Ledger The page geometry is relative to the vertical and horizontal density of the Postscript page. See \fB-density\fP for details. The default page dimensions for a TEXT image is 612x792+36+36. .TP 5 .B "-quality \fIvalue\fP" JPEG quality setting. Quality is 0 (worst) to 100 (best). The default is 85. .TP 5 .B "-scene \fIvalue\fP" image scene number. .TP 5 .B "-stereo" combine two images into a red-green stereo image. The left side of the stereo pair is saved as the red channel of the output image. The right sife is saved as the green channel. Red-blue stereo glasses are required to properly view the stereo image. .TP 5 .B "-treedepth \fIvalue\fP" Normally, this integer value is zero or one. A zero or one tells \fBcombine\fP to choose a optimal tree depth for the color reduction algorithm. An optimal depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. To assure the best representation, try values between 2 and 8 for this parameter. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP option is required for this option to take effect. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; combined image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors; and the number of seconds to read and combine the image. .PP Change '-' to '+' in any option above to reverse its effect. For example, specify +matte to store the image without its matte channel. .PP By default, the image format is determined by its magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. .PP When you specify \fBX\fP as your image type, the filename has special meaning. It specifies an X window by id, name, or \fBroot\fP. If no filename is specified, the window is selected by clicking the mouse in the desired window. .PP Specify \fIinput_file\fP as \fI-\fP for standard input, \fIoutput_file\fP as \fI-\fP for standard output. If \fIinput_file\fP has the extension \fB.Z\fP or \fB.gz\fP, the file is uncompressed with \fBuncompress\fP or \fBgunzip\fP respectively. If \fIoutput_file\fP has the extension \fB.Z\fP or \fB.gz\fP, the file size is compressed using with \fBcompress\fP or \fBgzip\fP respectively. Finally, precede the image file name with \fI|\fP to pipe to or from a system command. If \fIoutput_file\fP already exists, you will be prompted as to whether it should be overwritten. .SH ENVIRONMENT .PP .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B display(1), animate(1), import(1), montage(1), mogrify(1), convert(1), segment(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH AUTHORS John Cristy, E.I. du Pont De Nemours & Company Incorporated olor image displayed ./ImageMagick/convert.man 644 24 24 41160 5556401522 10557 .ad l .nh .TH convert 1 "1 May 1994" "ImageMagick" .SH NAME convert - converts an input file using one image format to an output file with a differing image format. .SH SYNOPSIS .B "convert" [ \fIoptions\fP ... ] \fIinput_file\fP \fIoutput_file\fP .SH DESCRIPTION \fBconvert\fP converts an input file using one image format to an output file with a differing image format. \fBconvert\fP recognizes the following image formats: .TP 6 .B Tag \fBDescription\fP .PP ------------------------------------------------------------------------------- .TP 6 .B AVS AVS X image file. .TP 6 .B BMP Microsoft Windows bitmap image file. .TP 6 .B CMYK Raw cyan, magenta, yellow, and black bytes. .TP 6 .B EPS Adobe Encapsulated PostScript file. .TP 6 .B EPS Adobe Encapsulated PostScript file. .TP 6 .B EPS Adobe Encapsulated PostScript Interchange format. .TP 6 .B FAX Group 3. .TP 6 .B FITS Flexible Image Transport System. .TP 6 .B GIF Compuserve Graphics image file. .TP 6 .B GIF87 Compuserve Graphics image file (version 87a). .TP 6 .B GRAY Raw gray bytes. .TP 6 .B HISTOGRAM .TP 6 .B IRIS SGI RGB image file. .TP 6 .B JPEG .TP 6 .B MAP Red, green, and blue colormap bytes followed by the image colormap indexes. .TP 6 .B MATTE Raw matte bytes. .TP 6 .B MIFF Magick image file format. .TP 6 .B MTV .TP 6 .B PCD Photo CD. .TP 6 .B PCX ZSoft IBM PC Paintbrush file. .TP 6 .B PICT Apple Macintosh QuickDraw/PICT file. .TP 6 .B PNM Portable bitmap. .TP 6 .B PS Adobe PostScript file. .TP 6 .B PS2 Adobe Level II PostScript file. .TP 6 .B RGB Raw red, green, and blue bytes. .TP 6 .B RLE Utah Run length encoded image file; read only. .TP 6 .B SUN SUN Rasterfile. .TP 6 .B TEXT raw text file; read only. .TP 6 .B TGA Truevision Targa image file. .TP 6 .B TIFF Tagged Image File Format. .TP 6 .B VICAR read only. .TP 6 .B VIFF Khoros Visualization image file. .TP 6 .B X select image from X server screen. .TP 6 .B XC constant image of X server color. Specify the desired color as the filename. .TP 6 .B XBM X11 bitmap file. .TP 6 .B XPM X11 pixmap file. .TP 6 .B XWD X Window System window dump image file. .TP 6 .B YUV CCIR 601 1:1:1 file. .TP 6 .B YUV3 CCIR-601 2:1:1 files. .PP .SH EXAMPLES .PP To convert a \fIMIFF\fP image of a cockatoo to a SUN raster image, use: .PP .B convert cockatoo.miff sun:cockatoo.ras .PP To convert a multi-page \fIPostscript\fP document to individual FAX pages, use: .PP .B convert -monochrome document.ps fax:page .PP To convert a TIFF image to a \fIPostscript\fP A4 page with the image in the lower left-hand corner, use: .PP .B convert -page 595x842+0+0 image.tiff document.ps .PP To convert a raw \fBGRAY\fP image to a portable graymap, use: .PP .B convert -geometry 768x512 gray:raw image.pgm .SH OPTIONS .TP 5 .B "-border \fIxfP" surround the image with a border or color. See \fBX(1)\fP for details about the geometry specification. .TP 5 .B "-clip \fIx{\+-}{\+-}\fP" preferred size and location of the clipped image. See \fBX(1)\fP for details about the geometry specification. Use clipping to crop a particular area of an image. Use \fB-clip 0x0\fP to remove edges that are the background color. .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. Note, options \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP option is required for dithering to take effect. .TP 5 .B "-enhance" apply a digital filter to enhance a noisy image. .TP 5 .B "-equalize" perform histogram equalization to the image. .TP 5 .B "-font \fIname\fP" This option specifies the font to be used for displaying normal text. The default is \fBfixed\fP. .TP 5 .B "-gamma \fIvalue\fP" level of gamma correction. The same color image displayed on two different workstations may look different due to differences in the display monitor. Use gamma correction to adjust for this color difference. Reasonable values extend from 0.8 to 2.3. You can apply separate gamma values to the red, green, and blue channels of the image with a gamma value list delineated with commas (i.e. 1.7,2.3,1.2). .TP 5 .B "-geometry \fI{%}x{%}{+colors}{!}" the width and height of the image. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. Use this option to specify the width and height of raw images whose dimensions are unknown such as \fBGRAY\fP, \fBRGB\fP, or \fBCMYK\fP. In addition to width and height, use \fB-geometry\fP to tell the number of colors in a \fBMAP\fP image file, (e.g. -geometry 640x512+256). .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-inverse" apply color inversion to image. The red, green, and blue intensities of an image are negated. .TP 5 .B "-label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, or \fB%s\fP for scene number. For example, .nf -label "%m:%f %wx%h" .fi produces an image label of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image label is read from a file titled by the remaining characters in the string. When converting to Postscript, use this option to specify a header string to print above the image. .TP 5 .B "-matte" store matte channel if the image has one. .TP 5 .B "-monochrome" transform the image to black and white. .TP 5 .B "-noise" reduce the noise in an image with a noise peak elimination filter. The principal function of noise peak elimination filter is to smooth the objects within an image without losing edge information and without creating undesired structures. The central idea of the algorithm is to replace a pixel with its next neighbor in value within a 3 x 3 window, if this pixel has been found to be noise. A pixel is defined as noise if and only if this pixel is a maximum or minimum within the 3 x 3 window. .TP 5 .B "-normalize" transform image to span the full range of color values. This is a contrast enhancement technique. .TP 5 .B "-page \fIx{\+-}{\+-}\fP" preferred size and location of the Postscript page. Use this option to specify the dimensions of the Postscript page in picas or a TEXT page in pixels. The default for a Postscript page is to center the image on a letter page 612 by 792 dots per inch. The left and right margins are 18 picas and the top and bottom 94 picas (i.e. 612x792+18+94). Other common sizes are: 540x720 Note 612x1008 Legal 842x1190 A3 595x842 A4 421x595 A5 297x421 A6 709x1002 B4 612x936 U.S. Foolscap 612x936 European Foolscap 396x612 Half Letter 792x1224 11x17 1224x792 Ledger The page geometry is relative to the vertical and horizontal density of the Postscript page. See \fB-density\fP for details. The default page dimensions for a TEXT image is 612x792+36+36. .TP 5 .B "-quality \fIvalue\fP" JPEG quality setting. Quality is 0 (worst) to 100 (best). The default is 85. .TP 5 .B "-reflect" create a "mirror image" by reflecting the image scanlines. .TP 5 .B "-roll \fI{\+-}{\+-}\fP" roll an image vertically or horizontally. See \fBX(1)\fP for details about the geometry specification. A negative \fIx offset\fP rolls the image left-to-right. A negative \fIy offset\fP rolls the image top-to-bottom. .TP 5 .B "-rotate \fIdegrees\fP" apply Paeth image rotation to the image. Empty triangles left over from rotating the image are filled with the color defined by the pixel at location (0,0). Refer to \fB-border\fP to choose a specific color. .TP 5 .B "-scene \fIvalue\fP" image scene number. .TP 5 .B "-shear \fIx\fP" shear the image along the X or Y axis by a positive or negative shear angle. Shearing slides one edge of an image along the X or Y axis, creating a parallelogram. An X direction shear slides an edge along the X axis, while a Y direction shear slides an edge along the Y axis. The amount of the shear is controlled by a shear angle. For X direction shears, \fIx degrees\fP is measured relative to the Y axis, and similarly, for Y direction shears \fIy degrees\fP is measured relative to the X axis. Empty triangles left over from shearing the image are filled with the color defined by the pixel at location (0,0). Refer to \fB-border\fP to choose a specific color. .TP 5 .B "-treedepth \fIvalue\fP" Normally, this integer value is zero or one. A zero or one tells \fBconvert\fP to choose a optimal tree depth for the color reduction algorithm. An optimal depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. To assure the best representation, try values between 2 and 8 for this parameter. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP option is required for this option to take effect. .TP 5 .B "-undercolor \fIx\fP" control undercolor removal and black generation on CMYK images. This option enables you to perform undercolor removal and black generation on CMYK images-- images to be printed on a four-color printing system. You can control how much cyan, magenta, and yellow to remove from your image and how much black to add to it. The standard undercolor removal is \fB1.0x1.0\fP. You'll frequently get better results, though, if the percentage of black you add to your image is slightly higher than the percentage of C, M, and Y you remove from it. For example you might try \fB0.5x0.7\fP. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; converted image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors; and the number of seconds to read and convert the image. .PP Change '-' to '+' in any option above to reverse its effect. For example, specify +matte to store the image without its matte channel. .PP By default, the image format is determined by its magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBDESCRIPTION\fP for a list of valid formats. .PP When you specify \fBX\fP as your image type, the filename has special meaning. It specifies an X window by id, name, or \fBroot\fP. If no filename is specified, the window is selected by clicking the mouse in the desired window. .PP Specify \fIinput_file\fP as \fI-\fP for standard input, \fIoutput_file\fP as \fI-\fP for standard output. If \fIinput_file\fP has the extension \fB.Z\fP or \fB.gz\fP, the file is uncompressed with \fBuncompress\fP or \fBgunzip\fP respectively. If \fIoutput_file\fP has the extension \fB.Z\fP or \fB.gz\fP, the file size is compressed using with \fBcompress\fP or \fBgzip\fP respectively. Finally, precede the image file name with \fI|\fP to pipe to or from a system command. If \fIoutput_file\fP already exists, you will be prompted as to whether it should be overwritten. .PP Single images are written with the filename you specify. However, multi-part images (i.e. a multi-page Postscript document) are written with the filename followed by a period (\fB.\fP) and the scene number. You can change this behavior by embedding a \fBprintf\fP format specification in the file name. For example, .nf image%02d.miff .fi converts files image00.miff, image01.miff, etc. .SH ENVIRONMENT .PP .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B display(1), animate(1), import(1), montage(1), mogrify(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH AUTHORS John Cristy, E.I. du Pont De Nemours & Company Incorporated ty of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever res./ImageMagick/mogrify.man 644 24 24 36316 5556401704 10564 .ad l .nh .TH mogrify 1 "1 May 1994" "ImageMagick" .SH NAME mogrify - transform an image or sequence of images .SH SYNOPSIS .B "mogrify" [ \fIoptions\fP ...] \fIfile\fP [ [ \fIoptions\fP ...] \fIfile\fP ...] .SH DESCRIPTION \fBmogrify\fP transforms an image or a sequence of images. These transforms include image scaling, image rotation, color reduction, and others. The transmogrified image overwrites the original image. .SH EXAMPLES To scale an image of a cockatoo to exactly 640 pixels in width and 480 pixels in height, use: .PP .B mogrify -geometry 640x480! cockatoo.miff .PP To create a single colormap for a sequence of bird images, use: .PP .B mogrify -colors 256 scenes/birds.* .SH OPTIONS .TP 5 .B "-border \fIxfP" surround the image with a border or color. See \fBX(1)\fP for details about the geometry specification. The color of the border is obtained from the X server and is defined as \fBbordercolor\fP (class \fBborderColor\fP). See \fBX(1)\fP for details. .TP 5 .B "-clip \fIx{\+-}{\+-}\fP" preferred size and location of the clipped image. See \fBX(1)\fP for details about the geometry specification. Use clipping to apply image processing options, or transmogrify, only a particular area of an image. Use \fB-clip 0x0\fP to remove edges that are the background color. .TP 5 .B "-colormap \fIfilename\fP" choose a particular set of colors from this image. By default, color reduction chooses an optimal set of colors that best represent the original image. Alternatively, you can choose a particular set of colors with this option. This is useful when you want to create a sequence of images with one particular set of colors for each image. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. If more than one image is specified on the command line, a single colormap is created and saved with each image. Note, options \fB-colormap\fP, \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-enhance" apply a digital filter to enhance a noisy image. .TP 5 .B "-equalize" perform histogram equalization to the image. .TP 5 .B "-gamma \fIvalue\fP" level of gamma correction. The same color image displayed on two different workstations may look different due to differences in the display monitor. Use gamma correction to adjust for this color difference. Reasonable values extend from 0.8 to 2.3. You can apply separate gamma values to the red, green, and blue channels of the image with a gamma value list delineated with commas (i.e. 1.7,2.3,1.2). .TP 5 .B "-font \fIname\fP" This option specifies the font to be used for displaying normal text. The default is \fBfixed\fP. .TP 5 .B "-geometry \fI{%}x{%}{!}" preferred width and height of the image. See \fBX(1)\fP for details about the geometry specification. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-inverse" apply color inversion to image. The red, green, and blue intensities of an image are negated. .TP 5 .B "-label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, or \fB%s\fP for scene number. For example, .nf -label "%m:%f %wx%h" .fi produces an image label of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image label is read from a file titled by the remaining characters in the string. When converting to Postscript, use this option to specify a header string to print above the image. .TP 5 .B "-monochrome" transform the image to black and white. .TP 5 .B "-noise" reduce the noise in an image with a noise peak elimination filter. The principal function of noise peak elimination filter is to smooth the objects within an image without losing edge information and without creating undesired structures. The central idea of the algorithm is to replace a pixel with its next neighbor in value within a 3 x 3 window, if this pixel has been found to be noise. A pixel is defined as noise if and only if this pixel is a maximum or minimum within the 3 x 3 window. .TP 5 .B "-normalize" transform image to span the full range of color values. This is a contrast enhancement technique. .TP 5 .B "-page \fIx{\+-}{\+-}\fP" preferred size and location of the Postscript page. Use this option to specify the dimensions of the Postscript page in picas or a TEXT page in pixels. The default for a Postscript page is to center the image on a letter page 612 by 792 dots per inch. The left and right margins are 18 picas and the top and bottom 94 picas (i.e. 612x792+18+94). Other common sizes are: 540x720 Note 612x1008 Legal 842x1190 A3 595x842 A4 421x595 A5 297x421 A6 709x1002 B4 612x936 U.S. Foolscap 612x936 European Foolscap 396x612 Half Letter 792x1224 11x17 1224x792 Ledger The page geometry is relative to the vertical and horizontal density of the Postscript page. See \fB-density\fP for details. The default page dimensions for a TEXT image is 612x792+36+36. .TP 5 .B "-quality \fIvalue\fP" JPEG quality setting. Quality is 0 (worst) to 100 (best). The default is 85. .TP 5 .B "-reflect" create a "mirror image" by reflecting the image scanlines. .TP 5 .B "-roll \fI{\+-}{\+-}\fP" roll an image vertically or horizontally. See \fBX(1)\fP for details about the geometry specification. A negative \fIx offset\fP rolls the image left-to-right. A negative \fIy offset\fP rolls the image top-to-bottom. .TP 5 .B "-rotate \fIdegrees\fP" apply Paeth image rotation to the image. Empty triangles left over from rotating the image are filled with the color defined by the pixel at location (0,0). Refer to \fB-border\fP to choose a specific color. .TP 5 .B "-scene \fIvalue\fP" image scene number. .TP 5 .B "-shear \fIx\fP" shear the image along the X or Y axis by a positive or negative shear angle. Shearing slides one edge of an image along the X or Y axis, creating a parallelogram. An X direction shear slides an edge along the X axis, while a Y direction shear slides an edge along the Y axis. The amount of the shear is controlled by a shear angle. For X direction shears, \fIx degrees>\fP is measured relative to the Y axis, and similarly, for Y direction shears \fIy degrees\fP is measured relative to the X axis. Empty triangles left over from shearing the image are filled with the color defined by the pixel at location (0,0). Refer to \fB-border\fP to choose a specific color. .TP 5 .B "-treedepth \fIvalue\fP" Normally, this integer value is zero or one. A zero or one tells \fBmogrify\fP to choose a optimal tree depth for the color reduction algorithm. An optimal depth generally allows the best representation of the source image with the fastest computational speed and the least amount of memory. However, the default depth is inappropriate for some images. To assure the best representation, try values between 2 and 8 for this parameter. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-undercolor \fIx\fP" control undercolor removal and black generation on CMYK images. This option enables you to perform undercolor removal and black generation on CMYK images-- images to be printed on a four-color printing system. You can control how much cyan, magenta, and yellow to remove from your image and how much black to add to it. The standard undercolor removal is \fB1.0x1.0\fP. You'll frequently get better results, though, if the percentage of black you add to your image is slightly higher than the percentage of C, M, and Y you remove from it. For example you might try \fB0.5x0.7\fP. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors (if known); and the number of seconds to read and transform the image. Refer to \fBmiff(5)\fP for a description of the image class. If \fB-colors\fP is also specified, the total unique colors in the image and color reduction error values are printed. Refer to \fBquantize(9)\fP for a description of these values. .PP Any option you specify on the command line remains in effect until it is explicitly changed by specifying the option again with a different effect. For example, to mogrify two images, the first with 32 colors and the second with only 16 colors, use: .PP mogrify -colors 32 cockatoo.miff -colors 16 macaw.miff .PP Change \fI-\fP to \fI\+\fP in any option above to reverse its effect. For example, specify \fB\+compress\fP to store the binary image in an uncompressed format. .PP By default, the image format is determined by its magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. .PP Specify \fIfile\fP as \fI-\fP for standard input and output. If \fIfile\fP has the extension \fB.Z\fP or \fB.gz\fP, the file is uncompressed with \fBuncompress\fP or \fBgunzip\fP respectively and subsequently compressed using with \fBcompress\fP or \fBgzip\fP. Finally, precede the image file name with \fI|\fP to pipe to or from a system command. .SH SEE ALSO .B display(1), animate(1), import(1), montage(1), convert(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS Michael Halle, Spatial Imaging Group at MIT, for the initial implementation of Alan Paeth's image rotation algorithm. .PP David Pensak, E. I. du Pont de Nemours & Company, for providing a computing environment that made this program possible. .PP Paul Raveling, USC Information Sciences Institute, for the original idea of using space subdivision for the color reduction algorithm. .SH AUTHORS John Cristy, E.I. du Pont de Nemours & Company Incorporated -label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP fo./ImageMagick/segment.man 644 24 24 27371 5556401724 10555 .ad l .nh .TH segment 1 "10 April 1993" "ImageMagick" .SH NAME segment - segments an image with thresholding and the fuzzy c-Means technique. .SH SYNOPSIS .B "segment" [ \fIoptions\fP ... ] \fIinput_file\fP \fIoutput_file\fP .SH DESCRIPTION \fBsegment\fP segments an image by analyzing the histograms of the color components and identifying units that are homogeneous with the fuzzy c-means technique. The scale-space filter analyzes the histograms of the three color components of the image and identifies a set of classes. The extents of each class is used to coarsely segment the image with thresholding. The color associated with each class is determined by the mean color of all pixels within the extents of a particular class. Finally, any unclassified pixels are assigned to the closest class with the fuzzy c-means technique. .PP The fuzzy c-Means algorithm can be summarized as follows: .RS .LP o Build a histogram, one for each color component of the image. .LP o For each histogram, successively apply the scale-space filter and build an interval tree of zero crossings in the second derivative at each scale. Analyze this scale-space ``fingerprint'' to determine which peaks or valleys in the histogram are most predominant. .LP o The fingerprint defines intervals on the axis of the histogram. Each interval contains either a minima or a maxima in the original signal. If each color component lies within the maxima interval, that pixel is considered ``classified'' and is assigned an unique class number. .LP o Any pixel that fails to be classified in the above thresholding pass is classified using the fuzzy c-Means technique. It is assigned to one of the classes discovered in the histogram analysis phase. .RE .PP The fuzzy c-Means technique attempts to cluster a pixel by finding the local minima of the generalized within group sum of squared error objective function. A pixel is assigned to the closest class of which the fuzzy membership has a maximum value. For additional information see .IP Young Won Lim, Sang Uk Lee, "On The Color Image Segmentation Algorithm Based on the Thresholding and the Fuzzy c-Means Techniques", Pattern Recognition, Volume 23, Number 9, pages 935-952, 1990. .SH EXAMPLES .PP To segment an image of a cockatoo, use: .PP .B segment cockatoo.miff cockatoo.segmented .PP To segment a raw grayscale image, use: .PP .B segment -geometry 768x512 gray:raw image.miff .SH OPTIONS .TP 5 .B "-cluster_threshold \fIvalue\fP" eliminate clusters that are insignificant. The number of pixels in each cluster must exceed the the cluster threshold to be considered valid. The default is 1%. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-font \fIname\fP" This option specifies the font to be used for displaying normal text. The default is \fBfixed\fP. .TP 5 .B "-geometry \fI{%}x{%}{!}" the width and height of the image. See \fBX(1)\fP for details about the geometry specification. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. If the specified image size is smaller than the actual image size, the image is first reduced to an integral of the specified image size with an antialias digital filter. The image is then scaled to the exact specified image size with pixel replication. If the specified image size is greater than the actual image size, the image is first enlarged to an integral of the specified image size with bilinear interpolation. The image is then scaled to the exact specified image size with pixel replication. Use this option to specified the width and height of raw images whose dimensions are unknown such as \fBGRAY\fP, \fBRGB\fP, and \fBCMYK\fP. This option can also change the default 8.5 by 11 width and height of the Postscript canvas. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, or \fB%s\fP for scene number. For example, .nf -label "%m:%f %wx%h" .fi produces an image label of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image label is read from a file titled by the remaining characters in the string. When converting to Postscript, use this option to specify a header string to print above the image. .TP 5 .B "-matte" store matte channel if the image has one. .TP 5 .B "-page \fIx{\+-}{\+-}\fP" preferred size and location of the Postscript page. Use this option to specify the dimensions of the Postscript page in picas or a TEXT page in pixels. The default for a Postscript page is to center the image on a letter page 612 by 792 dots per inch. The left and right margins are 18 picas and the top and bottom 94 picas (i.e. 612x792+18+94). Other common sizes are: 540x720 Note 612x1008 Legal 842x1190 A3 595x842 A4 421x595 A5 297x421 A6 709x1002 B4 612x936 U.S. Foolscap 612x936 European Foolscap 396x612 Half Letter 792x1224 11x17 1224x792 Ledger The page geometry is relative to the vertical and horizontal density of the Postscript page. See \fB-density\fP for details. The default page dimensions for a TEXT image is 612x792+36+36. .TP 5 .B "-quality \fIvalue\fP" JPEG quality setting. Quality is 0 (worst) to 100 (best). The default is 85. .TP 5 .B "-scene \fIvalue\fP" image scene number. .TP 5 .B "-smoothing_threshold \fIvalue\fP" eliminate noise in the second derivative of the histogram. As the value is increased, you can expect a smoother second derivative. The default is 5.0. .TP 5 .B -verbose print detailed information about the image. This information is printed: image scene number; image name; converted image name; image size; the image class (\fIDirectClass\fP or \fIPseudoClass\fP); the total number of unique colors; and the number of seconds to read and convert the image. .PP Change '-' to '+' in any option above to reverse its effect. For example, specify +matte to store the image without its matte channel. .PP By default, the image format is determined by its magic number. To specify a particular image format, precede the filename with an image format name and a colon (i.e. ps:image) or specify the image type as the filename suffix (i.e. image.ps). See \fBconvert(1)\fP for a list of valid image formats. .PP When you specify \fBX\fP as your image type, the filename has special meaning. It specifies an X window by id, name, or \fBroot\fP. If no filename is specified, the window is selected by clicking the mouse in the desired window. .PP Specify \fIinput_file\fP as \fI-\fP for standard input, \fIoutput_file\fP as \fI-\fP for standard output. If \fIinput_file\fP has the extension \fB.Z\fP or \fB.gz\fP, the file is uncompressed with \fBuncompress\fP or \fBgunzip\fP respectively. If \fIoutput_file\fP has the extension \fB.Z\fP or \fB.gz\fP, the file size is compressed using with \fBcompress\fP or \fBgzip\fP respectively. Finally, precede the image file name with \fI|\fP to pipe to or from a system command. If \fIoutput_file\fP already exists, you will be prompted as to whether it should be overwritten. .SH ENVIRONMENT .PP .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B display(1), animate(1), import(1), montage(1), mogrify(1), convert(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH ACKNOWLEDGEMENTS Andy Gallo, University of Delaware. This software is strongly based on software Andy wrote. .SH AUTHORS John Cristy, E.I. du Pont De Nemours & Company Incorporated relative to the Y axis, and similarly, for Y direction shears \fIy degrees\fP is measured relative to the X axis. Empty triangles left over from shearing the image are filled with the color defined by the pixel at location (0,0). Refer to \fB-border\fP to choo.gz\fP, the file size is compressed using with \fBcompress\fP or \fBgzip\fP respectively. Finally, precede the image file name with \fI|\fP to pipe to or from a system command. If \fIoutput_file\fP already exists, you will be prompted as to whether it should be overwritten. .PP Single images are written with the filename you specify. However, multi-part images (i.e. a multi-page Postscript document) are written with the filename followed by a period (\fB.\fP) and the scene number. You can change this behavior by embedding a \fBprintf\fP format specification in the file name. For example, .nf image%02d.miff .fi converts files image00.miff, image01.miff, etc. .SH ENVIRONMENT .PP .TP 5 .B display To get the default host, display number, and screen. .SH SEE ALSO .B display(1), animate(1), import(1), montage(1), mogrify(1), segment(1), combine(1), xtp(1) .SH COPYRIGHT Copyright 1994 E. I. du Pont de Nemours & Company .PP Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose is hereby granted without fee, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation, and that the name of E. I. du Pont de Nemours & Company not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. E. I. du Pont de Nemours & Company makes no representations about the suitability of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. .SH AUTHORS John Cristy, E.I. du Pont De Nemours & Company Incorporated ty of this software for any purpose. It is provided "as is" without express or implied warranty. .PP E. I. du Pont de Nemours & Company disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness, in no event shall E. I. du Pont de Nemours & Company be liable for any special, indirect or consequential damages or any damages whatsoever res./ImageMagick/mogrify.man 644 24 24 36316 5556401704 10564 .ad l .nh .TH mogrify 1 "1 May 1994" "ImageMagick" .SH NAME mogrify - transform an image or sequence of images .SH SYNOPSIS .B "mogrify" [ \fIoptions\fP ...] \fIfile\fP [ [ \fIoptions\fP ...] \fIfile\fP ...] .SH DESCRIPTION \fBmogrify\fP transforms an image or a sequence of images. These transforms include image scaling, image rotation, color reduction, and others. The transmogrified image overwrites the original image. .SH EXAMPLES To scale an image of a cockatoo to exactly 640 pixels in width and 480 pixels in height, use: .PP .B mogrify -geometry 640x480! cockatoo.miff .PP To create a single colormap for a sequence of bird images, use: .PP .B mogrify -colors 256 scenes/birds.* .SH OPTIONS .TP 5 .B "-border \fIxfP" surround the image with a border or color. See \fBX(1)\fP for details about the geometry specification. The color of the border is obtained from the X server and is defined as \fBbordercolor\fP (class \fBborderColor\fP). See \fBX(1)\fP for details. .TP 5 .B "-clip \fIx{\+-}{\+-}\fP" preferred size and location of the clipped image. See \fBX(1)\fP for details about the geometry specification. Use clipping to apply image processing options, or transmogrify, only a particular area of an image. Use \fB-clip 0x0\fP to remove edges that are the background color. .TP 5 .B "-colormap \fIfilename\fP" choose a particular set of colors from this image. By default, color reduction chooses an optimal set of colors that best represent the original image. Alternatively, you can choose a particular set of colors with this option. This is useful when you want to create a sequence of images with one particular set of colors for each image. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-colors \fIvalue\fP" preferred number of colors in the image. The actual number of colors in the image may be less than your request, but never more. Note, this is a color reduction option. Images with less unique colors than specified with this option will remain unchanged. Refer to \fBquantize(9)\fP for more details. If more than one image is specified on the command line, a single colormap is created and saved with each image. Note, options \fB-colormap\fP, \fB-dither\fP, \fB-colorspace\fP, and \fB-treedepth\fP affect the color reduction algorithm. .TP 5 .B "-colorspace \fIvalue\fP" the type of colorspace: \fBGRAY\fP, \fBRGB\fP, \fBXYZ\fP, \fBYCbCr\fP, \fBYIQ\fP, or \fBYUV\fP. Color reduction, by default, takes place in the RGB color space. Empirical evidence suggests that distances in color spaces such as YUV or YIQ correspond to perceptual color differences more closely than do distances in RGB space. These color spaces may give better results when color reducing an image. Refer to \fBquantize(9)\fP for more details. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-comment \fIstring\fP" annotate an image with a comment. By default, each image is commented with its file name. Use this option to assign a specific comment to the image. Optionally you can include the image filename, type, width, height, or scene number by embedding special format characters. Embed \fB%f\fP for filename, \fB%m\fP for magick, \fB%w\fP for width, \fB%h\fP for height, \fB%s\fP for scene number, or \fB\\n\fP for newline. For example, .nf -comment "%m:%f %wx%h" .fi produces an image comment of \fBMIFF:bird.miff 512x480\fP for an image titled \fBbird.miff\fP and whose width is 512 and height is 480. If the first character of \fIstring\fP is \fB@\fP, the image comment is read from a file titled by the remaining characters in the string. .TP 5 .B "-compress \fItype\fP" the type of image compression: \fIQEncoded\fP or \fIRunlengthEncoded\fP. Specify \fB\+compress\fP to store the binary image in an uncompressed format. The default is the compression type of the specified image file. .TP 5 .B "-density \fIx vertical and horizontal density of the image. This option specifies an image density for a Postscript page. The default is 72 dots per inch in the horizontal and vertical direction. Use this option to alter the default density. .TP 5 .B "-display \fIhost:display[.screen]\fP" specifies the X server to contact; see \fBX(1)\fP. .TP 5 .B "-dither" apply Floyd/Steinberg error diffusion to the image. The basic strategy of dithering is to trade intensity resolution for spatial resolution by averaging the intensities of several neighboring pixels. Images which suffer from severe contouring when reducing colors can be improved with this option. The \fB-colors\fP or \fB-monochrome\fP option is required for this option to take effect. .TP 5 .B "-enhance" apply a digital filter to enhance a noisy image. .TP 5 .B "-equalize" perform histogram equalization to the image. .TP 5 .B "-gamma \fIvalue\fP" level of gamma correction. The same color image displayed on two different workstations may look different due to differences in the display monitor. Use gamma correction to adjust for this color difference. Reasonable values extend from 0.8 to 2.3. You can apply separate gamma values to the red, green, and blue channels of the image with a gamma value list delineated with commas (i.e. 1.7,2.3,1.2). .TP 5 .B "-font \fIname\fP" This option specifies the font to be used for displaying normal text. The default is \fBfixed\fP. .TP 5 .B "-geometry \fI{%}x{%}{!}" preferred width and height of the image. See \fBX(1)\fP for details about the geometry specification. By default, the width and height are maximum values. That is, the image is expanded or contracted to fit the width and height value while maintaining the aspect ratio of the image. Append an exclamation point to the geometry to force the image size to exactly the size you specify. For example, if you specify \fB640x480!\fP the image width is set to 640 pixels and height to 480. If only one factor is specified, both the width and height assume the value. To specify a percentage width or height instead, append \fB%\fP. The image size is multiplied by the width and height percentages to obtain the final image dimensions. To increase the size of an image, use a value greater than 100 (e.g. 125%). To decrease an image's size, use a percentage less than 100. .TP 5 .B "-interlace \fItype\fP" the type of interlacing scheme: \fBNONE\fP, \fBLINE\fP, or \fBPLANE\fP. This option is used to specify the type of interlacing scheme for raw image formats such as \fBRGB\fP or \fBYUV\fP. \fBNONE\fP means do not interlace (RGBRGBRGBRGBRGBRGB...), \fBLINE\fP uses scanline interlacing (RRR...GGG...BBB...RRR...GGG...BBB...), and \fBPLANE\fP uses plane interlacing (RRRRRR...GGGGGG...BBBBBB...). .TP 5 .B "-inverse" apply color inversion to image. The red, green, and blue intensities of an image are negated. .TP 5 .B "-label \fIname\fP" assign a label to an image. Use this option to assign a specific label to the image. Optionally you can include the image filename, type, width, height, or scene number in the label by embe