diff options
Diffstat (limited to 'demos/contours.tcl')
| -rw-r--r-- | demos/contours.tcl | 202 |
1 files changed, 0 insertions, 202 deletions
diff --git a/demos/contours.tcl b/demos/contours.tcl deleted file mode 100644 index 4f08fca..0000000 --- a/demos/contours.tcl +++ /dev/null @@ -1,202 +0,0 @@ -# these simple samples have been developped by C. Mertz mertz@cena.fr in perl -# tcl version by Jean-Paul Imbert imbert@cena.fr - -if {![info exists zincDemo]} { - error "This script should be run from the zinc-widget demo." -} - -namespace eval contoursDemo { - variable w .contours - catch {destroy $w} - toplevel $w - wm title $w "Zinc Curve contours Demonstration" - wm iconname $w Curve - - grid [button $w.dismiss -text Dismiss -command "destroy $w"] -row 2 -column 0 -pady 10 - grid [button $w.code -text "See Code" -command "showCode $w"] -row 2 -column 1 -pady 10 - - # The explanation displayed when running this demo - grid [text $w.text -relief sunken -borderwidth 2 -setgrid true -height 9] \ - -row 0 -column 0 -columnspan 2 -sticky ew - - $w.text insert end "All visibles items are made by combining 2 items using contours: - - the firebrick curve1 has been holed using a addhole with a circle, - - the lightblue curve2 has been mickey-moused by adding two circles, - - the yellow curve3 is the union with a disjoint circle, - - the grey curve4 is combined with 7 circles, with positive -fillrule. -The following operations are possible: - - Mouse Button 1 for dragging objects. - - Mouse Button 1 for dragging the black handle and - modifying the grey curve contour." - - # Creating the zinc widget - grid [zinc $w.zinc -width 600 -height 500 -borderwidth 3 \ - -relief sunken] -row 1 -column 0 -columnspan 2 -sticky news - grid columnconfigure $w 0 -weight 1 - grid columnconfigure $w 1 -weight 1 - grid rowconfigure $w 1 -weight 2 - - variable top 1 - - # Creation of 2 items NOT visible, but used for creating visible - # curves[1-5] with more than one contours. - # The center of these 2 items is 200,100 - - variable curve0 [$w.zinc add curve $top { - {300 0} {400 100 c} {300 200} {200 300 c} {100 200} {0 100 c} {100 0} - } -closed 1 -visible 0 -filled 1] - variable cercle100 [$w.zinc add arc 1 {130 30 280 180} -visible 0] - - - # cloning curve0 as curve1 and moving it - variable curve1 [$w.zinc clone $curve0 -visible 1 -fillcolor firebrick1] - # adding a 'difference' contour to the curve1 - $w.zinc contour $curve1 add 1 $cercle100 - - - # cloning curve0 as curve2 and moving it - # creating a curve without contour to control contour clockwise/counterclockwise - variable curve2 [$w.zinc add curve $top {} -closed 1 -filled 1 \ - -fillcolor lightblue2 -fillrule positive] - $w.zinc contour $curve2 add +1 $curve0 - $w.zinc translate $curve2 100 90 - - # adding the left ear of mickey mouse! - $w.zinc contour $curve2 add +1 $cercle100 - $w.zinc translate $curve2 -200 0 - - # adding the right ear of mickey mouse! - $w.zinc contour $curve2 add +1 $cercle100 - - # ... translate to make it more visible - $w.zinc translate $curve2 320 20 - - # cloning curve0 as curve3 and moving it - variable curve3 [$w.zinc clone $curve0 -visible 1 -fillcolor yellow3] - $w.zinc translate $curve3 0 290 - - # adding an nion' contour to the curve3 - $w.zinc contour $curve3 add +1 $cercle100 - # ... translate to make it more visible - $w.zinc translate $curve3 -130 0 - - - - - # cloning curve0 as curve4 and moving it slightly - variable curve4 [$w.zinc clone $curve0 -visible 1 -fillcolor grey50 \ - -tags grouped -fillrule positive] - # the tag "grouped" is used for both curve4 and - # a handle (see just below) - # It is used for translating both easily - - - variable index 2; ## index of the vertex associated to the handle - variable coord [$w.zinc coords $curve4 0 $index] - variable x [lindex $coord 0] - variable y [lindex $coord 1] - variable handle [$w.zinc add rectangle $top "[expr $x-5] [expr $y-5] [expr $x+5] [expr $y+5]" \ - -fillcolor black -filled 1 -tags {grouped}] - - - # adding a 'difference' contour to the curve4 - $w.zinc contour $curve4 add +1 $cercle100 - $w.zinc translate grouped 110 0 - $w.zinc contour $curve4 add +1 $cercle100 - $w.zinc translate grouped -220 0 - $w.zinc contour $curve4 add +1 $cercle100 - $w.zinc translate grouped 10 80 - $w.zinc contour $curve4 add -1 $cercle100 - $w.zinc translate grouped 0 -10 - $w.zinc contour $curve4 add +1 $cercle100 - - $w.zinc translate grouped 200 80 - $w.zinc contour $curve4 add +1 $cercle100 - $w.zinc translate grouped -350 0 - $w.zinc contour $curve4 add +1 $cercle100 - - $w.zinc translate grouped 350 250 - #$zinc->lower(grouped); - - # Deleting no more usefull items: curve0 and cercle10: - $w.zinc remove $curve0 $cercle100 - - $w.zinc raise $curve1 - - # adding drag and drop callback to each visible curve! - foreach item "$curve1 $curve2 $curve3 $curve4" { - # Some bindings for dragging the items - $w.zinc bind $item <ButtonPress-1> "::contoursDemo::press $item motion %x %y" - $w.zinc bind $item <ButtonRelease-1> ::contoursDemo::release - } - - # adding drag and drop on curve4 which also moves handle - $w.zinc bind $curve4 <ButtonPress-1> "::contoursDemo::press $curve4 motionWithHandle %x %y" - $w.zinc bind $curve4, <ButtonRelease-1> ::contoursDemo::release - - # adding drag and drop on handle which also modify curve4 - $w.zinc bind $handle <ButtonPress-1> "::contoursDemo::press $handle moveHandle %x %y" - $w.zinc bind $handle <ButtonRelease-1> ::contoursDemo::release - - # callback for starting a drag - variable xOrig 0 - variable yOrig 0 - - proc press {item action x y} { - variable w - variable xOrig - variable yOrig - - set xOrig $x - set yOrig $y - bind $w.zinc <Motion> "::contoursDemo::$action $item %x %y" - } - - # Callback for moving an item - proc motion {item x y} { - variable w - variable xOrig - variable yOrig - - $w.zinc translate $item [expr $x - $xOrig] [expr $y - $yOrig] - set xOrig $x - set yOrig $y - } - - # Callback for moving an item and its handle - proc motionWithHandle {item x y} { - variable w - variable xOrig - variable yOrig - - set tag [lindex [$w.zinc itemcget $item -tags] 0] - $w.zinc translate $tag [expr $x-$xOrig] [expr $y-$yOrig] - set xOrig $x; - set yOrig $y; - } - - # Callback for moving the handle and modifying curve4 - # this code is far from being generic. Only for demonstrating how we can - # modify a contour with a unique handle! - proc moveHandle {handle x y} { - variable w - variable xOrig - variable yOrig - variable curve4 - variable index - - $w.zinc translate $handle [expr $x - $xOrig] [expr $y - $yOrig]; - - foreach {vertxX vertxY} [$w.zinc coords $curve4 0 $index] break - $w.zinc coords $curve4 0 $index "[expr $vertxX+($x-$xOrig)] [expr $vertxY+($y-$yOrig)]" - set xOrig $x - set yOrig $y - } - - - proc release {} { - variable w - - bind $w.zinc <Motion> {} - } -} |