Require Class/basicSurfaceFromSurface

basicSurfaceFromSurface Subclass basicGaussMap {
  ClassVar {frame 0}
  ClassVar "domain {[basicSurfaceFromSurface get domain]}"

  Method SetValues {} {
    Vars offset f-u f-setup uv
    set object [Self Reference Object]
    set u [lindex $uv 0]; set v [lindex $uv 1]

    set f-u [join [list \
      "set _P \[$object UnitNormal \${$u} \${$v}\]" \
      {foreach _i [array names _X] {set _X($_i) [lindex $_P $_i]}} \
    ] \n ]
  }
}
