This example looks like fault.tcl example. The only difference is the completer parameters: in this example anisotropy was added to completer.

See Also
Here is the image of the resulting surface:

surface with faults

Pic 1. Anisotropic surface with faults

This result was obtained with "examples/surfit/curvs/fault_aniso.tcl" script.

surfit: gridding and contouring software.