From 01a303bb709245ac48a7fa75a41bbd54fa903cbb Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 23 Feb 2004 09:18:29 +0000
Subject: More reworking of Tcl demos

---
 demos/rotation.tcl | 93 ------------------------------------------------------
 1 file changed, 93 deletions(-)
 delete mode 100644 demos/rotation.tcl

(limited to 'demos/rotation.tcl')

diff --git a/demos/rotation.tcl b/demos/rotation.tcl
deleted file mode 100644
index feb899f..0000000
--- a/demos/rotation.tcl
+++ /dev/null
@@ -1,93 +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."
-}
-
-set angle [expr 3.1416/6]
-
-set w .rotation
-catch {destroy $w}
-toplevel $w
-wm title $w "Zinc Rotation Demonstration"
-wm iconname $w Rotation
-
-set defaultfont [font create -family Helvetica -size 10 -weight bold]
-
-frame $w.buttons
-pack $w.buttons -side bottom -fill x -pady 2m
-button $w.buttons.dismiss -text Dismiss -command "destroy $w"
-button $w.buttons.code -text "See Code" -command "showCode $w"
-pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
-
-
-
-###########################################
-# Text zone
-###########################################
-
-text $w.text -relief sunken -borderwidth 2 -height 4
-pack $w.text -expand yes -fill both
-
-$w.text insert end "This toy-appli shows rotations on waypoint items.\nThe following operations are possible:\nClick <- for negative rotation\nClick -> for positive rotation"
-
-
-###########################################
-# Zinc
-###########################################
-set zinc_width 600
-set zinc_height 500
-zinc $w.zinc -width $zinc_width -height $zinc_height -font 10x20 -borderwidth 3 -relief sunken
-pack $w.zinc
-
-###########################################
-# Waypoints
-###########################################
-
-set wp_group [$w.zinc add group 1 -visible 1]
-
-set p1 {200 200}
-set wp1 [$w.zinc add waypoint $wp_group 1 -position $p1 -connectioncolor green -symbolcolor blue -labelformat {x20x18+0+0} -leaderwidth 0 -labeldx -20]
-
-$w.zinc itemconfigure $wp1 0 -text DO
-
-
-set p2 {300 300}
-set wp2 [$w.zinc add waypoint $wp_group 1 -position $p2 -connecteditem $wp1 -connectioncolor blue -symbolcolor blue -labelformat {x20x18+0+0} -leaderwidth 0 -labeldx -20]
-
-$w.zinc itemconfigure $wp2 0 -text RE
-
-
-set p3 {400 150}
-set wp3 [$w.zinc add waypoint $wp_group 2 -position $p3 -connecteditem $wp2 -connectioncolor blue -symbolcolor blue -labelformat {x20x18+0+0} -leaderwidth 0 -labeldx 20 -labeldy +10]
-
-$w.zinc itemconfigure $wp3 0 -text MI
-
-
-###################################################
-# control panel
-###################################################
-frame $w.rc
-pack $w.rc
-
-button $w.rc.left -width 2 -height 2 -text "<-" -command {
-    global w
-    # Negative rotation
-    #--------------------------------
-    set x [lindex [lindex [$w.zinc coords $wp2] 0 ] 0]
-    set y [lindex [lindex [$w.zinc coords $wp2] 0 ] 1]
-    #the center of the rotation is $wp2
-    $w.zinc rotate $wp_group -$angle $x $y
-}
-pack $w.rc.left -side left
-
-button $w.rc.right -width 2 -height 2 -text "->" -command {
-    global w
-    # Positive rotation
-    #--------------------------------
-    set x [lindex [lindex [$w.zinc coords $wp2] 0 ] 0]
-    set y [lindex [lindex [$w.zinc coords $wp2] 0 ] 1]
-    $w.zinc rotate $wp_group $angle $x $y
-}
-pack $w.rc.right -side right
-- 
cgit v1.1