home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.mdf / Apps / DevTools / MachOViewer / Source / MachOViewwraps.psw < prev    next >
Encoding:
Text File  |  1994-05-10  |  704 b   |  38 lines
  1.  
  2. defineps drawLabel(float x1, y1; char *address; float x2, y2)
  3. %% $Id: MachOViewwraps.psw,v 1.4 94/05/10 22:41:50 ediger Exp Locker: ediger $
  4. %% font manipulation
  5.  
  6.     0.0 setgray
  7.     x1 y1 moveto
  8.     (address) show
  9.     2. 0. rmoveto
  10.     x2 y2 lineto
  11.  
  12. endps
  13.  
  14. defineps drawLeftArrowHead(float x1, y1, side)
  15.     %% draw an arrowhead pointing left at (x1, y1)
  16.     0.0 setgray
  17.     newpath
  18.     x1 y1 moveto
  19.     0.866 side mul
  20.     0.0 side 2.1 div sub rlineto
  21.     0.0 side rlineto
  22.     x1 y1 lineto
  23.     stroke
  24. endps
  25.  
  26. defineps drawBox(float x1, y1, x2, y2)
  27.     %% draw a box with (x1, y1) and (x2, y2) as diagonally opposed corners
  28.     0.0 setgray
  29.     0.10 setlinewidth
  30.     newpath
  31.     x1 y1 moveto
  32.     x1 y2 lineto
  33.     x2 y2 lineto
  34.     x2 y1 lineto
  35.     x1 y1 lineto
  36.     stroke
  37. endps
  38.