wip fonts 2

[talk-2018-dc18-gdr.git] / greyout

diff --git a/greyout b/greyout
index 50a859e12ed501f1b07e0bea203160b3bd545fb3..16502ac887bbdccc99c4596cef95f475eef94b0e 100755 (executable)
--- a/greyout
+++ b/greyout
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -p
 ($l, $r, $depth) = m/^(4 \d+ )0( (\d+) .*)/ or
-#($l, $r, $depth) = m/^(4 \d+ )0( (\d+) .*)/ or
+($l, $r, $depth) = m/^(2 \d+ \d+ \d+ )0( \d+ (\d+) .*)/ or
     next;
 next unless $depth =~ m/6.$/;
-$_ = $l."32".$r."\n";
+$_ = $l."33".$r."\n";