home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2002 April / maximum-cd-2002-04.iso / Software / Apps / gmax / gmaxinst.exe / gmaxsetup11.cab / Macro_Objects.mcr < prev    next >
Encoding:
Text File  |  2001-09-12  |  3.5 KB  |  134 lines
  1. -- Macro Scripts File
  2. -- Created:  Nov 17 1998
  3. -- Modified: April 2 1999 12:25pm
  4. -- Author:   Frank DeLise
  5. -- Macro Scripts for Objects
  6. --***********************************************************************************************
  7. -- MODIFY THIS AT YOUR OWN RISK
  8.  
  9.  
  10. macroScript GeoSphere 
  11.             category:"Objects" 
  12.             internalcategory:"Objects" 
  13.             tooltip:"GeoSphere Object"
  14.             ButtonText:"GeoSphere" 
  15.             icon:#("Standard",7) 
  16. (
  17.     on execute do (Try(StartObjectCreation GeoSphere) Catch() )
  18.         on isChecked return (mcrUtils.IsCreating GeoSphere)
  19. )
  20.  
  21. macroScript Box 
  22.             category:"Objects" 
  23.             internalcategory:"Objects" 
  24.             tooltip:"Box Object" 
  25.             ButtonText:"Box"
  26.             icon:#("standard", 1)
  27. (
  28.     on execute do StartObjectCreation Box
  29.         on isChecked return (mcrUtils.IsCreating Box)
  30. )
  31.  
  32. macroScript Sphere 
  33.             category:"Objects" 
  34.             internalcategory:"Objects" 
  35.             tooltip:"Sphere Object"
  36.             ButtonText:"Sphere" 
  37.             icon:#("standard", 2)
  38. (
  39.     on execute do StartObjectCreation Sphere 
  40.         on isChecked return (mcrUtils.IsCreating Sphere)
  41. )
  42.  
  43. macroScript Cylinder 
  44.             category:"Objects" 
  45.             internalcategory:"Objects" 
  46.             tooltip:"Cylinder Object"
  47.             ButtonText:"Cylinder" 
  48.             icon:#("Standard",3)
  49. (
  50.     on execute do StartObjectCreation Cylinder 
  51.         on isChecked return (mcrUtils.IsCreating Cylinder)
  52. )
  53.  
  54. macroScript Torus 
  55.             category:"Objects" 
  56.             internalcategory:"Objects" 
  57.             tooltip:"Torus Object"
  58.             ButtonText:"Torus" 
  59.             icon:#("Standard",4)
  60. (
  61.     on execute do StartObjectCreation Torus 
  62.         on isChecked return (mcrUtils.IsCreating Torus)
  63. )
  64.  
  65.  
  66. macroScript Quadpatch 
  67.             category:"Objects" 
  68.             internalcategory:"Objects" 
  69.             tooltip:"Quad Patch Object"
  70.             ButtonText:"Quad Patch" 
  71.             icon:#("Patches",1)
  72. (    
  73.     on execute do StartObjectCreation Quadpatch
  74.         on isChecked return (mcrUtils.IsCreating Quadpatch)
  75. )
  76.  
  77. macroScript Tripatch 
  78.             category:"Objects" 
  79.             internalcategory:"Objects" 
  80.             tooltip:"Tri Patch Object"
  81.             ButtonText:"Tri Patch" 
  82.             icon:#("Patches",2)
  83. (
  84.     on execute do StartObjectCreation Tripatch 
  85.         on isChecked return (mcrUtils.IsCreating Tripatch)
  86. )
  87.  
  88. macroScript Tube 
  89.             category:"Objects" 
  90.             internalcategory:"Objects" 
  91.             tooltip:"Tube Object"
  92.             ButtonText:"Tube" 
  93.             icon:#("Standard",8)
  94. (
  95.     on execute do StartObjectCreation Tube 
  96.         on isChecked return (mcrUtils.IsCreating Tube)
  97. )
  98.  
  99. macroScript plane 
  100.             category:"Objects" 
  101.             internalcategory:"Objects" 
  102.             tooltip:"Plane Object"
  103.             ButtonText:"Plane" 
  104.             icon:#("Standard",10)
  105. (
  106.     on execute do StartObjectCreation Plane
  107.         on isChecked return (mcrUtils.IsCreating Plane)
  108. )
  109.  
  110.  
  111.  
  112. macroScript Cone 
  113.             category:"Objects" 
  114.             internalcategory:"Objects" 
  115.             tooltip:"Cone Object" 
  116.             ButtonText:"Cone"
  117.             icon:#("Standard",6)
  118. (
  119.     on execute do StartObjectCreation Cone
  120.         on isChecked return (mcrUtils.IsCreating Cone)
  121. )
  122.  
  123. macroScript Teapot 
  124.             category:"Objects" 
  125.             internalcategory:"Objects" 
  126.             tooltip:"Teapot Object"
  127.             ButtonText:"Teapot" 
  128.             icon:#("Standard",5)
  129. (
  130.     on execute do StartObjectCreation Teapot 
  131.         on isChecked return (mcrUtils.IsCreating Teapot)
  132. )
  133.  
  134.