;b02.rec
;
;  continue 3d reconstruction of anticlockwise set
;
x12=1.
if(x12.eq.1.)goto lb5
lb5
do lb1 i=1,439
ud x0,x99
selanti001
if(x99.eq.0)goto lb1
ud s,x0,x21,x22,x23,x24,x25,x26
shiantidoc001
ud s,x0,x31,x32,x33,x34,x35,x36
shiantidoc002
ud s,x0,x41,x42,x43,x44,x45,x46
shiantidoc003
x55=x25+x35+x45
x56=x26+x36+x46
sd x0,x55,x56
sumantidoc001
lb1 
;
;
;
do lb2 j=1,439
x50=x0
ud x0,x99
selanti001
if(x99.eq.0.)goto lb2
ud x0,x21,x22
sumantidoc001
sh f
tmb/tmb0x50
tmbshi/tmbshi0x50
-x21,-x22
lb2
;
;
;
bp gw
(0.6)
(100)
(l)
(l)
tmbshi/tmbshi0001
bpj/bpj0001
1-439
1-439
y
;
bp xy
rec/3danti001
y
(100,100)
(100)
(10,90)
(1)
(1)
bpj/bpj0001
bpj/bpj0439
en