创建灯光脚本最重要的就是 找到了面中心
-- 创建面灯 的脚本 这个ui 很好
(
(
(
rollout AlightSetup "Mondo Area Lights"
(
local Flatness = 0.2
spinner MyFlatnessSp "Surround" range:[0,1.0,Flatness] type:#float scale:0.01
on MyFlatnessSp changed val do
(
Flatness = val
)
local AreaSize = 100
spinner AreaSizeSp "Area Size" range:[1,10000,AreaSize] type:#integer scale:10
on AreaSizeSp changed val do
(
AreaSize = val
)
local Shad = true
local MyMult = 4
spinner MultiplierSp "Multiplier" Range:[0.001,10.0,MyMult] type:#float scale: 0.01
on MultiplierSp changed val do
(
MyMult = val
)
local Myhotspot = 20
spinner MyhotspotSp "Hotspot" Range:[0,90,Myhotspot] type:#float
on MyhotspotSp changed val do
(
Myhotspot = val
)
local Myfalloff = 60
spinner MyfalloffSp "Falloff" Range:[10,170,Myfalloff] type:#float
on MyfalloffSp changed val do
(
Myfalloff = val
)
local MyUseNearAttCBv = false
checkbox MyUseNearAttCB "Use Near Attenuation" checked:false
on MyUseNearAttCB state changed do
(
MyUseNearAttCBv = MyUseNearAttCB.state
)
local MynearAttenStart = 0
spinner MynearAttenStartSp "Start" Range:[0,100000,MynearAttenStart] scale:1 field 40 across:2
on MynearAttenStartSp changed val do
(
MynearAttenStart = val
)
local MynearAttenEnd = 0
spinner MynearAttenEndSp "End" Range:[0,100000,MynearAttenEnd] scale:1 field 40
on MynearAttenEndSp changed val do
(
MynearAttenEnd = val
)
local MyUseFarAttCBv = false
checkbox MyUseFarAttCB "Use Far Attenuation" checked:false
on MyUseFarAttCB state changed do
(
MyUseFarAttCBv = MyUseFarAttCB.checked
)
local MyfarAttenStart = 0
spinner MyfarAttenStartSp "Start" Range:[0,100000,MyfarAttenStart] scale:1 field 40 across:2
on MyfarAttenStartSp changed val do
(
MyfarAttenStart = val
)
local MyfarAttenEnd = 800
spinner MyfarAttenEndSp "End" Range:[0,100000,MyfarAttenEnd] scale:1 field 40
on MyfarAttenEndSp changed val do
(
MyfarAttenEnd = val
)
local MyinOut = 1
local NumLight = 120
spinner NumLightSp "Light Count" range:[1,200,NumLight] type:#integer
on NumLightSp changed val do
(
NumLight = val
)
local JitterSPv = 0.0
spinner JitterSP "Scatter Jitter" range:[0.0,1.0,JitterSPv] type:#Float scale:0.1
on JitterSP changed val do
(
JitterSPv = val
)
local MyHavePicked = 0
local MySphere = 1
checkbox UseSphereCB "Use Sphere" checked:true
---上面这种写法叫我有点不能接受。 我觉得这样是方便了。
on UseSphereCB changed state do
(
if UseSphereCB.state == false then
(
if MyHavePicked == 0 then
(
UseSphereCB.state = true
MySphere = 1
)
)
else (MyShphere = 0)
)
local MyHavePicked = 0
pickButton MyGetObj "Pick Object"
on MyGetObj picked obj do
(
AreaObj = obj
MyGetObj.text = obj.name
MySphere = 0
MyHavePicked = 1
UseSphereCB.state = false
)
button MakeItB "Make Area Light"
on MakeItB pressed do -------------向这样的脚本没有多少函数， 只要从头读到尾就好了
(
if MySphere == 1 then
(
AreaObj = GeoSphere pos: [0,0,0] radius: AreaSize segments: 4
AreaObj.name = "AreaObj"
convertToMesh AreaObj
AreaObj.renderable = false --关掉了可渲染的功能。
select $AreaObj ---选择创建 的节点
max modify mode
addModifier AreaObj (volumeselect()) --添加体积选择。
areaobj[4][1].level = 1
--改成点的形式
areaobj[4][1][1].pos = [0,0,(AreaSize * -.88)] --移动他的 Gizmo
addModifier AreaObj (deletemesh()) ---删除选择， 这里面的这用删除好用 是按距离不安面数
convertToMesh AreaObj
select $AreaObj ------- 改变了起属性
max modify mode
subobjectLevel = 0
addModifier AreaObj (volumeselect())
areaobj[4][1].level = 0
addModifier AreaObj (XForm())
AreaObj.XForm[2][3].value = [1,1,Flatness]
convertToMesh AreaObj
)
--上面的代码就是对图像的修改 这个效果很好，
if MySphere == 0 then
(
print "Use picked Object"
newAreaObj = snapshot AreaObj ---快照的处理方式。
AreaObj = newAreaObj
)
FCount = getnumfaces AreaObj ---读取三角面数。 这个效果很好。
i = 1
NumLight = NumLight * 1.0
if Fcount <= NumLight then
(
NumLight = Fcount
)
----不知道具体什么意思但是知道是数的交换
for i = 1 to FCount by (FCount / NumLight) do
(
if MyinOut == 1 then ( MyMult = ( MyMult / (NumLight * 1.0)) * 2.0)
if MyMult <= 0.01 then MyMult = 0.011
MyLDir = (getfacenormal AreaObj i) ---法线的坐标
MyLVerts = getFace AreaObj i ----面的坐标
MyLpos = ((getvert AreaObj MyLVerts.x)+(getvert AreaObj MyLVerts.y)+(getvert AreaObj MyLVerts.z))/3
----上面的两句就是把物体放到面上。 get 一个面返回的是一个面的顶点序号。 然后再分别对顶点序号 球坐标 在/3 球的中间值。
---我在学习这个脚本中觉得这个最重要。
MyD1 = distance MyLpos (getvert AreaObj MyLVerts.x)
MyD2 = distance MyLpos (getvert AreaObj MyLVerts.y)
MyD3 = distance MyLpos (getvert AreaObj MyLVerts.z)
MyJitterMax = (MyD1 + MyD1 + MyD1)/3
print "MyJitterMax"
print MyJitterMax
MyJitterMax *= JitterSPv
MyLpos += [(random (MyJitterMax * -1)MyJitterMax),(random (MyJitterMax * -1)MyJitterMax),(random (MyJitterMax * -1)MyJitterMax)]
if i == 1 then
(
AL1 = freespot pos: MyLpos multiplier: MyMult hotspot:Myhotspot falloff: Myfalloff softenDiffuseEdge: 100 \
value: 255 farAttenStart: MyfarAttenStart farAttenEnd: MyfarAttenEnd nearAttenStart: MynearAttenStart \
nearAttenEnd: MynearAttenEnd useNearAtten:(MyUseNearAttCB.checked) useFarAtten:(MyUseFarAttCB.checked) castShadows: Shad
AL1.dir = MyinOut * MyLDir
AL1.parent = AreaObj
AL1.name = "AreaSpot"
)
else
(
if i >= 2 then
(
AL2 = instance $AreaSpot
AL2.pos = MyLpos
AL2.dir = MyinOut * MyLDir
AL2.parent = AreaObj
)
)
)
---在上面最重要的是，找到物体 每个面的中心 这样才好。 定位
$AreaSpot.mapsize = 300 --分别是阴影的 处理值 因为是关联 改你一就好
$AreaSpot.mapbias = 0.1
$AreaSpot.samplerange = 6.0
select $area*
max group group -- I group these new lights
)
)
AL = newRolloutFloater "Area Lights" 198 370
addRollout AlightSetup AL
)
)
)