diff options
Diffstat (limited to 'sandbox/testbezier.pl')
| -rw-r--r-- | sandbox/testbezier.pl | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/sandbox/testbezier.pl b/sandbox/testbezier.pl index 9ad39d2..3d9fd3c 100644 --- a/sandbox/testbezier.pl +++ b/sandbox/testbezier.pl @@ -9,7 +9,7 @@ require Tk::PNG; $top = 1; -$lw = 8; +$lw = 24; $arrow = [8, 10, 6]; # @@ -23,10 +23,12 @@ $arrow = [8, 10, 6]; ['round', 0, 1, 'raised', 'Raised'], ['round', 0, 1, 'groove', 'Groove'], ['round', 0, 1, 'ridge', 'Ridge'], - ['round', 1, 1, 'sunken', 'FilledSunken'], - ['round', 1, 1, 'raised', 'FilledRaised'], - ['round', 1, 1, 'groove', 'FilledGroove'], - ['round', 1, 1, 'ridge', 'FilledRidge'], + ['round', 1, 1, 'roundsunken', 'RoundSunken'], + ['round', 1, 1, 'roundraised', 'RoundRaised'], + ['round', 1, 1, 'roundgroove', 'RoundGroove'], + ['round', 1, 1, 'roundridge', 'RoundRidge'], + ['round', 1, 1, 'sunkenrule', 'SunkenRule'], + ['round', 1, 1, 'raisedrule', 'RaisedRule'], ['round', 1, 0, 'flat', 'Fill'], ['round', 1, 1, 'flat', 'FillBorder']); @@ -35,11 +37,13 @@ $mw = MainWindow->new(); $papier = $mw->Photo(-file => "texture-paper.xpm"); $zinc = $mw->Zinc(-render => 1, + -lightangle => 120, -borderwidth => 0, -highlightthickness => 0, -relief => 'sunken', -takefocus => 1, - -tile => $papier + -backcolor => 'red' + # -tile => $papier ); $zinc->pack(-expand => 1, -fill => 'both'); $zinc->configure(-width => 500, -height => 500); @@ -69,8 +73,7 @@ $mp = $zinc->add('bezier', $model, [50, -150, 180, -300, 140, -160, 70, -300], - -linecolor => 'yellow', - -fillcolor => 'tan:50', + -fillcolor => 'tan', -tags => 'bezier', -linewidth =>$lw); #$zinc->add('rectangle', $model, [50, -150, 100, -50]); @@ -99,7 +102,8 @@ foreach $current (@show) { -capstyle => $cap, -filled => $filled, -linewidth => $border ? $lw : 0, - -relief => $relief); + -relief => $relief, + -linecolor => $relief eq 'flat' ? 'yellow' : 'tan'); $zinc->itemconfigure($zinc->find('withtag', 'title', $grp), -text => $title); $col++; |