#declare PhaseFactor = 0.9



#declare ACwood =

	texture {

		pigment {

			wood

			turbulence 0.05

			octaves 2

			phase PhaseFactor

			scale <0.2, 0.5, 1>

			// rotate x*85

/*

			color_map 

			{       [0.00, 0.10 color red 0.4 green 0.133 blue 0.066

					color red 0.4 green 0.133 blue 0.066]

					[0.10, 0.90 color red 0.4 green 0.133 blue 0.066

					color red 0.2 green 0.065 blue 0.033]

					[0.90, 1.0  color red 0.2 green 0.065 blue 0.033

					color red 0.2 green 0.065 blue 0.033]

			}

*/

			color_map {

				[0.00, 0.10	color red 0.70 green 0.26 blue 0.14

							color red 0.70 green 0.26 blue 0.14]

				[0.10, 0.90	color red 0.70 green 0.26 blue 0.14

							color red 0.35 green 0.13 blue 0.07]

				[0.90, 1.0	color red 0.35 green 0.13 blue 0.07

							color red 0.35 green 0.13 blue 0.07]

			}

		}

		finish {

			reflection 0.05	// was 0.4

			ambient 0.45

			diffuse 0.75

			phong 0.5		// was 1.0

//			phong_size 50

		}

	}





/* raised panel door (0,0,0) (1,1,1/20) */

#declare new_raised_panel_door =

union {

	box {<-0.8, -0.1, 0>, <0.8, 0.1, 0.05>  // top rail

		translate <0, 0.9, 0>

		texture { ACwood rotate y*90 scale <1/30,1/30,1/30> }

	}

	box {<-0.1, -1, 0>, <0.1, 1, 0.05>  // right stile

		translate <0.9, 0, 0>

		texture { ACwood rotate x*90 scale <1/30,1/30,1/30> }

	}

	box {<-0.8, -0.1, 0>, <0.8, 0.1, 0.05>  // bottom rail

		translate <0, -0.9, 0>

		texture { ACwood rotate y*90 scale <1/30,1/30,1/30> }

	}

	box {<-0.1, -1, 0>, <0.1, 1, 0.05>  // left stile

		translate <-0.9, 0, 0>

		texture { ACwood rotate x*90 scale <1/30,1/30,1/30> }

	}

	difference {

		box { <-0.81, -0.81, 0>, <0.81, 0.81, 0.05> texture { ACwood scale <1/30,1/30,1/30> } }

		cylinder {<-0.8, 0, 0>, <0.8, 0, 0>, 0.1  scale <1, 2, 1.8> translate <  0,  0.8, 0> texture { ACwood scale <1/30,1/30,1/30> } }

		cylinder {<-0.8, 0, 0>, <0.8, 0, 0>, 0.1  scale <1, 2, 1.8> translate <  0, -0.8, 0> texture { ACwood scale <1/30,1/30,1/30> } }

		cylinder {<0, -0.8, 0>, <0, 0.8, 0>, 0.1  scale <2, 1, 1.8> translate < 0.8,   0, 0> texture { ACwood scale <1/30,1/30,1/30> } }

		cylinder {<0, -0.8, 0>, <0, 0.8, 0>, 0.1  scale <2, 1, 1.8> translate <-0.8,   0, 0> texture { ACwood scale <1/30,1/30,1/30> } }

	}

	translate <0,0,0>

}







/* raised panel door (-60,-60,0) (60,60,15) */

#declare raised_panel_door =

union {

	box {<-50, -5, 0>, <50, 5, 15>  // top rail

		translate <0, 55, 0>

		texture { ACwood rotate y*90 }

	}

	box {<-5, -60, 0>, <5, 60, 15>  // right stile

		translate <55, 0, 0>

		texture { ACwood rotate x*90 }

	}

	box {<-50, -5, 0>, <50, 5, 15>  // bottom rail

		translate <0, -55, 0>

		texture { ACwood rotate y*90 }

	}

	box {<-5, -60, 0>, <5, 60, 15>  // left stile

		translate <-55, 0, 0>

		texture { ACwood rotate x*90 }

	}

	difference {

		box { <-51, -51, 0>, <51, 51, 15> texture { ACwood } }

		cylinder {<-50, 0, 0>, <50, 0, 0>, 5  scale <1, 2, 1.8> translate <  0,  50, 0> texture { ACwood } }

		cylinder {<-50, 0, 0>, <50, 0, 0>, 5  scale <1, 2, 1.8> translate <  0, -50, 0> texture { ACwood } }

		cylinder {<0, -50, 0>, <0, 50, 0>, 5  scale <2, 1, 1.8> translate < 50,   0, 0> texture { ACwood } }

		cylinder {<0, -50, 0>, <0, 50, 0>, 5  scale <2, 1, 1.8> translate <-50,   0, 0> texture { ACwood } }

	}

}





/* slab door (0,0,0) (1,1,1) */

#declare slab_door =

box {<0,0,0>, <1,1,1>

	texture { ACwood rotate y*90 scale <1/30,1/30,1/30> }

}





/* area_light <10*12,0,0> <0,0,10*12>,3,3 adaptive 1 jitter */