#!/bin/csh

rm $1.str
awk 'NR>3 {printf("0 %s %s 1\n",$2-0.5, $3-0.5)}' "$1"1/"$1"1.cor > $1.str
awk 'NR>3 {printf("1 %s %s 1\n",$2-0.5, $3-0.5)}' "$1"2/"$1"2.cor >> $1.str
awk 'NR>3 {printf("2 %s %s 1\n",$2-0.5, $3-0.5)}' "$1"3/"$1"3.cor >> $1.str
awk 'NR>3 {printf("3 %s %s 1\n",$2-0.5, $3-0.5)}' "$1"4/"$1"4.cor >> $1.str