spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

Quellcode

function vecmatrixmult(vec:TVector; A:TMatrix3D):TVector;
var vecresult:TVector;
begin
  vecresult.x:=vec.x*A[1].x+vec.y*A[2].x+vec.z*A[3].x;
  vecresult.y:=vec.x*A[1].y+vec.y*A[2].y+vec.z*A[3].y;
  vecresult.z:=vec.x*A[1].z+vec.y*A[2].z+vec.z*A[3].z;
  result:=vecresult;
end;

procedure ausrichten(AusgForm:array of TVector; var FinForm:array of TVector; ausricht:TVector);
var orthovec,orthovec2:TVector;
    A:TMatrix3D; //nichts anderes als ein array von TVector mit der länge 3.. der index des arrays sind die spalten der matrix
    laenge,i:integer;
begin
  //zuerst bilde ich wie gesagt eine senkrechte auf den gegebenen vektor
  ausricht:=normieren(ausricht);
  if ausricht.z<>0 then begin
    orthovec:=tovec(1,0,0);
    orthovec.z:=(ausricht.x*orthovec.x+ausricht.y*orthovec.y)/ausricht.z;
  end else begin
    if ausricht.y<>0 then begin
    orthovec:=tovec(0,0,1);
    orthovec.y:=(ausricht.x*orthovec.x+ausricht.z*orthovec.z)/ausricht.y;
    end else begin
    orthovec:=tovec(0,1,0);
    orthovec.x:=(ausricht.y*orthovec.y+ausricht.z*orthovec.z)/ausricht.x;
    end;
  end;
  //nachdem alles nulldivisionen abgesichert sind normiere ich den vektor damit keine vergroeßerung des Objekts auftritt
  orthovec:=normieren(orthovec);
  // dann noch den 3. vektor errechnen
  orthovec2:=kreuzprodukt(ausricht,orthovec); 
  //und die 3 vektoren in die matrix eingeben
  A[1]:=ausricht; 
  A[2]:=orthovec;
  A[3]:=orthovec2;
  laenge:=length(AusgForm);//ermitteln der laenge des arrays mit den ausgangspunkten
  for i := 0 to laenge - 1 do begin
    FinForm[i]:=vecmatrixmult(AusgForm[i],A); //berechnen der neuen pkte
  end;
end;