btparser/cparser/tests/exp_lex/GeoTIFTemplate.bt

1119 lines
34 KiB
Plaintext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36: local uint16 tbom ;
37: tbom = ReadUShort ( 0 ) ;
38: if ( tbom == 0x4949 ) { LittleEndian ( ) ; }
39: else if ( tbom == 0x4D4D ) { BigEndian ( ) ; }
40: else {
41: Warning ( "Invalid TIFF File: Bad BOM (Byte Order Mark). Template Terminated." ) ;
42: return - 1 ;
43: }
44:
45: local quad nextIFD = 0 ;
46:
47:
48:
49: typedef enum < uint16 > eTAG {
50: GPSVersionID = 0 , GPSLatitudeRef , GPSLatitude , GPSLongitudeRef , GPSLongitude , GPSAltitudeRef , GPSAltitude , GPSTimeStamp , GPSSatellites , GPSStatus , GPSMeasureMode , GPSDOP , GPSSpeedRef , GPSSpeed , GPSTrackRef , GPSTrack , GPSImgDirectionRef , GPSImgDirection , GPSMapDatum , GPSDestLatitudeRef , GPSDestLatitude , GPSDestLongitudeRef , GPSDestLongitude , GPSDestBearingRef , GPSDestBearing , GPSDestDistanceRef , GPSDestDistance , GPSProcessingMethod , GPSAreaInformation , GPSDateStamp , GPSDifferential ,
51: NewSubFileType = 254 , SubFileType , ImageWidth , ImageLength , BitsPerSample , Compression ,
52: PhotometricInterpretation = 262 , Thresholding , CellWidth , CellLength , FillOrder ,
53: DocumentName = 269 , ImageDescription , Make , Model , StripOffsets , Orientation ,
54: SamplesPerPixel = 277 , RowsPerStrip , StripByteCounts , MinSampleValue , MaxSampleValue , XResolution , YResolution , PlanarConfiguration , PageName , XPosition , YPosition , FreeOffsets , FreeByteCounts , GrayResponseUnit , GrayResponseCurve , Group3Options , Group4Options ,
55: ResolutionUnit = 296 , PageNumber ,
56: ColorResponseUnit = 300 , TransferFunction ,
57: Software = 305 , DateTime ,
58: Artist = 315 , HostComputer , Predictor , WhitePoint , PrimaryChromacities , ColorMap , HalftoneHints , TileWidth , TileLength , TileOffsets , TileByteCounts , BadFaxLines , CleanFaxData , ConsecutiveBadFaxLines ,
59: SubIFDs = 330 ,
60: InkSet = 332 , InkNames , NumberOfInks ,
61: DotRange = 336 , TargetPrinter , ExtraSamples , SampleFormat , SMinSampleValue , SMaxSampleValue , TransferRange , ClipPath , XClipPathUnits , YClipPathUnits , Indexed , JPEGTables ,
62: OPIProxy = 351 ,
63: GlobalParametersIFD = 400 , ProfileType , FaxProfile , CodingMethods , VersionYear , ModeNumber ,
64: JPEGProc = 512 , JPEGInterchangeFormat , JPEGInterchangeFormatLength , JPEGRestartInterval ,
65: JPEGLosslessPredictors = 517 , JPEGPointTransforms , JPEGQTables , JPEGDCTables , JPEGACTables ,
66: YCbCrCoefficients = 529 , YCbCrSubsampling , YCbCrPositioning , ReferenceBlackWhite ,
67: XMP = 700 ,
68: ImageID = 32781 ,
69: Wang_Annotation = 32932 ,
70: Matteing = 32995 , DataType , ImageDepth , TileDepth ,
71: CFARepeatPatternDim = 33421 , CFAPattern , BatteryLevel ,
72: Copyright = 33432 ,
73: ExposureTime = 33434 ,
74: FNumber = 33437 ,
75: ModelPixelScaleTag = 33550 ,
76: IPTC_NAA = 33723 ,
77: INGR_Packet_Data_Tag = 33918 , INGR_Flag_Registers , IntergraphMatrixTag ,
78: ModelTiepointTag = 33922 ,
79: Site = 34016 , ColorSequence , IT8Header , RasterPadding , BitsPerRunLength , BitsPerExtendedRunLength , ColorTable , ImageColorIndicator , BackgroundColorIndicator , ImageColorValue , BackgroundColorValue , PixelInensityRange , TransparencyIndicator , ColorCharacterization , HCUsage ,
80: ModelTransformationTag = 34264 ,
81: PhotoshopImageResources = 34377 ,
82: ExifIFD = 34665 ,
83: InterColourProfile = 34675 ,
84: GeoKeyDirectoryTag = 34735 , GeoDoubleParamsTag , GeoAsciiParamsTag ,
85: ExposureProgram = 34850 ,
86: SpectralSensitibity = 34852 , GPSInfo ,
87: ISOSpeedRatings = 34855 , OECF , Interlace , TimeZoneOffset , SelfTimerMode ,
88: FaxRecvParams = 34908 , FaxSubAddress , FaxRecvTime ,
89: ExifVersion = 36864 ,
90: DateTimeOriginal = 36867 , DateTimeDigitized ,
91: ComponentsConfiguration = 37121 , CompressedBitsPerPixel ,
92: ShutterSpeedValue = 37377 , ApertureValue , BrightnessValue , ExposureBiasValue , MaxApertureValue , SubjectDistance , MeteringMode , LightSource , Flash , FocalLength , FlashEnergy , SpatialFrequencyResponse , Noise , FocalPlaneXResolution , FocalPlaneYResolution , FocalPlaneResolutionUnit , ImageNumber , SecurityClassification , ImageHistory , SubjectArea , ExposureIndex , TIFF_EPStandardID , SensingMethod ,
93: StoNits = 37439 ,
94: MakerNote = 37500 ,
95: UserComment = 37510 ,
96: SubSecTime = 37520 , SubSecTimeOriginal , SubSecTimeDigitized ,
97: ImageSourceData = 37724 ,
98: MSFax_CSID = 40001 , MSFax_TSID , MSFax_Device , MSFax_RoutingInfo , MSFax_CallerID , MSFax_RecipientName , MSFax_RecipientFaxNumber , MSFax_RecipientCompany , MSFax_RecipientAddress , MSFax_RecipientStreet , MSFax_RecipientCity , MSFax_RecipientZipCode , MSFax_RecipientCountry , MSFax_RecipientTitle , MSFax_RecipientDepartment , MSFax_RecipientOffice , MSFax_RecipientOfficePhone , MSFax_RecipientHomePhone , MSFax_Recipient40019 , MSFax_RecipientEmail , MSFax_SenderName , MSFax_SenderFaxNumber , MSFax_SenderCompany , MSFax_SenderAddress , MSFax_SenderStreet , MSFax_SenderCity , MSFax_SenderZipCode , MSFax_SenderCountry , MSFax_SenderTitle , MSFax_SenderDepartment , MSFax_SenderOffice , MSFax_SenderOfficePhone , MSFax_SenderHomePhone , MSFax_Sender40034 , MSFax_SenderEmail , MSFax_BillingCode , MSFax_UserName , MSFax_40038 , MSFax_Document , MSFax_CoverPageSubject , MSFax_Retries , MSFax_Priority , MSFax_ParentJobID , MSFax_SubmissionTime , MSFax_Scheduled , MSFax_TotalPages , MSFax_Type , MSFax_40048 , MSFax_ErrorCode , MSFax_40050 , MSFax_StartTime , MSFax_EndTime , MSFax_40053 ,
99: FlashpixVersion = 40960 , ColorSpace , PixelXDimension , PixelYDimension , RelatedSoundFile , InteroperabilityIFD ,
100: FlashEnergy_Exif = 41483 , SpatialFrequencyResponse_Exif ,
101: FocalPlaneXResolution_Exif = 41486 , FocalPlaneYResolution_Exif , FocalPlaneResolutionUnit_Exif ,
102: SubjectLocation_Exif = 41492 , ExposureIndex_Exif ,
103: SensingMethod_Exif = 41495 ,
104: FileSource = 41728 , SceneType , CFAPattern_Exif ,
105: CustomRendered = 41985 , ExposureMode , WhiteBalance , DigitalZoomRatio , FocalLengthIn35mmFilm , SceneCaptureType , GainControl , Contrast , Saturation , Sharpness , DeviceSettingDescription , SubjectDistanceRange ,
106: GDAL_METADATA = 42112 , GDAL_NODATA ,
107: Oce_Scanjob_Description = 50215 , Oce_Application_Selector , Oce_Identification_Number , Oce_ImageLogic_Characteristics ,
108: PhotoshopAnnotations = 50255 ,
109: DNGVersion = 50706 , DNGBackwardVersion , UniqueCameraModel , LocalizedCameraModel , CFAPlaneColor , CFALayout , LinearizationTable , BlackLevelRepeatDim , BlackLevel , BlackLevelDeltaH , BlackLevelDeltaV , WhiteLevel , DefaultScale , DefaultCropOrigin , DefaultCropSize , ColorMatrix1 , ColorMatrix2 , CameraCalibration1 , CameraCalibration2 , ReductionMatrix1 , ReductionMatrix2 , AnalogBalnace , AsShortNeutral , AsShortWhiteXY , BaselineExposure , BaselineNoise , BaselineSharpness , BayerGreenSplit , LinearResponseLimit , CameraSerialNumber , LensInfo , ChromaBlurRadius , AntiAliasStrength ,
110: DNGPrivateDatea = 50740 , MakerNoteSafety ,
111: CalibrationIlluminant1 = 50778 , CalibrationIlluminant2 , BestQualityScale ,
112: Alias_Layer_Metadata = 50784
113: } TAG ;
114:
115:
116: typedef enum < uint16 > eTAGTYPE {
117: eBYTE = 1 , eASCII , eSHORT , eLONG , eRATIONAL ,
118: eSBYTE , eUNDEF , eSSHORT , eSLONG , eSRATIONAL ,
119: eFLOAT , eDOUBLE
120: } TAGTYPE ;
121:
122:
123: typedef enum < uint16 > eCOMP {
124: Uncompressed = 1 , CCITT_1D , Group3Fax , Group4Fax , LZW , JPEG , JPEG2 ,
125: Deflate = 8 ,
126: NeXT2Bit = 32766 , CCITT_RLE = 32771 , PackBits = 32773 ,
127: ThunderScan4bit = 32809 , cRasterPadding = 32895 ,
128: RLEforLW = 32896 , RLEforHC , RLEforBL ,
129: Pixar10bitLZW = 32908 , PixarCompanded11bitZIP ,
130: PKZIP_Deflate = 32946 ,
131: Kodak_DCS = 32947 ,
132: JBIG = 34661 ,
133: SGI32LogLum = 34676 ,
134: SIG24LogLum = 34677 ,
135: JPEG_2000 = 34712
136: } COMP ;
137:
138:
139: typedef enum < uint16 > ePHOTO {
140: WhiteIsZero , BlackIsZero , RGB , RGB_Palette , Transparency_Mask , CMYK , YCbCr ,
141: CIELab = 8 , ICCLab , ITULab , CFA = 32803 , CIELog2L = 32844 , CIELog2Luv , LinearRaw = 34892
142: } PHOTO ;
143:
144:
145: typedef enum < uint16 > eRES {
146: None = 1 , Inch , Centimeter
147: } RES ;
148:
149:
150: typedef enum < uint16 > eKEYGeoTiff {
151: undefinedGeoKey = 1 ,
152:
153:
154:
155:
156:
157:
158:
159:
160: GTModelTypeGeoKey = 1024 ,
161: GTRasterTypeGeoKey = 1025 ,
162: GTCitationGeoKey = 1026 ,
163:
164:
165:
166: GeographicTypeGeoKey = 2048 ,
167: GeogCitationGeoKey = 2049 ,
168: GeogGeodeticDatumGeoKey = 2050 ,
169: GeogPrimeMeridianGeoKey = 2051 ,
170: GeogLinearUnitsGeoKey = 2052 ,
171: GeogLinearUnitSizeGeoKey = 2053 ,
172: GeogAngularUnitsGeoKey = 2054 ,
173: GeogAngularUnitSizeGeoKey = 2055 ,
174: GeogEllipsoidGeoKey = 2056 ,
175: GeogSemiMajorAxisGeoKey = 2057 ,
176: GeogSemiMinorAxisGeoKey = 2058 ,
177: GeogInvFlatteningGeoKey = 2059 ,
178: GeogAzimuthUnitsGeoKey = 2060 ,
179: GeogPrimeMeridianLongGeoKey = 2061 ,
180: GeogTOWGS84GeoKey = 2062 ,
181:
182:
183:
184:
185:
186: ProjectedCSTypeGeoKey = 3072 ,
187: PCSCitationGeoKey = 3073 ,
188: ProjectionGeoKey = 3074 ,
189: ProjCoordTransGeoKey = 3075 ,
190: ProjLinearUnitsGeoKey = 3076 ,
191: ProjLinearUnitSizeGeoKey = 3077 ,
192: ProjStdParallel1GeoKey = 3078 ,
193:
194: ProjStdParallel2GeoKey = 3079 ,
195: ProjNatOriginLongGeoKey = 3080 ,
196:
197: ProjNatOriginLatGeoKey = 3081 ,
198:
199: ProjFalseEastingGeoKey = 3082 ,
200: ProjFalseNorthingGeoKey = 3083 ,
201: ProjFalseOriginLongGeoKey = 3084 ,
202: ProjFalseOriginLatGeoKey = 3085 ,
203: ProjFalseOriginEastingGeoKey = 3086 ,
204: ProjFalseOriginNorthingGeoKey = 3087 ,
205: ProjCenterLongGeoKey = 3088 ,
206: ProjCenterLatGeoKey = 3089 ,
207: ProjCenterEastingGeoKey = 3090 ,
208: ProjCenterNorthingGeoKey = 3091 ,
209: ProjScaleAtNatOriginGeoKey = 3092 ,
210:
211: ProjScaleAtCenterGeoKey = 3093 ,
212: ProjAzimuthAngleGeoKey = 3094 ,
213: ProjStraightVertPoleLongGeoKey = 3095 ,
214: ProjRectifiedGridAngleGeoKey = 3096 ,
215:
216:
217:
218: VerticalCSTypeGeoKey = 4096 ,
219: VerticalCitationGeoKey = 4097 ,
220: VerticalDatumGeoKey = 4098 ,
221: VerticalUnitsGeoKey = 4099 ,
222:
223:
224:
225: userDefinedGeoKey = 32767
226: } GeoKEYlabel ;
227:
228:
229:
230:
231:
232:
233:
234: typedef enum < short > {
235: ModelTypeProjected = 1 ,
236: ModelTypeGeographic = 2 ,
237: ModelTypeGeocentric = 3 ,
238:
239:
240:
241: } modeltype_t ;
242:
243:
244: typedef enum < short > {
245: RasterPixelIsArea = 1 ,
246: RasterPixelIsPoint = 2
247: } rastertype_t ;
248:
249:
250: typedef enum < short > {
251: Linear_Meter = 9001 ,
252: Linear_Foot = 9002 ,
253: Linear_Foot_US_Survey = 9003 ,
254: Linear_Foot_Modified_American = 9004 ,
255: Linear_Foot_Clarke = 9005 ,
256: Linear_Foot_Indian = 9006 ,
257: Linear_Link = 9007 ,
258: Linear_Link_Benoit = 9008 ,
259: Linear_Link_Sears = 9009 ,
260: Linear_Chain_Benoit = 9010 ,
261: Linear_Chain_Sears = 9011 ,
262: Linear_Yard_Sears = 9012 ,
263: Linear_Yard_Indian = 9013 ,
264: Linear_Fathom = 9014 ,
265: Linear_Mile_International_Nautical = 9015
266: } LinearUnitCode_t ;
267:
268:
269: typedef enum < short > {
270: Angular_Radian = 9101 ,
271: Angular_Degree = 9102 ,
272: Angular_Arc_Minute = 9103 ,
273: Angular_Arc_Second = 9104 ,
274: Angular_Grad = 9105 ,
275: Angular_Gon = 9106 ,
276: Angular_DMS = 9107 ,
277: Angular_DMS_Hemisphere = 9108
278: } AngularUnitCode_t ;
279:
280:
281:
282: typedef enum < short > {
283: GCS_Adindan = 4201 ,
284: GCS_AGD66 = 4202 ,
285: GCS_AGD84 = 4203 ,
286: GCS_Ain_el_Abd = 4204 ,
287: GCS_Afgooye = 4205 ,
288: GCS_Agadez = 4206 ,
289: GCS_Lisbon = 4207 ,
290: GCS_Aratu = 4208 ,
291: GCS_Arc_1950 = 4209 ,
292: GCS_Arc_1960 = 4210 ,
293: GCS_Batavia = 4211 ,
294: GCS_Barbados = 4212 ,
295: GCS_Beduaram = 4213 ,
296: GCS_Beijing_1954 = 4214 ,
297: GCS_Belge_1950 = 4215 ,
298: GCS_Bermuda_1957 = 4216 ,
299: GCS_Bern_1898 = 4217 ,
300: GCS_Bogota = 4218 ,
301: GCS_Bukit_Rimpah = 4219 ,
302: GCS_Camacupa = 4220 ,
303: GCS_Campo_Inchauspe = 4221 ,
304: GCS_Cape = 4222 ,
305: GCS_Carthage = 4223 ,
306: GCS_Chua = 4224 ,
307: GCS_Corrego_Alegre = 4225 ,
308: GCS_Cote_d_Ivoire = 4226 ,
309: GCS_Deir_ez_Zor = 4227 ,
310: GCS_Douala = 4228 ,
311: GCS_Egypt_1907 = 4229 ,
312: GCS_ED50 = 4230 ,
313: GCS_ED87 = 4231 ,
314: GCS_Fahud = 4232 ,
315: GCS_Gandajika_1970 = 4233 ,
316: GCS_Garoua = 4234 ,
317: GCS_Guyane_Francaise = 4235 ,
318: GCS_Hu_Tzu_Shan = 4236 ,
319: GCS_HD72 = 4237 ,
320: GCS_ID74 = 4238 ,
321: GCS_Indian_1954 = 4239 ,
322: GCS_Indian_1975 = 4240 ,
323: GCS_Jamaica_1875 = 4241 ,
324: GCS_JAD69 = 4242 ,
325: GCS_Kalianpur = 4243 ,
326: GCS_Kandawala = 4244 ,
327: GCS_Kertau = 4245 ,
328: GCS_KOC = 4246 ,
329: GCS_La_Canoa = 4247 ,
330: GCS_PSAD56 = 4248 ,
331: GCS_Lake = 4249 ,
332: GCS_Leigon = 4250 ,
333: GCS_Liberia_1964 = 4251 ,
334: GCS_Lome = 4252 ,
335: GCS_Luzon_1911 = 4253 ,
336: GCS_Hito_XVIII_1963 = 4254 ,
337: GCS_Herat_North = 4255 ,
338: GCS_Mahe_1971 = 4256 ,
339: GCS_Makassar = 4257 ,
340: GCS_EUREF89 = 4258 ,
341: GCS_Malongo_1987 = 4259 ,
342: GCS_Manoca = 4260 ,
343: GCS_Merchich = 4261 ,
344: GCS_Massawa = 4262 ,
345: GCS_Minna = 4263 ,
346: GCS_Mhast = 4264 ,
347: GCS_Monte_Mario = 4265 ,
348: GCS_M_poraloko = 4266 ,
349: GCS_NAD27 = 4267 ,
350: GCS_NAD_Michigan = 4268 ,
351: GCS_NAD83 = 4269 ,
352: GCS_Nahrwan_1967 = 4270 ,
353: GCS_Naparima_1972 = 4271 ,
354: GCS_GD49 = 4272 ,
355: GCS_NGO_1948 = 4273 ,
356: GCS_Datum_73 = 4274 ,
357: GCS_NTF = 4275 ,
358: GCS_NSWC_9Z_2 = 4276 ,
359: GCS_OSGB_1936 = 4277 ,
360: GCS_OSGB70 = 4278 ,
361: GCS_OS_SN80 = 4279 ,
362: GCS_Padang = 4280 ,
363: GCS_Palestine_1923 = 4281 ,
364: GCS_Pointe_Noire = 4282 ,
365: GCS_GDA94 = 4283 ,
366: GCS_Pulkovo_1942 = 4284 ,
367: GCS_Qatar = 4285 ,
368: GCS_Qatar_1948 = 4286 ,
369: GCS_Qornoq = 4287 ,
370: GCS_Loma_Quintana = 4288 ,
371: GCS_Amersfoort = 4289 ,
372: GCS_RT38 = 4290 ,
373: GCS_SAD69 = 4291 ,
374: GCS_Sapper_Hill_1943 = 4292 ,
375: GCS_Schwarzeck = 4293 ,
376: GCS_Segora = 4294 ,
377: GCS_Serindung = 4295 ,
378: GCS_Sudan = 4296 ,
379: GCS_Tananarive = 4297 ,
380: GCS_Timbalai_1948 = 4298 ,
381: GCS_TM65 = 4299 ,
382: GCS_TM75 = 4300 ,
383: GCS_Tokyo = 4301 ,
384: GCS_Trinidad_1903 = 4302 ,
385: GCS_TC_1948 = 4303 ,
386: GCS_Voirol_1875 = 4304 ,
387: GCS_Voirol_Unifie = 4305 ,
388: GCS_Bern_1938 = 4306 ,
389: GCS_Nord_Sahara_1959 = 4307 ,
390: GCS_Stockholm_1938 = 4308 ,
391: GCS_Yacare = 4309 ,
392: GCS_Yoff = 4310 ,
393: GCS_Zanderij = 4311 ,
394: GCS_MGI = 4312 ,
395: GCS_Belge_1972 = 4313 ,
396: GCS_DHDN = 4314 ,
397: GCS_Conakry_1905 = 4315 ,
398: GCS_WGS_72 = 4322 ,
399: GCS_WGS_72BE = 4324 ,
400: GCS_WGS_84 = 4326 ,
401: GCS_Bern_1898_Bern = 4801 ,
402: GCS_Bogota_Bogota = 4802 ,
403: GCS_Lisbon_Lisbon = 4803 ,
404: GCS_Makassar_Jakarta = 4804 ,
405: GCS_MGI_Ferro = 4805 ,
406: GCS_Monte_Mario_Rome = 4806 ,
407: GCS_NTF_Paris = 4807 ,
408: GCS_Padang_Jakarta = 4808 ,
409: GCS_Belge_1950_Brussels = 4809 ,
410: GCS_Tananarive_Paris = 4810 ,
411: GCS_Voirol_1875_Paris = 4811 ,
412: GCS_Voirol_Unifie_Paris = 4812 ,
413: GCS_Batavia_Jakarta = 4813 ,
414: GCS_ATF_Paris = 4901 ,
415: GCS_NDG_Paris = 4902 ,
416: GCSE_Airy1830 = 4001 ,
417: GCSE_AiryModified1849 = 4002 ,
418: GCSE_AustralianNationalSpheroid = 4003 ,
419: GCSE_Bessel1841 = 4004 ,
420: GCSE_BesselModified = 4005 ,
421: GCSE_BesselNamibia = 4006 ,
422: GCSE_Clarke1858 = 4007 ,
423: GCSE_Clarke1866 = 4008 ,
424: GCSE_Clarke1866Michigan = 4009 ,
425: GCSE_Clarke1880_Benoit = 4010 ,
426: GCSE_Clarke1880_IGN = 4011 ,
427: GCSE_Clarke1880_RGS = 4012 ,
428: GCSE_Clarke1880_Arc = 4013 ,
429: GCSE_Clarke1880_SGA1922 = 4014 ,
430: GCSE_Everest1830_1937Adjustment = 4015 ,
431: GCSE_Everest1830_1967Definition = 4016 ,
432: GCSE_Everest1830_1975Definition = 4017 ,
433: GCSE_Everest1830Modified = 4018 ,
434: GCSE_GRS1980 = 4019 ,
435: GCSE_Helmert1906 = 4020 ,
436: GCSE_IndonesianNationalSpheroid = 4021 ,
437: GCSE_International1924 = 4022 ,
438: GCSE_International1967 = 4023 ,
439: GCSE_Krassowsky1940 = 4024 ,
440: GCSE_NWL9D = 4025 ,
441: GCSE_NWL10D = 4026 ,
442: GCSE_Plessis1817 = 4027 ,
443: GCSE_Struve1860 = 4028 ,
444: GCSE_WarOffice = 4029 ,
445: GCSE_WGS84 = 4030 ,
446: GCSE_GEM10C = 4031 ,
447: GCSE_OSU86F = 4032 ,
448: GCSE_OSU91A = 4033 ,
449: GCSE_Clarke1880 = 4034 ,
450: GCSE_Sphere = 4035
451: } GCSCode_t ;
452:
453:
454:
455:
456: typedef enum < short > {
457: Datum_Adindan = 6201 ,
458: Datum_Australian_Geodetic_Datum_1966 = 6202 ,
459: Datum_Australian_Geodetic_Datum_1984 = 6203 ,
460: Datum_Ain_el_Abd_1970 = 6204 ,
461: Datum_Afgooye = 6205 ,
462: Datum_Agadez = 6206 ,
463: Datum_Lisbon = 6207 ,
464: Datum_Aratu = 6208 ,
465: Datum_Arc_1950 = 6209 ,
466: Datum_Arc_1960 = 6210 ,
467: Datum_Batavia = 6211 ,
468: Datum_Barbados = 6212 ,
469: Datum_Beduaram = 6213 ,
470: Datum_Beijing_1954 = 6214 ,
471: Datum_Reseau_National_Belge_1950 = 6215 ,
472: Datum_Bermuda_1957 = 6216 ,
473: Datum_Bern_1898 = 6217 ,
474: Datum_Bogota = 6218 ,
475: Datum_Bukit_Rimpah = 6219 ,
476: Datum_Camacupa = 6220 ,
477: Datum_Campo_Inchauspe = 6221 ,
478: Datum_Cape = 6222 ,
479: Datum_Carthage = 6223 ,
480: Datum_Chua = 6224 ,
481: Datum_Corrego_Alegre = 6225 ,
482: Datum_Cote_d_Ivoire = 6226 ,
483: Datum_Deir_ez_Zor = 6227 ,
484: Datum_Douala = 6228 ,
485: Datum_Egypt_1907 = 6229 ,
486: Datum_European_Datum_1950 = 6230 ,
487: Datum_European_Datum_1987 = 6231 ,
488: Datum_Fahud = 6232 ,
489: Datum_Gandajika_1970 = 6233 ,
490: Datum_Garoua = 6234 ,
491: Datum_Guyane_Francaise = 6235 ,
492: Datum_Hu_Tzu_Shan = 6236 ,
493: Datum_Hungarian_Datum_1972 = 6237 ,
494: Datum_Indonesian_Datum_1974 = 6238 ,
495: Datum_Indian_1954 = 6239 ,
496: Datum_Indian_1975 = 6240 ,
497: Datum_Jamaica_1875 = 6241 ,
498: Datum_Jamaica_1969 = 6242 ,
499: Datum_Kalianpur = 6243 ,
500: Datum_Kandawala = 6244 ,
501: Datum_Kertau = 6245 ,
502: Datum_Kuwait_Oil_Company = 6246 ,
503: Datum_La_Canoa = 6247 ,
504: Datum_Provisional_S_American_Datum_1956 = 6248 ,
505: Datum_Lake = 6249 ,
506: Datum_Leigon = 6250 ,
507: Datum_Liberia_1964 = 6251 ,
508: Datum_Lome = 6252 ,
509: Datum_Luzon_1911 = 6253 ,
510: Datum_Hito_XVIII_1963 = 6254 ,
511: Datum_Herat_North = 6255 ,
512: Datum_Mahe_1971 = 6256 ,
513: Datum_Makassar = 6257 ,
514: Datum_European_Reference_System_1989 = 6258 ,
515: Datum_Malongo_1987 = 6259 ,
516: Datum_Manoca = 6260 ,
517: Datum_Merchich = 6261 ,
518: Datum_Massawa = 6262 ,
519: Datum_Minna = 6263 ,
520: Datum_Mhast = 6264 ,
521: Datum_Monte_Mario = 6265 ,
522: Datum_M_poraloko = 6266 ,
523: Datum_North_American_Datum_1927 = 6267 ,
524: Datum_NAD_Michigan = 6268 ,
525: Datum_North_American_Datum_1983 = 6269 ,
526: Datum_Nahrwan_1967 = 6270 ,
527: Datum_Naparima_1972 = 6271 ,
528: Datum_New_Zealand_Geodetic_Datum_1949 = 6272 ,
529: Datum_NGO_1948 = 6273 ,
530: Datum_Datum_73 = 6274 ,
531: Datum_Nouvelle_Triangulation_Francaise = 6275 ,
532: Datum_NSWC_9Z_2 = 6276 ,
533: Datum_OSGB_1936 = 6277 ,
534: Datum_OSGB_1970_SN = 6278 ,
535: Datum_OS_SN_1980 = 6279 ,
536: Datum_Padang_1884 = 6280 ,
537: Datum_Palestine_1923 = 6281 ,
538: Datum_Pointe_Noire = 6282 ,
539: Datum_Geocentric_Datum_of_Australia_1994 = 6283 ,
540: Datum_Pulkovo_1942 = 6284 ,
541: Datum_Qatar = 6285 ,
542: Datum_Qatar_1948 = 6286 ,
543: Datum_Qornoq = 6287 ,
544: Datum_Loma_Quintana = 6288 ,
545: Datum_Amersfoort = 6289 ,
546: Datum_RT38 = 6290 ,
547: Datum_South_American_Datum_1969 = 6291 ,
548: Datum_Sapper_Hill_1943 = 6292 ,
549: Datum_Schwarzeck = 6293 ,
550: Datum_Segora = 6294 ,
551: Datum_Serindung = 6295 ,
552: Datum_Sudan = 6296 ,
553: Datum_Tananarive_1925 = 6297 ,
554: Datum_Timbalai_1948 = 6298 ,
555: Datum_TM65 = 6299 ,
556: Datum_TM75 = 6300 ,
557: Datum_Tokyo = 6301 ,
558: Datum_Trinidad_1903 = 6302 ,
559: Datum_Trucial_Coast_1948 = 6303 ,
560: Datum_Voirol_1875 = 6304 ,
561: Datum_Voirol_Unifie_1960 = 6305 ,
562: Datum_Bern_1938 = 6306 ,
563: Datum_Nord_Sahara_1959 = 6307 ,
564: Datum_Stockholm_1938 = 6308 ,
565: Datum_Yacare = 6309 ,
566: Datum_Yoff = 6310 ,
567: Datum_Zanderij = 6311 ,
568: Datum_Militar_Geographische_Institut = 6312 ,
569: Datum_Reseau_National_Belge_1972 = 6313 ,
570: Datum_Deutsche_Hauptdreiecksnetz = 6314 ,
571: Datum_Conakry_1905 = 6315 ,
572: Datum_WGS72 = 6322 ,
573: Datum_WGS72_Transit_Broadcast_Ephemeris = 6324 ,
574: Datum_WGS84 = 6326 ,
575: Datum_Ancienne_Triangulation_Francaise = 6901 ,
576: Datum_Nord_de_Guerre = 6902 ,
577:
578:
579:
580: DatumE_Airy1830 = 6001 ,
581: DatumE_AiryModified1849 = 6002 ,
582: DatumE_AustralianNationalSpheroid = 6003 ,
583: DatumE_Bessel1841 = 6004 ,
584: DatumE_BesselModified = 6005 ,
585: DatumE_BesselNamibia = 6006 ,
586: DatumE_Clarke1858 = 6007 ,
587: DatumE_Clarke1866 = 6008 ,
588: DatumE_Clarke1866Michigan = 6009 ,
589: DatumE_Clarke1880_Benoit = 6010 ,
590: DatumE_Clarke1880_IGN = 6011 ,
591: DatumE_Clarke1880_RGS = 6012 ,
592: DatumE_Clarke1880_Arc = 6013 ,
593: DatumE_Clarke1880_SGA1922 = 6014 ,
594: DatumE_Everest1830_1937Adjustment = 6015 ,
595: DatumE_Everest1830_1967Definition = 6016 ,
596: DatumE_Everest1830_1975Definition = 6017 ,
597: DatumE_Everest1830Modified = 6018 ,
598: DatumE_GRS1980 = 6019 ,
599: DatumE_Helmert1906 = 6020 ,
600: DatumE_IndonesianNationalSpheroid = 6021 ,
601: DatumE_International1924 = 6022 ,
602: DatumE_International1967 = 6023 ,
603: DatumE_Krassowsky1960 = 6024 ,
604: DatumE_NWL9D = 6025 ,
605: DatumE_NWL10D = 6026 ,
606: DatumE_Plessis1817 = 6027 ,
607: DatumE_Struve1860 = 6028 ,
608: DatumE_WarOffice = 6029 ,
609: DatumE_WGS84 = 6030 ,
610: DatumE_GEM10C = 6031 ,
611: DatumE_OSU86F = 6032 ,
612: DatumE_OSU91A = 6033 ,
613: DatumE_Clarke1880 = 6034 ,
614: DatumE_Sphere = 6035
615: } DatumCode_t ;
616:
617:
618:
619:
620: typedef enum < short > {
621: Ellipse_Airy_1830 = 7001 ,
622: Ellipse_Airy_Modified_1849 = 7002 ,
623: Ellipse_Australian_National_Spheroid = 7003 ,
624: Ellipse_Bessel_1841 = 7004 ,
625: Ellipse_Bessel_Modified = 7005 ,
626: Ellipse_Bessel_Namibia = 7006 ,
627: Ellipse_Clarke_1858 = 7007 ,
628: Ellipse_Clarke_1866 = 7008 ,
629: Ellipse_Clarke_1866_Michigan = 7009 ,
630: Ellipse_Clarke_1880_Benoit = 7010 ,
631: Ellipse_Clarke_1880_IGN = 7011 ,
632: Ellipse_Clarke_1880_RGS = 7012 ,
633: Ellipse_Clarke_1880_Arc = 7013 ,
634: Ellipse_Clarke_1880_SGA_1922 = 7014 ,
635: Ellipse_Everest_1830_1937_Adjustment = 7015 ,
636: Ellipse_Everest_1830_1967_Definition = 7016 ,
637: Ellipse_Everest_1830_1975_Definition = 7017 ,
638: Ellipse_Everest_1830_Modified = 7018 ,
639: Ellipse_GRS_1980 = 7019 ,
640: Ellipse_Helmert_1906 = 7020 ,
641: Ellipse_Indonesian_National_Spheroid = 7021 ,
642: Ellipse_International_1924 = 7022 ,
643: Ellipse_International_1967 = 7023 ,
644: Ellipse_Krassowsky_1940 = 7024 ,
645: Ellipse_NWL_9D = 7025 ,
646: Ellipse_NWL_10D = 7026 ,
647: Ellipse_Plessis_1817 = 7027 ,
648: Ellipse_Struve_1860 = 7028 ,
649: Ellipse_War_Office = 7029 ,
650: Ellipse_WGS_84 = 7030 ,
651: Ellipse_GEM_10C = 7031 ,
652: Ellipse_OSU86F = 7032 ,
653: Ellipse_OSU91A = 7033 ,
654: Ellipse_Clarke_1880 = 7034 ,
655: Ellipse_Sphere = 7035
656: } EllipsoidCode_t ;
657:
658:
659:
660: typedef enum < short > {
661: PM_Greenwich = 8901 ,
662: PM_Lisbon = 8902 ,
663: PM_Paris = 8903 ,
664: PM_Bogota = 8904 ,
665: PM_Madrid = 8905 ,
666: PM_Rome = 8906 ,
667: PM_Bern = 8907 ,
668: PM_Jakarta = 8908 ,
669: PM_Ferro = 8909 ,
670: PM_Brussels = 8910 ,
671: PM_Stockholm = 8911
672: } PrimeMeridianCode_t ;
673:
674:
675:
676:
677:
678:
679: typedef enum < short > {
680: CT_TransverseMercator = 1 ,
681: CT_TransvMercator_Modified_Alaska = 2 ,
682: CT_ObliqueMercator = 3 ,
683: CT_ObliqueMercator_Laborde = 4 ,
684: CT_ObliqueMercator_Rosenmund = 5 ,
685: CT_ObliqueMercator_Spherical = 6 ,
686: CT_Mercator = 7 ,
687: CT_LambertConfConic_2SP = 8 ,
688: CT_LambertConfConic_Helmert = 9 ,
689: CT_LambertAzimEqualArea = 10 ,
690: CT_AlbersEqualArea = 11 ,
691: CT_AzimuthalEquidistant = 12 ,
692: CT_EquidistantConic = 13 ,
693: CT_Stereographic = 14 ,
694: CT_PolarStereographic = 15 ,
695: CT_ObliqueStereographic = 16 ,
696: CT_Equirectangular = 17 ,
697: CT_CassiniSoldner = 18 ,
698: CT_Gnomonic = 19 ,
699: CT_MillerCylindrical = 20 ,
700: CT_Orthographic = 21 ,
701: CT_Polyconic = 22 ,
702: CT_Robinson = 23 ,
703: CT_Sinusoidal = 24 ,
704: CT_VanDerGrinten = 25 ,
705: CT_NewZealandMapGrid = 26 ,
706: CT_TransvMercator_SouthOriented = 27
707: } CTCode_t ;
708:
709:
710:
711:
712:
713: typedef struct {
714: SetBackColor ( cLtAqua ) ;
715: GeoKEYlabel label ;
716: if ( ReadUShort ( FTell ( ) ) != 0 )
717: {
718: TAG TiffTagLocation ;
719: uint16 Length ;
720: uint16 Offset ;
721: }
722: else
723: {
724: uint16 direct ;
725: uint16 size ;
726:
727:
728: switch ( size ) {
729: case 1 :
730:
731:
732: switch ( label ) {
733: case GTModelTypeGeoKey :
734: modeltype_t value ;
735: break ;
736:
737: case GTRasterTypeGeoKey :
738: rastertype_t value ;
739: break ;
740:
741: case GeographicTypeGeoKey :
742: GCSCode_t value ;
743: break ;
744:
745: case GeogGeodeticDatumGeoKey :
746: DatumCode_t value ;
747: break ;
748:
749: case GeogPrimeMeridianGeoKey :
750: PrimeMeridianCode_t value ;
751: break ;
752:
753: case GeogLinearUnitsGeoKey :
754: LinearUnitCode_t value ;
755: break ;
756:
757: case GeogAngularUnitsGeoKey :
758: AngularUnitCode_t value ;
759: break ;
760:
761: case GeogEllipsoidGeoKey :
762: EllipsoidCode_t value ;
763: break ;
764:
765: case GeogAzimuthUnitsGeoKey :
766: AngularUnitCode_t value ;
767: break ;
768:
769: case ProjectedCSTypeGeoKey :
770: short value ;
771: break ;
772:
773: case ProjectionGeoKey :
774: short value ;
775: break ;
776:
777: case ProjCoordTransGeoKey :
778: short value ;
779: break ;
780:
781: case ProjLinearUnitsGeoKey :
782: short value ;
783: break ;
784:
785: case VerticalCSTypeGeoKey :
786: short value ;
787: break ;
788:
789: case VerticalDatumGeoKey :
790: short value ;
791: break ;
792:
793: case VerticalUnitsGeoKey :
794: LinearUnitCode_t value ;
795: break ;
796:
797: default :
798: short value ;
799: } ;
800: break ;
801:
802: default :
803: double value ;
804: } ;
805:
806: }
807: } GEOKEY < read = readGEOKEY > ;
808:
809:
810:
811:
812:
813:
814: string readGEOKEY ( local GEOKEY & gk ) {
815: local string s ;
816:
817: SPrintf ( s , "%s (%d)" , EnumToString ( gk . label ) , gk . label ) ;
818: return s ;
819: }
820:
821:
822: typedef struct eGEOKEYDIR {
823: SetBackColor ( cLtAqua ) ;
824: uint16 GeoTiffVersion ;
825: uint16 GeoTiffRevMajor ;
826: uint16 GeoTiffRevMinor ;
827: uint16 GeoKeyCount ;
828: local uint16 i ;
829: for ( i == 0 ; i < GeoKeyCount ; i ++ )
830: { GEOKEY GeoKeyValue ; } ;
831: } GEOKEYDIR ;
832:
833:
834:
835:
836: typedef struct {
837: uint32 num ;
838: uint32 dom ;
839: } RATIONAL < read = readRATIONAL , write = writeRATIONAL > ;
840:
841: string readRATIONAL ( local RATIONAL & r ) {
842: local string s ;
843: SPrintf ( s , "%d/%d" , r . num , r . dom ) ;
844: return s ;
845: }
846:
847: void writeRATIONAL ( local RATIONAL & r , local string s ) {
848: SScanf ( s , "%d/%d" , r . num , r . dom ) ;
849: }
850:
851:
852:
853: typedef struct {
854: int32 num ;
855: int32 dom ;
856: } SRATIONAL < read = readSRATIONAL , write = writeSRATIONAL > ;
857:
858: string readSRATIONAL ( local SRATIONAL & r ) {
859: local string s ;
860: SPrintf ( s , "%d/%d" , r . num , r . dom ) ;
861: return s ;
862: }
863:
864: void writeSRATIONAL ( local SRATIONAL & r , local string s ) {
865: SScanf ( s , "%d/%d" , r . num , r . dom ) ;
866: }
867:
868:
869:
870:
871:
872:
873:
874: typedef struct {
875: SetBackColor ( cLtGreen ) ;
876:
877: TAG tag ;
878: TAGTYPE typ ;
879: uint32 count ;
880: if ( typ == eBYTE ) {
881: if ( count < 4 ) {
882: ubyte data [ count ] ;
883: ubyte padding [ 4 - count ] ;
884: } else if ( count == 4 ) {
885: ubyte data [ count ] ;
886: } else {
887: SetBackColor ( cLtBlue ) ;
888: uint32 offset < format = hex > ;
889: local quad curpos = FTell ( ) ;
890: FSeek ( offset ) ;
891:
892: ubyte value [ count ] ;
893: FSeek ( curpos ) ;
894: }
895: } else if ( typ == eASCII ) {
896: if ( count < 4 ) {
897: char data [ count ] ;
898: char padding [ 4 - count ] ;
899: } else if ( count == 4 ) {
900: char data [ count ] ;
901: } else {
902: SetBackColor ( cLtBlue ) ;
903: uint32 offset < format = hex > ;
904: local quad curpos = FTell ( ) ;
905: FSeek ( offset ) ;
906: char data [ count ] ;
907: FSeek ( curpos ) ;
908: }
909: } else if ( typ == eSHORT ) {
910: if ( count == 1 ) {
911: if ( tag == Compression ) {
912: COMP value ;
913: } else if ( tag == PhotometricInterpretation ) {
914: PHOTO value ;
915: } else if ( tag == ResolutionUnit ) {
916: RES value ;
917: } else {
918: uint16 value ;
919:
920: }
921: uint16 padding ;
922: } else if ( count == 2 ) {
923: uint16 value [ 2 ] ;
924: } else {
925: SetBackColor ( cLtBlue ) ;
926: uint32 offset < format = hex > ;
927: local quad curpos = FTell ( ) ;
928: FSeek ( offset ) ;
929:
930:
931: if ( tag == GeoKeyDirectoryTag ) {
932: GEOKEYDIR value ;
933: } else {
934:
935:
936: uint16 value [ count ] ;
937: }
938:
939: FSeek ( curpos ) ;
940: }
941: } else if ( typ == eLONG ) {
942: if ( count == 1 ) {
943: uint32 value ;
944: } else {
945: SetBackColor ( cLtBlue ) ;
946: uint32 offset < format = hex > ;
947: local quad curpos = FTell ( ) ;
948: FSeek ( offset ) ;
949: uint32 value [ count ] ;
950: FSeek ( curpos ) ;
951: }
952: } else if ( typ == eRATIONAL ) {
953: SetBackColor ( cLtBlue ) ;
954: uint32 offset < format = hex > ;
955: local quad curpos = FTell ( ) ;
956: FSeek ( offset ) ;
957: if ( count == 1 ) {
958: RATIONAL value ;
959: } else {
960: RATIONAL value [ count ] ;
961: }
962: FSeek ( curpos ) ;
963: } else if ( typ == eSBYTE ) {
964: if ( count < 4 ) {
965: byte data [ count ] ;
966: ubyte padding [ 4 - count ] ;
967: } else if ( count == 4 ) {
968: byte data [ count ] ;
969: } else {
970: SetBackColor ( cLtBlue ) ;
971: uint32 offset < format = hex > ;
972: local quad curpos = FTell ( ) ;
973: FSeek ( offset ) ;
974: byte value [ count ] ;
975: FSeek ( curpos ) ;
976: }
977: } else if ( typ == eUNDEF ) {
978: if ( count < 4 ) {
979: ubyte data [ count ] ;
980: ubyte padding [ 4 - count ] ;
981: } else if ( count == 4 ) {
982: ubyte data [ count ] ;
983: } else {
984: SetBackColor ( cLtBlue ) ;
985: uint32 offset < format = hex > ;
986: local quad curpos = FTell ( ) ;
987: FSeek ( offset ) ;
988: ubyte value [ count ] ;
989: FSeek ( curpos ) ;
990: }
991: } else if ( typ == eSSHORT ) {
992: if ( count == 1 ) {
993: int16 value ;
994: int16 padding ;
995: } else if ( count == 2 ) {
996: int16 value [ 2 ] ;
997: } else {
998: SetBackColor ( cLtBlue ) ;
999: uint32 offset < format = hex > ;
1000: local quad curpos = FTell ( ) ;
1001: FSeek ( offset ) ;
1002: int16 value [ count ] ;
1003: FSeek ( curpos ) ;
1004: }
1005: } else if ( typ == eSLONG ) {
1006: if ( count == 1 ) {
1007: int32 value ;
1008: } else {
1009: SetBackColor ( cLtBlue ) ;
1010: uint32 offset < format = hex > ;
1011: local quad curpos = FTell ( ) ;
1012: FSeek ( offset ) ;
1013: int32 value [ count ] ;
1014: FSeek ( curpos ) ;
1015: }
1016: } else if ( typ == eSRATIONAL ) {
1017: SetBackColor ( cLtBlue ) ;
1018: uint32 offset < format = hex > ;
1019: local quad curpos = FTell ( ) ;
1020: FSeek ( offset ) ;
1021: if ( count == 1 ) {
1022: SRATIONAL value ;
1023: } else {
1024: SRATIONAL value [ count ] ;
1025: }
1026: FSeek ( curpos ) ;
1027: } else if ( typ == eFLOAT ) {
1028: if ( count == 1 ) {
1029: float value ;
1030: } else {
1031: SetBackColor ( cLtBlue ) ;
1032: uint32 offset < format = hex > ;
1033: local quad curpos = FTell ( ) ;
1034: FSeek ( offset ) ;
1035: float value [ count ] ;
1036: FSeek ( curpos ) ;
1037: }
1038: } else if ( typ == eDOUBLE ) {
1039: SetBackColor ( cLtBlue ) ;
1040: uint32 offset < format = hex > ;
1041: local quad curpos = FTell ( ) ;
1042: FSeek ( offset ) ;
1043: if ( count == 1 ) {
1044: double value ;
1045: } else {
1046: double value [ count ] ;
1047: }
1048: FSeek ( curpos ) ;
1049: } else {
1050:
1051:
1052:
1053: uint32 valOffset < format = hex > ;
1054: }
1055: } ENT < read = readENT > ;
1056:
1057:
1058:
1059:
1060:
1061:
1062: string readENT ( local ENT & ent ) {
1063: local string s ;
1064:
1065: SPrintf ( s , "%s (%d): %s" , EnumToString ( ent . tag ) , ent . tag , EnumToString ( ent . typ ) ) ;
1066: return s ;
1067: }
1068:
1069:
1070: typedef struct {
1071: uint16 numentries ;
1072: ENT dir [ numentries ] < optimize = false > ;
1073: uint32 offset < format = hex > ;
1074: nextIFD = ( quad ) offset ;
1075: } IFD < read = readIFD > ;
1076:
1077:
1078:
1079:
1080:
1081:
1082: string readIFD ( local IFD & ifd ) {
1083: local string s ;
1084:
1085: SPrintf ( s , "%d: %s" , ifd . numentries , ( ifd . numentries > 0 ) ? EnumToString ( ifd . dir [ 0 ] . tag ) : "" ) ;
1086: return s ;
1087: }
1088:
1089:
1090: typedef struct {
1091: char bom [ 2 ] ;
1092: uint16 magic ;
1093: if ( magic != 42 ) {
1094: Warning ( "Invalid TIFF File: Bad Magic number" ) ;
1095: return - 1 ;
1096: }
1097: uint32 offset < format = hex > ;
1098:
1099:
1100: if ( offset == 0 ) {
1101: Warning ( "Invalid TIFF File: No initial IFD" ) ;
1102: return - 1 ;
1103: }
1104:
1105: nextIFD = ( quad ) offset ;
1106: } IFH ;
1107:
1108:
1109:
1110:
1111:
1112: SetBackColor ( cLtRed ) ;
1113: IFH ifh ;
1114: while ( nextIFD ) {
1115: SetBackColor ( cLtGreen ) ;
1116: FSeek ( nextIFD ) ;
1117: IFD ifd ;
1118: }
1119: tok_eof