' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' PLANO CASA RANDOMIZE TIMER CONST pi = 3.14 SCREEN 12 PAINT (1, 1), 15 LINE (40, 40)-(600, 440), 0, B FOR h = 40 TO 560 STEP 40 FOR v = 40 TO 400 STEP 40 IF RND > .4 THEN LINE (h, v)-STEP(40, 0), 0 IF RND > .4 THEN LINE (h, v)-STEP(0, 40), 0 NEXT NEXT DO algo = 0 FOR h = 80 TO 560 STEP 40 FOR v = 80 TO 400 STEP 40 n = 0 n = n + POINT(h - 2, v) n = n + POINT(h + 2, v) n = n + POINT(h, v - 2) n = n + POINT(h, v + 2) IF n = 45 THEN algo = 1 IF POINT(h - 2, v) = 0 THEN LINE (h - 1, v)-STEP(-38, 0), 15 IF POINT(h + 2, v) = 0 THEN LINE (h + 1, v)-STEP(38, 0), 15 IF POINT(h, v - 2) = 0 THEN LINE (h, v - 1)-STEP(0, -38), 15 IF POINT(h, v + 2) = 0 THEN LINE (h, v + 1)-STEP(0, 38), 15 END IF NEXT NEXT LOOP UNTIL algo = 0 FOR h = 40 TO 600 STEP 40 FOR v = 40 TO 440 STEP 40 IF RND > .7 AND POINT(h + 20, v) = 0 AND h < 600 THEN LINE (h + 10, v)-STEP(19, 0), 15 LINE (h + 10, v)-STEP(0, 9), 6 LINE (h + 30, v)-STEP(0, 9), 6 CIRCLE (h + 10, v), 10, 7, pi * 1.5, 0 CIRCLE (h + 30, v), 10, 7, pi, pi * 1.5 END IF IF RND > .7 AND POINT(h, v + 20) = 0 AND v < 440 THEN LINE (h, v + 10)-STEP(0, 19), 15 LINE (h, v + 10)-STEP(9, 0), 6 LINE (h, v + 30)-STEP(9, 0), 6 END IF NEXT NEXT