draw

$fill draw, $fill draw yes
draws fill on canvas
$fill draw no
erases fill from canvas

obj method fill draw {{option yes}} {
  set tag fill$self
  set coords [linesToBezierCoords [my lines]]
  if {$option eq "coords"} then {
    $self canvas coords $tag $coords
    $self lines draw coords
  } elseif {$option eq "fillcoords"} then {
    $self canvas coords $tag $coords
  } elseif {$option} then {
    # option == yes
    if {[$self canvas find withtag $tag] eq ""} then {
      $self canvas create poly $coords -smooth raw -tags "$tag fill"
      $self updateAtts
    } else {
      $self canvas coords $tag $coords
    }
    $self lines draw
  } else {
    # option == no
    $self canvas delete $tag
    $self lines draw no
  }
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z