Cirkel2c by Syresoft [web]
SCREEN 12: RANDOMIZE TIMER: ON ERROR GOTO 5 CONST PI = 3.141592654#: CONST RD = 6.283185308#: F = RND: FF = 2 G = INT(RND * 9 + 1): R = (RND * 0 + 120) / G: R2 = R - 5 IF RND > .4 THEN G = INT(RND * 9 + 3): R = (RND * 10): R2 = (60 - R / 2) R3 = R * 3: R4 = R2 * 3: R = R * 4: R2 = R2 * 4 H = (RND * RD / 3 + .1) * SGN(RND - .1): H2 = RND * RD / 9999 * SGN(RND - .1) V = RND * RD: VT = V: W = V: WT = VT: DO V = V + H: VT = VT + H2 LOOP WHILE RND < .99975 0 IF RND < .005 THEN FF = INT(RND * 15) + 1 V = V + H: VT = VT + H2: W = W + H: WT = WT + H2 F = FF: IF RND < .25 THEN F = 15 * V / RD + 1 PSET (320, 240), 0: X1 = COS(V): X2 = COS(VT): Y1 = SIN(V): Y2 = SIN(VT) a = (X1 * R + X2 * R2) * Y1 * Y2: b = X1 * X2 * (Y1 * R3 + Y2 * R4) FOR T = 1 TO G PSET STEP(a, b), F: NEXT PSET (320, 240), 0: X1 = COS(W): X2 = COS(WT): Y1 = SIN(W): Y2 = SIN(WT) a = (X1 * R + X2 * R2) * Y1 * Y2: b = X1 * X2 * (Y1 * R3 + Y2 * R4) FOR T = 1 TO G PSET STEP(a, b), 0: NEXT TL = TL + 1: I$ = INKEY$: IF I$ = "" AND RND < .99996 THEN 0 4 IF INKEY$ = CHR$(27) OR I$ = CHR$(27) THEN PLAY "o6b55a58g63": SYSTEM DEF SEG = 0: IF 0 = PEEK(&H417) OR 128 = PEEK(&H417) THEN RUN "demo" ELSE RUN 5 REM BEEP GOTO 4
[ back to the prod ]