INTERFACE SPNLFunction;

IMPORT LR3;

TYPE 
  T = PROCEDURE (u: LONGREAL; READONLY x: Point): LONGREAL;
  Point = LR3.T;

PROCEDURE FromName(name: TEXT): T;
  (*
    Returns a spherical function with given "name",
    which must match one of the predefined names.
    Otherwise returns NIL. *)

END SPNLFunction.