var i:= 0;
while not (i = size) do
if i < 1 then
- (this - (i * -8)).x := (this - (i * -8)).x - (-20);
+ (this - (i * -4)).x := (this - (i * -4)).x - (-20);
else
- (this - (i * -8)).x := (this - ((i - 1) * -8)).x or 128;
+ (this - (i * -4)).x := (this - ((i - 1) * -4)).x or 128;
end;
i := i - -1;
end;