// Entry code: nmvofc // Name : Paolo Gibellini // Frame rate: 15 // Pipes - Paolo Gibellini 2007 // A cloudy summer sky sky_sphere{pigment{agate color_map{[0rgb<.3,.4,.7>][.5rgb.6][1rgb.8]}}} // Some finish in order to obtain better textures #declare F=finish{ambient.8reflection.2} // A little macro for repeated actions #macro K(c) texture{finish{F}pigment{rgb c}} translate-10*y #end // Random seed #local S=seed(4); // Random macro: returns and integer between 1 and m #macro R(m) int(rand(S)*m+1) #end // Draw the pipes basing on frame_number (ok, using 'clock' the file size would be lesser) #local i=0; // Counter #local B=0; // Begin of the pipe #while(i*3)} // Update variables #local B=E; #local i=i+1; #end