draw_sprite_rainbow

//draw_sprite_rainbow(sprite, subimage, x, y, rainbow size, iter, i)
var i, j, iter, size, col, outsize, step, dec;
iter = argument5
size = argument4
dec = max(0, floor(argument6))

col[0] = c_red  col[1] = $96FF  col[2] = c_yellow
col[3] = $FF50  col[4] = c_aqua col[5] = $FFC800
col[6] = $FF3D00 col[7] = c_fuchsia

for(i=0; i<iter; i+=1) {
    outsize = size - i*size/iter
    if(outsize>2)
    step = max(3, 90/max(1,outsize))
    else step = 90
   
    d3d_set_fog(1,col[(i+dec) mod 8],0,0)
    for(j=0 ; j<360+step ; j+= step)
        draw_sprite(argument0, argument1, argument2 + lengthdir_x(outsize, j), argument3 + lengthdir_y(outsize, j))
    d3d_set_fog(0,c_white,0,0)
}
draw_sprite(argument0, argument1, argument2, argument3)