Taipei 101 Skyscraper
Author: 吳牧真

$ Taipei\;101\; Skyscraper $

Reset

Start

O = (6.1, 0.84)
L = 4.7 (slider from 0 to 5, step 0.1)
α = 3.242996283130664 rad (slider from 0*° to 360*°, step 0.01*°)
β = 1.3962634015954636 rad (slider from 0.1*° to 360*°, step 1*°)
X_{unit}: O + (cos(α), sin(α) * cos(β))
Y_{unit}: O + (-sin(α), cos(α) * cos(β))
Z_{unit}: O + (0, sin(β))
u = Vector(O, X_{unit})
v = Vector(O, Y_{unit})
w = Vector(O, Z_{unit})
h = 40 (slider from 0 to 40, step 0.1)
l = 30 (slider from 0 to 30, step 0.1)
list_1 = Sequence(O + l * u + l * v + (2 * h * k + 6 * h) * w, k, 0, 7)
list_2 = Sequence(O - l * u + l * v + (2 * h * k + 6 * h) * w, k, 0, 7)
list_3 = Sequence(O - l * u - l * v + (2 * h * k + 6 * h) * w, k, 0, 7)
list_4 = Sequence(O + l * u - l * v + (2 * h * k + 6 * h) * w, k, 0, 7)
list_5 = Sequence(O + (h * tan(7°) + l) * u + (h * tan(7°) + l) * v + (2 * h * k + 6 * h) * w, k, 1, 8)
list_7 = Sequence(O - (h * tan(7°) + l) * u - (h * tan(7°) + l) * v + (2 * h * k + 6 * h) * w, k, 1, 8)
list_6 = Sequence(O - (h * tan(7°) + l) * u + (h * tan(7°) + l) * v + (2 * h * k + 6 * h) * w, k, 1, 8)
list_8 = Sequence(O + (h * tan(7°) + l) * u - (h * tan(7°) + l) * v + (2 * h * k + 6 * h) * w, k, 1, 8)
list_{21} = Sequence(Polygon[Element[list_1, k], Element[list_2, k], Element[list_3, k], Element[list_4, k]], k, 0, 9)
list_{20} = Sequence(Segment[Element[list_8, k], Element[list_5, k]], k, 1, 8)
list_{19} = Sequence(Segment[Element[list_7, k], Element[list_8, k]], k, 1, 8)
list_{18} = Sequence(Segment[Element[list_6, k], Element[list_7, k]], k, 1, 8)
list_{17} = Sequence(Segment[Element[list_5, k], Element[list_6, k]], k, 1, 8)
list_{16} = Sequence(Segment[Element[list_4, k], Element[list_1, k]], k, 1, 9)
list_{15} = Sequence(Segment[Element[list_3, k], Element[list_4, k]], k, 1, 9)
list_{14} = Sequence(Segment[Element[list_2, k], Element[list_3, k]], k, 1, 9)
list_{13} = Sequence(Segment[Element[list_1, k], Element[list_2, k]], k, 1, 9)
list_{12} = Sequence(Segment[Element[list_4, k], Element[list_8, k]], k, 0, 8)
list_{11} = Sequence(Segment[Element[list_3, k], Element[list_7, k]], k, 0, 8)
list_{10} = Sequence(Segment[Element[list_2, k], Element[list_6, k]], k, 0, 8)
list_9 = Sequence(Segment[Element[list_1, k], Element[list_5, k]], k, 0, 8)
list_{23} = Sequence(Polygon[Element[list_1, k], Element[list_2, k], Element[list_6, k], Element[list_5, k]], k, 1, 8)
list_{24} = Sequence(Polygon[Element[list_2, k], Element[list_3, k], Element[list_7, k], Element[list_6, k]], k, 1, 8)
list_{25} = Sequence(Polygon[Element[list_3, k], Element[list_4, k], Element[list_8, k], Element[list_7, k]], k, 1, 8)
list_{26} = Sequence(Polygon[Element[list_4, k], Element[list_1, k], Element[list_5, k], Element[list_8, k]], k, 1, 8)
n = 8 (slider from 0 to 8, step 0.1)
list_{27} = Sequence(Element[list_1, 1] + k / n * Vector[Element[list_1, 1], Element[list_5, 1]], k, 0, n)
list_{28} = Sequence(Element[list_2, 1] + k / n * Vector[Element[list_2, 1], Element[list_6, 1]], k, 0, n)
list_{29} = Sequence(Element[list_3, 1] + k / n * Vector[Element[list_3, 1], Element[list_7, 1]], k, 0, n)
list_{30} = Sequence(Element[list_4, 1] + k / n * Vector[Element[list_4, 1], Element[list_8, 1]], k, 0, n)
list_{31} = Sequence(Element[list_1, 2] + k / n * Vector[Element[list_1, 2], Element[list_5, 2]], k, 0, n)
list_{32} = Sequence(Element[list_2, 2] + k / n * Vector[Element[list_2, 2], Element[list_6, 2]], k, 0, n)
list_{33} = Sequence(Element[list_3, 2] + k / n * Vector[Element[list_3, 2], Element[list_7, 2]], k, 0, n)
list_{34} = Sequence(Element[list_4, 2] + k / n * Vector[Element[list_4, 2], Element[list_8, 2]], k, 0, n)
list_{35} = Sequence(Element[list_1, 3] + k / n * Vector[Element[list_1, 3], Element[list_5, 3]], k, 0, n)
list_{36} = Sequence(Element[list_2, 3] + k / n * Vector[Element[list_2, 3], Element[list_6, 3]], k, 0, n)
list_{37} = Sequence(Element[list_3, 3] + k / n * Vector[Element[list_3, 3], Element[list_7, 3]], k, 0, n)
list_{38} = Sequence(Element[list_4, 3] + k / n * Vector[Element[list_4, 3], Element[list_8, 3]], k, 0, n)
list_{39} = Sequence(Element[list_1, 4] + k / n * Vector[Element[list_1, 4], Element[list_5, 4]], k, 0, n)
list_{40} = Sequence(Element[list_2, 4] + k / n * Vector[Element[list_2, 4], Element[list_6, 4]], k, 0, n)
list_{41} = Sequence(Element[list_3, 4] + k / n * Vector[Element[list_3, 4], Element[list_7, 4]], k, 0, n)
list_{42} = Sequence(Element[list_4, 4] + k / n * Vector[Element[list_4, 4], Element[list_8, 4]], k, 0, n)
list_{43} = Sequence(Element[list_1, 5] + k / n * Vector[Element[list_1, 5], Element[list_5, 5]], k, 0, n)
list_{44} = Sequence(Element[list_2, 5] + k / n * Vector[Element[list_2, 5], Element[list_6, 5]], k, 0, n)
list_{45} = Sequence(Element[list_3, 5] + k / n * Vector[Element[list_3, 5], Element[list_7, 5]], k, 0, n)
list_{46} = Sequence(Element[list_4, 5] + k / n * Vector[Element[list_4, 5], Element[list_8, 5]], k, 0, n)
list_{47} = Sequence(Element[list_1, 6] + k / n * Vector[Element[list_1, 6], Element[list_5, 6]], k, 0, n)
list_{48} = Sequence(Element[list_2, 6] + k / n * Vector[Element[list_2, 6], Element[list_6, 6]], k, 0, n)
list_{49} = Sequence(Element[list_3, 6] + k / n * Vector[Element[list_3, 6], Element[list_7, 6]], k, 0, n)
list_{50} = Sequence(Element[list_4, 6] + k / n * Vector[Element[list_4, 6], Element[list_8, 6]], k, 0, n)
list_{51} = Sequence(Element[list_1, 7] + k / n * Vector[Element[list_1, 7], Element[list_5, 7]], k, 0, n)
list_{52} = Sequence(Element[list_2, 7] + k / n * Vector[Element[list_2, 7], Element[list_6, 7]], k, 0, n)
list_{53} = Sequence(Element[list_3, 7] + k / n * Vector[Element[list_3, 7], Element[list_7, 7]], k, 0, n)
list_{54} = Sequence(Element[list_4, 7] + k / n * Vector[Element[list_4, 7], Element[list_8, 7]], k, 0, n)
list_{55} = Sequence(Element[list_1, 8] + k / n * Vector[Element[list_1, 8], Element[list_5, 8]], k, 0, n)
list_{56} = Sequence(Element[list_2, 8] + k / n * Vector[Element[list_2, 8], Element[list_6, 8]], k, 0, n)
list_{57} = Sequence(Element[list_3, 8] + k / n * Vector[Element[list_3, 8], Element[list_7, 8]], k, 0, n)
list_{58} = Sequence(Element[list_4, 8] + k / n * Vector[Element[list_4, 8], Element[list_8, 8]], k, 0, n)
list_{22} = Sequence(Polygon[Element[list_5, k], Element[list_6, k], Element[list_7, k], Element[list_8, k]], k, 1, 8)
list_{59} = Sequence(Segment[Element[list_{27}, k], Element[list_{28}, k]], k, 0, n)
list_{60} = Sequence(Segment[Element[list_{28}, k], Element[list_{29}, k]], k, 0, n)
list_{61} = Sequence(Segment[Element[list_{29}, k], Element[list_{30}, k]], k, 0, n)
list_{62} = Sequence(Segment[Element[list_{30}, k], Element[list_{27}, k]], k, 0, n)
list_{63} = Sequence(Segment[Element[list_{31}, k], Element[list_{32}, k]], k, 0, n)
list_{64} = Sequence(Segment[Element[list_{32}, k], Element[list_{33}, k]], k, 0, n)
list_{65} = Sequence(Segment[Element[list_{33}, k], Element[list_{34}, k]], k, 0, n)
list_{66} = Sequence(Segment[Element[list_{34}, k], Element[list_{31}, k]], k, 0, n)
list_{67} = Sequence(Segment[Element[list_{35}, k], Element[list_{36}, k]], k, 0, n)
list_{68} = Sequence(Segment[Element[list_{36}, k], Element[list_{37}, k]], k, 0, n)
list_{69} = Sequence(Segment[Element[list_{37}, k], Element[list_{38}, k]], k, 0, n)
list_{70} = Sequence(Segment[Element[list_{38}, k], Element[list_{35}, k]], k, 0, n)
list_{71} = Sequence(Segment[Element[list_{39}, k], Element[list_{40}, k]], k, 0, n)
list_{72} = Sequence(Segment[Element[list_{40}, k], Element[list_{41}, k]], k, 0, n)
list_{73} = Sequence(Segment[Element[list_{41}, k], Element[list_{42}, k]], k, 0, n)
list_{74} = Sequence(Segment[Element[list_{42}, k], Element[list_{39}, k]], k, 0, n)
list_{75} = Sequence(Segment[Element[list_{43}, k], Element[list_{44}, k]], k, 0, n)
list_{76} = Sequence(Segment[Element[list_{44}, k], Element[list_{45}, k]], k, 0, n)
list_{77} = Sequence(Segment[Element[list_{45}, k], Element[list_{46}, k]], k, 0, n)
list_{78} = Sequence(Segment[Element[list_{46}, k], Element[list_{43}, k]], k, 0, n)
list_{79} = Sequence(Segment[Element[list_{47}, k], Element[list_{48}, k]], k, 0, n)
list_{80} = Sequence(Segment[Element[list_{48}, k], Element[list_{49}, k]], k, 0, n)
list_{81} = Sequence(Segment[Element[list_{49}, k], Element[list_{50}, k]], k, 0, n)
list_{82} = Sequence(Segment[Element[list_{50}, k], Element[list_{47}, k]], k, 0, n)
list_{83} = Sequence(Segment[Element[list_{51}, k], Element[list_{52}, k]], k, 0, n)
list_{84} = Sequence(Segment[Element[list_{52}, k], Element[list_{53}, k]], k, 0, n)
list_{85} = Sequence(Segment[Element[list_{53}, k], Element[list_{54}, k]], k, 0, n)
list_{86} = Sequence(Segment[Element[list_{54}, k], Element[list_{51}, k]], k, 0, n)
list_{87} = Sequence(Segment[Element[list_{55}, k], Element[list_{56}, k]], k, 0, n)
list_{88} = Sequence(Segment[Element[list_{56}, k], Element[list_{57}, k]], k, 0, n)
list_{89} = Sequence(Segment[Element[list_{57}, k], Element[list_{58}, k]], k, 0, n)
list_{90} = Sequence(Segment[Element[list_{58}, k], Element[list_{55}, k]], k, 0, n)
t = 10 (slider from 0 to 10, step 0.1)
list_{91} = Sequence(Element[list_1, 1] + k / t * Vector[Element[list_1, 1], Element[list_2, 1]], k, 0, t)
list_{92} = Sequence(Element[list_2, 1] + k / t * Vector[Element[list_2, 1], Element[list_3, 1]], k, 0, t)
list_{93} = Sequence(Element[list_3, 1] + k / t * Vector[Element[list_3, 1], Element[list_4, 1]], k, 0, t)
list_{94} = Sequence(Element[list_4, 1] + k / t * Vector[Element[list_4, 1], Element[list_1, 1]], k, 0, t)
list_{95} = Sequence(Element[list_5, 1] + k / t * Vector[Element[list_5, 1], Element[list_6, 1]], k, 0, t)
list_{96} = Sequence(Element[list_6, 1] + k / t * Vector[Element[list_6, 1], Element[list_7, 1]], k, 0, t)
list_{97} = Sequence(Element[list_7, 1] + k / t * Vector[Element[list_7, 1], Element[list_8, 1]], k, 0, t)
list_{98} = Sequence(Element[list_8, 1] + k / t * Vector[Element[list_8, 1], Element[list_5, 1]], k, 0, t)
list_{99} = Sequence(Element[list_1, 2] + k / t * Vector[Element[list_1, 2], Element[list_2, 2]], k, 0, t)
list_{100} = Sequence(Element[list_2, 2] + k / t * Vector[Element[list_2, 2], Element[list_3, 2]], k, 0, t)
list_{101} = Sequence(Element[list_3, 2] + k / t * Vector[Element[list_3, 2], Element[list_4, 2]], k, 0, t)
list_{102} = Sequence(Element[list_4, 2] + k / t * Vector[Element[list_4, 2], Element[list_1, 2]], k, 0, t)
list_{103} = Sequence(Element[list_5, 2] + k / t * Vector[Element[list_5, 2], Element[list_6, 2]], k, 0, t)
list_{104} = Sequence(Element[list_6, 2] + k / t * Vector[Element[list_6, 2], Element[list_7, 2]], k, 0, t)
list_{105} = Sequence(Element[list_7, 2] + k / t * Vector[Element[list_7, 2], Element[list_8, 2]], k, 0, t)
list_{106} = Sequence(Element[list_8, 2] + k / t * Vector[Element[list_8, 2], Element[list_5, 2]], k, 0, t)
list_{107} = Sequence(Element[list_1, 3] + k / t * Vector[Element[list_1, 3], Element[list_2, 3]], k, 0, t)
list_{108} = Sequence(Element[list_2, 3] + k / t * Vector[Element[list_2, 3], Element[list_3, 3]], k, 0, t)
list_{109} = Sequence(Element[list_3, 3] + k / t * Vector[Element[list_3, 3], Element[list_4, 3]], k, 0, t)
list_{110} = Sequence(Element[list_4, 3] + k / t * Vector[Element[list_4, 3], Element[list_1, 3]], k, 0, t)
list_{111} = Sequence(Element[list_5, 3] + k / t * Vector[Element[list_5, 3], Element[list_6, 3]], k, 0, t)
list_{112} = Sequence(Element[list_6, 3] + k / t * Vector[Element[list_6, 3], Element[list_7, 3]], k, 0, t)
list_{113} = Sequence(Element[list_7, 3] + k / t * Vector[Element[list_7, 3], Element[list_8, 3]], k, 0, t)
list_{114} = Sequence(Element[list_8, 3] + k / t * Vector[Element[list_8, 3], Element[list_5, 3]], k, 0, t)
list_{115} = Sequence(Element[list_1, 4] + k / t * Vector[Element[list_1, 4], Element[list_2, 4]], k, 0, t)
list_{116} = Sequence(Element[list_2, 4] + k / t * Vector[Element[list_2, 4], Element[list_3, 4]], k, 0, t)
list_{117} = Sequence(Element[list_3, 4] + k / t * Vector[Element[list_3, 4], Element[list_4, 4]], k, 0, t)
list_{118} = Sequence(Element[list_4, 4] + k / t * Vector[Element[list_4, 4], Element[list_1, 4]], k, 0, t)
list_{119} = Sequence(Element[list_5, 4] + k / t * Vector[Element[list_5, 4], Element[list_6, 4]], k, 0, t)
list_{120} = Sequence(Element[list_6, 4] + k / t * Vector[Element[list_6, 4], Element[list_7, 4]], k, 0, t)
list_{121} = Sequence(Element[list_7, 4] + k / t * Vector[Element[list_7, 4], Element[list_8, 4]], k, 0, t)
list_{122} = Sequence(Element[list_8, 4] + k / t * Vector[Element[list_8, 4], Element[list_5, 4]], k, 0, t)
list_{123} = Sequence(Element[list_1, 5] + k / t * Vector[Element[list_1, 5], Element[list_2, 5]], k, 0, t)
list_{124} = Sequence(Element[list_2, 5] + k / t * Vector[Element[list_2, 5], Element[list_3, 5]], k, 0, t)
list_{125} = Sequence(Element[list_3, 5] + k / t * Vector[Element[list_3, 5], Element[list_4, 5]], k, 0, t)
list_{126} = Sequence(Element[list_4, 5] + k / t * Vector[Element[list_4, 5], Element[list_1, 5]], k, 0, t)
list_{127} = Sequence(Element[list_5, 5] + k / t * Vector[Element[list_5, 5], Element[list_6, 5]], k, 0, t)
list_{128} = Sequence(Element[list_6, 5] + k / t * Vector[Element[list_6, 5], Element[list_7, 5]], k, 0, t)
list_{129} = Sequence(Element[list_7, 5] + k / t * Vector[Element[list_7, 5], Element[list_8, 5]], k, 0, t)
list_{130} = Sequence(Element[list_8, 5] + k / t * Vector[Element[list_8, 5], Element[list_5, 5]], k, 0, t)
list_{131} = Sequence(Element[list_1, 6] + k / t * Vector[Element[list_1, 6], Element[list_2, 6]], k, 0, t)
list_{132} = Sequence(Element[list_2, 6] + k / t * Vector[Element[list_2, 6], Element[list_3, 6]], k, 0, t)
list_{133} = Sequence(Element[list_3, 6] + k / t * Vector[Element[list_3, 6], Element[list_4, 6]], k, 0, t)
list_{136} = Sequence(Element[list_6, 6] + k / t * Vector[Element[list_6, 6], Element[list_7, 6]], k, 0, t)
list_{137} = Sequence(Element[list_7, 6] + k / t * Vector[Element[list_7, 6], Element[list_8, 6]], k, 0, t)
list_{138} = Sequence(Element[list_8, 6] + k / t * Vector[Element[list_8, 6], Element[list_5, 6]], k, 0, t)
list_{139} = Sequence(Element[list_1, 7] + k / t * Vector[Element[list_1, 7], Element[list_2, 7]], k, 0, t)
list_{140} = Sequence(Element[list_2, 7] + k / t * Vector[Element[list_2, 7], Element[list_3, 7]], k, 0, t)
list_{141} = Sequence(Element[list_3, 7] + k / t * Vector[Element[list_3, 7], Element[list_4, 7]], k, 0, t)
list_{142} = Sequence(Element[list_4, 7] + k / t * Vector[Element[list_4, 7], Element[list_1, 7]], k, 0, t)
list_{143} = Sequence(Element[list_5, 7] + k / t * Vector[Element[list_5, 7], Element[list_6, 7]], k, 0, t)
list_{144} = Sequence(Element[list_6, 7] + k / t * Vector[Element[list_6, 7], Element[list_7, 7]], k, 0, t)
list_{145} = Sequence(Element[list_7, 7] + k / t * Vector[Element[list_7, 7], Element[list_8, 7]], k, 0, t)
list_{146} = Sequence(Element[list_8, 7] + k / t * Vector[Element[list_8, 7], Element[list_5, 7]], k, 0, t)
list_{147} = Sequence(Element[list_1, 8] + k / t * Vector[Element[list_1, 8], Element[list_2, 8]], k, 0, t)
list_{148} = Sequence(Element[list_2, 8] + k / t * Vector[Element[list_2, 8], Element[list_3, 8]], k, 0, t)
list_{149} = Sequence(Element[list_3, 8] + k / t * Vector[Element[list_3, 8], Element[list_4, 8]], k, 0, t)
list_{150} = Sequence(Element[list_4, 8] + k / t * Vector[Element[list_4, 8], Element[list_1, 8]], k, 0, t)
list_{151} = Sequence(Element[list_5, 8] + k / t * Vector[Element[list_5, 8], Element[list_6, 8]], k, 0, t)
list_{152} = Sequence(Element[list_6, 8] + k / t * Vector[Element[list_6, 8], Element[list_7, 8]], k, 0, t)
list_{153} = Sequence(Element[list_7, 8] + k / t * Vector[Element[list_7, 8], Element[list_8, 8]], k, 0, t)
list_{154} = Sequence(Element[list_8, 8] + k / t * Vector[Element[list_8, 8], Element[list_5, 8]], k, 0, t)
list_{134} = Sequence(Element[list_4, 6] + k / t * Vector[Element[list_4, 6], Element[list_1, 6]], k, 0, t)
list_{135} = Sequence(Element[list_5, 6] + k / t * Vector[Element[list_5, 6], Element[list_6, 6]], k, 0, t)
list_{155} = Sequence(Segment[Element[list_{91}, k], Element[list_{95}, k]], k, 0, t)
list_{156} = Sequence(Segment[Element[list_{92}, k], Element[list_{96}, k]], k, 0, t)
list_{157} = Sequence(Segment[Element[list_{93}, k], Element[list_{97}, k]], k, 0, t)
list_{158} = Sequence(Segment[Element[list_{94}, k], Element[list_{98}, k]], k, 0, t)
list_{159} = Sequence(Segment[Element[list_{99}, k], Element[list_{103}, k]], k, 0, t)
list_{160} = Sequence(Segment[Element[list_{100}, k], Element[list_{104}, k]], k, 0, t)
list_{161} = Sequence(Segment[Element[list_{101}, k], Element[list_{105}, k]], k, 0, t)
list_{162} = Sequence(Segment[Element[list_{102}, k], Element[list_{106}, k]], k, 0, t)
list_{163} = Sequence(Segment[Element[list_{107}, k], Element[list_{111}, k]], k, 0, t)
list_{164} = Sequence(Segment[Element[list_{108}, k], Element[list_{112}, k]], k, 0, t)
list_{165} = Sequence(Segment[Element[list_{109}, k], Element[list_{113}, k]], k, 0, t)
list_{166} = Sequence(Segment[Element[list_{110}, k], Element[list_{114}, k]], k, 0, t)
list_{167} = Sequence(Segment[Element[list_{115}, k], Element[list_{119}, k]], k, 0, t)
list_{168} = Sequence(Segment[Element[list_{116}, k], Element[list_{120}, k]], k, 0, t)
list_{169} = Sequence(Segment[Element[list_{117}, k], Element[list_{121}, k]], k, 0, t)
list_{170} = Sequence(Segment[Element[list_{118}, k], Element[list_{122}, k]], k, 0, t)
list_{171} = Sequence(Segment[Element[list_{123}, k], Element[list_{127}, k]], k, 0, t)
list_{172} = Sequence(Segment[Element[list_{124}, k], Element[list_{128}, k]], k, 0, t)
list_{173} = Sequence(Segment[Element[list_{125}, k], Element[list_{129}, k]], k, 0, t)
list_{174} = Sequence(Segment[Element[list_{126}, k], Element[list_{130}, k]], k, 0, t)
list_{175} = Sequence(Segment[Element[list_{131}, k], Element[list_{135}, k]], k, 0, t)
list_{176} = Sequence(Segment[Element[list_{132}, k], Element[list_{136}, k]], k, 0, t)
list_{177} = Sequence(Segment[Element[list_{133}, k], Element[list_{137}, k]], k, 0, t)
list_{178} = Sequence(Segment[Element[list_{134}, k], Element[list_{138}, k]], k, 0, t)
list_{179} = Sequence(Segment[Element[list_{139}, k], Element[list_{143}, k]], k, 0, t)
list_{180} = Sequence(Segment[Element[list_{140}, k], Element[list_{144}, k]], k, 0, t)
list_{181} = Sequence(Segment[Element[list_{141}, k], Element[list_{145}, k]], k, 0, t)
list_{182} = Sequence(Segment[Element[list_{142}, k], Element[list_{146}, k]], k, 0, t)
list_{183} = Sequence(Segment[Element[list_{147}, k], Element[list_{151}, k]], k, 0, t)
list_{184} = Sequence(Segment[Element[list_{148}, k], Element[list_{152}, k]], k, 0, t)
list_{185} = Sequence(Segment[Element[list_{149}, k], Element[list_{153}, k]], k, 0, t)
list_{186} = Sequence(Segment[Element[list_{150}, k], Element[list_{154}, k]], k, 0, t)
A: O + (l + 3 * h * tan(10°)) * u + (l + 3 * h * tan(10°)) * v
B: O - (l + 3 * h * tan(10°)) * u + (l + 3 * h * tan(10°)) * v
C: O - (l + 3 * h * tan(10°)) * u - (l + 3 * h * tan(10°)) * v
D: O + (l + 3 * h * tan(10°)) * u - (l + 3 * h * tan(10°)) * v
l_1 = Segment(Element[list_1, 1], A)
l_2 = Segment(Element[list_2, 1], B)
l_3 = Segment(Element[list_3, 1], C)
l_4 = Segment(Element[list_4, 1], D)
l_5 = Segment(A, B)
l_6 = Segment(B, C)
l_7 = Segment(C, D)
l_8 = Segment(D, A)
P_1, a_1, b_1, c_1, d = Polygon(A, B, C, D)
P_2, a_2, b_2, e, f = Polygon(A, B, Element[list_2, 1], Element[list_1, 1])
P_3, b_3, c_2, g, h_1 = Polygon(B, C, Element[list_3, 1], Element[list_2, 1])
P_4, c_3, d_1, i, j = Polygon(C, D, Element[list_4, 1], Element[list_3, 1])
P_5, d_2, a_3, k, m_1 = Polygon(D, A, Element[list_1, 1], Element[list_4, 1])
s = 27 (slider from 0 to 27, step 0.1)
list_{187} = Sequence(A + k / t * Vector[A, B], k, 0, t)
list_{188} = Sequence(B + k / t * Vector[B, C], k, 0, t)
list_{189} = Sequence(C + k / t * Vector[C, D], k, 0, t)
list_{190} = Sequence(D + k / t * Vector[D, A], k, 0, t)
list_{191} = Sequence(Segment[Element[list_{91}, k], Element[list_{187}, k]], k, 0, t)
list_{192} = Sequence(Segment[Element[list_{92}, k], Element[list_{188}, k]], k, 0, t)
list_{193} = Sequence(Segment[Element[list_{93}, k], Element[list_{189}, k]], k, 0, t)
list_{194} = Sequence(Segment[Element[list_{94}, k], Element[list_{190}, k]], k, 0, t)
list_{195} = Sequence(Element[list_1, 1] + k / s * Vector[Element[list_1, 1], A], k, 0, s)
list_{196} = Sequence(Element[list_2, 1] + k / s * Vector[Element[list_2, 1], B], k, 0, s)
list_{197} = Sequence(Element[list_3, 1] + k / s * Vector[Element[list_3, 1], C], k, 0, s)
list_{198} = Sequence(Element[list_4, 1] + k / s * Vector[Element[list_4, 1], D], k, 0, s)
list_{199} = Sequence(Segment[Element[list_{195}, k], Element[list_{196}, k]], k, 0, s)
list_{200} = Sequence(Segment[Element[list_{196}, k], Element[list_{197}, k]], k, 0, s)
list_{201} = Sequence(Segment[Element[list_{197}, k], Element[list_{198}, k]], k, 0, s)
list_{202} = Sequence(Segment[Element[list_{198}, k], Element[list_{195}, k]], k, 0, s)
poly1, p, q, r, e_1 = Polygon(O + 600 * u + 600 * v, O - 600 * u + 600 * v, O - 600 * u - 600 * v, O + 600 * u - 600 * v)
A_1: O + 0.6 * l * u + 0.6 * l * v + 22 * h * w
B_1: O - 0.6 * l * u + 0.6 * l * v + 22 * h * w
C_1: O - 0.6 * l * u - 0.6 * l * v + 22 * h * w
D_1: O + 0.6 * l * u - 0.6 * l * v + 22 * h * w
A_2: O + 0.6 * l * u + 0.6 * l * v + 22.2 * h * w
B_2: O - 0.6 * l * u + 0.6 * l * v + 22.2 * h * w
C_2: O - 0.6 * l * u - 0.6 * l * v + 22.2 * h * w
D_2: O + 0.6 * l * u - 0.6 * l * v + 22.2 * h * w
A_3: O + 0.5 * l * u + 0.5 * l * v + 22.2 * h * w
B_3: O - 0.5 * l * u + 0.5 * l * v + 22.2 * h * w
C_3: O - 0.5 * l * u - 0.5 * l * v + 22.2 * h * w
D_3: O + 0.5 * l * u - 0.5 * l * v + 22.2 * h * w
A_4: O + 0.5 * l * u + 0.5 * l * v + 22.4 * h * w
B_4: O - 0.5 * l * u + 0.5 * l * v + 22.4 * h * w
C_4: O - 0.5 * l * u - 0.5 * l * v + 22.4 * h * w
D_4: O + 0.5 * l * u - 0.5 * l * v + 22.4 * h * w
A_5: O + 0.4 * l * u + 0.4 * l * v + 22.4 * h * w
B_5: O - 0.4 * l * u + 0.4 * l * v + 22.4 * h * w
C_5: O - 0.4 * l * u - 0.4 * l * v + 22.4 * h * w
D_5: O + 0.4 * l * u - 0.4 * l * v + 22.4 * h * w
A_6: O + 0.4 * l * u + 0.4 * l * v + 22.6 * h * w
B_6: O - 0.4 * l * u + 0.4 * l * v + 22.6 * h * w
C_6: O - 0.4 * l * u - 0.4 * l * v + 22.6 * h * w
D_6: O + 0.4 * l * u - 0.4 * l * v + 22.6 * h * w
l_9 = Segment(A_1, B_1)
l_{10} = Segment(B_1, C_1)
l_{11} = Segment(C_1, D_1)
l_{12} = Segment(D_1, A_1)
l_{13} = Segment(A_2, B_2)
l_{14} = Segment(B_2, C_2)
l_{15} = Segment(C_2, D_2)
l_{16} = Segment(D_2, A_2)
l_{17} = Segment(A_3, B_3)
l_{18} = Segment(B_3, C_3)
l_{19} = Segment(C_3, D_3)
l_{20} = Segment(D_3, A_3)
l_{21} = Segment(A_4, B_4)
l_{22} = Segment(B_4, C_4)
l_{23} = Segment(C_4, D_4)
l_{24} = Segment(D_4, A_4)
l_{25} = Segment(A_5, B_5)
l_{26} = Segment(B_5, C_5)
l_{27} = Segment(C_5, D_5)
l_{28} = Segment(D_5, A_5)
l_{33} = Segment(A_1, A_2)
l_{34} = Segment(B_1, B_2)
l_{35} = Segment(C_1, C_2)
l_{36} = Segment(D_1, D_2)
l_{37} = Segment(A_3, A_4)
l_{38} = Segment(B_3, B_4)
l_{39} = Segment(C_3, C_4)
l_{40} = Segment(D_3, D_4)
l_{29} = Segment(A_6, B_6)
l_{30} = Segment(B_6, C_6)
l_{31} = Segment(C_6, D_6)
l_{32} = Segment(D_6, A_6)
l_{41} = Segment(A_5, A_6)
l_{42} = Segment(B_5, B_6)
l_{43} = Segment(C_5, C_6)
l_{44} = Segment(D_5, D_6)
P_6, a_4, b_4, c_4, d_3 = Polygon(A_2, B_2, C_2, D_2)
P_7, a_5, b_5, c_5, d_4 = Polygon(A_4, B_4, C_4, D_4)
P_8, a_6, b_6, c_6, d_6 = Polygon(A_6, B_6, C_6, D_6)
P_9, a_7, b_7, b_8, a_8 = Polygon(A_1, B_1, B_2, A_2)
P_{10}, a_9, b_9, b_{10}, a_{10} = Polygon(A_3, B_3, B_4, A_4)
P_{11}, a_{13}, b_{13}, b_{14}, a_{14} = Polygon(A_5, B_5, B_6, A_6)
P_{12}, f_1, g_1, i_1, j_1 = Polygon(B_1, C_1, C_2, B_2)
P_{13}, b_{15}, c_7, c_8, b_{16} = Polygon(B_3, C_3, C_4, B_4)
P_{14}, b_{17}, c_9, c_{10}, b_{18} = Polygon(B_5, C_5, C_6, B_6)
P_{15}, c_{11}, d_5, d_7, c_{12} = Polygon(C_1, D_1, D_2, C_2)
P_{16}, c_{13}, d_8, d_9, c_{14} = Polygon(C_3, D_3, D_4, C_4)
P_{17}, c_{15}, d_{10}, d_{11}, c_{16} = Polygon(C_5, D_5, D_6, C_6)
P_{18}, d_{12}, a_{15}, a_{16}, d_{13} = Polygon(D_1, A_1, A_2, D_2)
P_{19}, d_{14}, a_{17}, a_{18}, d_{15} = Polygon(D_3, A_3, A_4, D_4)
P_{20}, d_{16}, a_{19}, a_{20}, d_{17} = Polygon(D_5, A_5, A_6, D_6)
A_7: O + 0.2 * l * u + 0.2 * l * v + 22.6 * h * w
B_7: O - 0.2 * l * u + 0.2 * l * v + 22.6 * h * w
C_7: O - 0.2 * l * u - 0.2 * l * v + 22.6 * h * w
D_7: O + 0.2 * l * u - 0.2 * l * v + 22.6 * h * w
A_8: O + (0.2 + tan(3°)) * l * u + (0.2 + tan(3°)) * l * v + 24 * h * w
B_8: O - (0.2 + tan(3°)) * l * u + (0.2 + tan(3°)) * l * v + 24 * h * w
C_8: O - (0.2 + tan(3°)) * l * u - (0.2 + tan(3°)) * l * v + 24 * h * w
D_8: O + (0.2 + tan(3°)) * l * u - (0.2 + tan(3°)) * l * v + 24 * h * w
l_{45} = Segment(A_7, A_8)
l_{46} = Segment(B_7, B_8)
l_{47} = Segment(C_7, C_8)
l_{48} = Segment(D_7, D_8)
list_{203} = Sequence(A_7 + k / n * Vector[A_7, A_8], k, 0, n)
list_{204} = Sequence(B_7 + k / n * Vector[B_7, B_8], k, 0, n)
list_{205} = Sequence(C_7 + k / n * Vector[C_7, C_8], k, 0, n)
list_{206} = Sequence(D_7 + k / n * Vector[D_7, D_8], k, 0, n)
l_{49} = Segment(A_8, B_8)
l_{50} = Segment(B_8, C_8)
l_{51} = Segment(C_8, D_8)
l_{52} = Segment(D_8, A_8)
P_{21}, a_{11}, b_{11}, b_{12}, a_{12} = Polygon(A_7, B_7, B_8, A_8)
P_{22}, b_{19}, c_{17}, c_{18}, b_{20} = Polygon(B_7, C_7, C_8, B_8)
P_{23}, c_{19}, d_{18}, d_{19}, c_{20} = Polygon(C_7, D_7, D_8, C_8)
P_{24}, d_{20}, a_{21}, a_{22}, d_{21} = Polygon(D_7, A_7, A_8, D_8)
P_{25}, a_{23}, b_{21}, c_{21}, d_{22} = Polygon(A_8, B_8, C_8, D_8)
A_9: A_8 + 0.2 * h * w
A_{10}: A_8 + 0.4 * h * w
A_{11}: A_8 + 0.6 * h * w
B_9: B_8 + 0.2 * h * w
B_{10}: B_8 + 0.4 * h * w
B_{11}: B_8 + 0.6 * h * w
C_9: C_8 + 0.2 * h * w
C_{10}: C_8 + 0.4 * h * w
C_{11}: C_8 + 0.6 * h * w
D_9: D_8 + 0.2 * h * w
D_{10}: D_8 + 0.4 * h * w
D_{11}: D_8 + 0.6 * h * w
l_{53} = Segment(A_8, A_{11})
l_{54} = Segment(B_8, B_{11})
l_{55} = Segment(C_8, C_{11})
l_{56} = Segment(D_8, D_{11})
list_{207} = Sequence(Segment[Element[list_{203}, k], Element[list_{204}, k]], k, 0, n)
list_{208} = Sequence(Segment[Element[list_{204}, k], Element[list_{205}, k]], k, 0, n)
list_{209} = Sequence(Segment[Element[list_{205}, k], Element[list_{206}, k]], k, 0, n)
list_{210} = Sequence(Segment[Element[list_{206}, k], Element[list_{203}, k]], k, 0, n)
M_1: O + l * u + 6 * h * w
M_2: O + l * v + 6 * h * w
M_3: O - l * u + 6 * h * w
M_4: O - l * v + 6 * h * w
c = Vector(O - 100 * L * w, O + 100 * L * w)
b = Vector(O - 60 * L * v, O + 60 * L * v)
a = Vector(O - 60 * L * u, O + 60 * L * u)
C_a = CurveCartesian(x(M_1 + 20 * cos(α) * v + 20 * sin(α) * w), y(M_1 + 20 * cos(α) * v + 20 * sin(α) * w), α, 0, 6.283185307179586)
C_b = CurveCartesian(x(M_2 + 20 * cos(α) * u + 20 * sin(α) * w), y(M_2 + 20 * cos(α) * u + 20 * sin(α) * w), α, 0, 6.283185307179586)
C_c = CurveCartesian(x(M_3 + 20 * cos(α) * v + 20 * sin(α) * w), y(M_3 + 20 * cos(α) * v + 20 * sin(α) * w), α, 0, 6.283185307179586)
C_d = CurveCartesian(x(M_4 + 20 * cos(α) * u + 20 * sin(α) * w), y(M_4 + 20 * cos(α) * u + 20 * sin(α) * w), α, 0, 6.283185307179586)
l_{57} = Segment(A_9, B_9)
l_{58} = Segment(A_{10}, B_{10})
l_{59} = Segment(A_{11}, B_{11})
l_{60} = Segment(B_9, C_9)
l_{61} = Segment(B_{10}, C_{10})
l_{62} = Segment(B_{11}, C_{11})
l_{63} = Segment(C_9, D_9)
l_{64} = Segment(C_{10}, D_{10})
l_{65} = Segment(C_{11}, D_{11})
l_{66} = Segment(D_9, A_9)
l_{67} = Segment(D_{10}, A_{10})
l_{68} = Segment(D_{11}, A_{11})
P_{26}, k_1, n_1, p_1, q_1 = Polygon(A_8, B_8, B_{11}, A_{11})
P_{27}, r_1, s_1, t_1, e_2 = Polygon(B_8, C_8, C_{11}, B_{11})
P_{28}, f_2, g_2, h_2, i_2 = Polygon(C_8, D_8, D_{11}, C_{11})
P_{29}, j_2, k_2, m_2, n_2 = Polygon(D_8, A_8, A_{11}, D_{11})
P_{30}, a_{24}, b_{22}, c_{22}, d_{23} = Polygon(A_{11}, B_{11}, C_{11}, D_{11})
E: O + (l + 3 * h * tan(10°)) * u + (1 / 2 * l + 3 / 2 * h * tan(10°)) * v
F: O + (l + 3 * h * tan(10°)) * u - (1 / 2 * l + 3 / 2 * h * tan(10°)) * v
G: O + (l + 3 * h * tan(10°)) * u - (1 / 2 * l + 3 / 2 * h * tan(10°)) * v + h * w
H: O + (l + 3 * h * tan(10°)) * u + (1 / 2 * l + 3 / 2 * h * tan(10°)) * v + h * w
l_{69} = Segment(E, H)
l_{70} = Segment(F, G)
P_{31}, e_3, f_3, g_3, h_3 = Polygon(E, F, G, H)
E_1: O + (l + 3 * h * tan(10°)) * u + (1 / 6 * l + 1 / 2 * h * tan(10°)) * v
F_1: O + (l + 3 * h * tan(10°)) * u - (1 / 6 * l + 1 / 2 * h * tan(10°)) * v
G_1: O + (l + 3 * h * tan(10°)) * u - (1 / 6 * l + 1 / 2 * h * tan(10°)) * v + 2 / 3 * h * w
H_1: O + (l + 3 * h * tan(10°)) * u + (1 / 6 * l + 1 / 2 * h * tan(10°)) * v + 2 / 3 * h * w
l_{71} = Segment(E_1, H_1)
l_{72} = Segment(F_1, G_1)
P_{32}, e_4, f_4, g_4, h_4 = Polygon(E_1, F_1, G_1, H_1)
l_{73} = Segment(G_1, H_1)
O_1: O + 24.6 * h * w
O_2: O + 25.6 * h * w
C_e = CurveCartesian(x(O_1 + 2 * cos(β) * u + 2 * sin(β) * v), y(O_1 + 2 * cos(β) * u + 2 * sin(β) * v), β, 0, 6.283185307179586)
C_f = CurveCartesian(x(O_2 + 2 * cos(β) * u + 2 * sin(β) * v), y(O_2 + 2 * cos(β) * u + 2 * sin(β) * v), β, 0, 6.283185307179586)
m = 360 (slider from 0 to 360, step 0.1)
list_a = Sequence(O_1 + 2 * cos(m°) * u + 2 * sin(m°) * v, m, 0, 360)
list_b = Sequence(O_2 + 2 * cos(m°) * u + 2 * sin(m°) * v, m, 0, 360)
list_c = Sequence(Segment[Element[list_a, m], Element[list_b, m]], m, 0, 360)