SCREEN 13: CLS DIM T(127, 127) R = 63 / 256 FOR I = 1 TO 255 A = INT(I * R) PALETTE I, A + A * 256 + A * 65536 NEXT I M = 1 IF M = 1 THEN MX = 127: MY = 127 ELSE MX = 320: MY = 200 WINDOW (0, 0)-(MX, MY) ON ERROR GOTO Erreur FOR I = 1 TO MX FOR J = 1 TO MY P = INT(RND * 256) + 1 T(I, J) = P PSET (I, J), P NEXT J, I DO FOR X = 1 TO MX FOR Y = 1 TO MY IF M = 1 THEN A = T(X - 1, Y - 1) + T(X - 1, Y) + T(X - 1, Y + 1) + T(X, Y - 1) + T(X, Y) + T(X, Y + 1) + T(X + 1, Y - 1) + T(X + 1, Y) + T(X + 1, Y + 1) ELSE A = POINT(X - 1, Y - 1) + POINT(X - 1, Y) + POINT(X - 1, Y + 1) A = A + POINT(X, Y - 1) + POINT(X, Y) + POINT(X, Y + 1) A = A + POINT(X + 1, Y - 1) + POINT(X + 1, Y) + POINT(X + 1, Y + 1) END IF LINE (X, Y)-(X + 1, Y + 1), A / 9, BF T(X, Y) = A / 9 NEXT Y, X LOOP UNTIL INKEY$ = CHR$(27) Erreur: RESUME NEXT