00001
00002
00003
00004
00005 #define MAXLITO 77
00006 #define LITO_ALTURA 16
00007 #define LITO_LARGURA 16
00008
00009 static
00010 short gbgxTabLitoAgp [] ={40, 13, 41, 15, 42, 9, 10, 11, 69, 12,
00011 43, 44, 45, 46, 47, 76, 99, 70, 71, 59,
00012 60, 61, 62, 63, 64, 65, 66, 67, 68, 14,
00013 99, 99, 99, 99, 99, 99, 99, 99, 99, 29,
00014 48, 5, 72, 4, 73, 23, 74, 3, 3, 3,
00015 99, 75, 56, 2, 0, 0, 1, 8, 57, 49,
00016 20, 99, 50, 19, 17, 16, 32, 51, 99, 18,
00017 33, 31, 39, 36, 34, 35, 28, 38, 52, 99,
00018 27, 6, 58, 25, 7, 26, 24, 99, 99, 53,
00019 54, 30, 99, 37, 55, 99, 99, 99, 99, 99};
00020
00021
00022 static
00023 char *gbgxNomLitoExt[MAXLITO] = {
00024 "arg,agt - argila,argilito",
00025 "flh - folhelho",
00026 "slt - siltito",
00027 "arn,are - arenito,areia",
00028 "dmt - diamictito",
00029 "cgl - conglomerado",
00030 "and - anidrita",
00031 "hal - halita",
00032 "mrg - marga",
00033 "clu - calcilutito",
00034 "csi - calcissiltito",
00035 "cre - calcarenito",
00036 "cru - calcirudito",
00037 "clc - calcario cristalino",
00038 "dol - dolomita",
00039 "coq - coquina",
00040 "bas - basalto",
00041 "dia - diabasio",
00042 "mni - metamorficas",
00043 "ini - igneas",
00044 "tuf - tufo vulcanico",
00045 "hachura vertical",
00046 "oleo",
00047 "til - tilito",
00048 "crn - carnalita",
00049 "sni - sal nao identificado",
00050 "slv - silvinita",
00051 "tqd - taquidrita",
00052 "ars - ardosia",
00053 "brc - brecha",
00054 "crv - carvao",
00055 "flt - filito",
00056 "grn - granito",
00057 "gna - gnaisse",
00058 "mar - meta_arenito",
00059 "msi - meta_siltito",
00060 "qzt - quartzito",
00061 "slx - silexito",
00062 "ulb - ultrabasica",
00063 "xst - xisto",
00064 "cal - calcario",
00065 "mrm - marmore calcitico",
00066 "mrd - marmore dolomitico",
00067 "cim - cimento",
00068 "mds - mudstone",
00069 "wks - wackestone",
00070 "pks - packstone",
00071 "grs - grainstone",
00072 "brv - brecha vulcanica",
00073 "vcl - vulcanoclastica",
00074 "igb - ignimbrito",
00075 "rlt - riolito",
00076 "msd - metassedimento",
00077 "lnt - linhito",
00078 "tes - talcoestivencita",
00079 "fng - fangolita",
00080 "lma - limoarcilita",
00081 "tob - toba",
00082 "gip - gipsita",
00083 "agn - argilito arenoso",
00084 "agl - argilito carbonatico",
00085 "agc - argilito carbonoso",
00086 "ags - argilito siltico",
00087 "agb - argilito tobaceo",
00088 "arl - arenito argiloso",
00089 "arc - arenito carbonatico",
00090 "aro - arenito conglomeratico",
00091 "arf - arenito fosfatico",
00092 "art - arenito tobaceo",
00093 "sid - siderita",
00094 "pho - fosforita",
00095 "cht - chert",
00096 "ton - toba arenosa",
00097 "tol - toba argilosa",
00098 "tos - toba siltica",
00099 "fls - folhelho siltico",
00100 "blt - biolitito"
00101 };
00102
00103
00104 static
00105 char * gbgxLitoNomes[MAXLITO] = { "arg",
00106 "flh",
00107 "slt",
00108 "arn",
00109 "dmt",
00110 "cgl",
00111 "and",
00112 "hal",
00113 "mrg",
00114 "clu",
00115 "csi",
00116 "cre",
00117 "cru",
00118 "clc",
00119 "dol",
00120 "coq",
00121 "bas",
00122 "dia",
00123 "mni",
00124 "ini",
00125 "tuf",
00126 "hcv",
00127 "ole",
00128 "til",
00129 "crn",
00130 "sln",
00131 "slv",
00132 "tqd",
00133 "ars",
00134 "brc",
00135 "crv",
00136 "flt",
00137 "grn",
00138 "gna",
00139 "mar",
00140 "msi",
00141 "qzt",
00142 "slx",
00143 "ulb",
00144 "xst",
00145 "cal",
00146 "mrm",
00147 "mrd",
00148 "cim",
00149 "mds",
00150 "wks",
00151 "pks",
00152 "grs",
00153 "brv",
00154 "vcl",
00155 "igb",
00156 "rlt",
00157 "msd",
00158 "lnt",
00159 "tes",
00160 "fng",
00161 "lma",
00162 "tob",
00163 "gip",
00164 "agn",
00165 "agl",
00166 "agc",
00167 "ags",
00168 "agb",
00169 "arl",
00170 "arc",
00171 "aro",
00172 "arf",
00173 "art",
00174 "sid",
00175 "pho",
00176 "cht",
00177 "ton",
00178 "tol",
00179 "tos",
00180 "fls",
00181 "blt"
00182 };
00183
00184 static
00185 char *gbgxNomLitoExtEN[MAXLITO] = {
00186 "xxx,xxx - mud, clay",
00187 "xxx - shale",
00188 "xxx - siltstone",
00189 "xxx,xxx - sandstone, sand",
00190 "xxx - diamictite",
00191 "xxx - conglomerate",
00192 "xxx - anhydrite",
00193 "xxx - halite",
00194 "xxx - marl",
00195 "xxx - calcilutite",
00196 "xxx - calcisiltite",
00197 "xxx - calcarenite",
00198 "xxx - calcirudite",
00199 "xxx - crystalline limestone",
00200 "xxx - dolomite",
00201 "xxx - coquina",
00202 "xxx - basalt",
00203 "xxx - diabase",
00204 "xxx - metamorphic",
00205 "xxx - igneous",
00206 "xxx - tuff",
00207 "hachura vertical",
00208 "oil",
00209 "xxx - glacial till",
00210 "xxx - carnallite",
00211 "xxx - salt (not identified)",
00212 "xxx - silvyte",
00213 "xxx - tachhydrite",
00214 "xxx - slate",
00215 "xxx - breccia",
00216 "xxx - coal",
00217 "xxx - phyllite",
00218 "xxx - granite",
00219 "xxx - gneiss",
00220 "xxx - meta sandstone",
00221 "xxx - meta siltstone",
00222 "xxx - quartzite",
00223 "xxx - flint",
00224 "xxx - ultrabasic rock",
00225 "xxx - schist",
00226 "xxx - limestone",
00227 "xxx - marble",
00228 "xxx - dolomitc marble",
00229 "xxx - cement",
00230 "xxx - mudstone",
00231 "xxx - wackestone",
00232 "xxx - packstone",
00233 "xxx - grainstone",
00234 "xxx - volcanic breccia",
00235 "xxx - volcaniclastic rock",
00236 "xxx - ignimbrite",
00237 "xxx - rhyolite",
00238 "xxx - meta sediments",
00239 "xxx - lignite",
00240 "xxx - talc stevensite",
00241 "xxx - fangolita",
00242 "xxx - limoarcilita",
00243 "xxx - toba",
00244 "xxx - gypsum",
00245 "xxx - argilito arenoso",
00246 "xxx - argilito carbonatico",
00247 "xxx - argilito carbonoso",
00248 "xxx - argilito siltico",
00249 "xxx - argilito tobaceo",
00250 "xxx - arenito argiloso",
00251 "xxx - arenito carbonatico",
00252 "xxx - arenito conglomeratico",
00253 "xxx - arenito fosfatico",
00254 "xxx - arenito tobaceo",
00255 "xxx - siderita",
00256 "xxx - fosforita",
00257 "xxx - chert",
00258 "xxx - toba arenosa",
00259 "xxx - toba argilosa",
00260 "xxx - toba siltica",
00261 "xxx - folhelho siltico",
00262 "xxx - biolitito"
00263 };
