$line->{'subtype'} = 1; # line
$line->{'points'} = [ [$old_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
[$new_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
$line->{'subtype'} = 1; # line
$line->{'points'} = [ [$old_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],
[$new_date*$grid_X_size, $$Cat{$cat}{Y_min}*$grid_Y_size],