#!/usr/bin/perl

$tracktxt = "trackDb.other.txt";

open(OUT, ">$tracktxt");
print OUT "track\trliTracksOther\n";
print OUT "superTrack on show\n";
print OUT "shortLabel\tOther\n";
print OUT "longLabel\tOther WGBS Data\n\n";

@diets = ("HF", "LF", "HF-LF");
foreach $diet (@diets) {
  print OUT "  track $diet.UMR\n";
  print OUT "  parent rliTracksOther\n";
  print OUT "  type bigBed 9\n";
  print OUT "  shortLabel\t$diet UMRs\n";
  print OUT "  longLabel\t$diet undermethylated regions\n";
  print OUT "  bigDataUrl\tDATA/$diet.mm10.CpG-cUMR-canyon.bigbed\n";
  print OUT "  visibility dense\n";
  print OUT "  itemRgb on\n\n";
}
close(OUT);