1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361
|
#!/usr/bin/ruby -w
require 'rubygems'
require 'inline'
##
# Provides a clean and simple API to generate thumbnails using
# FreeImage as the underlying mechanism.
#
# For more information or if you have build issues with FreeImage, see
# http://seattlerb.rubyforge.org/ImageScience.html
class ImageScience
VERSION = '1.3.0'
##
# The top-level image loader opens +path+ and then yields the image.
#
# :singleton-method: with_image
##
# The top-level image loader, opens an image from the string +data+
# and then yields the image.
#
# :singleton-method: with_image_from_memory
##
# Crops an image to +left+, +top+, +right+, and +bottom+ and then
# yields the new image.
#
# :method: with_crop
##
# Returns the width of the image, in pixels.
#
# :method: width
##
# Returns the height of the image, in pixels.
#
# :method: height
##
# Saves the image out to +path+. Changing the file extension will
# convert the file type to the appropriate format.
#
# :method: save
##
# Resizes the image to +width+ and +height+ using a cubic-bspline
# filter and yields the new image.
#
# :method: resize
##
# Rotate the image to +angle+. Limited to 45 degree skewing only.
#
# :method: rotate
##
# Creates a proportional thumbnail of the image scaled so its longest
# edge is resized to +size+ and yields the new image.
def thumbnail(size) # :yields: image
w, h = width, height
scale = size.to_f / (w > h ? w : h)
self.resize((w * scale).round, (h * scale).round) do |image|
yield image
end
end
##
# Creates a square thumbnail of the image cropping the longest edge
# to match the shortest edge, resizes to +size+, and yields the new
# image.
def cropped_thumbnail(size) # :yields: image
w, h = width, height
l, t, r, b, half = 0, 0, w, h, (w - h).abs / 2
l, r = half, half + h if w > h
t, b = half, half + w if h > w
with_crop(l, t, r, b) do |img|
img.thumbnail(size) do |thumb|
yield thumb
end
end
end
inline do |builder|
%w[/opt/local /usr/local].each do |dir|
if File.directory? "#{dir}/include" then
builder.add_compile_flags "-I#{dir}/include"
builder.add_link_flags "-L#{dir}/lib"
end
end
builder.add_link_flags "-lfreeimage"
unless RUBY_PLATFORM =~ /mswin/
builder.add_link_flags "-lfreeimage"
# TODO: detect PPC
builder.add_link_flags "-lstdc++" # only needed on PPC for some reason
else
builder.add_link_flags "freeimage.lib"
end
builder.include '"FreeImage.h"'
builder.prefix <<-"END"
#define GET_BITMAP(name) Data_Get_Struct(self, FIBITMAP, (name)); if (!(name)) rb_raise(rb_eTypeError, "Bitmap has already been freed");
static ID err_key; /* used as thread-local key */
static void clear_error(void);
static void raise_error(void);
END
builder.prefix <<-"END"
VALUE unload(VALUE self) {
FIBITMAP *bitmap;
GET_BITMAP(bitmap);
FreeImage_Unload(bitmap);
DATA_PTR(self) = NULL;
clear_error();
return Qnil;
}
END
builder.prefix <<-"END"
VALUE wrap_and_yield(FIBITMAP *image, VALUE self, FREE_IMAGE_FORMAT fif) {
unsigned int self_is_class = rb_type(self) == T_CLASS;
VALUE klass = self_is_class ? self : CLASS_OF(self);
VALUE type = self_is_class ? INT2FIX(fif) : rb_iv_get(self, "@file_type");
VALUE obj = Data_Wrap_Struct(klass, NULL, NULL, image);
rb_iv_set(obj, "@file_type", type);
return rb_ensure(rb_yield, obj, unload, obj);
}
END
builder.prefix <<-"END"
void copy_icc_profile(VALUE self, FIBITMAP *from, FIBITMAP *to) {
FREE_IMAGE_FORMAT fif = FIX2INT(rb_iv_get(self, "@file_type"));
if (fif != FIF_PNG && FreeImage_FIFSupportsICCProfiles(fif)) {
FIICCPROFILE *profile = FreeImage_GetICCProfile(from);
if (profile && profile->data) {
FreeImage_CreateICCProfile(to, profile->data, profile->size);
}
}
}
END
# we defer raising the error until it we find a safe point to do so
# We cannot use rb_ensure in these cases because FreeImage may internally
# make allocations via which our code will never see.
builder.prefix <<-"END"
void FreeImageErrorHandler(FREE_IMAGE_FORMAT fif, const char *message) {
VALUE err = rb_sprintf(
"FreeImage exception for type %s: %s",
(fif == FIF_UNKNOWN) ? "???" : FreeImage_GetFormatFromFIF(fif),
message);
rb_thread_local_aset(rb_thread_current(), err_key, err);
}
END
# do not call this until necessary variables are wrapped up for GC
# otherwise there will be leaks
builder.prefix <<-"END"
static void raise_error(void) {
VALUE err = rb_thread_local_aref(rb_thread_current(), err_key);
if (NIL_P(err)) {
rb_raise(rb_eRuntimeError, "FreeImage exception");
} else {
rb_thread_local_aset(rb_thread_current(), err_key, Qnil);
rb_raise(rb_eRuntimeError, "%s", StringValueCStr(err));
}
}
END
builder.prefix <<-"END"
static void clear_error(void) {
if (!NIL_P(rb_thread_local_aref(rb_thread_current(), err_key))) {
rb_thread_local_aset(rb_thread_current(), err_key, Qnil);
}
}
END
builder.prefix <<-"END"
FIBITMAP* ReOrient(FIBITMAP *bitmap) {
FITAG *tagValue = NULL;
FIBITMAP *oldBitmap = bitmap;
FreeImage_GetMetadata(FIMD_EXIF_MAIN, bitmap, "Orientation", &tagValue);
switch (tagValue == NULL ? 0 : *((short *) FreeImage_GetTagValue(tagValue))) {
case 6:
bitmap = FreeImage_Rotate(bitmap, 270, NULL);
break;
case 3:
bitmap = FreeImage_Rotate(bitmap, 180, NULL);
break;
case 8:
bitmap = FreeImage_Rotate(bitmap, 90, NULL);
break;
default:
bitmap = FreeImage_Clone(bitmap);
break;
}
FreeImage_Unload(oldBitmap);
return bitmap;
}
END
builder.add_to_init "FreeImage_SetOutputMessage(FreeImageErrorHandler);"
builder.add_to_init 'err_key = rb_intern("__FREE_IMAGE_ERROR");'
builder.c_singleton <<-"END"
VALUE with_image(char * input) {
FREE_IMAGE_FORMAT fif = FIF_UNKNOWN;
int flags;
fif = FreeImage_GetFileType(input, 0);
if (fif == FIF_UNKNOWN) fif = FreeImage_GetFIFFromFilename(input);
if ((fif != FIF_UNKNOWN) && FreeImage_FIFSupportsReading(fif)) {
FIBITMAP *bitmap;
VALUE result = Qnil;
flags = fif == FIF_JPEG ? JPEG_ACCURATE : 0;
if (!(bitmap = FreeImage_Load(fif, input, flags))) raise_error();
if (!(bitmap = ReOrient(bitmap))) raise_error();
result = wrap_and_yield(bitmap, self, fif);
return result;
}
rb_raise(rb_eTypeError, "Unknown file format");
return Qnil;
}
END
builder.c_singleton <<-"END"
VALUE with_image_from_memory(VALUE image_data) {
FREE_IMAGE_FORMAT fif = FIF_UNKNOWN;
BYTE *image_data_ptr;
DWORD image_data_length;
FIMEMORY *stream;
FIBITMAP *bitmap = NULL;
VALUE result = Qnil;
int flags;
Check_Type(image_data, T_STRING);
image_data_ptr = (BYTE*)RSTRING_PTR(image_data);
image_data_length = (DWORD)RSTRING_LEN(image_data);
stream = FreeImage_OpenMemory(image_data_ptr, image_data_length);
if (NULL == stream) {
rb_raise(rb_eTypeError, "Unable to open image_data");
}
fif = FreeImage_GetFileTypeFromMemory(stream, 0);
if ((fif == FIF_UNKNOWN) || !FreeImage_FIFSupportsReading(fif)) {
FreeImage_CloseMemory(stream);
rb_raise(rb_eTypeError, "Unknown file format");
}
flags = fif == FIF_JPEG ? JPEG_ACCURATE : 0;
bitmap = FreeImage_LoadFromMemory(fif, stream, flags);
FreeImage_CloseMemory(stream);
if (!bitmap) raise_error();
if (!(bitmap = ReOrient(bitmap))) raise_error();
result = wrap_and_yield(bitmap, self, fif);
return result;
}
END
builder.c <<-"END"
VALUE with_crop(int l, int t, int r, int b) {
FIBITMAP *copy, *bitmap;
GET_BITMAP(bitmap);
if (!(copy = FreeImage_Copy(bitmap, l, t, r, b))) raise_error();
copy_icc_profile(self, bitmap, copy);
return wrap_and_yield(copy, self, 0);
}
END
builder.c <<-"END"
int height() {
FIBITMAP *bitmap;
GET_BITMAP(bitmap);
return FreeImage_GetHeight(bitmap);
}
END
builder.c <<-"END"
int width() {
FIBITMAP *bitmap;
GET_BITMAP(bitmap);
return FreeImage_GetWidth(bitmap);
}
END
builder.c <<-"END"
VALUE resize(int w, int h) {
FIBITMAP *bitmap, *image;
if (w <= 0) rb_raise(rb_eArgError, "Width <= 0");
if (h <= 0) rb_raise(rb_eArgError, "Height <= 0");
GET_BITMAP(bitmap);
image = FreeImage_Rescale(bitmap, w, h, FILTER_CATMULLROM);
if (!image) raise_error();
copy_icc_profile(self, bitmap, image);
return wrap_and_yield(image, self, 0);
}
END
builder.c <<-"END"
VALUE rotate(int angle) {
FIBITMAP *bitmap, *image;
if ((angle % 45) != 0) rb_raise(rb_eArgError, "Angle must be 45 degree skew");
GET_BITMAP(bitmap);
image = FreeImage_Rotate(bitmap, angle, NULL);
if (image) {
copy_icc_profile(self, bitmap, image);
return wrap_and_yield(image, self, 0);
}
return Qnil;
}
END
builder.c <<-"END"
VALUE save(char * output) {
int flags;
FIBITMAP *bitmap;
FREE_IMAGE_FORMAT fif = FreeImage_GetFIFFromFilename(output);
if (fif == FIF_UNKNOWN) fif = FIX2INT(rb_iv_get(self, "@file_type"));
if ((fif != FIF_UNKNOWN) && FreeImage_FIFSupportsWriting(fif)) {
BOOL result = 0, unload = 0;
GET_BITMAP(bitmap);
flags = fif == FIF_JPEG ? JPEG_QUALITYSUPERB : 0;
if (fif == FIF_PNG) FreeImage_DestroyICCProfile(bitmap);
if (fif == FIF_JPEG && FreeImage_GetBPP(bitmap) != 24) {
bitmap = FreeImage_ConvertTo24Bits(bitmap), unload = 1; // sue me
if (!bitmap) raise_error();
}
result = FreeImage_Save(fif, bitmap, output, flags);
if (unload) FreeImage_Unload(bitmap);
if (!result) raise_error();
return Qtrue;
}
rb_raise(rb_eTypeError, "Unknown file format");
return Qnil;
}
END
end
end
|