Big top

1asset big_top_tent "Big top" complexity=8
2// a striped circus big top: a round canvas wall, a scalloped valance hung with drops and bulbs, a
3// swooping striped roof up to a king pole with a cupola and a pennant, four more pennants on short
4// masts round the roof, a porch with striped columns, an arched doorway with tied-back curtains, a
5// marquee board ringed with bulbs, and guy ropes pegged into the ground. The flags flutter.
6let R = 5.3..5.7
7let WH = 2.6..2.9
8let stA = cherry:3|cobalt|grape|teal:.6
9let stB = cream:3|white|sunflower:.6
10let trim = navy:2|plum|bottle
11let metal = brass:3|copper
12let bulbC = glow:3|sunflower
13let flagA = sunflower:2|teal|pink|mint
14let flagB = pink:2|sky|tangerine|lime
15 
16// the wall and the valance
17cyl wall h=WH r=R stripes=[stA stB] panels=28 color=stA segs=64
18cyl skirt at=(0, 0, 0) h=.3 r=R+.06 color=trim segs=64
19cyl valance at=(0, WH-.05, 0) h=.6 r=R+.22 stripes=[stB stA] panels=28 cap=stB color=stB segs=64
20ball drop x28 on=valance ring ring0=6.43 at=(R+.2, .02, 0) r=(.07, .2, R*.11) color=sel(i - 2*floor(i/2), stA, stB) segs=8 rings=6
21ball bulb x28 on=valance ring ring0=6.43 at=(R+.3, .28, 0) r=.13 color=bulbC ink=glow segs=8 rings=5
22 
23// the roof: a swooping cone of stripes with a sagging hem, the king pole, a cupola and its flag
24lathe roof on=valance at=(0, .5, 0) h=4.3 r=R+.45 prof=[0:1 .12:.84 .42:.47 .78:.17 1:.08] stripes=[stA stB] panels=28 scallop=.1 color=stA segs=64 rings=20
25// two strings of bulbs looping round the roof
26ball rbulb x22 on=roof ring surf=(0, -16) upright lift=.03 r=.13 color=sel(i - 2*floor(i/2), bulbC, flagB) ink=glow segs=8 rings=5
27ball rbulb2 x14 on=roof ring ring0=12 surf=(0, 2) upright lift=.03 r=.13 color=sel(i - 2*floor(i/2), flagB, bulbC) ink=glow segs=8 rings=5
28cyl kingpole on=roof at=(0, 4.0, 0) h=1.5 r=.13 color=metal segs=10
29ball cupola on=kingpole at=(0, .45, 0) r=(.4, .32, .4) stripes=[stB stA] panels=8 color=stB segs=16 rings=8
30ball topknob on=kingpole at=end r=.14 color=metal segs=10 rings=6
31slab flag on=kingpole at=(0, 1.42, 0) pts=[0,0 1.3,-.26 0,-.6] t=.05 round=.015 color=flagA edge=stB joint
32 
33// four pennants on short masts round the roof
34cyl mast x4 on=roof ring ring0=45 at=(R*.52, 1.55, 0) h=1.3 r=.06 color=metal segs=8
35ball mastknob on=mast at=end r=.08 color=metal segs=8 rings=5
36slab pennant on=mast at=(0, 1.22, 0) pts=[0,0 1.0,-.2 0,-.44] t=.045 round=.012 color=flagB edge=stB joint
37 
38// the porch: two striped columns, a canopy, the arched doorway with curtains, the marquee
39cyl column at=(1.45, 0, R+.8) mirror h=WH+.3 r=.16 stripes=[stA stB] panels=6 bands=[.04:stB] color=stA segs=12
40ball colknob on=column at=end r=.17 color=metal segs=10 rings=6
41box canopy at=(0, WH+.3, R+.35) size=(3.6, .22, 1.35) round=.08 bands=[.5:stB] color=trim
42slab door at=(0, .02, R-.08) pts=[-1,0 1,0 1,1.85 .72,2.22 0,2.38 -.72,2.22 -1,1.85] t=.16 round=.03 color=plum edge=metal
43lathe curtain at=(1.12, .02, R+.14) mirror h=2.3 r=.24 prof=[0:1.05 .35:.55 .45:.5 .55:.6 1:.75] depth=.6 color=stA segs=10 rings=8
44torus tie on=curtain at=(0, .92, 0) R=.13 r=.035 color=metal segs=12 sides=5
45slab marquee on=canopy at=(0, .18, .35) pts=[-1.25,0 1.25,0 1.25,.62 .7,.82 0,.9 -.7,.82 -1.25,.62] t=.12 round=.04 color=stB edge=stA
46ball star on=marquee at=(0, .44, .07) r=(.2, .2, .06) color=sunflower ink=glow segs=10 rings=5
47ball mbulb x6 on=marquee at=(0, .08, .1) row=(.42, 0, 0) r=.075 color=bulbC ink=glow segs=6 rings=4
48 
49// guy ropes and pegs round the outside
50rod rope x8 ring ring0=22.5 at=(R+.2, WH-.1, 0) to=(1.25, -WH+.18, 0) r=.025 sides=4 color=cream
51cyl peg x8 ring ring0=22.5 at=(R+1.45, 0, 0) h=.22 r=.07 color=walnut segs=6
52 
53anim flag ry sin amp=22 hz=1.1
54anim flag rz sin amp=6 hz=2.2
55anim pennant ry sin amp=20 hz=1.3 stagger=.27
56