Changeset 6520ef5 for memlog2dot


Ignore:
Timestamp:
05/28/15 17:50:41 (9 years ago)
Author:
Hal Finkel <hfinkel@…>
Branches:
master
Children:
81dea5b
Parents:
c4f89cf
git-author:
Hal Finkel <hfinkel@…> (05/28/15 17:50:41)
git-committer:
Hal Finkel <hfinkel@…> (05/28/15 17:50:41)
Message:

fix edge font sizes and function printing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • memlog2dot

    rc4f89cf r6520ef5  
    118118 
    119119  if ($func !~ /^\?/) { 
     120    # In general, this function name might look something like: 
     121    #   00000329.plt_call.wcsnrtombs@@GLIBC_2.3+0 
     122    $func =~ s/@.*//; 
    120123    $func =~ s/.*\.//; 
    121124    $func = `c++filt '$func'`; 
     
    158161  } 
    159162 
    160   printf("N%s [label=\"%s\\n%s\", shape=box,fontsize=%.1f%s];\n", 
     163  printf("N%s [label=\"%s\\n%s\", shape=box, fontsize=%.1f%s];\n", 
    161164    $pc, $name, format_bytes($local_size), $fs); 
    162165} 
     
    179182 
    180183    my $weight = 100.0 * sqrt($frac); 
    181     my $style = sprintf("setlinewidth(%f)", 3.0 * sqrt($frac)); 
     184    my $style = sprintf("setlinewidth(%f)", 8.0 * sqrt($frac)); 
    182185 
    183     printf("N%s -> N%s [label=\"%s\", weight=%d, style=\"%s\"];\n", 
    184       $pc, $cpc, format_bytes($child_size), $weight, $style); 
     186    my $fs = 40.0 * $frac**0.125; 
     187 
     188    printf("N%s -> N%s [label=\"%s\", weight=%d, style=\"%s\", fontsize=%.1f];\n", 
     189      $pc, $cpc, format_bytes($child_size), $weight, $style, $fs); 
    185190  } 
    186191} 
Note: See TracChangeset for help on using the changeset viewer.