home *** CD-ROM | disk | FTP | other *** search
/ Chip 2006 June (Extra) / CHIP 2006-06.3.iso / program / tam_surum / Astronoid-v1.2.0.exe / $OUTDIR / data / scripts / modules / flashexplo.tcl < prev    next >
Encoding:
Text File  |  2006-03-01  |  676 b   |  33 lines

  1. proc ipol {} {
  2.  
  3. sel flash
  4.     new nipol ip_scale
  5.             sel ip_scale
  6.             .setreptype "oneshot"
  7.             .setchannel "localtime"
  8.             .setipoltype cubic
  9.             .setscale 1.000000
  10.             .connect "sxyz"
  11.             .beginkeys  4 3
  12.             .addkey3f 0   0 0 0
  13.             #.addkey3f 0.5 180 180 180
  14.             .addkey3f 0.5   150 150 150
  15.             .addkey3f 2.5   170 170 170
  16.             .addkey3f 2.6   170 170 170
  17.             #.addkey3f 1.4     0 0 0
  18.             #.addkey3f 2.1     0 0 0
  19.             .endkeys
  20.         sel ..
  21. sel ..
  22.  
  23. }
  24.  
  25.  
  26.  
  27.  
  28. .setsprite true
  29.  
  30. source data/scripts/modules/flashexplobase.tcl
  31.  
  32. ipol
  33.