# Only ever produces 3 lines
sub print_shape {
  my $self=shift;
  print $self->{shape}->{line1}."\n";
  print $self->{shape}->{line2}."\n";
  print $self->{shape}->{line3}."\n";
}