This example looks like fault.tcl example. The only difference is the completer parameters: in this example anisotropy was added to completer.
Pic 1. Anisotropic surface with faults
This result was obtained with "examples/surfit/curvs/fault_aniso.tcl"
script.
surfit: gridding and contouring software.