' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB gradiente (h1!, v1!, h2!, v2!, c1!, c2!) SCREEN 12 RANDOMIZE TIMER FOR h = 0 TO 15 FOR v = 0 TO 15 gradiente h * 40, v * 30, (h * 40) + 39, (v * 30) + 29, h, v NEXT NEXT SLEEP ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' CREA UN CUADRO CON GRADIENTE MEZCLANDO COLORES ' H1 Y V1 ... ESQUINA SUPERIOR IZQUIERDA ' H2 Y V2 ... ESQUINA INFERIOR DERECHA ' C1 Y C2 ... COLORES ' SUB gradiente (h1, v1, h2, v2, c1, c2) LINE (h1, v1)-(h2, v2), c1, BF n = ((h2 - h1) + 1) * ((v2 - v1) + 1) FOR h = h1 TO h2 FOR v = v1 TO v2 IF (RND * n) < ((h - h1) * (v - v1)) THEN PSET (h, v), c2 NEXT NEXT END SUB