/*--------------------------------------------------------------------------*/
SCICOS_BLOCKS_IMPEXP void extractz(scicos_block *block,int flag)
{
double *ur = NULL;
double *ui = NULL;
double *yr = NULL;
double *yi = NULL;
int *r = NULL;
int nu = 0,mu = 0,nr = 0,i = 0,j = 0,ij = 0,k = 0,nc = 0,nl = 0;
mu=GetInPortRows(block,1);
nu=GetInPortCols(block,1);
nr=GetNipar(block);
r=GetIparPtrs(block);
ur=GetRealInPortPtrs(block,1);
ui=GetImagInPortPtrs(block,1);
yr=GetRealOutPortPtrs(block,1);
yi=GetImagOutPortPtrs(block,1);
nc=r[nr-1];
nl=r[nr-2];
k=0;
for (j=0;j<nc;j++)
{for (i=0;i<nl;i++)
{ij=r[i]-1+(r[nl+j]-1)*mu;
*(yr+k)=*(ur+ij);
*(yi+k)=*(ui+ij);
k++;}}
}
/**
* Set properties on the figure.
*
* \param iFigureUID the figure uid
* \param block the current block
*/
static void setFigureSettings(int iFigureUID, scicos_block * block)
{
int nipar = GetNipar(block);
int *ipar = GetIparPtrs(block);
int win_pos[2];
int win_dim[2];
win_pos[0] = ipar[(nipar - 1) - 3];
win_pos[1] = ipar[(nipar - 1) - 2];
win_dim[0] = ipar[(nipar - 1) - 1];
win_dim[1] = ipar[nipar - 1];
if (win_pos[0] > 0 && win_pos[1] > 0)
{
setGraphicObjectProperty(iFigureUID, __GO_POSITION__, &win_pos, jni_int_vector, 2);
}
if (win_dim[0] > 0 && win_dim[1] > 0)
{
setGraphicObjectProperty(iFigureUID, __GO_SIZE__, &win_dim, jni_int_vector, 2);
}
};