1#to blow up a subspace of a projective space
2pg := PG(3,5^2);
3basis := Basis(AsVectorSpace(GF(5),GF(5^2)));
4line := Random(Lines(pg));
5solid1 := BlownUpSubspaceOfProjectiveSpace(basis,line);
6BasisVectors(basis);
7basis := Basis(AsVectorSpace(GF(5),GF(5^2)),[Z(5),Z(5^2)^8]);
8solid2 := BlownUpSubspaceOfProjectiveSpace(basis,line);
9solid1 = solid2;
10quit;
11
12