/* Image support for the NeXT/Open/GNUstep and MacOSX window system.
- Copyright (C) 1989, 1992, 1993, 1994, 2005, 2006, 2008
+ Copyright (C) 1989, 1992, 1993, 1994, 2005, 2006, 2008, 2009, 2010
Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu)
*/
-#include "config.h"
+/* This should be the first include, as it may set up #defines affecting
+ interpretation of even the system includes. */
+#include <config.h>
+#include <setjmp.h>
+
#include "lisp.h"
#include "dispextern.h"
#include "nsterm.h"
ns_load_image (struct frame *f, struct image *img,
Lisp_Object spec_file, Lisp_Object spec_data)
{
- NSTRACE (ns_load_image);
-
- EmacsImage *eImg;
+ EmacsImage *eImg = nil;
NSSize size;
- if (NILP (spec_data))
+ NSTRACE (ns_load_image);
+
+ if (STRINGP (spec_file))
{
eImg = [EmacsImage allocInitFromFile: spec_file];
}
- else
+ else if (STRINGP (spec_data))
{
- NSData *data = [NSData dataWithBytes: XSTRING (spec_data)->data
- length: SBYTES (spec_data)];
+ NSData *data;
+
+ data = [NSData dataWithBytes: SDATA (spec_data)
+ length: SBYTES (spec_data)];
eImg = [[EmacsImage alloc] initWithData: data];
[eImg setPixmapData];
}
+ allocInitFromFile: (Lisp_Object)file
{
EmacsImage *image = ImageList;
+ NSImageRep *imgRep;
Lisp_Object found;
/* look for an existing image of the same name */
image = [[EmacsImage alloc] initByReferencingFile:
[NSString stringWithUTF8String: SDATA (found)]];
- if ([image bestRepresentationForDevice: nil] == nil)
+ imgRep = [image bestRepresentationForDevice: nil];
+ if (imgRep == nil)
{
[image release];
return nil;
}
+ /* The next two lines cause the DPI of the image to be ignored.
+ This seems to be the behavior users expect. */
+ [image setScalesWhenResized: YES];
+ [image setSize: NSMakeSize([imgRep pixelsWide], [imgRep pixelsHigh])];
+
[image setName: [NSString stringWithUTF8String: SDATA (file)]];
[image reference];
ImageList = [image imageListSetNext: ImageList];
[self addRepresentation: bmRep];
- bzero (planes[0], w*h);
- bzero (planes[1], w*h);
- bzero (planes[2], w*h);
+ memset (planes[0], 0, w*h);
+ memset (planes[1], 0, w*h);
+ memset (planes[2], 0, w*h);
[self setXBMColor: [NSColor blackColor]];
return self;
}
NSSize s = [self size];
int len = (int) s.width * s.height;
unsigned char *planes[5];
- float r, g, b, a;
+ CGFloat r, g, b, a;
NSColor *rgbColor;
if (bmRep == nil || color == nil)
- return;
+ return self;
if ([color colorSpaceName] != NSCalibratedRGBColorSpace)
rgbColor = [color colorUsingColorSpaceName: NSCalibratedRGBColorSpace];
planes[2][i] = bb;
}
}
+
+ return self;
}
[bmRep getBitmapDataPlanes: pixmapData];
for (i =0; i<4; i++)
- bzero (pixmapData[i], width*height);
+ memset (pixmapData[i], 0, width*height);
[self addRepresentation: bmRep];
return self;
}
if ([bmRep numberOfPlanes] >= 3)
[bmRep getBitmapDataPlanes: pixmapData];
+
+ /* The next two lines cause the DPI of the image to be ignored.
+ This seems to be the behavior users expect. */
+ [self setScalesWhenResized: YES];
+ [self setSize: NSMakeSize([bmRep pixelsWide], [bmRep pixelsHigh])];
+
break;
}
}
else if (onTiger)
{
NSColor *color = [bmRep colorAtX: x y: y];
- float r, g, b, a;
+ CGFloat r, g, b, a;
[color getRed: &r green: &g blue: &b alpha: &a];
return ((int)(a * 255.0) << 24)
| ((int)(r * 255.0) << 16) | ((int)(g * 255.0) << 8)
else if (onTiger)
{
[bmRep setColor:
- [NSColor colorWithCalibratedRed: r green: g blue: b alpha: a]
+ [NSColor colorWithCalibratedRed: (r/255.0) green: (g/255.0)
+ blue: (b/255.0) alpha: (a/255.0)]
atX: x y: y];
}
}