Boss's desk

1asset boss_desk "Boss's desk" complexity=6
2// the boss's big wooden desk: a thick top with a leather writing inlay on two drawer pedestals and a
3// panelled front, a green-shaded banker's lamp that glows, a spinning globe on a brass stand, a brass
4// name plate, a phone, a pen stand and a tall tufted executive chair behind it; visitors sit at +Z
5let S = .97..1.03
6let wood = walnut:3|redwood:2|oak
7let inlayC = bottle:2|cherry|navy
8let shadeK = bottle:3|cherry|navy
9let chairC = cherry:2|walnut|navy|bottle|inkDark
10let metal = brass:3|copper|silver
11let W = 2.2*S
12let D = 1.0*S
13let H = .76
14 
15// the desk: top, inlay, two pedestals with drawers, a panelled modesty front
16box top at=(0, H-.07, 0) size=(W, .07, D) round=.025 bev=3 color=wood
17box inlay on=top at=(0, .07, -.03) size=(W*.6, .012, D*.55) round=.01 color=inlayC ink=none
18box ped at=(W/2-.3, 0, 0) mirror size=(.56, H-.07, D-.08) round=.03 color=wood*.92
19box drawer x3 on=ped at=(0, .07+.2, -(D-.08)/2-.005) row=(0, .2, 0) size=(.48, .17, .03) round=.02 color=wood*1.08
20ball knob on=drawer at=(0, .085, -.03) r=.022 color=metal segs=8 rings=5
21box front at=(0, .1, D/2-.06) size=(W-1.16, H-.2, .05) round=.02 color=wood*.92
22box panel on=front at=(0, .1, .03) size=(W-1.36, H-.42, .02) round=.02 color=wood*1.08
23box base at=(0, 0, 0) size=(W+.04, .06, D-.04) round=.02 color=wood*.8
24 
25// the banker's lamp
26cyl lampbase on=top at=(-W*.36, .07, -D*.2) h=.04 r=.1 color=metal segs=18
27rod lampstem on=lampbase at=(0, .04, 0) to=(0, .32, 0) r=.014 sides=8 color=metal
28cyl lampshade on=lampstem at=end+(.2, -.02, .02) rot=(0, 0, 90) h=.4 r=.08 depth=.7 color=shadeK segs=18
29ball bulb on=lampstem at=end+(0, -.08, .02) r=(.15, .04, .05) color=glow ink=glow segs=12 rings=6
30 
31// the globe on its brass stand
32cyl globebase on=top at=(W*.36, .07, -D*.18) h=.03 r=.1 color=metal segs=16
33rod globepost on=globebase at=(0, .03, 0) to=(0, .1, 0) r=.015 sides=8 color=metal
34torus meridian on=globepost at=end+(0, .17, 0) rot=(0, 0, 90) R=.19 r=.012 arc=220 color=metal segs=24 sides=6
35ball globe on=globepost at=end+(0, .17, 0) rot=(0, 0, 18) r=.16 color=sky segs=22 rings=14 joint
36ball land x4 on=globe ring=15 surf=(0, sel(i, -12, 32, 4, 40)) upright lift=-.065+i*.006 r=(.09, .06, .07)*(.8+i*.08) color=leafPaint segs=10 rings=6
37ball cap on=globe surf=(0, 90) upright lift=-.03 r=.05 color=white segs=10 rings=6
38 
39// name plate, phone, pens and a folder
40slab plate on=top at=(0, .07, D*.38) rot=(-20, 0, 0) pts=[-.17,0 .17,0 .17,.07 -.17,.07] t=.02 round=.006 color=walnut edge=metal
41box phone on=top at=(W*.15, .07, -D*.25) size=(.2, .06, .18) round=.025 color=inkDark
42box handset on=phone at=(0, .06, -.02) size=(.2, .04, .06) round=.02 color=inkDark*1.4
43cyl pencup on=top at=(-W*.2, .07, -D*.32) h=.11 r=.04 color=metal segs=12
44rod pen x3 on=pencup ring at=(.012, .05, 0) to=(.015, .11, 0) r=.007 sides=5 color=sel(i, inkDark, cherry, metal) ink=none
45box folder on=inlay at=(-.15, .012, .05) yaw=-10 size=(.32, .03, .24) round=.01 color=sunflower
46 
47// the executive chair behind
48cyl chub at=(0, .07, -D/2-.42) h=.06 r=.07 color=inkDark segs=14
49rod cleg x5 on=chub ring ring0=18 at=(0, .03, 0) to=(.32, -.03, 0) r=.025 sides=6 color=inkDark
50ball wheel on=cleg at=end+(0, -.025, 0) r=.035 color=inkDark segs=8 rings=5
51cyl cgas on=chub at=(0, .05, 0) h=.32 r=.03 color=metal segs=10
52box cseat on=cgas at=(0, .3, 0) size=(.62, .14, .58) round=.06 bev=3 color=chairC
53box cback on=cseat at=(0, .08, -.26) tilt=-6 size=(.62, .82, .16) round=.07 bev=3 color=chairC
54ball tuft x3 on=cback at=(0, .3, .085) row=(.16, 0, 0) r=.025 color=chairC*.75 segs=8 rings=5
55ball tuft2 x3 on=cback at=(0, .55, .085) row=(.16, 0, 0) r=.025 color=chairC*.75 segs=8 rings=5
56box carm x2 on=cseat row=(.68, 0, 0) at=(0, .12, -.02) size=(.08, .18, .46) round=.035 color=chairC*.85
57 
58anim globe ry spin hz=.08
59