lineSetToDotSet

lineSetToDotSet lineSet: returns list of dots for poly, given by lineSet

obj inscope fill proc lineSetToDotSet lineSet {
  set firstDot [[lindex $lineSet 0] firstDot]
  set lastDot [[lindex $lineSet end] lastDot]
  foreach line $lineSet {
    lappend dots {*}[lrange [$line bezierFillDots] 0 end-1]
  }
  if {$firstDot ne $lastDot} then {
    lappend dots $lastDot $lastDot $firstDot
  }
  set dots
}