static void *
vips_exif_exif_remove( ExifEntry *entry, VipsExifRemove *ve )
{
#ifdef DEBUG
{
const char *tag_name;
char vips_name_txt[256];
VipsBuf vips_name = VIPS_BUF_STATIC( vips_name_txt );
tag_name = vips_exif_entry_get_name( entry );
vips_buf_appendf( &vips_name, "exif-ifd%d-%s",
exif_entry_get_ifd( entry ), tag_name );
printf( "vips_exif_exif_remove: %s\n", vips_buf_all( &vips_name ) );
}
#endif /*DEBUG*/
exif_content_remove_entry( ve->content, entry );
return( NULL );
}
static void
vips_exif_attach_entry( ExifEntry *entry, VipsExifParams *params )
{
const char *tag_name;
char vips_name_txt[256];
VipsBuf vips_name = VIPS_BUF_STATIC( vips_name_txt );
char value_txt[256];
VipsBuf value = VIPS_BUF_STATIC( value_txt );
if( !(tag_name = vips_exif_entry_get_name( entry )) )
return;
vips_buf_appendf( &vips_name, "exif-ifd%d-%s",
exif_entry_get_ifd( entry ), tag_name );
vips_exif_to_s( params->ed, entry, &value );
/* Can't do anything sensible with the error return.
*/
(void) vips_image_set_string( params->image,
vips_buf_all( &vips_name ), vips_buf_all( &value ) );
}
/* Save an exif value to a string in a way that we can restore. We only bother
* for the simple formats (that a client might try to change) though.
*
* Keep in sync with vips_exif_from_s() in vips2jpeg.
*/
static void
vips_exif_to_s( ExifData *ed, ExifEntry *entry, VipsBuf *buf )
{
unsigned long i;
int iv;
ExifRational rv;
ExifSRational srv;
char txt[256];
if( entry->format == EXIF_FORMAT_ASCII )
vips_buf_appendf( buf, "%s ", entry->data );
else if( entry->components < 10 &&
!vips_exif_get_int( ed, entry, 0, &iv ) ) {
for( i = 0; i < entry->components; i++ ) {
vips_exif_get_int( ed, entry, i, &iv );
vips_buf_appendf( buf, "%d ", iv );
}
}
else if( entry->components < 10 &&
!vips_exif_get_rational( ed, entry, 0, &rv ) ) {
for( i = 0; i < entry->components; i++ ) {
vips_exif_get_rational( ed, entry, i, &rv );
vips_buf_appendf( buf, "%u/%u ",
rv.numerator, rv.denominator );
}
}
else if( entry->components < 10 &&
!vips_exif_get_srational( ed, entry, 0, &srv ) ) {
for( i = 0; i < entry->components; i++ ) {
vips_exif_get_srational( ed, entry, i, &srv );
vips_buf_appendf( buf, "%d/%d ",
srv.numerator, srv.denominator );
}
}
else
vips_buf_appendf( buf, "%s ",
exif_entry_get_value( entry, txt, 256 ) );
vips_buf_appendf( buf, "(%s, %s, %lu components, %d bytes)",
exif_entry_get_value( entry, txt, 256 ),
exif_format_get_name( entry->format ),
entry->components,
entry->size );
}
static void
vips_region_dump( VipsObject *object, VipsBuf *buf )
{
VipsRegion *region = VIPS_REGION( object );
vips_buf_appendf( buf, "VipsRegion: %p, ", region );
vips_buf_appendf( buf, "im = %p, ", region->im );
vips_buf_appendf( buf, "valid.left = %d, ", region->valid.left );
vips_buf_appendf( buf, "valid.top = %d, ", region->valid.top );
vips_buf_appendf( buf, "valid.width = %d, ", region->valid.width );
vips_buf_appendf( buf, "valid.height = %d, ", region->valid.height );
vips_buf_appendf( buf, "type = %d, ", region->type );
vips_buf_appendf( buf, "data = %p, ", region->data );
vips_buf_appendf( buf, "bpl = %d, ", region->bpl );
vips_buf_appendf( buf, "seq = %p, ", region->seq );
vips_buf_appendf( buf, "thread = %p, ", region->thread );
vips_buf_appendf( buf, "window = %p, ", region->window );
vips_buf_appendf( buf, "buffer = %p, ", region->buffer );
vips_buf_appendf( buf, "invalid = %d", region->invalid );
VIPS_OBJECT_CLASS( vips_region_parent_class )->dump( object, buf );
}
static int
parse_header( Read *read )
{
VipsImage *im = read->im;
Image *image = read->image;
Image *p;
int i;
#ifdef DEBUG
printf( "parse_header: filename = %s\n", read->filename );
printf( "GetImageChannelDepth(AllChannels) = %zd\n",
GetImageChannelDepth( image, AllChannels, &image->exception ) );
printf( "GetImageDepth() = %zd\n",
GetImageDepth( image, &image->exception ) );
printf( "image->depth = %zd\n", image->depth );
printf( "GetImageType() = %d\n",
GetImageType( image, &image->exception ) );
printf( "IsGrayImage() = %d\n",
IsGrayImage( image, &image->exception ) );
printf( "IsMonochromeImage() = %d\n",
IsMonochromeImage( image, &image->exception ) );
printf( "IsOpaqueImage() = %d\n",
IsOpaqueImage( image, &image->exception ) );
printf( "image->columns = %zd\n", image->columns );
printf( "image->rows = %zd\n", image->rows );
#endif /*DEBUG*/
im->Xsize = image->columns;
im->Ysize = image->rows;
read->frame_height = image->rows;
if( (im->Bands = get_bands( image )) < 0 )
return( -1 );
/* Depth can be 'fractional'. You'd think we should use
* GetImageDepth() but that seems unreliable. 16-bit mono DICOM images
* are reported as depth 1, for example.
*/
im->BandFmt = -1;
if( image->depth >= 1 && image->depth <= 8 )
im->BandFmt = VIPS_FORMAT_UCHAR;
if( image->depth >= 9 && image->depth <= 16 )
im->BandFmt = VIPS_FORMAT_USHORT;
#ifdef UseHDRI
if( image->depth == 32 )
im->BandFmt = VIPS_FORMAT_FLOAT;
if( image->depth == 64 )
im->BandFmt = VIPS_FORMAT_DOUBLE;
#else /*!UseHDRI*/
if( image->depth == 32 )
im->BandFmt = VIPS_FORMAT_UINT;
#endif /*UseHDRI*/
if( im->BandFmt == -1 ) {
vips_error( "magick2vips", _( "unsupported bit depth %d" ),
(int) image->depth );
return( -1 );
}
switch( image->colorspace ) {
case GRAYColorspace:
if( im->BandFmt == VIPS_FORMAT_USHORT )
im->Type = VIPS_INTERPRETATION_GREY16;
else
im->Type = VIPS_INTERPRETATION_B_W;
break;
case RGBColorspace:
if( im->BandFmt == VIPS_FORMAT_USHORT )
im->Type = VIPS_INTERPRETATION_RGB16;
else
im->Type = VIPS_INTERPRETATION_RGB;
break;
case sRGBColorspace:
if( im->BandFmt == VIPS_FORMAT_USHORT )
im->Type = VIPS_INTERPRETATION_RGB16;
else
im->Type = VIPS_INTERPRETATION_sRGB;
break;
case CMYKColorspace:
im->Type = VIPS_INTERPRETATION_CMYK;
break;
default:
vips_error( "magick2vips", _( "unsupported colorspace %d" ),
(int) image->colorspace );
return( -1 );
}
switch( image->units ) {
case PixelsPerInchResolution:
im->Xres = image->x_resolution / 25.4;
im->Yres = image->y_resolution / 25.4;
break;
case PixelsPerCentimeterResolution:
im->Xres = image->x_resolution / 10.0;
im->Yres = image->y_resolution / 10.0;
break;
default:
im->Xres = 1.0;
im->Yres = 1.0;
break;
}
/* Other fields.
*/
im->Coding = VIPS_CODING_NONE;
vips_image_pipelinev( im, VIPS_DEMAND_STYLE_SMALLTILE, NULL );
/* Three ways to loop over attributes / properties :-(
*/
#ifdef HAVE_RESETIMAGEPROPERTYITERATOR
{
char *key;
/* This is the most recent imagemagick API, test for this first.
*/
ResetImagePropertyIterator( image );
while( (key = GetNextImageProperty( image )) ) {
char name_text[256];
VipsBuf name = VIPS_BUF_STATIC( name_text );
vips_buf_appendf( &name, "magick-%s", key );
vips_image_set_string( im,
vips_buf_all( &name ), GetImageProperty( image, key ) );
}
}
#elif defined(HAVE_RESETIMAGEATTRIBUTEITERATOR)
{
const ImageAttribute *attr;
/* magick6.1-ish and later, deprecated in 6.5ish.
*/
ResetImageAttributeIterator( image );
while( (attr = GetNextImageAttribute( image )) ) {
char name_text[256];
VipsBuf name = VIPS_BUF_STATIC( name_text );
vips_buf_appendf( &name, "magick-%s", attr->key );
vips_image_set_string( im, vips_buf_all( &name ), attr->value );
}
}
#else
{
const ImageAttribute *attr;
/* GraphicsMagick is missing the iterator: we have to loop ourselves.
* ->attributes is marked as private in the header, but there's no
* getter so we have to access it directly.
*/
for( attr = image->attributes; attr; attr = attr->next ) {
char name_text[256];
VipsBuf name = VIPS_BUF_STATIC( name_text );
vips_buf_appendf( &name, "magick-%s", attr->key );
vips_image_set_string( im, vips_buf_all( &name ), attr->value );
}
}
#endif
/* Do we have a set of equal-sized frames? Append them.
FIXME ... there must be an attribute somewhere from dicom read
which says this is a volumetric image
*/
read->n_frames = 0;
for( p = image; p; (p = GetNextImageInList( p )) ) {
if( p->columns != (unsigned int) im->Xsize ||
p->rows != (unsigned int) im->Ysize ||
get_bands( p ) != im->Bands )
break;
read->n_frames += 1;
}
if( p )
/* Nope ... just do the first image in the list.
*/
read->n_frames = 1;
#ifdef DEBUG
printf( "image has %d frames\n", read->n_frames );
#endif /*DEBUG*/
/* If all_frames is off, just get the first one.
*/
if( !read->all_frames )
read->n_frames = 1;
/* Record frame pointers.
*/
im->Ysize *= read->n_frames;
if( !(read->frames = VIPS_ARRAY( NULL, read->n_frames, Image * )) )
return( -1 );
p = image;
for( i = 0; i < read->n_frames; i++ ) {
read->frames[i] = p;
p = GetNextImageInList( p );
}
return( 0 );
}
static const char *
iarrow_generate_caption( iObject *iobject )
{
static const char *names[] = {
CLASS_HGUIDE,
CLASS_VGUIDE,
CLASS_MARK,
CLASS_ARROW,
NULL
};
iArrow *iarrow = IARROW( iobject );
VipsBuf *buf = &iarrow->caption_buffer;
const int nimages = g_slist_length( CLASSMODEL( iarrow )->iimages );
Expr *expr;
gboolean result;
gboolean first;
int i;
if( !HEAPMODEL( iarrow )->row ||
!(expr = HEAPMODEL( iarrow )->row->expr) ||
!heap_is_class( &expr->root, &result ) ||
!result )
return( _( "No image" ) );
vips_buf_rewind( buf );
heapmodel_name( HEAPMODEL( iarrow ), buf );
vips_buf_appendf( buf, " " );
/* Used in (eg.) "Mark at (10, 10) on [A1, A2]"
*/
vips_buf_appendf( buf, _( "on" ) );
vips_buf_appendf( buf, " " );
if( nimages > 1 )
vips_buf_appendf( buf, "[" );
first = TRUE;
slist_map2( CLASSMODEL( iarrow )->iimages,
(SListMap2Fn) iarrow_generate_caption_sub, iarrow, &first );
if( nimages > 1 )
vips_buf_appendf( buf, "]" );
vips_buf_appendf( buf, " " );
for( i = 0; names[i]; i++ ) {
if( !heap_is_instanceof( names[i], &expr->root, &result ) )
break;
if( result ) {
switch( i ) {
case 0:
vips_buf_appendf( buf, _( "at %d" ),
iarrow->instance.area.top );
break;
case 1:
vips_buf_appendf( buf, _( "at %d" ),
iarrow->instance.area.left );
break;
case 2:
vips_buf_appendf( buf, _( "at (%d, %d)" ),
iarrow->instance.area.left,
iarrow->instance.area.top );
break;
case 3:
vips_buf_appendf( buf,
_( "at (%d, %d), offset (%d, %d)" ),
iarrow->instance.area.left,
iarrow->instance.area.top,
iarrow->instance.area.width,
iarrow->instance.area.height );
break;
default:
g_assert( 0 );
}
break;
}
}
return( vips_buf_all( buf ) );
}
/* Make the insides of an about box.
*/
static void
about_build( iDialog *idlg, GtkWidget *work )
{
/* Translators: translate this to a credit for you, and it'll appear in
* the About box.
*/
char *translator_credits = _( "translator_credits" );
GtkWidget *hb;
GtkWidget *lab;
char txt[MAX_DIALOG_TEXT];
char txt2[MAX_DIALOG_TEXT];
VipsBuf buf = VIPS_BUF_STATIC( txt );
GtkWidget *image;
im_snprintf( txt2, MAX_DIALOG_TEXT, _( "About %s." ), PACKAGE );
vips_buf_appendf( &buf, "<b><big>%s</big></b>\n\n", txt2 );
im_snprintf( txt2, MAX_DIALOG_TEXT,
_( "%s is an image processing package." ), PACKAGE );
vips_buf_appendf( &buf, "%s\n\n", txt2 );
im_snprintf( txt2, MAX_DIALOG_TEXT,
_( "%s comes with ABSOLUTELY NO WARRANTY. This is "
"free software and you are welcome to redistribute "
"it under certain conditions, see http://www.gnu.org." ),
PACKAGE );
vips_buf_appendf( &buf, "%s\n\n", txt2 );
im_snprintf( txt2, MAX_DIALOG_TEXT, _( NIP_COPYRIGHT ), PACKAGE );
vips_buf_appendf( &buf, "%s\n\n", txt2 );
{
char buf1[FILENAME_MAX];
char buf2[FILENAME_MAX];
im_snprintf( buf1, FILENAME_MAX, "%s" G_DIR_SEPARATOR_S "start",
get_savedir() );
expand_variables( buf1, buf2 );
nativeize_path( buf2 );
escape_markup( buf2, buf1, FILENAME_MAX );
vips_buf_appendf( &buf, "<b>%s:</b> %s\n",
_( "Personal start folder" ), buf1 );
}
vips_buf_appendf( &buf, "<b>%s:</b> %s\n",
_( "Homepage" ), VIPS_HOMEPAGE );
escape_markup( im_version_string(), txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>%s:</b> %s\n",
_( "Linked to VIPS" ), txt2 );
escape_markup( IM_VERSION_STRING, txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>%s:</b> %s\n",
_( "Built against VIPS" ), txt2 );
escape_markup( PACKAGE, txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>$PACKAGE:</b> %s\n", txt2 );
escape_markup( VERSION, txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>$VERSION:</b> %s\n", txt2 );
escape_markup( NN( g_getenv( "VIPSHOME" ) ), txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>$VIPSHOME:</b> %s\n", txt2 );
escape_markup( NN( g_getenv( "HOME" ) ), txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>$HOME:</b> %s\n", txt2 );
escape_markup( NN( g_getenv( "SAVEDIR" ) ), txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>$SAVEDIR:</b> %s\n", txt2 );
escape_markup( PATH_TMP, txt2, MAX_DIALOG_TEXT );
vips_buf_appendf( &buf, "<b>%s:</b> %s\n",
_( "Temp files in" ), txt2 );
if( strcmp( translator_credits, "translator_credits" ) != 0 ) {
vips_buf_appendf( &buf, "\n" );
vips_buf_appends( &buf, translator_credits );
}
vips_buf_appendf( &buf, "\n" );
mainw_find_disc( &buf );
/* Expands to (eg.) "14GB free in /pics/tmp" */
vips_buf_appendf( &buf, _( " in \"%s\"" ), PATH_TMP );
vips_buf_appends( &buf, "\n" );
vips_buf_appendf( &buf,
_( "%d cells in heap, %d cells free, %d cells maximum" ),
reduce_context->heap->ncells,
reduce_context->heap->nfree,
reduce_context->heap->max_fn( reduce_context->heap ) );
vips_buf_appends( &buf, "\n" );
vips_buf_appendf( &buf, _( "%d vips calls cached by nip2" ),
cache_history_size );
vips_buf_appends( &buf, "\n" );
vips_buf_appendf( &buf, _( "%d vips operations cached by libvips" ),
vips_cache_get_size() );
vips_buf_appends( &buf, "\n" );
vips_buf_appendf( &buf, _( "using %d threads" ), im_concurrency_get() );
vips_buf_appends( &buf, "\n" );
vips_buf_appendf( &buf, _( "%d pixel buffers in vips" ),
vips_tracked_get_allocs() );
vips_buf_appends( &buf, "\n" );
vips_buf_append_size( &buf, vips_tracked_get_mem() );
vips_buf_appendf( &buf, _( " of ram in pixel buffers" ) );
vips_buf_appends( &buf, "\n" );
vips_buf_append_size( &buf, vips_tracked_get_mem_highwater() );
vips_buf_appendf( &buf, _( " of ram highwater mark" ) );
vips_buf_appends( &buf, "\n" );
hb = gtk_hbox_new( FALSE, 0 );
gtk_container_border_width( GTK_CONTAINER( hb ), 10 );
gtk_container_add( GTK_CONTAINER( work ), hb );
gtk_widget_show( hb );
image = image_new_from_file(
"$VIPSHOME/share/$PACKAGE/data/vips-128.png" );
gtk_box_pack_start( GTK_BOX( hb ), image, FALSE, FALSE, 2 );
gtk_widget_show( image );
lab = gtk_label_new( "" );
gtk_label_set_markup( GTK_LABEL( lab ), vips_buf_all( &buf ) );
gtk_label_set_justify( GTK_LABEL( lab ), GTK_JUSTIFY_LEFT );
gtk_label_set_selectable( GTK_LABEL( lab ), TRUE );
gtk_label_set_line_wrap( GTK_LABEL( lab ), TRUE );
gtk_box_pack_start( GTK_BOX( hb ), lab, FALSE, FALSE, 2 );
gtk_widget_show( lab );
}
