sub globalize_weightframe {
  my ($i)=@_;

  warn "Globalize was passed $i.";

  my %w = %{$hangar->{stops}[$i]{weightframe}};

  for my $val (keys %w) {
    eval "$main::$val = $w{$val}";
    warn "globalize $val - $w{$val}";
  }

}