Playground

asset stalagmite "Stalagmite cluster" complexity=3
// a cave-floor cluster: one tall stalagmite and a ring of shorter ones on a rubble base, a
// little pool at their feet. Seeds change the heights and colours and sometimes crust it with
// glowing crystals or moss.
let H = 1.4..2.4
let rockC = rockCool:2|rockGrey|granite|sandstone
let crystalC = aqua:2|grape|mint|bubblegum
let crust = int(0..2)
 
// rubble base and pool
ball base r=(.7, .2, .62) half color=rockC*.85 noise=.08 segs=26 rings=9
ball rock x6 on=base ring ring0=20 at=(.62, .12, 0) r=(.22, .12, .18) rot=(0, 0, 12) color=rockC*.9 noise=.12 segs=10 rings=7
cyl pool on=base at=(.42, -.0, .62) h=.03 r=.32 color=water segs=16
 
// the tall one and its smaller siblings
lathe spire on=base at=(0, .12, 0) h=H r=.32 prof=[0:1 .15:.9 .3:.72 .45:.62 .55:.5 .7:.36 .85:.22 1:.04] color=rockC noise=.05 segs=20 rings=18
lathe spireB on=base at=(.34, .08, -.22) h=H*.55 r=.2 prof=[0:1 .3:.75 .6:.45 1:.05] color=rockC*.94 noise=.06 segs=14 rings=10
lathe spireC on=base at=(-.36, .06, .18) h=H*.4 r=.18 prof=[0:1 .4:.65 .7:.35 1:.05] color=rockC*1.04 noise=.06 segs=14 rings=10
lathe spireD on=base at=(-.18, .06, -.38) h=H*.28 r=.13 prof=[0:1 .5:.55 1:.05] color=rockC segs=8 rings=6
 
// crust by seed: glowing crystals or moss
cone crystal x4 on=base ring ring0=45 at=(.42, .12, .12) rot=(0, 0, -25) h=.5 r=.09 color=crystalC ink=glow segs=5 if=crust==0
cone crystalB on=crystal at=(.04, 0, .03) rot=(15, 0, -20) h=.2 r=.045 color=crystalC ink=glow segs=5
puff moss x3 on=base ring ring0=60 at=(.45, .14, 0) r=.16 color=sel(i, moss, hedge, lime) segs=7 rings=5 if=crust==1
cone shard x3 on=spire at=(0, H*.5, 0) chain=(0, H*.1, 0) rot=(0, 120, 70) h=.16 r=.05 color=crystalC ink=glow segs=4 if=crust==2