Require Class/basicVectors

basicVectors Subclass Vectors {

  Method Vectors2Arrows {vectors} {
    Vars htype
    set V [uplevel 2 [list subst $vectors]]
    set A [uplevel [list Self V2Arrows $V "$htype {} n {}"]]
    return [uplevel [list Parent Vectors2Arrows $A]]
  }

  Var arrows
  Method <Vectors> {list} {set [var arrows] $list}
  ClassVar "Vectors-template {{\n {(0,0,0) (1,0,0)}\n}}"

  ClassVar {script-templates {Vectors}}

  Method ScriptBegin {} {
    Parent ScriptBegin
    set [var arrows] {}
  }
}

Vectors Register