チュートリアル - SVG ポリゴン レンダラーの開発 - 第 3 部

(
fn ColorToHex col =
(
	local theComponents = #(bit.intAsHex col.r, bit.intAsHex col.g, bit.intAsHex col.b)
	local theValue = "#"
	for i in theComponents do 
		theValue += (if i.count == 1 then "0" else "") + i
	theValue
)

fn compareFN v1 v2=
(
	if v1[6] < v2[6] then -1 else 1
)

local st = timestamp()
local theFileName = (getDir #userscripts + "\\PolygonRendering8.svg")
local theSVGfile = createFile theFileName
format "<svg xmlns=\"http://www.w3.org/2000/svg\"\n" to:theSVGfile
format "\t\txmlns:xlink=\"http://www.w3.org/1999/xlink\">\n" to:theSVGfile

local theViewTM =  viewport.getTM()
theViewTM.row4 = [0,0,0]
local theViewTM2 = viewport.getTM()

local theViewPos = (inverse (viewport.getTM())).row4 

local theViewSize = getViewSize()
local theViewScale = getViewSize()
theViewScale.x /= 1024.0
theViewScale.y /= 1024.0

local drawArray = #()	
	
local theStrokeThickness = 1
	
gw.setTransform (matrix3 1)	
local theLights = for o in Lights where classof o != TargetObject collect o
for o in Geometry where not o.isHiddenInVpt and classof o != TargetObject do
(

	local theStrokeColor = o.wirecolor
	if classof o.material == StandardMaterial then 
	(
		local theFillColor = o.material.diffusecolor 
		local theSpecularPower = o.material.Glossiness
		local theSpecularLevel = o.material.SpecularLevel/100.0
	)
	else
	(
		local theFillColor = o.wirecolor	
		local theSpecularPower = 50.0
		local theSpecularLevel = 0.25
	)

local theMesh = snapshotAsMesh o
	for f = 1 to theMesh.numfaces do
	(
		local theNormal = normalize (getfaceNormal theMesh f) 
		if (theNormal*theViewTM).z > 0 do
		(
			local theFace = getFace theMesh f
			local v1 = gw.transPoint (getVert theMesh theFace.x)
			local v2 = gw.transPoint (getVert theMesh theFace.y)
			local v3 = gw.transPoint (getVert theMesh theFace.z)
			
			v1.x /= theViewScale.x 
			v1.y /= theViewScale.y 
			v2.x /= theViewScale.x 
			v2.y /= theViewScale.y
			v3.x /= theViewScale.x
			v3.y /= theViewScale.y
			
			local theFaceCenter = meshop.getFaceCenter theMesh f
			local theZDepth = (theFaceCenter*theViewTM2).z

			local theViewVector = normalize (theViewPos - theFaceCenter)

local theLitFillColor = black

			for aLight in theLights where classof aLight != TargetObject do
			(
				local theLightVector = normalize (aLight.pos - theFaceCenter)
				local theHalfVector = normalize (theLightVector + theViewVector)

 				theDiffuse = (dot theLightVector theNormal)
				if theDiffuse < 0 do theDiffuse = 0

 				theSpecular = (dot theNormal theHalfVector)
				if theSpecular < 0 do theSpecular = 0
				theSpecular = (theSpecular^theSpecularPower)*theSpecularLevel 

				theLitFillColor += theFillColor * aLight.color * theDiffuse + aLight.color * theSpecular
			)--end aLight loop

			if theLitFillColor.r > 255.0 do theLitFillColor.r = 255
			if theLitFillColor.g > 255.0 do theLitFillColor.g = 255
			if theLitFillColor.b > 255.0 do theLitFillColor.b = 255

			
			append drawArray #(v1, v2, v3, (ColorToHex theStrokeColor), (ColorToHex theLitFillColor), theZDepth)

							)
	)--end f loop
)--end o loop
qsort drawArray compareFN

for d in drawArray do
(
	format "\t<polygon points='%,%  %,%  %,%' \n" d[1].x d[1].y d[2].x d[2].y d[3].x d[3].y to:theSVGfile
	format "\tstyle='stroke:%; fill:%; stroke-width:%'/>\n" d[4] d[5] theStrokeThickness to:theSVGfile
)

format "</svg>\n" to:theSVGfile
close theSVGfile
local theSVGMap = VectorMap vectorFile:theFileName alphasource:0
local theBitmap = bitmap theViewSize.x theViewSize.y
renderMap theSVGMap into:theBitmap filter:true
display theBitmap
format "Render Time: % sec.\n" ((timestamp()-st)/1000.0)
)

append drawArray #(v1, v2, v3, (ColorToHex theLitFillColor), (ColorToHex theLitFillColor), theZDepth)