home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0500 / CCE_0500.ZIP / CCE_0500.PD / LINMACRO.MF < prev    next >
Text File  |  1993-04-10  |  2KB  |  62 lines
  1. % Diese Datei wird bei der METAFONT-Uebersetzung von TeXdraw benoetigt.
  2. % Die Makros stammen von Lutz Birkhahn, dem dafuer grosser Dank gebuehrt.
  3. %
  4. % dash_length ist die Laenge der Striche sowie der Luecken bei gestrichelten
  5. % Linien
  6. dash_length := 9;
  7. %
  8. % dot_distance ist der Abstand der Punkte bei dot_line
  9. dot_distance := 5;
  10. %
  11. % arrowhead_length ist die Laenge der beiden Pfeilspitzen-Schenkel,
  12. % arrowhead_dir der Winkel zwischen Pfeilspitze und -Schaft.
  13. arrowhead_length := 10;
  14. arrowhead_dir := 20;
  15. %
  16. def dash_line(expr xa,ya,xb,yb) =
  17.  save p, p_length, delta;
  18.  path p;
  19.  numeric p_length, delta;
  20.  p = (xa,ya)--(xb,yb);
  21.  p_length = length((xa,ya) - (xb,yb));
  22.  delta = dash_length / p_length;
  23.  for i=0 step 2delta until 1:
  24.   draw point i of p -- point i+delta of p;
  25.  endfor
  26. enddef;
  27. %
  28. def dot_line(expr xa,ya,xb,yb) =
  29.  save p, delta;
  30.  path p;  numeric delta;
  31.  p = (xa,ya)--(xb,yb);
  32.  delta = dot_distance / length((xb,yb) - (xa,ya));
  33.  for i=0 step delta until 1:
  34.   drawdot point i of p;
  35.  endfor
  36. enddef;
  37. %
  38. % arrow:
  39. %                            .
  40. %                ***         .
  41. %                   ***      .
  42. %  arrowhead_dir -->   ***   .
  43. %        .................***<--(0,0).............
  44. %                      ***   .
  45. %                   ***      .
  46. %                ***         .
  47. %                            .
  48. path arrow;
  49. arrow =   arrowhead_length * dir(180-arrowhead_dir) -- (0,0)
  50.        -- arrowhead_length * dir(180+arrowhead_dir);
  51. %
  52. def arrowhead(expr xa,ya,xb,yb) =
  53.  draw arrow rotated angle ((xb,yb)-(xa,ya)) shifted (xb,yb);
  54. enddef;
  55. %
  56. def vec_line(expr xa,ya,xb,yb) =
  57.  draw (xa,ya) -- (xb,yb);
  58.  arrowhead(xa,ya,xb,yb);
  59. enddef;
  60. %
  61.  
  62.