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)