#!/usr/bin/perl

$txt = qq {
track Tracks
type bigWig
container multiWig
shortLabel Tracks
longLabel Tracks
visibility full
aggregate none
autoScale on
showSubtrackColorOnUi on
maxHeightPixels 100:48:8
priority 1
};
print $txt;

my @A_files;
@A_files = </mnt/www/webroot/hg19/others/fiona/$cell*bigwig>;
foreach $file (@A_files) {

	($sample) = $file =~ /fiona\/(.*)\.bigwig/;
			
	if ($file =~ /Blood/)        { $color = "255,0,0"; }
	elsif ($file =~ /Discovery/) { $color = "0,100,0"; }
	elsif ($file =~ /forward/)   { $color = "0,0,255"; }
	elsif ($file =~ /reverse/)   { $color = "0,0,0";   }

	$txt = qq {
track $sample
bigDataUrl http://pastinenlab.genome.mcgill.ca/hg19/others/fiona/$sample.bigwig
shortLabel $sample
longLabel $sample
parent Tracks
type bigWig
autoScale on
color $color
};
	print "$txt\n";
	
}