polyml/libpolyml/xwindows.cpp

2531 static unsigned ImageBytes(XImage *image)
2533     unsigned dsize = image->bytes_per_line * image->height;
2534     if (image->format == XYPixmap) dsize = dsize * image->depth;
2542   static XImage image = { 0 };
2562   image.width            = width;
2563   image.height           = height;
2564   image.xoffset          = xoffset;
2565   image.format           = format;
2566   image.data             = data->chars;
2567   image.byte_order       = byteOrder;
2568   image.bitmap_unit      = bitmapUnit;
2569   image.bitmap_bit_order = bitmapBitOrder;
2570   image.bitmap_pad       = bitmapPad;
2571   image.depth            = depth;
2572   image.bytes_per_line   = bytesPerLine;
2573   image.bits_per_pixel   = bitsPerPixel;
2574   image.red_mask         = get_C_ulong(taskData, I->visualRedMask);
2575   image.green_mask       = get_C_ulong(taskData, I->visualGreenMask);
2576   image.blue_mask        = get_C_ulong(taskData, I->visualBlueMask);
2578   if (ImageBytes(&image) != data->length) RaiseXWindows(taskData, "Bad image string length");
2580   return &image;
2583 static Handle CreateImage(TaskData *taskData, XImage *image)
2587   int dsize = ImageBytes(image);
2591   X->data            = C_string_to_Poly(taskData, image->data,dsize);
2592   X->size            = DEREFWORD(CreateArea(image->width,image->height));
2593   X->depth           = DEREFWORD(Make_arbitrary_precision(taskData, image->depth));
2594   X->format          = DEREFWORD(Make_arbitrary_precision(taskData, MLImageFormat(image->format)));
2595   X->xoffset         = DEREFWORD(Make_int(image->xoffset));
2596   X->bitmapPad       = DEREFWORD(Make_int(image->bitmap_pad));
2597   X->byteOrder       = DEREFWORD(Make_arbitrary_precision(taskData, MLImageOrder(image->byte_order)));
2598   X->bitmapUnit      = DEREFWORD(Make_arbitrary_precision(taskData, image->bitmap_unit));
2599   X->bitsPerPixel    = DEREFWORD(Make_arbitrary_precision(taskData, image->bits_per_pixel));
2600   X->bytesPerLine    = DEREFWORD(Make_int(image->bytes_per_line));
2601   X->visualRedMask   = DEREFWORD(Make_arbitrary_precision(taskData, image->red_mask));
2602   X->bitmapBitOrder  = DEREFWORD(Make_arbitrary_precision(taskData, MLImageOrder(image->bitmap_bit_order)));
2603   X->visualBlueMask  = DEREFWORD(Make_arbitrary_precision(taskData, image->blue_mask));
2604   X->visualGreenMask = DEREFWORD(Make_arbitrary_precision(taskData, image->green_mask));
2607   XDestroyImage(image);
2625   XImage *image = XGetImage(d,drawable,x,y,w,h,mask,CImageFormat(format));
2627   if (image == 0) RaiseXWindows(taskData, "XGetImage failed");
2629   return CreateImage(taskData, image);
2635   XImage   *image,
2642   XImage *subimage = XSubImage(image,x,y,w,h);
2665   XImage   *image,
2670   XGetSubImage(d,drawable,sx,sy,sw,sh,mask,CImageFormat(format),image,dx,dy);
2672   /* XFree((char *)image); */
2680   XImage  *image,
2689   XPutImage(d,drawable,gc,image,sx,sy,dx,dy,dw,dh);
2691   /* XFree((char *)image); */
2694 static Handle GetPixel(TaskData *taskData, XImage *image, int x, int y)
2696   unsigned pixel = XGetPixel(image,x,y);
2698   /* XFree((char *)image); */
2703 static void PutPixel(XImage *image, int x, int y, unsigned pixel)
2705   XPutPixel(image,x,y,pixel);
2707   /* XFree((char *)image); */
2710 static void AddPixel(XImage *image, unsigned value)
2712   XAddPixel(image,value);
2714   /* XFree((char *)image); */