/* cut.mcr abschneiden eines 48 Pixel hohen Bildstreifens*/
/* auch f〉 Farbbilder  */
/* Imatec Makrolab 29.10.2002 wr */

makro()
{
short a,c,cut,block[4];
long sx,sy;
char binam[200];
cut = 48;

Input("Welches Bild ? ",a);
sx = GetImageSize(a,1);
sy = GetImageSize(a,2);
GetImageName(1,binam);
c = ImageType(a);
block[0]=0;
block[1]=0;
block[2]=sx;
block[3]=sy-cut;
if(c>0) {
  EmptyImage(NIMAGES,2,sx,block[3],0,1,binam);
}
else {
 EmptyImage(NIMAGES,0,sx,block[3],0,1,binam);
 }
CopyBlock(a,block,NIMAGES,0,0);
CopyImage(NIMAGES,a);
if(c == 8) {
  Reduce24To8Bit(a,a,0);
 }
ClearImages(NIMAGES,NIMAGES);
}
 