Require Class/basicSurface

basicSurface Subclass basicSurfaceNewDomain {
  Var f-u f-v f-setup uv
  ClassVar {linkable-types basicSurface}
  ClassVar {domain {Inherit}}

  Method SetValues {} {
    set object [Self Reference Object]
    set [var f-u]     [$object get f-u]
    set [var f-v]     [$object get f-v]
    set [var f-setup] [$object get f-setup]
    set [var uv]      [$object get uv]
  }

  Method GetDomainList {D} {
    set object [Self Reference Object]
    uplevel [list basicSurface InheritSurfaceDomainList $D $object]
  }
}
