head	1.2;
access;
symbols
	pkgsrc-2013Q2:1.2.0.54
	pkgsrc-2013Q2-base:1.2
	pkgsrc-2012Q4:1.2.0.52
	pkgsrc-2012Q4-base:1.2
	pkgsrc-2011Q4:1.2.0.50
	pkgsrc-2011Q4-base:1.2
	pkgsrc-2011Q2:1.2.0.48
	pkgsrc-2011Q2-base:1.2
	pkgsrc-2009Q4:1.2.0.46
	pkgsrc-2009Q4-base:1.2
	pkgsrc-2008Q4:1.2.0.44
	pkgsrc-2008Q4-base:1.2
	pkgsrc-2008Q3:1.2.0.42
	pkgsrc-2008Q3-base:1.2
	cube-native-xorg:1.2.0.40
	cube-native-xorg-base:1.2
	pkgsrc-2008Q2:1.2.0.38
	pkgsrc-2008Q2-base:1.2
	pkgsrc-2008Q1:1.2.0.36
	pkgsrc-2008Q1-base:1.2
	pkgsrc-2007Q4:1.2.0.34
	pkgsrc-2007Q4-base:1.2
	pkgsrc-2007Q3:1.2.0.32
	pkgsrc-2007Q3-base:1.2
	pkgsrc-2007Q2:1.2.0.30
	pkgsrc-2007Q2-base:1.2
	pkgsrc-2007Q1:1.2.0.28
	pkgsrc-2007Q1-base:1.2
	pkgsrc-2006Q4:1.2.0.26
	pkgsrc-2006Q4-base:1.2
	pkgsrc-2006Q3:1.2.0.24
	pkgsrc-2006Q3-base:1.2
	pkgsrc-2006Q2:1.2.0.22
	pkgsrc-2006Q2-base:1.2
	pkgsrc-2006Q1:1.2.0.20
	pkgsrc-2006Q1-base:1.2
	pkgsrc-2005Q4:1.2.0.18
	pkgsrc-2005Q4-base:1.2
	pkgsrc-2005Q3:1.2.0.16
	pkgsrc-2005Q3-base:1.2
	pkgsrc-2005Q2:1.2.0.14
	pkgsrc-2005Q2-base:1.2
	pkgsrc-2005Q1:1.2.0.12
	pkgsrc-2005Q1-base:1.2
	pkgsrc-2004Q4:1.2.0.10
	pkgsrc-2004Q4-base:1.2
	pkgsrc-2004Q3:1.2.0.8
	pkgsrc-2004Q3-base:1.2
	pkgsrc-2004Q2:1.2.0.6
	pkgsrc-2004Q2-base:1.2
	pkgsrc-2004Q1:1.2.0.4
	pkgsrc-2004Q1-base:1.2
	pkgsrc-2003Q4:1.2.0.2
	pkgsrc-2003Q4-base:1.2
	buildlink2-base:1.2
	netbsd-1-4-RELEASE:1.1;
locks; strict;
comment	@# @;


1.2
date	99.06.04.23.45.45;	author rvb;	state dead;
branches;
next	1.1;

1.1
date	99.04.28.23.56.35;	author rvb;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Sync with 5.2.4
@
text
@$NetBSD: patch-dn,v 1.1 1999/04/28 23:56:35 rvb Exp $

diff -u /usr/pkgsrc/net/coda-5.2.2/coda-src/vtools/logbandwidth.in ./coda-src/vtools/logbandwidth.in
--- /usr/pkgsrc/net/coda-5.2.2/coda-src/vtools/logbandwidth.in	Thu Mar 11 23:18:26 1999
+++ ./coda-src/vtools/logbandwidth.in	Mon Apr 26 13:58:38 1999
@@@@ -22,9 +22,11 @@@@
 #
 set strip_value1   0
 set strip_value2   0
+set strip_value3   0
 set strip_interval 1000
 set strip_log1     [ list ]
 set strip_log2     [ list ]
+set strip_log3     [ list ]
 set strip_idx      0
 set strip_label    ""
 
@@@@ -40,21 +42,38 @@@@
 for { set x 0 } { $x < 200 } { incr x } {
   lappend strip_log1 0
   lappend strip_log2 0
+  lappend strip_log3 0
 }
 
 proc strip_draw {} {
   global strip_log1 strip_value1
+  global strip_log2 strip_value2
+  global strip_log3 strip_value3
   global strip_interval strip_idx strip_label
 
   set strip_log1 [ lreplace $strip_log1 $strip_idx $strip_idx $strip_value1 ]
+  set strip_log2 [ lreplace $strip_log2 $strip_idx $strip_idx $strip_value2 ]
+  set strip_log3 [ lreplace $strip_log3 $strip_idx $strip_idx $strip_value3 ]
 
   .strip_graph delete data
 
   set i [ expr 202 - $strip_idx ]
-  foreach v1 $strip_log1 {
+  foreach v1 $strip_log1 v2 $strip_log2 v3 $strip_log3 {
     if { $v1 < 100 } { set v1 100 }
-    set val1 [ expr 102 - ( ( log10($v1) - 3 ) * 20 ) ]
-    .strip_graph create line $i 103 $i $val1 -tags data -fill LightSlateBlue
+    if { $v2 < 100 } { set v2 100 }
+    if { $v3 < 100 } { set v3 100 }
+    set val1 [ expr ( ( log10($v1) - 3 ) * 20 ) ]
+    set val2 [ expr ( ( log10($v2) - 3 ) * 20 ) ]
+    set val3 [ expr ( ( log10($v3) - 3 ) * 20 ) ]
+    .strip_graph create line $i 103 \
+			     $i [ expr 102 - $val1 ] \
+			     -tags data -fill LightSlateBlue
+    .strip_graph create line $i [ expr 102 - $val1 ] \
+			     $i [ expr 102 - $val3 ] \
+			     -tags data -fill SkyBlue
+    .strip_graph create line $i [ expr 102 - $val2 ] \
+			     $i [ expr 103 - $val2 ] \
+			     -tags data -fill Red
 
     incr i
     if { $i >= 202 } { set i 2 }
@@@@ -130,7 +149,7 @@@@
 # Customized stuff
 #
 proc checkline {line} {
-  global who strip_value1 strip_label
+  global who strip_value1 strip_value2 strip_value3 strip_label
 
   #
   # match our patterns
@@@@ -139,8 +158,12 @@@@
     if { $who == "" } { set who [ lindex $line 1 ] }
     strip_title [ lindex $line 1]
     set strip_value1 [ lindex $line 2 ]
+    set strip_value2 [ lindex $line 3 ]
+    set strip_value3 [ lindex $line 4 ]
     if { $strip_value1 < 0 } { set strip_value1 0 }
-    set strip_label "[ expr $strip_value1 * 8 ] bps"
+    if { $strip_value2 < 0 } { set strip_value2 0 }
+    if { $strip_value3 < 0 } { set strip_value3 0 }
+    set strip_label "[ expr $strip_value2 * 8 ] bps"
   }
 }
 
@


1.1
log
@stabilize bandwidth calculation
@
text
@d1 1
a1 1
$NetBSD$
@