Require Class/basicOffsetCurve

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

  Var "offset [basicOffsetCurve get offset]"
  Method <Offset> {distance} {set [var offset] $distance}
  ClassVar "Offset-template [basicOffsetCurve get offset]"

  ClassVar {script-templates {Domain Offset}}

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

OffsetCurve Register
