home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 September / macformat-004.iso / Demos / Asymptote / Examples / Utility Scripts / NewLegend < prev    next >
Encoding:
Text File  |  1994-06-15  |  674 b   |  22 lines  |  [TEXT/DWat]
  1. % NewLegend  Orientation Justification Spacing
  2. % Specify the orientation, justification and spacing for a new legend
  3.  
  4. %    Orientation    -- vertical OR horizontal
  5. %    Justification    -- left OR right
  6. %    Spacing        -- number of lines between entries
  7.  
  8. % Note: This script uses the current x,y pen position to determine the
  9. %       location of the legend on the page.
  10.  
  11. % E.g.   NewLegend  vertical right 2.0
  12. %        NewLegend  horizontal left 1.0
  13.  
  14. %-----------------------------------------------------------------
  15. hide
  16. set LegendOrient &1
  17. set LegendJust &2
  18. set LegendX xp
  19. set LegendY yp
  20. set LegendOffset fontSize 72 / &3 *  % label offset (inches)
  21. set LegendNumItems 0
  22. set LegendLastX xp