7 my $version="Analyzer 20020429";
24 my $toplevel=new MainWindow(-class=>'AnalyzerGraph');
25 my $Xname=$toplevel->Class;
26 $toplevel->optionAdd("$Xname.geometry", "800x600",20);
28 my $geometry=$toplevel->optionGet('geometry','');
29 $geometry=~/^(\d+)x(\d+)/;
31 $toplevel->configure(-width=>$1);
32 $toplevel->configure(-height=>$2);
38 $toplevel->optionAdd("$Xname.background", "#4fc627",20);
39 $toplevel->optionAdd("$Xname*highlightBackground", "#80c0d3",20);
40 $toplevel->optionAdd("$Xname.Panel.background", "#4fc627",20);
41 $toplevel->optionAdd("$Xname.Panel.foreground", "#d0d0d0",20);
42 $toplevel->optionAdd("$Xname.Panel.font",
43 '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
44 $toplevel->optionAdd("$Xname*Statuslabel.font",
45 '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
46 $toplevel->optionAdd("$Xname*Statuslabel.foreground", "#606060");
47 $toplevel->optionAdd("$Xname*Status.font",
48 '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
50 $toplevel->optionAdd("$Xname*AlertDetail.font",
51 '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20);
54 $toplevel->optionAdd("$Xname*background", "#d0d0d0",20);
55 $toplevel->optionAdd("$Xname*foreground", '#000000',20);
57 $toplevel->optionAdd("$Xname*Button*background", "#f0d0b0",20);
58 $toplevel->optionAdd("$Xname*Button*foreground", '#000000',20);
59 $toplevel->optionAdd("$Xname*Button*borderWidth", '2',20);
60 $toplevel->optionAdd("$Xname*Button*relief", 'groove',20);
61 $toplevel->optionAdd("$Xname*Button*padY", 1,20);
63 #$toplevel->optionAdd("$Xname*Scale*background", "#f0d0b0",20);
64 $toplevel->optionAdd("$Xname*Scale*foreground", '#000000',20);
65 $toplevel->optionAdd("$Xname*Scale*borderWidth", '1',20);
66 #$toplevel->optionAdd("$Xname*Scale*relief", 'groove',20);
67 $toplevel->optionAdd("$Xname*Scale*padY", 1,20);
69 $toplevel->optionAdd("$Xname*Checkbutton*background", "#f0d0b0",20);
70 $toplevel->optionAdd("$Xname*Checkbutton*foreground", '#000000',20);
71 $toplevel->optionAdd("$Xname*Checkbutton*borderWidth", '2',20);
72 $toplevel->optionAdd("$Xname*Checkbutton*relief", 'groove',20);
74 $toplevel->optionAdd("$Xname*activeBackground", "#ffffff",20);
75 $toplevel->optionAdd("$Xname*activeForeground", '#0000a0',20);
76 $toplevel->optionAdd("$Xname*borderWidth", 0,20);
77 $toplevel->optionAdd("$Xname*relief", 'flat',20);
78 $toplevel->optionAdd("$Xname*activeBorderWidth", 1,20);
79 $toplevel->optionAdd("$Xname*highlightThickness", 0,20);
80 $toplevel->optionAdd("$Xname*padX", 2,20);
81 $toplevel->optionAdd("$Xname*padY", 2,20);
82 $toplevel->optionAdd("$Xname*font",
83 '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*',20);
84 $toplevel->optionAdd("$Xname*Entry.font",
85 '-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*',20);
86 $toplevel->optionAdd("$Xname*Exit.font",
87 '-*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*',20);
88 $toplevel->optionAdd("$Xname*Exit.relief", 'groove',20);
89 $toplevel->optionAdd("$Xname*Exit.padX", 1,20);
90 $toplevel->optionAdd("$Xname*Exit.padY", 1,20);
91 $toplevel->optionAdd("$Xname*Exit.borderWidth", 2,20);
92 $toplevel->optionAdd("$Xname*Exit*background", "#a0a0a0",20);
93 $toplevel->optionAdd("$Xname*Exit*disabledForeground", "#ffffff",20);
95 #$toplevel->optionAdd("$Xname*Canvas.background", "#c0c0c0",20);
97 $toplevel->optionAdd("$Xname*Entry.background", "#ffffff",20);
98 $toplevel->optionAdd("$Xname*Entry.disabledForeground", "#c0c0c0",20);
99 $toplevel->optionAdd("$Xname*Entry.relief", "sunken",20);
100 $toplevel->optionAdd("$Xname*Entry.borderWidth", 1,20);
102 $toplevel->optionAdd("$Xname*Field.background", "#ffffff",20);
103 $toplevel->optionAdd("$Xname*Field.disabledForeground", "#c0c0c0",20);
104 $toplevel->optionAdd("$Xname*Field.relief", "flat",20);
105 $toplevel->optionAdd("$Xname*Field.borderWidth", 1,20);
107 $toplevel->optionAdd("$Xname*Label.disabledForeground", "#c0c0c0",20);
108 $toplevel->optionAdd("$Xname*Label.borderWidth", 1,20);
110 $toplevel->configure(-background=>$toplevel->optionGet("background",""));
112 #$toplevel->resizable(FALSE,FALSE);
114 my $panel=new MainWindow(-class=>'AnalyzerPanel');
115 my $X2name=$panel->Class;
117 $panel->optionAdd("$X2name.background", "#353535",20);
118 $panel->optionAdd("$X2name*highlightBackground", "#80c0d3",20);
119 $panel->optionAdd("$X2name.Panel.background", "#353535",20);
120 $panel->optionAdd("$X2name.Panel.foreground", "#4fc627",20);
121 $panel->optionAdd("$X2name.Panel.font",
122 '-*-helvetica-bold-o-*-*-18-*-*-*-*-*-*-*',20);
123 $panel->optionAdd("$X2name*Statuslabel.font",
124 '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
125 $panel->optionAdd("$X2name*Statuslabel.foreground", "#4fc627",20);
126 $panel->optionAdd("$X2name*Status.font",
127 '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
129 $panel->optionAdd("$X2name*AlertDetail.font",
130 '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20);
133 $panel->optionAdd("$X2name*background", "#d0d0d0",20);
134 $panel->optionAdd("$X2name*foreground", '#000000',20);
136 $panel->optionAdd("$X2name*Button*background", "#f0d0b0",20);
137 $panel->optionAdd("$X2name*Button*foreground", '#000000',20);
138 $panel->optionAdd("$X2name*Button*borderWidth", '2',20);
139 $panel->optionAdd("$X2name*Button*relief", 'groove',20);
140 $panel->optionAdd("$X2name*Button*padY", 1,20);
142 $panel->optionAdd("$X2name*Checkbutton*background", "#f0d0b0",20);
143 $panel->optionAdd("$X2name*Checkbutton*foreground", '#000000',20);
144 $panel->optionAdd("$X2name*Checkbutton*borderWidth", '2',20);
145 #$panel->optionAdd("$X2name*Checkbutton*padX", '0',20);
146 #$panel->optionAdd("$X2name*Checkbutton*padY", '0',20);
147 #$panel->optionAdd("$X2name*Checkbutton*relief", 'groove',20);
149 $panel->optionAdd("$X2name*activeBackground", "#ffffff",20);
150 $panel->optionAdd("$X2name*activeForeground", '#0000a0',20);
151 $panel->optionAdd("$X2name*borderWidth", 0,20);
152 $panel->optionAdd("$X2name*relief", 'flat',20);
153 $panel->optionAdd("$X2name*activeBorderWidth", 1,20);
154 $panel->optionAdd("$X2name*highlightThickness", 0,20);
155 $panel->optionAdd("$X2name*padX", 2,20);
156 $panel->optionAdd("$X2name*padY", 2,20);
157 $panel->optionAdd("$X2name*font",
158 '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*',20);
159 $panel->optionAdd("$X2name*Entry.font",
160 '-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*',20);
162 $panel->optionAdd("$X2name*Exit.font",
163 '-*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*',20);
164 $panel->optionAdd("$X2name*Exit.relief", 'groove',20);
165 $panel->optionAdd("$X2name*Exit.padX", 1,20);
166 $panel->optionAdd("$X2name*Exit.padY", 1,20);
167 $panel->optionAdd("$X2name*Exit.borderWidth", 2,20);
168 $panel->optionAdd("$X2name*Exit*background", "#a0a0a0",20);
169 $panel->optionAdd("$X2name*Exit*disabledForeground", "#ffffff",20);
171 $panel->optionAdd("$X2name*Entry.background", "#ffffff",20);
172 $panel->optionAdd("$X2name*Entry.disabledForeground", "#c0c0c0",20);
173 $panel->optionAdd("$X2name*Entry.relief", "sunken",20);
174 $panel->optionAdd("$X2name*Entry.borderWidth", 1,20);
176 $panel->optionAdd("$X2name*Field.background", "#ffffff",20);
177 $panel->optionAdd("$X2name*Field.disabledForeground", "#c0c0c0",20);
178 $panel->optionAdd("$X2name*Field.relief", "flat",20);
179 $panel->optionAdd("$X2name*Field.borderWidth", 1,20);
181 $panel->optionAdd("$X2name*Label.disabledForeground", "#c0c0c0",20);
182 $panel->optionAdd("$X2name*Label.borderWidth", 1,20);
184 $panel->configure(-background=>$panel->optionGet("background",""));
186 #$panel->resizable("FALSE","FALSE");
188 my $panel_shell=$panel->Label(Name=>"shell",borderwidth=>1,relief=>'raised')->
189 place(-x=>10,-y=>36,-relwidth=>1.0,-relheight=>1.0,
190 -width=>-20,-height=>-46,-anchor=>'nw');
192 my $panel_quit=$panel_shell->Button(-class=>"Exit",text=>"quit",-command=>[sub{Shutdown()}])->
193 place(-x=>-1,-y=>-1,-relx=>1.0,-rely=>1.0,-anchor=>'se');
195 $panel->Label(Name=>"logo text",-class=>"Panel",text=>$version)->
196 place(-x=>5,-y=>5,-anchor=>'nw');
199 my $graph_shell=$toplevel->Label(Name=>"shell",borderwidth=>1,relief=>'raised')->
200 place(-x=>10,-y=>36,-relwidth=>1.0,-relheight=>1.0,
201 -width=>-20,-height=>-46,-anchor=>'nw');
203 my $graph_status=$toplevel->Label(Name=>"logo text",-class=>"Panel",text=>"Starting up")->
204 place(-x=>5,-y=>5,-anchor=>'nw');
208 my $panel_rescan=$panel_shell->Button(text=>"rescan",command=>[sub{scan_directory()}])->
209 place(-x=>-5,-relx=>1.,-y=>$panely,-anchor=>'ne');
210 $panely+=$panel_rescan->reqheight()+6;
213 my$temp=$graph_shell->Button(-text=>"<<",
214 -command=>[sub{$fileno-=10;$fileno=$first_file if($fileno<$first_file);
216 place(-x=>5,-y=>-5,-rely=>1.,-relwidth=>.2,-width=>-5,-anchor=>'sw');
217 $graph_shell->Button(-text=>">>",
218 -command=>[sub{$fileno+=10;$fileno=$last_file if($fileno>$last_file);
220 place(-x=>-5,-y=>-5,-relwidth=>.2,-rely=>1.,-width=>-5,-relx=>1.,-anchor=>'se');
221 $graph_shell->Button(-text=>"<",
222 -command=>[sub{$fileno-=1;$fileno=$first_file if($fileno<$first_file);
224 place(-x=>5,-y=>-5,-relwidth=>.3,-width=>-7,-rely=>1.,-relx=>.2,-anchor=>'sw');
225 $graph_shell->Button(-text=>">",
226 -command=>[sub{$fileno+=1;$fileno=$last_file if($fileno>$last_file);
228 place(-x=>-5,-y=>-5,-relwidth=>.3,-width=>-7,-rely=>1.,-relx=>.8,-anchor=>'se');
229 my$graphy=-10-$temp->reqheight();
230 my$graph_slider=$temp=$graph_shell->Scale(-bigincrement=>1,
232 -showvalue=>'TRUE',-variable=>\$fileno,-orient=>'horizontal')->
233 place(-x=>5,-y=>$graphy,-relwidth=>1.,-rely=>1.,-width=>-10,-anchor=>'sw');
234 $graphy-=$temp->reqheight()+5;
239 $temp=$graph_shell->Checkbutton(text=>"rescale",-variable=>\$onecrop,
240 -command=>[sub{draw_graph();}])->
241 place(-x=>5,-y=>5,-anchor=>'nw');
243 my$one=$graph_shell->Canvas()->
244 place(-relwidth=>1.,-width=>-10,-relheight=>.5,-height=>($graphy/2)-5-$temp->reqheight(),
245 -x=>5,-y=>5+$temp->reqheight,-anchor=>'nw');
248 $temp=$graph_shell->Checkbutton(text=>"rescale",-variable=>\$twocrop,
249 -command=>[sub{draw_graph();}])->
250 place(-rely=>1.,-y=>5,-anchor=>'nw',-in=>$one);
251 my$two=$graph_shell->Canvas()->
252 place(-relwidth=>1.,-relheight=>1.,-rely=>1.,-y=>5+$temp->reqheight(),-anchor=>'nw',-in=>$one);
260 $onestate{"canvas"}=$one;
261 $onestate{"vars"}=\@panel_onevars;
262 $twostate{"canvas"}=$two;
263 $twostate{"vars"}=\@panel_twovars;
265 $graph_slider->configure(-command=>[sub{load_graph()}]);
267 $toplevel->bind('MainWindow','<Configure>',[sub{$toplevel->update();draw_graph()}]);
273 scan_directory()if(!defined($panel_count));
277 for(my$i=0;$i<$panel_count;$i++){
278 my$filename=$panel_keys[$i]."_$fileno.m";
279 if(open F, "$filename"){
290 my@colors=("#ff0000","#00df00","#0000ff","#ffff00","#ff00ff","#00ffff","#ffffff",
291 "#9f0000","#007f00","#00009f","#8f8f00","#8f008f","#008f8f","#000000");
293 my$w=$graph->{"canvas"};
296 Status("Plotting $fileno");
298 $w->delete('legend');
302 for(my$i=0;$i<$panel_count;$i++){
303 if($graph->{"vars"}->[$i]){
304 if(defined($data[$i])){
305 if(!defined($graph->{"minx"})){
306 $data[$i]->[0]=~m/(-?\d*)[ ,]+(-?\d*)/;
314 for(my$j=0;$j<=$#{$data[$i]};$j++){
315 $data[$i]->[$j]=~m/(-?\d*)[ ,]+(-?\d*)/;
316 $rescale=1 if($1>$graph->{"maxx"});
317 $rescale=1 if($1<$graph->{"minx"});
318 $rescale=1 if($2>$graph->{"maxy"});
319 $rescale=1 if($2<$graph->{"miny"});
320 $graph->{"maxx"}=$1 if($1>$graph->{"maxx"});
321 $graph->{"minx"}=$1 if($1<$graph->{"minx"});
322 $graph->{"maxy"}=$2 if($2>$graph->{"maxy"});
323 $graph->{"miny"}=$2 if($2<$graph->{"miny"});
330 my$width=$w->width();
331 my$height=$w->height();
333 if(defined($graph->{"maxx"})){
335 # look for appropriate axis scales
339 $w->delete('ylabel');
340 $w->delete('xlabel');
345 while(($graph->{"maxx"}-$graph->{"minx"})*$xscale>15){$xscale*=.1;}
346 while(($graph->{"maxy"}-$graph->{"miny"})*$yscale>15){$yscale*=.1;}
348 while(($graph->{"maxx"}-$graph->{"minx"})*$xscale<3){$xscale*=10.;}
349 while(($graph->{"maxy"}-$graph->{"miny"})*$yscale<3){$yscale*=10.;}
351 # how tall are the x axis labels?
352 $w->createText(-1,-1,-anchor=>'se',-tags=>['foo'],-text=>"0123456789.");
353 my($x1,$y1,$x2,$y2)=$w->bbox('foo');
355 my$maxlabelheight=$y2-$y1;
356 my$useabley=$height-$maxlabelheight-3;
357 my$pixelpery=$useabley/($graph->{"maxy"}-$graph->{"miny"});
359 # place y axis labels at proper spacing/height
360 my$lasty=-$maxlabelheight/2;
361 my$topyval=int($graph->{"maxy"}*$yscale+1.)/$yscale;
364 my$yval= $topyval-$i/$yscale;
365 my$y= ($graph->{"maxy"}-$yval)*$pixelpery;
366 last if($y>$useabley);
367 if($y-$maxlabelheight>=$lasty){
368 $w->createText(0,$y,-anchor=>'e',-tags=>['ylabel'],-text=>"$yval");
373 # get the max ylabel width and place them at proper x
374 ($x1,$y1,$x2,$y2)=$w->bbox('ylabel');
375 my$maxylabelwidth=$x2-$x1;
376 $w->move('ylabel',$maxylabelwidth,0);
378 my$beginx=$maxylabelwidth+3;
379 my$useablex=$width-$beginx;
382 $w->createLine($beginx,0,$beginx,$useabley,$width,$useabley,
383 -tags=>['axes'],-width=>2);
385 $lasty=-$maxlabelheight/2;
387 my$yval= $topyval-$i/$yscale;
388 my$y= ($graph->{"maxy"}-$yval)*$pixelpery;
389 last if($y>$useabley);
391 $w->createLine($beginx,$y,$width,$y,
392 -tags=>['axes'],-width=>1);
394 if($y-$maxlabelheight>=$lasty){
395 $w->createLine($beginx,$y,$width,$y,
396 -tags=>['axes'],-width=>1,
404 # place x axis labels at proper spacing
405 my$topxval=int($graph->{"maxx"}*$xscale+1.)/$xscale;
406 my$pixelperx=$useablex/($graph->{"maxx"}-$graph->{"minx"});
409 my$xval= $topxval-$i/$xscale;
410 my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx;
413 # bounding boxen are hard. place temp labels.
414 $w->createText(-1,-1,-anchor=>'e',-tags=>['foo'],-text=>"$xval");
417 ($x1,$y1,$x2,$y2)=$w->bbox('foo');
418 my$maxxlabelwidth=$x2-$x1;
423 my$xval= $topxval-$i/$xscale;
424 my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx;
426 last if($x-$maxxlabelwidth/2<0);
427 if($xval==0 && $x<$width){
428 $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1);
431 if($x+$maxxlabelwidth<=$lastx){
432 $w->createText($x,$height-1,-anchor=>'s',-tags=>['xlabel'],-text=>"$xval");
433 $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1,-stipple=>"gray50");
437 $graph->{"labelheight"}=$maxlabelheight;
438 $graph->{"xo"}=$beginx;
439 $graph->{"ppx"}=$pixelperx;
440 $graph->{"ppy"}=$pixelpery;
445 my$legendy=$graph->{"labelheight"}/2;
446 for(my$i=0;$i<$panel_count;$i++){
447 if($graph->{"vars"}->[$i]){
448 $count++; # count here for legend color selection stability
449 if(defined($data[$i])){
450 # place a legend placard;
451 my$color=$colors[($count-1)%($#colors+1)];
452 $w->createText($width,$legendy,-anchor=>'e',-tags=>['legend'],
453 -fill=>$color,-text=>$panel_keys[$i]);
454 $legendy+=$graph->{"labelheight"};
461 foreach $pair (@{$data[$i]}){
462 if($pair=~m/(-?\d*)[ ,]+(-?\d*)/){
463 my$x=($1-$graph->{"minx"})*$graph->{"ppx"}+$graph->{"xo"};
464 my$y=(-$2+$graph->{"maxy"})*$graph->{"ppy"};
467 $w->createLine($x,$y,$lastx,$lasty,-fill=>$color,
483 $onestate{"minx"}=undef;
484 $onestate{"miny"}=undef;
485 $onestate{"maxx"}=undef;
486 $onestate{"maxy"}=undef;
489 $twostate{"minx"}=undef;
490 $twostate{"miny"}=undef;
491 $twostate{"maxx"}=undef;
492 $twostate{"maxy"}=undef;
495 graphhelper(\%onestate);
496 graphhelper(\%twostate);
500 sub depopulate_panel{
502 foreach $win (@panel_labels){
506 foreach $win (@panel_ones){
510 foreach $win (@panel_twos){
521 foreach $key (sort (keys %bases)){
522 $panel_keys[$i]=$key;
523 $panel_onevars[$i]=0;
524 $panel_twovars[$i]=0;
526 my $temp=$panel_twos[$i]=$panel_shell->
527 Checkbutton(-variable=>\$panel_twovars[$i],-command=>['main::draw_graph'],text=>'2')->
528 place(-y=>$localy,-x=>-5,-anchor=>"ne",-relx=>1.);
529 my $oney=$temp->reqheight();
530 my $onex=$temp->reqwidth()+15;
532 $temp=$panel_ones[$i]=$panel_shell->
533 Checkbutton(-variable=>\$panel_onevars[$i],-command=>['main::draw_graph'],text=>'1')->
534 place(-y=>0,-x=>0,-anchor=>"ne",-in=>$temp,-bordermode=>'outside');
535 $oney=$temp->reqheight() if ($oney<$temp->reqheight());
536 $onex+=$temp->reqwidth();
538 $temp=$panel_labels[$i]=$panel_shell->Label(-text=>$key,-class=>'Field',justify=>'left')->
539 place(-y=>$localy,-x=>5,-anchor=>"nw",-relwidth=>1.,-width=>-$onex,
540 -bordermode=>'outside');
541 $oney=$temp->reqheight() if ($oney<$temp->reqheight());
548 $localy+=$panel_quit->reqheight()+50;
549 my $geometry=$panel->geometry();
552 $panel->configure(-height=>$localy);
553 $panel->configure(-width=>$1);
562 $graph_status->configure(text=>"$text");
576 while(defined($file=readdir(D))){
577 if($file=~m/^(\S*)_(\d+).m/){
579 $first_file=$2 if(!defined($first_file) || $2<$first_file);
580 $last_file=$2 if(!defined($last_file) || $2>$last_file);
583 Status("Reading... $count")if($count%117==0);
588 Status("Done Reading: $count files");
593 $graph_slider->configure(-from=>$first_file,-to=>$last_file);