インタフェース: NitrousGraphicsManager

disp = NitrousGraphicsManager.GetActiveViewportSetting() 
for visStyle = 0 to 13 do 
(
 	disp.VisualStyleMode = visStyle
 	format "\n--Visual Style: %--\n\n" (disp.VisualStyleMode as string)
 	format "%\n" (disp.GetNPRParameterInfo())
 	local paramCount = disp.GetNPRParameterCount()
 	for p = 0 to paramCount-1 do
 	(
  		theName = (disp.GetNPRParameterName p)
  		theType = (disp.GetNPRParameterType p)
  		theValue = case theType of
  		(
   			#bool: disp.GetNPRBool theName
   			#int: disp.GetNPRInt theName
   			#float: disp.GetNPRFloat theName
   			#float4: disp.GetNPRFloat4 theName
   			#string: disp.GetNPRString theName
  		)
  		theRange = case theType of
  		(
   			#int: ("[" +disp.GetNPRMinInt theName as string + ", " + disp.GetNPRMaxInt theName as string + "]")
   			#float: ("[" +disp.GetNPRMinFloat theName as string + ", " + disp.GetNPRMaxFloat theName as string + "]")
   			#float4: ("[" +disp.GetNPRMinFloat4 theName as string + ", " + disp.GetNPRMaxFloat4 theName as string + "]")
   			default: ""
  		)
  		format "%: Name:\"%\" Type: % Value: % %\n" p theName (theType as string) theValue theRange
 	) 
)

macroScript NPRExplorer category:"MXS Help"
(
	global Nitrous_NPR_Rollout, Nitrous_NPR_SubRollout
	global Nitrous_NPR_Settings = NitrousGraphicsManager.GetActiveViewportSetting()
	try(destroyDialog Nitrous_NPR_Rollout)catch()
	local theINIfile = (getDir #plugcfg + "\\Nitrous_NPR_Settings.ini")
	rcmenu Nitrous_NPR_Menu 
	(
		subMenu "File"
		(
			menuItem mnu_savePreset "SAVE Current Mode To Preset File..."
			menuItem mnu_loadPreset "LOAD Current Mode From Preset File..."
		)
		on mnu_savePreset picked do Nitrous_NPR_Rollout.savePreset()
		on mnu_loadPreset picked do Nitrous_NPR_Rollout.loadPreset()		
	)
	rollout Nitrous_NPR_Rollout "Nitrous NPR Settings"
	(
		
		radiobuttons rad_SystemToAffect labels:#("Views","Quicksilver","Both")
		dropdownlist ddl_NPRMode items:#("Realistic", "Shaded", "ConsistentColors", "Wireframe", "BoundingBox", "Ink", "ColorInk", "Acrylic", "Tech", "Graphite", "ColorPencil", "Pastel", "Clay")  height:15
		subRollout sub_rollout width:200 height:320

		fn createSubRollout source:1 =
		(
			try(removeSubRollout sub_rollout Nitrous_NPR_SubRollout)catch()
			Nitrous_NPR_Settings = case source of
			(
				default: NitrousGraphicsManager.GetActiveViewportSetting()
				2: renderers.current
			)
			currentMode = case source of
			(
				default: Nitrous_NPR_Settings.VisualStyleMode
				2: Nitrous_NPR_Settings.VisualStyle
			)
			local theString = "rollout Nitrous_NPR_SubRollout \"Nitrous:"+currentMode as string +" Mode\" width:200 (\n"
			local paramCount = Nitrous_NPR_Settings.GetNPRParameterCount()
			if paramCount == 0 do theString += "label lbl_1 \"The Current Shading Mode\"\n label lbl_2 \"Exposes No Parameters!\"\n"
			for p = 0 to paramCount-1 do
			(
				theName = Nitrous_NPR_Settings.GetNPRParameterName p
				case (Nitrous_NPR_Settings.GetNPRParameterType p) of
				(
					#int: (
							theRange= (Nitrous_NPR_Settings.GetNPRMinInt theName) as string + ", " + (Nitrous_NPR_Settings.GetNPRMaxInt theName) as string +", "+ (Nitrous_NPR_Settings.GetNPRInt theName) as string
							theString += "spinner spn_"+p as string + " \""+ theName + "\" type:#integer range:["+theRange+"] fieldwidth:50\n"
							theString += "on spn_"+p as string + " changed val do (::Nitrous_NPR_Settings.SetNPRInt \""+theName as string+"\" val; ::Nitrous_NPR_Rollout.updateRenderer())\n"
							)
					#float: (
							theRange = (Nitrous_NPR_Settings.GetNPRMinFloat theName) as string + ", " + (Nitrous_NPR_Settings.GetNPRMaxFloat theName) as string +", "+ (Nitrous_NPR_Settings.GetNPRFloat theName) as string
							theString += "spinner spn_"+p as string + " \""+ theName + "\" type:#float range:["+theRange+"] fieldwidth:50\n"
							theString += "on spn_"+p as string + " changed val do (::Nitrous_NPR_Settings.SetNPRFloat \""+theName as string+"\" val; ::Nitrous_NPR_Rollout.updateRenderer()) \n"
						)
					#float4: (
							theString += "colorpicker clr_"+p as string + " \""+ theName + "\" alpha:true align:#right color:["+(Nitrous_NPR_Settings.GetNPRFloat4 theName) as string+"] fieldwidth:50\n"
							theString += "on clr_"+p as string + " changed val do (::Nitrous_NPR_Settings.SetNPRFloat4 \""+theName as string+"\" (val as Point4); ::Nitrous_NPR_Rollout.updateRenderer())\n"
						)						
					#bool: (
							theString += "checkbox chk_"+p as string + " \""+ theName + "\" checked:"+(Nitrous_NPR_Settings.GetNPRBool theName) as string +"\n"
							theString += "on chk_"+p as string + " changed val do (::Nitrous_NPR_Settings.SetNPRBool \""+theName as string+"\" val; ::Nitrous_NPR_Rollout.updateRenderer())\n"
						)
					#string: (
							theString += "edittext edt_"+p as string + " \""+ theName + "\" text:\""+(Nitrous_NPR_Settings.GetNPRString theName) +"\" \n"
							theString += "on edt_"+p as string + " entered val do (::Nitrous_NPR_Settings.SetNPRString \""+theName as string+"\" val; ::Nitrous_NPR_Rollout.updateRenderer())\n"
						)						
				)--end case
			)--end p loop
			theString += ")"
			execute theString
			addSubRollout sub_rollout Nitrous_NPR_SubRollout
		)--end fn 	
		
		fn updateRenderer =
		(
			if rad_SystemToAffect.state == 3 do
			(
				renderers.current.VisualStyle = Nitrous_NPR_Settings.VisualStyleMode
				local paramCount = Nitrous_NPR_Settings.GetNPRParameterCount()
				for p = 0 to paramCount-1 do
				(
					local theName = Nitrous_NPR_Settings.GetNPRParameterName p
					case (Nitrous_NPR_Settings.GetNPRParameterType p) of
					(
						#int: (renderers.current.SetNPRInt theName (Nitrous_NPR_Settings.GetNPRInt theName))
						#float: (renderers.current.SetNPRFloat theName (Nitrous_NPR_Settings.GetNPRFloat theName))
						#float4: (renderers.current.SetNPRFloat4 theName (Nitrous_NPR_Settings.GetNPRFloat4 theName))
						#bool: (renderers.current.SetNPRBool theName (Nitrous_NPR_Settings.GetNPRBool theName))
						#string: (renderers.current.SetNPRString theName (Nitrous_NPR_Settings.GetNPRString theName))
					)--end case
				)--end p loop			
			)
		)		
		fn savePreset =
		(
			local theStyle = Nitrous_NPR_Settings.VisualStyleMode
			local paramCount = Nitrous_NPR_Settings.GetNPRParameterCount()
			if paramCount > 0 then
			(
				local theFile = getSaveFileName caption:("Save "+ theStyle as string +" Settings As...") types:"Nitrous NPR Presets (*.NPR)|*.NPR"
				if theFile != undefined do
				(
					for p = 0 to paramCount-1 do
					(
						local theName = Nitrous_NPR_Settings.GetNPRParameterName p
						local theFN = case (Nitrous_NPR_Settings.GetNPRParameterType p) of
						(
							#int: Nitrous_NPR_Settings.GetNPRInt
							#float: Nitrous_NPR_Settings.GetNPRFloat
							#float4: Nitrous_NPR_Settings.GetNPRFloat4
							#bool: Nitrous_NPR_Settings.GetNPRBool
							#string: Nitrous_NPR_Settings.GetNPRString
						)
						setIniSetting theFile (theStyle as string) (theName as string) ((theFN theName) as string)
					)--end p loop
				)
			)--end if
		)
		fn loadPreset =
		(
			local theStyle = Nitrous_NPR_Settings.VisualStyleMode
			local paramCount = Nitrous_NPR_Settings.GetNPRParameterCount()
			if paramCount > 0 then
			(
				local theFile = getOpenFileName caption:("Load "+ theStyle as string +" Settings From...") types:"Nitrous NPR Presets (*.NPR)|*.NPR"
				if theFile != undefined do
				(
					for p = 0 to paramCount-1 do
					(
						local theName = Nitrous_NPR_Settings.GetNPRParameterName p
						local theType = Nitrous_NPR_Settings.GetNPRParameterType p
						local theFN = case theType of
						(
							#int: Nitrous_NPR_Settings.SetNPRInt
							#float: Nitrous_NPR_Settings.SetNPRFloat
							#float4: Nitrous_NPR_Settings.SetNPRFloat4
							#bool: Nitrous_NPR_Settings.SetNPRBool
							#string: Nitrous_NPR_Settings.SetNPRString
						)
						local theVal = getIniSetting theFile (theStyle as string) (theName as string)
						if theVal != "" do
						(
							if theType != #string do theVal = execute theVal
							theFN theName theVal
						)
					)--end p loop
					createSubRollout source:rad_SystemToAffect.state
					updateRenderer()
				)--end if
			)--end if
		)		
		fn updateList =
		(
			local theMode = case rad_SystemToAffect.state of 
			( 
				default: Nitrous_NPR_Settings.VisualStyleMode
				2: Nitrous_NPR_Settings.VisualStyle
			)
			ddl_NPRMode.selection = findItem (for i in ddl_NPRMode.items collect i as name) theMode
		)
		on rad_SystemToAffect changed state do
		(
			local result = true
			local theClass = classof renderers.current
			if state > 1 and theClass != Quicksilver_Hardware_Renderer do 
			(
				result = querybox ("The current renderer is ["+theClass as string+"].\nClicking YES will replace it with Quicksilver.\n\nAre you sure you want to continue?") title:"Assign Quicksilver"
				if result then 
					renderers.current = Quicksilver_Hardware_Renderer()
			)
			if result then
			(
				createSubRollout source:state
				if state == 3 do updateRenderer()
				updateList()
			)
			else
				rad_SystemToAffect.state = 1
		)
		on ddl_NPRMode selected itm do
		(
			case rad_SystemToAffect.state of
			(
				default: Nitrous_NPR_Settings.VisualStyleMode =  ddl_NPRMode.selected as name
				2: Nitrous_NPR_Settings.VisualStyle =  ddl_NPRMode.selected as name
			)
			if rad_SystemToAffect.state == 3 do updateRenderer()
			createSubRollout source:rad_SystemToAffect.state
		)
		on Nitrous_NPR_Rollout open do 
		(
			createSubRollout()
			updateList()
		)
		on Nitrous_NPR_Rollout moved pos do
		(
			setIniSetting theINIfile "Dialog" "Position" (pos as string)
		)
	)
	local thePos = execute (getIniSetting theINIfile "Dialog" "Position")
	if thePos == OK do thePos = [100,100]
	createDialog Nitrous_NPR_Rollout 220 380 thePos.x thePos.y menu:Nitrous_NPR_Menu
)