From 0d406ebf18a0fefdbc7df031d3df106b8d204d64 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 24 Mar 2003 12:24:56 +0000
Subject: Portage depuis perl

---
 demos/colorCircular.tcl | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 demos/colorCircular.tcl

(limited to 'demos/colorCircular.tcl')

diff --git a/demos/colorCircular.tcl b/demos/colorCircular.tcl
new file mode 100644
index 0000000..bb9b75b
--- /dev/null
+++ b/demos/colorCircular.tcl
@@ -0,0 +1,47 @@
+# 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 w .color-circular
+catch {destroy $w}
+toplevel $w
+wm title $w "Zinc Color Circular Demonstration"
+wm iconname $w "Color Circular"
+
+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
+
+set defaultfont "-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*"
+zinc $w.zinc -width 700 -height 600 -borderwidth 3 -relief sunken -render 1
+pack $w.zinc
+
+$w.zinc add rectangle 1 {10 10 80 80} -fillcolor {red|blue 50 50} -filled 1
+$w.zinc add text 1 -font $defaultfont -text "Radial variation from non-transparent red to non-transparent blue\nin a squarre. The gradient starts from the lower right corner.\n" -anchor nw -position {120  20}
+$w.zinc add arc 1 {10  110  90  190} -fillcolor {red;40|blue;40 0 25} -filled 1
+
+$w.zinc add text 1 -font $defaultfont -text "Radial variation from 40%transparent red to 40% transparent blue\nin a disc. The gradient starts in the middle between\nthe center on the bottom point" -anchor nw -position {120  120}
+
+$w.zinc add arc 1 {10  210  90  290} -fillcolor {red;40|green;40 50|blue;40 0 0} -filled 1
+
+$w.zinc add text 1 -font $defaultfont -text "A variation from 40%transparent red to 40% transparent blue.\nthrough a 40%green on the middle of the disc. The gradient is centered." -anchor nw -position {120 220}
+
+$w.zinc add text 1 -font $defaultfont -text "Two overlaping radialy  transparently colored items on a white background" -anchor nw -position {20  320}
+
+$w.zinc add rectangle 1 {10  340  690  590} -fillcolor white -filled   1 
+
+$w.zinc add rectangle 1 {20  365  220  565} -fillcolor {red;40|green;40 50|blue;40 0 0} -filled 1
+
+$w.zinc add arc 1 {150  365  350  565} -fillcolor {yellow;40|black;40 50|cyan;40 0 0} -filled 1
+
+$w.zinc add arc 1 {280  365  480  565} -fillcolor {black;100|black;100 20|white;40 0 0} -filled 1 -linewidth 0
+
+$w.zinc add arc 1 {480  365  580  500} -fillcolor {black;100|white;40 -10 16} -filled 1
+
+$w.zinc add arc 1 {580  410  680  580} -fillcolor {black;70|white;20 -40 -40} -filled 1
+$w.zinc  add arc 1 {580  410  680  580} -fillcolor {black;70|white;20    40 40} -filled 1
\ No newline at end of file
-- 
cgit v1.1