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