added test scenes for "for" and "if" statements

git-svn-id: svn://anubis/fart/trunk@359 7f9b0f55-74a9-4bce-be96-3c2cd072584d

scenes/for-test.fart

@@ -0,0 +1,41 @@
+
+scene
+{
+    camera
+    {
+        position <0, 0, 40>
+        look_at <0, 100, 5>
+    }
+
+    light
+    {
+        position <100, -100, 50>
+    }
+
+    define material mat
+    {
+        color <0, 0.8, 1>
+    }
+
+    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>
+                material mat
+            }
+        }
+    }
+}

scenes/if-test.fart

@@ -0,0 +1,53 @@
+
+scene
+{
+    camera
+    {
+        position <0, -80, 80>
+        look_at <0, 0, 5>
+    }
+
+    light
+    {
+        position <100, -100, 100>
+    }
+
+    define material mat { color <0, 0.8, 1> }
+    define material mat2 { color <1, 0.7, 0> }
+    define material mat3 { transparency 0.5 reflectance 0.7 }
+
+    plane
+    {
+        position <0, 0, 1>, 0
+        material
+        {
+            color <0, 0.7, 0>
+        }
+    }
+
+    local $m := 0
+    for (local $x := -100; $x <= 100; $x := $x + 40)
+    {
+        for (local $y := -100; $y <= 100; $y := $y + 40)
+        {
+            sphere
+            {
+                radius 10
+                translate <$x, $y, 10>
+                if ($m % 3 = 0)
+                {
+                    material mat
+                }
+                elsif ($m % 3 = 1)
+                {
+                    material mat2
+                }
+                else
+                {
+                    material mat3
+                }
+            }
+            $m := $m + 1
+        }
+    }
+}