Require Class/basicCurveNewDomain

basicCurveNewDomain Subclass CurveNewDomain {
  Var "domain {[basicCurveNewDomain get domain]}"
  Method <Domain> {domain} {set [var domain] $domain}
  ClassVar "Domain-template {{[basicCurveNewDomain get domain]}}"

  ClassVar {script-templates {Domain}}

  Method ScriptBegin {} {
    Vars domain
    Parent ScriptBegin
    set domain [Parent get domain]
  }
}

CurveNewDomain Register
