Rotate UVWmap by view angle of viewport

Rollout Uvrotroll "Rotate Uvwmap by viewangle"
(
fn Uvwmap_Rotate rotdeg =
	(
	if selection.count == 1 do
		(
		perspview = Inverse(getViewTM())
		perspdir = perspview.row3
 
				Gpersp = #(dot perspdir [1,0,0], dot perspdir [0,1,0], dot perspdir [0,0,1])
				Waxis = finditem Gpersp (amax Gpersp)
				Saxis = #([1,0,0],[0,1,0],[0,0,1])
				if Gpersp[Waxis] > 0 do rotdeg = -rotdeg
 
				for node in selection where isProperty node #uvwmap do
		(
 
			 node.uvwmap.gizmo.rotation = (angleaxis rotdeg Saxis[Waxis])
		)
		)
	)
 
 
	button rccw "rccw" pos:[5,10] height:20 width:35 
	button rcw "rcw" pos:[45,10] height:20 width:35 
	spinner rotsp "Deg" range:[0,360,90] fieldwidth:40 scale:1 pos:[85,12]
 
 
 
	on rcw pressed do if selection.count > 0 do undo on  Uvwmap_Rotate rotsp.value
	on rccw pressed do if selection.count > 0 do undo on  Uvwmap_Rotate -rotsp.value
 
)
 
 
 
createdialog Uvrotroll