/*
Settlement AK July 2015 http://creativecommons.org/licenses/by-sa/3.0/au/deed.en
*/
CF::ColorDepth=16 CF::MinimumSize=0.1
H=5 W=3 YC=13 CF::Size=[s H W y -YC]
startshape S
eps=0.01
shape S{
loop 10 [s .95 .92 y 1.2 ] loop 2 [f 90] loop 10 [r -2] MIST[[r -1 x -.2...2 -.2...2 y 8 sat 1 a -.9
b .5 s 1.1 1]]
loop 10 [s .95 .92 y 1.5 ] loop 2 [f 90] loop 10 [r -2] SPIKED[[r -1 x -.2...2 -.2...2 y 12 z 2 ]] AK[x (H/2-.13) y (YC-W/2+.1) s .05 z 9999 b 1 a -.9] }
shape SPIKED
rule 2 { PLATFORM[[s 1..1.5 z 999]] SPIKE[b 1 sat .6] } rule 1 { SPIKE[b 1 sat .6] }
shape PLATFORM{
FARM[s .1 y .01] CIRCLE[z 1 s .21 .105 y .01] CIRCLE[z 1 s .21 .105 ] SCAF[ s .2 .1 ] }
shape FARM
rule 1 { CIRCLE[s 2 1 b .6 h 120 sat .8 z 2] FUZZ[s 2 1 z 2.1] FUZZ[s 1 .5 x .35 y .175 z 2.1] loop 20[] TREE[x 0.. .7 0.. .35 s .05 z 5 b .2 sat .5] HUT[[x -.7.. -.2 0.. .1 s .3 z 5 h 240 sat .3 z 5]] } rule 1 { FARM[f 90] } rule .2{ CIRCLE[s 2 1 b .3 h 40 sat .6 z 2] FUZZ[s 2 1 z 2.1] }
shape FUZZ{
loop 36 [r 10] { CIRCLE [ s .5 x .25 h 60 a -1 .. -.95]
}
}
shape TREE
rule 9{ CIRCLE[] TREE[y .2 r -0..5 s .98 b .01 h 1] } rule .3{ TREE[r 10] TREE[s .8 r -30] } rule 9{ TREE[f 90]}
shape HUT{
loop 2 [ x -.05 y .05 b -1 a -.5] SQUARE[[s 1 .5 r
120]]
HUT[[s .98 .96 y .05 b .1 .3]] }
N=8 shape SCAF{
loop N [r (360/N)] SQUARE[x .5 s .06] SCAF[s .992 .995 y -.005] }
shape SPIKE{
CIRCLE[ y -3 ] SPIKE[s (1-2*eps) (1-eps) b (-2*eps) r
-(5*sqrt(eps))..(5*sqrt(eps)) z eps]
}
shape MIST
rule 20{ CIRCLE[s 2] MIST [s (1-.5*eps) (1-.6*eps) y (10*eps) b (.15*eps) r
-(10*sqrt(eps))..(50*sqrt(eps)) h (.2*eps) 60 z eps a (-eps/2) sat eps .8]
} rule .3{MIST[f 90]} rule .05{MIST[x .2] MIST[f 90]}
// —- A signature (FWIW) shape AK{
loop 3[r 120] TRIANGLE[[x .5 (-.5*sqrt(3)) s 1 2 skew -30 0 x .5
(1/6*sqrt(3))]]
}