File:Raytraced ball and stick model of a hexahedron.png

#declare SteelBall = sphere{
	0 , 0.2
	texture{
		pigment{color rgb <224/255, 223/255, 219/255>}
		finish{
			reflection 0.7
			diffuse 0.5
			specular 1
			roughness 0.005
			metallic
		}
	}
	photons{
		target
		reflection on
		refraction on
	}
}

#macro Rod(End1, End2, Col)
cylinder{
	End1, End2, 0.1
	texture{
		pigment{Col}
	}
}
#end

#include "colors.inc"
#include "vert_edge.inc"

#declare phi = (1+sqrt(5))/2;
 
camera{
	location -13*z
	look_at 0
	angle 25
}

light_source{
	<-5,5,-5>
	White
	area_light
	0.3*y, 0.3*z, 15,15
	adaptive 2
	photons{
		reflection on
		refraction on
	}
}

light_source{
	<5,5,-5>
	White
	area_light
	0.3*y, 0.3*z, 15,15
	adaptive 2
	photons{
		reflection on
		refraction on
	}
}

light_source{
	0
	0.4*White
	photons{
		reflection on
		refraction on
	}
}

#declare Mone = array[2] {1,-1};

#macro EdgeGroup(EdgeDir, Other1, Other2, Col) //All unit vectors, invariant under sign change
	#declare i=0; 	#while (i<2)
	#declare j=0; 	#while (j<2)
		Rod(Mone[i]*Other1 + Mone[j]*Other2 + EdgeDir, Mone[i]*Other1 + Mone[j]*Other2 - EdgeDir, Col)
	#declare j=j+1; #end
	#declare i=i+1; #end
#end

union{
	#declare i=0; 	#while (i<2)
	#declare j=0; 	#while (j<2)
	#declare k=0; #while (k<2)
		object{SteelBall translate <Mone[i], Mone[j], Mone[k]>}
	#declare k=k+1; #end
	#declare j=j+1; #end
	#declare i=i+1; #end
	
	EdgeGroup(x,z,y, Red)
	EdgeGroup(z,y,x, Green)
	EdgeGroup(y,x,z, Blue)
	rotate <15,10,15>
}

global_settings{
	max_trace_level 20
	photons{count 100000}
	radiosity{recursion_limit 10}
}