]> git.tdb.fi Git - ext/vorbisfile.git/blob - examples/frameview.pl
Add headers to the library component so dependencies work correctly
[ext/vorbisfile.git] / 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