From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 sandbox/smooth.tcl | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 sandbox/smooth.tcl

(limited to 'sandbox/smooth.tcl')

diff --git a/sandbox/smooth.tcl b/sandbox/smooth.tcl
deleted file mode 100644
index 9260f7b..0000000
--- a/sandbox/smooth.tcl
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/local/bin/wish -f
-
-load ../tkzinc3.2.so
-package require Img
-
-set top 1
-set points "50 -150 100 -50 270 -130 220 -200 200 -180 180 -300 140 -320 70 -300"
-set lw 3
-
-set r [zinc .r -backcolor gray -relief sunken]
-pack .r -expand t -fill both
-.r configure -width 800 -height 500
-.r scale $top 1 -1
-#.r configure -drawbboxes t
-set view [.r add group $top -tags controls]
-
-
-set smooth [.r smooth $points]
-set fit [.r fit  $points 0.1]
-
-
-set mp [.r add curve $view $smooth \
-	-linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \
-	-tags "bezier" -linewidth $lw]
-set mp2 [.r add curve $view $fit \
-	-linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \
-	-tags "bezier" -linewidth $lw]
-set poly [.r add curve $view $points -marker AtcSymbol9]
-set poly2 [.r add curve $view $points -marker AtcSymbol9]
-
-.r translate $mp2 300 0
-.r translate $poly2 300 0
-
-source "controls.tcl"
-- 
cgit v1.1