#!/usr/bin/perl

$path = "ucscview/blackshear/RNAseqHub_May2016/mm10/DATA";

open(OUT, ">trackinfo.15aug2017.txt");

$max = 750; $root = "hsTTPKO-m";
for ($i=1; $i<5; $i++) { print OUT "track type=bigWig name=\"$root-WT$i\" description=\" \" db=mm10 visibility=full autoScale=off alwaysZero=on viewLimits=0:$max maxHeightPixels=60 color=30,104,255 bigDataUrl=http://snpinfo.niehs.nih.gov/$path/$root.WT.$i.norm.bigWig\n"; }
for ($i=1; $i<5; $i++) { print OUT "track type=bigWig name=\"$root-KO$i\" description=\" \" db=mm10 visibility=full autoScale=off alwaysZero=on viewLimits=0:$max maxHeightPixels=60 color=0,191,255 bigDataUrl=http://snpinfo.niehs.nih.gov/$path/$root.KO.$i.norm.bigWig\n"; }
print OUT "\n";

$max = 3000; $root = "hsL1KO-m";
for ($i=1; $i<5; $i++) { print OUT "track type=bigWig name=\"$root-WT$i\" description=\" \" db=mm10 visibility=full autoScale=off alwaysZero=on viewLimits=0:$max maxHeightPixels=60 color=255,104,0 bigDataUrl=http://snpinfo.niehs.nih.gov/$path/$root.WT.$i.norm.bigWig\n"; }
for ($i=1; $i<5; $i++) { print OUT "track type=bigWig name=\"$root-KO$i\" description=\" \" db=mm10 visibility=full autoScale=off alwaysZero=on viewLimits=0:$max maxHeightPixels=60 color=255,165,0 bigDataUrl=http://snpinfo.niehs.nih.gov/$path/$root.KO.$i.norm.bigWig\n"; }
print OUT "\n";

$max = 500; $root = "hsL2KO-m";
for ($i=1; $i<5; $i++) { print OUT "track type=bigWig name=\"$root-WT$i\" description=\" \" db=mm10 visibility=full autoScale=off alwaysZero=on viewLimits=0:$max maxHeightPixels=60 color=139,69,19 bigDataUrl=http://snpinfo.niehs.nih.gov/$path/$root.WT.$i.norm.bigWig\n"; }
for ($i=1; $i<5; $i++) { print OUT "track type=bigWig name=\"$root-KO$i\" description=\" \" db=mm10 visibility=full autoScale=off alwaysZero=on viewLimits=0:$max maxHeightPixels=60 color=205,133,63 bigDataUrl=http://snpinfo.niehs.nih.gov/$path/$root.KO.$i.norm.bigWig\n"; }
print OUT "\n";

close(OUT);