Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-15 15:49:36 +02:00
Code Issues Releases Wiki Activity

scripts/graph.pl clusters certain sub-folders

Browse Source
This commit is contained in:
Paul Licameli 2020-05-28 15:19:15 -04:00
parent eb038972b0
commit c3a2eb043f
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
scripts/graph.pl
View File

@ -6,7 +6,22 @@ use File::Spec;
my $traceLevel = 3; my $traceLevel = 3;
# whether to box the clusters by sub-folder, but always color nodes regardless # whether to box the clusters by sub-folder, but always color nodes regardless
my $clustering = 0; my @clusterlist = qw(
/xml
/export
/menus
/effects/VST
/effects/ladspa
/effects/lv2
/effects/nyquist
/effects/vamp
);
my %clusters;
@clusters{@clusterlist} = ();
sub clustering
{
return exists( $clusters{ $_[0] } );
}
# whether to prune redundant arcs implied in transitive closure # whether to prune redundant arcs implied in transitive closure
my $pruning = 1; my $pruning = 1;
@ -285,9 +300,14 @@ open my $fh, ">", $fname or die "Can't open file";
*STDOUT = $fh; *STDOUT = $fh;
# header # header
my $graphAttr = $clustering ? "labeljust=l labelloc=b" : ""; my $graphAttr =
# $clustering ?
"labeljust=l labelloc=b"
# : ""
;
print "strict digraph{ graph ["; print "strict digraph{ graph [";
print $graphAttr; print $graphAttr;
print " newrank=true";
#print " mclimit=0.01"; #print " mclimit=0.01";
#print " nslimit=1"; #print " nslimit=1";
#print " rank=max"; #print " rank=max";
@ -303,10 +323,11 @@ print "// Nodes\n";
my $hue = 0; my $hue = 0;
my $saturation = 1.0; my $saturation = 1.0;
my $huestep = 1.0 / $nFolders; my $huestep = 1.0 / $nFolders;
my $cluster = $clustering ? "cluster" : "";
my $clusterAttr = $clustering ? "style=dashed " : "";
sub subgraph{ sub subgraph{
my ($foldername, $hashref) = @_; my ($foldername, $hashref) = @_;
my $clustered = clustering( $foldername );
my $cluster = $clustered ? "cluster" : "";
my $clusterAttr = $clustered ? "style=bold color=\"blue\"" : "";
print STDERR "subgraph \"$foldername\"\n" if $traceLevel >= 3; print STDERR "subgraph \"$foldername\"\n" if $traceLevel >= 3;
my $color = "${hue},${saturation},1.0"; my $color = "${hue},${saturation},1.0";
$hue += $huestep; $hue += $huestep;
@ -347,6 +368,7 @@ while( my ($head, $data) = each( %quotientGraph ) ) {
foreach my $tail ( @{$$data[0]} ) { foreach my $tail ( @{$$data[0]} ) {
print " \"$head\" -> \"$tail\" ["; print " \"$head\" -> \"$tail\" [";
# insert arc attributes here as key=value pairs, # insert arc attributes here as key=value pairs,
print "penwidth=2.0";
# separated by spaces # separated by spaces
print"]\n"; print"]\n";
} }