#!/usr/bin/perl

@tools = ("MOABS","metilene","DSS");
@comparisons = ("F_5Mo","M_5Mo","X_5Mo","F_D22","M_D22","X_D22");
$root = "ctrl-vs-rot";

$tracktxt = "trackDb.DMRs_v0.txt";

$prio = 600;

open(OUT, ">$tracktxt");
$supertrackName = "DMRs_v0";
print OUT "track $supertrackName\n";
print OUT "superTrack on hide\n";
print OUT "shortLabel\tDMRs-v0\n";
print OUT "longLabel\tDMR tracks ($root) [v0]\n\n";
foreach $cmp (@comparisons) { foreach $tool (@tools) {
  $bbfile = "$root.$cmp.$tool.dmr.bigBed";
  print OUT "\ttrack $root.$cmp.$tool.DMR.v0\n";
  print OUT "\tparent $supertrackName\n";
  print OUT "\ttype bigBed 9\n";
  print OUT "\tshortLabel\t$root.$cmp $tool DMRs v0\n";
  print OUT "\tlongLabel\tDifferentially methylated regions via $tool, $root $cmp (unfiltered).\n"; 
  print OUT "\tbigDataUrl DATA/$bbfile\n";
  print OUT "\tvisibility dense\n";
  print OUT "\titemRgb on\n\n";
} }
print OUT "\n\n\n";

close(OUT);