/* built with Studio Sketchpad: 
 *   https://sketchpad.cc
 * 
 * observe the evolution of this sketch: 
 *   https://designuniandes.sketchpad.cc/sp/pad/view/ro.o0KXERQOnsE/rev.1
 * 
 * authors: 
 *   Camilo Sandoval

 * license (unless otherwise specified): 
 *   creative commons attribution-share alike 3.0 license.
 *   https://creativecommons.org/licenses/by-sa/3.0/ 
 */ 



// This sketch builds on a prior work, "Assignment 1: Form", created by Hernando Barragan
// http://designuniandes.sketchpad.cc/sp/pad/view/ro.BQLmTBYyWiW9K5/rev.1


void setup(){
  smooth();
  noStroke();
  size ( 400, 400);
  background ( 203, 81, 30);
  
}
void draw() {
  noStroke();
  fill ( 220);
  ellipse ( 200, 160, 300, 300);
  rect ( 144, 300, 100, 70);
  rect ( 100, 360, 190, 40);  
  
  fill ( 171, 0, 0);
  quad ( 100, 360, 144, 385, 144, 400, 100, 400);
  quad ( 144, 385, 250, 385, 250, 400, 144, 400);
  rect ( 220, 304, 24, 35);
  ellipse ( 135, 130, 25, 25);
  ellipse ( 245, 145, 25, 25);
  quad ( 50, 130, 80, 130, 80, 180, 50, 140);
  
  fill ( 61, 15, 35);
  quad ( 250, 385, 290, 360, 290, 400, 250, 400);
  quad ( 50,370, 70, 385, 70, 400, 50, 400);
  rect ( 200, 220, 8, 8);
  rect ( 208, 208, 8, 12);

strokeWeight(1);
stroke(0);
noFill();
  beginShape();
  curveVertex ( 40,  80);
  curveVertex ( 80,  130);
  curveVertex ( 200,  140);
  curveVertex ( 250, 100);
  endShape();
  
  beginShape();
  curveVertex ( 30,  260);
  curveVertex ( 80,  130);
  curveVertex ( 200,  140);
  curveVertex ( 320, 300);
  endShape();
  
  beginShape();
  curveVertex ( 190, 200);
  curveVertex ( 200,  140);
  curveVertex ( 300,  140);
  curveVertex ( 350, 240);
  endShape();
  
 
  
  beginShape();
  curveVertex ( 170, 60);
  curveVertex ( 200,  140);
  curveVertex ( 250, 158);
  curveVertex ( 300,  140);
  curveVertex ( 400, 100);
  endShape();
  
  strokeWeight(5);
  beginShape();
  curveVertex ( 200, 400);
  curveVertex ( 200,  140);
  curveVertex ( 290,  110);
  curveVertex ( 350, 240);
  endShape();
 
  noStroke();
  fill ( 220, 209, 79, 110);
  quad ( 190, 10, 190, 50, 280, 90, 300, 10);
  quad ( 290, 30, 290, 190, 350, 190, 350, 30);
  quad ( 290, 100, 290, 270, 350, 270, 350, 100);
  quad ( 200, 360, 290, 360, 290, 385, 200, 385); 
  quad ( 30, 135, 80, 135,110, 250, 30, 250);
  quad ( 120, 10, 200, 10, 200, 160, 120, 30);
  
  fill (200,0,0,40);
  rect ( 80, 150, 240,100);
  
  fill ( 90, 0, 200);
  
  rect ( 200, 340, 20, 20);
  
}