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/colorY.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/colorY.tcl')
-rw-r--r-- | demos/colorY.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/demos/colorY.tcl b/demos/colorY.tcl index 016dde1..013cedc 100644 --- a/demos/colorY.tcl +++ b/demos/colorY.tcl @@ -22,21 +22,21 @@ set defaultfont -adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-* zinc $w.zinc -width 700 -height 600 -borderwidth 3 -relief sunken -render 1 pack $w.zinc -$w.zinc add rectangle 1 {10 10 690 100} -fillcolor {@axial 90|red|blue} -filled 1 +$w.zinc add rectangle 1 {10 10 690 100} -fillcolor {=axial 90|red|blue} -filled 1 -$w.zinc add text 1 -font $defaultfont -text "A variation from non transparent red to non transparent blue.\n" -anchor nw -position {20 20} +$w.zinc add text 1 -font $defaultfont -text "A variation from non transparent red to non transparent blue.\n" -anchor nw -position {20 20} -$w.zinc add rectangle 1 {10 110 690 200} -fillcolor {@axial 90|red;40|blue;40} -filled 1 +$w.zinc add rectangle 1 {10 110 690 200} -fillcolor {=axial 90|red;40|blue;40} -filled 1 -$w.zinc add text 1 -font $defaultfont -text "A variation from 40%transparent red to 40% transparent blue." -anchor nw -position {20 120} +$w.zinc add text 1 -font $defaultfont -text "A variation from 40%transparent red to 40% transparent blue." -anchor nw -position {20 120} -$w.zinc add rectangle 1 {10 210 690 300} -fillcolor {@axial 90|red;40|green;40 50|blue;40} -filled 1 +$w.zinc add rectangle 1 {10 210 690 300} -fillcolor {=axial 90|red;40|green;40 50|blue;40} -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" -anchor nw -position {20 220} $w.zinc add text 1 -font $defaultfont -text "Two overlaping transparently colored rectangles 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 {200 350 500 580} -fillcolor {@axial 90|red;40|green;40 50|blue;40} -filled 1 +$w.zinc add rectangle 1 {10 340 690 590} -fillcolor white -filled 1 +$w.zinc add rectangle 1 {200 350 500 580} -fillcolor {=axial 0 0|red;40|green;40 50|blue;40} -filled 1 -$w.zinc add rectangle 1 {10 400 690 500} -fillcolor {@axial 90|yellow;40|black;40 50|cyan;40} -filled 1 +$w.zinc add rectangle 1 {10 400 690 500} -fillcolor {=axial 90|yellow;40|black;40 50|cyan;40} -filled 1 |