Permalink
Browse files

show progress while writing type graph images

  • Loading branch information...
1 parent 1b3ffe4 commit 9596fdef6f7502fcb3299c314e7c06c77efd05e8 @moritz moritz committed Aug 6, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 htmlify.pl
View
@@ -241,12 +241,14 @@ (Bool :$debug)
}
sub write-type-graph-images() {
- say "Writing type graph images to html/images/";
+ print "Writing type graph images to html/images/ ";
for $tg.sorted -> $type {
my $viz = Perl6::TypeGraph::Viz.new-for-type($type);
$viz.to-file("html/images/type-graph-{$type}.svg", format => 'svg');
$viz.to-file("html/images/type-graph-{$type}.png", format => 'png', size => '8,3');
+ print '.'
}
+ say ' done.';
say "Writing specialized visualizations to html/images/";
my %by-group = $tg.sorted.classify(&viz-group);

0 comments on commit 9596fde

Please sign in to comment.