#!/usr/bin/perl

$wk = $ARGV[0];

if ($wk eq "wk20") { @x2 = ("HF-HF", "LF-LF", "HF-LF"); @colors = ("102,0,0", "0,0,102", "0,102,0"); }
else { @x2 = ("HF", "LF"); @colors = ("102,0,0", "0,0,102"); }
@x1 = ("input", "MeDIP");
@x3 = (1,2,3);


foreach $type (@x1) {
  for ($i=0; $i<$#x2+1; $i++) { $diet = $x2[$i]; $icolor = $colors[$i];
  foreach $r (@x3) {
    $bwfile = "$diet$r.$wk.$type.norm15m.bigwig";
    if ($type eq "input") { $usecolor = "102,102,102"; } else { $usecolor = $icolor; }
    print "track type=bigWig name=\"$wk $type.$diet.$r\" db=mm10 visibility=full alwaysZero=on maxHeightPixels=40 color=$usecolor bigDataUrl=http://snpinfo.niehs.nih.gov/ucscview/rli/2014may/$bwfile\n";
  } }
}