void Window_update_sys_handle( Handle self, HV * profile)
{
dPROFILE;
var-> widgetClass = wcWindow;
if (!(
pexist( owner) ||
pexist( syncPaint) ||
pexist( taskListed) ||
pexist( borderIcons) ||
pexist( onTop) ||
pexist( borderStyle)
)) return;
if ( pexist( owner)) my-> cancel_children( self);
if ( !apc_window_create( self,
pexist( owner ) ? pget_H( owner ) : var-> owner ,
pexist( syncPaint) ? pget_B( syncPaint) : my-> get_syncPaint( self),
pexist( borderIcons) ? pget_i( borderIcons) : my-> get_borderIcons( self),
pexist( borderStyle) ? pget_i( borderStyle) : my-> get_borderStyle( self),
pexist( taskListed) ? pget_B( taskListed) : my-> get_taskListed( self),
pexist( windowState) ? pget_i( windowState) : my-> get_windowState( self),
pexist( onTop) ? pget_B( onTop) : -1, /* This is way better. I should've thought of this before! */
!( pexist( originDontCare) && pget_B( originDontCare)),
!( pexist( sizeDontCare) && pget_B( sizeDontCare))
))
croak("Cannot create window");
pdelete( borderStyle);
pdelete( borderIcons);
pdelete( syncPaint);
pdelete( taskListed);
pdelete( windowState);
pdelete( onTop);
}
void
Drawable_set( Handle self, HV * profile)
{
dPROFILE;
if ( pexist( font))
{
SvHV_Font( pget_sv( font), &Font_buffer, "Drawable::set");
my-> set_font( self, Font_buffer);
pdelete( font);
}
if ( pexist( translate))
{
AV * av = ( AV *) SvRV( pget_sv( translate));
Point tr = {0,0};
SV ** holder = av_fetch( av, 0, 0);
if ( holder) tr.x = SvIV( *holder); else warn("RTC0059: Array panic on 'translate'");
holder = av_fetch( av, 1, 0);
if ( holder) tr.y = SvIV( *holder); else warn("RTC0059: Array panic on 'translate'");
my-> set_translate( self, tr);
pdelete( translate);
}
if ( pexist( width) && pexist( height)) {
Point size;
size. x = pget_i( width);
size. y = pget_i( height);
my-> set_size( self, size);
pdelete( width);
pdelete( height);
}
inherited set( self, profile);
}
void
Window_init( Handle self, HV * profile)
{
dPROFILE;
SV * sv;
inherited init( self, profile);
opt_set( optSystemSelectable);
opt_assign( optOwnerIcon, pget_B( ownerIcon));
opt_assign( optMainWindow, pget_B( mainWindow));
my-> set_icon( self, pget_H( icon));
my-> menuColorIndex( self, true, ciFore, pget_i( menuColor) );
my-> menuColorIndex( self, true, ciBack, pget_i( menuBackColor) );
my-> menuColorIndex( self, true, ciHiliteText, pget_i( menuHiliteColor) );
my-> menuColorIndex( self, true, ciHilite, pget_i( menuHiliteBackColor) );
my-> menuColorIndex( self, true, ciDisabledText, pget_i( menuDisabledColor) );
my-> menuColorIndex( self, true, ciDisabled, pget_i( menuDisabledBackColor));
my-> menuColorIndex( self, true, ciLight3DColor, pget_i( menuLight3DColor) );
my-> menuColorIndex( self, true, ciDark3DColor, pget_i( menuDark3DColor) );
SvHV_Font( pget_sv( menuFont), &Font_buffer, "Window::init");
my-> set_menu_font ( self, Font_buffer);
if ( SvTYPE( sv = pget_sv( menuItems)) != SVt_NULL)
my-> set_menuItems( self, sv);
my-> set_modalResult( self, pget_i( modalResult));
my-> set_modalHorizon( self, pget_B( modalHorizon));
CORE_INIT_TRANSIENT(Window);
}
void
DeviceBitmap_init( Handle self, HV * profile)
{
dPROFILE;
inherited init( self, profile);
var-> w = pget_i( width);
var-> h = pget_i( height);
var-> monochrome = pget_B( monochrome);
if ( !apc_dbm_create( self, var-> monochrome))
croak("RTC0110: Cannot create device bitmap");
inherited begin_paint( self);
opt_set( optInDraw);
CORE_INIT_TRANSIENT(DeviceBitmap);
}
void
Timer_update_sys_handle( Handle self, HV * profile)
{
dPROFILE;
Handle xOwner = pexist( owner) ? pget_H( owner) : var-> owner;
if (!( pexist( owner))) return;
if ( !apc_timer_create( self, xOwner, pexist( timeout)
? pget_i( timeout)
: my-> get_timeout( self)))
croak("cannot create timer");
if ( pexist( timeout)) pdelete( timeout);
}
void
Drawable_init( Handle self, HV * profile)
{
dPROFILE;
inherited init( self, profile);
apc_gp_init( self);
var-> w = var-> h = 0;
my-> set_color ( self, pget_i ( color));
my-> set_backColor ( self, pget_i ( backColor));
my-> set_fillWinding ( self, pget_B ( fillWinding));
my-> set_fillPattern ( self, pget_sv( fillPattern));
my-> set_lineEnd ( self, pget_i ( lineEnd));
my-> set_lineJoin ( self, pget_i ( lineJoin));
my-> set_linePattern ( self, pget_sv( linePattern));
my-> set_lineWidth ( self, pget_i ( lineWidth));
my-> set_region ( self, pget_H ( region));
my-> set_rop ( self, pget_i ( rop));
my-> set_rop2 ( self, pget_i ( rop2));
my-> set_textOpaque ( self, pget_B ( textOpaque));
my-> set_textOutBaseline( self, pget_B ( textOutBaseline));
my-> set_splinePrecision( self, pget_i ( splinePrecision));
if ( pexist( translate))
{
AV * av = ( AV *) SvRV( pget_sv( translate));
Point tr = {0,0};
SV ** holder = av_fetch( av, 0, 0);
if ( holder) tr.x = SvIV( *holder); else warn("RTC0059: Array panic on 'translate'");
holder = av_fetch( av, 1, 0);
if ( holder) tr.y = SvIV( *holder); else warn("RTC0059: Array panic on 'translate'");
my-> set_translate( self, tr);
}
SvHV_Font( pget_sv( font), &Font_buffer, "Drawable::init");
my-> set_font( self, Font_buffer);
my-> set_palette( self, pget_sv( palette));
CORE_INIT_TRANSIENT(Drawable);
}
PImage
IPA__Global_band_filter(PImage img,HV *profile)
{
#define METHOD "IPA::Global::band_filter"
dPROFILE;
PImage ret;
int spatial = 1, homomorph = 0, lw, failed = 0, LowPass = 0;
double MinVal = 0.0, Power = 2.0, CutOff = 20.0, Boost = 0.7;
double * data, * buffer = nil;
if ( sizeof(double) % 2) {
warn("%s:'double' is even-sized on this platform", METHOD);
return nil;
}
if ( !img || !kind_of(( Handle) img, CImage))
croak("%s: not an image passed", METHOD);
if ( pexist( spatial)) spatial = pget_i( spatial);
if ( pexist( homomorph)) homomorph = pget_i( homomorph);
if ( pexist( power)) Power = pget_f( power);
if ( pexist( cutoff)) CutOff = pget_f( cutoff);
if ( pexist( boost)) Boost = pget_f( boost);
if ( pexist( low)) LowPass = pget_i( low);
if ( homomorph && !spatial)
croak("%s:Cannot perform the homomorph equalization in the spatial domain", METHOD);
if ( LowPass && ( CutOff < 0.0000001))
croak("%s:cutoff is too small for low pass", METHOD);
if ( !spatial && (( img-> type & imCategory) != imComplexNumber))
croak("%s: not an im::DComplex image passed", METHOD);
ret = ( PImage) img-> self-> dup(( Handle) img);
if ( !ret) fail( "%s: Return image allocation failed");
++SvREFCNT( SvRV( ret-> mate));
if ( spatial) {
ret-> self-> set_type(( Handle) ret, imDComplex);
if ( ret-> type != imDComplex) {
warn("%s: Cannot convert image to im::DComplex", METHOD);
failed = 1;
goto EXIT;
}
}
data = ( double *) ret-> data;
lw = ret-> w * 2;
/* Take log of input image */
if ( homomorph) {
long i, k = ret-> w * ret-> h * 2;
MinVal = *data;
for ( i = 0; i < k; i += 2)
if ( MinVal > data[i])
MinVal = data[i];
for ( i = 0; i < k; i += 2)
data[i] = ( double) log(( double) ( 1.0 + data[i] - MinVal));
}
/* fft */
if ( spatial) {
if ( !pow2( img-> w))
croak("%s: image width is not a power of 2", METHOD);
if ( !pow2( img-> h))
croak("%s: image height is not a power of 2", METHOD);
buffer = malloc((sizeof(double) * ret-> w * 2));
if ( !buffer) {
warn("%s: Error allocating %d bytes", METHOD, (int)(sizeof(double) * img-> w * 2));
failed = 1;
goto EXIT;
}
fft_2d( data, ret-> w, ret-> h, FFT_DIRECT, buffer);
}
butterworth( data, ret-> w, ret-> h, homomorph, LowPass, Power, CutOff, Boost);
/* inverse fft */
if ( spatial) {
fft_2d( data, ret-> w, ret-> h, FFT_INVERSE, buffer);
free( buffer);
buffer = nil;
}
/* Take exp of input image */
if ( homomorph) {
long i, k = ret-> w * ret-> h * 2;
for ( i = 0; i < k; i += 2)
data[i] = ( double) ( exp( data[i]) - 1.0 + MinVal);
}
/* converting type back */
if ( spatial && ret-> self-> get_preserveType(( Handle) ret))
ret-> self-> set_type(( Handle) ret, img-> type);
EXIT:
free( buffer);
if ( ret)
--SvREFCNT( SvRV( ret-> mate));
return failed ? nil : ret;
#undef METHOD
}
void
Application_init( Handle self, HV * profile)
{
dPROFILE;
int hintPause = pget_i( hintPause);
Color hintColor = pget_i( hintColor), hintBackColor = pget_i( hintBackColor);
SV * hintFont = pget_sv( hintFont);
SV * sv;
char * hintClass = pget_c( hintClass);
if ( application != nilHandle)
croak( "Attempt to create more than one application instance");
CDrawable-> init( self, profile);
list_create( &var-> widgets, 16, 16);
list_create( &var-> modalHorizons, 0, 8);
application = self;
if ( !apc_application_create( self))
croak( "Error creating application");
/* Widget init */
SvHV_Font( pget_sv( font), &Font_buffer, "Application::init");
my-> set_font( self, Font_buffer);
SvHV_Font( pget_sv( popupFont), &Font_buffer, "Application::init");
my-> set_popup_font( self, Font_buffer);
{
AV * av = ( AV *) SvRV( pget_sv( designScale));
SV ** holder = av_fetch( av, 0, 0);
if ( holder)
var-> designScale. x = SvNV( *holder);
else
warn("Array panic on 'designScale'");
holder = av_fetch( av, 1, 0);
if ( holder)
var-> designScale. y = SvNV( *holder);
else
warn("Array panic on 'designScale'");
pdelete( designScale);
}
var-> text = duplicate_string("");
opt_set( optModalHorizon);
/* store extra info */
{
HV * hv = ( HV *) SvRV( var-> mate);
(void) hv_store( hv, "PrinterClass", 12, newSVpv( pget_c( printerClass), 0), 0);
(void) hv_store( hv, "PrinterModule", 13, newSVpv( pget_c( printerModule), 0), 0);
(void) hv_store( hv, "HelpClass", 9, newSVpv( pget_c( helpClass), 0), 0);
(void) hv_store( hv, "HelpModule", 10, newSVpv( pget_c( helpModule), 0), 0);
}
{
HV * profile = newHV();
static Timer_vmt HintTimerVmt;
pset_H( owner, self);
pset_i( timeout, hintPause);
pset_c( name, "HintTimer");
var-> hintTimer = create_instance( "Prima::Timer");
protect_object( var-> hintTimer);
hv_clear( profile);
memcpy( &HintTimerVmt, CTimer, sizeof( HintTimerVmt));
HintTimerVmt. handle_event = Application_HintTimer_handle_event;
(( PTimer) var-> hintTimer)-> self = &HintTimerVmt;
pset_H( owner, self);
pset_i( color, hintColor);
pset_i( backColor, hintBackColor);
pset_i( visible, 0);
pset_i( selectable, 0);
pset_i( showHint, 0);
pset_c( name, "HintWidget");
pset_sv( font, hintFont);
var-> hintWidget = create_instance( hintClass);
protect_object( var-> hintWidget);
sv_free(( SV *) profile);
}
if ( SvTYPE( sv = pget_sv( accelItems)) != SVt_NULL)
my-> set_accelItems( self, sv);
if ( SvTYPE( sv = pget_sv( popupItems)) != SVt_NULL)
my-> set_popupItems( self, sv);
pdelete( accelTable);
pdelete( accelItems);
pdelete( popupItems);
my-> set( self, profile);
CORE_INIT_TRANSIENT(Application);
}
