ls-seq "olea";

load-subsequence("olea004",30,60,true);

init-screen(3,2);
image-setup 36

require modaaregion;

setf3parms(512.0,16);

rle=new RLEImage(mflap[10],2);

rle.DisplayLine(100);

reglist=a-regions(rle,20);

ireg1=new TBitmapABGR;

rle.toABGR(ireg1,60,0);

affiche-pos(ireg1,1,"");

describe-region(rle,false,1);

hori_seg::pool_reinit();

pv_region::pool_reinit();

seteps 0.3;

rle=new RLEImage(mflap[8],1);

rle.toABGR(ireg1,140,-210);

affiche-pos(ireg1,1,"");