-- -*- M2-comint -*- hash: 9116676416897089789

i1 : C = coneFromVData matrix {{1,0,0},{0,1,1},{0,0,1}};

i2 : F = fan C

o2 = F

o2 : Fan

i3 : C = coneFromVData matrix {{-1,0,0},{0,1,0},{0,0,1}};

i4 : incompCones(C,F)

o4 = {(C, Cone{...1...})}

o4 : List

i5 : C1 = intersection {C, coneFromHData(matrix {{0,1,-1}})};

i6 : C2 = intersection {C, coneFromHData(matrix {{0,-1,1}})};

i7 : F = addCone({C1,C2},F)

o7 = F

o7 : Fan

i8 : 
