#test016
# list object insert,append,car,cdr
 
Cons000 is [];
Cons000 is (Cons000 insert{1,1,1});
Cons000 is (Cons000 insert{1,2,1.5});
Cons000 is (Cons000 insert{1,3,3});
Cons000 is (Cons000 insert{1,4,1.5});
Cons000 is (Cons000 insert{1,5,1});

Sphere_00 is a sphere; 
Sphere_00 moves (Cons000 car); 
Sphere_00 radius is 0.3;
Sphere_00 draw;

Line_00 is a line;
Line_00 points is (Cons000 cdr);
Line_00 color is Red;
Line_00 moves{2,0,0};
Line_00 draw;

Line000 is a line;
Line000 color is Blue;
Line000 points is Cons000;
Line000 draw;

Cons001 is [];
Cons001 is (Cons001 append{1,1,1});
Cons001 is (Cons001 append{1,2,1.5});
Cons001 is (Cons001 append{1,3,3});
Cons001 is (Cons001 append{1,4,1.5});
Cons001 is (Cons001 append{1,5,1});

Sphere_01 is a sphere; 
Sphere_01 moves (Cons001 car); 
Sphere_01 color is Yellow;
Sphere_01 radius is 0.2;
Sphere_01 draw;

Line_01 is a line;
Line_01 points is (Cons001 cdr);
Line_01 color is Red;
Line_01 moves{3,0,0};
Line_01 draw;

Line001 is a line;
Line001 moves{1,0,0};
Line001 color is Blue;
Line001 points is Cons001;
Line001 draw;

Cons002 is [];
Cons002 is (Cons002 insert [{1,1,1}  ,{2,1,1}  ,{3,1,1}] );
Cons002 is (Cons002 insert [{1,2,1.5},{2,2,1.5},{3,2,1.5}] );
Cons002 is (Cons002 insert [{1,3,3}  ,{2,3,3}  ,{3,3,3}] );
Cons002 is (Cons002 insert [{1,4,1.5},{2,4,1.5},{3,4,1.5}] );
Cons002 is (Cons002 insert [{1,5,1}  ,{2,5,1}  ,{3,5,1}] );

Mesh002 is a mesh;
Mesh002 moves{-3,0,0};
Mesh002 color is Green;
Mesh002 points is Cons002;
Mesh002 draw;

Cons003 is [];
Cons003 is (Cons003 append [{1,5,1}  ,{2,5,1}  ,{3,5,1}] );
Cons003 is (Cons003 append [{1,4,1.5},{2,4,1.5},{3,4,1.5}] );
Cons003 is (Cons003 append [{1,3,3}  ,{2,3,3}  ,{3,3,3}] );
Cons003 is (Cons003 append [{1,2,1.5},{2,2,1.5},{3,2,1.5}] );
Cons003 is (Cons003 append [{1,1,1}  ,{2,1,1}  ,{3,1,1}] );

Mesh003 is a mesh;
Mesh003 color is Yellow;
Mesh003 moves{-3,-3,0};
Mesh003 points is Cons003;
Mesh003 draw;

