(
	fn SMEGetRefFromNodes =
	(
		local selNodes = #()
		local view = sme.GetView sme.activeView
		if view != undefined then
		(
			local viewsubanim = trackViewNodes[#sme][sme.activeView]
			for n = 1 to viewsubanim.numSubs do
			(
				if IsProperty viewsubanim[n] "reference" then
				(
					local ref = viewsubanim[n].reference
					local theNode = view.GetNodeByRef ref

					if theNode != undefined AND theNode.selected then
					(
						append selNodes ref
					)
				)
			)
		)
		selNodes
	)
	selnodes = SMEGetRefFromNodes()
	selbitmaps = for n in selnodes where iskindof n bitmaptexture collect n

	selbitmaps.clipu = 0.0
	selbitmaps.clipv = 0.296
	selbitmaps.clipw = 1.0
	selbitmaps.cliph = 0.704
)