19 lines
385 B
ObjectPascal
19 lines
385 B
ObjectPascal
uses Graph3D;
|
|
// îøèáêà!
|
|
begin
|
|
var b := Box(0,0,0,3,1,2,Colors.Blue);
|
|
var s := Sphere(0,0,2,1,Colors.Green);
|
|
var b1 := b.Clone;
|
|
var s1 := s.Clone;
|
|
|
|
var g := Group(b,s);
|
|
var g1 := Group(b1,s1);
|
|
g1.MoveOnY(3);
|
|
g.Add(g1[0]);// îí äîëæåí îòñîåäèíèòüñÿ îò g!
|
|
b1.MoveOnY(3);
|
|
|
|
{Print(g.l.Count);
|
|
Print(g1.l.Count);
|
|
Print(g[2].Position);}
|
|
//b1.MoveOnZ(3);
|
|
end. |