diff options
author | cvs2svn | 2005-01-24 15:46:33 +0000 |
---|---|---|
committer | cvs2svn | 2005-01-24 15:46:33 +0000 |
commit | e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf (patch) | |
tree | 7061a2d781348fa7d5965b7d7dd5d7ef6b27a7b0 /sandbox/allreliefs.tcl | |
parent | e1ed2c6d78bb616e24166c13126adba1b95ea4ea (diff) | |
download | tkzinc-POSTSCRIPT.zip tkzinc-POSTSCRIPT.tar.gz tkzinc-POSTSCRIPT.tar.bz2 tkzinc-POSTSCRIPT.tar.xz |
This commit was manufactured by cvs2svn to create branch 'POSTSCRIPT'.POSTSCRIPT
Diffstat (limited to 'sandbox/allreliefs.tcl')
-rw-r--r-- | sandbox/allreliefs.tcl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/sandbox/allreliefs.tcl b/sandbox/allreliefs.tcl deleted file mode 100644 index 291a02b..0000000 --- a/sandbox/allreliefs.tcl +++ /dev/null @@ -1,30 +0,0 @@ -# $Id$ -# these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr - -lappend auto_path [file join [file dirname [info script]] ..] -package require Tkzinc - -set defaultfont "-adobe-helvetica-bold-r-normal-*-100-*-*-*-*-*-*" -zinc .z -width 700 -height 300 -render 1 -backcolor gray -pack .z - -set grp [.z add group 1] -.z add rectangle $grp {0 0 70 50} -filled 1 -fillcolor tan -linecolor tan \ - -linewidth 6 -relief raised -tags attrs -.z add text $grp -text raised -anchor center -font $defaultfont \ - -position {35 -10} -tags texts -.z translate $grp 20 30 - -set i 1 -foreach s {sunken ridge groove roundraised roundsunken roundridge roundgroove raisedrule sunkenrule} { - set grp [.z clone $grp] - .z itemconfigure "$grp.texts" -text $s - .z itemconfigure "$grp.attrs" -relief $s - incr i - if {$i == 5} { - .z translate $grp [expr -3*100] 80 - set i 1 - } else { - .z translate $grp 100 0 - } -} |