1# xyplot_demo.tcl -- 2# Demonstration of the xyplot package 3# 4 5package require xyplot 6 7set xydata1 {} 8set xydata2 {} 9set xydata3 {} 10set xydata4 {} 11for { set i 0 } { $i < 1024 } { incr i } { 12 lappend xydata1 [expr {$i-1000}] [expr {$i * sin($i/4096.0*3.1415*2) * (sin($i/256.0*3.1415*2))}] 13 lappend xydata2 [expr {$i-1000}] [expr {$i * sin($i/4096.0*3.1415*2) * (sin($i/256.0*3.1415*2) + 0.25 * sin($i/256.0*3.1415*6))}] 14 lappend xydata3 [expr {$i-1000}] [expr {$i * sin($i/4096.0*3.1415*2) * (sin($i/256.0*3.1415*2) + 0.25 * sin($i/256.0*3.1415*6) + 0.0625 * sin($i/256.0*3.1415*10))}] 15 lappend xydata4 [expr {$i-1000}] [expr {$i * sin($i/4096.0*3.1415*2) * (sin($i/256.0*3.1415*2) + 0.25 * sin($i/256.0*3.1415*6) + 0.0625 * sin($i/256.0*3.1415*10) + 0.015625 * sin($i/256.0*3.1415*14))}] 16} 17 18set xyp [xyplot .xyp -xformat "%5.0f" -yformat "%5.0f" -title "XY plot testing" -background gray90] 19pack $xyp -fill both -expand true 20 21set s1 [$xyp add_data sf1 $xydata1 -legend "Serie 1 data" -color red] 22set s2 [$xyp add_data sf2 $xydata2 -legend "Serie 2 data" -color green] 23set s3 [$xyp add_data sf3 $xydata3 -legend "Serie 3 data" -color blue] 24set s4 [$xyp add_data sf4 $xydata4 -legend "Serie 4 data" -color orange] 25 26set xyp2 [xyplot .xyp2 -xticks 8 -yticks 4 -yformat %.2f -xformat %.0f] 27pack $xyp2 -fill both -expand true 28 29set s1 [$xyp2 add_data sf1 $xydata1] 30set s2 [$xyp2 add_data sf2 $xydata2] 31set s3 [$xyp2 add_data sf3 $xydata3] 32set s4 [$xyp2 add_data sf4 $xydata4] 33