#
# mkgtif.awk
#
#
BEGIN {
    getline;
    sx = $1;
    getline;
    getline;
    getline;
    sy = -($1);
    getline;
    x0 = $1;
    getline;
    y0 = $1;

    printf ("Geotiff_Information:\n");
    printf ("   Version: 1\n");
    printf ("   Key_Revision: 1.2\n");
    printf ("   Tagged_Information:\n");
    printf ("      ModelTiepointTag (2,3):\n");
    printf ("        0   0   0\n        %s   %s   0\n", x0, y0);

    printf ("      ModelPixelScaleTag (1,3):\n");
    printf ("         %s            %s            0\n", sx, sy);
    printf ("      End_Of_Tags.\n");
    printf ("   Keyed_Information:\n");
    printf ("      GTModelTypeGeoKey (Short,1): ModelTypeProjected\n");
    printf ("      GTRasterTypeGeoKey (Short,1): RasterPixelIsArea\n");
    printf ("      PCSCitationGeoKey (Ascii,12): \"No Citation\"\n");
    printf ("      ProjectedCSTypeGeoKey (Short,1): PCS_NAD27_UTM_zone_16N\n");
    printf ("      ProjLinearUnitsGeoKey (Short,1): Linear_Meter\n");
    printf ("      End_Of_Keys.\n");
    printf ("   End_Of_Geotiff.\n");
}