home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 61 / CDPowerplay61Disc1.iso / patches / BladeToolsEnglish.exe / BladeToolsEnglish / LED / InitParticleSystems.py < prev    next >
Encoding:
Text File  |  1999-02-08  |  1.5 KB  |  66 lines
  1.  
  2.  
  3.  
  4. import sys
  5. import math
  6. import LEDx
  7.  
  8. B_PARTICLE_GTYPE_COPY=0
  9. B_PARTICLE_GTYPE_BLEND=1
  10. B_PARTICLE_GTYPE_ADD=2
  11.  
  12.  
  13. LEDx.ReadBitMap(LEDx.GetInitialDirectory()+"\\Data\\FirePrtl.bmp","FireParticle");
  14. LEDx.ReadBitMap(LEDx.GetInitialDirectory()+"\\Data\\Glow.bmp","Glow");
  15. LEDx.ReadBitMap(LEDx.GetInitialDirectory()+"\\Data\\SunFlare.bmp","SunFlare");
  16.  
  17.  
  18.  
  19. ##### Fire Particle definition ######
  20.  
  21. LEDx.AddParticleGType("Fire","FireParticle",B_PARTICLE_GTYPE_ADD,31)
  22.  
  23. for i in range(32):
  24.   if(i>16):
  25.     aux=0.0
  26.   else:
  27.     aux=(16.0-i)/16.0
  28.   r=255
  29.   g=min(300.0*(1.0-aux*aux)+148,255.0)
  30.   b=min(255.0*(1.0-aux)+80,255.0)
  31.   a=min(255.0*(1.0-aux),255.0)
  32.   size=80.0+math.sqrt(1.0-aux)*70.0
  33.   LEDx.SetParticleGVal("Fire",i,r,g,b,a,size)
  34.  
  35. ##### Large Fire Particle definition ######
  36.  
  37. LEDx.AddParticleGType("LargeFire","FireParticle",B_PARTICLE_GTYPE_ADD,31)
  38.  
  39. for i in range(32):
  40.   if(i>16):
  41.     aux=0.0
  42.   else:
  43.     aux=(16.0-i)/16.0
  44.   r=255
  45.   g=min(300.0*(1.0-aux*aux)+35,255.0)
  46.   b=min(255.0*(1.0-aux)+20,255.0) 
  47.   a=min(200.0*(1.0-aux),255.0)
  48.   size=130.0+math.sqrt(1.0-aux)*110.0
  49.   LEDx.SetParticleGVal("LargeFire",i,r,g,b,a,size)
  50.  
  51. ##### Blood Particle definition ######
  52.  
  53. LEDx.AddParticleGType("Blood","BloodParticle",B_PARTICLE_GTYPE_BLEND,79)
  54.  
  55. for i in range(80):
  56.   if(i>40):
  57.     aux=0.0
  58.   else:
  59.     aux=(40.0-i)/40.0
  60.   r=70+40*(aux)
  61.   g=0
  62.   b=0
  63.   a=100.0+40.0*aux
  64.   size=10.0*aux+10.0
  65.   LEDx.SetParticleGVal("Blood",i,r,g,b,a,size)
  66.