for d in `seq -s ' ' 196 243`;do ls /web/data/VIIRS/L1BRS/TLAC6/2020/$d/V2020${d}1[4-8]*|/data1/www-data/oceancolor.gsfc.nasa.gov/scripts/mapbrs.pl -JB-49/46/44/48/10 -R-62/38/-34/54r >V2020$d.png;done

perl -e 'for($x=0,$y=0;$y<8.32;$y++){print "$x $y\n"}for($y=8.32;$x<10;$x++){print "$x $y\n"}for($x=10;$y>0;$y--){print "$x $y\n"}for($y=0;$x>0;$x--){print "$x $y\n"}'|gmt mapproject -I -JB-49/46/44/48/10 -R-62/38/-34/54r|gmt psxy -JQ0/21.6 -Rd -W1,red -L -P -X0 -Y0|gs -sDEVICE=pngalpha -sOutputFile=- -q -r100 -g2160x1080 -|convert - -crop 500x260+525+135 +repage boundary.png

for d in `seq -s ' ' 196 244`;do ls /web/data/VIIRS/L1BRS/TLAC6/2020/$d/V2020${d}1[4-8]*|/data1/www-data/oceancolor.gsfc.nasa.gov/bin/cmpbrs2160 -e 255,255,0 -d2020$d -t 13.5 -n 0 -m 1|convert - -crop 500x260+525+135 +repage boundary.png -composite V2020$d.eqc.png;done

perl -e 'for($x=0,$y=0;$y<8.32;$y++){print "$x $y\n"}for($y=8.32;$x<10;$x++){print "$x $y\n"}for($x=10;$y>0;$y--){print "$x $y\n"}for($y=0;$x>0;$x--){print "$x $y\n"}'|gmt mapproject -I -JB-49/46/44/48/10 -R-62/38/-34/54r -o1,0|/data1/www-data/oceancolor.gsfc.nasa.gov/bin/outline2bins 6 >bins.txt

/data1/www-data/oceancolor.gsfc.nasa.gov/scripts/qbins2fileprefixes.pl 14 SNPP 18457 49 <bins.txt |sort|less



gmt mapproject -W -Jb-49/46/44/48/1:2952756 -R-62/38/-34/54r
28.4576685051  23.6437793623

cat list.txt|~/tools/map_viirs_data.pl -Jb-49/46/44/48/1:2952756 -R-62/38/-34/54r >map_viirs_data.log 2>&1