Не получается сохранит 3d объект


#1

При разработке программы столкнулся с проблемой сохранения 3d объекта. Подскажите пожалуйста как сохранить правильно его. Модуль Graph3D procedure createo; var w1,w2,w3,w4:Object3D; x1:=0.0000000000000000001; y1:=0.0000000000000000001; y2:=0.0000000000000000001; o1,o2:GroupT; begin for var a:=1 to height do begin

x1:=x1-1; y1:=Sqrt((Sqr(height/4)*(Sqr(height/2)-Sqr(x1)))/Sqr(height/2)); w1:=Sphere(-x1,0,y1,0.2,m); w2:=Sphere(-x1,0,-y1,0.2,m); if a=height/2 then begin w1.MoveOnz(0.4); w1.MoveOnx(-0.4); w2.MoveOnz(-0.4); w2.MoveOnx(-0.4); end; if a=height/2+1 then begin w3.MoveOnz(0.4); w3.MoveOnx(0.4); w4.MoveOnz(-0.4); w4.MoveOnx(0.4); end; w3:=Sphere(x1,0,y1,0.2,m); w4:=Sphere(x1,0,-y1,0.2,m); if a=1 then o1:=Group(w1,w2); if a>1 then o1:=Group(o1,w1,w2); if a=1 then o2:=Group(w3,w4); if a>1 then o2:=Group(o2,w3,w4); end; w1:=Sphere(0,0,height/4,0.2,m); w2:=Sphere(0,0,-height/4,0.2,m); O:=Group(o1,o2,w1,w2); o.Rotate(OrtY,90); O.MoveOnZ(height/2); end; begin //надо сохранить объект ‘О’

end.


#2

Всегда прикладывайте код, который хоть что то делает, чтоб видно было Что вы пробовали, и что Именно вы пробовали.

Ну и в данном случае ваши 3D Объекты которые надо сохранить.