#! /bin/nawk -f
#
#             add BoundingBox and un-rotate to horizontal
#
#				ver. 0.1           swamp 92/02/12
#
#                usage : sgksrot <file>
#
/%%BoundingBox/  { print "%%BoundingBox: -1 -1 751 531"; next }
/\[ 0.0 0.1 /    { print "[ 0.1 0.0 0.0 0.1 0 0 ] concat"; next }
#/translate/	 { print "%" $0; next }
#/rotate/	 { print "%" $0; next }
# /showpage/	 { print "%" $0; exit }
/\/P1/		 { $1=""; print "/P3" $0; next }
/\/P2/		 { $1=""; print "/P4" $0; next }
/\/P3/		 { $1=""; print "/P1" $0; next }
/\/P4/		 { $1=""; print "/P2" $0; next }

	         { print }
