aboutsummaryrefslogtreecommitdiff
path: root/sandbox/smooth.tcl
blob: ad34d370cf68bce45d28da0ed91f9f230fafcb96 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/wish -f

load tkzinc3.1.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 bezier $view $smooth \
	-linecolor yellow -fillcolor tan -fillpattern AlphaStipple8 \
	-tags "bezier" -linewidth $lw]
set mp2 [.r add bezier $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"