fart/scenes/for-test.fart
Josh Holtrop 1d5d043928 reworked Scene::traceRayRecurse() to handle backfaces properly for refraction
git-svn-id: svn://anubis/fart/trunk@378 7f9b0f55-74a9-4bce-be96-3c2cd072584d
2010-10-12 16:39:29 +00:00

56 lines
907 B
Plaintext

scene
{
camera
{
position <0, -40, 40>
look_at <0, 100, 5>
}
light
{
position <100, -100, 50>
}
define material mat
{
color <0, 0.8, 1>
}
define material glass
{
transparency 1
refraction 1.5
}
plane
{
position <0, 0, 1>, 0
material
{
color <0, 0.7, 0>
}
}
for (local $x = -200; $x <= 200; $x = $x + 40)
{
for (local $y = 0; $y <= 4000; $y = $y + 40)
{
sphere
{
radius 10
translate <$x, $y, 10>
if ($x == 0 && $y == 0)
{
material glass
translate <0, 0, 20>
}
else
{
material mat
}
}
}
}
}