diff options
| author | lecoanet | 2004-04-30 11:42:12 +0000 |
|---|---|---|
| committer | lecoanet | 2004-04-30 11:42:12 +0000 |
| commit | a7fc6fca1397fea8414a2e5f103c150f6577ba92 (patch) | |
| tree | 2c7ce3e55d9c5f2b798f8101de3c5d43e7afcc7a /demos/curveBezier.tcl | |
| parent | adc3b48c49d89cc01692f22402c1653ef09e48f1 (diff) | |
| download | tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.zip tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.gz tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.bz2 tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.xz | |
Updated the demos following the change (hopefully last) in coords
Diffstat (limited to 'demos/curveBezier.tcl')
| -rw-r--r-- | demos/curveBezier.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/demos/curveBezier.tcl b/demos/curveBezier.tcl index 8531ce0..2cc0a6d 100644 --- a/demos/curveBezier.tcl +++ b/demos/curveBezier.tcl @@ -13,8 +13,8 @@ wm title $w "Zinc Curve Bezier Demonstration" wm iconname $w Curve set defaultfont [font create -family Helvetica -size 10 -weight bold] -set imagePath [file join $zinc_library demos images] -set texture [image create photo -file [file join $imagePath paper-grey1.gif]] +#set imagePath [file join $zinc_library demos images] +#set texture [image create photo -file [file join $imagePath paper-grey1.gif]] set splineColor \#AA0000 set handleColor grey70 set barColor grey30 @@ -36,7 +36,8 @@ $w.text insert 0.0 { You can move the handles to modify the bezier curves } -zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 -tile $texture +#zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 -tile $texture +zinc $w.zinc -width 700 -height 650 -font 9x15 -borderwidth 0 -backcolor #898A8F pack $w.zinc |