' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB relleno (h!, v!) KEY(1) ON: ON KEY(1) GOSUB salir SCREEN 12 relleno 320, 460 salir: END ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' RELLENO FRACTAL TRIANGULOS SUB relleno (h, v) viejocolxor = POINT(h, v) Nuevocolor = 14 PSET (h, v), Nuevocolor hsi = 0 vsi = 0 hid = 640 vid = 480 FOR vv = v TO vsi STEP -1 FOR hh = hid TO hsi STEP -1 IF POINT(hh, vv) = viejocolor THEN IF POINT(hh + 1, vv + 1) = Nuevocolor XOR POINT(hh - 1, vv - 1) = Nuevocolor XOR POINT(hh + 1, vv - 1) = Nuevocolor XOR POINT(hh - 1, vv + 1) = Nuevocolor THEN PSET (hh, vv), Nuevocolor END IF END IF NEXT NEXT END SUB