examples/frameview.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Tk;
   4 use Tk::Xrm;
   5 use Tk qw(exit);
   6
   7 my $version="Analyzer 20020429";
   8
   9 my %bases;
  10 my $first_file=undef;
  11 my $last_file=undef;
  12 my $fileno=0;
  13
  14 my @panel_labels;
  15 my @panel_ones;
  16 my @panel_twos;
  17 my @panel_onevars;
  18 my @panel_twovars;
  19 my @panel_keys;
  20 my $panel_count;
  21
  22 # pop the toplevels
  23
  24 my $toplevel=new MainWindow(-class=>'AnalyzerGraph');
  25 my $Xname=$toplevel->Class;
  26 $toplevel->optionAdd("$Xname.geometry",  "800x600",20);
  27
  28 my $geometry=$toplevel->optionGet('geometry','');
  29 $geometry=~/^(\d+)x(\d+)/;
  30
  31 $toplevel->configure(-width=>$1);
  32 $toplevel->configure(-height=>$2);
  33
  34
  35
  36
  37
  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);
  49
  50 $toplevel->optionAdd("$Xname*AlertDetail.font",
  51                      '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20);
  52
  53
  54 $toplevel->optionAdd("$Xname*background",  "#d0d0d0",20);
  55 $toplevel->optionAdd("$Xname*foreground",  '#000000',20);
  56
  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);
  62
  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);
  68
  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);
  73
  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);
  94
  95 #$toplevel->optionAdd("$Xname*Canvas.background",  "#c0c0c0",20);
  96
  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);
 101
 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);
 106
 107 $toplevel->optionAdd("$Xname*Label.disabledForeground",  "#c0c0c0",20);
 108 $toplevel->optionAdd("$Xname*Label.borderWidth",  1,20);
 109
 110 $toplevel->configure(-background=>$toplevel->optionGet("background",""));
 111
 112 #$toplevel->resizable(FALSE,FALSE);
 113
 114 my $panel=new MainWindow(-class=>'AnalyzerPanel');
 115 my $X2name=$panel->Class;
 116
 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);
 128
 129 $panel->optionAdd("$X2name*AlertDetail.font",
 130                      '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20);
 131
 132
 133 $panel->optionAdd("$X2name*background",  "#d0d0d0",20);
 134 $panel->optionAdd("$X2name*foreground",  '#000000',20);
 135
 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);
 141
 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);
 148
 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);
 161
 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);
 170
 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);
 175
 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);
 180
 181 $panel->optionAdd("$X2name*Label.disabledForeground",  "#c0c0c0",20);
 182 $panel->optionAdd("$X2name*Label.borderWidth",  1,20);
 183
 184 $panel->configure(-background=>$panel->optionGet("background",""));
 185
 186 #$panel->resizable("FALSE","FALSE");
 187
 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');
 191
 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');
 194
 195 $panel->Label(Name=>"logo text",-class=>"Panel",-text=>$version)->
 196     place(-x=>5,-y=>5,-anchor=>'nw');
 197
 198
 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');
 202
 203 my $graph_status=$toplevel->Label(Name=>"logo text",-class=>"Panel",-text=>"Starting up")->
 204     place(-x=>5,-y=>5,-anchor=>'nw');
 205
 206
 207 my $panely=5;
 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;
 211
 212
 213 my$temp=$graph_shell->Button(-text=>"<<",
 214                      -command=>[sub{$fileno-=10;$fileno=$first_file if($fileno<$first_file);
 215                                 load_graph();}])->
 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);
 219                                 load_graph();}])->
 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);
 223                                 load_graph();}])->
 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);
 227                                 load_graph();}])->
 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,
 231                                     -resolution=>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;
 235
 236 my$onecrop;
 237 my$twocrop;
 238
 239 my$oneresize=$temp=$graph_shell->Checkbutton(-text=>"rescale",-variable=>\$onecrop,
 240                                 -command=>[sub{draw_graph();}])->
 241     place(-x=>5,-y=>5,-anchor=>'nw');
 242
 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');
 246
 247
 248 my$tworesize=$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);
 253
 254 scan_directory();
 255
 256 my%onestate;
 257 my%twostate;
 258 my @data;
 259
 260 $onestate{"canvas"}=$one;
 261 $onestate{"vars"}=\@panel_onevars;
 262 $twostate{"canvas"}=$two;
 263 $twostate{"vars"}=\@panel_twovars;
 264
 265 $graph_slider->configure(-command=>[sub{load_graph()}]);
 266 load_graph();
 267 $toplevel->bind('MainWindow','<Configure>',[sub{$toplevel->update();
 268                                                 draw_graph()}]);
 269
 270 Tk::MainLoop();
 271
 272 sub load_graph{
 273
 274     scan_directory()if(!defined($panel_count));
 275
 276     @data=undef;
 277
 278     for(my$i=0;$i<$panel_count;$i++){
 279         my$filename=$panel_keys[$i]."_$fileno.m";
 280         if(open F, "$filename"){
 281             $data[$i]=[(<F>)];
 282             close F;
 283         }
 284     }
 285     draw_graph();
 286 }
 287
 288 sub graphhelper{
 289     my($graph)=@_;
 290     my$count=0;
 291     my@colors=("#ff0000","#00df00","#0000ff","#ffff00","#ff00ff","#00ffff","#ffffff",
 292                "#9f0000","#007f00","#00009f","#8f8f00","#8f008f","#008f8f","#000000");
 293
 294     my$w=$graph->{"canvas"};
 295     my$rescale=0;
 296
 297     Status("Plotting $fileno");
 298     $w->delete('foo');
 299     $w->delete('legend');
 300     $w->delete('lines');
 301
 302     # count range
 303     for(my$i=0;$i<$panel_count;$i++){
 304         if($graph->{"vars"}->[$i]){
 305             if(defined($data[$i])){
 306                 if(!defined($graph->{"minx"})){
 307                     $data[$i]->[0]=~m/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/;
 308                     $graph->{"maxx"}=$1;
 309                     $graph->{"minx"}=$1;
 310                     $graph->{"maxy"}=$2;
 311                     $graph->{"miny"}=$2;
 312                     $rescale=1;
 313                 }
 314
 315                 for(my$j=0;$j<=$#{$data[$i]};$j++){
 316                     $data[$i]->[$j]=~m/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/;
 317                     $rescale=1 if($1>$graph->{"maxx"});
 318                     $rescale=1 if($1<$graph->{"minx"});
 319                     $rescale=1 if($2>$graph->{"maxy"});
 320                     $rescale=1 if($2<$graph->{"miny"});
 321                     $graph->{"maxx"}=$1 if($1>$graph->{"maxx"});
 322                     $graph->{"minx"}=$1 if($1<$graph->{"minx"});
 323                     $graph->{"maxy"}=$2 if($2>$graph->{"maxy"});
 324                     $graph->{"miny"}=$2 if($2<$graph->{"miny"});
 325                 }
 326             }
 327             $count++;
 328         }
 329     }
 330
 331     my$width=$w->width();
 332     my$height=$w->height();
 333
 334     $rescale=1 if(!defined($graph->{"width"}) ||
 335                   $width!=$graph->{"width"} ||
 336                   $height!=$graph->{"height"});
 337
 338     $graph->{"width"}=$width;
 339     $graph->{"height"}=$height;
 340
 341     if(defined($graph->{"maxx"})){
 342         # draw axes, labels
 343         # look for appropriate axis scales
 344
 345         if($rescale){
 346
 347             $w->delete('ylabel');
 348             $w->delete('xlabel');
 349             $w->delete('axes');
 350
 351             my$yscale=1.;
 352             my$xscale=1.;
 353             my$iyscale=1.;
 354             my$ixscale=1.;
 355             while(($graph->{"maxx"}-$graph->{"minx"})*$xscale>15){$xscale*=.1;$ixscale*=10.;}
 356             while(($graph->{"maxy"}-$graph->{"miny"})*$yscale>15){$yscale*=.1;$iyscale*=10.;}
 357
 358             while(($graph->{"maxx"}-$graph->{"minx"})*$xscale<3){$xscale*=10.;$ixscale*=.1;}
 359             while(($graph->{"maxy"}-$graph->{"miny"})*$yscale<3){$yscale*=10.;$iyscale*=.1;}
 360
 361             # how tall are the x axis labels?
 362             $w->createText(-1,-1,-anchor=>'se',-tags=>['foo'],-text=>"0123456789.");
 363             my($x1,$y1,$x2,$y2)=$w->bbox('foo');
 364             $w->delete('foo');
 365             my$maxlabelheight=$y2-$y1;
 366             my$useabley=$height-$maxlabelheight-3;
 367             my$pixelpery=$useabley/($graph->{"maxy"}-$graph->{"miny"});
 368
 369             # place y axis labels at proper spacing/height
 370             my$lasty=-$maxlabelheight/2;
 371             my$topyval=int($graph->{"maxy"}*$yscale+1.)*$iyscale;
 372
 373             for(my$i=0;;$i++){
 374                 my$yval= $topyval-$i*$iyscale;
 375                 my$y= ($graph->{"maxy"}-$yval)*$pixelpery;
 376                 last if($y>$useabley);
 377                 if($y-$maxlabelheight>=$lasty){
 378                     $w->createText(0,$y,-anchor=>'e',-tags=>['ylabel'],-text=>"$yval");
 379                     $lasty=$y;
 380                 }
 381             }
 382
 383             # get the max ylabel width and place them at proper x
 384             ($x1,$y1,$x2,$y2)=$w->bbox('ylabel');
 385             my$maxylabelwidth=$x2-$x1;
 386             $w->move('ylabel',$maxylabelwidth,0);
 387
 388             my$beginx=$maxylabelwidth+3;
 389             my$useablex=$width-$beginx;
 390
 391             # draw basic axes
 392             $w->createLine($beginx,0,$beginx,$useabley,$width,$useabley,
 393                            -tags=>['axes'],-width=>2);
 394             # draw y tix
 395             $lasty=-$maxlabelheight/2;
 396             for(my$i=0;;$i++){
 397                 my$yval= $topyval-$i*$iyscale;
 398                 my$y= ($graph->{"maxy"}-$yval)*$pixelpery;
 399                 last if($y>$useabley);
 400                 if($yval==0){
 401                     $w->createLine($beginx,$y,$width,$y,
 402                                    -tags=>['axes'],-width=>1);
 403                 }else{
 404                     if($y-$maxlabelheight>=$lasty){
 405                         $w->createLine($beginx,$y,$width,$y,
 406                                        -tags=>['axes'],-width=>1,
 407                                        -stipple=>'gray50');
 408
 409                         $lasty=$y;
 410                     }
 411                 }
 412             }
 413
 414             # place x axis labels at proper spacing
 415             my$topxval=int($graph->{"maxx"}*$xscale+1.)*$ixscale;
 416             my$pixelperx=$useablex/($graph->{"maxx"}-$graph->{"minx"});
 417
 418             for(my$i=0;;$i++){
 419                 my$xval= $topxval-$i*$ixscale;
 420                 my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx;
 421
 422                 last if($x<$beginx);
 423                 # bounding boxen are hard.  place temp labels.
 424                 $w->createText(-1,-1,-anchor=>'e',-tags=>['foo'],-text=>"$xval");
 425             }
 426
 427             ($x1,$y1,$x2,$y2)=$w->bbox('foo');
 428             my$maxxlabelwidth=$x2-$x1;
 429             $w->delete('foo');
 430             my$lastx=$width;
 431
 432             for(my$i=0;;$i++){
 433                 my$xval= $topxval-$i*$ixscale;
 434                 my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx;
 435
 436                 last if($x-$maxxlabelwidth/2<0 || $x<$beginx);
 437                 if($xval==0 && $x<$width){
 438                     $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1);
 439                 }
 440
 441                 if($x+$maxxlabelwidth<=$lastx){
 442                     $w->createText($x,$height-1,-anchor=>'s',-tags=>['xlabel'],-text=>"$xval");
 443                     $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1,-stipple=>"gray50");
 444                     $lastx=$x;
 445                 }
 446             }
 447             $graph->{"labelheight"}=$maxlabelheight;
 448             $graph->{"xo"}=$beginx;
 449             $graph->{"ppx"}=$pixelperx;
 450             $graph->{"ppy"}=$pixelpery;
 451         }
 452
 453         # plot the files
 454         $count=0;
 455         my$legendy=$graph->{"labelheight"}/2;
 456         for(my$i=0;$i<$panel_count;$i++){
 457             if($graph->{"vars"}->[$i]){
 458                 $count++; # count here for legend color selection stability
 459                 if(defined($data[$i])){
 460                     # place a legend placard;
 461                     my$color=$colors[($count-1)%($#colors+1)];
 462                     $w->createText($width,$legendy,-anchor=>'e',-tags=>['legend'],
 463                                    -fill=>$color,-text=>$panel_keys[$i]);
 464                     $legendy+=$graph->{"labelheight"};
 465
 466                     # plot the lines
 467                     my@pairs=map{if(/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/){
 468                         (($1-$graph->{"minx"})*$graph->{"ppx"}+$graph->{"xo"},
 469                          (-$2+$graph->{"maxy"})*$graph->{"ppy"})}} (@{$data[$i]});
 470
 471                     $w->createLine((@pairs),-fill=>$color,-tags=>['lines']);
 472                 }
 473             }
 474         }
 475     }
 476 }
 477
 478 sub draw_graph{
 479
 480     if($onecrop){
 481         $onestate{"minx"}=undef;
 482         $onestate{"miny"}=undef;
 483         $onestate{"maxx"}=undef;
 484         $onestate{"maxy"}=undef;
 485     }
 486     if($twocrop){
 487         $twostate{"minx"}=undef;
 488         $twostate{"miny"}=undef;
 489         $twostate{"maxx"}=undef;
 490         $twostate{"maxy"}=undef;
 491     }
 492
 493     for(my$i=0;$i<$panel_count;$i++){
 494         if($twostate{"vars"}->[$i]){
 495
 496             #re-place the canvases
 497
 498             $oneresize->place(-x=>5,-y=>5,-anchor=>'nw');
 499
 500             $one->place(-relwidth=>1.,-width=>-10,-relheight=>.5,
 501                          -height=>($graphy/2)-5-$oneresize->reqheight(),
 502                          -x=>5,-y=>5+$oneresize->reqheight,-anchor=>'nw');
 503
 504             $tworesize->place(-rely=>1.,-y=>5,-anchor=>'nw',-in=>$one);
 505             $two->place(-relwidth=>1.,-relheight=>1.,-rely=>1.,
 506                         -y=>5+$tworesize->reqheight(),-anchor=>'nw',-in=>$one);
 507
 508             graphhelper(\%onestate);
 509             graphhelper(\%twostate);
 510             return;
 511         }
 512     }
 513
 514     $oneresize->place(-x=>5,-y=>5,-anchor=>'nw');
 515
 516     $one->place(-relwidth=>1.,-width=>-10,-relheight=>1.,
 517                  -height=>$graphy-5-$oneresize->reqheight(),
 518                  -x=>5,-y=>5+$oneresize->reqheight,-anchor=>'nw');
 519
 520     $tworesize->placeForget();
 521     $two->placeForget();
 522
 523     graphhelper(\%onestate);
 524 }
 525
 526 sub depopulate_panel{
 527     my $win;
 528     foreach $win (@panel_labels){
 529         $win->destroy();
 530     }
 531     @panel_labels=();
 532     foreach $win (@panel_ones){
 533         $win->destroy();
 534     }
 535     @panel_ones=();
 536     foreach $win (@panel_twos){
 537         $win->destroy();
 538     }
 539     @panel_twos=();
 540     @panel_keys=();
 541 }
 542
 543 sub populate_panel{
 544     my $localy=$panely;
 545     my $key;
 546     my $i=0;
 547     foreach $key (sort (keys %bases)){
 548         $panel_keys[$i]=$key;
 549         if(!defined($panel_onevars[$i])){
 550             $panel_onevars[$i]=0;
 551             $panel_twovars[$i]=0;
 552         }
 553
 554         my $temp=$panel_twos[$i]=$panel_shell->
 555             Checkbutton(-variable=>\$panel_twovars[$i],-command=>['main::draw_graph'],-text=>'2')->
 556             place(-y=>$localy,-x=>-5,-anchor=>"ne",-relx=>1.);
 557         my $oney=$temp->reqheight();
 558         my $onex=$temp->reqwidth()+15;
 559
 560         $temp=$panel_ones[$i]=$panel_shell->
 561             Checkbutton(-variable=>\$panel_onevars[$i],-command=>['main::draw_graph'],-text=>'1')->
 562             place(-y=>0,-x=>0,-anchor=>"ne",-in=>$temp,-bordermode=>'outside');
 563         $oney=$temp->reqheight() if ($oney<$temp->reqheight());
 564         $onex+=$temp->reqwidth();
 565
 566         $temp=$panel_labels[$i]=$panel_shell->Label(-text=>$key,-class=>'Field',-justify=>'left')->
 567             place(-y=>$localy,-x=>5,-anchor=>"nw",-relwidth=>1.,-width=>-$onex,
 568                   -bordermode=>'outside');
 569         $oney=$temp->reqheight() if ($oney<$temp->reqheight());
 570
 571         $localy+=$oney+2;
 572         $i++;
 573     }
 574     $panel_count=$i;
 575
 576     $localy+=$panel_quit->reqheight()+50;
 577     my $geometry=$panel->geometry();
 578     $geometry=~/^(\d+)/;
 579
 580     $panel->configure(-height=>$localy);
 581     $panel->configure(-width=>$1);
 582 }
 583
 584 sub Shutdown{
 585   Tk::exit();
 586 }
 587
 588 sub Status{
 589     my$text=shift @_;
 590     $graph_status->configure(-text=>"$text");
 591     $toplevel->update();
 592 }
 593
 594 sub scan_directory{
 595
 596     %bases=();
 597     my$count=0;
 598
 599     $first_file=undef;
 600     $last_file=undef;
 601
 602     if(opendir(D,".")){
 603         my$file;
 604         while(defined($file=readdir(D))){
 605             if($file=~m/^(\S*)_(\d+).m/){
 606                 $bases{"$1"}="0";
 607                 $first_file=$2 if(!defined($first_file) || $2<$first_file);
 608                 $last_file=$2 if(!defined($last_file) || $2>$last_file);
 609                 $count++;
 610
 611                 Status("Reading... $count")if($count%117==0);
 612             }
 613         }
 614         closedir(D);
 615     }
 616     Status("Done Reading: $count files");
 617     depopulate_panel();
 618     populate_panel();
 619
 620     $fileno=$first_file if($fileno<$first_file);
 621     $fileno=$last_file if($fileno>$last_file);
 622
 623     $graph_slider->configure(-from=>$first_file,-to=>$last_file);
 624
 625 }
 626
 627
 628
 629
 630