use XFig;
my($grid_Y_size)=225; # xfig
-my($grid_X_size)=225; # xfig
+my($grid_X_size)=550; # xfig
sub read_cat {
my(%Cat);
my($i)=0;
my($cat);
foreach $cat (@$cat_list) {
- $$Cat{$cat}{Y_min} = $i;
- $$Cat{$cat}{Y_max} = $i+1;
- $i++;
+ if(defined($$Cat{$cat}{state})) {
+ $$Cat{$cat}{Y_min} = $i;
+ $$Cat{$cat}{Y_max} = $i+1;
+ $i++;
+ }
}
}