"DVD" - Processing

ID	Autor	Duplicat din	Ultima modificare
`#6019`	Moldovan Alexandru (xky18)	-	Miercuri, 20 mar 2024, 10:15
let width=400 , height=400;
function setup() {
	createCanvas(width, height);
  	frameRate(60);
}

let scale = 0.4 , x=0 , y=0 , vx=1 , vy=1;
let color="#F00" , pvcol=0 , corner=0;

function newcol(){
  	corner = 0;
  	var newclr=random([0,1,2,3,4,5]);
  	if (newclr == pvcol)
    	newclr = (newclr + 1) % 6;
  	switch (newclr){
    	case 0:
            color="#F00";
            break;
    	case 1:
            color="#0F0";
            break;
    	case 2:
            color="#00F";
            break;
    	case 3:
            color="#FF0";
            break;
    	case 4:
            color="#F0F";
            break;
    	case 5:
            color="#0FF";
            break;
    	default:
            color="#F00";
            break;
    }
  	pvcol=newclr;
}

let buf = 0;
function keyPressed() {
  	switch (keyCode)
    {
      case UP_ARROW:
        buf = 1;
        break;
      case DOWN_ARROW:
        buf = -1;
        break;
    }
}
function keyReleased() {
  	switch (keyCode)
    {
      case UP_ARROW:
        buf = 0;
        break;
      case DOWN_ARROW:
        buf = 0;
        break;
    }
}

function draw() {
  	scale += buf * 0.1;
	x+=vx;
  	y+=vy;
  	var k=0;
  	if (x > width - 350.0 * scale){
      x = width - 350.0 * scale;
      vx = -1;
      k++;
      newcol();
    }
  	if (y > height - 216.6 * scale){
      y = height - 216.6 * scale;
      vy = -1;
      k++;
      newcol();
    }
  	if (x < 1){
      x=1;
      vx = 1;
      k++;
      newcol();
    }
  	if (y < 1){
      y=1;
      vy = 1;
      k++;
      newcol();
    }
  	background("black");
  	stroke(color);
	fill(color);
    ellipse(166.4 * scale + x, 136.4 * scale + y,
            309.0 * scale, 43.8 * scale);
    quad (
          165.1 * scale + x  ,  114.4 * scale + y,
          184.4 * scale + x  ,   92.6 * scale + y,
          160.3 * scale + x  ,   14.8 * scale + y,
          128.6 * scale + x  ,   14.8 * scale + y,
         );
    quad (
          165.1 * scale + x  ,  114.4 * scale + y,
          157.0 * scale + x  ,   92.1 * scale + y,
          218.4 * scale + x  ,   15.2 * scale + y,
          253.6 * scale + x  ,   15.2 * scale + y,
         );
  	rect(218.4 * scale + x, 15.2 * scale + y,
         77.5 * scale , 17.6 * scale);
    quad (
          234.6 * scale + x  ,   39.5 * scale + y,
          266.5 * scale + x  ,   39.5 * scale + y,
          253.3 * scale + x  ,   95.3 * scale + y,
          221.5 * scale + x  ,   95.3 * scale + y,
         );
    quad (
          30.0 * scale + x  ,   39.5 * scale + y,
          62.5 * scale + x  ,   39.5 * scale + y,
          49.3 * scale + x  ,   95.3 * scale + y,
          17.5 * scale + x  ,   95.3 * scale + y,
         );
    quad (
           32.4 * scale + x  ,  32.8 * scale + y,
           36.8 * scale + x  ,  14.9 * scale + y,
          160.3 * scale + x  ,  14.8 * scale + y,
          160.5 * scale + x  ,  32.8 * scale + y,
         );
  	rect( 98.8 * scale + x , 171.6 * scale + y,
      8.0 * scale , 29.3 * scale);
  	rect(128.1 * scale + x , 171.6 * scale + y,
         8.0 * scale , 29.3 * scale);
  	rect(183.4 * scale + x , 171.6 * scale + y,
         10.2 * scale , 29.3 * scale);
  	rect(184.0 * scale + x , 171.6 * scale + y,
         30.6 * scale ,  5.0 * scale);
  	rect(184.0 * scale + x , 183.1 * scale + y,
         29.5 * scale ,  5 * scale);
  	rect(184.0 * scale + x , 196.1 * scale + y,
         30.6 * scale ,  5.0 * scale);
    ellipse(255.7 * scale + x, 186.4 * scale + y,
            43.3 * scale, 31.0 * scale);
    quad (
          52.2 * scale + x  ,  191.0 * scale + y,
          68.8 * scale + x  ,  191.0 * scale + y,
          62.8 * scale + x  ,  201.8 * scale + y,
          58.1 * scale + x  ,  201.8 * scale + y,
         );
    quad (
          52.2 * scale + x  ,  191.0 * scale + y,
          60.8 * scale + x  ,  191.0 * scale + y,
          50.8 * scale + x  ,  171.6 * scale + y,
          41.5 * scale + x  ,  171.5 * scale + y,
         );
    quad (
          60.8 * scale + x   ,  191.0 * scale + y,
          68.8 * scale + x   ,  191.0 * scale + y,
          79.5 * scale + x   ,  171.6 * scale + y,
          70.7 * scale + x   ,  171.6 * scale + y,
         );
  	angleMode(DEGREES);
  	arc(136.0 * scale + x, 186.3 * scale + y,
        55.2 * scale, 29.4 * scale,270, 90);
    quad (
          124.1 * scale + x   ,  77.8 * scale + y,
           49.0 * scale + x   ,  77.8 * scale + y,
           49.0 * scale + x   ,  95.7 * scale + y,
           91.1 * scale + x   ,  90.9 * scale + y,
         );
    quad (
          124.1 * scale + x   ,  78.0 * scale + y,
          131.3 * scale + x   ,  71.1 * scale + y,
           90.9 * scale + x   ,  71.1 * scale + y,
           69.4 * scale + x   ,  78.0 * scale + y,
         );
    quad (
          131.3 * scale + x   ,  71.1 * scale + y,
          136.6 * scale + x   ,  62.1 * scale + y,
          100.9 * scale + x   ,  62.1 * scale + y,
           90.9 * scale + x   ,  71.1 * scale + y,
         );
    quad (
          136.6 * scale + x   ,  62.1 * scale + y,
          138.5 * scale + x   ,  53.5 * scale + y,
          104.4 * scale + x   ,  53.5 * scale + y,
           90.9 * scale + x   ,  71.1 * scale + y,
         );
    quad (
          138.5 * scale + x   ,  53.5 * scale + y,
          138.4 * scale + x   ,  46.5 * scale + y,
          103.9 * scale + x   ,  46.5 * scale + y,
           90.9 * scale + x   ,  71.1 * scale + y,
         );
    quad (
          138.4 * scale + x   ,  47.5 * scale + y,
          137.5 * scale + x   ,  41.1 * scale + y,
          100.7 * scale + x   ,  41.1 * scale + y,
          103.9 * scale + x   ,  47.5 * scale + y,
         );
    quad (
          137.5 * scale + x   ,  41.1 * scale + y,
          136.4 * scale + x   ,  36.5 * scale + y,
           94.8 * scale + x   ,  36.5 * scale + y,
          100.7 * scale + x   ,  41.1 * scale + y,
         );
    quad (
           94.8 * scale + x   ,  37.5 * scale + y,
           85.1 * scale + x   ,  32.0 * scale + y,
          136.1 * scale + x   ,  32.0 * scale + y,
          136.4 * scale + x   ,  37.5 * scale + y,
         );
  
    quad (
           (124.1 + 200.4) * scale + x ,  77.8 * scale + y,
           ( 49.0 + 200.4) * scale + x ,  77.8 * scale + y,
           ( 49.0 + 200.4) * scale + x ,  95.7 * scale + y,
           ( 91.1 + 200.4) * scale + x ,  90.9 * scale + y,
         );
    quad (
          (124.1 + 200.4) * scale + x  ,  78.0 * scale + y,
          (131.3 + 200.4) * scale + x  ,  71.1 * scale + y,
          ( 90.9 + 200.4) * scale + x  ,  71.1 * scale + y,
          ( 69.4 + 200.4) * scale + x  ,  78.0 * scale + y,
         );
    quad (
          (131.3 + 200.4) * scale + x  ,  71.1 * scale + y,
          (136.6 + 200.4) * scale + x  ,  62.1 * scale + y,
          (100.9 + 200.4) * scale + x  ,  62.1 * scale + y,
          ( 90.9 + 200.4) * scale + x  ,  71.1 * scale + y,
         );
    quad (
          (136.6 + 200.4) * scale + x  ,  62.1 * scale + y,
          (138.5 + 200.4) * scale + x  ,  53.5 * scale + y,
          (104.4 + 200.4) * scale + x  ,  53.5 * scale + y,
          ( 90.9 + 200.4) * scale + x  ,  71.1 * scale + y,
         );
    quad (
          (138.5 + 200.4) * scale + x  ,  53.5 * scale + y,
          (138.4 + 200.4) * scale + x  ,  46.5 * scale + y,
          (103.9 + 200.4) * scale + x  ,  46.5 * scale + y,
          ( 90.9 + 200.4) * scale + x  ,  71.1 * scale + y,
         );
    quad (
          (138.4 + 200.4) * scale + x  ,  47.5 * scale + y,
          (137.5 + 200.4) * scale + x  ,  41.1 * scale + y,
          (100.7 + 200.4) * scale + x  ,  41.1 * scale + y,
          (103.9 + 200.4) * scale + x  ,  47.5 * scale + y,
         );
    quad (
          (137.5 + 200.4) * scale + x  ,  41.1 * scale + y,
          (136.4 + 200.4) * scale + x  ,  36.5 * scale + y,
          ( 94.8 + 200.4) * scale + x  ,  36.5 * scale + y,
          (100.7 + 200.4) * scale + x  ,  41.1 * scale + y,
         );
    quad (
          ( 94.8 + 200.4) * scale + x  ,  37.5 * scale + y,
          ( 85.1 + 200.4) * scale + x  ,  32.0 * scale + y,
          (136.1 + 200.4) * scale + x  ,  32.0 * scale + y,
          (136.4 + 200.4) * scale + x  ,  37.5 * scale + y,
         );
  	arc(292.0 * scale + x, 33.0 * scale + y ,
        87.6 * scale, 35.2 * scale, 270, 0);
   
	fill("black");
    ellipse(164.1 * scale + x, 135.1 * scale + y,
            90.0 * scale, 22.0 * scale);
    ellipse(255.3 * scale + x, 186.4 * scale + y,
            25.9 * scale, 20.0 * scale);
  	arc(136.0 * scale + x, 186.3 * scale + y,
        37.5 * scale, 19.4 * scale,270, 90);
  
	fill("white");
  	if (k >= 2 || corner == 1){
      corner = 1;
      textSize(32);
  	  textAlign(CENTER, CENTER);
	  text("CORNER!", width / 2 , height / 2);
    }
}