Biomorfos - II

Con este programa podremos hacer zoom con la tecla de Inicio y las fechas de dirección:

50 SCREEN 9: KEY OFF: CLS

55 DIM B(10000)

60 XI = -1.4: XA = 1.4: YI = -1.4: YA = 1.4

70 P = .7: Q = .01: LX% = 639: LY% = 349

80 DX = (XA - XI) / LX%: DY = (YA - YI) / LY%

90 REM


100 FOR NX = 1 TO LX%

    110 FOR NY = 1 TO LY%

        120 X = XI + NX * DX: Y = YI + NY * DY

        130 FOR K = 1 TO 16

            140 XN = X * X * X * X + Y * Y * Y * Y - 6 * X * X * Y * Y + P

            150 Y = 4 * X * X * X * Y - 4 * X * Y * Y * Y + Q

            160 X = XN

            170 IF X * X + Y * Y > 100 THEN GOTO 240

            180 IF INSTAT THEN END

        190 NEXT K

    200 NEXT NY

210 NEXT NX

220 W$ = INPUT$(1)

230 GOTO 5000

240 IF ABS(X) < 50 OR ABS(Y) < 50 THEN PSET (NX, NY), K: K = 16: GOTO 190

250 K = 16: GOTO 190





5000 REM

5030 XL = 64: YL = 35: V = 10

5040 GET (X1, Y1)-(X1 + XL, Y1 + YL), B()

5050 LINE (X1, Y1)-(X1 + XL, Y1 + YL), 11, B

5060 A$ = INKEY$: IF A$ = "" THEN 5060

5070 PUT (X1, Y1), B(), PSET


5071 REM COMIENZO ZOOM

5075 IF A$ = CHR$(0) + CHR$(73) THEN XL = XL * 1.1: YL = YL * 1.1

5076 IF A$ = CHR$(0) + CHR$(81) THEN XL = XL * .9: YL = YL * .9

5080 IF A$ = CHR$(0) + CHR$(77) AND X1 < 640 THEN X1 = X1 + V

5090 IF A$ = CHR$(0) + CHR$(72) AND Y1 > 0 THEN Y1 = Y1 - V

5100 IF A$ = CHR$(0) + CHR$(75) AND X1 > 0 THEN X1 = X1 - V

5110 IF A$ = CHR$(0) + CHR$(80) AND Y1 < 350 THEN Y1 = Y1 + V

5111 XM = XI + X1 * DX: YM = YI + Y1 * DY

5115 IF A$ = CHR$(0) + CHR$(71) THEN XI = XM: YI = YM: XA = XI + XL * DX: YA = YI + YL * DY: CLS: GOTO 80

5120 GET (X1, Y1)-(X1 + XL, Y1 + YL), B()

5130 LINE (X1, Y1)-(X1 + XL, Y1 + YL), 11, B

5140 GOTO 5060