[gml]
#macro ANCHO 640
#macro ALTO 480
var buff = buffer_create((ANCHO * ALTO) * 4, buffer_fixed, 1);
buffer_seek(buff, buffer_seek_start, 0);
for(var b = 0; b < ALTO; b ++)
{
for(var a = 0; a < ANCHO; a ++)
{
alfa[a, b] = irandom_range(0, 255);
color[a, b] = irandom(c_white);
buffer_write(buff, buffer_u8, color_get_red(color[a, b]));
buffer_write(buff, buffer_u8, color_get_green(color[a, b]));
buffer_write(buff, buffer_u8, color_get_blue(color[a, b]));
buffer_write(buff, buffer_u8, alfa[a, b]);
}
}
s = surface_create(ANCHO, ALTO);
buffer_set_surface(buff, s, 0);
[/gml]
#macro ANCHO 640
#macro ALTO 480
var buff = buffer_create((ANCHO * ALTO) * 4, buffer_fixed, 1);
buffer_seek(buff, buffer_seek_start, 0);
for(var b = 0; b < ALTO; b ++)
{
for(var a = 0; a < ANCHO; a ++)
{
alfa[a, b] = irandom_range(0, 255);
color[a, b] = irandom(c_white);
buffer_write(buff, buffer_u8, color_get_red(color[a, b]));
buffer_write(buff, buffer_u8, color_get_green(color[a, b]));
buffer_write(buff, buffer_u8, color_get_blue(color[a, b]));
buffer_write(buff, buffer_u8, alfa[a, b]);
}
}
s = surface_create(ANCHO, ALTO);
buffer_set_surface(buff, s, 0);
[/gml]