Fundamentals of Computational Visual Form (Fall 2008)

Code

size (480, 480);
background (0, 10, 75);
smooth();
fill (0, 100, 255);
noStroke();
triangle (0, 240, 480, 0, 240, 240);
fill (50, 200, 200);
triangle (0, 480, 0, 240, 480, 240);

//monocle
stroke (0);
strokeWeight (5);
noFill();
ellipse (416, 194, 15, 15);
fill (255, 50);
ellipse (350, 140, 150, 150);
fill(255);
noStroke();
quad (315, 78, 310, 120, 295, 135, 290, 125);
//monocle chain
stroke (0);
strokeWeight (2);
noFill();
curve (620, 0, 423, 195, 440, 400, 250, 270);
curve (600, 500, 440, 400, 400, 490, 300, 500);

//Pocket Watch
//shadow
noStroke();
fill (162, 160, 100);
ellipse (190, 265, 200, 160);
//watch top
rect (65, 235, 40, 37);
fill (118, 80, 35);
rect (65, 222, 40, 13);
rect (65, 262, 40, 13);
fill (255);
rect (65, 260, 40, 8);
//top ring
fill (118, 80, 35);
strokeWeight (30);
curve (30, 40, 30, 248, 65, 248, 0, 0);
curve (0, 480, 30, 248, 65, 248, 0, 450);
noFill();
stroke (162, 160, 100);
strokeWeight (8);
bezier (34, 248, 40, 256, 52, 279, 61, 248);
//light brown
noStroke();
fill (217, 184, 135);
ellipse (193, 247, 205, 180);
//dark brown
fill (118, 80, 35);
ellipse (185, 234, 210, 182);
//medium brown
fill (151, 124, 78);
ellipse (192, 239, 180, 164);
bezier (120, 282, 99, 202, 143, 166, 181, 163);
bezier (145, 305, 201, 330, 268, 280, 273, 249);
//highlight
noFill ();
stroke(255);
strokeWeight (10);
bezier (166, 323, 210, 337, 267, 306, 286, 257);

//Clock
//middle point
stroke(0);
strokeWeight (15);
point (190, 240);

//hands
strokeWeight (5);
line (161, 195, 190, 240);
line (165, 250, 190, 240);
noFill();
ellipse (160, 253, 7, 7);
quad (145, 260, 150, 253, 155, 255, 152, 259);
quad (150, 180, 155, 193, 161, 195, 160, 188);

//clock point 2
stroke (100);
strokeWeight (7);
point (190, 240);

//chain
stroke (200, 200, 0);
ellipse (30, 255, 30, 60);
strokeWeight (6);
curve (150, 200, 30, 280, 50, 300, 80, 100);
curve (0, 300, 30, 280, 50, 300, 80, 400);
curve (0, 300,  43, 305, 55, 330, 0, 400);
curve (210, 300, 43, 305, 55, 330, 80, 250);
curve (-30, 200, 56, 325, 63, 340, 60, 300);
curve (300, 300, 56, 325, 63, 340, 10, 150);
ellipse (60, 357, 20, 25);
ellipse (73, 373, 20, 25);
strokeWeight (5);
noFill();
ellipse (115, 390, 25, 35);
strokeWeight (10);
point (128, 375);
fill (180, 180, 0);
strokeWeight (5);
ellipse (93, 390, 25, 25);
strokeWeight (2);
line (89, 385, 96, 396);
line (96, 385, 89, 396);
strokeWeight (8);
stroke (180, 180, 9);
point (93, 390);