# Dateieingabe mit "echo 100 | perl test.pl > out.rs" # $count = Anzahl der Baelle, kann auch mehr oder weniger sein # Mahmut Kursun, mk@tuco.com, erstellt etwa 1994 { chop($count = ); print " /* Number of Components: $count */\n"; } {print " /* Right handed system(?); left depth up */ eyep 200 60 20 /* 300 50 170 */ lookp 0 50 60 /* 0 50 15 */ fov 45. 45. report verbose 10 /* or report quiet */ screen 150 150 /* command line option -R XRES YRES */ outfile out.tga /* command line option -O outfile.tga */ maxdepth 5 /* 5 is enough, 20 is slower */ light 1.1 point 200 60 20 /* light 1.1 directional 1 -1 1 */ surface white ambient 0.02 0.02 0.02 diffuse 0.5 0.5 0.5 specular 0.7 0.7 0.7 specpow 99 reflect 1.0 noshadow cblob white 0.9 /* also try 0.91 - 0.99 */ /* strength size x y z red green blue */ \n"; srand(); for (1..$count) {printf " 1 20 %3d %3d %3d %.4s %.4s %.4s\n", rand(100),rand(100),rand(100),rand,rand,rand; } print " plane 0 0 -220 0 0 1 \n"; #boden print " plane 0 0 120 1 0 0 \n"; #wand hinter dem Objekt print " plane 0 0 200 0 0 1 \n"; #decke }