#!/usr/bin/perl

$stroot = "PKuse";
$shortLab = "Peaks";
$longLab = "Peaks";

$prio = 150;

##############################################################

$datadir = "data/usePk";
$trackname = "trackDb.$stroot.txt";

##############################################################

open(OUT, ">$trackname");

##### unified peak #####
# write header supertrack header
print OUT "track\tdata$stroot\n";
print OUT "compositeTrack\ton\n";
print OUT "shortLabel\t$shortLab\n";
print OUT "longLabel\t$longLab\n";
print OUT "priority\t$prio\n";
print OUT "subGroup1\tview View UPK=usepeaks\n";
print OUT "subGroup2\ttype Type uni=unified PR=PR SE=SE\n";
#print OUT "sortOrder\tType=+\n";
print OUT "type\tbigBed\n\n";

# write header for peak tracks
print OUT "   track\tdata$stroot\_UsePeaks\n";
print OUT "   parent\tdata$stroot\n";
print OUT "   shortLabel\t$shortLab\n";
print OUT "   longLabel\t$longLab\n";
print OUT "   view\tUPK\n";
print OUT "   visibility\tdense\n";
print OUT "   type\tbigBed 3\n";
print OUT "   allButtonPair\ton\n";
print OUT "   centerLabelsDense\ton\n";
print OUT "   dragAndDrop\ton\n";
print OUT "   showSubtrackColorOnUi\ton\n";
print OUT "   viewUi\ton\n\n";

# write peak tracks...

$bbfile = "$datadir/unified_5of21.ExclBlacklist.bigBed";
unless (-e $bbfile) { print "ERROR: Did not find $bbfile.\n"; exit; }
$prio++;
print OUT "      track\tuni5of21.$stroot\n";
print OUT "      parent\tdata$stroot\_UsePeaks\n";
print OUT "      bigDataUrl\t$bbfile\n";
print OUT "      shortLabel\tunified peaks\n";
print OUT "      longLabel\tunified peaks (5 of 21 overlap)\n";
print OUT "      type\tbigBed 3\n";
print OUT "      color\t0,0,0\n";
print OUT "      priority\t$prio\n";
print OUT "      visibility\tdense\n";
print OUT "      subGroups\tView=UPK type=uni\n\n";

$bbfile = "$datadir/T47D_P4_PR.SG3-peaks.bigBed";
unless (-e $bbfile) { print "ERROR: Did not find $bbfile.\n"; exit; }
$prio++;
print OUT "      track\tPR_SG.$stroot\n";
print OUT "      parent\tdata$stroot\_UsePeaks\n";
print OUT "      bigDataUrl\t$bbfile\n";
print OUT "      shortLabel\tT47D_PR_P4 peaks\n";
print OUT "      longLabel\tT47D PR P4 peaks (F8, 1e-5)\n";
print OUT "      type\tbigBed 3\n";
print OUT "      color\t0,0,0\n";
print OUT "      priority\t$prio\n";
print OUT "      visibility\tdense\n";
print OUT "      subGroups\tView=UPK type=PR\n\n";

$bbfile = "$datadir/T47D_P4_PR.MT-peaks.bigBed";
unless (-e $bbfile) { print "ERROR: Did not find $bbfile.\n"; exit; }
$prio++;
print OUT "      track\tPR_MT.$stroot\n";
print OUT "      parent\tdata$stroot\_UsePeaks\n";
print OUT "      bigDataUrl\t$bbfile\n";
print OUT "      shortLabel\tT47D_PR_P4 MT [don't use]\n";
print OUT "      longLabel\tT47D PR P4 peaks (F4, 1e-3)\n";
print OUT "      type\tbigBed 3\n";
print OUT "      color\t0,0,0\n";
print OUT "      priority\t$prio\n";
print OUT "      visibility\tdense\n";
print OUT "      subGroups\tView=UPK type=PR\n\n";

close(OUT);