Playing a video (Stop)
Powered by Haskell (GHC 8.8.4 )

function car (x,y,a,c){

   fill(c);

   rect(x,y,a,a/4) ;

   rect(x+a/4,y-a/4,a/2,a/4);

   fill("Black");

   circle(x+a/4,y+a/4,a/8);

   circle(x+3*a/4,y+a/4,a/8);

}

 

 

spysokx=[100,400,100,300]

spysoky=[100,200,200,300]

spysoka=[100,50,80,150]

spysokc=["Red", "Green","Blue","Yellow"]

spysoks=[10,5,8,3]

 

spysokx=[]

spysoky=[]

spysoka=[]

spysokc=[]

spysoks=[]

for (let nomer=0; nomer<100; nomer++){

    append(spysokx, random(800));

    append(spysoky, random(600));

    append(spysoka, random(30,100));

    append(spysokc, color(random(255),random(255),random(255)));

    append(spysoks, random(2,10));

}

 

function loop() {

    clear();

    for (let nomer=0;nomer<100;nomer++){

        car(spysokx[nomer],spysoky[nomer],spysoka[nomer],spysokc[nomer]);

        spysokx[nomer]=spysokx[nomer]+spysoks[nomer];

        if (spysokx[nomer]>800) {spysokx[nomer]=0;}

    }

}

Fun with functions