Require Class/basicSurfaceFromCurve

basicSurfaceFromCurve Subclass basicRuledSurface {
  ClassVar rule-v {frame 1}
  ClassVar "domain {{[lindex [basicSurfaceFromCurve get domain] 0]} {Inherit}}"

  Var sf-u sf-v {sf-uv t}
  Method SetValues {} {
    Vars sf-u sf-v rule-v uv
    set sf-v [list let _V ${rule-v}]
    set sf-u [join [list \
      "set _i 0" \
      "foreach _e \[* \$[lindex $uv 0] \$_V\] {set _X(\$_i) \$_e; incr _i}" \
    ] \n]
    Parent SetValues
  }
}
