Cloud
Posted: Fri Jul 08, 2005 7:34 am
A passable imitation of a cloud.
Code: Select all
startshape SKY
rule BASE {
CIRCLE{}
}
rule BASE 0.001 {
SKY{}
}
rule CLOUD {
BASE{}
CLOUD {x 1 y 1}
}
rule CLOUD {
CLOUD {x -1 y 1}
}
rule CLOUD {
CLOUD {x 1 y -1}
}
rule CLOUD {
CLOUD {x -1 y -1}
}
rule CLOUD {
BASE{}
CLOUD {x 1 y 1 r 25}
}
rule CLOUD {
CLOUD {x -1 y 1 r 25}
}
rule CLOUD {
CLOUD {x 1 y -1 r -25}
}
rule CLOUD {
CLOUD {x -1 y -1 r -25}
}
rule CLOUD 0.06 {
CLOUD {x 5 y 5 r 50 s .5}
CLOUD {x -5 y 5 r 50 s .5}
CLOUD {x 5 y -5 r 50 s .5}
CLOUD {x -5 y -5 r 50 s .9}
}
rule SKY {
CLOUD{x 10}
CLOUD {x -10}
SKY {x 15 s .5}
SKY {x -15 s .5}
}