aboutsummaryrefslogtreecommitdiff
path: root/demos
diff options
context:
space:
mode:
Diffstat (limited to 'demos')
-rw-r--r--demos/curveBezier.tcl18
-rw-r--r--demos/magicLens.tcl14
-rw-r--r--demos/testGraphics.tcl3
3 files changed, 13 insertions, 22 deletions
diff --git a/demos/curveBezier.tcl b/demos/curveBezier.tcl
index a26f5b8..8531ce0 100644
--- a/demos/curveBezier.tcl
+++ b/demos/curveBezier.tcl
@@ -46,8 +46,7 @@ $w.zinc add text $group -position {50 20} -anchor w -color $textColor \
-text {Examples of curve items using cubic bezier control points}
## Please note: much of the items below could be computed
-set t [$w.zinc add text $group -anchor w -tags bezier1 -color $textColor -width 270]
-$w.zinc translate $t 25 270
+$w.zinc add text $group -anchor w -position {25 270} -tags bezier1 -color $textColor -width 270
$w.zinc add curve $group {100 200 100 100} -tags {line1 l1-2} \
-linecolor $barColor -filled 0 -linewidth 2
$w.zinc add curve $group {400 100 400 200} -tags {line1 l3-4} \
@@ -63,8 +62,7 @@ $w.zinc add arc $group {390 90 410 110} -tags {handle1 p3} -filled 1 \
$w.zinc add arc $group {390 190 410 210} -tags {handle1 p4} -filled 1 \
-fillcolor \#BBBBBB
-set t [$w.zinc add text $group -anchor w -tags bezier2 -color $textColor -width 270]
-$w.zinc translate $t 570 270
+$w.zinc add text $group -anchor w -position {570 270} -tags bezier2 -color $textColor -width 270
$w.zinc add curve $group {600 200 675 100} -tags {line2 l1-2} \
-linecolor $barColor -linewidth 2
$w.zinc add curve $group {975 100 900 200} -tags {line2 l3-4} \
@@ -80,8 +78,7 @@ $w.zinc add arc $group {965 90 985 110} -tags {handle2 p3} -filled 1 \
$w.zinc add arc $group {890 190 910 210} -tags {handle2 p4} -filled 1 \
-fillcolor $handleColor
-set t [$w.zinc add text $group -anchor w -tags bezier3 -color $textColor -width 270]
-$w.zinc translate $t 25 570
+$w.zinc add text $group -anchor w -position {25 570} -tags bezier3 -color $textColor -width 270
$w.zinc add curve $group {100 500 25 400} -tags {line3 l1-2} \
-linecolor $barColor -linewidth 2
$w.zinc add curve $group {475 400 400 500} -tags {line3 l3-4} \
@@ -97,8 +94,7 @@ $w.zinc add arc $group {465 390 485 410} -tags {handle3 p3} -filled 1 \
$w.zinc add arc $group {390 490 410 510} -tags {handle3 p4} -filled 1 \
-fillcolor $handleColor
-set t [$w.zinc add text $group -anchor w -tags bezier4 -color $textColor -width 270]
-$w.zinc translate $t 570 570
+$w.zinc add text $group -anchor w -position {570 570} -tags bezier4 -color $textColor -width 270
$w.zinc add curve $group {600 500 600 350} -tags {line4 l1-2} \
-linecolor $barColor -linewidth 2
$w.zinc add curve $group {900 650 900 500} -tags {line4 l3-4} \
@@ -114,8 +110,7 @@ $w.zinc add arc $group {890 640 910 660} -tags {handle4 p3} -filled 1 \
$w.zinc add arc $group {890 490 910 510} -tags {handle4 p4} -filled 1 \
-fillcolor $handleColor
-set t [$w.zinc add text $group -anchor w -tags bezier5 -color $textColor -width 270]
-$w.zinc translate $t 25 870
+$w.zinc add text $group -anchor w -position {25 870} -tags bezier5 -color $textColor -width 270
$w.zinc add curve $group {100 800 175 700} -tags {line5 l1-2} \
-linecolor $barColor -filled 0 -linewidth 2
$w.zinc add curve $group {325 700 400 800} -tags {line5 l3-4} \
@@ -131,8 +126,7 @@ $w.zinc add arc $group {315 690 335 710} -tags {handle5 p3} -filled 1 \
$w.zinc add arc $group {390 790 410 810} -tags {handle5 p4} -filled 1 \
-fillcolor $handleColor
-set t [$w.zinc add text $group -anchor w -tags bezier6 -color $textColor -width 280]
-$w.zinc translate $t 570 970
+$w.zinc add text $group -anchor w -position {570 970} -tags bezier6 -color $textColor -width 280
$w.zinc add curve $group {600 800 625 700} -tags {line6 l1-2} \
-linecolor $barColor -linewidth 2
$w.zinc add curve $group {725 700 750 800} -tags {line6 l3-4} \
diff --git a/demos/magicLens.tcl b/demos/magicLens.tcl
index b44254b..251a902 100644
--- a/demos/magicLens.tcl
+++ b/demos/magicLens.tcl
@@ -187,8 +187,8 @@ set zinc [zinc $w.z -render 1 -width 1000 -height 900 -borderwidth 0 \
pack $w.z -fill both -expand yes
set imagePath [file join $zinc_library demos images]
-set texture [image create photo -file [file join $imagePath paper-grey1.gif]]
-set lensTexture [image create photo -file [file join $imagePath paper-grey.gif]]
+set texture [image create photo texture -file [file join $imagePath paper-grey1.gif]]
+set lensTexture [image create photo lensTexture -file [file join $imagePath paper-grey.gif]]
$zinc configure -tile $texture
# Create the views
@@ -258,10 +258,9 @@ for {set i 0} {$i < 12} {incr i} {
# Text of label (% saturation + ZnColor)
set txtColor "[expr ((10 - $c)*10)]%\n$color"
- set t [$zinc add text $lGroup -priority 200 -position {0 0} \
- -text $txtColor -anchor center -alignment center -font $font8 -spacing 2 \
- -composescale 0]
- $zinc translate $t 0 [expr ($c + 1)* 65]
+ $zinc add text $lGroup -priority 200 -position [list 0 [expr ($c + 1)* 65]] \
+ -text $txtColor -anchor center -alignment center -font $font8 -spacing 2 \
+ -composescale 0
}
incr x 80
@@ -284,12 +283,11 @@ set lensZone [$zinc clone lensback -tags lenszone]
$zinc chggroup $lensZone $lensView true
$zinc itemconfigure $lensView -clip $lensZone
-set consigne [$zinc add text 1 -position {0 0} -font $font8 -alignment left \
+set consigne [$zinc add text 1 -position {30 840} -font $font8 -alignment left \
-color \#ffffff -spacing 2 \
-text "<Up>, <Down>, <Left> and <Right> keys or <Mouse Drag>
Move the Magic Color Lens behind the color gradiants
to see the ZnColor value of Hue/saturation"]
-$zinc translate $consigne 30 840
set cClone [$zinc clone $consigne -font $font9b]
$zinc chggroup $cClone $infoView
diff --git a/demos/testGraphics.tcl b/demos/testGraphics.tcl
index 1a9fee1..8c471ab 100644
--- a/demos/testGraphics.tcl
+++ b/demos/testGraphics.tcl
@@ -2037,8 +2037,7 @@ foreach {shapes tCoords} [zincGraphics::TabBoxCoords {{-315 -210} {315 210}} \
-tabheight 26 -tabwidth {92 100 82 82 82 120 80}] break
# to find some images (used as textures) needed by this demo
set imagePath [file join $zinc_library demos images]
-set texture [image create photo -file [file join $imagePath paper.gif]]
-
+set texture [image create photo texture -file [file join $imagePath paper.gif]]
# création des items zinc correspondants
set i 0
set pageNames {Rectangle Hippodrome Polygone Polyline PathLine MultiContours TabBox}