+ local norm = V.norm
+ return function(p)
+ return {dist = V.norm(p-centre) - radius,
+ texture = texture}
+ end
+end
+
+local function make_plane(centre, normal, texture)
+ return function(p)
+ return {dist = normal*(p-centre),
+ texture = texture}
+ end