VARIABLE
:Line1:=
0
,line2:=
0
,line3:=
0
;
ma24:
ma
(
c
,
24
);
if
(
cross
(
h
,ma24)
and
Line1=
0
)
or
(
all
(line1<>
0
and
line1=
ref
(line1,
1
),
24
))
then
BEGIN
Line1:=ma24+
20
;
line2:=
0
;
line3:=
0
;
END
if
h
>Line1
and
line2=
0
and
Line1<>
0
then
Line2:=Line1+
20
;
if
h
>Line2
and
line3=
0
and
Line2<>
0
then
Line3:=Line1+
40
;
if
cross
(ma24,
h
)
then
begin
line1:=
0
;
line2:=
0
;
line3:=
0
;
end
TOP1:
if
(line1<>
0
and
line2=
0
,line1,
DRAWNULL
),
COLORWHITE
;
TOP2:
if
(line2<>
0
and
line3=
0
,line2,
DRAWNULL
),
COLORYELLOW
;
TOP3:
if
(line3<>
0
,line3,
DRAWNULL
),
COLORYELLOW
,
COLORRED
;