home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2002 April / maximum-cd-2002-04.iso / Software / Apps / gmax / gmaxinst.exe / gmaxsetup11.cab / Macro_PolyCounter.mcr < prev    next >
Encoding:
Text File  |  2001-09-12  |  1.4 KB  |  55 lines
  1. -- MacroScript File
  2.  
  3. -- Created: Sept 21 1999
  4. -- Modified: Dec 7 2000
  5. -- Modified: Apr 25 2001 LAM
  6. -- Author:   Fred Ruff
  7. -- MacroScript for Turning On a Polygon counter in the viewpot on an object.
  8. --***********************************************************************************************
  9. -- MODIFY THIS AT YOUR OWN RISK
  10. macroScript Poly_Counter
  11.     category:"MAX Script Tools"
  12.     internalcategory:"MAX Script Tools"
  13.     buttontext:"Polygon Counter"
  14.     toolTip:"Polygon Counter" 
  15. (
  16.     local PolyCounterOn = false
  17.     local lastViewport
  18.     fn polytext = 
  19.     (
  20.         try 
  21.         (
  22.             if viewport.activeViewport != lastViewport do
  23.             (    completeredraw()
  24.                 lastViewport = viewport.activeViewport 
  25.             )
  26.             viewtext = ""
  27.             if selection.count == 1 do
  28.             (    if getCommandPanelTaskMode() == #modify and subobjectlevel == 1 then
  29.                     viewtext = "Vertices: " + (getPolygoncount $)[2] as string
  30.                 else
  31.                     viewtext = "Triangles: " + (getPolygoncount $)[1] as string
  32.             )
  33.             gw.wtext [5,40,1000]  viewtext  color:(color 255 234 0)
  34.             gw.enlargeUpdateRect #whole 
  35.             gw.updateScreen() 
  36.         )
  37.         catch ()
  38.     )
  39.  
  40.     on ischecked return PolyCounterOn 
  41.     
  42.     On execute do
  43.     (    if PolyCounterOn then 
  44.             unregisterRedrawViewsCallback polytext
  45.         else
  46.             registerRedrawViewsCallback polytext
  47.         PolyCounterOn = not PolyCounterOn 
  48.         completeredraw()
  49.         updateToolbarButtons()
  50.     ) 
  51. ) 
  52.  
  53.  
  54.  
  55.