Anonymous user
Bitmap/Bézier curves/Cubic: Difference between revisions
m
→{{header|Tcl}}: add sample image
m (→{{header|Tcl}}: link to tk library) |
m (→{{header|Tcl}}: add sample image) |
||
Line 298:
proc bezier {t points} {
set n [expr {[llength $points] - 1}]
for {set i 0; set sum 0.0} {$i <= $n} {incr i} {
set sum [expr {$sum + [C $n $i] * (1-$t)**($n - $i) * $t**$i * [y [lindex $points $i]]}]
}
Line 337 ⟶ 336:
button .exit -command exit -text Exit
pack .new .img .exit -side top</lang>
Results in:
[[Image:Tcl_cubic_bezier.png]]
| |||