Holes 24

Author:
Thijs
Topic:
Sphere
History: Sphere with four holes Thanks to Juan Vicente Sánchez and Juan Carlos Ponce Campuzano. LP = {(24,10,10), (10,24,10), (10,10,24)} On(x,y) = Product(Zip(If((abs(x((1;x;y))), abs(y((1;x;y))), abs(z((1;x;y)))) UnitVector(P)<0.96, 1), P,LP)) sphOn1 = Surface(If(On(arg, alt)==1, (1.01;arg;alt)), arg,0,2pi, alt,-pi/2,pi/2) sphOn2 = Surface(If(On(arg, alt)==1, (0.99;arg;alt)), arg,0,2pi, alt,-pi/2,pi/2) sphOn3 = Surface(If(On(arg, alt)==1, (0.97;arg;alt)), arg,0,2pi, alt,-pi/2,pi/2)