Flag Of Switzerland

  // Flag of Switzerland - Jim Bumgardner
  
  // Reference: http://en.wikipedia.org/wiki/Flag_of_Switzerland
  
  int kHeight = 300; // The only number that needs changing
  
  // Swiss govt suggests #FF0000 for red on web, but it looks like ass
  // so I'm using the suggested Pantone color instead.
  color redColor = color(220, 36, 31); // Pantone 485C
  color whiteColor = color(255, 255, 255);
  
  size(kHeight, kHeight);
  noStroke();
  smooth();
  
  // Cross height to flag height is 5/8
  float crossBarHeight = height * 5 / 8.0;
  
  // Arms extend 1/6th longer than their width
  float crossBarWidth = crossBarHeight / (1 + 14/6.0);
  
  
  fill(redColor);
  rect(0,0,width,height);
  
  fill(whiteColor);
  translate(width/2, height/2);
  rect(-crossBarWidth/2, -crossBarHeight/2, crossBarWidth, crossBarHeight);
  rect(-crossBarHeight/2, -crossBarWidth/2, crossBarHeight, crossBarWidth);