10 CLS : A = RND(-TIMER): SCREEN 12: DEFINT K: XS = 640: YS = 480 20 IT = XS / 2: JT = YS / 2: S = 3 / YS: T = 3 / XS 30 P = RND * .15 + .38: Q = RND * .15 + .04 40 FOR YY = -1.6 TO 1.6 STEP S: FOR XX = -1.4 TO 1.4 STEP T 50 X = XX: Y = YY: K = 0: I = XS / 3 * XX + IT: J = YS / 3 * YY + JT 60 A = X * X - SQR(ABS(Y)) * SQR(ABS(Y)) * P: IF A$ = CHR$(27) THEN END 70 B = 2 * SQR(ABS(X)) * SQR(ABS(Y)) + Q: X = A: Y = B: K = K + 1 80 M = X * X + Y * Y: IF K > 32 THEN 100 90 IF M < 4 THEN 60 ELSE GOSUB 130 100 NEXT: A$ = INKEY$: NEXT 110 A$ = INKEY$: IF A$ = "" THEN GOSUB 120: GOTO 110 ELSE 30 120 K = INT(RND * 15) 130 I = XS / 3 * XX + IT: J = YS / 3 * YY + JT: PSET (I, J), K MOD 15 140 IF RND < .001 THEN 150 BLUE% = INT(RND * 63) + 1: GREEN% = INT(RND * 63) + 1 160 RED% = INT(RND * 63) + 1: CN& = 65536! * BLUE% + 256 * GREEN% + RED% 170 PA% = INT(RND * 15) + 1: PALETTE PA%, CN& 180 END IF: RETURN _______________________________________________ NetBehaviour mailing list [email protected] http://www.netbehaviour.org/mailman/listinfo/netbehaviour
