bool CSeqTable_sparse_index::HasValueAt(size_t row) const
{
switch ( Which() ) {
case e_Indexes:
{
const TIndexes& indexes = GetIndexes();
TIndexes::const_iterator iter =
lower_bound(indexes.begin(), indexes.end(), row);
return iter != indexes.end() && *iter == row;
}
case e_Indexes_delta:
return x_FindDeltaSum(row) != kInvalidRow;
case e_Bit_set:
{
const TBit_set& bits = GetBit_set();
size_t i = row/8, j = row%8;
return i < bits.size() && ((bits[i]<<j)&0x80) != 0;
}
case e_Bit_set_bvector:
{
const bm::bvector<>& bv = GetBit_set_bvector().GetBitVector();
return row < bv.size() && bv.get_bit(row);
}
default:
return false;
}
}
size_t CSeqTable_sparse_index::x_GetFirstRowWithValue(void) const
{
switch ( Which() ) {
case e_Indexes:
{
const TIndexes& indexes = GetIndexes();
return indexes.empty()? kInvalidRow: indexes.front();
}
case e_Indexes_delta:
{
const TIndexes_delta& deltas = GetIndexes_delta();
return deltas.empty()? kInvalidRow: deltas.front();
}
case e_Bit_set:
{
const TBit_set& bytes = GetBit_set();
size_t byte_index = sx_FindFirstNonZeroByte(bytes, 0);
if ( byte_index == kInvalidRow ) {
return kInvalidRow;
}
return byte_index*8 + sx_FindFirstNonZeroBit(Uint1(bytes[byte_index]));
}
case e_Bit_set_bvector:
return GetBit_set_bvector().GetBitVector().get_first();
default:
return kInvalidRow;
}
}
size_t CSeqTable_sparse_index::GetIndexAt(size_t row) const
{
switch ( Which() ) {
case e_Indexes:
{
const TIndexes& indexes = GetIndexes();
TIndexes::const_iterator iter =
lower_bound(indexes.begin(), indexes.end(), row);
if ( iter != indexes.end() && *iter == row ) {
return iter - indexes.begin();
}
else {
return kSkipped;
}
}
case e_Indexes_delta:
return x_FindDeltaSum(row);
case e_Bit_set:
{
const TBit_set& bytes = GetBit_set();
size_t byte_index = row/8;
if ( byte_index >= bytes.size() ) {
return kSkipped;
}
Uint1 byte = bytes[byte_index];
size_t bit_index = row%8; // most significant bit has index 0
if ( !((byte<<bit_index)&0x80) ) {
return kSkipped;
}
size_t count = sx_CalcByteBitCount(Uint1(byte>>(8-bit_index)));
if ( byte_index ) {
count += x_GetBitSetCache(byte_index);
}
return count;
}
case e_Bit_set_bvector:
{
const bm::bvector<>& bv = GetBit_set_bvector().GetBitVector();
if ( row >= bv.size() || !bv.get_bit(row) ) {
return kSkipped;
}
return row == 0? 0: bv.count_range(0, row-1);
}
default:
return kSkipped;
}
}
AffLoader::AffLoader(std::vector<uint8_t> &data)
{
BinaryReader reader;
reader.ReadIn(data.begin(), data.end());
auto header = AffHeader::Get(reader);
auto table = AffIndexTable::Get(reader);
auto indexes = table.GetIndexes();
auto fontNum = header.GetFontCount();
for (int16_t i = 0; i < fontNum; ++i)
{
auto charactor = distance(indexes.begin(), find(indexes.begin(), indexes.end(), i));
result[charactor] = GlyphData::Get(reader, charactor);
}
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% G e t I m a g e T o t a l I n k D e n s i t y %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% GetImageTotalInkDensity() returns the toal ink density for a CMYK image.
% Total nk Density (TID) is determined by adding the CMYK values in the
% darkest shadow area in an image.
%
% The format of the GetImageTotalInkDensity method is:
%
% double GetImageTotalInkDensity(const Image *image)
%
% A description of each parameter follows:
%
% o image: The image.
%
*/
MagickExport double GetImageTotalInkDensity(Image *image)
{
double
density,
total_ink_density;
long
y;
register const PixelPacket
*p;
register IndexPacket
*indexes;
register long
x;
assert(image != (Image *) NULL);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"...");
assert(image->signature == MagickSignature);
if (image->colorspace != CMYKColorspace)
{
(void) ThrowMagickException(&image->exception,GetMagickModule(),
ImageError,"ColorSeparatedImageRequired","`%s'",image->filename);
return(0.0);
}
total_ink_density=0.0;
for (y=0; y < (long) image->rows; y++)
{
p=AcquireImagePixels(image,0,y,image->columns,1,&image->exception);
if (p == (const PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < (long) image->columns; x++)
{
density=(double) p->red+p->green+p->blue+indexes[x];
if (density > total_ink_density)
total_ink_density=density;
p++;
}
}
return(total_ink_density);
}
//get and check indexes, kill or revive cell depending on number of live neighbours
int Cell::checkNeighbours(std::vector<std::vector<Cell>>& read_grid, std::vector<std::vector<Cell>> & write_grid)
{
int m_row = index.row;
int m_col = index.col;
liveNeigbours = 0;
std::vector<Indexes> indexes = GetIndexes(m_row, m_col, read_grid.size(), read_grid[0].size());
for (auto& i : indexes)
{
if (read_grid[i.row][i.col].isAlive)
{
liveNeigbours++;
}
}
if (liveNeigbours > 3)
{
write_grid[m_col][m_row].isAlive = false;
write_grid[m_col][m_row].circle->setFillColor(sf::Color::Black);
}
else if (liveNeigbours == 3 || liveNeigbours == 2)
{
write_grid[m_col][m_row].isAlive = true;
write_grid[m_col][m_row].circle->setFillColor(sf::Color::Yellow);
}
else if (liveNeigbours < 2)
{
write_grid[m_col][m_row].isAlive = false;
write_grid[m_col][m_row].circle->setFillColor(sf::Color::Black);
}
else
{
write_grid[m_col][m_row].isAlive = read_grid[m_col][m_row].isAlive;
}
return liveNeigbours;
}
static PixelPacket *
get_pixels( Image *image, int left, int top, int width, int height )
{
PixelPacket *pixels;
#ifdef HAVE_GETVIRTUALPIXELS
if( !(pixels = (PixelPacket *) GetVirtualPixels( image,
left, top, width, height, &image->exception )) )
#else
if( !(pixels = GetImagePixels( image, left, top, width, height )) )
#endif
return( NULL );
/* Can't happen if red/green/blue are doubles.
*/
#ifndef UseHDRI
/* Unpack palette.
*/
if( image->storage_class == PseudoClass ) {
#ifdef HAVE_GETVIRTUALPIXELS
IndexPacket *indexes = (IndexPacket *)
GetVirtualIndexQueue( image );
#else
IndexPacket *indexes = GetIndexes( image );
#endif
int i;
for( i = 0; i < width * height; i++ ) {
IndexPacket x = indexes[i];
if( x < image->colors ) {
pixels[i].red = image->colormap[x].red;
pixels[i].green = image->colormap[x].green;
pixels[i].blue = image->colormap[x].blue;
}
}
}
#endif /*UseHDRI*/
return( pixels );
}
size_t CSeqTable_sparse_index::GetSize(void) const
{
switch ( Which() ) {
case e_Indexes:
{
const TIndexes& indexes = GetIndexes();
return indexes.empty()? 0: indexes.back()+1;
}
case e_Indexes_delta:
{
const TIndexes_delta& deltas = GetIndexes_delta();
return deltas.empty()? 0: x_GetDeltaSum(deltas.size()-1)+1;
}
case e_Bit_set:
return GetBit_set().size()*8;
case e_Bit_set_bvector:
return GetBit_set_bvector().GetSize();
default:
return 0;
}
}
void SubsonicService::LazyPopulate(QStandardItem *item)
{
switch (item->data(InternetModel::Role_Type).toInt())
{
case InternetModel::Type_Service:
GetIndexes();
break;
case Type_Artist:
case Type_Album:
GetMusicDirectory(item->data(Role_Id).toString());
break;
default:
break;
}
item->setRowCount(0);
QStandardItem* loading = new QStandardItem(tr("Loading..."));
item->appendRow(loading);
}
size_t CSeqTable_sparse_index::x_GetNextRowWithValue(size_t row,
size_t value_index) const
{
switch ( Which() ) {
case e_Indexes:
{
const TIndexes& indexes = GetIndexes();
return ++value_index >= indexes.size()?
kInvalidRow: indexes[value_index];
}
case e_Indexes_delta:
{
const TIndexes_delta& deltas = GetIndexes_delta();
return ++value_index >= deltas.size()?
kInvalidRow: row + deltas[value_index];
}
case e_Bit_set:
{
const TBit_set& bytes = GetBit_set();
size_t byte_index = row / 8;
size_t bit_index = row % 8;
bit_index = sx_FindNextNonZeroBit(Uint1(bytes[byte_index]), bit_index);
if ( bit_index != kInvalidRow ) {
return byte_index*8 + bit_index;
}
byte_index = sx_FindFirstNonZeroByte(bytes, byte_index + 1);
if ( byte_index == kInvalidRow ) {
return kInvalidRow;
}
return byte_index*8 + sx_FindFirstNonZeroBit(Uint1(bytes[byte_index]));
}
case e_Bit_set_bvector:
{
row = GetBit_set_bvector().GetBitVector().get_next(row);
return row == 0? kInvalidRow: row;
}
default:
return kInvalidRow;
};
}
static void XShearImage(Image *image,const MagickRealType degrees,
const unsigned long width,const unsigned long height,const long x_offset,
long y_offset)
{
#define XShearImageTag "XShear/Image"
enum {LEFT, RIGHT}
direction;
IndexPacket
*indexes,
*shear_indexes;
long
step,
y;
MagickBooleanType
status;
MagickPixelPacket
background,
pixel,
source,
destination;
MagickRealType
area,
displacement;
register long
i;
register PixelPacket
*p,
*q;
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
y_offset--;
for (y=0; y < (long) height; y++)
{
y_offset++;
displacement=degrees*(MagickRealType) (y-height/2.0);
if (displacement == 0.0)
continue;
if (displacement > 0.0)
direction=RIGHT;
else
{
displacement*=(-1.0);
direction=LEFT;
}
step=(long) floor((double) displacement);
area=(MagickRealType) (displacement-step);
step++;
GetMagickPixelPacket(image,&background);
SetMagickPixelPacket(image,&image->background_color,(IndexPacket *) NULL,
&background);
if (image->colorspace == CMYKColorspace)
ConvertRGBToCMYK(&background);
pixel=background;
GetMagickPixelPacket(image,&source);
GetMagickPixelPacket(image,&destination);
switch (direction)
{
case LEFT:
{
/*
Transfer pixels left-to-right.
*/
if (step > x_offset)
break;
p=GetImagePixels(image,0,y_offset,image->columns,1);
if (p == (PixelPacket *) NULL)
break;
p+=x_offset;
indexes=GetIndexes(image);
indexes+=x_offset;
q=p-step;
shear_indexes=indexes-step;
for (i=0; i < (long) width; i++)
{
if ((x_offset+i) < step)
{
SetMagickPixelPacket(image,++p,++indexes,&pixel);
q++;
shear_indexes++;
continue;
}
SetMagickPixelPacket(image,p,indexes,&source);
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&source,
(MagickRealType) p->opacity,area,&destination);
SetPixelPacket(image,&destination,q++,shear_indexes++);
SetMagickPixelPacket(image,p++,indexes++,&pixel);
}
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&background,
(MagickRealType) background.opacity,area,&destination);
SetPixelPacket(image,&destination,q++,shear_indexes++);
for (i=0; i < (step-1); i++)
SetPixelPacket(image,&background,q++,shear_indexes++);
break;
}
case RIGHT:
{
/*
Transfer pixels right-to-left.
*/
p=GetImagePixels(image,0,y_offset,image->columns,1);
if (p == (PixelPacket *) NULL)
break;
p+=x_offset+width;
indexes=GetIndexes(image);
indexes+=x_offset+width;
q=p+step;
shear_indexes=indexes+step;
for (i=0; i < (long) width; i++)
{
p--;
indexes--;
q--;
shear_indexes--;
if ((unsigned long) (x_offset+width+step-i) >= image->columns)
continue;
SetMagickPixelPacket(image,p,indexes,&source);
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&source,
(MagickRealType) p->opacity,area,&destination);
SetPixelPacket(image,&destination,q,shear_indexes);
SetMagickPixelPacket(image,p,indexes,&pixel);
}
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&background,
(MagickRealType) background.opacity,area,&destination);
SetPixelPacket(image,&destination,--q,--shear_indexes);
for (i=0; i < (step-1); i++)
SetPixelPacket(image,&background,--q,--shear_indexes);
break;
}
}
if (SyncImagePixels(image) == MagickFalse)
break;
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,height) != MagickFalse))
{
status=image->progress_monitor(XShearImageTag,y,height,
image->client_data);
if (status == MagickFalse)
break;
}
}
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
+ I n t e g r a l R o t a t e I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 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 method is:
%
% Image *IntegralRotateImage(const Image *image,unsigned long rotations,
% ExceptionInfo *exception)
%
% A description of each parameter follows.
%
% o image: the image.
%
% o rotations: Specifies the number of 90 degree rotations.
%
%
*/
static Image *IntegralRotateImage(const Image *image,unsigned long rotations,
ExceptionInfo *exception)
{
#define TileHeight 128
#define TileWidth 128
#define RotateImageTag "Rotate/Image"
Image
*rotate_image;
long
tile_x,
tile_y,
y;
MagickBooleanType
status;
MagickPixelPacket
pixel;
RectangleInfo
page;
register IndexPacket
*indexes,
*rotate_indexes;
register const PixelPacket
*p,
*tile_pixels;
register long
x;
register PixelPacket
*q;
unsigned long
tile_width,
tile_height;
/*
Initialize rotated image attributes.
*/
assert(image != (Image *) NULL);
page=image->page;
rotations%=4;
if ((rotations == 1) || (rotations == 3))
rotate_image=CloneImage(image,image->rows,image->columns,MagickTrue,
exception);
else
rotate_image=CloneImage(image,image->columns,image->rows,MagickTrue,
exception);
if (rotate_image == (Image *) NULL)
return((Image *) NULL);
/*
Integral rotate the image.
*/
GetMagickPixelPacket(image,&pixel);
switch (rotations)
{
case 0:
{
/*
Rotate 0 degrees.
*/
for (y=0; y < (long) image->rows; y++)
{
p=AcquireImagePixels(image,0,y,image->columns,1,exception);
q=SetImagePixels(rotate_image,0,y,rotate_image->columns,1);
if ((p == (const PixelPacket *) NULL) || (q == (PixelPacket *) NULL))
break;
indexes=GetIndexes(image);
rotate_indexes=GetIndexes(rotate_image);
for (x=0; x < (long) image->columns; x++)
{
SetMagickPixelPacket(image,p,indexes+x,&pixel);
SetPixelPacket(rotate_image,&pixel,q,rotate_indexes+x);
p++;
q++;
}
if (SyncImagePixels(rotate_image) == MagickFalse)
break;
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(RotateImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
break;
}
case 1:
{
/*
Rotate 90 degrees.
*/
for (tile_y=0; tile_y < (long) image->rows; tile_y+=TileHeight)
{
for (tile_x=0; tile_x < (long) image->columns; tile_x+=TileWidth)
{
tile_width=TileWidth;
if ((tile_x+TileWidth) > (long) image->columns)
tile_width=1UL*(TileWidth-(tile_x+TileWidth-image->columns));
tile_height=TileHeight;
if ((tile_y+TileHeight) > (long) image->rows)
tile_height=1UL*(TileHeight-(tile_y+TileHeight-image->rows));
tile_pixels=AcquireImagePixels(image,tile_x,tile_y,tile_width,
tile_height,exception);
if (tile_pixels == (const PixelPacket *) NULL)
break;
for (y=0; y < (long) tile_width; y++)
{
q=SetImagePixels(rotate_image,(long) rotate_image->columns-(tile_y+
tile_height),tile_x+y,tile_height,1);
if (q == (PixelPacket *) NULL)
break;
rotate_indexes=GetIndexes(rotate_image);
p=tile_pixels+(tile_height-1)*tile_width+y;
indexes=GetIndexes(image)+(tile_height-1)*tile_width+y;
for (x=0; x < (long) tile_height; x++)
{
SetMagickPixelPacket(image,p,indexes,&pixel);
SetPixelPacket(rotate_image,&pixel,q,rotate_indexes+x);
p-=tile_width;
indexes-=tile_width;
q++;
}
if (SyncImagePixels(rotate_image) == MagickFalse)
break;
}
}
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(tile_y,image->rows) != MagickFalse))
{
status=image->progress_monitor(RotateImageTag,tile_y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
Swap(page.width,page.height);
Swap(page.x,page.y);
if (page.width != 0)
page.x=(long) (page.width-rotate_image->columns-page.x);
break;
}
case 2:
{
/*
Rotate 180 degrees.
*/
for (y=0; y < (long) image->rows; y++)
{
p=AcquireImagePixels(image,0,y,image->columns,1,exception);
q=SetImagePixels(rotate_image,0,(long) (image->rows-y-1),
image->columns,1);
if ((p == (const PixelPacket *) NULL) || (q == (PixelPacket *) NULL))
break;
q+=image->columns;
indexes=GetIndexes(image);
rotate_indexes=GetIndexes(rotate_image);
for (x=0; x < (long) image->columns; x++)
{
q--;
SetMagickPixelPacket(image,p,indexes+x,&pixel);
SetPixelPacket(rotate_image,&pixel,q,rotate_indexes+(image->columns-
x-1));
p++;
}
if (SyncImagePixels(rotate_image) == MagickFalse)
break;
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(RotateImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
if (page.width != 0)
page.x=(long) (page.width-rotate_image->columns-page.x);
if (page.height != 0)
page.y=(long) (page.height-rotate_image->rows-page.y);
break;
}
case 3:
{
/*
Rotate 270 degrees.
*/
for (tile_y=0; tile_y < (long) image->rows; tile_y+=TileHeight)
{
for (tile_x=0; tile_x < (long) image->columns; tile_x+=TileWidth)
{
tile_width=TileWidth;
if ((tile_x+TileWidth) > (long) image->columns)
tile_width=1UL*(TileWidth-(tile_x+TileWidth-image->columns));
tile_height=TileHeight;
if ((tile_y+TileHeight) > (long) image->rows)
tile_height=1UL*(TileHeight-(tile_y+TileHeight-image->rows));
tile_pixels=AcquireImagePixels(image,tile_x,tile_y,tile_width,
tile_height,exception);
if (tile_pixels == (const PixelPacket *) NULL)
break;
for (y=0; y < (long) tile_width; y++)
{
q=SetImagePixels(rotate_image,tile_y,(long) rotate_image->rows-
(tile_x+tile_width)+y,tile_height,1);
if (q == (PixelPacket *) NULL)
break;
rotate_indexes=GetIndexes(rotate_image);
p=tile_pixels+(tile_width-1)-y;
indexes=GetIndexes(image)+(tile_width-1)-y;
for (x=0; x < (long) tile_height; x++)
{
SetMagickPixelPacket(image,p,indexes,&pixel);
SetPixelPacket(rotate_image,&pixel,q,rotate_indexes+x);
p+=tile_width;
indexes+=tile_width;
q++;
}
if (SyncImagePixels(rotate_image) == MagickFalse)
break;
}
}
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(tile_y,image->rows) != MagickFalse))
{
status=image->progress_monitor(RotateImageTag,tile_y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
Swap(page.width,page.height);
Swap(page.x,page.y);
if (page.height != 0)
page.y=(long) (page.height-rotate_image->rows-page.y);
break;
}
}
rotate_image->page=page;
return(rotate_image);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e a d V I F F I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 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 method is:
%
% Image *ReadVIFFImage(const ImageInfo *image_info,
% ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o image: Method ReadVIFFImage returns a pointer to the image after
% reading. A null image is returned if there is a memory shortage or if
% the image cannot be read.
%
% o image_info: the image info.
%
% o exception: return any errors or warnings in this structure.
%
%
*/
static Image *ReadVIFFImage(const ImageInfo *image_info,
ExceptionInfo *exception)
{
#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_MAPTYP_2_BYTE 2
#define VFF_MAPTYP_4_BYTE 4
#define VFF_MAPTYP_FLOAT 5
#define VFF_MAPTYP_DOUBLE 7
#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
#define VFF_TYP_FLOAT 5
#define VFF_TYP_DOUBLE 9
typedef struct _ViffInfo
{
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_bits_per_pixel,
y_bits_per_pixel;
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;
} ViffInfo;
double
min_value,
scale_factor,
value;
Image
*image;
int
bit;
long
y;
MagickBooleanType
status;
MagickSizeType
number_pixels;
register IndexPacket
*indexes;
register long
x;
register PixelPacket
*q;
register long
i;
register unsigned char
*p;
ssize_t
count;
unsigned char
buffer[7],
*viff_pixels;
unsigned long
bytes_per_pixel,
lsb_first,
max_packets,
quantum;
ViffInfo
viff_info;
/*
Open image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
if (image_info->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
image_info->filename);
assert(exception != (ExceptionInfo *) NULL);
assert(exception->signature == MagickSignature);
image=AllocateImage(image_info);
status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
if (status == MagickFalse)
{
image=DestroyImageList(image);
return((Image *) NULL);
}
/*
Read VIFF header (1024 bytes).
*/
count=ReadBlob(image,1,&viff_info.identifier);
do
{
/*
Verify VIFF identifier.
*/
if ((count == 0) || ((unsigned char) viff_info.identifier != 0xab))
ThrowReaderException(CorruptImageError,"NotAVIFFImage");
/*
Initialize VIFF image.
*/
count=ReadBlob(image,7,buffer);
viff_info.file_type=buffer[0];
viff_info.release=buffer[1];
viff_info.version=buffer[2];
viff_info.machine_dependency=buffer[3];
count=ReadBlob(image,512,(unsigned char *) viff_info.comment);
viff_info.comment[511]='\0';
if (strlen(viff_info.comment) > 4)
(void) SetImageProperty(image,"comment",viff_info.comment);
if ((viff_info.machine_dependency == VFF_DEP_DECORDER) ||
(viff_info.machine_dependency == VFF_DEP_NSORDER))
{
viff_info.rows=ReadBlobLSBLong(image);
viff_info.columns=ReadBlobLSBLong(image);
viff_info.subrows=ReadBlobLSBLong(image);
viff_info.x_offset=(long) ReadBlobLSBLong(image);
viff_info.y_offset=(long) ReadBlobLSBLong(image);
viff_info.x_bits_per_pixel=(float) ReadBlobLSBLong(image);
viff_info.y_bits_per_pixel=(float) ReadBlobLSBLong(image);
viff_info.location_type=ReadBlobLSBLong(image);
viff_info.location_dimension=ReadBlobLSBLong(image);
viff_info.number_of_images=ReadBlobLSBLong(image);
viff_info.number_data_bands=ReadBlobLSBLong(image);
viff_info.data_storage_type=ReadBlobLSBLong(image);
viff_info.data_encode_scheme=ReadBlobLSBLong(image);
viff_info.map_scheme=ReadBlobLSBLong(image);
viff_info.map_storage_type=ReadBlobLSBLong(image);
viff_info.map_rows=ReadBlobLSBLong(image);
viff_info.map_columns=ReadBlobLSBLong(image);
viff_info.map_subrows=ReadBlobLSBLong(image);
viff_info.map_enable=ReadBlobLSBLong(image);
viff_info.maps_per_cycle=ReadBlobLSBLong(image);
viff_info.color_space_model=ReadBlobLSBLong(image);
}
else
{
viff_info.rows=ReadBlobMSBLong(image);
viff_info.columns=ReadBlobMSBLong(image);
viff_info.subrows=ReadBlobMSBLong(image);
viff_info.x_offset=(long) ReadBlobMSBLong(image);
viff_info.y_offset=(long) ReadBlobMSBLong(image);
viff_info.x_bits_per_pixel=(float) ReadBlobMSBLong(image);
viff_info.y_bits_per_pixel=(float) ReadBlobMSBLong(image);
viff_info.location_type=ReadBlobMSBLong(image);
viff_info.location_dimension=ReadBlobMSBLong(image);
viff_info.number_of_images=ReadBlobMSBLong(image);
viff_info.number_data_bands=ReadBlobMSBLong(image);
viff_info.data_storage_type=ReadBlobMSBLong(image);
viff_info.data_encode_scheme=ReadBlobMSBLong(image);
viff_info.map_scheme=ReadBlobMSBLong(image);
viff_info.map_storage_type=ReadBlobMSBLong(image);
viff_info.map_rows=ReadBlobMSBLong(image);
viff_info.map_columns=ReadBlobMSBLong(image);
viff_info.map_subrows=ReadBlobMSBLong(image);
viff_info.map_enable=ReadBlobMSBLong(image);
viff_info.maps_per_cycle=ReadBlobMSBLong(image);
viff_info.color_space_model=ReadBlobMSBLong(image);
}
for (i=0; i < 420; i++)
(void) ReadBlobByte(image);
image->columns=viff_info.rows;
image->rows=viff_info.columns;
image->depth=viff_info.x_bits_per_pixel <= 8 ? 8UL : MAGICKCORE_QUANTUM_DEPTH;
/*
Verify that we can read this VIFF image.
*/
number_pixels=(MagickSizeType) viff_info.columns*viff_info.rows;
if (number_pixels != (size_t) number_pixels)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
if (number_pixels == 0)
ThrowReaderException(CoderError,"ImageColumnOrRowSizeIsNotSupported");
if ((viff_info.number_data_bands < 1) || (viff_info.number_data_bands > 4))
ThrowReaderException(CorruptImageError,"ImproperImageHeader");
if ((viff_info.data_storage_type != VFF_TYP_BIT) &&
(viff_info.data_storage_type != VFF_TYP_1_BYTE) &&
(viff_info.data_storage_type != VFF_TYP_2_BYTE) &&
(viff_info.data_storage_type != VFF_TYP_4_BYTE) &&
(viff_info.data_storage_type != VFF_TYP_FLOAT) &&
(viff_info.data_storage_type != VFF_TYP_DOUBLE))
ThrowReaderException(CoderError,"DataStorageTypeIsNotSupported");
if (viff_info.data_encode_scheme != VFF_DES_RAW)
ThrowReaderException(CoderError,"DataEncodingSchemeIsNotSupported");
if ((viff_info.map_storage_type != VFF_MAPTYP_NONE) &&
(viff_info.map_storage_type != VFF_MAPTYP_1_BYTE) &&
(viff_info.map_storage_type != VFF_MAPTYP_2_BYTE) &&
(viff_info.map_storage_type != VFF_MAPTYP_4_BYTE) &&
(viff_info.map_storage_type != VFF_MAPTYP_FLOAT) &&
(viff_info.map_storage_type != VFF_MAPTYP_DOUBLE))
ThrowReaderException(CoderError,"MapStorageTypeIsNotSupported");
if ((viff_info.color_space_model != VFF_CM_NONE) &&
(viff_info.color_space_model != VFF_CM_ntscRGB) &&
(viff_info.color_space_model != VFF_CM_genericRGB))
ThrowReaderException(CoderError,"ColorspaceModelIsNotSupported");
if (viff_info.location_type != VFF_LOC_IMPLICIT)
ThrowReaderException(CoderError,"LocationTypeIsNotSupported");
if (viff_info.number_of_images != 1)
ThrowReaderException(CoderError,"NumberOfImagesIsNotSupported");
if (viff_info.map_rows == 0)
viff_info.map_scheme=VFF_MS_NONE;
switch ((int) viff_info.map_scheme)
{
case VFF_MS_NONE:
{
if (viff_info.number_data_bands < 3)
{
/*
Create linear color ramp.
*/
image->colors=image->depth <= 8 ? 256UL : 65536UL;
if (viff_info.data_storage_type == VFF_TYP_BIT)
image->colors=2;
if (AllocateImageColormap(image,image->colors) == MagickFalse)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
}
break;
}
case VFF_MS_ONEPERBAND:
case VFF_MS_SHARED:
{
unsigned char
*viff_colormap;
/*
Allocate VIFF colormap.
*/
switch ((int) viff_info.map_storage_type)
{
case VFF_MAPTYP_1_BYTE: bytes_per_pixel=1; break;
case VFF_MAPTYP_2_BYTE: bytes_per_pixel=2; break;
case VFF_MAPTYP_4_BYTE: bytes_per_pixel=4; break;
case VFF_MAPTYP_FLOAT: bytes_per_pixel=4; break;
case VFF_MAPTYP_DOUBLE: bytes_per_pixel=8; break;
default: bytes_per_pixel=1; break;
}
image->colors=viff_info.map_columns;
if (AllocateImageColormap(image,image->colors) == MagickFalse)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
viff_colormap=(unsigned char *) AcquireQuantumMemory(image->colors,
viff_info.map_rows*bytes_per_pixel*sizeof(*viff_colormap));
if (viff_colormap == (unsigned char *) NULL)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
/*
Read VIFF raster colormap.
*/
count=ReadBlob(image,bytes_per_pixel*image->colors*viff_info.map_rows,
viff_colormap);
lsb_first=1;
if (*(char *) &lsb_first &&
((viff_info.machine_dependency != VFF_DEP_DECORDER) &&
(viff_info.machine_dependency != VFF_DEP_NSORDER)))
switch ((int) viff_info.map_storage_type)
{
case VFF_MAPTYP_2_BYTE:
{
MSBOrderShort(viff_colormap,(bytes_per_pixel*image->colors*
viff_info.map_rows));
break;
}
case VFF_MAPTYP_4_BYTE:
case VFF_MAPTYP_FLOAT:
{
MSBOrderLong(viff_colormap,(bytes_per_pixel*image->colors*
viff_info.map_rows));
break;
}
default: break;
}
for (i=0; i < (long) (viff_info.map_rows*image->colors); i++)
{
switch ((int) viff_info.map_storage_type)
{
case VFF_MAPTYP_2_BYTE: value=1.0*((short *) viff_colormap)[i]; break;
case VFF_MAPTYP_4_BYTE: value=1.0*((int *) viff_colormap)[i]; break;
case VFF_MAPTYP_FLOAT: value=((float *) viff_colormap)[i]; break;
case VFF_MAPTYP_DOUBLE: value=((double *) viff_colormap)[i]; break;
default: value=1.0*viff_colormap[i]; break;
}
if (i < (long) image->colors)
{
image->colormap[i].red=ScaleCharToQuantum((unsigned char) value);
image->colormap[i].green=
ScaleCharToQuantum((unsigned char) value);
image->colormap[i].blue=ScaleCharToQuantum((unsigned char) value);
}
else
if (i < (long) (2*image->colors))
image->colormap[i % image->colors].green=
ScaleCharToQuantum((unsigned char) value);
else
if (i < (long) (3*image->colors))
image->colormap[i % image->colors].blue=
ScaleCharToQuantum((unsigned char) value);
}
viff_colormap=(unsigned char *) RelinquishMagickMemory(viff_colormap);
break;
}
default:
ThrowReaderException(CoderError,"ColormapTypeNotSupported");
}
/*
Initialize image structure.
*/
image->matte=viff_info.number_data_bands == 4 ? MagickTrue : MagickFalse;
image->storage_class=
(viff_info.number_data_bands < 3 ? PseudoClass : DirectClass);
image->columns=viff_info.rows;
image->rows=viff_info.columns;
if ((image_info->ping != MagickFalse) && (image_info->number_scenes != 0))
if (image->scene >= (image_info->scene+image_info->number_scenes-1))
break;
if (SetImageExtent(image,0,0) == MagickFalse)
{
InheritException(exception,&image->exception);
return(DestroyImageList(image));
}
/*
Allocate VIFF pixels.
*/
switch ((int) viff_info.data_storage_type)
{
case VFF_TYP_2_BYTE: bytes_per_pixel=2; break;
case VFF_TYP_4_BYTE: bytes_per_pixel=4; break;
case VFF_TYP_FLOAT: bytes_per_pixel=4; break;
case VFF_TYP_DOUBLE: bytes_per_pixel=8; break;
default: bytes_per_pixel=1; break;
}
if (viff_info.data_storage_type == VFF_TYP_BIT)
max_packets=((image->columns+7UL) >> 3UL)*image->rows;
else
max_packets=(unsigned long) (number_pixels*viff_info.number_data_bands);
viff_pixels=(unsigned char *) AcquireQuantumMemory(max_packets,
bytes_per_pixel*sizeof(*viff_pixels));
if (viff_pixels == (unsigned char *) NULL)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
count=ReadBlob(image,bytes_per_pixel*max_packets,viff_pixels);
lsb_first=1;
if (*(char *) &lsb_first &&
((viff_info.machine_dependency != VFF_DEP_DECORDER) &&
(viff_info.machine_dependency != VFF_DEP_NSORDER)))
switch ((int) viff_info.data_storage_type)
{
case VFF_TYP_2_BYTE:
{
MSBOrderShort(viff_pixels,bytes_per_pixel*max_packets);
break;
}
case VFF_TYP_4_BYTE:
case VFF_TYP_FLOAT:
{
MSBOrderLong(viff_pixels,bytes_per_pixel*max_packets);
break;
}
default: break;
}
min_value=0.0;
scale_factor=1.0;
if ((viff_info.data_storage_type != VFF_TYP_1_BYTE) &&
(viff_info.map_scheme == VFF_MS_NONE))
{
double
max_value;
/*
Determine scale factor.
*/
switch ((int) viff_info.data_storage_type)
{
case VFF_TYP_2_BYTE: value=1.0*((short *) viff_pixels)[0]; break;
case VFF_TYP_4_BYTE: value=1.0*((int *) viff_pixels)[0]; break;
case VFF_TYP_FLOAT: value=((float *) viff_pixels)[0]; break;
case VFF_TYP_DOUBLE: value=((double *) viff_pixels)[0]; break;
default: value=1.0*viff_pixels[0]; break;
}
max_value=value;
min_value=value;
for (i=0; i < (long) max_packets; i++)
{
switch ((int) viff_info.data_storage_type)
{
case VFF_TYP_2_BYTE: value=1.0*((short *) viff_pixels)[i]; break;
case VFF_TYP_4_BYTE: value=1.0*((int *) viff_pixels)[i]; break;
case VFF_TYP_FLOAT: value=((float *) viff_pixels)[i]; break;
case VFF_TYP_DOUBLE: value=((double *) viff_pixels)[i]; break;
default: value=1.0*viff_pixels[i]; break;
}
if (value > max_value)
max_value=value;
else
if (value < min_value)
min_value=value;
}
if ((min_value == 0) && (max_value == 0))
scale_factor=0;
else
if (min_value == max_value)
{
scale_factor=(MagickRealType) QuantumRange/min_value;
min_value=0;
}
else
scale_factor=(MagickRealType) QuantumRange/(max_value-min_value);
}
/*
Convert pixels to Quantum size.
*/
p=(unsigned char *) viff_pixels;
for (i=0; i < (long) max_packets; i++)
{
switch ((int) viff_info.data_storage_type)
{
case VFF_TYP_2_BYTE: value=1.0*((short *) viff_pixels)[i]; break;
case VFF_TYP_4_BYTE: value=1.0*((int *) viff_pixels)[i]; break;
case VFF_TYP_FLOAT: value=((float *) viff_pixels)[i]; break;
case VFF_TYP_DOUBLE: value=((double *) viff_pixels)[i]; break;
default: value=1.0*viff_pixels[i]; break;
}
if (viff_info.map_scheme == VFF_MS_NONE)
{
value=(value-min_value)*scale_factor;
if (value > QuantumRange)
value=QuantumRange;
else
if (value < 0)
value=0;
}
*p=(unsigned char) value;
p++;
}
/*
Convert VIFF raster image to pixel packets.
*/
p=(unsigned char *) viff_pixels;
if (viff_info.data_storage_type == VFF_TYP_BIT)
{
/*
Convert bitmap scanline.
*/
(void) SetImageType(image,BilevelType);
(void) SetImageType(image,PaletteType);
for (y=0; y < (long) image->rows; y++)
{
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < (long) (image->columns-7); x+=8)
{
for (bit=0; bit < 8; bit++)
if (PixelIntensity(q) < ((MagickRealType) QuantumRange/2.0))
{
quantum=(unsigned long) indexes[x+bit];
quantum|=0x01;
indexes[x+bit]=(IndexPacket) quantum;
}
p++;
}
if ((image->columns % 8) != 0)
{
for (bit=0; bit < (long) (image->columns % 8); bit++)
if (PixelIntensity(q) < ((MagickRealType) QuantumRange/2.0))
{
quantum=(unsigned long) indexes[x+bit];
quantum|=0x01;
indexes[x+bit]=(IndexPacket) quantum;
}
p++;
}
if (SyncImagePixels(image) == MagickFalse)
break;
if (image->previous == (Image *) NULL)
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(LoadImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
}
else
if (image->storage_class == PseudoClass)
for (y=0; y < (long) image->rows; y++)
{
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < (long) image->columns; x++)
indexes[x]=(IndexPacket) (*p++);
if (SyncImagePixels(image) == MagickFalse)
break;
if (image->previous == (Image *) NULL)
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(LoadImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
else
{
/*
Convert DirectColor scanline.
*/
number_pixels=(MagickSizeType) image->columns*image->rows;
for (y=0; y < (long) image->rows; y++)
{
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
for (x=0; x < (long) image->columns; x++)
{
q->red=ScaleCharToQuantum(*p);
q->green=ScaleCharToQuantum(*(p+number_pixels));
q->blue=ScaleCharToQuantum(*(p+2*number_pixels));
if (image->colors != 0)
{
q->red=image->colormap[(long) q->red].red;
q->green=image->colormap[(long) q->green].green;
q->blue=image->colormap[(long) q->blue].blue;
}
q->opacity=(Quantum) (image->matte ? QuantumRange-
ScaleCharToQuantum(*(p+number_pixels*3)) : OpaqueOpacity);
p++;
q++;
}
if (SyncImagePixels(image) == MagickFalse)
break;
if (image->previous == (Image *) NULL)
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(LoadImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
}
viff_pixels=(unsigned char *) RelinquishMagickMemory(viff_pixels);
if (image->storage_class == PseudoClass)
(void) SyncImage(image);
if (EOFBlob(image) != MagickFalse)
{
ThrowFileException(exception,CorruptImageError,"UnexpectedEndOfFile",
image->filename);
break;
}
/*
Proceed to next image.
*/
if (image_info->number_scenes != 0)
if (image->scene >= (image_info->scene+image_info->number_scenes-1))
break;
count=ReadBlob(image,1,&viff_info.identifier);
if ((count != 0) && (viff_info.identifier == 0xab))
{
/*
Allocate next image structure.
*/
AllocateNextImage(image_info,image);
if (GetNextImageInList(image) == (Image *) NULL)
{
image=DestroyImageList(image);
return((Image *) NULL);
}
image=SyncNextImageInList(image);
if (image->progress_monitor != (MagickProgressMonitor) NULL)
{
status=image->progress_monitor(LoadImagesTag,TellBlob(image),
GetBlobSize(image),image->client_data);
if (status == MagickFalse)
break;
}
}
} while ((count != 0) && (viff_info.identifier == 0xab));
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e a d O T B I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ReadOTBImage() reads a on-the-air (level 0) bitmap 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 ReadOTBImage method is:
%
% Image *ReadOTBImage(const ImageInfo *image_info,ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o image_info: The image info.
%
% o exception: return any errors or warnings in this structure.
%
%
*/
static Image *ReadOTBImage(const ImageInfo *image_info,ExceptionInfo *exception)
{
#define GetBit(a,i) (((a) >> (i)) & 1L)
Image
*image;
int
byte;
long
y;
MagickBooleanType
status;
register IndexPacket
*indexes;
register long
x;
register PixelPacket
*q;
unsigned char
bit,
info,
depth;
/*
Open image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
if (image_info->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
image_info->filename);
assert(exception != (ExceptionInfo *) NULL);
assert(exception->signature == MagickSignature);
image=AllocateImage(image_info);
status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
if (status == MagickFalse)
{
image=DestroyImageList(image);
return((Image *) NULL);
}
/*
Initialize image structure.
*/
info=(unsigned char) ReadBlobByte(image);
if (GetBit(info,4) == 0)
{
image->columns=(unsigned long) ReadBlobByte(image);
image->rows=(unsigned long) ReadBlobByte(image);
}
else
{
image->columns=(unsigned long) ReadBlobMSBShort(image);
image->rows=(unsigned long) ReadBlobMSBShort(image);
}
if ((image->columns == 0) || (image->rows == 0))
ThrowReaderException(CorruptImageError,"ImproperImageHeader");
depth=(unsigned char) ReadBlobByte(image);
if (depth != 1)
ThrowReaderException(CoderError,"OnlyLevelZerofilesSupported");
if (AllocateImageColormap(image,2) == MagickFalse)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
if (image_info->ping != MagickFalse)
{
CloseBlob(image);
return(GetFirstImageInList(image));
}
if (SetImageExtent(image,0,0) == MagickFalse)
{
InheritException(exception,&image->exception);
return(DestroyImageList(image));
}
/*
Convert bi-level image to pixel packets.
*/
for (y=0; y < (long) image->rows; y++)
{
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
bit=0;
byte=0;
for (x=0; x < (long) image->columns; x++)
{
if (bit == 0)
{
byte=ReadBlobByte(image);
if (byte == EOF)
ThrowReaderException(CorruptImageError,"CorruptImage");
}
indexes[x]=(IndexPacket) ((byte & (0x01 << (7-bit))) ? 0x00 : 0x01);
bit++;
if (bit == 8)
bit=0;
}
if (SyncImagePixels(image) == MagickFalse)
break;
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(LoadImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
(void) SyncImage(image);
if (EOFBlob(image) != MagickFalse)
ThrowFileException(exception,CorruptImageError,"UnexpectedEndOfFile",
image->filename);
CloseBlob(image);
return(GetFirstImageInList(image));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% W r i t e O T B I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% WriteOTBImage() writes an image to a file in the On-the-air Bitmap
% (level 0) image format.
%
% The format of the WriteOTBImage method is:
%
% MagickBooleanType WriteOTBImage(const ImageInfo *image_info,Image *image)
%
% A description of each parameter follows.
%
% o image_info: The image info.
%
% o image: The image.
%
%
*/
static MagickBooleanType WriteOTBImage(const ImageInfo *image_info,Image *image)
{
#define SetBit(a,i,set) \
a=(unsigned char) ((set) ? (a) | (1L << (i)) : (a) & ~(1L << (i)))
long
y;
MagickBooleanType
status;
register const PixelPacket
*p;
register IndexPacket
*indexes;
register long
x;
unsigned char
bit,
byte,
info;
/*
Open output image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);
if (status == MagickFalse)
return(status);
if (image_info->colorspace == UndefinedColorspace)
(void) SetImageColorspace(image,RGBColorspace);
/*
Convert image to a bi-level image.
*/
(void) SetImageType(image,BilevelType);
info=0;
if ((image->columns >= 256) || (image->rows >= 256))
SetBit(info,4,1);
(void) WriteBlobByte(image,info);
if ((image->columns >= 256) || (image->rows >= 256))
{
(void) WriteBlobMSBShort(image,(unsigned short) image->columns);
(void) WriteBlobMSBShort(image,(unsigned short) image->rows);
}
else
{
(void) WriteBlobByte(image,(unsigned char) image->columns);
(void) WriteBlobByte(image,(unsigned char) image->rows);
}
(void) WriteBlobByte(image,1); /* depth */
for (y=0; y < (long) image->rows; y++)
{
p=AcquireImagePixels(image,0,y,image->columns,1,&image->exception);
if (p == (const PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
bit=0;
byte=0;
for (x=0; x < (long) image->columns; x++)
{
if (PixelIntensity(p) < ((Quantum) QuantumRange/2.0))
byte|=0x1 << (7-bit);
bit++;
if (bit == 8)
{
(void) WriteBlobByte(image,byte);
bit=0;
byte=0;
}
}
if (bit != 0)
(void) WriteBlobByte(image,byte);
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(SaveImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
CloseBlob(image);
return(MagickTrue);
}
void synthese::db::DBTableSyncTemplate<K>::_UpdateSchema(
DB* db
){
FieldsList fieldsList(K::GetFieldsList());
// reset statistics
TABLE.CreatedTable = false;
TABLE.MigratedSchema = false;
TABLE.CreatedIndexes = 0;
// * Fields getter
std::stringstream fieldsGetter;
bool first(true);
BOOST_FOREACH(const FieldsList::value_type& field, fieldsList)
{
if(first)
{
first = false;
}
else
{
fieldsGetter << ",";
}
if(field.isGeometry())
{
fieldsGetter << "AsText(" << TABLE.NAME << "." << field.name << ") AS " << field.name;
}
else
{
fieldsGetter << TABLE.NAME << "." << field.name;
}
}
_fieldsGetter = fieldsGetter.str();
// Check if the table already exists
if (!db->doesTableExists(TABLE.NAME))
{
// Create the table if it does not already exist.
db->execUpdate(db->getCreateTableSQL(TABLE.NAME, fieldsList));
TABLE.CreatedTable = true;
}
else if (!db->isTableSchemaUpToDate(TABLE.NAME, fieldsList))
{
_MigrateTableData(db);
TABLE.MigratedSchema = true;
}
// Indexes
DBTableSync::Indexes indexes(GetIndexes());
BOOST_FOREACH(const DBTableSync::Indexes::value_type& index, indexes)
{
if (db->doesIndexExist(TABLE.NAME, index))
{
// We assume that if the index exists, it is correct. That should be a rather safe bet if
// backends use an index named from the list of its columns (which all backends do now).
continue;
}
db->createIndex(TABLE.NAME, index, fieldsList);
TABLE.CreatedIndexes++;
}
db->afterUpdateSchema(TABLE.NAME, fieldsList);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% W r i t e P I C O N I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Procedure WritePICONImage() writes an image to a file in the Personal Icon
% format.
%
% The format of the WritePICONImage method is:
%
% MagickBooleanType WritePICONImage(const ImageInfo *image_info,
% Image *image)
%
% A description of each parameter follows.
%
% o image_info: the image info.
%
% o image: The image.
%
*/
static MagickBooleanType WritePICONImage(const ImageInfo *image_info,
Image *image)
{
#define ColormapExtent 155
#define GraymapExtent 95
#define PiconGeometry "48x48>"
static unsigned char
Colormap[]=
{
0x47, 0x49, 0x46, 0x38, 0x37, 0x61, 0x06, 0x00, 0x05, 0x00, 0xf4, 0x05,
0x00, 0x00, 0x00, 0x00, 0x2f, 0x4f, 0x4f, 0x70, 0x80, 0x90, 0x7e, 0x7e,
0x7e, 0xdc, 0xdc, 0xdc, 0xff, 0xff, 0xff, 0x00, 0x00, 0x80, 0x00, 0x00,
0xff, 0x1e, 0x90, 0xff, 0x87, 0xce, 0xeb, 0xe6, 0xe6, 0xfa, 0x00, 0xff,
0xff, 0x80, 0x00, 0x80, 0xb2, 0x22, 0x22, 0x2e, 0x8b, 0x57, 0x32, 0xcd,
0x32, 0x00, 0xff, 0x00, 0x98, 0xfb, 0x98, 0xff, 0x00, 0xff, 0xff, 0x00,
0x00, 0xff, 0x63, 0x47, 0xff, 0xa5, 0x00, 0xff, 0xd7, 0x00, 0xff, 0xff,
0x00, 0xee, 0x82, 0xee, 0xa0, 0x52, 0x2d, 0xcd, 0x85, 0x3f, 0xd2, 0xb4,
0x8c, 0xf5, 0xde, 0xb3, 0xff, 0xfa, 0xcd, 0x00, 0x00, 0x00, 0x00, 0x00,
0x00, 0x21, 0xf9, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x2c, 0x00, 0x00,
0x00, 0x00, 0x06, 0x00, 0x05, 0x00, 0x00, 0x05, 0x18, 0x20, 0x10, 0x08,
0x03, 0x51, 0x18, 0x07, 0x92, 0x28, 0x0b, 0xd3, 0x38, 0x0f, 0x14, 0x49,
0x13, 0x55, 0x59, 0x17, 0x96, 0x69, 0x1b, 0xd7, 0x85, 0x00, 0x3b,
},
Graymap[]=
{
0x47, 0x49, 0x46, 0x38, 0x37, 0x61, 0x04, 0x00, 0x04, 0x00, 0xf3, 0x0f,
0x00, 0x00, 0x00, 0x00, 0x12, 0x12, 0x12, 0x21, 0x21, 0x21, 0x33, 0x33,
0x33, 0x45, 0x45, 0x45, 0x54, 0x54, 0x54, 0x66, 0x66, 0x66, 0x78, 0x78,
0x78, 0x87, 0x87, 0x87, 0x99, 0x99, 0x99, 0xab, 0xab, 0xab, 0xba, 0xba,
0xba, 0xcc, 0xcc, 0xcc, 0xde, 0xde, 0xde, 0xed, 0xed, 0xed, 0xff, 0xff,
0xff, 0x21, 0xf9, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x2c, 0x00, 0x00,
0x00, 0x00, 0x04, 0x00, 0x04, 0x00, 0x00, 0x04, 0x0c, 0x10, 0x04, 0x31,
0x48, 0x31, 0x07, 0x25, 0xb5, 0x58, 0x73, 0x4f, 0x04, 0x00, 0x3b,
};
#define MaxCixels 92
static const char
Cixel[MaxCixels+1] = " .XoO+@#$%&*=-;:>,<1234567890qwertyuipasdfghjk"
"lzxcvbnmMNBVCZASDFGHJKLPIUYTREWQ!~^/()_`'][{}|";
char
buffer[MaxTextExtent],
basename[MaxTextExtent],
name[MaxTextExtent],
symbol[MaxTextExtent];
Image
*picon,
*map;
ImageInfo
*blob_info;
long
j,
k,
y;
MagickBooleanType
status,
transparent;
MagickPixelPacket
pixel;
RectangleInfo
geometry;
register const PixelPacket
*p;
register IndexPacket
*indexes;
register long
i,
x;
register PixelPacket
*q;
unsigned long
characters_per_pixel,
colors;
/*
Open output image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);
if (status == MagickFalse)
return(status);
if (image_info->colorspace == UndefinedColorspace)
(void) SetImageColorspace(image,RGBColorspace);
SetGeometry(image,&geometry);
(void) ParseMetaGeometry(PiconGeometry,&geometry.x,&geometry.y,
&geometry.width,&geometry.height);
picon=ResizeImage(image,geometry.width,geometry.height,TriangleFilter,1.0,
&image->exception);
blob_info=CloneImageInfo(image_info);
(void) AcquireUniqueFilename(blob_info->filename);
if ((image_info->type != TrueColorType) &&
(IsGrayImage(image,&image->exception) != MagickFalse))
map=BlobToImage(blob_info,Graymap,GraymapExtent,&image->exception);
else
map=BlobToImage(blob_info,Colormap,ColormapExtent,&image->exception);
(void) RelinquishUniqueFileResource(blob_info->filename);
blob_info=DestroyImageInfo(blob_info);
if ((picon == (Image *) NULL) || (map == (Image *) NULL))
return(MagickFalse);
status=MapImage(picon,map,image_info->dither);
map=DestroyImage(map);
transparent=MagickFalse;
if (picon->storage_class == PseudoClass)
{
CompressImageColormap(picon);
if (picon->matte != MagickFalse)
transparent=MagickTrue;
}
else
{
/*
Convert DirectClass to PseudoClass picon.
*/
if (picon->matte != MagickFalse)
{
/*
Map all the transparent pixels.
*/
for (y=0; y < (long) picon->rows; y++)
{
q=GetImagePixels(picon,0,y,picon->columns,1);
if (q == (PixelPacket *) NULL)
break;
for (x=0; x < (long) picon->columns; x++)
{
if (q->opacity == (Quantum) TransparentOpacity)
transparent=MagickTrue;
else
q->opacity=OpaqueOpacity;
q++;
}
if (SyncImagePixels(picon) == MagickFalse)
break;
}
}
(void) SetImageType(picon,PaletteType);
}
colors=picon->colors;
if (transparent != MagickFalse)
{
colors++;
picon->colormap=(PixelPacket *) ResizeQuantumMemory((void **)
picon->colormap,(size_t) colors,sizeof(*picon->colormap));
if (picon->colormap == (PixelPacket *) NULL)
ThrowWriterException(ResourceLimitError,"MemoryAllocationError");
for (y=0; y < (long) picon->rows; y++)
{
q=GetImagePixels(picon,0,y,picon->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(picon);
for (x=0; x < (long) picon->columns; x++)
{
if (q->opacity == (Quantum) TransparentOpacity)
indexes[x]=(IndexPacket) picon->colors;
q++;
}
if (SyncImagePixels(picon) == MagickFalse)
break;
}
}
/*
Compute the character per pixel.
*/
characters_per_pixel=1;
for (k=MaxCixels; (long) colors > k; k*=MaxCixels)
characters_per_pixel++;
/*
XPM header.
*/
(void) WriteBlobString(image,"/* XPM */\n");
GetPathComponent(picon->filename,BasePath,basename);
(void) FormatMagickString(buffer,MaxTextExtent,
"static char *%s[] = {\n",basename);
(void) WriteBlobString(image,buffer);
(void) WriteBlobString(image,"/* columns rows colors chars-per-pixel */\n");
(void) FormatMagickString(buffer,MaxTextExtent,"\"%lu %lu %lu %ld\",\n",
picon->columns,picon->rows,colors,characters_per_pixel);
(void) WriteBlobString(image,buffer);
GetMagickPixelPacket(image,&pixel);
for (i=0; i < (long) colors; i++)
{
/*
Define XPM color.
*/
SetMagickPixelPacket(image,picon->colormap+i,(IndexPacket *) NULL,&pixel);
pixel.colorspace=RGBColorspace;
pixel.depth=8;
pixel.opacity=(MagickRealType) OpaqueOpacity;
(void) QueryMagickColorname(image,&pixel,XPMCompliance,MagickFalse,name,
&image->exception);
if (LocaleNCompare(name,"rgb",3) == 0)
(void) QueryMagickColorname(image,&pixel,XPMCompliance,MagickTrue,name,
&image->exception);
if (transparent != MagickFalse)
{
if (i == (long) (colors-1))
(void) CopyMagickString(name,"grey75",MaxTextExtent);
}
/*
Write XPM color.
*/
k=i % MaxCixels;
symbol[0]=Cixel[k];
for (j=1; j < (long) characters_per_pixel; j++)
{
k=((i-k)/MaxCixels) % MaxCixels;
symbol[j]=Cixel[k];
}
symbol[j]='\0';
(void) FormatMagickString(buffer,MaxTextExtent,"\"%s c %s\",\n",
symbol,name);
(void) WriteBlobString(image,buffer);
}
/*
Define XPM pixels.
*/
(void) WriteBlobString(image,"/* pixels */\n");
for (y=0; y < (long) picon->rows; y++)
{
p=AcquireImagePixels(picon,0,y,picon->columns,1,&picon->exception);
if (p == (const PixelPacket *) NULL)
break;
indexes=GetIndexes(picon);
(void) WriteBlobString(image,"\"");
for (x=0; x < (long) picon->columns; x++)
{
k=((long) indexes[x] % MaxCixels);
symbol[0]=Cixel[k];
for (j=1; j < (long) characters_per_pixel; j++)
{
k=(((int) indexes[x]-k)/MaxCixels) % MaxCixels;
symbol[j]=Cixel[k];
}
symbol[j]='\0';
(void) CopyMagickString(buffer,symbol,MaxTextExtent);
(void) WriteBlobString(image,buffer);
}
(void) FormatMagickString(buffer,MaxTextExtent,"\"%s\n",
y == (long) (picon->rows-1) ? "" : ",");
(void) WriteBlobString(image,buffer);
if (QuantumTick(y,picon->rows) != MagickFalse)
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,picon->rows) != MagickFalse))
{
status=image->progress_monitor(SaveImageTag,y,picon->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
picon=DestroyImage(picon);
(void) WriteBlobString(image,"};\n");
(void) CloseBlob(image);
return(MagickTrue);
}
static MagickBooleanType WriteJBIGImage(const ImageInfo *image_info,
Image *image)
{
double
version;
long
y;
MagickBooleanType
status;
MagickOffsetType
scene;
register const PixelPacket
*p;
register IndexPacket
*indexes;
register long
x;
register unsigned char
*q;
struct jbg_enc_state
jbig_info;
unsigned char
bit,
byte,
*pixels;
unsigned long
number_packets;
/*
Open image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);
if (status == MagickFalse)
return(status);
version=strtod(JBG_VERSION,(char **) NULL);
scene=0;
do
{
/*
Allocate pixel data.
*/
if (image_info->colorspace == UndefinedColorspace)
(void) SetImageColorspace(image,RGBColorspace);
number_packets=(image->columns+7)/8;
pixels=(unsigned char *) AcquireQuantumMemory(number_packets,
image->rows*sizeof(*pixels));
if (pixels == (unsigned char *) NULL)
ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
/*
Convert pixels to a bitmap.
*/
(void) SetImageType(image,BilevelType);
q=pixels;
for (y=0; y < (long) image->rows; y++)
{
p=AcquireImagePixels(image,0,y,image->columns,1,&image->exception);
if (p == (const PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
bit=0;
byte=0;
for (x=0; x < (long) image->columns; x++)
{
byte<<=1;
if (PixelIntensity(p) < (QuantumRange/2.0))
byte|=0x01;
bit++;
if (bit == 8)
{
*q++=byte;
bit=0;
byte=0;
}
p++;
}
if (bit != 0)
*q++=byte << (8-bit);
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(SaveImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
/*
Initialize JBIG info structure.
*/
jbg_enc_init(&jbig_info,image->columns,image->rows,1,&pixels,
(void (*)(unsigned char *,size_t,void *)) JBIGEncode,image);
if (image_info->scene != 0)
jbg_enc_layers(&jbig_info,(int) image_info->scene);
else
{
long
sans_offset;
unsigned long
x_resolution,
y_resolution;
x_resolution=640;
y_resolution=480;
sans_offset=0;
if (image_info->density != (char *) NULL)
{
GeometryInfo
geometry_info;
MagickStatusType
flags;
flags=ParseGeometry(image_info->density,&geometry_info);
x_resolution=geometry_info.rho;
y_resolution=geometry_info.sigma;
if ((flags & SigmaValue) == 0)
y_resolution=x_resolution;
}
if (image->units == PixelsPerCentimeterResolution)
{
x_resolution*=2.54;
y_resolution*=2.54;
}
(void) jbg_enc_lrlmax(&jbig_info,x_resolution,y_resolution);
}
(void) jbg_enc_lrange(&jbig_info,-1,-1);
jbg_enc_options(&jbig_info,JBG_ILEAVE | JBG_SMID,JBG_TPDON | JBG_TPBON |
JBG_DPON,version < 1.6 ? -1 : 0,-1,-1);
/*
Write JBIG image.
*/
jbg_enc_out(&jbig_info);
jbg_enc_free(&jbig_info);
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
if (GetNextImageInList(image) == (Image *) NULL)
break;
image=SyncNextImageInList(image);
if (image->progress_monitor != (MagickProgressMonitor) NULL)
{
status=image->progress_monitor(SaveImagesTag,scene,
GetImageListLength(image),image->client_data);
if (status == MagickFalse)
break;
}
scene++;
} while (image_info->adjoin != MagickFalse);
(void) CloseBlob(image);
return(MagickTrue);
}
/*
* DjVu advertised readiness to provide bitmap: So get it!
* we use the RGB format!
*/
static void
get_page_image(LoadContext *lc, ddjvu_page_t *page, int x, int y, int w, int h, QuantumInfo* quantum_info)
{
ddjvu_rect_t rect;
rect.x = x;
rect.y = y;
rect.w = (unsigned int) w; /* /10 */
rect.h = (unsigned int) h; /* /10 */
Image* image = lc->image;
ddjvu_page_type_t type = ddjvu_page_get_type(lc->page);
/* stride of this temporary buffer: */
int stride = (type == DDJVU_PAGETYPE_BITONAL)?
(lc->image->columns + 7)/8:
lc->image->columns *3;
unsigned char* q = malloc(lc->image->rows * stride);
ddjvu_format_t *format = ddjvu_format_create(
(type == DDJVU_PAGETYPE_BITONAL)?DDJVU_FORMAT_LSBTOMSB : DDJVU_FORMAT_RGB24,
/* DDJVU_FORMAT_RGB24
* DDJVU_FORMAT_RGBMASK32*/
/* DDJVU_FORMAT_RGBMASK32 */
0, NULL);
#if 0
/* fixme: ThrowReaderException is a macro, which uses `exception' variable */
if (format == NULL)
{
abort();
/* ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed"); */
}
#endif
ddjvu_format_set_row_order(format, 1);
ddjvu_format_set_y_direction(format, 1);
int ret = ddjvu_page_render(page,
DDJVU_RENDER_COLOR, /* ddjvu_render_mode_t */
&rect,
&rect, /* mmc: ?? */
format,
stride, /* ?? */
(char*)q);
ddjvu_format_release(format);
if (type == DDJVU_PAGETYPE_BITONAL) {
/* */
#if DEBUG
printf("%s: expanding BITONAL page/image\n", __FUNCTION__);
#endif
register IndexPacket *indexes;
unsigned long bit, byte;
for (y=0; y < (long) image->rows; y++)
{
PixelPacket * o = SetImagePixels(image,0,y,image->columns,1);
if (o == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
bit=0;
byte=0;
/* fixme: the non-aligned, last =<7 bits ! that's ok!!!*/
for (x= 0; x < (long) image->columns; x++)
{
if (bit == 0) byte= (unsigned long) q[(y * stride) + (x / 8)];
indexes[x]=(IndexPacket) (((byte & 0x01) != 0) ? 0x00 : 0x01);
bit++;
if (bit == 8)
bit=0;
byte>>=1;
}
if (SyncImagePixels(image) == MagickFalse)
break;
}
SyncImage(image);
} else {
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e a d X C I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ReadXCImage creates a constant image and initializes it 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 method is:
%
% Image *ReadXCImage(const ImageInfo *image_info,ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o image: The image.
%
% o image_info: the image info.
%
% o exception: return any errors or warnings in this structure.
%
*/
static Image *ReadXCImage(const ImageInfo *image_info,ExceptionInfo *exception)
{
Image
*image;
IndexPacket
*indexes;
MagickBooleanType
status;
MagickPixelPacket
color;
long
y;
register long
x;
register PixelPacket
*q;
/*
Initialize Image structure.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
if (image_info->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
image_info->filename);
assert(exception != (ExceptionInfo *) NULL);
assert(exception->signature == MagickSignature);
image=AllocateImage(image_info);
if (image->columns == 0)
image->columns=1;
if (image->rows == 0)
image->rows=1;
(void) CopyMagickString(image->filename,image_info->filename,MaxTextExtent);
status=QueryMagickColor((char *) image_info->filename,&color,exception);
if (status == MagickFalse)
{
image=DestroyImage(image);
return((Image *) NULL);
}
image->colorspace=color.colorspace;
image->matte=color.matte;
if ((image->colorspace == RGBColorspace) && (image->matte == MagickFalse))
{
if (AllocateImageColormap(image,1) == MagickFalse)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
(void) QueryColorDatabase((char *) image_info->filename,
&image->background_color,exception);
image->colormap[0]=image->background_color;
color.index=0.0;
}
if (SetImageExtent(image,0,0) == MagickFalse)
{
InheritException(exception,&image->exception);
return(DestroyImageList(image));
}
for (y=0; y < (long) image->rows; y++)
{
q=GetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < (long) image->columns; x++)
{
q->red=RoundToQuantum(color.red);
q->green=RoundToQuantum(color.green);
q->blue=RoundToQuantum(color.blue);
if (image->matte)
q->opacity=RoundToQuantum(color.opacity);
if ((image->storage_class == PseudoClass) ||
(image->colorspace == CMYKColorspace))
indexes[x]=(IndexPacket) RoundToQuantum(color.index);
q++;
}
if (SyncImagePixels(image) == MagickFalse)
break;
}
return(GetFirstImageInList(image));
}
void PFO_CubeColorBlockGL :: DrawPlotObject()
{
if (!InitDrawObject())
return;
#ifdef _GLPRHARDCOPY_
if (DoingHardCopy())
{
int glpNum = vertexCount;
if (edgeSpec.plotEdges)
{
glpNum += polygonCount * 2;
GL_Line::SetLine(edgeSpec.edgeThk);
}
glpBegin(GLP_3D_COLOR, glpNum);
objectBase->SetHardCopyParameters();
}
bool doGprGroup = DoingHardCopy() && edgeSpec.plotEdges;
#endif
polygonObj.SetPolygonFilled(polyOffset);
SC_CoordArray topCoords, bottomCoords, sides;
sides.AllocAndSetSize(4);
vertexCount = 0;
polygonCount = 0;
SC_IntArray& currIndx = GetIndexes();
double polyReduction = reductionFactor;
if (DoingVRMLOutput())
polyReduction *= objectBase->GetVRMLEdgeFactor();
for (int i = 0; i < colorMap->ncolorMap; i++)
{
SC_ColorSpec polyColor = colorMap->GetColor(i);
for (int j = 0; j < currIndx.Size(); j++ )
{
if (cubeColors[j] != i)
continue;
GetCoords(currIndx[j], topCoords, bottomCoords, polyReduction);
vertexCount += topCoords.Size() * 6;
polygonCount += topCoords.Size() + 2;
// all polys
polygonObj.SetPolygonFilled(polyOffset);
// use best approach if not hard copy
if (!DoingHardCopy())
{
polygonObj.SetColor(polyColor);
polygonObj.DrawPolygon(topCoords, bottomCoords);
if (edgeSpec.plotEdges)
{
if (DoingVRMLOutput())
GetCoords(currIndx[j], topCoords, bottomCoords, reductionFactor);
polygonObj.SetColor(edgeSpec.edgePen);
polygonObj.SetPolygonLine(edgeSpec.edgeThk, edgeSpec.edgePolyOffset);
polygonObj.DrawPolygon(topCoords, bottomCoords);
}
continue;
}
// hard copy case only
#ifdef _GLPRHARDCOPY_
// draw top poly
if (doGprGroup)
{
GL_Polygon::SetColor(edgeSpec.edgePen);
glpBeginGroup(GLP_OVERLAY_GROUP);
}
GL_Polygon::SetColor(polyColor);
polygonObj.DrawPolygon(topCoords);
if (doGprGroup)
glpEndGroup();
if (doGprGroup)
{
GL_Polygon::SetColor(edgeSpec.edgePen);
glpBeginGroup(GLP_OVERLAY_GROUP);
}
GL_Polygon::SetColor(polyColor);
polygonObj.DrawPolygon(bottomCoords);
if (doGprGroup)
glpEndGroup();
// all sides
for (int k = 0; k < topCoords.Size(); k++)
{
sides[0] = topCoords[k];
if (k == 0)
{
sides[1] = topCoords.LastIndex();
sides[2] = bottomCoords.LastIndex();
}
else
{
sides[1] = topCoords[k - 1];
sides[2] = bottomCoords[k - 1];
}
sides[3] = bottomCoords[k];
if (doGprGroup)
{
GL_Polygon::SetColor(edgeSpec.edgePen);
glpBeginGroup(GLP_OVERLAY_GROUP);
}
GL_Polygon::SetColor(polyColor);
polygonObj.DrawPolygon(sides);
if (doGprGroup)
glpEndGroup();
}
#endif
}
}
GL_Base::HardCopyBlockEnd();
CloseDrawObject();
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% W r i t e M A P I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% WriteMAPImage() writes an image to a file as red, green, and blue
% colormap bytes followed by the colormap indexes.
%
% The format of the WriteMAPImage method is:
%
% MagickBooleanType WriteMAPImage(const ImageInfo *image_info,Image *image)
%
% A description of each parameter follows.
%
% o image_info: The image info.
%
% o image: The image.
%
%
*/
static MagickBooleanType WriteMAPImage(const ImageInfo *image_info,Image *image)
{
long
y;
MagickBooleanType
status;
register IndexPacket
*indexes;
register const PixelPacket
*p;
register long
i,
x;
register unsigned char
*q;
size_t
packet_size;
unsigned char
*colormap,
*pixels;
unsigned long
depth;
/*
Open output image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);
if (status == MagickFalse)
return(status);
if (image_info->colorspace == UndefinedColorspace)
(void) SetImageColorspace(image,RGBColorspace);
/*
Allocate colormap.
*/
if (IsPaletteImage(image,&image->exception) == MagickFalse)
(void) SetImageType(image,PaletteType);
depth=GetImageQuantumDepth(image,MagickTrue);
packet_size=(size_t) (depth/8);
pixels=(unsigned char *) AcquireQuantumMemory(image->columns,packet_size*
sizeof(*pixels));
packet_size=(size_t) (image->colors > 256 ? 6UL : 3UL);
colormap=(unsigned char *) AcquireQuantumMemory(image->colors,packet_size*
sizeof(*colormap));
if ((pixels == (unsigned char *) NULL) ||
(colormap == (unsigned char *) NULL))
ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
/*
Write colormap to file.
*/
q=colormap;
if (image->depth <= 8)
for (i=0; i < (long) image->colors; i++)
{
*q++=(unsigned char) image->colormap[i].red;
*q++=(unsigned char) image->colormap[i].green;
*q++=(unsigned char) image->colormap[i].blue;
}
else
for (i=0; i < (long) image->colors; i++)
{
*q++=(unsigned char) ((unsigned long) image->colormap[i].red >> 8);
*q++=(unsigned char) image->colormap[i].red;
*q++=(unsigned char) ((unsigned long) image->colormap[i].green >> 8);
*q++=(unsigned char) image->colormap[i].green;
*q++=(unsigned char) ((unsigned long) image->colormap[i].blue >> 8);
*q++=(unsigned char) image->colormap[i].blue;
}
(void) WriteBlob(image,packet_size*image->colors,colormap);
colormap=(unsigned char *) RelinquishMagickMemory(colormap);
/*
Write image pixels to file.
*/
for (y=0; y < (long) image->rows; y++)
{
p=AcquireImagePixels(image,0,y,image->columns,1,&image->exception);
if (p == (const PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
q=pixels;
for (x=0; x < (long) image->columns; x++)
{
if (image->colors > 256)
*q++=(unsigned char) ((unsigned long) indexes[x] >> 8);
*q++=(unsigned char) indexes[x];
}
(void) WriteBlob(image,(size_t) (q-pixels),pixels);
}
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
CloseBlob(image);
return(status);
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
+ Y S h e a r I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 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 method is:
%
% void YShearImage(Image *image,const MagickRealType degrees,
% const unsigned long width,const unsigned long height,long x_offset,
% const long y_offset)
%
% A description of each parameter follows.
%
% o image: the image.
%
% o degrees: A MagickRealType representing the shearing angle along the Y
% axis.
%
% o width, height, x_offset, y_offset: Defines a region of the image
% to shear.
%
*/
static void YShearImage(Image *image,const MagickRealType degrees,
const unsigned long width,const unsigned long height,long x_offset,
const long y_offset)
{
#define YShearImageTag "YShear/Image"
enum {UP, DOWN}
direction;
IndexPacket
*indexes,
*shear_indexes;
long
step,
y;
MagickBooleanType
status;
MagickPixelPacket
background,
pixel,
source,
destination;
MagickRealType
area,
displacement;
register PixelPacket
*p,
*q;
register long
i;
assert(image != (Image *) NULL);
x_offset--;
for (y=0; y < (long) width; y++)
{
x_offset++;
displacement=degrees*(MagickRealType) (y-width/2.0);
if (displacement == 0.0)
continue;
if (displacement > 0.0)
direction=DOWN;
else
{
displacement*=(-1.0);
direction=UP;
}
step=(long) floor((double) displacement);
area=(MagickRealType) (displacement-step);
step++;
GetMagickPixelPacket(image,&background);
SetMagickPixelPacket(image,&image->background_color,(IndexPacket *) NULL,
&background);
if (image->colorspace == CMYKColorspace)
ConvertRGBToCMYK(&background);
pixel=background;
GetMagickPixelPacket(image,&source);
GetMagickPixelPacket(image,&destination);
switch (direction)
{
case UP:
{
/*
Transfer pixels top-to-bottom.
*/
if (step > y_offset)
break;
p=GetImagePixels(image,x_offset,0,1,image->rows);
if (p == (PixelPacket *) NULL)
break;
p+=y_offset;
indexes=GetIndexes(image);
indexes+=y_offset;
q=p-step;
shear_indexes=indexes-step;
for (i=0; i < (long) height; i++)
{
if ((y_offset+i) < step)
{
SetMagickPixelPacket(image,++p,++indexes,&pixel);
q++;
shear_indexes++;
continue;
}
SetMagickPixelPacket(image,p,indexes,&source);
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&source,
(MagickRealType) p->opacity,area,&destination);
SetPixelPacket(image,&destination,q++,shear_indexes++);
SetMagickPixelPacket(image,p++,indexes++,&pixel);
}
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&background,
(MagickRealType) background.opacity,area,&destination);
SetPixelPacket(image,&destination,q++,shear_indexes++);
for (i=0; i < (step-1); i++)
SetPixelPacket(image,&background,q++,shear_indexes++);
break;
}
case DOWN:
{
/*
Transfer pixels bottom-to-top.
*/
p=GetImagePixels(image,x_offset,0,1,image->rows);
if (p == (PixelPacket *) NULL)
break;
p+=y_offset+height;
indexes=GetIndexes(image);
indexes+=y_offset+height;
q=p+step;
shear_indexes=indexes+step;
for (i=0; i < (long) height; i++)
{
p--;
indexes--;
q--;
shear_indexes--;
if ((unsigned long) (y_offset+height+step-i) >= image->rows)
continue;
SetMagickPixelPacket(image,p,indexes,&source);
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&source,
(MagickRealType) p->opacity,area,&destination);
SetPixelPacket(image,&destination,q,shear_indexes);
SetMagickPixelPacket(image,p,indexes,&pixel);
}
MagickCompositeBlend(&pixel,(MagickRealType) pixel.opacity,&background,
(MagickRealType) background.opacity,area,&destination);
SetPixelPacket(image,&destination,--q,--shear_indexes);
for (i=0; i < (step-1); i++)
SetPixelPacket(image,&background,--q,--shear_indexes);
break;
}
}
if (SyncImagePixels(image) == MagickFalse)
break;
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,width) != MagickFalse))
{
status=image->progress_monitor(XShearImageTag,y,width,
image->client_data);
if (status == MagickFalse)
break;
}
}
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% 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 method is:
%
% MagickBooleanType WriteXPMImage(const ImageInfo *image_info,Image *image)
%
% A description of each parameter follows.
%
% o image_info: the image info.
%
% o image: The image.
%
%
*/
static MagickBooleanType WriteXPMImage(const ImageInfo *image_info,Image *image)
{
#define MaxCixels 92
static const char
Cixel[MaxCixels+1] = " .XoO+@#$%&*=-;:>,<1234567890qwertyuipasdfghjk"
"lzxcvbnmMNBVCZASDFGHJKLPIUYTREWQ!~^/()_`'][{}|";
char
buffer[MaxTextExtent],
basename[MaxTextExtent],
name[MaxTextExtent],
symbol[MaxTextExtent];
long
j,
k,
opacity,
y;
MagickBooleanType
status;
MagickPixelPacket
pixel;
register const PixelPacket
*p;
register IndexPacket
*indexes;
register long
i,
x;
unsigned long
characters_per_pixel;
/*
Open output image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
if (image->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);
if (status == MagickFalse)
return(status);
if (image_info->colorspace == UndefinedColorspace)
(void) SetImageColorspace(image,RGBColorspace);
opacity=(-1);
if (image->matte == MagickFalse)
{
if ((image->storage_class == DirectClass) || (image->colors > 256))
(void) SetImageType(image,PaletteType);
}
else
{
MagickRealType
alpha,
beta;
/*
Identify transparent colormap index.
*/
if ((image->storage_class == DirectClass) || (image->colors > 256))
(void) SetImageType(image,PaletteBilevelMatteType);
for (i=0; i < (long) image->colors; i++)
if (image->colormap[i].opacity != OpaqueOpacity)
{
if (opacity < 0)
{
opacity=i;
continue;
}
alpha=(Quantum) TransparentOpacity-(MagickRealType)
image->colormap[i].opacity;
beta=(Quantum) TransparentOpacity-(MagickRealType)
image->colormap[opacity].opacity;
if (alpha < beta)
opacity=i;
}
if (opacity == -1)
{
(void) SetImageType(image,PaletteBilevelMatteType);
for (i=0; i < (long) image->colors; i++)
if (image->colormap[i].opacity != OpaqueOpacity)
{
if (opacity < 0)
{
opacity=i;
continue;
}
alpha=(Quantum) TransparentOpacity-(MagickRealType)
image->colormap[i].opacity;
beta=(Quantum) TransparentOpacity-(MagickRealType)
image->colormap[opacity].opacity;
if (alpha < beta)
opacity=i;
}
}
if (opacity >= 0)
{
image->colormap[opacity].red=image->transparent_color.red;
image->colormap[opacity].green=image->transparent_color.green;
image->colormap[opacity].blue=image->transparent_color.blue;
}
}
/*
Compute the character per pixel.
*/
characters_per_pixel=1;
for (k=MaxCixels; (long) image->colors > k; k*=MaxCixels)
characters_per_pixel++;
/*
XPM header.
*/
(void) WriteBlobString(image,"/* XPM */\n");
GetPathComponent(image->filename,BasePath,basename);
if (isalnum((int) ((unsigned char) *basename)) == 0)
{
(void) FormatMagickString(buffer,MaxTextExtent,"xpm_%s",basename);
(void) CopyMagickString(basename,buffer,MaxTextExtent);
}
for (i=0; basename[i] != '\0'; i++)
if (isalpha((int) ((unsigned char) basename[i])) == 0)
basename[i]='_';
(void) FormatMagickString(buffer,MaxTextExtent,
"static char *%s[] = {\n",basename);
(void) WriteBlobString(image,buffer);
(void) WriteBlobString(image,"/* columns rows colors chars-per-pixel */\n");
(void) FormatMagickString(buffer,MaxTextExtent,"\"%lu %lu %lu %ld\",\n",
image->columns,image->rows,image->colors,characters_per_pixel);
(void) WriteBlobString(image,buffer);
GetMagickPixelPacket(image,&pixel);
for (i=0; i < (long) image->colors; i++)
{
/*
Define XPM color.
*/
SetMagickPixelPacket(image,image->colormap+i,(IndexPacket *) NULL,&pixel);
pixel.colorspace=RGBColorspace;
pixel.depth=8;
pixel.opacity=(MagickRealType) OpaqueOpacity;
(void) QueryMagickColorname(image,&pixel,XPMCompliance,MagickFalse,name,
&image->exception);
if (LocaleNCompare(name,"rgb",3) == 0)
(void) QueryMagickColorname(image,&pixel,XPMCompliance,MagickTrue,name,
&image->exception);
if (i == opacity)
(void) CopyMagickString(name,"None",MaxTextExtent);
/*
Write XPM color.
*/
k=i % MaxCixels;
symbol[0]=Cixel[k];
for (j=1; j < (long) characters_per_pixel; j++)
{
k=((i-k)/MaxCixels) % MaxCixels;
symbol[j]=Cixel[k];
}
symbol[j]='\0';
(void) FormatMagickString(buffer,MaxTextExtent,"\"%s c %s\",\n",symbol,
name);
(void) WriteBlobString(image,buffer);
}
/*
Define XPM pixels.
*/
(void) WriteBlobString(image,"/* pixels */\n");
for (y=0; y < (long) image->rows; y++)
{
p=AcquireImagePixels(image,0,y,image->columns,1,&image->exception);
if (p == (const PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
(void) WriteBlobString(image,"\"");
for (x=0; x < (long) image->columns; x++)
{
k=((long) indexes[x] % MaxCixels);
symbol[0]=Cixel[k];
for (j=1; j < (long) characters_per_pixel; j++)
{
k=(((int) indexes[x]-k)/MaxCixels) % MaxCixels;
symbol[j]=Cixel[k];
}
symbol[j]='\0';
(void) CopyMagickString(buffer,symbol,MaxTextExtent);
(void) WriteBlobString(image,buffer);
}
(void) FormatMagickString(buffer,MaxTextExtent,"\"%s\n",
(y == (long) (image->rows-1) ? "" : ","));
(void) WriteBlobString(image,buffer);
if (QuantumTick(y,image->rows) != MagickFalse)
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(SaveImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
(void) WriteBlobString(image,"};\n");
(void) CloseBlob(image);
return(MagickTrue);
}
//---------------------------------------------------------------------------
void Table::Compact(int *progress) {
// ok so we're gonna be cheating a bit, instead of figuring out how to safely modify all those
// nifty indexes that cross reference themselves and blablabla, we're just gonna duplicate the
// whole table from scratch, overwrite ourselves, and reopen the table. duh.
// crate a temporary table in windows temp dir
char temp_table[MAX_PATH+12];
char temp_index[MAX_PATH+12];
char old_table[MAX_PATH+12];
char old_index[MAX_PATH+12];
DWORD pid=GetCurrentProcessId();
sprintf(temp_table, "%s.new%08X", Name,pid);
sprintf(temp_index, "%s.new%08X", IdxName,pid);
sprintf(old_table, "%s.old%08X", Name,pid);
sprintf(old_index, "%s.old%08X", IdxName,pid);
// delete them, in case we crashed while packing
DeleteFile(temp_table);
DeleteFile(temp_index);
DeleteFile(old_table);
DeleteFile(old_index);
// create a brand new db and a brand new table
Table *ctable = db->OpenTable(temp_table, temp_index, NDE_OPEN_ALWAYS, Cached);
// make a list to keep track of subtables
LinkedList sublist;
// duplicate the columns
Record *record = GetColumns();
LinkedList *collist = NULL;
if (record != NULL)
{
collist = record->GetFields();
if (collist != NULL)
collist->WalkList(Compact_ColumnWalk, 0, (void *)ctable, (void *)&sublist);
}
ctable->PostColumns();
// duplicate the indexes
LinkedList *indlist = GetIndexes();
if (indlist != NULL)
indlist->WalkList(Compact_IndexWalk, 0, (void *)ctable, 0);
// duplicate the data
int reccount = GetRecordsCount();
int ndrop = 0;
int count = 0;
First();
size_t data_size = 65536;
unsigned char *data = (unsigned char *)malloc(65536);
while (1) {
int lasterr = NumErrors();
GetDefaultScanner()->GetRecordById(count, FALSE);
count++;
if (Eof() || count > reccount) break;
if (NumErrors() > lasterr)
continue;
Index *idx = GetDefaultScanner()->GetIndex();
int pos = idx->Get(GetDefaultScanner()->GetRecordId());
if (pos == 0) ndrop++;
SetDlgInfo(reccount, GetRecordId(), ndrop);
if (pos == 0) continue;
int pr = (int)((float)GetRecordId()/(float)reccount*100.0f);
if (progress != NULL) *progress = pr;
int gotstuff = 0;
if (collist != NULL) {
ColumnField *colfield = static_cast<ColumnField *>(collist->GetHead());
while (colfield != NULL) {
unsigned char fieldid = colfield->GetFieldId();
//char *fieldname = colfield->GetFieldName();
Field *mfield = this->GetFieldById(fieldid);
//Field *mfield = GetFieldByName(fieldname);
if (mfield != NULL) {
if (!gotstuff) {
ctable->New();
gotstuff = 1;
}
Field *cfield = ctable->NewFieldById(fieldid, mfield->GetPerm());
//Field *cfield = ctable->NewFieldByName(fieldname, mfield->GetPerm());
size_t len = mfield->GetDataSize();
if (len > data_size)
{
data_size = len;
data = (unsigned char *)realloc(data, data_size);
}
mfield->WriteTypedData(data, len);
cfield->ReadTypedData(data, len);
}
colfield = static_cast<ColumnField *>(colfield->GetNext());
}
}
if (gotstuff) ctable->Post(); else ndrop++;
}
free(data);
SetDlgInfo(reccount, GetRecordId(), ndrop);
// done creating temp table
db->CloseTable(ctable);
// close this table
Close();
Reset();
if (MoveFile(Name,old_table))
{
if (MoveFile(IdxName,old_index))
{
if (!MoveFile(temp_table,Name) || !MoveFile(temp_index,IdxName))
{
// failed, try to copy back
DeleteFile(Name);
DeleteFile(IdxName);
MoveFile(old_table,Name); // restore old file
MoveFile(old_index,IdxName); // restore old file
}
}
else
{
MoveFile(old_table,Name); // restore old file
}
}
// clean up our temp files
DeleteFile(temp_table);
DeleteFile(temp_index);
DeleteFile(old_table);
DeleteFile(old_index);
while (sublist.GetNElements() > 0) {
StringField *subfile = static_cast<StringField *>(sublist.GetHead());
DeleteFile(subfile->GetString());
sublist.RemoveEntry(subfile);
}
if (progress != NULL) *progress = 100;
// reopen our table
Init();
Open();
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e a d M A P I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 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 method is:
%
% Image *ReadMAPImage(const ImageInfo *image_info,ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o image_info: The image info.
%
% o exception: return any errors or warnings in this structure.
%
*/
static Image *ReadMAPImage(const ImageInfo *image_info,ExceptionInfo *exception)
{
Image
*image;
IndexPacket
index;
long
y;
MagickBooleanType
status;
register IndexPacket
*indexes;
register long
x;
register PixelPacket
*q;
register long
i;
register unsigned char
*p;
size_t
packet_size;
ssize_t
count;
unsigned char
*colormap,
*pixels;
unsigned long
depth,
quantum;
/*
Open image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
if (image_info->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
image_info->filename);
assert(exception != (ExceptionInfo *) NULL);
assert(exception->signature == MagickSignature);
image=AllocateImage(image_info);
if ((image->columns == 0) || (image->rows == 0))
ThrowReaderException(OptionError,"MustSpecifyImageSize");
status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
if (status == MagickFalse)
{
image=DestroyImageList(image);
return((Image *) NULL);
}
/*
Initialize image structure.
*/
image->storage_class=PseudoClass;
status=AllocateImageColormap(image,(unsigned long)
(image->offset != 0 ? image->offset : 256));
if (status == MagickFalse)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
depth=GetImageQuantumDepth(image,MagickTrue);
packet_size=(size_t) (depth/8);
pixels=(unsigned char *) AcquireQuantumMemory(image->columns,packet_size*
sizeof(*pixels));
packet_size=(size_t) (image->colors > 256 ? 6UL : 3UL);
colormap=(unsigned char *) AcquireQuantumMemory(image->colors,packet_size*
sizeof(*colormap));
if ((pixels == (unsigned char *) NULL) ||
(colormap == (unsigned char *) NULL))
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
/*
Read image colormap.
*/
count=ReadBlob(image,packet_size*image->colors,colormap);
if (count != (ssize_t) (packet_size*image->colors))
ThrowReaderException(CorruptImageError,"InsufficientImageDataInFile");
p=colormap;
if (image->depth <= 8)
for (i=0; i < (long) image->colors; i++)
{
image->colormap[i].red=ScaleCharToQuantum(*p++);
image->colormap[i].green=ScaleCharToQuantum(*p++);
image->colormap[i].blue=ScaleCharToQuantum(*p++);
}
else
for (i=0; i < (long) image->colors; i++)
{
quantum=(*p++ << 8);
quantum|=(*p++);
image->colormap[i].red=(Quantum) quantum;
quantum=(*p++ << 8);
quantum|=(*p++);
image->colormap[i].green=(Quantum) quantum;
quantum=(*p++ << 8);
quantum|=(*p++);
image->colormap[i].blue=(Quantum) quantum;
}
colormap=(unsigned char *) RelinquishMagickMemory(colormap);
if (image_info->ping != MagickFalse)
{
CloseBlob(image);
return(GetFirstImageInList(image));
}
/*
Read image pixels.
*/
if (SetImageExtent(image,0,0) == MagickFalse)
{
InheritException(exception,&image->exception);
return(DestroyImageList(image));
}
packet_size=(size_t) (depth/8);
for (y=0; y < (long) image->rows; y++)
{
p=pixels;
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
count=ReadBlob(image,(size_t) packet_size*image->columns,pixels);
if (count != (ssize_t) (packet_size*image->columns))
break;
for (x=0; x < (long) image->columns; x++)
{
index=ConstrainColormapIndex(image,*p);
p++;
if (image->colors > 256)
{
index=ConstrainColormapIndex(image,((unsigned long) index << 8)+(*p));
p++;
}
indexes[x]=(IndexPacket) index;
*q++=image->colormap[(long) index];
}
if (SyncImagePixels(image) == MagickFalse)
break;
}
pixels=(unsigned char *) RelinquishMagickMemory(pixels);
if (y < (long) image->rows)
ThrowFileException(exception,CorruptImageError,"UnexpectedEndOfFile",
image->filename);
CloseBlob(image);
return(GetFirstImageInList(image));
}
/*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% %
% %
% R e a d J B I G I m a g e %
% %
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% ReadJBIGImage() reads a JBIG 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 ReadJBIGImage method is:
%
% Image *ReadJBIGImage(const ImageInfo *image_info,
% ExceptionInfo *exception)
%
% A description of each parameter follows:
%
% o image_info: the image info.
%
% o exception: return any errors or warnings in this structure.
%
*/
static Image *ReadJBIGImage(const ImageInfo *image_info,
ExceptionInfo *exception)
{
Image
*image;
IndexPacket
index;
long
length,
y;
MagickBooleanType
status;
register IndexPacket
*indexes;
register long
x;
register PixelPacket
*q;
register unsigned char
*p;
ssize_t
count;
struct jbg_dec_state
jbig_info;
unsigned char
bit,
*buffer,
byte;
/*
Open image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
if (image_info->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
image_info->filename);
assert(exception != (ExceptionInfo *) NULL);
assert(exception->signature == MagickSignature);
image=AllocateImage(image_info);
status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
if (status == MagickFalse)
{
image=DestroyImageList(image);
return((Image *) NULL);
}
/*
Initialize JBIG toolkit.
*/
jbg_dec_init(&jbig_info);
jbg_dec_maxsize(&jbig_info,(unsigned long) image->columns,(unsigned long)
image->rows);
image->columns=jbg_dec_getwidth(&jbig_info);
image->rows=jbg_dec_getheight(&jbig_info);
image->depth=8;
image->storage_class=PseudoClass;
image->colors=2;
/*
Read JBIG file.
*/
buffer=(unsigned char *) AcquireQuantumMemory(MagickMaxBufferSize,
sizeof(*buffer));
if (buffer == (unsigned char *) NULL)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
status=JBG_EAGAIN;
do
{
length=(long) ReadBlob(image,MagickMaxBufferSize,buffer);
if (length == 0)
break;
p=buffer;
count=0;
while ((length > 0) && ((status == JBG_EAGAIN) || (status == JBG_EOK)))
{
size_t
count;
status=jbg_dec_in(&jbig_info,p,length,&count);
p+=count;
length-=(long) count;
}
} while ((status == JBG_EAGAIN) || (status == JBG_EOK));
/*
Create colormap.
*/
image->columns=jbg_dec_getwidth(&jbig_info);
image->rows=jbg_dec_getheight(&jbig_info);
if (AllocateImageColormap(image,2) == MagickFalse)
{
buffer=(unsigned char *) RelinquishMagickMemory(buffer);
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
}
image->colormap[0].red=0;
image->colormap[0].green=0;
image->colormap[0].blue=0;
image->colormap[1].red=QuantumRange;
image->colormap[1].green=QuantumRange;
image->colormap[1].blue=QuantumRange;
image->x_resolution=300;
image->y_resolution=300;
if (image_info->ping != MagickFalse)
{
(void) CloseBlob(image);
return(GetFirstImageInList(image));
}
/*
Convert X bitmap image to pixel packets.
*/
if (SetImageExtent(image,0,0) == MagickFalse)
{
InheritException(exception,&image->exception);
return(DestroyImageList(image));
}
p=jbg_dec_getimage(&jbig_info,0);
for (y=0; y < (long) image->rows; y++)
{
q=SetImagePixels(image,0,y,image->columns,1);
if (q == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
bit=0;
byte=0;
for (x=0; x < (long) image->columns; x++)
{
if (bit == 0)
byte=(*p++);
index=(byte & 0x80) ? 0 : 1;
bit++;
byte<<=1;
if (bit == 8)
bit=0;
indexes[x]=index;
*q++=image->colormap[(long) index];
}
if (SyncImagePixels(image) == MagickFalse)
break;
if ((image->progress_monitor != (MagickProgressMonitor) NULL) &&
(QuantumTick(y,image->rows) != MagickFalse))
{
status=image->progress_monitor(LoadImageTag,y,image->rows,
image->client_data);
if (status == MagickFalse)
break;
}
}
/*
Free scale resource.
*/
jbg_dec_free(&jbig_info);
buffer=(unsigned char *) RelinquishMagickMemory(buffer);
(void) CloseBlob(image);
return(GetFirstImageInList(image));
}
void draw_tiger_map (Widget w,
char *filenm,
int destination_pixmap,
int nocache) { // For future implementation of a "refresh cached map" option
char file[MAX_FILENAME]; // Complete path/name of image file
char short_filenm[MAX_FILENAME];
FILE *f; // Filehandle of image file
char fileimg[MAX_FILENAME]; // Ascii name of image file, read from GEO file
char tigertmp[MAX_FILENAME*2]; // Used for putting together the tigermap query
int width, height;
tiepoint tp[2]; // Calibration points for map, read in from .geo file
register long map_c_T, map_c_L; // map delta NW edge coordinates, DNN: these should be signed
register long tp_c_dx, tp_c_dy; // tiepoint coordinate differences
unsigned long c_x_min, c_y_min;// top left coordinates of map inside screen
unsigned long c_y_max; // bottom right coordinates of map inside screen
double c_x; // Xastir coordinates 1/100 sec, 0 = 180°W
double c_y; // Xastir coordinates 1/100 sec, 0 = 90°N
long map_y_0; // map pixel pointer prior to TM adjustment
register long map_x, map_y; // map pixel pointers, DNN: this was a float, chg to long
long map_x_min, map_x_max; // map boundaries for in screen part of map
long map_y_min, map_y_max; //
long map_x_ctr; // half map width in pixel
long map_y_ctr; // half map height in pixel
int map_seen = 0;
int map_act;
int map_done;
long map_c_yc; // map center, vert coordinate
long map_c_xc; // map center, hor coordinate
double map_c_dx, map_c_dy; // map coordinates increment (pixel width)
double c_dx; // adjusted map pixel width
long scr_x, scr_y; // screen pixel plot positions
long scr_xp, scr_yp; // previous screen plot positions
int scr_dx, scr_dy; // increments in screen plot positions
long scr_x_mc; // map center in screen units
long scr_c_xr;
long scale_xa; // adjusted for topo maps
double scale_x_nm; // nm per Xastir coordinate unit
long scale_x0; // at widest map area
char local_filename[MAX_FILENAME];
ExceptionInfo exception;
Image *image;
ImageInfo *image_info;
PixelPacket *pixel_pack;
PixelPacket temp_pack;
IndexPacket *index_pack;
int l;
XColor my_colors[256];
double left, right, top, bottom, map_width, map_height;
double lat_center = 0;
double long_center = 0;
char map_it[MAX_FILENAME];
char tmpstr[100];
int geo_image_width; // Image width from GEO file
int geo_image_height; // Image height from GEO file
// initialize this
local_filename[0]='\0';
// Create a shorter filename for display (one that fits the
// status line more closely). Subtract the length of the
// "Indexing " and/or "Loading " strings as well.
if (strlen(filenm) > (41 - 9)) {
int avail = 41 - 11;
int new_len = strlen(filenm) - avail;
xastir_snprintf(short_filenm,
sizeof(short_filenm),
"..%s",
&filenm[new_len]);
}
else {
xastir_snprintf(short_filenm,
sizeof(short_filenm),
"%s",
filenm);
}
xastir_snprintf(map_it,
sizeof(map_it),
langcode ("BBARSTA028"),
short_filenm);
statusline(map_it,0); // Loading ...
// Check whether we're indexing or drawing the map
if ( (destination_pixmap == INDEX_CHECK_TIMESTAMPS)
|| (destination_pixmap == INDEX_NO_TIMESTAMPS) ) {
// We're indexing only. Save the extents in the index.
// Force the extents to the edges of the earth for the
// index file.
index_update_xastir(filenm, // Filename only
64800000l, // Bottom
0l, // Top
0l, // Left
129600000l, // Right
0); // Default Map Level
// Update statusline
xastir_snprintf(map_it,
sizeof(map_it),
langcode ("BBARSTA039"),
short_filenm);
statusline(map_it,0); // Loading/Indexing ...
return; // Done indexing this file
}
// Tiepoint for upper left screen corner
//
tp[0].img_x = 0; // Pixel Coordinates
tp[0].img_y = 0; // Pixel Coordinates
tp[0].x_long = NW_corner_longitude; // Xastir Coordinates
tp[0].y_lat = NW_corner_latitude; // Xastir Coordinates
// Tiepoint for lower right screen corner
//
tp[1].img_x = screen_width - 1; // Pixel Coordinates
tp[1].img_y = screen_height - 1; // Pixel Coordinates
tp[1].x_long = SE_corner_longitude; // Xastir Coordinates
tp[1].y_lat = SE_corner_latitude; // Xastir Coordinates
left = (double)((NW_corner_longitude - 64800000l )/360000.0); // Lat/long Coordinates
top = (double)(-((NW_corner_latitude - 32400000l )/360000.0)); // Lat/long Coordinates
right = (double)((SE_corner_longitude - 64800000l)/360000.0);//Lat/long Coordinates
bottom = (double)(-((SE_corner_latitude - 32400000l)/360000.0));//Lat/long Coordinates
map_width = right - left; // Lat/long Coordinates
map_height = top - bottom; // Lat/long Coordinates
geo_image_width = screen_width;
geo_image_height = screen_height;
long_center = (left + right)/2.0l;
lat_center = (top + bottom)/2.0l;
// Example query to the census map server....
/* xastir_snprintf(fileimg, sizeof(fileimg),
"\'http://tiger.census.gov/cgi-bin/mapper/map.gif?on=CITIES&on=GRID&on=counties&on=majroads&on=places&&on=interstate&on=states&on=ushwy&on=statehwy&lat=%f\046lon=%f\046wid=%f\046ht=%f\046iwd=%i\046iht=%i\'",\
lat_center, long_center, map_width, map_height, tp[1].img_x + 1, tp[1].img_y + 1); */
xastir_snprintf(tigertmp, sizeof(tigertmp), "http://tiger.census.gov/cgi-bin/mapper/map.gif?");
if (tiger_show_grid)
strncat(tigertmp, "&on=GRID", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=GRID", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_counties)
strncat(tigertmp, "&on=counties", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=counties", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_cities)
strncat(tigertmp, "&on=CITIES", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=CITIES", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_places)
strncat(tigertmp, "&on=places", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=places", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_majroads)
strncat(tigertmp, "&on=majroads", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=majroads", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_streets)
strncat(tigertmp, "&on=streets", sizeof(tigertmp) - 1 - strlen(tigertmp));
// Don't turn streets off since this will automagically show up as you zoom in.
if (tiger_show_railroad)
strncat(tigertmp, "&on=railroad", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=railroad", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_states)
strncat(tigertmp, "&on=states", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=states", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_interstate)
strncat(tigertmp, "&on=interstate", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=interstate", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_ushwy)
strncat(tigertmp, "&on=ushwy", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=ushwy", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_statehwy)
strncat(tigertmp, "&on=statehwy", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=statehwy", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_water)
strncat(tigertmp, "&on=water", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=water", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_lakes)
strncat(tigertmp, "&on=shorelin", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=shorelin", sizeof(tigertmp) - 1 - strlen(tigertmp));
if (tiger_show_misc)
strncat(tigertmp, "&on=miscell", sizeof(tigertmp) - 1 - strlen(tigertmp));
else
strncat(tigertmp, "&off=miscell", sizeof(tigertmp) - 1 - strlen(tigertmp));
xastir_snprintf(tmpstr, sizeof(tmpstr), "&lat=%f\046lon=%f\046", lat_center, long_center);
strncat (tigertmp, tmpstr, sizeof(tigertmp) - 1 - strlen(tigertmp));
xastir_snprintf(tmpstr, sizeof(tmpstr), "wid=%f\046ht=%f\046", map_width, map_height);
strncat (tigertmp, tmpstr, sizeof(tigertmp) - 1 - strlen(tigertmp));
xastir_snprintf(tmpstr, sizeof(tmpstr), "iwd=%i\046iht=%i", tp[1].img_x + 1, tp[1].img_y + 1);
strncat (tigertmp, tmpstr, sizeof(tigertmp) - 1 - strlen(tigertmp));
xastir_snprintf(fileimg, sizeof(fileimg), "%s", tigertmp);
if (debug_level & 512) {
fprintf(stderr,"left side is %f\n", left);
fprintf(stderr,"right side is %f\n", right);
fprintf(stderr,"top is %f\n", top);
fprintf(stderr,"bottom is %f\n", bottom);
fprintf(stderr,"lat center is %f\n", lat_center);
fprintf(stderr,"long center is %f\n", long_center);
fprintf(stderr,"screen width is %li\n", screen_width);
fprintf(stderr,"screen height is %li\n", screen_height);
fprintf(stderr,"map width is %f\n", map_width);
fprintf(stderr,"map height is %f\n", map_height);
fprintf(stderr,"fileimg is %s\n", fileimg);
fprintf(stderr,"ftp or http file: %s\n", fileimg);
}
// Hopefully this will eventually allow us to get maps in the background
// while (sometimeout !=0 && local_filename[0]==NULL){
if (local_filename[0]=='\0' ){
if (debug_level & 512 ) {
fprintf(stderr,"tiger_local_file=<%s>\n",local_filename);
}
HandlePendingEvents(app_context);
if (interrupt_drawing_now) {
// Update to screen
(void)XCopyArea(XtDisplay(da),
pixmap,
XtWindow(da),
gc,
0,
0,
(unsigned int)screen_width,
(unsigned int)screen_height,
0,
0);
return;
}
get_tiger_local_file(local_filename,fileimg);
}
// whackadoodle
// Tell ImageMagick where to find it
xastir_snprintf(file,
sizeof(file),
"%s",
local_filename);
GetExceptionInfo(&exception);
image_info=CloneImageInfo((ImageInfo *) NULL);
xastir_snprintf(image_info->filename,
sizeof(image_info->filename),
"%s",
file);
if (debug_level & 512) {
fprintf(stderr,"Copied %s into image info.\n", file);
fprintf(stderr,"image_info got: %s\n", image_info->filename);
fprintf(stderr,"Entered ImageMagick code.\n");
fprintf(stderr,"Attempting to open: %s\n", image_info->filename);
}
// We do a test read first to see if the file exists, so we
// don't kill Xastir in the ReadImage routine.
f = fopen (image_info->filename, "r");
if (f == NULL) {
if (debug_level & 512)
fprintf(stderr,"File could not be read\n");
#ifdef USE_MAP_CACHE
// clear from cache if bad
if (map_cache_del(fileimg)) {
if (debug_level & 512) {
fprintf(stderr,"Couldn't delete unreadable map from cache\n");
}
}
#endif
if (image_info)
DestroyImageInfo(image_info);
DestroyExceptionInfo(&exception);
return;
}
(void)fclose (f);
image = ReadImage(image_info, &exception);
if (image == (Image *) NULL) {
MagickWarning(exception.severity, exception.reason, exception.description);
//fprintf(stderr,"MagickWarning\n");
#ifdef USE_MAP_CACHE
// clear from cache if bad
if (map_cache_del(fileimg)) {
if (debug_level & 512) {
fprintf(stderr,"Couldn't delete map from cache\n");
}
}
#endif
if (image_info)
DestroyImageInfo(image_info);
DestroyExceptionInfo(&exception);
return;
}
if (debug_level & 512)
fprintf(stderr,"Color depth is %i \n", (int)image->depth);
if (image->colorspace != RGBColorspace) {
fprintf(stderr,"TBD: I don't think we can deal with colorspace != RGB");
if (image)
DestroyImage(image);
if (image_info)
DestroyImageInfo(image_info);
DestroyExceptionInfo(&exception);
return;
}
width = image->columns;
height = image->rows;
// Code to mute the image so it's not as bright.
/* if (raster_map_intensity < 1.0) {
char tempstr[30];
if (debug_level & 512)
fprintf(stderr,"level=%s\n", tempstr);
xastir_snprintf(tempstr,
sizeof(tempstr),
"%d, 100, 100",
(int)(raster_map_intensity * 100.0));
ModulateImage(image, tempstr);
}
*/
// If were are drawing to a low bpp display (typically < 8bpp)
// try to reduce the number of colors in an image.
// This may take some time, so it would be best to do ahead of
// time if it is a static image.
#if (MagickLibVersion < 0x0540)
if (visual_type == NOT_TRUE_NOR_DIRECT && GetNumberColors(image, NULL) > 128) {
#else // MagickLib >= 540
if (visual_type == NOT_TRUE_NOR_DIRECT && GetNumberColors(image, NULL, &exception) > 128) {
#endif // MagickLib Version
if (image->storage_class == PseudoClass) {
#if (MagickLibVersion < 0x0549)
CompressColormap(image); // Remove duplicate colors
#else // MagickLib >= 0x0549
CompressImageColormap(image); // Remove duplicate colors
#endif // MagickLibVersion < 0x0549
}
// Quantize down to 128 will go here...
}
pixel_pack = GetImagePixels(image, 0, 0, image->columns, image->rows);
if (!pixel_pack) {
fprintf(stderr,"pixel_pack == NULL!!!");
if (image)
DestroyImage(image);
if (image_info)
DestroyImageInfo(image_info);
DestroyExceptionInfo(&exception);
return;
}
index_pack = GetIndexes(image);
if (image->storage_class == PseudoClass && !index_pack) {
fprintf(stderr,"PseudoClass && index_pack == NULL!!!");
if (image)
DestroyImage(image);
if (image_info)
DestroyImageInfo(image_info);
DestroyExceptionInfo(&exception);
return;
}
if (image->storage_class == PseudoClass && image->colors <= 256) {
for (l = 0; l < (int)image->colors; l++) {
// Need to check how to do this for ANY image, as ImageMagick can read in all sorts
// of image files
temp_pack = image->colormap[l];
if (debug_level & 512)
fprintf(stderr,"Colormap color is %i %i %i \n",
temp_pack.red, temp_pack.green, temp_pack.blue);
// Here's a tricky bit: PixelPacket entries are defined as Quantum's. Quantum
// is defined in /usr/include/magick/image.h as either an unsigned short or an
// unsigned char, depending on what "configure" decided when ImageMagick was installed.
// We can determine which by looking at MaxRGB or QuantumDepth.
//
if (QuantumDepth == 16) { // Defined in /usr/include/magick/image.h
if (debug_level & 512)
fprintf(stderr,"Color quantum is [0..65535]\n");
my_colors[l].red = temp_pack.red * raster_map_intensity;
my_colors[l].green = temp_pack.green * raster_map_intensity;
my_colors[l].blue = temp_pack.blue * raster_map_intensity;
}
else { // QuantumDepth = 8
if (debug_level & 512)
fprintf(stderr,"Color quantum is [0..255]\n");
my_colors[l].red = (temp_pack.red << 8) * raster_map_intensity;
my_colors[l].green = (temp_pack.green << 8) * raster_map_intensity;
my_colors[l].blue = (temp_pack.blue << 8) * raster_map_intensity;
}
// Get the color allocated on < 8bpp displays. pixel color is written to my_colors.pixel
if (visual_type == NOT_TRUE_NOR_DIRECT) {
// XFreeColors(XtDisplay(w), cmap, &(my_colors[l].pixel),1,0);
XAllocColor(XtDisplay(w), cmap, &my_colors[l]);
}
else {
pack_pixel_bits(my_colors[l].red, my_colors[l].green, my_colors[l].blue,
&my_colors[l].pixel);
}
if (debug_level & 512)
fprintf(stderr,"Color allocated is %li %i %i %i \n", my_colors[l].pixel,
my_colors[l].red, my_colors[l].blue, my_colors[l].green);
}
}
/*
* Here are the corners of our viewport, using the Xastir
* coordinate system. Notice that Y is upside down:
*
* left edge of view = NW_corner_longitude
* right edge of view = SE_corner_longitude
* top edge of view = NW_corner_latitude
* bottom edge of view = SE_corner_latitude
*
* The corners of our map will soon be (after translating the
* tiepoints to the corners if they're not already there):
*
* left edge of map = tp[0].x_long in Xastir format
* right edge of map = tp[1].x_long
* top edge of map = tp[0].y_lat
* bottom edge of map = tp[1].y_lat
*
*/
map_c_L = tp[0].x_long - NW_corner_longitude; // map left coordinate
map_c_T = tp[0].y_lat - NW_corner_latitude; // map top coordinate
tp_c_dx = (long)(tp[1].x_long - tp[0].x_long);// Width between tiepoints
tp_c_dy = (long)(tp[1].y_lat - tp[0].y_lat); // Height between tiepoints
// Check for tiepoints being in wrong relation to one another
if (tp_c_dx < 0)
tp_c_dx = -tp_c_dx; // New width between tiepoints
if (tp_c_dy < 0)
tp_c_dy = -tp_c_dy; // New height between tiepoints
// Calculate step size per pixel
map_c_dx = ((double) tp_c_dx / abs(tp[1].img_x - tp[0].img_x));
map_c_dy = ((double) tp_c_dy / abs(tp[1].img_y - tp[0].img_y));
// Scaled screen step size for use with XFillRectangle below
scr_dx = (int) (map_c_dx / scale_x) + 1;
scr_dy = (int) (map_c_dy / scale_y) + 1;
// calculate top left map corner from tiepoints
if (tp[0].img_x != 0) {
tp[0].x_long -= (tp[0].img_x * map_c_dx); // map left edge longitude
map_c_L = tp[0].x_long - NW_corner_longitude; // delta ??
tp[0].img_x = 0;
if (debug_level & 512)
fprintf(stderr,"Translated tiepoint_0 x: %d\t%lu\n", tp[0].img_x, tp[0].x_long);
}
if (tp[0].img_y != 0) {
tp[0].y_lat -= (tp[0].img_y * map_c_dy); // map top edge latitude
map_c_T = tp[0].y_lat - NW_corner_latitude;
tp[0].img_y = 0;
if (debug_level & 512)
fprintf(stderr,"Translated tiepoint_0 y: %d\t%lu\n", tp[0].img_y, tp[0].y_lat);
}
// calculate bottom right map corner from tiepoints
// map size is geo_image_width / geo_image_height
if (tp[1].img_x != (geo_image_width - 1) ) {
tp[1].img_x = geo_image_width - 1;
tp[1].x_long = tp[0].x_long + (tp[1].img_x * map_c_dx); // right
if (debug_level & 512)
fprintf(stderr,"Translated tiepoint_1 x: %d\t%lu\n", tp[1].img_x, tp[1].x_long);
}
if (tp[1].img_y != (geo_image_height - 1) ) {
tp[1].img_y = geo_image_height - 1;
tp[1].y_lat = tp[0].y_lat + (tp[1].img_y * map_c_dy); // bottom
if (debug_level & 512)
fprintf(stderr,"Translated tiepoint_1 y: %d\t%lu\n", tp[1].img_y, tp[1].y_lat);
}
if (debug_level & 512) {
fprintf(stderr,"X tiepoint width: %ld\n", tp_c_dx);
fprintf(stderr,"Y tiepoint width: %ld\n", tp_c_dy);
fprintf(stderr,"Loading imagemap: %s\n", file);
fprintf(stderr,"\nImage: %s\n", file);
fprintf(stderr,"Image size %d %d\n", geo_image_width, geo_image_height);
fprintf(stderr,"XX: %ld YY:%ld Sx %f %d Sy %f %d\n",
map_c_L, map_c_T, map_c_dx,(int) (map_c_dx / scale_x), map_c_dy, (int) (map_c_dy / scale_y));
fprintf(stderr,"Image size %d %d\n", width, height);
#if (MagickLibVersion < 0x0540)
fprintf(stderr,"Unique colors = %d\n", GetNumberColors(image, NULL));
#else // MagickLib < 540
fprintf(stderr,"Unique colors = %ld\n", GetNumberColors(image, NULL, &exception));
#endif // MagickLib < 540
fprintf(stderr,"XX: %ld YY:%ld Sx %f %d Sy %f %d\n", map_c_L, map_c_T,
map_c_dx,(int) (map_c_dx / scale_x), map_c_dy, (int) (map_c_dy / scale_y));
fprintf(stderr,"image matte is %i\n", image->matte);
} // debug_level & 512
// draw the image from the file out to the map screen
// Get the border values for the X and Y for loops used
// for the XFillRectangle call later.
map_c_yc = (tp[0].y_lat + tp[1].y_lat) / 2; // vert center of map as reference
map_y_ctr = (long)(height / 2 +0.499);
scale_x0 = get_x_scale(0,map_c_yc,scale_y); // reference scaling at vert map center
map_c_xc = (tp[0].x_long + tp[1].x_long) / 2; // hor center of map as reference
map_x_ctr = (long)(width / 2 +0.499);
scr_x_mc = (map_c_xc - NW_corner_longitude) / scale_x; // screen coordinates of map center
// calculate map pixel range in y direction that falls into screen area
c_y_max = 0ul;
map_y_min = map_y_max = 0l;
for (map_y_0 = 0, c_y = tp[0].y_lat; map_y_0 < (long)height; map_y_0++, c_y += map_c_dy) {
scr_y = (c_y - NW_corner_latitude) / scale_y; // current screen position
if (scr_y > 0) {
if (scr_y < screen_height) {
map_y_max = map_y_0; // update last map pixel in y
c_y_max = (unsigned long)c_y;// bottom map inside screen coordinate
} else
break; // done, reached bottom screen border
} else { // pixel is above screen
map_y_min = map_y_0; // update first map pixel in y
}
}
c_y_min = (unsigned long)(tp[0].y_lat + map_y_min * map_c_dy); // top map inside screen coordinate
map_x_min = map_x_max = 0l;
for (map_x = 0, c_x = tp[0].x_long; map_x < (long)width; map_x++, c_x += map_c_dx) {
scr_x = (c_x - NW_corner_longitude)/ scale_x; // current screen position
if (scr_x > 0) {
if (scr_x < screen_width)
map_x_max = map_x; // update last map pixel in x
else
break; // done, reached right screen border
} else { // pixel is left from screen
map_x_min = map_x; // update first map pixel in x
}
}
c_x_min = (unsigned long)(tp[0].x_long + map_x_min * map_c_dx); // left map inside screen coordinate
scr_yp = -1;
scr_c_xr = SE_corner_longitude;
c_dx = map_c_dx; // map pixel width
scale_xa = scale_x0; // the compiler likes it ;-)
map_done = 0;
map_act = 0;
map_seen = 0;
scr_y = screen_height - 1;
// loop over map pixel rows
for (map_y_0 = map_y_min, c_y = (double)c_y_min; (map_y_0 <= map_y_max); map_y_0++, c_y += map_c_dy) {
HandlePendingEvents(app_context);
if (interrupt_drawing_now) {
if (image)
DestroyImage(image);
if (image_info)
DestroyImageInfo(image_info);
// Update to screen
(void)XCopyArea(XtDisplay(da),
pixmap,
XtWindow(da),
gc,
0,
0,
(unsigned int)screen_width,
(unsigned int)screen_height,
0,
0);
DestroyExceptionInfo(&exception);
return;
}
scr_y = (c_y - NW_corner_latitude) / scale_y;
if (scr_y != scr_yp) { // don't do a row twice
scr_yp = scr_y; // remember as previous y
scr_xp = -1;
// loop over map pixel columns
map_act = 0;
scale_x_nm = calc_dscale_x(0,(long)c_y) / 1852.0; // nm per Xastir coordinate
for (map_x = map_x_min, c_x = (double)c_x_min; map_x <= map_x_max; map_x++, c_x += c_dx) {
scr_x = (c_x - NW_corner_longitude) / scale_x;
if (scr_x != scr_xp) { // don't do a pixel twice
scr_xp = scr_x; // remember as previous x
map_y = map_y_0;
if (map_y >= 0 && map_y <= tp[1].img_y) { // check map boundaries in y direction
map_seen = 1;
map_act = 1; // detects blank screen rows (end of map)
// now copy a pixel from the map image to the screen
l = map_x + map_y * image->columns;
if (image->storage_class == PseudoClass) {
XSetForeground(XtDisplay(w), gc, my_colors[index_pack[l]].pixel);
}
else {
// It is not safe to assume that the red/green/blue
// elements of pixel_pack of type Quantum are the
// same as the red/green/blue of an XColor!
if (QuantumDepth==16) {
my_colors[0].red=pixel_pack[l].red;
my_colors[0].green=pixel_pack[l].green;
my_colors[0].blue=pixel_pack[l].blue;
}
else { // QuantumDepth=8
// shift the bits of the 8-bit quantity so that
// they become the high bigs of my_colors.*
my_colors[0].red=pixel_pack[l].red<<8;
my_colors[0].green=pixel_pack[l].green<<8;
my_colors[0].blue=pixel_pack[l].blue<<8;
}
// NOW my_colors has the right r,g,b range for
// pack_pixel_bits
pack_pixel_bits(my_colors[0].red * raster_map_intensity,
my_colors[0].green * raster_map_intensity,
my_colors[0].blue * raster_map_intensity,
&my_colors[0].pixel);
XSetForeground(XtDisplay(w), gc, my_colors[0].pixel);
}
(void)XFillRectangle (XtDisplay (w),pixmap,gc,scr_x,scr_y,scr_dx,scr_dy);
} // check map boundaries in y direction
}
} // loop over map pixel columns
if (map_seen && !map_act)
map_done = 1;
}
} // loop over map pixel rows
if (image)
DestroyImage(image);
if (image_info)
DestroyImageInfo(image_info);
DestroyExceptionInfo(&exception);
}
MagickExport MagickPixelPacket IInterpolateColor(const Image *image,
const double x_offset,const double y_offset,ExceptionInfo *exception)
{
MagickPixelPacket
pixel,
pixels[4];
MagickRealType
alpha[4],
gamma;
PointInfo
delta;
register const PixelPacket
*p;
register IndexPacket
*indexes;
register long
i;
assert(image != (Image *) NULL);
assert(image->signature == MagickSignature);
GetMagickPixelPacket(image,&pixel);
p=AcquireImagePixels(image,(long) x_offset,(long) y_offset,2,2,exception);
if (p == (const PixelPacket *) NULL)
return(pixel);
indexes=GetIndexes(image);
for (i=0; i < 4L; i++)
{
alpha[i]=1.0;
if (image->matte != MagickFalse)
alpha[i]=((MagickRealType) QuantumRange-p->opacity)/QuantumRange;
GetMagickPixelPacket(image,pixels+i);
SetMagickPixelPacket(p,indexes+i,pixels+i);
pixels[i].red*=alpha[i];
pixels[i].green*=alpha[i];
pixels[i].blue*=alpha[i];
if (image->colorspace == CMYKColorspace)
pixels[i].index*=alpha[i];
p++;
}
delta.x=x_offset-(long) x_offset;
delta.y=y_offset-(long) y_offset;
gamma=(alpha[0]+(alpha[2]-alpha[0])*delta.y+(alpha[1]-alpha[0])*delta.x+
(alpha[0]+alpha[3]-alpha[2]-alpha[1])*delta.x*delta.y);
gamma=1.0/(fabs((double) gamma) <= MagickEpsilon ? 1.0 : gamma);
pixel.red=gamma*(pixels[0].red+(pixels[2].red-pixels[0].red)*delta.y+
(pixels[1].red-pixels[0].red)*delta.x+(pixels[0].red+pixels[3].red-
pixels[2].red-pixels[1].red)*delta.x*delta.y);
pixel.green=gamma*(pixels[0].green+(pixels[2].green-pixels[0].green)*
delta.y+(pixels[1].green-pixels[0].green)*delta.x+(pixels[0].green+
pixels[3].green-pixels[2].green-pixels[1].green)*delta.x*delta.y);
pixel.blue=gamma*(pixels[0].blue+(pixels[2].blue-pixels[0].blue)*delta.y+
(pixels[1].blue-pixels[0].blue)*delta.x+(pixels[0].blue+pixels[3].blue-
pixels[2].blue-pixels[1].blue)*delta.x*delta.y);
if (image->matte != MagickFalse)
pixel.opacity=(pixels[0].opacity+(pixels[2].opacity-pixels[0].opacity)*
delta.y+(pixels[1].opacity-pixels[0].opacity)*delta.x+(pixels[0].opacity+
pixels[3].opacity-pixels[2].opacity-pixels[1].opacity)*delta.x*delta.y);
if (image->colorspace == CMYKColorspace)
pixel.index=gamma*(pixels[0].index+(pixels[2].index-pixels[0].index)*
delta.y+(pixels[1].index-pixels[0].index)*delta.x+(pixels[0].index+
pixels[3].index-pixels[2].index-pixels[1].index)*delta.x*delta.y);
return(pixel);
}
static Image *ReadXPMImage(const ImageInfo *image_info,ExceptionInfo *exception)
{
char
key[MaxTextExtent],
target[MaxTextExtent],
*xpm_buffer;
Image
*image;
long
j,
y;
MagickBooleanType
active,
status;
register char
*p,
*q,
*next;
register IndexPacket
*indexes;
register long
i,
x;
register PixelPacket
*r;
size_t
length;
SplayTreeInfo
*xpm_colors;
ssize_t
count;
unsigned long
width;
/*
Open image file.
*/
assert(image_info != (const ImageInfo *) NULL);
assert(image_info->signature == MagickSignature);
if (image_info->debug != MagickFalse)
(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
image_info->filename);
assert(exception != (ExceptionInfo *) NULL);
assert(exception->signature == MagickSignature);
image=AllocateImage(image_info);
status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
if (status == MagickFalse)
{
image=DestroyImageList(image);
return((Image *) NULL);
}
/*
Read XPM file.
*/
length=MaxTextExtent;
xpm_buffer=(char *) AcquireQuantumMemory((size_t) length,sizeof(*xpm_buffer));
p=xpm_buffer;
if (xpm_buffer != (char *) NULL)
while (ReadBlobString(image,p) != (char *) NULL)
{
if ((*p == '#') && ((p == xpm_buffer) || (*(p-1) == '\n')))
continue;
if ((*p == '}') && (*(p+1) == ';'))
break;
p+=strlen(p);
if ((size_t) (p-xpm_buffer+MaxTextExtent) < length)
continue;
length<<=1;
xpm_buffer=(char *) ResizeQuantumMemory(xpm_buffer,length+MaxTextExtent,
sizeof(*xpm_buffer));
if (xpm_buffer == (char *) NULL)
break;
p=xpm_buffer+strlen(xpm_buffer);
}
if (xpm_buffer == (char *) NULL)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
/*
Remove comments.
*/
count=0;
for (p=xpm_buffer; *p != '\0'; p++)
{
if (*p != '"')
continue;
count=(ssize_t) sscanf(p+1,"%lu %lu %lu %lu",&image->columns,&image->rows,
&image->colors,&width);
if (count == 4)
break;
}
if ((count != 4) || (width > 10) || (image->columns == 0) ||
(image->rows == 0) || (image->colors == 0))
ThrowReaderException(CorruptImageError,"ImproperImageHeader");
image->depth=16;
/*
Remove unquoted characters.
*/
i=0;
active=MagickFalse;
q=xpm_buffer;
while (*p != '\0')
{
if (*p++ == '"')
{
if (active != MagickFalse)
*q++='\n';
active=active != MagickFalse ? MagickFalse : MagickTrue;
}
if (active != MagickFalse)
*q++=(*p);
}
*q='\0';
/*
Initialize image structure.
*/
xpm_colors=NewSplayTree(CompareXPMColor,RelinquishMagickMemory,
(void *(*)(void *)) NULL);
if (AllocateImageColormap(image,image->colors) == MagickFalse)
ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
/*
Read image colormap.
*/
i=1;
next=NextXPMLine(xpm_buffer);
for (j=0; (j < (long) image->colors) && (next != (char*) NULL); j++)
{
p=next;
next=NextXPMLine(p);
(void) CopyXPMColor(key,p,MagickMin((size_t) width,MaxTextExtent));
status=AddValueToSplayTree(xpm_colors,ConstantString(key),(void *) j);
/*
Parse color.
*/
(void) CopyMagickString(target,"gray",MaxTextExtent);
q=ParseXPMColor(p+width);
if (q != (char *) NULL)
{
while ((isspace((int) ((unsigned char) *q)) == 0) && (*q != '\0'))
q++;
if (next != (char *) NULL)
(void) CopyXPMColor(target,q,MagickMin((size_t) (next-q),
MaxTextExtent));
else
(void) CopyMagickString(target,q,MaxTextExtent);
q=ParseXPMColor(target);
if (q != (char *) NULL)
*q='\0';
}
StripString(target);
if (LocaleCompare(target,"none") == 0)
{
image->storage_class=DirectClass;
image->matte=MagickTrue;
}
if (QueryColorDatabase(target,&image->colormap[j],exception) == MagickFalse)
break;
}
if (j < (long) image->colors)
ThrowReaderException(CorruptImageError,"CorruptImage");
j=0;
if (image_info->ping == MagickFalse)
{
/*
Read image pixels.
*/
if (SetImageExtent(image,0,0) == MagickFalse)
{
InheritException(exception,&image->exception);
return(DestroyImageList(image));
}
for (y=0; y < (long) image->rows; y++)
{
p=NextXPMLine(p);
if (p == (char *) NULL)
break;
r=SetImagePixels(image,0,y,image->columns,1);
if (r == (PixelPacket *) NULL)
break;
indexes=GetIndexes(image);
for (x=0; x < (long) image->columns; x++)
{
(void) CopyXPMColor(key,p,(size_t) width);
j=(long) GetValueFromSplayTree(xpm_colors,key);
if (image->storage_class == PseudoClass)
indexes[x]=(IndexPacket) j;
*r=image->colormap[j];
r++;
p+=width;
}
if (SyncImagePixels(image) == MagickFalse)
break;
}
if (y < (long) image->rows)
ThrowReaderException(CorruptImageError,"NotEnoughPixelData");
}
/*
Relinquish resources.
*/
xpm_colors=DestroySplayTree(xpm_colors);
(void) CloseBlob(image);
return(GetFirstImageInList(image));
}
