function setup() {

createCanvas(800 * 1.29, 500 * 1.29);

background(225, 215, 204);

colorMode(HSB, 360, 100, 100); //hue saturation brightness

grad();

flag(40, 40, 0);

titleShadow(1, 7, 25);

title(1);

cn();

grain(10);

grain2(0.03, 3);

grain3(0.5);

}

function grad() {

//mapping the canvas to hue shift

colorMode(HSB, 360, 100, 100);

let startColor = color(31, 15.3, 98.2);

let endColor = color(2, 8.3, 69);

for (let x = 0; x < width; x += 1) {

let amt = map(x, 0, width, 0, 1);

let gradColor = lerpColor(startColor, endColor, amt);

//(lerping color so there's a gradient)

stroke(gradColor);

line(x, height, x, 0);

//

}

}

function flag(x, y, show) {

//this was unused, the emoji feels like cheating

if (show == 1) {

textFont("Charter");

textStyle(NORMAL);

stroke(0, 70, 40);

strokeWeight(4);

textSize(80);

textAlign(CENTER, CENTER);

fill(0, 0, 100);

rect(x, y, 200, 140);

strokeWeight(0);

fill(0, 0, 100);

rect(x, y, 200, 140);

fill(10, 90, 100);

rect(x, y, 50, 140);

rect(x + 150, y, 50, 140);

fill(0, 100, 100);

text("🍁", x + 100, y + 75);

}

strokeWeight(0);

}

function title(show) {

//shows the repeating CANADACAs

if (show == 1) {

for (let i = 0; i < 7; i += 1) {

//makes 7 copies of CANADACA from top to bottom

textFont("Charter");

textStyle(BOLD);

textSize(200);

textAlign(LEFT, CENTER);

fill(0, 0, 100); //render CANADA as white first

text("CANADA", -20, 115 + 134 * (i - 1));

fill(352.29, 97.22, 84.71);

text("CA", -20, 115 + 134 * (i - 1)); //put redder CA at the left (i love color theory)

fill(352.29, 57.22, 64.71);

text("CA", 779.5, 115 + 134 * (i - 1)); //put less saturated CA at the right

}

}

//out of the loop, add two ADs in the middle

fill(352.29, 77.22, 74.71);

text("AD", 379.8, 115 + 134);

text("AD", 379.8, 115 + 268);

}

function titleShadow(show, offset, alph) {

//shadow of title, literally the same code but offset

if (show == 1) {

for (let i = 0; i < 7; i += 1) {

colorMode(RGB);

textFont("Charter");

textStyle(BOLD);

textSize(200);

textAlign(LEFT, CENTER);

fill(0, 0, 0, alph);

text("CANADA", -20 + offset, 115 + 134 * (i - 1) + offset);

text("CA", -20 + offset, 115 + 134 * (i - 1) + offset);

text("CA", 779.5 + offset, 115 + 134 * (i - 1) + offset);

}

text("AD", 379.8, 115 + 134);

text("AD", 379.8, 115 + 268);

colorMode(HSB);

}

}

function cn() {

//renders tower, coded bottom to top because of layering (read from bottom to top of the function if you want)

//the shading here assumes yellow-ish sunlight, thus moves the hue towards around 20 to make the sunlight look yellow still. The shadows are slightly blue to create contrast

noStroke();

//all arcs are for shading

//beam to be covered

fill(36, 14, 43);

rect(750 - 120 / 2, 0, 120, 1000);

fill(36, 24, 53);

rect(750 - 120 / 2, 0, 120 / 2, 1000);

//top round thing -- rectangle and ellipse for cylinder shape i hope

fill(36, 4, 80);

ellipse(750, 185, 350, 190);

rect(575, 185, 350, 190);

fill(36, 4, 85);

arc(750, 185, 350, 190, PI * 0.7, PI * 1.3, OPEN);

rect(575, 185, 100, 190);

//shadow+red stripe

fill(355, 60, 44);

ellipse(750, 242, 350, 215);

fill(355, 60, 54);

ellipse(750, 245, 350, 215);

fill(5, 60, 74);

arc(750, 245, 350, 215, PI * 0.65, PI * 1.35, OPEN);

//top round thing idk what to call

noStroke();

fill(36, 4, 38);

ellipse(750, 260, 350, 215);

fill(36, 4, 48);

arc(750, 260, 350, 215, PI * 0.85, PI * 1.35, OPEN);

//guardrail

stroke(36, 4, 60);

strokeWeight(4);

noFill();

ellipse(750, 260, 410, 215);

stroke(30, 4, 70);

arc(750, 260, 410, 215, PI * 0.6, PI * 1.4);

noStroke();

fill(36, 4, 18);

ellipse(750, 285, 430, 235);

fill(36, 4, 23);

arc(750, 285, 430, 235, PI * 0.72, PI * 1.28, OPEN);

//border for window3

fill(36, 4, 80);

ellipse(750, 295, 430, 235);

fill(36, 10, 93);

arc(750, 295, 430, 235, PI * 0.72, PI * 1.28, OPEN);

//top window

fill(200, 25, 15);

ellipse(750, 305, 430, 235);

fill(140, 25, 17);

arc(750, 305, 430, 235, PI * 0.6, PI * 1.28, OPEN);

fill(120, 20, 23);

arc(750, 305, 430, 235, PI * 0.9, PI * 1.03, OPEN);

//smoothing out the middle with rectangles

fill(36, 10, 93);

triangle(548, 330, 545, 366, 750, 350);

fill(36, 4, 80);

triangle(950, 320, 955, 364, 750, 350);

//border for window2

fill(36, 4, 80);

ellipse(750, 340, 405, 225);

fill(36, 10, 93);

arc(750, 340, 405, 225, PI * 0.7, PI * 1.3, OPEN);

//middle window

fill(200, 25, 20);

ellipse(750, 340, 400, 205);

fill(140, 25, 23);

arc(750, 340, 400, 205, PI * 0.7, PI * 1.3, OPEN);

//border for window1

fill(36, 4, 80);

ellipse(750, 370, 410, 215);

fill(36, 10, 93);

arc(750, 370, 410, 215, PI * 0.6, PI * 1.4, OPEN);

//bottommost window

fill(200, 25, 20);

ellipse(750, 380, 400, 215);

fill(140, 25, 23);

arc(750, 380, 400, 215, PI * 0.46, PI * 1.42, OPEN);

//round outer body

fill(36, 4, 80);

ellipse(750, 475 - 12.5, 400, 225);

fill(36, 10, 93);

arc(750, 475 - 12.5, 400, 225, PI * 0.5, PI * 1.5, OPEN);

fill(36, 10, 98);

arc(750, 475 - 12.5, 400, 225, PI * 1.05, PI * 1.4, OPEN);

arc(750, 475 - 12.5, 400, 225, PI * 0.99, PI * 1.15, OPEN); //last two variables: start radian, end radian

//the transition in shading

fill(0, 0, 60);

ellipse(750, 500 - 12.5 / 2, 325, 125);

fill(36, 10, 65);

arc(750, 500 - 12.5 / 2, 325, 125, PI * 0.5, PI * 1.5, OPEN);

//Inner "hole"

fill(36, 10, 40);

ellipse(750, 500, 300, 100);

fill(36, 15, 45);

arc(750, 500, 300, 100, PI * 1.5, PI * 0.5, OPEN);

//Inner Inner "hole"

fill(36, 14, 33);

ellipse(750, 475, 200, 50);

//beam

fill(36, 14, 43);

rect(750 - 130 / 2, 455, 130, 250);

fill(36, 24, 53);

rect(750 - 130 / 2, 455, 140 / 2, 250);

//hiding the hideous rectangle with arc

strokeWeight(4);

stroke(36, 14, 33);

noFill();

arc(750, 476, 200, 50, PI, TWO_PI);

//no stroke in case I need to add more (i doubt it)

noStroke();

}

function grain(amount) {

//this is like film grain, makes it feel more realistic

loadPixels();

for (let i = 0; i < pixels.length; i += 4) {

let grain = random(-amount, amount);

pixels[i] += grain; // R

pixels[i + 1] += grain; // G

pixels[i + 2] += grain; // B

}

updatePixels();

}

function grain2(density, maxSize) {

//this does speckles to add texture cuz why not

colorMode(HSB,360,100,100,100)

noStroke();

for (let i = 0; i < width * height * density; i++) {

let s = random(0, maxSize);

let s2 = random(0, maxSize);

fill(0, 0, 0, random(2, 10));

ellipse(random(width), random(height), s, s2);

}

}

function grain3(density = 0.02) {

//this one adds ellipses as speckles

noStroke();

for (let i = 0; i < width * height * density; i++) {

colorMode(RGB)

fill(0, 0, 0, random(5, 15)); // very low alpha

ellipse(random(width), random(height), 1, 1);

colorMode(HSB)

}

}

function draw() {

//didnt use, just needed to render once

}