Computer Generated Art - Student Gallery Display

Assignment Four by april

startshape brightsky
size{s 80 x 50 y -10}

rule brightsky{
sky{b 1 r 90}
sky{b .9 r -90 s .5 1 x -99 y -.5}
//forest{}
//forest{ f 90 s 1.5 x -70}
land{z 3}
//make clouds rendered in WFR
clouds{z 5 x -40  y 15 s 5}
clouds{z 5 x -33 y -10 s 5 3.5 f 0}
}

//-------------------------------GROUND-------------------------------------------------------
rule badland{

TRIANGLE{s 50 .5 x -50}
SQUARE{s 60 .4 x -20 y .08}
TRIANGLE{s 70 1 x -25}
TRIANGLE{s 50 2 x -15 y .75}
TRIANGLE{s 50 1.5 f 0 x -13 y -.25}
}

rule treerow{
	18*{r 20}{5*{x 2}base{}}
}

rule base{
	CIRCLE{s 3}
}

rule base{
}

rule base{
	CIRCLE{s 1.5}
}

rule trees{
	30*{x 30}row{}
}

rule row{
treerow{}
}

rule row{
treerow{s 2}
}

rule row .2{
treerow{s 3}
}

rule land{

trees{ x -50 s .05 y .3}
trees{x -30 s .05 .08 y 1}
trees{x -30 s .05 .04 y -.5 f 0}
trees{x -70 s .05 .025}
TRIANGLE{s 70 .5  x -40}
TRIANGLE{s 50 2 x -15 y .75}
TRIANGLE{s 50 1.5 f 0 x -13 y -.25}
}

//------------------------------------------------------CLOUDS----------------------------------
rule clouds{
	cloud{y 2 x 5}
	cloud{ s 1.3}
	cloud{y -1 x -7 s .6}
	cloud{y -.5 x 8 s .8}
	cloud{y -.5 x -3 s .4}
}

rule cloud{
	cloud_shape{a -1}
}

rule cloud_shape{
	CIRCLE{}
	horizontal{}
	vertical{}
}

rule horizontal{
	cloud_shape{x 1 s .92 a .001 sat .1}
}

rule horizontal{
	cloud_shape{x -1 s .92 a .001 b .1}
}

rule vertical{
	cloud_shape{y -.6 s .6 a .001 b .1}
}

rule vertical{
	cloud_shape{y .5 s .6 a .001 h 350 sat .8}
}
//------------------------------------------------------------------------------------------------------

rule sky{
100*{y 1}skyrow{}
}

rule skyrow{
100*{x .5 h -1.5 b -.025}SQUARE{h 38  sat 1}
}

rule forest{
tree{z 3 x -50 y -.2}
tree{ s .8 z 3 x -30 y -.2}
tree{s .6 z 3 x -60 y -.2}
tree{s .9 1.2 z 3 x -55 y -.2}
tree{s 1.3 1.5 z 3 x -45 y -.2}
tree{s .8 1 z 3 x -36 y -.2}
tree{s .8 1.4 z 3 x -32 y -.2}
tree{ s .8 1.2 z 3 x -40 y -.2}
tree{s .6 z 3 x -55 y -.2}
}

rule tree{
branch{}
branch{f 0 s .9 .6 x .05}
}

rule branch{
	shiftsquare{}
	shiftsquare{s (sqrt(2)/2) y 1 r 45}
	shiftsquare{s (sqrt(2)/2) f 90 y 1  x 1 r -45}

branch{s (sqrt(2)/2) y 1 r 45}
	branch{s (sqrt(2)/2) f 90 y 1  x 1 r -45}

}

rule shiftsquare{
	SQUARE{x .5 y .5}
}