#!/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_v1.txt";

$prio = 600;

open(OUT, ">$tracktxt");
$supertrackName = "DMRs_v1";
print OUT "track $supertrackName\n";
print OUT "superTrack on show\n";
print OUT "shortLabel\tDMRs-v1\n";
print OUT "longLabel\tDMR tracks ($root) [v1]\n\n";
foreach $cmp (@comparisons) { foreach $tool (@tools) {
  $bbfile = "$root.$cmp.$tool.dmr_filt20.bigBed";
  print OUT "\ttrack $root.$cmp.$tool.DMR\n";
  print OUT "\tparent $supertrackName\n";
  print OUT "\ttype bigBed 9\n";
  print OUT "\tshortLabel\t$root.$cmp $tool DMRs\n";
  print OUT "\tlongLabel\tDifferentially methylated regions via $tool, $root $cmp.\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);