Help for this page

Select Code to Download


  1. or download this
    $one = $canvas->createOval(...);
$two = $canvas->createRectangle(...);
...
$mw->update;
$mw->after(1000);
$canvas->move($group, 100, 100);
  2. or download this
    #!/usr/bin/env perl

...
        -fill => '#0000cc', -outline => undef
    );
}
  3. or download this
    my $grassy_creek_bend = $c->createGroup(
    [0,0], -members => [
...
        creek_bend_ws($c),
    ]
);
  4. or download this
    #!/usr/bin/env perl

...
        -fill => '#0000cc', -outline => undef
    );
}