Bone throne

1asset bone_throne "Bone throne" complexity=6
2// the goblin king's seat, built in the dragon's own mouth from what the dragon left: a stepped dais,
3// a seat block faced with a row of skulls, femur armrests with knuckle ends, and a fan of curved
4// ribs for a back with a horned skull on top whose eyes still burn. A red velvet drape and cushion,
5// spilled gold and candles. The top skull's jaw chatters, the flames flicker.
6let boneC = cream:3|birch
7let velvetC = tomato:2|grape|redwood
8let flameC = sunflower:2|lime|aqua
9let goldC = sunflower:2|marigold
10let side = int(0..2)
11 
12// the dais and its step
13box dais size=(2.6, .22, 2.1) round=.04 bev=2 bands=[.5:greystone*.92] color=greystone
14box step on=dais at=(0, .22, -.15) size=(2.0, .2, 1.5) round=.04 bev=2 color=greystone*1.06
15box runner on=dais at=(0, .22, .7) size=(.8, .02, .7) color=velvetC
16 
17// the seat block and its row of skulls
18box seat on=step at=(0, .2, -.1) size=(1.4, .5, .95) round=.06 bev=2 color=boneC*.88
19ball skull x5 on=seat at=(0, .24, .47) row=(.27, 0, 0) r=(.12, .11, .09) color=boneC segs=10 rings=7
20ball sock on=skull at=(.04, .01, .07) mirror r=(.032, .036, .022) color=inkDark segs=6 rings=4
21box cushion on=seat at=(0, .5, .05) size=(1.2, .14, .8) round=.07 color=velvetC
22ball tassel on=cushion at=(.58, .02, .38) mirror r=.045 color=goldC segs=6 rings=4
23 
24// femur armrests on bone posts, knuckles at both ends
25rod armPost x2 on=seat at=(.62, .45, .05) mirror row=(0, 0, -.55) to=(0, .38, 0) r=.06 sides=8 color=boneC
26tube femur on=seat at=(.66, .85, .48) mirror pts=[0, 0, 0  0, .02, -.45  0, 0, -.9] r=.06 smooth sides=8 color=boneC
27ball knuckle x2 on=femur at=(.03, 0, -.45) row=(0, 0, -.9) r=.095 color=boneC segs=8 rings=6
28ball knuckleB x2 on=femur at=(-.05, 0, -.45) row=(0, 0, -.9) r=.08 color=boneC segs=8 rings=6
29 
30// the back: a drape, a stacked spine, a fan of curved ribs, fangs between them
31box drape on=seat at=(0, .5, -.42) size=(1.2, 1.35, .08) round=.03 color=velvetC
32box hem on=drape at=(0, 0, .02) size=(1.27, .1, .1) round=.02 color=goldC
33box spine x5 on=seat at=(0, .55, -.52) chain=(0, .38, 0) size=(.3, .36, .22) round=.03 color=boneC
34cone spinePeg on=spine at=(0, .14, -.12) rot=(-110, 0, 0) h=.18 r=.06 color=boneC segs=6
35tube rib x6 on=seat at=(0, .5, -.5) row=(.21, 0, 0) rot=(0, 0, 37.5-i*15) pts=[0, 0, 0  0, .9, -.08  0, 1.9, -.02  0, 2.5, .2] r=(.075, .03) smooth sides=6 color=boneC
36cone fang x2 on=rib at=(.06, 1.7, -.04) row=(0, .6, 0) rot=(0, 0, -90) h=.16 r=.035 color=white segs=5
37 
38// the horned skull crowning the back
39ball crown on=seat at=(0, 2.68, -.5) r=(.3, .26, .3) color=boneC segs=14 rings=9 joint
40ball cSock on=crown at=(.11, .03, .23) mirror r=(.075, .085, .05) color=inkDark segs=8 rings=5
41ball cEye on=cSock at=(0, 0, .03) r=(.035, .04, .025) color=flameC ink=glow segs=6 rings=4
42box snout on=crown at=(0, -.12, .2) size=(.28, .14, .3) round=.06 color=boneC
43box jaw on=crown at=(0, -.27, .14) size=(.26, .07, .3) round=.03 color=boneC*.95 joint
44cone tooth x4 on=snout at=(0, .015, .13) row=(.07, 0, 0) rot=(180, 0, 0) h=.07 r=.022 color=white segs=4
45cone horn on=crown at=(.22, .15, -.05) mirror rot=(-20, 0, -55) h=.5 r=.07 bend=-45 color=boneC*.92 segs=8
46cone crest x3 on=crown at=(0, .24, -.12) row=(0, -.05, -.12) rot=(-40, 0, 0) h=.22 r=.05 color=boneC segs=5
47 
48// spilled gold and a skull heap on the dais, by seed a second heap or a dropped crown
49ball gold on=dais at=(.85, .22, .55) r=(.36, .16, .3) half color=goldC noise=.04 segs=14 rings=6
50cyl coin x4 on=gold surf=(i*80+20, 25) lift=-.01 rot=(0, 0, 12) h=.025 r=.07 color=marigold cap=sunflower segs=10
51ball heapSkull x3 on=dais at=(-.95, .32, .5) row=(.2, .04, -.15) r=(.12, .11, .12) color=boneC segs=8 rings=6
52ball hsSock on=heapSkull at=(.045, .01, .09) mirror r=(.03, .035, .02) color=inkDark segs=6 rings=4
53ball gold2 on=dais at=(-.7, .22, -.75) r=(.3, .14, .26) half color=goldC noise=.04 segs=12 rings=6 if=side==1
54cyl lostCrown on=dais at=(.7, .22, -.75) rot=(70, 0, 20) h=.12 r=.13 color=goldC panels=5 open=top segs=10 if=side==2
55 
56// candles at the dais corners
57cyl candle x2 on=dais at=(1.18, .22, 0) mirror row=(0, 0, 1.7) h=.32 r=.05 color=boneC segs=8
58ball wax on=candle at=(0, .27, 0) r=(.062, .035, .062) color=boneC segs=8 rings=4
59ball flame on=candle at=(0, .4, 0) r=(.04, .075, .04) color=flameC ink=glow segs=8 rings=5 joint
60 
61// life: the crown skull's jaw chatters, it looks about, flames flicker
62anim jaw rx keys=[0:0 .1:14 .2:0 .3:14 .4:0 1:0] hz=.3
63anim crown ry sin amp=8 hz=.15
64anim flame s sin amp=.2 hz=2.5 stagger=.3
65