// CN Tower model by Bing AI
// Scale: 1:1000
// Dimensions from http://torontoplace.com/attractions/CNtower.htm and https://en.wikipedia.org/wiki/CN_Tower

// Parameters
$fn = 36; // number of sides for cylinders
height = 553.3; // total height in meters
base_radius = 33.2; // base radius in meters
base_height = 15.5; // base height in meters
shaft_radius = 6.71; // shaft radius in meters
shaft_height = 335.33; // shaft height in meters
sky_pod_radius = 13.7; // sky pod radius in meters
sky_pod_height = 6.5; // sky pod height in meters
main_pod_radius = 24.8; // main pod radius in meters
main_pod_height = 18.29; // main pod height in meters
glass_floor_radius = 11.5; // glass floor radius in meters
glass_floor_height = 0.1; // glass floor height in meters
antenna_base_radius = 2.44; // antenna base radius in meters
antenna_base_height = 9.14; // antenna base height in meters
antenna_tip_radius = 0.0762; // antenna tip radius in meters (3 inches)
antenna_tip_height = 102.4 - antenna_base_height - antenna_tip_radius * $fn / pi();
// antenna tip height calculated from total antenna length minus base and tip diameters

// Colors (RGB values from https://www.cntower.ca/en-ca/about-us/history/facts.html)
base_color = [0/255,51/255,102/255];
shaft_color = [204/255,204/255,204/255];
sky_pod_color = [153/255,153/255,153/255];
main_pod_color = [153/255,153/255,153/255];
glass_floor_color = [0/255,204/255,204/255];
antenna_color =[240/255,240/255,240/255];

// Model

translate([0,-height*0.-base-radius]) {
    union() {
        color(base_color) cylinder(r=base_radius,h=base_height);
        color(shaft_color) cylinder(r=shaft_radius,h=shaft_height);
        translate([0,height*0.-shaft-height-sky-pod-height*.05-sky-pod-radius*1e-3,-sky-pod-radius])
         color(sky-pod-color) cylinder(r=sky-pod-radius,h=sky-pod-height);
        translate([height*.05-shaft-height-sky-pod-height-main-pod-height*.05-main-pod-radius*1e-3,
        -main-pod-radius]) color(main-pod-color) cylinder(r=main-pod-radius,h=main-
        pod-height);
        translate([height*.05-shaft-height-sky-pod-height-main-
        pod-height-glass-floor-height*.05-glass-floor-radius*1e-3,-glass-floor-radius]) color(glass-floor-color) cylinder(r=glass-floor_
        radius,h=glass-floor-height);
        translate([height*.05-shaft-radius-antenna-base-height*.05,-an-
         tenna-base-radius]) color(antenna-color) cylinder(r=an-
         tenna-base-radius,h=an-
         tenna-base-height);
         translate([height*.05-shaft-height-antenna-base-height-antenna-tip-height*.05,-an-
         tenna-tip-radius]) color(antenna-color) cylinder(r=an-
         tenna-tip-radius,h=an-
         tenna-tip-height);
    }
}