diff options
author | lecoanet | 2002-05-17 07:53:35 +0000 |
---|---|---|
committer | lecoanet | 2002-05-17 07:53:35 +0000 |
commit | bf440c2450c11457752decfa06e71e20726cc442 (patch) | |
tree | f92a7d771db59119d170a525ab8bd3f64d8c56cf /sandbox/local.pl | |
parent | 92c5c40762cb6968cc6c856c5fd00aef5dd7c2dc (diff) | |
download | tkzinc-bf440c2450c11457752decfa06e71e20726cc442.zip tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.gz tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.bz2 tkzinc-bf440c2450c11457752decfa06e71e20726cc442.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/local.pl')
-rw-r--r-- | sandbox/local.pl | 218 |
1 files changed, 0 insertions, 218 deletions
diff --git a/sandbox/local.pl b/sandbox/local.pl deleted file mode 100644 index e97d7d5..0000000 --- a/sandbox/local.pl +++ /dev/null @@ -1,218 +0,0 @@ -#!/usr/bin/perl -w - -use Tk; -use Tk::Zinc; -use Controls; -use Tk::Photo; -#require Tk::PNG; - -$mw = MainWindow->new(); -$logo = $mw->Photo(-file => "logo.gif"); -$papier = $mw->Photo(-file => "texture-paper.xpm"); -#$penguin = $mw->Photo(-format => 'png', -# -file => "xpenguin.png"); - -$top = 1; -$zinc = $mw->Zinc(-render => 1, - -borderwidth => 5, - -highlightthickness => 0, - -relief => 'sunken', - -takefocus => 1, -# -tile => $papier - ); -$zinc->pack(-expand => 1, -fill => 'both'); -$zinc->configure(-width => 500, -height => 500); -$gr1 = $zinc->add('group', $top); -#$clip = $zinc->add('rectangle', $gr1, [50, 50, 399, 399], -$clip = $zinc->add('arc', $gr1, [50, 50, 399, 399], - -visible => 1, - -filled => 1, - -fillcolor => 'Pink:40', -# -fillpattern => 'AlphaStipple4', - -linewidth => 0); -#$zinc->itemconfigure($gr1, -clip => $clip); -$gr2 = $zinc->add('group', $gr1); - -$clip2 = $zinc->add('rectangle', $gr2, [200, 200, 450, 300], - -visible => 1, - -filled => 1, - -fillcolor => '#70C5C0:15', -# -fillcolor => 'white:100|white:0', -# -fillcolor => '#ffffff:15 0|#ffff00:15 50|#000000:15 100/270', -# -fillcolor => 'white 0 |blue 20|blue 80|black:0 100/270', -# -linewidth => 3, - -linewidth => 11, -# -linestyle => 'dashed', - -linecolor => 'red'); - -#$zinc->itemconfigure($gr2, -clip => $clip2); -$view = $zinc->add('group', $gr2, -tags => "controls"); -$zinc->lower($clip); -$zinc->lower($clip2); - -new Controls($zinc); - -$rect2 = $zinc->add('rectangle', $view, [150, 50, 300, 300], - -visible => 0, - -linewidth => 0, - -tile => $logo, - -fillcolor => 'white:50', - -filled => 1); - -$rect = $zinc->add('rectangle', $view, [100, 100, 200, 200], - -visible => 1, - -linewidth => 3, -# -linewidth => 4, - -linecolor => 'tan', -# -fillcolor => 'pink:50', - -fillcolor => 'tan', - -relief => 'sunken', - -filled => 1 - ); -$mp = $zinc->add('curve', $view, [50, 150, 100, 250, 270, 170, - 220, 100, 200, 100, 180, 0, - 140, 140, 70, 0], - -visible => 0, - -composescale => 1, - -composerotation => 1, - -linewidth => 3, -# -linewidth => 4, - -relief => 'sunken', - -closed => 1, - -joinstyle => 'round', - -linecolor => 'black:50', - -filled => 1, - -fillcolor => 'white|black[100 100', -# -fillcolor => 'white', -# -fillpattern => 'AlphaStipple8', -# -tile => $papier, - -marker => '', - -markercolor => 'red'); -#$zinc->itemconfigure($gr1, -clip => $mp); - -$mp2 = $zinc->add('curve', $view, [0, 320, 80, 470, 200, 470], - -visible => 1, - -linewidth => 20, - -closed => 0, - -joinstyle => 'round', - -capstyle => 'round', - -linestyle => 'mixed', - -linecolor => 'red:50', - -filled => 0, -# -fillcolor => 'white|black(10 10', - -fillcolor => 'wheat', -# -fillpattern => 'AlphaStipple8', -# -tile => $papier, - -marker => 'AtcSymbol6', - -markercolor => 'black'); -$mp3 = $zinc->add('curve', $view, [20, 280, 100, 430, 200, 430], - -linewidth => 11, -# -linewidth => 9, - -closed => 0, -# -linestyle => 'dashed', - -joinstyle => 'round', - -firstend => [3, 12, 8], - -lastend => [12, 12, 8], - -capstyle => 'round', - -linecolor => 'red:100', - -filled => 1); - -$zinc->add('reticle', $view, - -visible => 1, - -position => [300, 300], - -firstradius => 60, - -stepsize => 30, -# -numcircles => 7, - -linecolor => 'gray30', - -brightlinecolor => 'gray100', -# -brightlinestyle => 'mixed' - ); - -$x = 100; -$y = 20; -for ($i = 0; $i < 100; $i++) { - $x = $x+5; - $y = $y+7; - $zinc->add('text', $view, - -visible => 1, - -text => "BlaBla et tout et tout, bref...", - -position => [$x, $y], -anchor => 'nw', - -color => 'red:30'); -} -#$peng = $zinc->add('icon', $view, -# -visible => 1, -# -image => $penguin, -position => [300, 300], -# -anchor => 'center', -# -color => 'black:50'); - -$fvwm = $zinc->add('icon', $top, - -visible => 1, - -mask => '@fvwm.xbm', - -position => [50, 20], - -anchor => 'center', - -color => 'orange:100'); - -#$zinc->gname('white 0 80|black[0 0', 'cone'); -$zinc->gname('white:50 0 80|black 50|white 100(0 0', 'oeil'); -$zinc->gname('white:100|black:100(-20 -15', 'boule'); -$zinc->gname('white:100|black:100(-15 -100', 'arrondi'); -$zinc->gname('white:100|black:100/45', 'cyl'); -$arc = $zinc->add('arc', $view, [-45, -45, 45, 45], - -visible => 1, - -fillcolor => 'boule', - -linewidth => 1, - -filled => 1, -# -startangle => 0, -# -extent => 360, - -closed => 1, -# -firstend => [12, 12, 8], -# -lastend => [12, 12, 8], -# -tile => $logo, - -pieslice => 0 - ); - -$zinc->add('rectangle', $view, [100, 100, 200, 200], - -fillcolor => 'cyl', - -linewidth => 1, - -filled => 1, - -visible => 0 - ); - -$zinc->translate($arc, 125, 300); - -#$arc2 = $zinc->add('arc', $view, [-65, -35, 65, 35], -# -fillcolor => 'black|white(0 0', -# -linewidth => 1, -# -filled => 1); -#$zinc->translate($arc2, 125, 55); - -#$zinc->raise($fvwm); - -$tab = $zinc->add('tabular', $view, 10, - -position => [300, 300], - -labelformat => '100x50'); -$zinc->itemconfigure($tab, 0, - -visible => 0, -# -image => $logo, - -text => 'blabla', - -font => "cenapii-digistrips-b12", - -border => ['contour'], - -bordercolor => 'tan', - -filled => 1, - -tile => $papier, - -reliefthickness => 4, - -relief => 'sunken', - -backcolor => 'tan'); -$zinc->raise($tab); - -$zinc->translate($rect, -150, -150); -$zinc->rotate($rect, 35); -$zinc->translate($rect, 150, 150); - -$zinc->monitor(1); -$mw->Tk::bind('<p>', sub { print "perfs: ", join(',', $zinc->monitor()), "\n" }); -$mw->Tk::bind('<t>', sub { $zinc->remove($arc); }); -$mw->Tk::bind('<q>', sub { exit(0); }); -$zinc->focusFollowsMouse(); - -MainLoop(); |