From e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Mon, 24 Jan 2005 15:46:33 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'POSTSCRIPT'.

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

(limited to 'demos/colorCircular.tcl')

diff --git a/demos/colorCircular.tcl b/demos/colorCircular.tcl
deleted file mode 100644
index e829fd8..0000000
--- a/demos/colorCircular.tcl
+++ /dev/null
@@ -1,63 +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 colorCircular {
-    variable w .colorCircular
-    catch {destroy $w}
-    toplevel $w
-    wm title $w "Zinc Color Circular Demonstration"
-    wm iconname $w "Color Circular"
-
-    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
-
-    variable defaultfont [font create -family Helvetica -size 14 -weight normal]
-
-    grid [zinc $w.zinc -width 700 -height 600 -borderwidth 3 -relief sunken -render 1] \
-	-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
- 
-    $w.zinc add rectangle 1 {10 10 80 80} -fillcolor {=radial 50 50|red|blue} -filled 1
-    $w.zinc add text 1 -font $defaultfont -text {Radial variation from non-transparent red to non-transparent blue in a square.
-The gradient starts in the lower right corner.} -anchor nw -position {120 20}
-
-    $w.zinc add arc 1 {10 110 90 190} -fillcolor {=radial 0 25|red;40|blue;40} -filled 1
-
-    $w.zinc add text 1 -font $defaultfont -text {Radial variation from 40% transparent red to 40% transparent blue in a disc.
-The gradient starts mid way between the center and the bottom.} \
-	-anchor nw -position {120 120}
-
-    $w.zinc add arc 1 {10 210 90 290} -fillcolor {=radial 0 0|red;40|green;40 50|blue;40} -filled 1
-
-    $w.zinc add text 1 -font $defaultfont -text {A variation from 40% transparent red to 40% transparent blue
-through 40% green in the middle of the disc. The gradient is centered.} \
-	-anchor nw -position {120 220}
-
-    $w.zinc add text 1 -font $defaultfont -anchor w -position {20 320} \
-	-text {Two overlapping items filled by a transparent radial gradient on a white background.
-On the right three gradient filled ovals, note the warped gradients following the ovals.}
-
-    $w.zinc add rectangle 1 {10 340 690 590} -fillcolor white -filled  1 
-
-    $w.zinc add rectangle 1 {20 365 220 565} -fillcolor {=radial 0 0|red;40|green;40 50|blue;40} -filled 1
-
-    $w.zinc add arc 1 {150 365 350 565} -fillcolor {=radial 0 0|yellow;40|black;40 50|cyan;40} -filled 1
-
-    $w.zinc add arc 1 {280 365 480 565} -fillcolor {=radial 0 0|black;100|black;100 20|mistyrose;40} -filled 1 -linewidth 0
-
-    variable warc [$w.zinc add arc 1 {-50 -50 50 50} \
-		       -fillcolor {=radial -10 16|black;80|blue;20 90 100} -filled 1]
-    $w.zinc scale $warc 1.5 1
-    $w.zinc translate $warc 500 432
-
-    variable warc [$w.zinc add arc 1 {-50 -50 50 50} \
-		       -fillcolor {=radial 0 20|black;70|green;20} -filled 1]
-    $w.zinc scale $warc 1 1.5
-    $w.zinc translate $warc 630 432
-}
-- 
cgit v1.1