#declare p_sine_1=pigment{function sin(x*4+.4)/4-y+.5 sine_wave}
#declare n_sine_1=normal{function sin(x*4+.4)/4-y+.5 scallop_wave}

#declare p_sine_2=pigment{function sin((x+noise3d(x*8,y*8,z*8)/4)*4+.4)/4-y+.5 sine_wave}
#declare n_sine_2=normal{function sin((x+noise3d(x*8,y*8,z*8)/4)*4+.4)/4-y+.5 scallop_wave}
#macro m_sine(sine_amnt)function sin((x+noise3d(x*sine_amnt,y*sine_amnt,z*sine_amnt)/4)*4+.4)/4-y+.5 sine_wave #end

#declare p_checker=pigment{function sin(x)*sin(y)*sin(z)scale .321}
#declare n_checker=normal{function sin(x)*sin(y)*sin(z)scale .321}

#declare p_organic=pigment{function noise3d(
x+noise3d(x*2+noise3d(x*4,y*4,z*4),
y*2+noise3d(x*4,y*4,z*4),
z*2+noise3d(x*4,y*4,z*4)),

y+noise3d(x*2+noise3d(x*4,y*4,z*4),
y*2+noise3d(x*4,y*4,z*4),
z*2+noise3d(x*4,y*4,z*4)),

z+noise3d(x*2+noise3d(x*4,y*4,z*4),
y*2+noise3d(x*4,y*4,z*4),
z*2+noise3d(x*4,y*4,z*4))
)
scale .5}

#declare n_organic=normal{function noise3d(
x+noise3d(x*2+noise3d(x*4,y*4,z*4),
y*2+noise3d(x*4,y*4,z*4),
z*2+noise3d(x*4,y*4,z*4)),

y+noise3d(x*2+noise3d(x*4,y*4,z*4),
y*2+noise3d(x*4,y*4,z*4),
z*2+noise3d(x*4,y*4,z*4)),

z+noise3d(x*2+noise3d(x*4,y*4,z*4),
y*2+noise3d(x*4,y*4,z*4),
z*2+noise3d(x*4,y*4,z*4))
)
scale .5}

#macro m_organic(Turb)
function noise3d(
x+noise3d(x*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2),
y*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2),
z*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2)),

y+noise3d(x*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2),
y*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2),
z*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2)),

z+noise3d(x*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2),
y*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2),
z*Turb+noise3d(x*Turb*2,y*Turb*2,z*Turb*2))
)
scale .5
#end

#declare p_strata=pigment{function noise3d(y,0,0)scale .5}
#declare n_strata=normal{function noise3d(y,0,0)scale .5}
#macro m_strata(freq,amnt) function{noise3d(y*freq+noise3d(y+noise3d(x*4,y*4,z*4),z,x)*amnt,0,0)}#end


#declare p_weave=pigment{function noise3d(x*8,0,0)/4+noise3d(0,y*8,0)/4+noise3d(0,0,z*8)/4}
#declare n_weave=normal{function noise3d(x*8,0,0)/4+noise3d(0,y*8,0)/4+noise3d(0,0,z*8)/4}

#declare p_microbes=pigment{function noise3d(x*4,0,0)*2+noise3d(0,y*4,0)*2+noise3d(0,0,z*4)*2 sine_wave}
#declare n_microbes=normal{function noise3d(x*4,0,0)*2+noise3d(0,y*4,0)*2+noise3d(0,0,z*4)*2 bump_size .25 sine_wave}

#declare p_blocks_1=pigment{function (sin(x)^40+sin(y)^40+sin(z)^40)scale .3183 sine_wave translate<.5,.5,.5>}
#declare n_blocks_1=normal{function (sin(x)^40+sin(y)^40+sin(z)^40)scale .3183 sine_wave translate<.5,.5,.5> bump_size .25}

#declare p_blocks_2=pigment{function (sin(x)^40+sin(y)^40+sin(z)^40)+noise3d(x,y,z) scale .3183 sine_wave translate<.5,.5,.5>}
#declare n_blocks_2=normal{function (sin(x)^40+sin(y)^40+sin(z)^40)+noise3d(x,y,z) scale .3183 sine_wave translate<.5,.5,.5> bump_size .25}

#declare p_diamond=pigment{function abs(x)+abs(y)+abs(z)}
#declare n_diamond=normal{function abs(x)+abs(y)+abs(z)triangle_wave}

#declare p_box=pigment{function -max(abs(x),abs(z))-max(abs(x),abs(y))-max(abs(z),abs(y))}
#declare n_box=normal{function -max(abs(x),abs(z))-max(abs(x),abs(y))-max(abs(z),abs(y))triangle_wave}