source · imports mf: libs/Manifold/src/Manifold.xtl
mf:
P ← 3 3 r̲eshape 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 ⍝ the three axes, one point per row
p ← 1 s̲elect P
q ← 2 s̲elect P
v ← p ᵐᶠs̲phereArrow q ⍝ the arrow at p that reaches q
m ← ('+ r̲/ P) ÷ 3.0 ⍝ the plain mean: inside the sphere