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/lines.tcl | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 demos/lines.tcl

(limited to 'demos/lines.tcl')

diff --git a/demos/lines.tcl b/demos/lines.tcl
new file mode 100644
index 0000000..dab5f0a
--- /dev/null
+++ b/demos/lines.tcl
@@ -0,0 +1,51 @@
+# 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 .lines
+catch {destroy $w}
+toplevel $w
+wm title $w "Zinc Lines Demonstration"
+wm iconname $w Lines
+
+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 -font 10x20 -borderwidth 3 -relief sunken
+pack $w.zinc
+
+$w.zinc add text 1 -font $defaultfont -text "A set of lines with different styles of lines and termination\nNB: some attributes such as line styles are not necessarily\navailable with an openGL rendering system" -anchor nw -position {20 20}
+
+$w.zinc add curve 1 {20 100 320 100}
+$w.zinc add curve 1 {20 120 320 120} -linewidth 20
+
+$w.zinc add curve 1 {20 160 320 160} -linewidth 20 -capstyle butt
+
+$w.zinc add curve 1 {20 200 320 200} -linewidth 20 -capstyle projecting
+
+$w.zinc add curve 1 {20 240 320 240} -linewidth 20 -linepattern AlphaStipple7 -linecolor red
+
+
+# right column
+$w.zinc add curve 1 {340 100 680 100} -firstend {10 10 10} -lastend {10 25 45}
+
+$w.zinc add curve 1 {340 140 680 140} -linewidth 2 -linestyle dashed
+
+$w.zinc add curve 1 {340 180 680 180} -linewidth 4 -linestyle mixed
+
+$w.zinc add curve 1 {340 220 680 220} -linewidth 2 -linestyle dotted
+
+
+$w.zinc add curve 1 {20 300 140 360 320 300 180 260} -closed 1 -filled 1 -fillpattern "" -fillcolor grey60 -linecolor red -marker AtcSymbol7 -markercolor blue
+
+
+$w.zinc add curve 1 {340 300 440 360 620 300 480 260} -closed 1 -linewidth 10 -joinstyle miter -linecolor red
+
+$w.zinc add curve 1 {400 300 440 330 560 300 480 280} -closed 1 -linewidth 10 -joinstyle round -tile "" -fillcolor grey60 -filled 1 -linecolor red
-- 
cgit v1.1