demos/tcl/xs.tcl

45 set v(psfilet) {tmp$N.ps}
121 	set v(psfilecmd) {cp -f _xspr$n.ps $v(psfile)}
136 	set v(psfilecmd) {command.com /c copy _xspr$n.ps $v(psfile)}
413 pack [button .tb.print -command {Print .cf.fc.c -1} -image snackPrint -highlightthickness 0 -border $border] -side left
1268 		    if {[scan $row {%f %d %s %[^�]} end color label rest] >= 3} {
1269 			lappend l "$end\n$color\n$label\n$rest"
1335 		    scan $row {%f %d %s %[^�]} end color label rest
1336 		    puts $out [format "    %.6f  %d %s %s" $end $color $label $rest]
2328 		    scan $row {%f %d %s} end color label
2899 	    scan [lindex $labels $i] {%f %d %s %[^�]} end color label rest
2901 	    set labels [lreplace $labels $i $i "$end\n$color\n$label\n$rest"]
2922 	    scan [lindex $labels $i] {%f %d %s %[^�]} end color junk rest
2923 	    set labels [lreplace $labels $i $i "$end\n$color\n$label\n$rest"]
3153 		scan [lindex $labels $i] {%f %d %s %[^�]} junk color label rest
3154 		set labels [lreplace $labels $i $i "$end\n$color\n$label\n$rest"]
3158 		    scan [lindex $labels $j] {%f %d %s %[^�]} junk color label rest
3159 		    set labels [lreplace $labels $j $j "$start\n$color\n$label\n$rest"]
3214 		scan $row {%f %d %s %[^�]} end color label rest
3217 		    lappend l "$end\n$color\n$label\n$rest"
3222 		    lappend l "$end\n$color\n$label\n$rest"
3287 	    scan [lindex $labels $i] {%f %d %s %[^�]} junk color label rest
3288 	    set labels [lreplace $labels $i $i "$t\n$color\n$label\n$rest"]
3939     set ps [snd dBPowerSpectrum -start $s(start) -end $s(end) \
3954 	foreach e $ps {
4257     label $w.l.f41.l -text "Foreground color:" -width 25 -anchor w
4263     label $w.l.f41b.l -text "Background color:" -width 25 -anchor w
4281     label $w.l.f44.l -text "Grid color:" -width 25 -anchor w
4287     label $w.l.f45.l -text "Spectrogram color:" -width 25 -anchor w
4463     set w .print
4481     button $w.f2.b1 -text Print -command [list DoPrint print $canvas $h] -wi 8
4483     bind $w.f2.e1 <Key-Return> [list DoPrint print $canvas $h]
4494     label $w.f4.l1 -text "Save to ps-file:" -wi 16
4548 	    $c postscript -file _xspr$n.ps -colormode mono -rotate true -x $x -y -20 -width $width -height [expr $canvh + 20] -pagewidth 26c
4551 		print {
4552 		    regsub {\$FILE} $v(printcmd) _xspr$n.ps cmd
4555 		    regsub {\$FILE} $v(gvcmd) _xspr$n.ps cmd
4558 		    regsub {\$FILE} $v(psfilecmd) _xspr$n.ps cmd
4563 	    file delete _xspr$n.ps