home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 58 / af058b.adf / PV21.lha / REXX / ShowMag.pvrx < prev    next >
Text File  |  1991-08-28  |  1KB  |  55 lines
  1. /* ShowMag.pvrx Copyright ©1991 by Stylus, Inc. */
  2. /* Author: Ross Cunniff, August 28, 1991 */
  3. Address 'ProVector'
  4. Options Results
  5.  
  6. /* This macro flashes the highlight points of all of the magnetized */
  7. /* objects in the current project.  It requres ProVector version 2.1 */
  8. /* to run.  On faster systems (e.g. Amiga 3000) you may want to increase */
  9. /* the number of times that the points are flashed.  You can do this by */
  10. /* tweaking the variable named NumFlash, below. */
  11. NumFlash = 5
  12.  
  13. /* Get exclusive access to ProVector */
  14. 'Lock WAIT'
  15.  
  16. /* Get the list of magnetized objects */
  17. 'GetMagnets Mag'; n = Result
  18.  
  19. /* Get the initial state of the magnetized objects */
  20. i = 0
  21. do while i < n
  22.     Obj = Mag.i
  23.     'Selected Obj'
  24.     sel.i = Result
  25.     i = i + 1
  26. end
  27.  
  28.  
  29. /* Flash the highlight points */
  30. NumFlash = NumFlash * 2        /* Times two since we're counting on AND off */
  31. nflash = 0
  32. do while nflash < NumFlash
  33.     i = 0
  34.     do while i < n
  35.         Obj = Mag.i
  36.         if sel.i ~= 0 then do
  37.             sel.i = 0
  38.             'UnSelect Obj'
  39.         end
  40.         else do
  41.             sel.i = 1
  42.             'SelectObj Obj'
  43.         end
  44.         i = i + 1
  45.     end
  46.     nflash = nflash + 1
  47. end
  48.  
  49. /* At this point, since we toggled selection an even number of times, */
  50. /* the selection state is the same as it was initially.  Release exclusive */
  51. /* access to ProVector */
  52. 'UnLock'
  53.  
  54. /* All done! */
  55.