Require Class/basicCurve

basicCurve Subclass basicCurveNewDomain {
  Var function f-setup param
  ClassVar {linkable-types basicCurve}
  ClassVar {domain {Inherit}}

  Method SetValues {} {
    set object [Self Reference Object]
    set [var function] [$object get function]
    set [var param]    [$object get param]
    set [var f-setup]  [$object get f-setup]
  }

  Method GetDomainList {D} {
    set object [Self Reference Object]
    uplevel [list basicCurve InheritCurveDomainList $D $object]
  }
}
