awk '{printf n=$1" "; for(i=NF;i>1;i--) printf $i; print""}' reber_617.02.crispcfield | awk -f isreber.awk| awk '{z=gsub(/\*/,"*",$2); if(length($2)-z>4)print'}|awk -f physpostag.awk - reber_617.02.physpos > reber_617.02.txtpos
# .txtpos datei nachbearbeiten
awk '{print $1*175+500,$2*175+500,$4, 0, (((t=360*atan2($2,$1)/6.2832)>90 ||t<-90)?t+180:t), 15}' reber_617.02.txtpos | awk -f txt2eps.awk > reber_617.02.txt.eps


