' GridImage v1.0
' 1. 먼저 필요한 이미지(ex.Alpha포함된 TGA파일)들을 Drag n Drop으로
'    xsi view상에 떨굽니다.
' 2. 단축키 8번으로 explorer를 열고 좌측 상단의 Scene Root > Images
' 3. 그러면 방금 떨군 이미지 List 들이 쭉 보입니다.
' 4. Images(Sources)에 있는 리스트를 전부 선택.
' 5. 위와 같이 하셨으면 이제 스크립트를 실행하십시요.
' ---------------주의점------------------------------------------
' * 한글명 파일이나, 경로는 피하세요.
' * 숫자로 시작하는 파일은 영문으로 ACDsee 등에서 Batch Rename으로
'   바꿔주세요.
' ---------------------------------------------------
' by xart

Option Explicit

Dim oSel, oName, item
Dim X, Y

Set oSel = GetValue("SelectionList")

For Each item In oSel

 oName = item.Name
 CreatePrim "Grid", "MeshSurface", oName
 SetValue oName & ".polymsh.geom.subdivu", 1
 SetValue oName & ".polymsh.geom.subdivv", 1
 
 X = GetValue("Sources." & oName & ".XRes")
 Y = GetValue("Sources." & oName & ".YRes")
 
 SetValue oName & ".grid.ulength", X
 SetValue oName & ".grid.vlength", Y
 
 CreateProjection oName, siTxtPlanarXZ, siTxtDefaultPlanarXZ, , "Texture_Projection"
 
 ApplyShader "Sprite", , oName & "_Sprite" ,oName, siLetLocalMaterialsOverlap
 SetValue "Sources.Materials.DefaultLib.Material.Name", oName
 
 SetValue oName & ".Material." & oName & "_Sprite.alpha_threshold", 1
 
 SIConnectShaderToCnxPoint "Sources." & oName, "Sources.Materials.DefaultLib." & oName & "." & oName & "_Sprite.matte"
 SIConnectShaderToCnxPoint "Clips." & oName & "1", "Sources.Materials.DefaultLib." & oName & "." & oName & "_Sprite.input"
 SetValue "Sources.Materials.DefaultLib." & oName & "." & oName & "_Sprite.use_matte", True
 
 FreezeObj
 
Next

DeleteUnusedImageClips