@name DanceFloor
@inputs DS:wirelink
@persist X Y Res

if( first() ){
    function wirelink:initScreen(Res){
        This[1048574]=0 #Reset Screen and whatever was on it will be cleared.
        This[1048569]=2 #Set color mode
        This[1048575]=1 #Apply changes
        This[1048572]=Res #Set new resolution on Y (Height)
        This[1048573]=Res #Set new resolution on X (Width)
    }   
    function wirelink:drawPixel(X,Y,Color:vector){
        This[X+Y*Res]=rgb2digi(Color,2)
    }
    Res = 6
    
    DS:initScreen(Res)
    
    function fup(){
        for( I=1,Res^2 ){
        
            local Mix = randint(1,3)
            local Flip = randint(0,1)
            local C = vec()
            
            if( Mix == 1 ){
                if( Flip ){
                    C = vec(255,randint(0,255),0)
                }else{
                    C = vec(randint(0,255),255,0)
                }
            }elseif( Mix == 2 ){
                if( Flip ){
                    C = vec(0,255,randint(0,255))
                }else{
                    C = vec(0,randint(0,255),255)
                }
            }else{
                if( Flip ){
                    C = vec(randint(0,255),0,255)
                }else{
                    C = vec(255,0,randint(0,255))
                }
            }
        
            DS:drawPixel(X,Y,C) #Draws random color in to cell
            X++
            if(X==Res){X=0,Y++} #If X on the edge, go lower
            if(Y==Res){Y=0} #If Y at the bottom, reset
        }
    }
    timer("int",500)
}
if( clk("int") ){
    fup()
    timer("int",500)
}