support(Complex) -- nonzero parts of a chain complex

i1 : A = QQ[x,y];

i2 : C = koszulComplex vars A

      1      2      1
o2 = A  <-- A  <-- A
                    
     0      1      2

o2 : Complex

i3 : support C

o3 = {0, 1, 2}

o3 : List

i4 : D = naiveTruncation(C,1, infinity)

      2      1
o4 = A  <-- A
             
     1      2

o4 : Complex

i5 : spots D

o5 = {1, 2}

o5 : List

i6 : support D

o6 = {1, 2}

o6 : List