#VRML V1.0 ascii

Separator {
	
	OUTPUT_TO Fractal.wrl

	DEF BackgroundColor Info {
		string  ".8 .1 .1"
	}
	
	Material {
		diffuseColor .8 .8 .8
	}
	
	DEF local PARAMETERS {
		fields [SFFloat size, SFFloat ruggedness, MFFloat initialData]
		size 24
		ruggedness 1.5
		initialData 8
	}
	
	PerspectiveCamera {
		position 0 2 local:size*9
		orientation =PointAt(0,0,0)
		focalDistance 5
		heightAngle 45'deg
	}
	
	Coordinate3 {
		point =FractalSurfaceData(local:size,local:size,local:ruggedness,local:initialData)
	}
	
	DEF mountain IndexedFaceSet {
		coordIndex =FractalSurfaceIndex(local:size,local:size)
	}
	
	Separator {
		# Options: ON OFF AUTO
		renderCulling AUTO
		Translation {
			translation 0 -world:height/2 0
		}
		
		Material {
			ambientColor 0.4 0.4 0.4
		}
		
		DEF world Cylinder {
			parts ALL
			radius local:size*10 
			height local:size
		}
	}
	
	LOOP {
		fields [ SFFloat start, SFFloat end, SFFloat step, SFFloat position ]
		start 0
		end 10
		step 1
		
		Separator {
			# Options: ON OFF AUTO
			renderCulling AUTO
			
			Transform {
				translation local:size*10*(rand()-.5) -.2 local:size*10*(rand()-.5)
				rotation 0 1 0 (rand()-.5)*pi()
				scaleFactor (rand()+.6) (rand()+.6) (rand()+.6)
			}			
			USE mountain 		
		}
	}
}