Require Class/basicArrows

basicArrows Subclass Arrows {

  Method Compute {} {
    Vars vertices arrows htype
    Self MakeArrows \
      [uplevel [list Self VF2Faces $vertices $arrows "$htype {} n {}"]]
    uplevel Self Recolor
  }

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

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

  ClassVar {script-templates {Vertices Arrows}}

  Method ScriptBegin {} {
    Vars arrows vertices
    Parent ScriptBegin
    set arrows {}
    set vertices {}
  }
}

Arrows Register