1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
startshape garden
CF::Tile = [skew 15 15 r 15 s 16]
shape FLOWER {
flower(randint(5, 9), randint(2))
[h rand(180, 420) sat 0.75 b 1
s rand(0.9, 1.5) r rand(360)]
}
path flower(number petals, number filled)
{
MOVETO(cos(-180/petals), sin(-180/petals))
loop petals [r (360/petals)]
ARCTO(cos(180/petals), sin(180/petals),
0.4, 0.4 + 0.2 * (petals - 5), 90)
CLOSEPOLY(CF::Align)
if (filled) FILL[a -0.5]
MOVETO(0.65, 0)
ARCTO(-0.65, 0, 0.65, CF::ArcCW)
ARCTO( 0.65, 0, 0.65, CF::ArcCW)
CLOSEPOLY()
FILL[a -0.5]
}
shape garden
rule 1000 {
FLOWER[]
garden[x rand(16) y rand(16)]
}
rule {
FLOWER[]
}
|
