1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#declare Test_Spline =
spline {
quadratic_spline
0.00, <-1, 0.0, 0>,
0.25, < 1, 1.5, 0>,
0.50, < 1, 0.0, 1>,
0.75, <-1, 1.5, 1>,
1.00, <-1, 1.5, 0>
} //-----------------------------
union{
#local Nr = 0; // start
#local EndNr = 1; // end
#while (Nr< EndNr)
sphere{ <0,0,0>,0.10
scale<1,1,1>
texture{ pigment{ color rgb <0,Nr,1-Nr>}
finish { phong 1}
}
translate Test_Spline(Nr)
} // end of sphere
#local Nr = Nr + 0.005; // next Nr
#end // --------------- end of loop
rotate<0,0,0>
translate<0,0.3,0>
} // end of union ----------------------------------------
|
