	// e texture con erba brada...
						T_SCALE = 128;
						n = RANDOM (15) + 12;
						ptr = 65535;
						while (ptr) {
							txtr[ptr] = RANDOM(n);
							ptr--;
						}
						n=1;
						while (n>0) {
							ptr = 65535 - 257;
							while (ptr) {
								cx = txtr[ptr] + txtr[ptr+1] + txtr[ptr+256] + txtr[ptr+257];
								txtr[ptr] = cx >> 2;
								ptr--;
							}
							n--;
						}
						n = 25 + RANDOM (50);
						while (n>0) {
							asterism (txtr, RANDOM(256), RANDOM(256),
								  RANDOM(16), RANDOM(16), RANDOM(25) + 6,
								  RANDOM(15) + 6, 256);
							n--;
						}
						n = 1;
						while (n>0) {
							ptr = 65535 - 257;
							while (ptr) {
								cx = txtr[ptr] + txtr[ptr+1] + txtr[ptr+256] + txtr[ptr+257];
								txtr[ptr] = cx >> 2;
								ptr--;
							}
							n--;
						}
						n = 3;
						while (n>0) {		//Fix the textures. We don't want an UGHLY bright line at the side!
						ptr = 2056;
							while (ptr) {
								cx = txtr[65535-ptr] + txtr[65534-ptr] + txtr[ptr] + txtr[ptr+1];
								txtr[65535-ptr] = cx >> 2;
								ptr--;
							}
							n--;
						}
						// quasi mai si rende visibile