|
#ifndef _histob_hh
#define _histob_hh
#include <aa_regions.hh>
#include <UIntArray.hh>
int AnaHisto(int* data,int w, int h);
void RectHisto(int x0, int y0, int w, int h, TBitmapABGR& col, TIntArray& histo);
void RegionHisto(RLEImage& ima, TBitmapABGR& col, pv_region& reg, TIntArray& histo);
void RectHistoF(int x0, int y0, int w, int h, TBitmapABGR& col, TBitmapFloat& histo);
void RegionHistoF(RLEImage& ima, TBitmapABGR& col, pv_region& reg, TBitmapFloat& histo);
/*Ravi declare ((result-mode #t)) */
void ColorCoord(unsigned char* p,int& r1,int& r2);
#endif /* _histob_hh */
/* =========================================== */
/* File Generated Automatically by Ravi Interface Generator(26/02/02)
Gravir/Inria 1995/2002
Command: ravi -mod rig -r modBitmap -r modArray -r modaaregion -i histob.c -o modhistob.cc histob.h */
/* =========================================== */
#include <ravi_mod_inc.h>
#undef Boolean
#undef Char
#undef Byte
#undef UByte
#undef Word
#undef UWord
#undef Long
#undef ULong
#include "histob.h"
#include "histob.c"
static kTypeC TypeC_no_43;
static kTypeC TypeC_no_44;
static kTypeC TypeC_no_45;
static kTypeC TypeC_no_46;
static kTypeC TypeC_no_47;
static kTypeC TypeC_no_48;
static kTypeC TypeC_no_49;
static Ravi::Boolean localInitFunc(void);
static ScInitFunc go(localInitFunc);
void Sc_AnaHisto()
{
ScVal * FB = & VS_ElemQ(- GetPar());
int num = 0;
if((num = 0 , CheckTypeC(FB[0],TypeC_no_43))
&& (num = 1 , IsFixNum(FB[1]))
&& (num = 2 , IsFixNum(FB[2])))
{
SetResult(ScFixNum(AnaHisto((int *)GetCPtr(FB[0]),GetFixVal(FB[1]),GetFixVal(FB[2]))));
return ;
}
Errorf("bad arg [pos %d] for function %s",num,"AnaHisto");
}
void Sc_RectHisto()
{
ScVal * FB = & VS_ElemQ(- GetPar());
int num = 0;
if(IsFixNum(FB[0]))
{
int param_0 = GetFixVal(FB[0]);
num = 1;
if(IsFixNum(FB[1]))
{
int param_1 = GetFixVal(FB[1]);
num = 2;
if(IsFixNum(FB[2]))
{
int param_2 = GetFixVal(FB[2]);
num = 3;
if(IsFixNum(FB[3]))
{
int param_3 = GetFixVal(FB[3]);
num = 4;
if(CheckTypeC(FB[4],TypeC_no_44))
{
TBitmapABGR * param_4 = (TBitmapABGR *)GetCPtr(FB[4]);
num = 5;
if(CheckTypeC(FB[5],TypeC_no_45))
{
TIntArray * param_5 = (TIntArray *)GetCPtr(FB[5]);
RectHisto(param_0,param_1,param_2,param_3,* param_4,* param_5);
SetResult(ScUnspecified);
return ;
}
else ;
}
else ;
}
else ;
}
else ;
}
else ;
}
else ;
Errorf("bad arg [pos %d] for function %s",num,"RectHisto");
}
void Sc_RegionHisto()
{
ScVal * FB = & VS_ElemQ(- GetPar());
int num = 0;
if(CheckTypeC(FB[0],TypeC_no_46))
{
RLEImage * param_0 = (RLEImage *)GetCPtr(FB[0]);
num = 1;
if(CheckTypeC(FB[1],TypeC_no_44))
{
TBitmapABGR * param_1 = (TBitmapABGR *)GetCPtr(FB[1]);
num = 2;
if(CheckTypeC(FB[2],TypeC_no_47))
{
pv_region * param_2 = (pv_region *)GetCPtr(FB[2]);
num = 3;
if(CheckTypeC(FB[3],TypeC_no_45))
{
TIntArray * param_3 = (TIntArray *)GetCPtr(FB[3]);
RegionHisto(* param_0,* param_1,* param_2,* param_3);
SetResult(ScUnspecified);
return ;
}
else ;
}
else ;
}
else ;
}
else ;
Errorf("bad arg [pos %d] for function %s",num,"RegionHisto");
}
void Sc_RectHistoF()
{
ScVal * FB = & VS_ElemQ(- GetPar());
int num = 0;
if(IsFixNum(FB[0]))
{
int param_0 = GetFixVal(FB[0]);
num = 1;
if(IsFixNum(FB[1]))
{
int param_1 = GetFixVal(FB[1]);
num = 2;
if(IsFixNum(FB[2]))
{
int param_2 = GetFixVal(FB[2]);
num = 3;
if(IsFixNum(FB[3]))
{
int param_3 = GetFixVal(FB[3]);
num = 4;
if(CheckTypeC(FB[4],TypeC_no_44))
{
TBitmapABGR * param_4 = (TBitmapABGR *)GetCPtr(FB[4]);
num = 5;
if(CheckTypeC(FB[5],TypeC_no_48))
{
TBitmapFloat * param_5 = (TBitmapFloat *)GetCPtr(FB[5]);
RectHistoF(param_0,param_1,param_2,param_3,* param_4,* param_5);
SetResult(ScUnspecified);
return ;
}
else ;
}
else ;
}
else ;
}
else ;
}
else ;
}
else ;
Errorf("bad arg [pos %d] for function %s",num,"RectHistoF");
}
void Sc_RegionHistoF()
{
ScVal * FB = & VS_ElemQ(- GetPar());
int num = 0;
if(CheckTypeC(FB[0],TypeC_no_46))
{
RLEImage * param_0 = (RLEImage *)GetCPtr(FB[0]);
num = 1;
if(CheckTypeC(FB[1],TypeC_no_44))
{
TBitmapABGR * param_1 = (TBitmapABGR *)GetCPtr(FB[1]);
num = 2;
if(CheckTypeC(FB[2],TypeC_no_47))
{
pv_region * param_2 = (pv_region *)GetCPtr(FB[2]);
num = 3;
if(CheckTypeC(FB[3],TypeC_no_48))
{
TBitmapFloat * param_3 = (TBitmapFloat *)GetCPtr(FB[3]);
RegionHistoF(* param_0,* param_1,* param_2,* param_3);
SetResult(ScUnspecified);
return ;
}
else ;
}
else ;
}
else ;
}
else ;
Errorf("bad arg [pos %d] for function %s",num,"RegionHistoF");
}
void Sc_ColorCoord()
{
ScVal * FB = & VS_ElemQ(- GetPar());
int num = 0;
if(CheckTypeC(FB[0],TypeC_no_49))
{
unsigned char * param_0 = (unsigned char *)GetCPtr(FB[0]);
num = 1;
if(IsFixNum(FB[1]))
{
int param_1 = GetFixVal(FB[1]);
num = 2;
if(IsFixNum(FB[2]))
{
int param_2 = GetFixVal(FB[2]);
ColorCoord(param_0,param_1,param_2);
SetResult(Cons(ScFixNum(param_1),Cons(ScFixNum(param_2),ScNil)));
return ;
}
else ;
}
else ;
}
else ;
Errorf("bad arg [pos %d] for function %s",num,"ColorCoord");
}
Ravi::Boolean localInitFunc()
{
{
TypeC_no_43 = AllocType("int *");
TypeC_no_44 = AllocType("TBitmapABGR *","TBitmap4 *");
TypeC_no_45 = AllocType("TIntArray *","TIntVector *");
TypeC_no_46 = AllocType("RLEImage *");
TypeC_no_47 = AllocType("pv_region *");
TypeC_no_48 = AllocType("TBitmapFloat *","TBitmap1 *");
TypeC_no_49 = AllocType("unsigned char *");
MakePutCProc("AnaHisto",Sc_AnaHisto,3,ScNil);
MakePutCProc("RectHisto",Sc_RectHisto,6,ScNil);
MakePutCProc("RegionHisto",Sc_RegionHisto,4,ScNil);
MakePutCProc("RectHistoF",Sc_RectHistoF,6,ScNil);
MakePutCProc("RegionHistoF",Sc_RegionHistoF,4,ScNil);
MakePutCProc("ColorCoord",Sc_ColorCoord,3,ScNil);
}
return true;
}
|