// Datei: koordinatenachsen.inc // Autor: Patrick Koopmann // Version: 17.04.2009 #declare even = function(x) {floor(mod(abs(x),2))}; #declare PfeilFunktion = function(x,y,z) { //select (z, z>-x, zmod(x,2),z, <3000, 0, 0>, .15 pigment { function { PfeilFunktion(x,y,z) } color_map{ [0.0 Red] [0.1 White]} scale 2*x } rotate -45*x}//checker Red, White } finish {phong 0.5} } cylinder { <-3000, 0, 0>, <3000, 0, 0>, .15 pigment { function { PfeilFunktion(x,y,z) } color_map{ [0.0 Yellow] [0.1 White]} scale 2*x} rotate 60*x rotate 90*z}//checker Green, White} finish {phong 0.5 } rotate 90*z} cylinder { <-3000, 0, 0>, <3000, 0, 0>, .15 pigment { function { PfeilFunktion(x,y,z) } color_map{ [0.0 Green] [0.1 White]} scale 2*x} finish {phong 0.5 } rotate -30*x rotate -90*y} //cylinder { <0, -3000, 0>, <0, 3000, 0>, .2 pigment { checker Green, White } } //cylinder { <0, 0, 3000>, <0, 0, -3000>, .2 pigment { checker Red, White } }