wm title . "Linea curva" canvas .c -width 100 -height 70 set coord_xy { 20 10 30 30 50 20 80 60 } .c create line $coord_xy -smooth on -width 3 -arrow both -fill DeepSkyBlue3 pack .c

linea_curva.tcl