programlibs/Manifold/demos/sphere.xtl

source · imports mf: libs/Manifold/src/Manifold.xtl

P : Float

value · line 7
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 : Float

value · line 8
p ← 1 s̲elect P

q : Float

value · line 9
q ← 2 s̲elect P

v : Float

value · line 14
v ← p ᵐᶠs̲phereArrow q             ⍝ the arrow at p that reaches q

m : Float

value · line 20
m ← ('+ r̲/ P) ÷ 3.0               ⍝ the plain mean: inside the sphere