diff options
| author | lecoanet | 2003-03-25 10:15:39 +0000 |
|---|---|---|
| committer | lecoanet | 2003-03-25 10:15:39 +0000 |
| commit | 20165cc6dc4f78990b7f85f5645ab44c60e3eca9 (patch) | |
| tree | 041193860aa8f82ee54a26c8bf1b302c577c208f /demos/colorCircular.tcl | |
| parent | b7ebba4eddfbc4539b95adb6600d3bd64dc6ea8e (diff) | |
| download | tkzinc-20165cc6dc4f78990b7f85f5645ab44c60e3eca9.zip tkzinc-20165cc6dc4f78990b7f85f5645ab44c60e3eca9.tar.gz tkzinc-20165cc6dc4f78990b7f85f5645ab44c60e3eca9.tar.bz2 tkzinc-20165cc6dc4f78990b7f85f5645ab44c60e3eca9.tar.xz | |
Portage de la demo Perl
Diffstat (limited to 'demos/colorCircular.tcl')
| -rw-r--r-- | demos/colorCircular.tcl | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/demos/colorCircular.tcl b/demos/colorCircular.tcl index bb9b75b..dbd9367 100644 --- a/demos/colorCircular.tcl +++ b/demos/colorCircular.tcl @@ -22,26 +22,26 @@ zinc $w.zinc -width 700 -height 600 -borderwidth 3 -relief sunken -render 1 pack $w.zinc $w.zinc add rectangle 1 {10 10 80 80} -fillcolor {red|blue 50 50} -filled 1 -$w.zinc add text 1 -font $defaultfont -text "Radial variation from non-transparent red to non-transparent blue\nin a squarre. The gradient starts from the lower right corner.\n" -anchor nw -position {120 20} -$w.zinc add arc 1 {10 110 90 190} -fillcolor {red;40|blue;40 0 25} -filled 1 +$w.zinc add text 1 -font $defaultfont -text "Radial variation from non-transparent red to non-transparent blue\nin a squarre. The gradient starts from the lower right corner.\n" -anchor nw -position {120 20} +$w.zinc add arc 1 {10 110 90 190} -fillcolor {red;40|blue;40 0 25} -filled 1 -$w.zinc add text 1 -font $defaultfont -text "Radial variation from 40%transparent red to 40% transparent blue\nin a disc. The gradient starts in the middle between\nthe center on the bottom point" -anchor nw -position {120 120} +$w.zinc add text 1 -font $defaultfont -text "Radial variation from 40%transparent red to 40% transparent blue\nin a disc. The gradient starts in the middle between\nthe center on the bottom point" -anchor nw -position {120 120} -$w.zinc add arc 1 {10 210 90 290} -fillcolor {red;40|green;40 50|blue;40 0 0} -filled 1 +$w.zinc add arc 1 {10 210 90 290} -fillcolor {red;40|green;40 50|blue;40 0 0} -filled 1 $w.zinc add text 1 -font $defaultfont -text "A variation from 40%transparent red to 40% transparent blue.\nthrough a 40%green on the middle of the disc. The gradient is centered." -anchor nw -position {120 220} -$w.zinc add text 1 -font $defaultfont -text "Two overlaping radialy transparently colored items on a white background" -anchor nw -position {20 320} +$w.zinc add text 1 -font $defaultfont -text "Two overlaping radialy transparently colored items on a white background" -anchor nw -position {20 320} -$w.zinc add rectangle 1 {10 340 690 590} -fillcolor white -filled 1 +$w.zinc add rectangle 1 {10 340 690 590} -fillcolor white -filled 1 -$w.zinc add rectangle 1 {20 365 220 565} -fillcolor {red;40|green;40 50|blue;40 0 0} -filled 1 +$w.zinc add rectangle 1 {20 365 220 565} -fillcolor {red;40|green;40 50|blue;40 0 0} -filled 1 -$w.zinc add arc 1 {150 365 350 565} -fillcolor {yellow;40|black;40 50|cyan;40 0 0} -filled 1 +$w.zinc add arc 1 {150 365 350 565} -fillcolor {yellow;40|black;40 50|cyan;40 0 0} -filled 1 -$w.zinc add arc 1 {280 365 480 565} -fillcolor {black;100|black;100 20|white;40 0 0} -filled 1 -linewidth 0 +$w.zinc add arc 1 {280 365 480 565} -fillcolor {black;100|black;100 20|white;40 0 0} -filled 1 -linewidth 0 -$w.zinc add arc 1 {480 365 580 500} -fillcolor {black;100|white;40 -10 16} -filled 1 +$w.zinc add arc 1 {480 365 580 500} -fillcolor {black;100|white;40 -10 16} -filled 1 -$w.zinc add arc 1 {580 410 680 580} -fillcolor {black;70|white;20 -40 -40} -filled 1 -$w.zinc add arc 1 {580 410 680 580} -fillcolor {black;70|white;20 40 40} -filled 1
\ No newline at end of file +$w.zinc add arc 1 {580 410 680 580} -fillcolor {black;70|white;20 -40 -40} -filled 1 +$w.zinc add arc 1 {580 410 680 580} -fillcolor {black;70|white;20 40 40} -filled 1
\ No newline at end of file |