//A Deformation of Steiner surfaces //by Adam Coffman camera { location <-2.2, 0,-3.5> look_at <0.03, -0.02, 0.5> } #include "golds.inc" #include "colors.inc" #declare p = cos(2*pi*clock)/sqrt(3); #declare q = sin(2*pi*clock); background{White} plane{ z 4 texture{ pigment{White} finish{ambient 0.4} } } poly{4,< 1-2*q*p-2*p*p, 0, 0, 0, 4*(p*p-q*p), 0, 0, 1, -2*(p+q), 4*q*p, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4*p*p, 0, 0, 1, 0, -4*p*p, 0, 0, 0, 0, 0, 0, 0, 0, 0 > sturm texture{T01} finish { phong 0.6 phong_size 70 } bounded_by { box { <-1,-2,-2>, <1,2,2> } } clipped_by { bounded_by } rotate <90,0,0> } light_source{<0.1,20,0.1> White} light_source{<-40,-0.02,0.02> White} light_source{<0.1,-0.1,-20> White}