var
   NovaDaska:TDaska;
   
function NapraviDasku(ParentElement:TElement):TDaska;
begin
     result:=TDaska.CreateDaska(ParentElement,1,1,1,10,10,18);
     ParentElement.ChildDaska.Add(result);
end;

procedure ImenujDasku(daska:TDaska;NewName:string);
var
   i:integer;
begin
  i:=0;
  while daska.CheckNameExist(NewName+inttostr(i)) do begin
    i:=1+1;
  end; 
  daska.Naziv:=NewName+inttostr(i);
end;

procedure PromjeniDimenzije(daska:TDaska; visina, sirina, debljina:double);
begin
  daska.visina:=visina;
  daska.dubina:=sirina;
  daska.debljina:=debljina;
end;

procedure PromjeniPolozaj(daska:TDaska; X, Y, Z:double);
begin
  daska.Xpos:=X;
  daska.Ypos:=Y;
  daska.Zpos:=Z;
end;

Procedure ZadajDekor(daska:TDaska);
begin
  //postavi materijal kakav je na lijevom boku
  //indexi dasaka nisu u svim elementima jednaki
  // ali kod osnovnog elementa kojeg napravi Corpus jesu
  //pa je sigurno koristiti index 1 
  daska.TexIndex:= e.ChildDaska.Daska[1].TexIndex;
end;

Procedure KantirajSveRubove(daska:TDaska);
begin
   daska.Potrosni.KantirajRub([0,1,2,3],'ABS 2mm');
   daska.SetKantTexindex(daska.texindex,[1,1,0,0]);
   daska.SetKantTexindex(daska.texindex+10,[0,0,1,1]);
end;



begin
   NovaDaska:=NapraviDasku(e);
   ImenujDasku(NovaDaska,'TestNaziv');
   PromjeniDimenzije(NovaDaska, e.visina, e.dubina, 30); 
   PromjeniPolozaj(NovaDaska, 100, 100, -30); 
   ZadajDekor(NovaDaska);
   KantirajSveRubove(NovaDaska);
end.