/*

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))]]

}