home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 September / macformat-004.iso / Demos / Asymptote / Examples / Utility Scripts / AddPointToLegend < prev    next >
Encoding:
Text File  |  1994-06-15  |  1.5 KB  |  36 lines  |  [TEXT/DWat]
  1. %  AddPointToLegend LegendText
  2. %  Add a new item to the legend using the current pointsymbol
  3. %    LegendText -- the text to add to the legend.
  4. %  Notes: 1) If LegendText contains spaces, enclose it in quotes
  5. %          E.g.:  AddPointToLegend "X-Ray data"
  6. %         2) You must run NewLegend first to specify where the legend
  7. %             is to be located on the page
  8. % --------------------------------------------------------------------
  9. hide
  10. cliptoframe false
  11. if LegendOrient vertical = then $
  12.      pagemoveto LegendX LegendY LegendOffset LegendNumItems * -
  13.  
  14. if LegendOrient horizontal = LegendJust right = * then $
  15.      pagemoveto LegendLastX LegendOffset LegendNumItems 0 > * - LegendY 
  16. if LegendOrient horizontal = LegendJust left = * then $
  17.      pagemoveto LegendLastX LegendOffset LegendNumItems 0 > * + LegendY 
  18.  
  19. drawpoint
  20.  
  21. if LegendOrient vertical = LegendJust left = * then $
  22.     pagemoveto xp pointsize 72 / 1.5 / + yp fontsize 72 / .1 * -
  23. if LegendOrient vertical = LegendJust right = * then $
  24.     pagemoveto xp pointsize 72 / 2 / - yp fontsize 72 / .1 * -
  25.  
  26. if LegendOrient horizontal = LegendJust left = * then $
  27.     pagemoveto xp pointsize 72 / 1.5 / + yp fontsize 72 / .1 * -
  28. if LegendOrient horizontal = LegendJust right = * then $
  29.     pagemoveto xp pointsize 72 / 2 / - yp fontsize 72 / .1 * -
  30.  
  31. if LegendJust left =  then drawlabel centerright &1
  32. if LegendJust right = then drawlabel centerleft  &1
  33.  
  34. % Update the variables that keep track of where the item should go.
  35. set LegendLastX xp
  36. set LegendNumItems LegendNumItems 1 +