6、输入以下程序:
property pscene
on beginsprite me
pscene=member("spray")
--初始化场景
pscene.resetworld()
--建立粒子资源属性
spray = pscene.newModelResource("particleResource", #particle)
--产生新的粒子
pscene.newModel("particle", spray)
-- 粒子生命周期
spray.lifeTime = 4000
-- 粒子演变为基于寿命模式
spray.tweenMode = #age
--粒子诞生颜色
spray.colorRange.start = rgb( 255,255,255 )
--粒子湮灭颜色
spray.colorRange.end = rgb( 153,212,255 )
--粒子诞生时颗粒大小
spray.sizeRange.start = 1
--粒子湮灭时颗粒大小
spray.sizeRange.end = 0
--粒子诞生时的颗粒的透明度
spray.blendRange.start = 100
--粒子湮灭时的颗粒的透明度
spray.blendRange.end =0
--阻尼系数
spray.drag = .2
--重力设置
spray.gravity = vector(0,0,-2)
--粒子数量
spray.emitter.numParticles = 3000
--粒子喷发的模式为缓慢释放
spray.emitter.mode = #stream
--粒子喷发为循环喷发
spray.emitter.loop = true
--粒子发射方向
spray.emitter.direction =vector(0,0,1)
--取得水池的坐标值
pos=pscene.model("water").transform.position
--以水池的坐标为粒子的喷发点
spray.emitter.region = [pos]
--粒子的分布属性,本例为线性分布
spray.emitter.distribution = #linear
--粒子发射的最小速度
spray.emitter.minSpeed = 80
--粒子发射的最大速度
spray.emitter.maxSpeed = 90
--粒子发射的角度
spray.emitter.angle = 9
end
on exitframe me
go to the frame
end
转 载:http://www.qqread.com/director/f124387000.html
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- ASP.NET教程 (8422篇文章)
- FreeBSD使用教程 (6551篇文章)
- Director MX 2004教程--我的第一个作品 (822次浏览)
- Director 8.5 简单基础实例教程(五) (649次浏览)
- Director Lingo 语言入门(1) (578次浏览)
- 多媒体教学软件开发经验谈 (564次浏览)
- Director MX 2004教程--用Lingo语法和JavaSc (531次浏览)
- Director Lingo 语言入门(2) (444次浏览)
- Director 8.5 简单基础实例教程(八) (440次浏览)
- 制作具有Win XP 风格的菜单 (429次浏览)
- ShockWave 3D 制作系列教程之三 (426次浏览)
- Power Director 3快速上手 (425次浏览)



