home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 11 / grafik8 / blickmat.pas next >
Encoding:
Pascal/Delphi Source File  |  1987-09-04  |  1.1 KB  |  38 lines
  1.  
  2. (*------------------------------------------------------------*)
  3. (*                        BLICKMAT.PAS                        *)
  4. (*                Konstruktion der Blickmatrix                *)
  5.  
  6. (*------------------------------------------------------------*)
  7. (*           Aufbau des U-V-NV-Koordinatensystems             *)
  8. PROCEDURE UVNV(VAR NV, SV, U, V : tVektor);
  9.  
  10. VAR a : REAL;
  11.     i : INTEGER;
  12.     temp : tVektor;
  13.  
  14. BEGIN
  15.   NormalVek(NV);
  16.   (*-- SV auf die PE projizieren --*)
  17.   a := PunktProd(NV,SV);
  18.   FOR i := 1 TO 3 DO
  19.     temp[i] := a*NV[i];
  20.   temp[4] := 1;  (* homogenisieren *)
  21.   SubVek(SV,temp,V);
  22.   KreuzProd(NV,V,U); (*-- U berechnen --*)
  23. END;
  24. (*------------------------------------------------------------*)
  25. (*           Rotationsmatrix fuer 3D-Darstellung              *)
  26. PROCEDURE RotMat(U, V, NV : tVektor; VAR Rot : tMatrix);
  27.  
  28. VAR i : INTEGER;
  29.  
  30. BEGIN
  31.   EinheitsMatrix(Rot);
  32.   FOR i := 1 TO 3 DO BEGIN
  33.     Rot[i,1] := U[i];  Rot[i,2] := V[i];  Rot[i,3] := NV[i];
  34.   END;
  35. END;
  36. (*------------------------------------------------------------*)
  37. (*                     Ende BLICKMAT.PAS                      *)
  38.