var vectors : array 1 .. 8 of array 1 .. 3 of int

vectors (1) (1) := - 20
vectors (1) (2) := - 20
vectors (1) (3) := - 20

vectors (2) (1) := 20
vectors (2) (2) := - 20
vectors (2) (3) := - 20

vectors (3) (1) := - 20
vectors (3) (2) := 20
vectors (3) (3) := - 20

vectors (4) (1) := 20
vectors (4) (2) := 20
vectors (4) (3) := - 20

vectors (5) (1) := - 20
vectors (5) (2) := - 20
vectors (5) (3) := 20

vectors (6) (1) := 20
vectors (6) (2) := - 20
vectors (6) (3) := 20

vectors (7) (1) := - 20
vectors (7) (2) := 20
vectors (7) (3) := 20

vectors (8) (1) := 20
vectors (8) (2) := 20
vectors (8) (3) := 20

procedure draw_object (vectors : array 1 .. 8 of array 1 .. 3 of int, x, y,
        povX, povY : int, z : real)

    var vecX, vecY, xAng, yAng : int

    for point : 1 .. 8
        vecX := x + round (vectors (point) (1) * z)
        vecY := y + round (vectors (point) (2) * z)
        xAng := round ( (povX - vecX) / (vectors (point) (3) / z))
        yAng := round ( (povY - vecY) / (vectors (point) (3) / z))
        drawdot (vecX + xAng, vecY + yAng, 7)

    end for

end draw_object

for i : 1 .. 50
    cls
    draw_object (vectors, 100 + (i * 7), maxy div 2, maxx div 2, maxy div 2,
        i / 25 + 1)
    delay (100)
end for