home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 09 / grafik6 / lineobj.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-04  |  1.9 KB  |  55 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                             LINEOBJ.PAS                                 *)
  3. (*    Transformieren und Darstellen von graphischen Objekten in Window-    *)
  4. (*            Koordinaten, die sich nur aus Linien zusammensetzen.         *)
  5. (*-------------------------------------------------------------------------*)
  6. (*                  Transformieren eines LinienObjekts:                    *)
  7.  
  8. PROCEDURE TransformLinienObjekt (TransMat  : tMatrix;
  9.                                  VAR Objekt: LinienObjekt;
  10.                                  n         : INTEGER);
  11.  
  12. VAR i: ObjektIndex;
  13.  
  14. BEGIN
  15.   FOR i := 1 TO n DO
  16.     WITH Objekt[i] DO BEGIN
  17.       Vektor1[3] := 1;                               (* Vektoren erweitern *)
  18.       Vektor2[3] := 1;
  19.       VektorTrans(Vektor1, TransMat);
  20.       VektorTrans(Vektor2, TransMat);
  21.     END
  22. END;
  23.  
  24. (*-------------------------------------------------------------------------*)
  25.  
  26. PROCEDURE ZeigeLinienObjekt (TransMat  : tMatrix;
  27.                              VAR Objekt: LinienObjekt;
  28.                              n         : INTEGER);
  29.  
  30. VAR i: INTEGER;
  31.  
  32. BEGIN
  33.   TransformLinienObjekt(TransMat, Objekt, n);
  34.   FOR i := 1 TO n DO
  35.     WITH Objekt[i] DO
  36.       ClipLine(Vektor1[1], Vektor1[2], Vektor2[1], Vektor2[2])
  37. END;
  38.  
  39. (*-------------------------------------------------------------------------*)
  40.  
  41. PROCEDURE LoescheLinienObjekt (Objekt: LinienObjekt; n: INTEGER);
  42.  
  43. VAR i: INTEGER;
  44.  
  45. BEGIN
  46.   Set_Pen_Color(0);       (* Objekt einfach mit Hintergrundfarbe zeichnen! *)
  47.   FOR i := 1 TO n DO
  48.     WITH Objekt[i] DO
  49.       ClipLine(Vektor1[1], Vektor1[2], Vektor2[1], Vektor2[2]);
  50.   Set_Pen_Color(15)
  51. END;
  52.  
  53. (*-------------------------------------------------------------------------*)
  54. (*                            Ende LINEOBJ.PAS                             *)
  55.