x/gtav-src
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
gtav-src/tools_ng/wildwest/script/3dsMax/Optimisation/RsJunctionVisualiser.ms
T
x a6770644bb init gta
2025-09-29 00:52:08 +02:00

2546 lines
117 KiB
Plaintext
Executable File
Raw Permalink Blame History

------------------------------------------------------------------------------------
--
-- File:: RsJunctionVisualiser.ms
-- Description:: Junction Test Visualisation/Generation/Analysis Tool
--
-- Author:: Martin Good <martin.good@rockstarnorth.com>
-- Date:: 06/03/2014
--
------------------------------------------------------------------------------------
filein (RsConfigGetWildWestDir() + "script/3dsMax/_config_files/Wildwest_header.ms")
filein (RsConfigGetWildWestDir() + "script/3dsMax/_common_functions/FN_RSTA_XML.ms")
fileIn "pipeline/util/RAG_funcs.ms"
filein "pipeline/util/assert.ms"
global RsJunctionViewerPos = [580,75] -- floater height and default position
try (RsJunctionViewerPos = GetDialogPos RsJunctionViewer ; DestroyDialog RsJunctionViewer) catch()
try (CloseRolloutFloater RsJunctionAddPreset) catch()
---- MAIN DIALOG ----
rollout RsJunctionViewer "Junction Test Viewer"
(
local ROwidth = 250
local FPPrecision = "#.2f"
-- STRUCTS --
struct Preset (Name, HMult, WMult, HOffset, WOffset, TrackedStat, MHStat, MWStat, ZeroZ)
struct Project (name, folder, platforms)
struct Thresholds (col1, col2, col3, col4, col5, col6, col7, col8, col9, val1, val2, val3, val4, val5, val6, val7, val8, val9)
struct versionformat (target, ToD, vNum) -- For parsed file name settings... for use in ParseFileName function...
struct texture (name, size, dims, form, TCS, type, template, sourceImage, sourceRes, errorFlag)
-- VARIABLES --
local PresetValues = #()
local Projects = #()
local defaultThresholds = Thresholds col1:[40, 0, 0] col2:[255, 0, 0] col3:[255, 165, 0]col4:[255, 255, 0] \
col5:[70, 255, 0] col6:[235, 235, 235] col7:[0, 210, 255] col8:[0, 96, 255] col9:[0, 22, 132] \
val1:4.0 val2:2.0 val3:0.5 val4:0.25 val5:0 val6:(0 - 0.01) val7:-10 val8:-20 val9:-40
local Threshes = #(defaultThresholds)
local TextureList = #()
local DefaultsFile = ::RsConfigGetWildwestDir() + "\script\3dsMax\Optimisation\RSJunctionVisualiser_Defaults.csv"
local DefaultPreset = Preset name:"Default Preset" HMult:1 WMult:1 HOffset:8 WOffset:8 TrackedStat:5 MHStat:5 MWStat:5 ZeroZ:false
local PresetValues = #(DefaultPreset)
local PresetNames = #(DefaultPreset.name)
local DefaultProject = Project name:" " folder:"X:\\" platforms:#("XBox360", "PS3", "PS4", "XB1", "PC")
local Projects = #(DefaultProject)
local ProjectNames = #(DefaultProject.name)
local BATNames = #("CLICK_ME_360_JUNC_TEST.bat", "CLICK_ME_PS3_JUNC_TEST.bat", "game_orbis_beta.bat", "game_durango_beta.bat", "game_win64_beta.bat")
-- Used to track dropdownlist changes
local ActivePreset = 1
local ActiveProject = 1
local ActiveThresh = 1
--local DefaultCurrCSVName = "X:\Juncs\Output\LIBERTY_Junc_out_360_OVERNEW.csv" -- my default location... proper junction tests may be in the following...
--local DefaultPrevCSVName = "X:\Juncs\Output\LIBERTY_Junc_out_360_v006.csv"
local DefaultCurrCSVName = "N:\RSGEDI\QA\GTA V\Art\Automated Map Junction Tests\Results\Readings v369\Junc_out_PS3_v369_DAY.csv" -- my default location... proper junction tests may be in the following...
local DefaultPrevCSVName = "N:\RSGEDI\QA\GTA V\Art\Automated Map Junction Tests\Results\Older Readings\Readings v340\Junc_out_xbox_v340_DAY.csv"
local DefaultWriteCSVLocation = "X:\Juncs\LIBERTY_Test_Junctions.csv"
local currCSVName = DefaultCurrCSVName
local prevCSVName = DefaultPrevCSVName
local writeCSVName = DefaultWriteCSVLocation
-- Flags due to separate rollouts... (may not need...)
local compare_tests = false
local OldVersion = versionformat target:"ps3" ToD:"Day" vNum:"v340"
local NewVersion = versionformat target:"ps3" ToD:"Day" vNum:"v369"
dotNetControl rsBannerPanel "System.Windows.Forms.Panel" height:32 pos:[0,0] width:RsJunctionViewer.width
local banner = makeRsBanner dn_Panel:rsBannerPanel versionNum:1.0 versionName:"Evaluation Version" colourScheme:#eval filename:(getThisScriptFilename())
subrollout Comp "Compare Junctions" height:26 width:ROwidth pos:[3,37] rolledup:true
progressbar CompVisSeparator "" value:100 width:ROwidth color:[40, 0,0] height:7 pos:[3,65]
subrollout Vis "Visualise Junctions" height:926 width:ROwidth pos:[3,72] rolledup:false
progressbar VisGenSeparator "" value:100 width:ROwidth color:[40, 0,0] height:7 pos:[3,1000]
subrollout Gen "Generate Junction File" height:26 width:ROwidth pos:[3,1008] rolledup:true
---- VISUALISER FUNCTIONS ----
fn loadSettings =
( -- Load initial settings from defaults file (::RsConfigGetWildwestDir() + "\script\3dsMax\Optimisation\RSJunctionVisualiser_Defaults.csv")
local defaults_file = openFile DefaultsFile
/* -- comment this out to override default file */
if defaults_file != undefined then
(
while not eof defaults_file do
(
local nextCSVline = readline defaults_file
local DefaultsData = filterstring nextCSVline ","
case DefaultsData[1] of
(
"DefaultWriteCSVLocation": (writeCSVName = DefaultWriteCSVLocation = DefaultsData[2] as string)
"DefaultCurrentCSVLocation": (currCSVName = DefaultCurrCSVName = DefaultsData[2] as string)
"DefaultPreviousCSVLocation": (prevCSVName = DefaultPrevCSVName = DefaultsData[2] as string)
"DefaultCol1Thresh(Highest)": (Threshes[1].val1 = DefaultsData[2] as float)
"DefaultCol2Thresh": (Threshes[1].val2 = DefaultsData[2] as float)
"DefaultCol3Thresh": (Threshes[1].val3 = DefaultsData[2] as float)
"DefaultCol4Thresh": (Threshes[1].val4 = DefaultsData[2] as float)
"DefaultCol5Thresh": (Threshes[1].val5 = DefaultsData[2] as float)
"DefaultCol6Thresh": (Threshes[1].val6 = DefaultsData[2] as float)
"DefaultCol7Thresh": (Threshes[1].val7 = DefaultsData[2] as float)
"DefaultCol8Thresh": (Threshes[1].val8 = DefaultsData[2] as float)
"DefaultCol9Thresh(Lowest)": (Threshes[1].val9 = DefaultsData[2] as float)
"Colour1 RGB":(Threshes[1].col1.x = DefaultsData[2] as float ; Threshes[1].col1.y = DefaultsData[3] as float ; Threshes[1].col1.z = DefaultsData[4] as float)
"Colour2 RGB":(Threshes[1].col2.x = DefaultsData[2] as float ; Threshes[1].col2.y = DefaultsData[3] as float ; Threshes[1].col2.z = DefaultsData[4] as float)
"Colour3 RGB":(Threshes[1].col3.x = DefaultsData[2] as float ; Threshes[1].col3.y = DefaultsData[3] as float ; Threshes[1].col3.z = DefaultsData[4] as float)
"Colour4 RGB":(Threshes[1].col4.x = DefaultsData[2] as float ; Threshes[1].col4.y = DefaultsData[3] as float ; Threshes[1].col4.z = DefaultsData[4] as float)
"Colour5 RGB":(Threshes[1].col5.x = DefaultsData[2] as float ; Threshes[1].col5.y = DefaultsData[3] as float ; Threshes[1].col5.z = DefaultsData[4] as float)
"Colour6 RGB":(Threshes[1].col6.x = DefaultsData[2] as float ; Threshes[1].col6.y = DefaultsData[3] as float ; Threshes[1].col6.z = DefaultsData[4] as float)
"Colour7 RGB":(Threshes[1].col7.x = DefaultsData[2] as float ; Threshes[1].col7.y = DefaultsData[3] as float ; Threshes[1].col7.z = DefaultsData[4] as float)
"Colour8 RGB":(Threshes[1].col8.x = DefaultsData[2] as float ; Threshes[1].col8.y = DefaultsData[3] as float ; Threshes[1].col8.z = DefaultsData[4] as float)
"Colour9 RGB":(Threshes[1].col9.x = DefaultsData[2] as float ; Threshes[1].col9.y = DefaultsData[3] as float ; Threshes[1].col9.z = DefaultsData[4] as float)
"Preset":
(
local newPreset = Preset name:DefaultsData[2]
newPreset.HMult = DefaultsData[3] as float ; newPreset.WMult = DefaultsData[4] as float
newPreset.HOffset = DefaultsData[5] as float ; newPreset.WOffset= DefaultsData[6] as float
newPreset.TrackedStat= DefaultsData[7] as integer ; newPreset.MWStat= DefaultsData[8] as integer ; newPreset.MHStat= DefaultsData[9] as integer
newPreset.ZeroZ= DefaultsData[10] as booleanClass
append PresetValues newPreset
append PresetNames newPreset.name
if ( DefaultsData[2] == "XBox360 Preset" ) then ActivePreset = PresetNames.count -- !!! This line sets default Preset to XBOX360
)
"Project":
(
local newProject = Project name:DefaultsData[2]
newProject.folder = DefaultsData[3]
local newPlatforms = #()
for pindex = 4 to DefaultsData.count do
(
append newPlatforms DefaultsData[pindex]
)
newProject.platforms = newPlatforms
append Projects newProject
append ProjectNames newProject.name
if ( DefaultsData[2] == "Liberty" ) then ActiveProject = ProjectNames.count -- !!! This line sets default Project build/dev location to LIBERTY
)
)
)
close defaults_file
)
)
fn ParseFileName FileNameString =
( -- Used by Comparison and Visualiser - returns Platform, Time Of Day and Version number gleaned from a filename
local FileVersion = versionformat target:"" ToD:"" vNum:0
local FileNameArray = filterstring (getFilenameFile FileNameString) "_"
for index = 1 to FileNameArray.count do
(
local nextbit = toLower FileNameArray[index]
case of
( -- !!! Extra casess needed for Future Proofing !!!! Possibly convert to dropdownlist.selection value
( nextbit == "ps4"):( FileVersion.target = "orbis" )
( nextbit == "orbis"):( FileVersion.target = "ps4" )
( nextbit == "xb1"):( FileVersion.target = "durango" )
( nextbit == "durango"):( FileVersion.target = "durango" )
( nextbit == "pc"):( FileVersion.target = "x64" )
( nextbit == "x64"):( FileVersion.target = "x64" )
( nextbit == "ps3"):( FileVersion.target = "ps3" )
( nextbit == "xbox"):( FileVersion.target = "xbox" )
( nextbit == "360"):( FileVersion.target = "xbox")
( nextbit == "day"):( FileVersion.ToD = "Day" )
( nextbit == "night"):( FileVersion.ToD = "Night" )
( substring nextbit 1 1 == "v"):( FileVersion.vNum = nextbit )
)
)
--format "%\n" FileVersion
return FileVersion
)
fn FMin Num1 Num2 =
( -- Returns minimum of the two values (Num2 by default)... I suspect that this exists somewhere, but my MaxScriptHelp search failed...
case of
(
(Num1 < Num2) : Num1
(default) : Num2
)
)
fn FMax Num1 Num2 =
( -- Returns maximum of the two values (Num2 by default)... I suspect that this exists somewhere, but my MaxScriptHelp search failed...
case of
(
(Num1 > Num2) : Num1
(default) : Num2
)
)
---- OPEN/CLOSE EVENTS ----
on RsJunctionViewer open do
(
banner.setup()
try (SetDialogPos RsJunctionViewer RsJunctionViewerPos) catch()
loadSettings()
)
on RsJunctionViewer close do
(
try (DestroyDialog RsJunctionRenamePreset) catch()
)
)
rollout RsJunctionRenamePreset "Choose Preset Name"
( -- New scale/position settings preset rename dialog
dotNetControl rsBannerPanel "System.Windows.Forms.Panel" height:32 pos:[0,0] width:RsJunctionRenamePreset.width
local banner = makeRsBanner dn_Panel:rsBannerPanel versionName:"Junction Viewer - Rename Preset" versionNum:1.0 colourScheme:#eval filename:(getThisScriptFilename())
edittext PresetName "" text:"THIS SHOULD BE OVERWRITTEN" width:(RsJunctionRenamePreset.width-4) align:#centre offset:[-13,0]
button SavePreset "SAVE PRESET TO DEFAULTS FILE" width:(RsJunctionRenamePreset.width-8) height:30 align:#centre offset:[-1,-2]
on PresetName changed NewName do
(
local NotFound = true
if ((findItem RsJunctionViewer.PresetNames NewName) == 0) then
(
SavePreset.enabled = true ; SavePreset.text = "SAVE PRESET TO DEFAULTS FILE"
)
else
(
SavePreset.enabled = false ; SavePreset.text = "Preset Name Already Exists"
)
RsJunctionViewer.PresetNames[RsJunctionViewer.ActivePreset] = PresetName.text
RsJunctionViewer.Vis.rollouts[1].MarkerPresets.items = RsJunctionViewer.PresetNames
)
on SavePreset pressed do
(
RsJunctionViewer.PresetNames[RsJunctionViewer.ActivePreset] = PresetName.text
RsJunctionViewer.Vis.rollouts[1].MarkerPresets.items = RsJunctionViewer.PresetNames
local message = "Couldn't open default settings file :\n"+RsJunctionViewer.DefaultDefaultFile+"\nto add the new preset.\n\n"
if doesFileExist RsJunctionViewer.DefaultDefaultFile then
(
if getFileAttribute RsJunctionViewer.DefaultDefaultFile #readOnly then
(
message += "File is read only..."
messageBox message title:"Couldn't update Defaults File"
)
else
(
local defaults_file = openFile DefaultDefaultFile mode:"a"
if defaults_file != undefined then
(
local newPresetString = "Preset,"+PresetName.text+","+(newPreset.HMult as string)+","+(newPreset.WMult as string)+","+(newPreset.HOffset as string)+","+(newPreset.WOffset as string)+","
newPresetString+=(newPreset.TrackedStat as string)+","+(newPreset.MWStat as string)+","+(newPreset.MHStat as string)+","+(newPreset.ZeroZ as string)+"\n"
--format "%\n" newPresetString
format "%" newPresetString to:defaults_file
close defaults_file
)
)
)
else
(
message += "File doesn't exist..."
messageBox message title:"Couldn't update Defaults File"
)
DestroyDialog RsJunctionAddPreset
)
---- ROLLOUT OPEN EVENT ----
on RsJunctionRenamePreset open do
(
banner.setup()
)
on PresetName entered ArgIgnore do
(
DestroyDialog RsJunctionRenamePreset
)
)
---- JUNCTION VIEWER MAIN ROLLOUTS ----
rollout Comparison "Compare Junction Test Results" rolledUp:true
( -- Runs the junction comparison script (if set up properly) on the existing junction memory dump files in N:
local ROwidth = 234
local scriptRootDir = "X:\Juncs\Costs\\"
local compareRootDir = "N:\RSGEDI\QA\GTA V\Art\Automated Map Junction Tests\Results\costs\\" -- All QA memory dumps should be in here somewhere
local compareTextDir = scriptRootDir + "Comparisons\\"
local compare_bat_name = scriptRootDir + "JunctionCompare.bat"
-- And where to dump the temporary uncompressed ZIP files
local compare_NewZIPTemp = scriptRootDir + "ZIPTemp\New"
local compare_OldZIPTemp = scriptRootDir + "ZIPTemp\Old"
local compareNotSetText = " Not set in Visualiser"
-- Adding all the bits together for filenames and paths...
local compareOldPath = compareRootDir + RsJunctionViewer.OldVersion.vNum + "\\" + RsJunctionViewer.OldVersion.ToD + "\\" -- Test results on N:
local compareNewPath = compareRootDir + RsJunctionViewer.NewVersion.vNum + "\\" + RsJunctionViewer.NewVersion.ToD + "\\"
local compareNewFileName = RsJunctionViewer.NewVersion.target + RsJunctionViewer.NewVersion.vNum + ".zip"
local compareOldFileName = RsJunctionViewer.OldVersion.target + RsJunctionViewer.OldVersion.vNum + ".zip"
local DefaultCompareOld = compareOldPath + compareOldFileName
local DefaultCompareNew = compareNewPath + compareNewFileName
local CompareOldZIP = DefaultCompareOld
local CompareNewZIP = DefaultCompareNew
group "Search for .ZIPs from Visualiser Settings"
(
button FindTestResults "Find Junction Test Versions" width:(ROwidth-16) height:30 align:#center offset:[0,-2] tooltip:"Uses the version file names from the CURRENT and PREVIOUS files in the Visualiser to find the corresponding junction streaming dump .ZIP files.\nMay fail to find them if the naming convention changes for either..."
dropdownlist TargetPlatform "" items:RsJunctionViewer.Projects[1].platforms selection:1 align:#left width:(ROwidth-84) height:16 offset:[-4,0] enabled:false
checkbox PlatformOverride "Override" checked:false align:#right offset:[8,-24] tooltip:"Manually override the target platform."
dropdownlist TargetToD "" items:#("Day","Night") selection:1 align:#left width:(ROwidth-84) height:16 offset:[-4,0] enabled:false
checkbox ToDOverride "Override" checked:false align:#right offset:[8,-24] tooltip:"Manually override the Day and Night test results. (Night is less common, so will fail regularly...)"
editText NewVersionNum "New Version" text:" NOT FOUND" fieldwidth:((ROwidth*0.5)-8) labelOnTop:true across:2 align:#left offset:[-5,0] readonly:true enabled:false
editText OldVersionNum "Old Version" text:" NOT FOUND" fieldwidth:((ROwidth*0.5)-8) labelOnTop:true align:#right offset:[5,0] readonly:true enabled:false
button ChangeNewVersion "Change New" across:2 align:#left width:((ROwidth*0.5)-10) height:26 offset:[-4,-2]
button ChangeOldVersion "Change Old" align:#right width:((ROwidth*0.5)-10) height:26 offset:[4,-2]
)
group "Run Junction Compare Script"
(
button ChangeCompBATFile "Change Junction Comparison Script" width:(ROwidth-16) tooltip:"Script for comparing junctions."
editText CompBATFileName "" text:compare_bat_name width:(ROwidth-10) offset:[-2,-5] align:#center readonly:true
button RunTest "Run Comparison Script" width:(ROwidth-16) height:60 offset:[0,2] tooltip:"Run the junction test .BATon your target PS3/XBox/etc. Needs set up outside this script, so results may vary...\nErrors will appear in the text box below."
radioButtons OpenTextFiles "Open after Comparison Script" labels:#("Files","Folder","None") default:2 tooltip:"Opens all the selected junctions' comparison files or the folder when 'Run Comparison Script' is pressed.\nDefault is 'Folder' to prevent spamming notepads. Won't kill previously openend explorer windows though."
editText ErrorText "Info / Errors" text:"" labelOnTop:true width:(ROwidth-16) height:20 align:#center readonly:true enabled:false
)
---- COMPARISON FUNCTIONS ----
fn SearchForZIPNames =
(
ErrorText.text = ""
ErrorText.enabled = false
PlatformOverride.enabled = true
ToDOverride.enabled = true
local OldPlatform = RsJunctionViewer.OldVersion.target
local NewPlatform = RsJunctionViewer.NewVersion.target
local OldTime = RsJunctionViewer.OldVersion.ToD
local NewTime = RsJunctionViewer.NewVersion.ToD
if PlatformOverride.state then
(
case TargetPlatform.selected of
(
"XB1":(OldPlatform = NewPlatform = "durango")
"PS4":(OldPlatform = NewPlatform = "orbis")
"PC":(OldPlatform = NewPlatform = "x64")
"PS3":(OldPlatform = NewPlatform = "ps3")
default:(OldPlatform = NewPlatform = "xbox")
)
)
if ToDOverride.state then
(
OldTime = NewTime = TargetToD.selected
)
compareOldPath = compareRootDir + RsJunctionViewer.OldVersion.vNum + "\\" + OldTime + "\\" -- Test results on N:
compareNewPath = compareRootDir + RsJunctionViewer.NewVersion.vNum + "\\" + NewTime + "\\"
compareOldFileName = OldPlatform + "_" + RsJunctionViewer.OldVersion.vNum
compareNewFileName = NewPlatform + "_" + RsJunctionViewer.NewVersion.vNum
format "New Path :%\nNew file : %\nOld Path : %\nOld file : %\n" compareNewPath CompareNewFileName compareOldPath compareOldFileName
local JunctionZIPName = compareNewPath + compareNewFileName + ".zip"
if doesFileExist JunctionZIPName then
(
--NewVersionNum.text = "Found " + RsJunctionViewer.NewVersion.target + RsJunctionViewer.NewVersion.vNum
NewVersionNum.text = "Found " + compareNewFileName
NewVersionNum.enabled = true
CompareNewZIP = JunctionZIPName
)
else
(
compareNewPath = compareRootDir + RsJunctionViewer.NewVersion.vNum + "\\" -- older test results don't have "Day" in the path...
JunctionZIPName = compareNewPath + compareNewFileName + ".zip"
if doesFileExist JunctionZIPName then
(
NewVersionNum.text = "Found " + compareNewFileName
NewVersionNum.enabled = true
CompareNewZIP = JunctionZIPName
)
else
(
if RsJunctionViewer.NewVersion.vNum == "NONE" then
(
NewVersionNum.text = compareNotSetText
)
else
(
NewVersionNum.text = "Can't find " + compareNewFileName
)
NewVersionNum.enabled = false
)
)
JunctionZIPName = compareOldPath + compareOldFileName + ".zip"
if doesFileExist JunctionZIPName then
(
OldVersionNum.text = "Found " + compareOldFileName
OldVersionNum.enabled = true
CompareOldZIP = JunctionZIPName
)
else
(
compareOldPath = compareRootDir + RsJunctionViewer.OldVersion.vNum + "\\" -- older test results use this path...
JunctionZIPName = compareOldPath + compareOldFileName + ".zip"
if doesFileExist JunctionZIPName then
(
OldVersionNum.text = "Found " + compareOldFileName
OldVersionNum.enabled = true
CompareOldZIP = JunctionZIPName
)
else
(
if RsJunctionViewer.OldVersion.vNum == "NONE" then
(
OldVersionNum.text = compareNotSetText
)
else
(
OldVersionNum.text = "Can't find " + compareOldFileName
)
OldVersionNum.enabled = false
)
)
)
---- COMPARISON EVENTS ----
on PlatformOverride changed Arg do
(
TargetPlatform.enabled = Arg
SearchForZIPNames()
)
on ToDOverride changed Arg do
(
TargetTod.enabled = Arg
SearchForZIPNames()
)
on TargetPlatform selected ArgIgnore do ( SearchForZIPNames() )
on TargetToD selected ArgIgnore do ( SearchForZIPNames() )
on FindTestResults pressed do ( SearchForZIPNames () )
on ChangeOldVersion pressed do
(
local zip_name = getOpenFileName caption:"Old ZIP file" filename:CompareOldZIP types:"ZIP (*.zip)|*.zip|All Files (*.*)|*.*|"
if zip_name == undefined then
(
CompareOldZIP = DefaultCompareOld
ErrorText.text = " Using default .ZIP file location"
)
else
(
CompareOldZIP = zip_name
ErrorText.text =""
local parsedZIPName = RsJunctionViewer.ParseFileName zip_name
format "Target : %, ToD : %, Version : %\n" parsedZIPName.target parsedZIPName.ToD parsedZIPName.vNum
OldVersionNum.text = "Using " + parsedZIPName.target + "_" parsedZIPName.vNum
OldVersionNum.enabled = true
PlatformOverride.enabled = false
PlatformOverride.state = false
ToDOverride.enabled = false
ToDOverride.state = false
TargetToD.enabled = false
TargetPlatform.enabled = false
case parsedZIPName.target of
(
"ps3":( TargetPlatform.selection = 2 )
"xbox":( TargetPlatform.selection = 1 )
)
)
)
on ChangeNewVersion pressed do
(
local zip_name = getOpenFileName caption:"New ZIP file" filename:CompareNewZIP types:"ZIP (*.zip)|*.zip|All Files (*.*)|*.*|"
if zip_name == undefined then
(
CompareNewZIP = DefaultCompareNew
--NewVersionNum.enabled = false -- technically should disable, but will run with default !!!
ErrorText.text = " Using default .ZIP file location"
)
else
(
CompareNewZIP = zip_name
ErrorText.text = ""
local parsedZIPName = RsJunctionViewer.ParseFileName zip_name
format "Target : %, ToD : %, Version : %\n" parsedZIPName.target parsedZIPName.ToD parsedZIPName.vNum
NewVersionNum.text = "Using " + parsedZIPName.target + "_" + parsedZIPName.vNum
NewVersionNum.enabled = true
PlatformOverride.enabled = false
PlatformOverride.state = false
ToDOverride.enabled = false
ToDOverride.state = false
TargetToD.enabled = false
TargetPlatform.enabled = false
case parsedZIPName.target of
(
"ps3":( TargetPlatform.selection = 1 )
"xbox":( TargetPlatform.selection = 2 )
)
)
)
on RunTest pressed do
(
ErrorText.text = ""
ErrorText.enabled = false
local TextNewFileName = TextOldFileName = ScriptOutputName = "NONE"
local CSVPlatform = RsJunctionViewer.NewVersion.target
if PlatformOverride.state then
(
case TargetPlatform.selected of
(
"XB1":(CSVPlatform = "durango")
"PS4":(CSVPlatform = "orbis")
"PC":(CSVPlatform = "x64")
"PS3":(CSVPlatform = "ps3")
default:(CSVPlatform = "xbox")
)
)
if selection.count > 0 and OldVersionNum.enabled and NewVersionNum.enabled and doesFileExist CompBATFileName.text then
(
if makedir compare_NewZIPTemp and makedir compare_OldZIPTemp and makedir compareTextDir then
(
format "Extracting Old ZIP : %\n" CompareOldZIP
unmaz CompareOldZIP compare_OldZIPTemp
format "Extracting New ZIP : %\n" CompareNewZIP
unmaz CompareNewZIP compare_NewZIPTemp
for SelectedJunction in selection do
(
local SelectedJunctionName =SelectedJunction.name + ".txt"
JunctionOldZIPName = compare_OldZipTemp + "\\" + SelectedJunctionName
JunctionNewZIPName = compare_NewZipTemp + "\\" + SelectedJunctionName
if doesFileExist JunctionOldZIPName then
(
TextOldFileName = compareTextDir + "old.txt"
if doesFileExist TextOldFileName then deleteFile TextOldFileName -- remove any old versions or it won't overwrite
local InfoText = "Copying ..\Old\\" + SelectedJunctionName + " --> old.txt | "
format "%" InfoText
copyFile JunctionOldZIPName TextOldFileName
-- NEW FILE COPY --
if doesFileExist JunctionNewZIPName then
(
TextNewFileName = compareTextDir + "new.txt"
if doesFileExist TextNewFileName then deleteFile TextNewFileName -- remove any old versions or it won't overwrite
local InfoText = "..\New\\" + SelectedJunctionName + " --> new.txt | "
format "%" InfoText
copyFile JunctionNewZIPName TextNewFileName
-- Run the comparison script .BAT
HiddenDOSCommand CompBATFileName.text
-- Rename the output file
ScriptOutputName = compareTextDir + "StreamingChanges.txt"
RenamedFileName = RsJunctionViewer.NewVersion.vNum + RsJunctionViewer.OldVersion.vNum + "_" + CSVPlatform + "_" + SelectedJunction.name + "_Changes.txt"
RenamedOutput = compareTextDir + RenamedFileName
copyFile ScriptOutputName RenamedOutput --rename fail... copy instead
format "% written.\n" RenamedFileName
-- Open the output file
if OpentextFiles.state == 1 then
(
HiddenDOSCommand RenamedOutput donotwait:true -- Open with default package... could get messy if set up strangely
--command = RenamedOutput --"%windir%\system32\\notepad.exe " + RenamedOutput -- Original, and moderately guaranteed to work (assuming notepad is there).
)
)
else
(
local InfoText = "Couldn't find " + SelectedJunctionName + " in New .zip file"
format "%\n" InfoText
ErrorText.text = InfoText
)
)
else
(
local InfoText = "Couldn't find " + SelectedJunctionName + " in New .zip file"
format "%\n" InfoText
ErrorText.text = InfoText
)
)
-- Delete any temp files regardless of success --
format "Removing Temp Files : %\n" compare_OldZIPTemp
local command = "del " + compare_OldZIPTemp + "\\*.txt" -- clean up the unzipped files now it's copied
HiddenDOSCommand command donotwait:true
format "Removing Temp Files : %\n" compare_NewZIPTemp
command = "del " + compare_NewZIPTemp + "\\*.txt" -- clean up the unzipped files now it's copied
HiddenDOSCommand command donotwait:true
if doesFileExist TextNewFileName then
(
command = "del " + TextNewFileName
HiddenDOSCommand command donotwait:true
)
if doesFileExist TextOldFileName then
(
command = "del " + TextOldFileName
HiddenDOSCommand command donotwait:true
)
if doesFileExist ScriptOutputName then
(
command = "del " + ScriptOutputName
HiddenDOSCommand command donotwait:true
)
if OpenTextFiles.state == 2 then
(
command = "explorer " + compareTextDir ; HiddenDOSCommand command donotwait:true
)
)
else
(
ErrorText.text = "Problem creating folder : "
if makedir compare_NewZIPTemp == false then Error.text += compare_NewZIPTemp + " "
if makedir compare_OldZIPTemp == false then Error.text += compare_OldZIPTemp + " "
if makedir compareTextDir == false then Error.text += compareTextDir
ErrorText.enabled = true
)
)
else
(
case of -- Fail cases
(
(selection.count == 0) : ( ErrorText.text = "Nothing Selected")
(OldVersionNum.enabled == false) : (ErrorText.text = "No Old Version .zip file selected")
(NewVersionNum.enabled == false) : ( ErrorText.text = "No New Version .zip file selected")
(doesFileExist CompBATFileName.text == false):( ErrorText.text = CompBATFileName.text + " does not exist." )
)
ErrorText.enabled = true
)
)
---- COMPARISON ROLLOUT EVENTS ----
on Comparison rolledUp Rolled do
(
if Rolled then (RsJunctionViewer.Comp.height = 424) else (RsJunctionViewer.Comp.height = 26)
RsJunctionViewer.Vis.pos.y = RsJunctionViewer.Comp.height + RsJunctionViewer.Comp.pos.y + 10
if (RsJunctionViewer.Vis.height > 26) then (RsJunctionViewer.Vis.height = RsJunctionViewer.height - (RsJunctionViewer.Vis.pos.y + RsJunctionViewer.Gen.height + 14))
RsJunctionViewer.Gen.pos.y = RsJunctionViewer.Vis.pos.y + RsJunctionViewer.Vis.height + 10
RsJunctionViewer.CompVisSeparator.position.y = RsJunctionViewer.Vis.pos.y - 7
RsJunctionViewer.VisGenSeparator.position.y = RsJunctionViewer.Gen.pos.y - 7
)
)
rollout Visualiser "Visualise Junction Test Results"
( -- Loads junction test results and displays them as boxes, sized and coloured by a selection of the test data
local ROwidth = 234
local CPwidth = 38
local LockGap = 0.01
local ThresholdGap = 0.05
local ThresholdLimit = 200.0
local Threshes = RsJunctionViewer.Threshes
local PrevThresh = #(Threshes[1].val1,Threshes[1].val2,Threshes[1].val3,Threshes[1].val4,Threshes[1].val5,Threshes[1].val6,Threshes[1].val7,Threshes[1].val8,Threshes[1].val9)
local CurrThresh = deepcopy PrevThresh
struct junction (name, xcoord, ycoord, zcoord, main, vram, main_compare, vram_compare, archetypes, archetypes_compare, bad_junc, tracked_stat, marker)
local active_juncs = #()
-- Values used for Stat Tracking
local WorstCount = 0
local WorstJunc = ThresholdLimit
local BestJunc = 0.0 - ThresholdLimit
local WorstThresh = 0.0
local TrackedMean = 0.0
local NotLoadedText = " Not Loaded"
struct JuncFileHeader (name, x, y, z, Main, VRAM, VRAMScene, MainScene, VRAMAvail, MainAvail, ArchNum)
local JuncField = JuncFileHeader name:-10000 x:-10000 y:-10000 z:-10000 Main:-10000 VRAM:-10000 \
VRAMScene:-10000 MainScene:-10000 VRAMAvail:-10000 MainAvail:-10000 ArchNum:-10000
group "Junction Test Files"
(
button LoadCurrentCSV "Load CURRENT Data" width:((ROWidth*0.65)-8) height:40 align:#left offset:[-4, -4]
button ChangeCurrentCSV "Browse" width:((ROWidth*0.35)-8) height:22 align:#right offset:[4,-45]
editText CurrFileCount "" text:" Not Loaded" width:((ROWidth*0.35)-3) align:#right offset:[5,-4] enabled:false readonly:true
editText CurrFileName "" text:(filenameFromPath RsJunctionViewer.currCSVName) width:(ROWidth-10) align:#left offset:[-9,-4] enabled:true readonly:true
button LoadPreviousCSV "Load PREVIOUS Data" width:((ROWidth*0.65)-8) height:40 align:#left offset:[-4, 0] enabled:false
button ChangePreviousCSV "Browse" width:((ROWidth*0.35)-8) height:22 align:#right offset:[4,-45] enabled:false
editText PrevFileCount "" text:" Not Loaded" width:((ROWidth*0.35)-3) align:#right offset:[5,-4] enabled:false readonly:true
editText PrevFileName "" text:(filenameFromPath RsJunctionViewer.prevCSVName) width:(ROWidth-10) align:#left offset:[-9,-4] enabled:true readonly:true
progressbar PrevSurround "" color:[60,220,60] value:100 width:((ROwidth*0.5)-34) height:24 align:#left offset:[-5,0] enabled:false
progressbar CurrSurround "" color:[60,220,60] value:100 width:((ROwidth*0.5)-34) height:24 align:#left offset:[((ROwidth*0.5)-37),-29] enabled:false
progressbar DiffSurround "" color:[60,220,60] value:100 width:51 height:24 align:#right offset:[4,-29] enabled:false
editText VersionPrevious "" text:NotLoadedText width:((ROwidth*0.5)-37) offset:[-5, -25] align:#left readonly:true enabled:false
editText VersionCurrent "" text:NotLoadedText width:((ROwidth*0.5)-37) offset:[((ROwidth*0.5)-37), -22] align:#left readonly:true enabled:false
editText CompareCount "" text:" N/A" width:48 align:#right offset:[1, -22] enabled:false readonly:true tooltip:"Number of junctions contained in both CURRENT and PREVIOUS files."
button UsePrevious "PREVIOUS" width:((ROwidth*0.5)-34) offset:[-5, 0] align:#left enabled:false
button UseCurrent "CURRENT" width:((ROwidth*0.5)-34) offset:[((ROwidth*0.5)-37), -26] align:#left enabled:false
button UseDiff "DIFF" width:51 align:#right offset:[4, -26] enabled:false
radioButtons TrackedVersion "" labels:#("CURRENT", "PREVIOUS","DIFF") default:3 columns:3 align:#centre offset:[6,-20] visible:false enabled:false tooltip:"Switch between the 2 versions, and the comparison."
)
group "Stat Tracking"
(
editText BestJunction "" text:" N/A" across:2 align:#left fieldwidth:((ROwidth/2)-45) offset:[-8,0] readonly:true enabled:false tooltip:"Lowest tracked stat value."
editText WorstJunction "Low ---> High" text:" N/A" align:#right offset:[5,0] fieldwidth:((ROwidth/2)-45) readonly:true enabled:false tooltip:"Highest tracked stat value."
spinner WorstJunctionCount "" range:[0,0,0] scale:1 type:#integer across:2 align:#left fieldwidth:((ROwidth/2)-56) offset:[-5,3] enabled:false tooltip:"Number of junctions over threshold."
spinner WorstThreshold "over " range:[BestJunc, WorstJunc, WorstThresh] type:#float align:#right fieldwidth:((ROwidth/2)-62) offset:[-46, 3] tooltip:"Worst junction threshold."
button SelectWorst "Select" align:#right offset:[2,-24] enabled:false tooltip:"Select worst junctions using the over count/threshold to the left."
checkbox AutoSelect "Auto-Select" checked:false across:2 align:#left enabled:false offset:[-3,-2]
radioButtons AutoSelectType "" labels:#("Worst", "Nth") columns:2 default:2 align:#right offset:[20,-2]
radioButtons DropJunctions "Drop Junctions" labels:#("Under 0 MB", "Best", "None") default:3 columns:3 offset:[-4, 0] enabled:false align:#left tooltip:"Lowers the junctions.\n 0 MB : all junctions below 0.0MB\n Over : all junctions below the over value\nNone : don't lower any"
checkbox HideBest "Hide Dropped" align:#left across:2 offset:[-4, -2] ticked:false enabled:false
spinner DropAmount "Drop By" range:[0.0, 1000.0, 1000.0] scale:10.0 align:#right width:114 offset:[4, -2] enabled:false tooltip:"Distance to drop junctions by."
--progressbar RAGSurround "" color:[0,255,0] value:100 width:((ROwidth*0.35)-5) height:32 align:#left offset:[-6,-2] enabled:false
--button RAGConnect "CONNECT" height:24 width:((ROwidth*0.35)-12) across:2 align:#left offset:[-2,-33] enabled:true
--button WarpTo "Warp Player" height:30 width:((ROwidth*0.65)-78) align:#right offset:[-64,-36] enabled:false
--button Analyse "ANALYSE" height:30 width:66 align:#right offset:[4,-35] enabled:true
progressbar RAGSurround "" color:[0,255,0] value:100 width:(ROwidth*0.35) height:32 align:#left offset:[-6,-2] enabled:false
button RAGConnect "CONNECT" height:24 width:((ROwidth*0.35)-7) across:2 align:#left offset:[-2,-33] enabled:true
button WarpTo "Warp To Selection" height:30 width:((ROwidth*0.65)-16) align:#right offset:[4,-36] enabled:false
)
group "Marker Scale and Position"
(
radioButtons WidthOptions "Marker Width" labels:#("Main","VRAM","Main+VRAM","Archetypes","None") default:RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].MWStat columns:1 align:#left offset:[-3,0] tooltip:"Statistic to track on junction marker heights"
radioButtons HeightOptions "Marker Height" labels:#("Main","VRAM","Main+VRAM","Archetypes","None") default:RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].MHStat columns:1 align:#left offset:[76,-96] tooltip:"Statistic to track on junction marker widths"
radioButtons TrackedStat "Track" labels:#("Main","VRAM","M+V","ATypes","None","Width","Height") default:RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].TrackedStat columns:1 align:#right offset:[8,-96]tooltip:"Stats to use for colour group.\nDefault is Total = Main + VRAM.\nHeight and Width options are affected by offsets."
checkbox TrackLink "Link Width/Height to Track" checked:false align:#left offset:[-1,-27]
spinner HeightMult "Height : Scale" range:[0.1,100.0,RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].HMult] type:#float scale:1.0 width:100 align:#left across:2 offset:[-3,7] tooltip:"Scale multiplier for junction marker heights."
spinner HeightOffset "Offset" range:[-1000,1000,RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].HOffset] type:#float width:80 align:#right offset:[-6,7] tooltip:"Value in MB to add/subtract from junction marker heights (Default 0.0)"
spinner WidthMult "Width : Scale" range:[0.1,100,RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].WMult] type:#float scale:1.0 width:100 align:#left offset:[-3,-2] across:2 tooltip:"Scale multiplier for junction marker widths."
spinner WidthOffset "Offset" range:[-1000,1000,RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].WOffset] type:#float width:80 align:#right offset:[-6,-2] tooltip:"Value in MB to add/subtract from junction marker widths (Default 8.0 : will need changed to 0.0 if valid data displayed in the widths)."
button ScaleLink " " width:10 height:16 align:#left offset:[110,-30]
button OffsetLink " " width:10 height:16 align:#right offset:[4,-22]
checkbox PositiveWidths "All Widths > 0" checked:true across:2 align:#left offset:[-4,10] tooltip:"Don't allow widths to go bellow 0. Makes top view easier to read."
checkbox ZeroZ "Zero Z Positions" checked:RsJunctionViewer.PresetValues[RsJunctionViewer.ActivePreset].ZeroZ align:#right offset:[8,10] tooltip:"Move junction markers between default positions and 0.0m on z-axis. (Default positions are written to/taken from junction test file)."
dropdownlist MarkerPresets "" items:RsJunctionViewer.PresetNames selection:RsJunctionViewer.ActivePreset align:#left width:((ROwidth*0.67)-8) height:16 offset:[-4,0]
button SaveNewPreset "SAVE NEW" width:((ROwidth*0.33)-8) height:22 align:#right offset:[4,-28]
)
group "Marker Colour Minimum Thresholds"
(
checkbox SmthGrad "Smooth Gradient" checked:true align:#left offset:[-2,-2] tooltip:"Distinct colour groups or smoother gradients across all values."
checkbox ScaleRanges "Scale Ranges" checked:false align:#right offset:[8,-20] enabled:false tooltip:"Makes several buttons affect the threshold values if ticked, forcing the range to the low and high values from Stat Tracking."
colorpicker Col1Picker color:[Threshes[1].col1.x,Threshes[1].col1.y,Threshes[1].col1.z] align:#left Offset:[-7,-2] width:CPwidth height:16
spinner Col1Thresh "" range:[0.0-(ThresholdLimit-(ThresholdGap*7)),ThresholdLimit,Threshes[1].val1] type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-21] tooltip:"Most expensive junction bracket. Threshold value in MB (or archtypes / 1000)."
button Col1Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col1Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
colorpicker Col2Picker color:[Threshes[1].col2.x,Threshes[1].col2.y,Threshes[1].col2.z] align:#left Offset:[-7,0] width:CPwidth height:16
spinner Col2Thresh "" range:[0.0-(ThresholdLimit-(ThresholdGap*6)),ThresholdLimit-ThresholdGap,Threshes[1].val2] type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-21]
button Col2Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col2Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
colorpicker Col3Picker color:[Threshes[1].col3.x,Threshes[1].col3.y,Threshes[1].col3.z] align:#left Offset:[-7,0] width:CPwidth height:16
spinner Col3Thresh "" range:[0.0-(ThresholdLimit-(ThresholdGap*5)),ThresholdLimit-(ThresholdGap*2),Threshes[1].val3] type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-21]
button Col3Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col3Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
colorpicker Col4Picker color:[Threshes[1].col4.x,Threshes[1].col4.y,Threshes[1].col4.z] align:#left Offset:[-7,0] width:CPwidth height:16
spinner Col4Thresh "" range:[0.0-(ThresholdLimit-(ThresholdGap*4)),ThresholdLimit-(ThresholdGap*3),Threshes[1].val4] type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-21]
button Col4Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col4Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
colorpicker Col5Picker color:[Threshes[1].col5.x,Threshes[1].col5.y,Threshes[1].col5.z] align:#left Offset:[-7,0] width:CPwidth height:16
spinner Col5Thresh "" range:[0.0-(ThresholdLimit-(ThresholdGap*3)),ThresholdLimit-(ThresholdGap*4),Threshes[1].val5] enabled:false type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-11] tooltip:"Middle junction bracket."
button Col5Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col5Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
colorpicker Col6Picker color:[Threshes[1].col6.x,Threshes[1].col6.y,Threshes[1].col6.z] align:#left Offset:[-7,-10] width:CPwidth height:16
colorpicker Col7Picker color:[Threshes[1].col7.x,Threshes[1].col7.y,Threshes[1].col7.z] align:#left Offset:[-7,0] width:CPwidth height:16
spinner Col7Thresh "" range:[0.0-(ThresholdLimit-(ThresholdGap*2)),ThresholdLimit-(ThresholdGap*5),Threshes[1].val7] type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-21]
button Col7Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col7Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
colorpicker Col8Picker color:[Threshes[1].col8.x,Threshes[1].col8.y,Threshes[1].col8.z] align:#left Offset:[-7,0] width:CPwidth height:16
spinner Col8Thresh "" range:[0.0-(ThresholdLimit-ThresholdGap),ThresholdLimit-(ThresholdGap*6),Threshes[1].val8] type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-21]
button Col8Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col8Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
colorpicker Col9Picker color:[Threshes[1].col9.x,Threshes[1].col9.y,Threshes[1].col9.z] align:#left Offset:[-7,0] width:CPwidth height:16
spinner Col9Thresh "" range:[0.0-ThresholdLimit,ThresholdLimit-(ThresholdGap*7),Threshes[1].val9] type:#float fieldwidth:46 height:16 align:#left offset:[CPwidth-6,-21] tooltip:"Least expensive junction bracket. Threshold value in MB (or archtypes / 1000)."
button Col9Over "" width:14 height:16 align:#left offset:[CPwidth+54,-21] enabled:false tooltip:"Copy threshold value into 'over' in\n'Stat Tracking' group above."
editText Col9Count "" text:"" fieldwidth:36 height:16 align:#left offset:[CPwidth+67,-22] readonly:true
button ResetThresholdColours "Reset" align:#left width:(CPwidth-4) height:20 offset:[-3,0] enabled:false tooltip:"Reset the threshold colours to initial defaults."
button ResetThresholdValues "Reset" align:#left width:72 height:20 offset:[CPwidth-4,-25] enabled:false tooltip:"Reset the threshold values to intial defaults."
button UseWorst "Use High" align:#right width:(ROwidth - (CPwidth+132)) height:22 offset:[4,-205] enabled:false tooltip:"Use worst junction value from 'Tracked Stats' as high threshold.\nScales other threshold values if 'Scale Range' is set."
button ZeroMean "Avg." width:(ROwidth - (CPwidth+132)) height:22 align:#right offset:[4,11] enabled:false tooltip:"Set middle threshold value to average junction size (mean).\nScales other threshold values if 'Scale Range' is set."
button ZeroZero "Zero" Width:(ROwidth - (CPwidth+132)) height:22 align:#right offset:[4,-2] enabled:false tooltip:"Set middle threshold to 0.0\nScales other threshold values if 'Scale Range' is set."
checkbox LockZero "Lock" align:#left offset:[(CPwidth+114),0] checked:(not Col5Thresh.enabled) tooltip:"Lock the middle value (mostly).\nCan still change with Avg., Zero, = Count, = Size and Reset."
button EqualizeCount "= Count" width:(ROwidth - (CPwidth+132)) height:22 align:#right offset:[4,0] enabled:false tooltip:"Sets each threshold group to container roughly the same number of junctions."
button EqualizeSize "= Size" width:(ROwidth - (CPwidth+132)) height:22 align:#right offset:[4,-2] enabled:false tooltip:"Equally spaces out threshold values between high and low. Sets minimum and maximum values if 'Scale Ranges' is set."
button UseBest "Use Low" align:#right width:(ROwidth - (CPwidth+132)) height:22 offset:[4,15] enabled:false tooltip:"Use best junction value from 'Tracked Stats' as low threshold.\nScales other threshold values if 'Scale Ranges' is set."
dropdownList ResetOption "" items:#("Default Thresholds") selected:1 width:(CPwidth+110) height:20 align:#left offset:[-3,0]
button StoreThresholds "<-- STORE" width:(ROwidth - (CPwidth+132)) height:22 align:#right offset:[4,-28] enabled:false
)
---- VISUALISER FUNCTIONS ----
---- GENERAL FUNCTIONS ----
fn CompareJuncs junc1 junc2 =
( -- Compare junction Tracked Stat values - used in qsort
diff = junc1.tracked_stat - junc2.tracked_stat
case of
(
(diff < 0.0): 1
(diff > 0.0): -1
default: 0
)
)
---- UI HANDLING FUNCTIONS ----
fn KillWidgets =
( -- Disable widgets - only used briefly when Load Current hit, and re-activated if CSV loaded properly
LoadPreviousCSV.enabled = false
ChangePreviousCSV.enabled = false
WorstJunctionCount.range = [1, 1, 1]
WorstJunctionCount.enabled = false
WorstThreshold.range.x = 0.0 ; WorstThreshold.range.y = 0.0
BestJunction.text = " N/A"
WorstJunction.text = " N/A"
SelectWorst.enabled = false
AutoSelect.enabled = false
DropJunctions.enabled = false
BestJunction.enabled = false
WorstJunction.enabled = false
DropAmount.enabled = false
UseWorst.enabled = false
UseBest.enabled = false
ZeroZero.enabled = false
ZeroMean.enabled = false
EqualizeCount.enabled = false
EqualizeSize.enabled = false
ScaleRanges.enabled = false
Col1Over.enabled = false
Col2Over.enabled = false
Col3Over.enabled = false
Col4Over.enabled = false
Col5Over.enabled = false
Col7Over.enabled = false
Col8Over.enabled = false
Col9Over.enabled = false
)
fn ActivateWidgets =
( -- Active disabled widgets on successful Current CSV load
LoadPreviousCSV.enabled = true
ChangePreviousCSV.enabled =true
PrevFileName.text = filenameFromPath RsJunctionViewer.prevCSVName
PrevFileName.enabled = true
SelectWorst.enabled = true
AutoSelect.enabled = true
DropJunctions.enabled = true
BestJunction.enabled = true
WorstJunction.enabled = true
DropAmount.enabled = true
UseWorst.enabled = true
UseBest.enabled = true
ZeroZero.enabled =true
ZeroMean.enabled = true
EqualizeCount.enabled = true
EqualizeSize.enabled = true
ScaleRanges.enabled = true
Col1Over.enabled = true
Col2Over.enabled = true
Col3Over.enabled = true
Col4Over.enabled = true
Col5Over.enabled = true
Col7Over.enabled = true
Col8Over.enabled = true
Col9Over.enabled = true
)
---- FILE HANDLING FUNCTIONS ----
fn ReadHeader CSVstream =
( -- Parse CSV header to determine which columns are which... (extra data added part way through V, initial NG has no header...)
local header = readLine CSVstream
local headerNames = filterstring header ","
-- set default indices ludicrously low so they can all be tested in one if
JuncField.name = JuncField.x = JuncField.y = JuncField.z = JuncField.Main = JuncField.VRAM = JuncField.VRAMScene = JuncField.MainScene = JuncField.VRAMAvail = JuncField.MainAvail = JuncField.ArchNum = -10000
for index = 1 to headerNames.count do
(
case headerNames[index] of
(
"name": ( JuncField.name = index )
"x": ( JuncField.x = index )
"y": ( JuncField.y = index )
"z": ( JuncField.z = index )
"main":(JuncField.VRAM = index)
"vram":(JuncField.Main = index)
"physical":(JuncField.Main = index)
"virtual":(JuncField.VRAM = index)
"main_avail": ( JuncField.VRAMAvail = index ) -- yes... main and VRAM are swapped in the CSV (at least for 360)...
"vram_avail": ( JuncField.MainAvail = index )
"main_scene": (JuncField.VRAMScene = index )
"vram_scene": ( JuncField.MainScene = index )
"arch_num": ( JuncField.Archnum = index )
)
)
)
fn LoadCurrCSV =
( -- Load CURRENT data - Parse header, set up junction data... visualisation handled elsewhere in ProcessActiveCSV()
local csv_file = openFile RsJunctionViewer.currCSVName
-- Parse the file name to extract equivalent junction test result .zip info (hopefully... since the convension has changed from v315)
RsJunctionViewer.NewVersion.target = RsJunctionViewer.OldVersion.target = RsJunctionViewer.NewVersion.ToD = RsJunctionViewer.OldVersion.ToD = "NONE"
RsJunctionViewer.NewVersion.vNum = RsJunctionViewer.OldVersion.vNum = "NONE"
VersionCurrent.text = VersionPrevious.text = NotLoadedText
VersionCurrent.enabled = VersionPrevious.enabled = CurrSurround.enabled = PrevSurround.enabled = DiffSurround.enabled = false
local parsedCSVName = RsJunctionViewer.ParseFileName RsJunctionViewer.currCSVName
RsJunctionViewer.NewVersion = parsedCSVName
local NewVersionText = RsJunctionViewer.NewVersion.target + " " + RsJunctionViewer.NewVersion.vNum
if csv_file != undefined then
(
if active_juncs.count > 0 then
(
-- Delete old markers
local oldMarkers = #()
for junc in active_juncs do
(
if ( not isDeleted junc.marker) then append oldMarkers junc.marker
)
delete oldMarkers
)
active_juncs = #()
ReadHeader csv_file
-- Override Previous CSV data when new Current CSV is loaded --
TrackedVersion.state = 1
TrackedVersion.enabled = false
UseCurrent.enabled = UsePrevious.enabled = UseDiff.enabled = false
PrevFileName.text = " NONE SELECTED"
PrevFileName.enabled = false
PrevFileCount.text = NotLoadedText
PrevFileCount.enabled = false
CompareCount.text = " N/A"
CompareCount.enabled = false
local indexcheckstat = JuncField.Main + JuncField.VRAM
local indexchecksum = JuncField.VRAMScene + JuncField.MainScene + JuncField.VRAMAvail + JuncField.MainAvail
if indexcheckstat > indexchecksum then memorycheck = indexcheckstat else memorycheck = indexchecksum
if JuncField.Name + JuncField.X + JuncField.Y + JuncField.Z + memorycheck < 0 then -- everything else is ignorable
(
CurrFileName.text = " !!! PROBLEM WITH CSV !!!"
CurrFileName.enabled = false
CurrFileCount.text = NotLoadedText
CurrFileCount.enabled = false
local errorText = "Bad CURRENT CSV : Missing fields " -- report everything including the ignorable missing fields
if JuncField.Name < 0 then errorText += " - Name"
if JuncField.X < 0 then errorText += " - X_coord"
if JuncField.Y < 0 then errorText += " - Y_coord"
if JuncField.Z < 0 then errorText += " - Z_coord"
if JuncField.Main < 0 then errorText += " - Main"
if JuncField.VRAM < 0 then errorText += " - VRAM"
if JuncField.VRAMScene < 0 then errorText += " - VRAM_Scene"
if JuncField.MainScene < 0 then errorText += " - Main_Scene"
if JuncField.VRAMAvail < 0 then errorText += " - VRAM_Avail"
if JuncField.MainAvail < 0 then errorText += " - Main_Avail"
if JuncField.ArchNum < 0 then errorText += " - Archetype_Num"
errorText += "\nEither you've attempted to load something that isn't a junction test CSV, or the format has changed...\n"
messageBox errorText title:"Problem with CSV file"
KillWidgets() -- The penalty for trying to load an invalid CSV is you don't get to play no more
)
else
(
VersionCurrent.text = NewVersionText
VersionCurrent.enabled = true ; CurrSurround.enabled = true
local vram_actual = 0
local main_actual = 0
while not eof csv_file do
(
local nextCSVline = readline csv_file
local CSVdata = filterstring nextCSVline ","
--junc_main = CSVdata[JuncField.Main] as float -- Keeping these lines as a reminder about the extra unused data in the CSVs --
--junc_vram = CSVdata[JuncField.VRAM] as float
--junc_archmem = CSVdata[JuncField.ArchMem] as float
--junc_mainused = CSVdata[JuncField.MainUsed] as float
--junc_vramused = CSVdata[JuncField.VRAMUsed] as float
local junc_name = CSVdata[JuncField.Name]
local junc_x = CSVdata[JuncField.X] as float
local junc_y = CSVdata[JuncField.Y] as float
local junc_z = CSVdata[JuncField.Z] as float
if JuncField.ArchNum > 0 then junc_archnum = CSVdata[JuncField.ArchNum] as float else junc_archnum = 0 -- catch missing archetype data
local arch_num = junc_archnum / 1000
if (indexchecksum > 0) then
(
local junc_mainavail = CSVdata[JuncField.MainAvail] as float
local junc_vramavail = CSVdata[JuncField.VRAMAvail] as float
local junc_mainscene = CSVdata[JuncField.MainScene] as float
local junc_vramscene = CSVdata[JuncField.VRAMScene] as float
if ((junc_mainavail + junc_vramavail) > 0) then
(
vram_actual = (junc_vramscene - junc_vramavail) / 1024
main_actual = (junc_mainscene - junc_mainavail) / 1024
)
else
(
-- available memory = 0 --> next gen USED at least
-- default to VRAM and Main readin
vram_actual = CSVdata[JuncField.VRAM] as float / 1024
main_actual = CSVdata[JuncField.Main] as float / 1024
)
)
else
(
-- missing indices --> old data
-- default to VRAM and Main readin
vram_actual = CSVdata[JuncField.VRAM] as float / 1024
main_actual = CSVdata[JuncField.Main] as float / 1024
)
local next_junction = junction name:junc_name
local next_junction = junction name:junc_name xcoord:junc_x ycoord:junc_y zcoord:junc_z main:main_actual vram:vram_actual main_compare:0 vram_compare:0 archetypes:arch_num archetypes_compare:0 bad_junc:false tracked_stat:StatVal
appendIfUnique active_juncs next_junction
CurrSurround.value = mod active_juncs.count 100
VersionCurrent.enabled = true
)
close csv_file
CurrSurround.value = 100
VersionCurrent.enabled = true
UseCurrent.enabled = true
ActivateWidgets()
CurrFileCount.text = active_juncs.count as string
--CurrFileCount.enabled = true -- Might keep this one disabled unless we go mental with junction counts - box will display up to 9999 easily, probably up to 19999
)
)
else
(
CurrFileName.text = " !!! Missing CSV !!!"
KillWidgets()
) --else Undefined CSV File
)
fn LoadPrevCSV =
( -- Load PREVIOUS data - separate function, since it modifies the existing active_juncs array... common data only tracked properly, no check to see whether the locations match yet...
local csv_file = openFile RsJunctionViewer.prevCSVName
if csv_file != undefined then
(
ReadHeader csv_file
local indexcheckstat = JuncField.Main + JuncField.VRAM
local indexchecksum = JuncField.VRAMScene + JuncField.MainScene + JuncField.VRAMAvail + JuncField.MainAvail
if indexcheckstat > indexchecksum then memorycheck = indexcheckstat else memorycheck = indexchecksum
if JuncField.Name + JuncField.X + JuncField.Y + JuncField.Z + memorycheck < 0 then -- everything else is ignorable
(
--SwapCSVs.enabled = false
TrackedVersion.state = 1
TrackedVersion.enabled = false
UseCurrent.enabled = UsePrevious.enabled = UseDiff.enabled = false
PrevFileName.enabled = false
PrevFileName.text = " !!! PROBLEM WITH CSV !!!"
PrevFileCount.text = NotLoadedText
PrevFileCount.enabled = false
CompareCount.text = " N/A"
CompareCount.enabled = false
local errorText = "Bad PREVIOUS CSV : Missing fields "
if JuncField.Name < 0 then errorText += " - Name"
if JuncField.X < 0 then errorText += " - X_coord"
if JuncField.Y < 0 then errorText += " - Y_coord"
if JuncField.Z < 0 then errorText += " - Z_coord"
if JuncField.Main < 0 then errorText += " - Main"
if JuncField.VRAM < 0 then errorText += " - VRAM"
if JuncField.VRAMScene < 0 then errorText += " - VRAM_Scene"
if JuncField.MainScene < 0 then errorText += " - Main_Scene"
if JuncField.VRAMAvail < 0 then errorText += " - VRAM_Avail"
if JuncField.MainAvail < 0 then errorText += " - Main_Avail"
if JuncField.ArchNum < 0 then errorText += " - Archetype_Num"
errorText += "\nEither you've attempted to load something that isn't a junction test CSV, or the format has changed...\n"
messageBox errorText title:"Problem with CSV file"
)
else
(
-- Parse the file name to extract equivalent junction test result .zip info (hopefully... convension has changed from v315)
-- just need the version number here, since the other info should be set up from the other loadfile button...
RsJunctionViewer.OldVersion.vNum = "NONE"
RsJunctionViewer.OldVersion.target = RsJunctionViewer.OldVersion.ToD = ""
VersionPrevious.text = NotLoadedText
VersionPrevious.enabled = false
--parsedCSVName = RsJunctionViewer.ParseFileName RsJunctionViewer.prevCSVName
--RsJunctionViewer.compareOldTarget = parsedCSVName.target
--RsJunctionViewer.compareOldTimeOfDay = parsedCSVName.ToD
--RsJunctionViewer.compareOldVersion = parsedCSVName.vNum
RsJunctionViewer.OldVersion = RsJunctionViewer.ParseFileName RsJunctionViewer.prevCSVName
local OldVersionText = RsJunctionViewer.OldVersion.target + " " + RsJunctionViewer.OldVersion.vNum
local OldNum = (trimleft RsJunctionViewer.OldVersion.vNum "v") as integer
local NewNum = (trimleft RsJunctionViewer.NewVersion.vNum "v") as integer
if (RsJunctionViewer.NewVersion.target != RsJunctionViewer.OldVersion.target) then
(
case of
(
(OldNum < NewNum):(PrevSurround.color = [220, 180, 30]) -- not entirel sure, if named correctly probably wrong
(OldNum > NewNum):(PrevSurround.color = [255,130,20]) -- probably wrong
(OldNum == NewNum):(PrevSurround.color = [20,130,255]) -- possibly valid, but unusual
)
)
else
(
case of
(
(OldNum < NewNum):(PrevSurround.color = [60,220,60]) -- correct
(OldNum > NewNum):(PrevSurround.color = [255,180,20]) -- probably wrongish
(OldNum == NewNum):(PrevSurround.color = [60,60,60]) -- identical
)
)
VersionPrevious.text = OldVersionText
local previousJuncCount = 0
local foundJuncs = 0
PrevSurround.enabled = true
PrevSurround.value = 0
TrackedVersion.state = 3
TrackedVersion.enabled = true
VersionPrevious.enabled = true
PrevFileName.enabled = true
UseCurrent.enabled = UsePrevious.enabled = UseDiff.enabled = true
while not eof csv_file do
(
--SwapCSVs.enabled = true -- Removed button
local nextCSVline = readline csv_file
local CSVdata = filterstring nextCSVline ","
local vram_actual = 0
local main_actual = 0
local junc_name = CSVdata[JuncField.Name]
local junc_x = CSVdata[JuncField.X] as float
local junc_y = CSVdata[JuncField.Y] as float
local junc_z = CSVdata[JuncField.Z] as float
if JuncField.ArchNum > 0 then junc_archnum = CSVdata[JuncField.ArchNum] as float else junc_archnum = 0 -- catch missing archetype data
local arch_num = junc_archnum / 1000
if indexchecksum > 0 then
(
local junc_mainavail = CSVdata[JuncField.MainAvail] as float
local junc_vramavail = CSVdata[JuncField.VRAMAvail] as float
local junc_mainscene = CSVdata[JuncField.MainScene] as float
local junc_vramscene = CSVdata[JuncField.VRAMScene] as float
if ((junc_mainavail + junc_vramavail) > 0) then
(
vram_actual = (junc_vramscene - junc_vramavail) / 1024
main_actual = (junc_mainscene - junc_mainavail) / 1024
)
else
(
-- available memory = 0 --> next gen USED at least
-- default to VRAM and Main readin
vram_actual = CSVdata[JuncField.VRAM] as float / 1024
main_actual = CSVdata[JuncField.Main] as float / 1024
)
)
else
(
vram_actual = CSVdata[JuncField.VRAM] as float / 1024
main_actual = CSVdata[JuncField.Main] as float / 1024
)
previousJuncCount += 1
local found = false
local index = 0
while index < active_juncs.count do
(
index += 1
if junc_name == active_juncs[index].name then
(
if found then format "Duplicate junction names in CURRENT CSV : %\n" active_juncs[index].name
foundJuncs += 1 -- could add found test so that overlap never excedes previous count, but useful to have it displayed on the widget as well as the Listener error message above
found = true
active_juncs[index].main_compare = active_juncs[index].main - main_actual
active_juncs[index].vram_compare = active_juncs[index].vram - vram_actual
active_juncs[index].archetypes_compare = active_juncs[index].archetypes - arch_num
PrevSurround.value = (((foundJuncs as float)/ active_juncs.count) * 100) as integer
VersionPrevious.enabled = true
)
)
if found == false then format "Couldn't find % in CURRENT version\n" junc_name -- A bit spammy for some junction files, but probably useful enough debug info to keep this
)
close csv_file
PrevSurround.value = 100
VersionPrevious.enabled = true
PrevFileCount.text = previousJuncCount as string
--PrevFileCount.enabled = true -- Might keep this one disabled depending on whether we go mental with junction counts
DiffSurround.enabled = true
case of
(
(foundJuncs == 0):(DiffSurround.color = [255,30,20])
(active_juncs.count > foundJuncs):(DiffSurround.color = [60,220,60])
(active_juncs.count < foundJuncs):(DiffSurround.color = [255,160,20])
default:(DiffSurround.color = [60,220,60])
)
CompareCount.text = foundJuncs as string
CompareCount.enabled = false ; CompareCount.enabled = true
--CompareCount.enabled = true -- smaller number than the one above... still may have to be enabled
)
)
else
(
PrevFileName.text = " !!! Missing CSV !!!"
) --else Undefined CSV File
)
fn ProcessActiveCSV =
( -- Main processing function... Create missing junction marker boxes, track appropriate stats, set marker values according to track settings (animation doings disabled...)
if active_juncs.count > 0 then
(
ChangePreviousCSV.enabled = true
WorstJunc = -1000.0
BestJunc = 1000.0
WorstCount = 0
DropThresh = case DropJunctions.state of
(
1: (0.0)
2: (WorstThreshold.value)
3: (WorstJunc + 1.0)
)
)
else
(
KillWidgets() -- Probably off already, but no harm in doing it again
)
TrackedMean = 0.0
local ThreshCounts = #(0,0,0,0,0,0,0,0)
--CurrSurround.value = 0
--VersionCurrent.enabled = true
--for junc in active_juncs do
for index = 1 to active_juncs.count do
(
--CurrSurround.value = ((index as float / active_juncs.count) * 100) as integer -- Marginally useful, processing fairly quick... this was slowing it down perceptably
--VersionCurrent.enabled = true
local junc = active_juncs[index]
if (junc.marker == undefined) or (junc.marker.isDeleted) then
(
local next_box =getNodeByName junc.name exact:true
if next_box == undefined then
(
--format "Creating junction marker : %\n" junc.name
next_box = box length:4 width:4 height:4 -- Box is missing, so make a new one
next_box.name = junc.name
next_box.pos = [junc.xcoord, junc.ycoord, junc.zcoord]
) -- end if create missing box
junc.marker = next_box
)
else
(
local next_box = junc.marker
)
if classOf next_box.baseobject == box then
(
if next_box.modifiers.count == 2 then
(
delete next_box -- deleting and re-creating much faster than removing the modifiers
next_box = box length:4 width:4 height:4
next_box.name = junc.name
next_box.pos = [junc.xcoord, junc.ycoord, junc.zcoord]
)
if next_box.material != undefined then
(
next_box.material = undefined
)
local height_actual = 0
local width_actual = 0
case TrackedVersion.state of
(
1:
( -- CURRENT
case HeightOptions.state of
(
1: ( height_actual = junc.main )
2: ( height_actual = junc.vram )
3: ( height_actual = junc.main + junc.vram )
4: ( height_actual = junc.archetypes )
5: ( height_actual = 0.0 )
) -- end case setup Main on height/width
case WidthOptions.state of
(
1: ( width_actual = junc.main )
2: ( width_actual = junc.vram )
3: ( width_actual = junc.main + junc.vram )
4: ( width_actual = junc.archetypes )
5: ( width_actual = 0.0 )
) -- end case setup VRAM on height/width
)
2:
( -- PREVIOUS
case HeightOptions.state of
(
1: ( height_actual = junc.main - junc.main_compare )
2: ( height_actual = junc.vram - junc.vram_compare )
3: ( height_actual = (junc.main - junc.main_compare) + (junc.vram - junc.vram_compare) )
4: ( height_actual = junc.archetypes - junc.archetypes_compare )
5: ( height_actual = 0.0 )
) -- end case setup Main on height/width
case WidthOptions.state of
(
1: ( width_actual = junc.main - junc.main_compare )
2: ( width_actual = junc.vram - junc.vram_compare )
3: ( width_actual = (junc.main - junc.main_compare)+ (junc.vram - junc.vram_compare))
4: ( width_actual = junc.archetypes - junc.archetypes_compare )
5: ( width_actual = 0.0 )
) -- end case setup VRAM on height/width
)
default:
( -- DIFF
case HeightOptions.state of
(
1: ( height_actual = junc.main_compare )
2: ( height_actual = junc.vram_compare )
3: ( height_actual = junc.main_compare + junc.vram_compare )
4: ( height_actual = junc.archetypes_compare )
5: ( height_actual = 0.0 )
) -- end case setup Main on height/width
case WidthOptions.state of
(
1: ( width_actual = junc.main_compare )
2: ( width_actual = junc.vram_compare )
3: ( width_actual = junc.main_compare + junc.vram_compare )
4: ( width_actual = junc.archetypes_compare )
5: ( width_actual = 0.0 )
) -- end case setup VRAM on height/width
)
)
height_actual += HeightOffset.value
width_actual += WidthOffset.value -- !!! Replaced
if ZeroZ.state then ( next_box.pos.z = 0.0 ) else ( next_box.pos.z = junc.zcoord )
local ColVal = 0
case TrackedVersion.state of
(
1:
( -- CURRENT
ColVal = case TrackedStat.state of
(
1: junc.main
2: junc.vram
3: junc.main + junc.vram
4: junc.archetypes
5: 0.0
6: width_actual
7: height_actual
) -- end case choose value for colour from curent values
)
2:
( -- PREVIOUS
ColVal = case TrackedStat.state of
(
1: junc.main - junc.main_compare
2: junc.vram - junc.vram_compare
3: (junc.main - junc.main_compare) + (junc.vram - junc.vram_compare)
4: junc.archetypes - junc.archetypes_compare
5: 0.0
6: width_actual
7: height_actual
) -- end case choose value for colour from comparison values
)
default:
( -- DIFF
ColVal = case TrackedStat.state of
(
1: junc.main_compare
2: junc.vram_compare
3: junc.main_compare + junc.vram_compare
4: junc.archetypes_compare
5: 0.0
6: width_actual
7: height_actual
) -- end case choose value for colour from comparison values
)
)
if PositiveWidths.state then if width_actual < 0 then width_actual = 0
junc.tracked_stat = ColVal
TrackedMean += ColVal
if ColVal > WorstJunc then WorstJunc = ColVal
if ColVal < BestJunc then BestJunc = ColVal
if ColVal > WorstThreshold.value then
(
WorstCount += 1
junc.bad_junc = true
)
else
(
junc.bad_junc = false
)
if ColVal <= DropThresh then
(
next_box.pos.z -= DropAmount.value -- move in-budget boxes down
if HideBest.state then
(
next_box.ishidden = true
)
else
(
next_box.ishidden = false
)
)
else
(
next_box.ishidden = false
)
next_box.height = height_actual
next_box.width = width_actual
next_box.length = width_actual
next_box.scale = [WidthMult.value, WidthMult.value, HeightMult.value]
local VCoord = 0.0 -- not strictly needed
if not SmthGrad.state then
(
case of
(
(ColVal < Col9Thresh.value): (BoxColour = Col9Picker.color) -- dark blue ; UCoord = 0.4375
(ColVal < Col8Thresh.value): (BoxColour = Col8Picker.color ; ThreshCounts[8] += 1) -- blue ; UCoord = 0.4375
(ColVal < Col7Thresh.value): (BoxColour = Col7Picker.color ; ThreshCounts[7] += 1) -- cyan -- 6 swapped to 7 ; UCoord = 0.3125
(ColVal < Col5Thresh.value): (BoxColour = Col6Picker.color ; ThreshCounts[6] += 1) -- grey ; UCoord = 0.1875
(ColVal < Col4Thresh.value): (BoxColour = Col5Picker.color ; ThreshCounts[5] += 1) -- green ; UCoord = 0.0625
(ColVal < Col3Thresh.value): (BoxColour = Col4Picker.color ; ThreshCounts[4] += 1) -- yellow ; UCoord = -0.0625
(ColVal < Col2Thresh.value): (BoxColour = Col3Picker.color ; ThreshCounts[3] += 1) -- orange ; UCoord = -0.1875
(ColVal < Col1Thresh.value): (BoxColour = Col2Picker.color ; ThreshCounts[2] += 1) -- red ; UCoord = -0.3125
(ColVal >= Col1Thresh.value): (BoxColour = Col1Picker.color ; ThreshCounts[1] += 1) -- black ; UCoord = -0.4375
) -- end case wirecolour
) -- end if
else
(
case of
(
(ColVal < Col9Thresh.value): (
BoxColour = color Col9Picker.color.R Col9Picker.color.G Col9Picker.color.B
)
(ColVal < Col8Thresh.value): (
ColRatio = (ColVal - Col8Thresh.value) / (Col9Thresh.value - Col8Thresh.value)
BoxColour = color ((ColRatio * (Col9Picker.color.R - Col8Picker.color.R)) + Col8Picker.color.R) ((ColRatio * (Col9Picker.color.G - Col8Picker.color.G)) + Col8Picker.color.G) ((ColRatio * (Col9Picker.color.B - Col8Picker.color.B)) + Col8Picker.color.B)
ThreshCounts[8] += 1
)
(ColVal < Col7Thresh.value): (
ColRatio = (ColVal - Col7Thresh.value) / (Col8Thresh.value - Col7Thresh.value)
BoxColour = color ((ColRatio * (Col8Picker.color.R - Col7Picker.color.R)) + Col7Picker.color.R) ((ColRatio * (Col8Picker.color.G - Col7Picker.color.G)) + Col7Picker.color.G) ((ColRatio * (Col8Picker.color.B - Col7Picker.color.B)) + Col7Picker.color.B)
ThreshCounts[7] += 1
)
(ColVal < (Col5Thresh.value - LockGap)): (
ColRatio = (ColVal - (Col5Thresh.value - LockGap)) / (Col7Thresh.value - (Col5Thresh.value - LockGap))
BoxColour = color ((ColRatio * (Col7Picker.color.R - Col6Picker.color.R)) + Col6Picker.color.R) ((ColRatio * (Col7Picker.color.G - Col6Picker.color.G)) + Col6Picker.color.G) ((ColRatio * (Col7Picker.color.B - Col6Picker.color.B)) + Col6Picker.color.B)
ThreshCounts[6] += 1
)
(ColVal < Col5Thresh.value): (
ColRatio = (ColVal - Col5Thresh.value) / ((Col5Thresh.value - LockGap) - Col5Thresh.value)
BoxColour = color ((ColRatio * (Col6Picker.color.R - Col5Picker.color.R)) + Col5Picker.color.R) ((ColRatio * (Col6Picker.color.G - Col5Picker.color.G)) + Col5Picker.color.G) ((ColRatio * (Col6Picker.color.B - Col5Picker.color.B)) + Col5Picker.color.B)
ThreshCounts[5] += 1
)
(ColVal < Col4Thresh.value): (
ColRatio = (ColVal - Col4Thresh.value) / (Col5Thresh.value - Col4Thresh.value)
BoxColour = color ((ColRatio * (Col5Picker.color.R - Col4Picker.color.R)) + Col4Picker.color.R) ((ColRatio * (Col5Picker.color.G - Col4Picker.color.G)) + Col4Picker.color.G) ((ColRatio * (Col5Picker.color.B - Col4Picker.color.B)) + Col4Picker.color.B)
ThreshCounts[5] += 1
)
(ColVal < Col3Thresh.value): (
ColRatio = (ColVal - Col3Thresh.value) / (Col4Thresh.value - Col3Thresh.value)
BoxColour = color ((ColRatio * (Col4Picker.color.R - Col3Picker.color.R)) + Col3Picker.color.R) ((ColRatio * (Col4Picker.color.G - Col3Picker.color.G)) + Col3Picker.color.G) ((ColRatio * (Col4Picker.color.B - Col3Picker.color.B)) + Col3Picker.color.B)
ThreshCounts[4] += 1
)
(ColVal < Col2Thresh.value): (
ColRatio = (ColVal - Col2Thresh.value) / (Col3Thresh.value - Col2Thresh.value)
BoxColour = color ((ColRatio * (Col3Picker.color.R - Col2Picker.color.R)) + Col2Picker.color.R) ((ColRatio * (Col3Picker.color.G - Col2Picker.color.G)) + Col2Picker.color.G) ((ColRatio * (Col3Picker.color.B - Col2Picker.color.B)) + Col2Picker.color.B)
ThreshCounts[3] += 1
)
(ColVal < Col1Thresh.value): (
ColRatio = (ColVal - Col1Thresh.value) / (Col2Thresh.value - Col1Thresh.value)
BoxColour = color ((ColRatio * (Col2Picker.color.R - Col1Picker.color.R)) + Col1Picker.color.R) ((ColRatio * (Col2Picker.color.G - Col1Picker.color.G)) + Col1Picker.color.G) ((ColRatio * (Col2Picker.color.B - Col1Picker.color.B)) + Col1Picker.color.B)
ThreshCounts[2] += 1
)
(ColVal >=Col1Thresh.value): (
BoxColour = color Col1Picker.color.R Col1Picker.color.G Col1Picker.color.B
ThreshCounts[1] += 1
)
) -- end case pick colour using smooth gradient
) -- end else
next_box.wirecolor = BoxColour
) -- end if - Valid Box
else
(
format "Skipped % - not a Box primitive \n" junc_name
) -- end else - Invalid Box
)
qsort active_juncs CompareJuncs
if active_juncs.count > 0 then
(
WorstJunction.text = WorstJunc as string
BestJunction.text = BestJunc as string
if WorstCount == 0 then WorstCount = 1 --Happens when switching stat occasionally... needs to be > 0
WorstJunctionCount.range = [1, active_juncs.count, WorstCount]
WorstJunctionCount.enabled = true
WorstThreshold.range.x = BestJunc ; WorstThreshold.range.y = WorstJunc
ActivateWidgets()
TrackedMean = TrackedMean / active_juncs.count
) --end if - set up stat tracking widgets
if AutoSelect.state then
(
case AutoSelectType.state of
(
1:
(
clearselection()
local bad_juncs = #()
for index = 1 to WorstCount do
(
local badbox = active_juncs[index].marker--getnodebyname active_juncs[index].name exact:true
appendIfUnique bad_juncs badbox
)
select bad_juncs
)
2:
(
clearselection()
local badbox = active_juncs[WorstJunctionCount.value].marker--getnodebyname active_juncs[WorstJunctionCount.value].name exact:true
select badbox
if (RAGConnect.text == "CONNECTED") and (RemoteConnection.IsConnected()) then
( -- !!! Not sure this is a good idea... doesn't cause connection problems, so keeping it in...
local warpCoords = (selection[1].pos.x as string)+" "+(selection[1].pos.y as string)+" "+(selection[1].pos.z as string)
RemoteConnection.WriteStringWidget "Debug/Warp Player x y z h vx vy vz" warpCoords
)
)
)
)
Col1Count.text = ThreshCounts[1] as string
Col2Count.text = ThreshCounts[2] as string
Col3Count.text = ThreshCounts[3] as string
Col4Count.text = ThreshCounts[4] as string
Col5Count.text = ThreshCounts[5] as string
Col7Count.text = ThreshCounts[6] as string
Col8Count.text = ThreshCounts[7] as string
Col9Count.text = ThreshCounts[8] as string
)
---- THRESHOLD MANAGEMENT FUNCTIONS ----
fn UpdateThresholds Spinner =
( -- Here Be Horrible Logic... needs to trickle values down from 1 and up from 9 so spinners don't go out of bounds. Behaviour dependant on active spinner, previous state and whether ranges are scaled.
-- Check down from highest threshold...
if (Spinner != 2) then
(
if (Col2Thresh.value > (Col1Thresh.value - ThresholdGap)) then Col2Thresh.value = (Col1Thresh.value - ThresholdGap)
else if ((Col2Thresh.value < PrevThresh[2]) and (ScaleRanges.state == false)) then Col2Thresh.value = RsJunctionViewer.FMin (Col1Thresh.value - ThresholdGap) PrevThresh[2]
)
if (Spinner != 3) then
(
if (Col3Thresh.value > (Col2Thresh.value - ThresholdGap)) then Col3Thresh.value = (Col2Thresh.value - ThresholdGap)
else if ((Col3Thresh.value < PrevThresh[3]) and (ScaleRanges.state == false)) then Col3Thresh.value = RsJunctionViewer.FMin (Col2Thresh.value - ThresholdGap) PrevThresh[3]
)
if (Spinner != 4) then
(
if (Col4Thresh.value > (Col3Thresh.value - ThresholdGap)) then Col4Thresh.value = (Col3Thresh.value - ThresholdGap)
else if ((Col4Thresh.value < PrevThresh[4]) and (ScaleRanges.state == false)) then Col4Thresh.value = RsJunctionViewer.FMin (Col3Thresh.value - ThresholdGap) PrevThresh[4]
)
if (Spinner != 5) then
(
if (Col5Thresh.value > (Col4Thresh.value - ThresholdGap)) then (Col5Thresh.value = (Col4Thresh.value - ThresholdGap) )
else if ((Col5Thresh.value < PrevThresh[5]) and (ScaleRanges.state == false)) then Col5Thresh.value = RsJunctionViewer.FMin (Col4Thresh.value - ThresholdGap) PrevThresh[5]
)
if (Spinner != 7) then
(
if (Col7Thresh.value > (Col5Thresh.value - ThresholdGap)) then Col7Thresh.value = (Col5Thresh.value - ThresholdGap)
else if ((Col7Thresh.value < PrevThresh[7]) and (ScaleRanges.state == false)) then Col7Thresh.value = RsJunctionViewer.FMin (Col5Thresh.value - ThresholdGap) PrevThresh[7]
)
if (Spinner != 8) then
(
if (Col8Thresh.value > (Col7Thresh.value - ThresholdGap)) then Col8Thresh.value = (Col7Thresh.value - ThresholdGap)
else if ((Col8Thresh.value < PrevThresh[8]) and (ScaleRanges.state == false)) then Col8Thresh.value = RsJunctionViewer.FMin (Col7Thresh.value - ThresholdGap) PrevThresh[8]
)
if (Spinner != 9) then
(
if (Col9Thresh.value > (Col8Thresh.value - ThresholdGap)) then Col9Thresh.value = (Col8Thresh.value - ThresholdGap)
else if ((Col9Thresh.value < PrevThresh[9]) and (ScaleRanges.state == false)) then Col9Thresh.value = RsJunctionViewer.FMin (Col8Thresh.value - ThresholdGap) PrevThresh[9]
)
-- And up from lowest threshold
if (Spinner != 8) then
(
if Col8Thresh.value < (Col9Thresh.value + ThresholdGap) then Col8Thresh.value = (Col9Thresh.value + ThresholdGap)
else if ((Col8Thresh.value > PrevThresh[8]) and (ScaleRanges.state == false)) then Col8Thresh.value = RsJunctionViewer.FMax (Col9Thresh.value + ThresholdGap) PrevThresh[8]
)
if (Spinner != 7) then
(
if Col7Thresh.value < (Col8Thresh.value + ThresholdGap) then Col7Thresh.value = (Col8Thresh.value + ThresholdGap)
else if ((Col8Thresh.value > PrevThresh[7]) and (ScaleRanges.state == false)) then Col7Thresh.value = RsJunctionViewer.FMax (Col8Thresh.value + ThresholdGap) PrevThresh[7]
)
if (Spinner != 5) then
(
if Col5Thresh.value < (Col7Thresh.value + ThresholdGap) then (Col5Thresh.value = (Col7Thresh.value + ThresholdGap) )
else if ((Col5Thresh.value > PrevThresh[5]) and (ScaleRanges.state == false)) then Col5Thresh.value = RsJunctionViewer.FMax (Col7Thresh.value + ThresholdGap) PrevThresh[5]
)
if (Spinner != 4) then
(
if Col4Thresh.value < (Col5Thresh.value + ThresholdGap) then Col4Thresh.value = (Col5Thresh.value + ThresholdGap)
else if ((Col4Thresh.value > PrevThresh[4]) and (ScaleRanges.state == false)) then Col4Thresh.value = RsJunctionViewer.FMax (Col5Thresh.value + ThresholdGap) PrevThresh[4]
)
if (Spinner != 3) then
(
if Col3Thresh.value < (Col4Thresh.value + ThresholdGap) then Col3Thresh.value = (Col4Thresh.value + ThresholdGap)
else if ((Col3Thresh.value > PrevThresh[3]) and (ScaleRanges.state == false)) then Col3Thresh.value = RsJunctionViewer.FMax (Col4Thresh.value + ThresholdGap) PrevThresh[3]
)
if (Spinner != 2) then
(
if Col2Thresh.value < (Col3Thresh.value + ThresholdGap) then Col2Thresh.value = (Col3Thresh.value + ThresholdGap)
else if ((Col2Thresh.value > PrevThresh[2]) and (ScaleRanges.state == false)) then Col2Thresh.value = RsJunctionViewer.FMax (Col3Thresh.value + ThresholdGap) PrevThresh[2]
)
if (Spinner != 1) then
(
if Col1Thresh.value < (Col2Thresh.value + ThresholdGap) and (Spinner !=1) then Col1Thresh.value = (Col2Thresh.value + ThresholdGap)
else if ((Col1Thresh.value > PrevThresh[1]) and (ScaleRanges.state == false)) then Col1Thresh.value = RsJunctionViewer.FMax (Col2Thresh.value + ThresholdGap) PrevThresh[1]
)
)
fn ManageThresholds Spinner =
( -- Deals with scaling ranges when Spinner is changing, and calls UpdateThresholds to stop out of bounds spinners
local HighRatio = 0
local LowRatio = 0
local LowSpinner = 9
local HighSpinner = 1
StoreThresholds.enabled = ResetThresholdValues.enabled = true
if ScaleRanges.state then
(
-- Determine affected high/low range from the active spinner, and check if it's gone out of bounds
if LockZero.state then
(
case of
(
(Spinner < 5): ( LowSpinner = 9 ; HighSpinner = Spinner )
(Spinner > 5): ( LowSpinner = Spinner ; HighSpinner = 1 )
(Spinner == 5): ( LowSpinner = 9 ; HighSpinner = 1 )
)
HighRatio = (CurrThresh[HighSpinner] - CurrThresh[5]) / (PrevThresh[HighSpinner] - PrevThresh[5])
LowRatio = (CurrThresh[5] - CurrThresh[LowSpinner]) / (PrevThresh[5] - PrevThresh[LowSpinner])
Col9Thresh.value = ((PrevThresh[9] - PrevThresh[LowSpinner]) * LowRatio) + CurrThresh[LowSpinner]
Col8Thresh.value = ((PrevThresh[8] - PrevThresh[LowSpinner]) * LowRatio) + CurrThresh[LowSpinner]
Col7Thresh.value = ((PrevThresh[7] - PrevThresh[LowSpinner]) * LowRatio) + CurrThresh[LowSpinner]
Col5Thresh.value = CurrThresh[5]
Col4Thresh.value = ((PrevThresh[4] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
Col3Thresh.value = ((PrevThresh[3] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
Col2Thresh.value = ((PrevThresh[2] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
Col1Thresh.value = ((PrevThresh[1] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
)
else
(
case of
(
(Spinner < 5): ( LowSpinner = HighSpinner = 9 )
(Spinner > 5): ( LowSpinner = HighSpinner = 1 )
(Spinner == 5): ( LowSpinner = 9 ; HighSpinner = 1 )
)
HighRatio = (CurrThresh[HighSpinner] - CurrThresh[Spinner]) / (PrevThresh[HighSpinner] - PrevThresh[Spinner])
LowRatio = (CurrThresh[Spinner] - CurrThresh[LowSpinner]) / (PrevThresh[Spinner] - PrevThresh[LowSpinner])
Col9Thresh.value = ((PrevThresh[9] - PrevThresh[LowSpinner]) * LowRatio) + CurrThresh[LowSpinner]
Col8Thresh.value = ((PrevThresh[8] - PrevThresh[LowSpinner]) * LowRatio) + CurrThresh[LowSpinner]
Col7Thresh.value = ((PrevThresh[7] - PrevThresh[LowSpinner]) * LowRatio) + CurrThresh[LowSpinner]
Col5Thresh.value = ((PrevThresh[5] - PrevThresh[LowSpinner]) * LowRatio) + CurrThresh[LowSpinner]
Col4Thresh.value = ((PrevThresh[4] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
Col3Thresh.value = ((PrevThresh[3] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
Col2Thresh.value = ((PrevThresh[2] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
Col1Thresh.value = ((PrevThresh[1] - PrevThresh[HighSpinner]) * HighRatio) + CurrThresh[HighSpinner]
)
)
UpdateThresholds Spinner
ProcessActiveCSV()
)
fn UpdateThreshArrays =
( -- Called on spinner entered. Updates the previous and current threshold tables (used to deal with scaling ranges)
CurrThresh[9] = Col9Thresh.value
CurrThresh[8] = Col8Thresh.value
CurrThresh[7] = Col7Thresh.value
CurrThresh[6] = Col5Thresh.value - LockGap
CurrThresh[5] = Col5Thresh.value
CurrThresh[4] = Col4Thresh.value
CurrThresh[3] = Col3Thresh.value
CurrThresh[2] = Col2Thresh.value
CurrThresh[1] = Col1Thresh.value
PrevThresh = deepcopy CurrThresh
)
fn RecalculateRange =
( -- Called when tracked stat changes and ScaleRanges is ticked. Used to update the thresholds.
if LockZero.state then (Col5Thresh.value = CurrThresh[5] = 0.0 ) else (Col5Thresh.value = CurrThresh[5] = TrackedMean)
Col9Thresh.value = CurrThresh[9] = BestJunc
Col1Thresh.value = CurrThresh[1] = WorstJunc
ManageThresholds 5
)
---- TRACKING FUNCTIONS ----
fn SelectWorstJuncs =
(
clearselection()
local bad_juncs = #()
if AutoSelectType.state == 1 then
(
for index = 1 to WorstCount do
(
local badbox = active_juncs[index].marker
appendIfUnique bad_juncs badbox
)
)
else
(
local bad_juncs = active_juncs[WorstJunctionCount.value].marker
)
select bad_juncs
)
---- THRESHOLD RESET FUNCTIONS ----
fn ResetValues =
( -- Reset to Default values
Col1Thresh.value = PrevThresh[1] = Threshes[ResetOption.selection].val1
Col2Thresh.value = PrevThresh[2] = Threshes[ResetOption.selection].val2
Col3Thresh.value = PrevThresh[3] = Threshes[ResetOption.selection].val3
Col4Thresh.value = PrevThresh[4] = Threshes[ResetOption.selection].val4
Col5Thresh.value = PrevThresh[5] = Threshes[ResetOption.selection].val5
Col7Thresh.value = PrevThresh[7] = Threshes[ResetOption.selection].val7
Col8Thresh.value = PrevThresh[8] = Threshes[ResetOption.selection].val8
Col9Thresh.value = PrevThresh[9] = Threshes[ResetOption.selection].val9
CurrThresh = deepCopy PrevThresh
ResetThresholdValues.enabled = false
StoreThresholds.enabled = ResetThresholdColours.enabled
ProcessActiveCSV()
)
fn ResetColours =
( -- Reset to Default Colour scheme
Col1Picker.color = Threshes[ResetOption.selection].col1
Col2Picker.color = Threshes[ResetOption.selection].col2
Col3Picker.color = Threshes[ResetOption.selection].col3
Col4Picker.color = Threshes[ResetOption.selection].col4
Col5Picker.color = Threshes[ResetOption.selection].col5
Col6Picker.color = Threshes[ResetOption.selection].col6
Col7Picker.color = Threshes[ResetOption.selection].col7
Col8Picker.color = Threshes[ResetOption.selection].col8
Col9Picker.color = Threshes[ResetOption.selection].col9
ResetThresholdColours.enabled = false
StoreThresholds.enabled = ResetThresholdValues.enabled
ProcessActiveCSV()
)
---- VISUALISER EVENTS ----
---- FILE EVENTS ----
on ChangeCurrentCSV pressed do
(
RsJunctionViewer.currCSVName = getOpenFileName caption:"Select CSV to Visualise" filename:RsJunctionViewer.currCSVName types:"CSV (*.csv)|*.csv|All Files (*.*)|*.*|"
if RsJunctionViewer.currCSVName == undefined then
(
RsJunctionViewer.currCSVName = RsJunctionViewer.DefaultCurrCSVName
CurrFileName.text = filenameFromPath RsJunctionViewer.DefaultCurrCSVName
)
else
(
CurrFileName.text = filenameFromPath RsJunctionViewer.currCSVName
)
CurrFileName.enabled = true
LoadCurrCSV()
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on ChangePreviousCSV pressed do
(
RsJunctionViewer.prevCSVName = getOpenFileName caption:"Select Previous version CSV to Compare" filename:RsJunctionViewer.prevCSVName types:"CSV (*.csv)|*.csv|All Files (*.*)|*.*|"
if RsJunctionViewer.prevCSVName == undefined then
(
RsJunctionViewer.prevCSVName = RsJunctionViewer.DefaultCurrCSVName
PrevFileName.text = filenameFromPath RsJunctionViewer.DefaultPrevCSVName
)
else
(
PrevFileName.text = filenameFromPath RsJunctionViewer.prevCSVName
)
LoadPrevCSV()
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on LoadCurrentCSV pressed do
(
LoadCurrCSV()
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on LoadPreviousCSV pressed do
(
LoadPrevCSV()
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on UseCurrent pressed do
(
if TrackedVersion.state != 2 then
(
CurrSurround.enabled = true ; PrevSurround.enabled = false ; DiffSurround.enabled = false
VersionCurrent.enabled = false ; CompareCount.enabled = false ; VersionCurrent.enabled = true ; VersionPrevious.enabled = false
TrackedVersion.state = 2
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
)
on UsePrevious pressed do
(
if TrackedVersion.state != 1 then
(
CurrSurround.enabled = false ; PrevSurround.enabled = true ; DiffSurround.enabled = false
VersionCurrent.enabled = false ; CompareCount.enabled = false ; VersionPrevious.enabled = false ; VersionPrevious.enabled = true
TrackedVersion.state = 1
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
)
on UseDiff pressed do
(
if TrackedVersion.state != 3 then
(
CurrSurround.enabled = true ; PrevSurround.enabled = true ; DiffSurround.enabled = true
VersionCurrent.enabled = false ; VersionPrevious.enabled = false ; CompareCount.enabled = false
VersionCurrent.enabled = true ; VersionPrevious.enabled = true ; CompareCount.enabled = true
TrackedVersion.state = 3
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
)
---- STAT TRACKING EVENTS ----
on WorstThreshold changed ArgIgnore do ProcessActiveCSV()
on DropAmount changed ArgIgnore do ProcessActiveCSV()
on HideBest changed ArgIgnore do ProcessActiveCSV()
on DropJunctions changed DropType do
( -- Drop Worst Junctions + disable Hide if Off
if (DropType < 3) then
(
HideBest.enabled = true
)
else
(
HideBest.enabled = false
)
ProcessActiveCSV()
)
on WorstJunctionCount changed NewWorstCount do
( -- Gets the Tracked Stat value of the new N Worst Junctions and performs a Process
WorstThreshold.range.z = active_juncs[NewWorstCount].tracked_stat - 0.01
ProcessActiveCSV()
)
on SelectWorst pressed do ( SelectWorstJuncs() )
on AutoSelectType changed ArgIgnore do ( if AutoSelect.checked then SelectWorstJuncs() )
on RAGConnect pressed do
( -- Connect to RAG if it's present
if (RAGConnect.text == "CONNECT") then
(
RemoteConnection.Connect()
if ( RemoteConnection.IsConnected() ) then
(
ZeroZ.state = false
RAGConnect.text = "CONNECTED"
RAGSurround.enabled = true
WarpTo.enabled = true
--Analyse.enabled = true
)
else
(
messageBox "Couldn't connect to game.\nMake sure it's running with RAG..." beep:true
)
)
)
on RAGSurround clicked ArgIgnore do
( -- Draws over RAGConnect - so works as a Disconnect button
RAGSurround.enabled = false
RAGConnect.text = "CONNECT"
WarpTo.enabled = false
Analyse.enabled = false
)
on WarpTo pressed do
( -- Quick version without callback. Only warps to selection[1].pos - Also Auto-Disconnects if RAG is missing.
if (RAGConnect.text == "CONNECTED") and (RemoteConnection.IsConnected()) then
(
if selection.count > 0 then
(
local warpCoords = (selection[1].pos.x as string)+" "+(selection[1].pos.y as string)+" "+(selection[1].pos.z as string)
RemoteConnection.WriteStringWidget "Debug/Warp Player x y z h vx vy vz" warpCoords
)
)
else
(
if (RAGConnect.text == "CONNECTED") then
(
RAGConnect.text = "CONNECT"
RAGSurround.enabled = false
WarpTo.enabled = false
--Analyse.enabled = false
)
)
)
/*
on Analyse pressed do
(
RemoteConnection.Connect()
RemoteConnection.WriteBoolWidget "Scene/Create Scene widgets" true
RemoteConnection.WriteBoolWidget "Renderer/Create Renderer widgets" true
RemoteConnection.WriteBoolWidget "Streaming & Memory/Create streaming memory widgets" true
-- !!!! ANALYSER MOVED TO SEPARATE SCRIPT
)
*/
---- MARKER SCALE/POSITION EVENTS ----
on TrackedStat changed ArgIgnore do
(
if TrackLink.state then
(
case TrackedStat.state of
(
1:(HeightOptions.state = 1 ; WidthOptions.state = 1)
2:(HeightOptions.state = 2 ; WidthOptions.state = 2)
3:(HeightOptions.state = 3 ; WidthOptions.state = 3)
4:(HeightOptions.state = 4 ; WidthOptions.state = 4)
5:(HeightOptions.state = 5 ; WidthOptions.state = 5)
)
)
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on HeightOptions changed ArgIgnore do
(
if TrackLink.state then TrackedStat.state = 7
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on WidthOptions changed ArgIgnore do
(
if TrackLink.state then TrackedStat.state = 6
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on TrackLink changed TrackLinked do
(
if TrackLinked then
(
case TrackedStat.state of
(
1:(HeightOptions.state = 1 ; WidthOptions.state = 1)
2:(HeightOptions.state = 2 ; WidthOptions.state = 2)
3:(HeightOptions.state = 3 ; WidthOptions.state = 3)
4:(HeightOptions.state = 4 ; WidthOptions.state = 4)
5:(HeightOptions.state = 5 ; WidthOptions.state = 5)
)
)
ProcessActiveCSV()
if ScaleRanges.state then ReCalculateRange()
)
on HeightMult changed NewScale do ( if ScaleLink.text == "&" then WidthMult.value = NewScale ; ProcessActiveCSV() )
on WidthMult changed NewScale do ( if ScaleLink.text == "&" then HeightMult.value = NewScale ; ProcessActiveCSV() )
on HeightOffset changed NewOffset do ( if OffsetLink.text == "&" then WidthOffset.value = NewOffset ; ProcessActiveCSV() )
on WidthOffset changed NewOffset do ( if OffsetLink.text == "&" then HeightOffset.value = NewOffset ; ProcessActiveCSV() )
on ScaleLink pressed do
(
if ScaleLink.text == " " then
(
ScaleLink.text = "&"
WidthMult.value = HeightMult.value
ProcessActiveCSV()
)
else
(
ScaleLink.text = " "
)
)
on OffsetLink pressed do
(
if OffsetLink.text == " " then
(
OffsetLink.text = "&"
WidthOffset.value = HeightOffset.value
ProcessActiveCSV()
)
else
(
OffsetLink.text = " "
)
)
on PositiveWidths changed ArgIgnore do ProcessActiveCSV()
on ZeroZ changed ArgIgnore do ProcessActiveCSV()
on MarkerPresets selected Arg do
(
ActivePreset = Arg
WidthOptions.state = RsJunctionViewer.PresetValues[Arg].MWStat
HeightOptions.state = RsJunctionViewer.PresetValues[Arg].MHStat
TrackedStat.state = RsJunctionViewer.PresetValues[Arg].TrackedStat
WidthMult.value = RsJunctionViewer.PresetValues[Arg].WMult
HeightMult.value = RsJunctionViewer.PresetValues[Arg].HMult
WidthOffset.value = RsJunctionViewer.PresetValues[Arg].WOffset
HeightOffset.value = RsJunctionViewer.PresetValues[Arg].HOffset
ScaleLink.text = " " ; OffsetLink.text = " "
if (RAGConnect.text == "CONNECT") then ZeroZ.state = RsJunctionViewer.PresetValues[Arg].ZeroZ
ProcessActiveCSV()
if ScaleRanges.state then RecalculateRange()
)
on SaveNewPreset pressed do
(
RsJunctionViewerPos = GetDialogPos RsJunctionViewer
RFPresetPos = RsJunctionViewerPos
RFPresetPos.x = (RsJunctionViewer.FMax (RsJunctionViewerPos.x - 32) 20) ; RFPresetPos.y = (RsJunctionViewer.FMin (RsJunctionViewerPos.y + RsJunctionViewer.Vis.pos.y + 580) 900)
try ( DestroyDialog RsJunctionRenamePreset ) catch()
CreateDialog RsJunctionRenamePreset width:(ROwidth+32) height:92 style:#(#style_titlebar, #style_border, #style_sysmenu,#style_toolwindow)
setDialogPos RsJunctionRenamePreset RFPresetPos
local NameExists=true
local presetNum = RsJunctionViewer.PresetNames.count + 1
while NameExists do
(
nameTest = "New Preset "+(presetNum as string)
if (findItem RsJunctionViewer.PresetNames nameTest) == 0 then (NameExists = false) else (presetNum += 1)
)
RsJunctionRenamePreset.PresetName.text = nameTest
newPreset = RsJunctionViewer.Preset name:nameTest
newPreset.HMult =HeightMult.value ; newPreset.WMult = WidthMult.value
newPreset.HOffset = HeightOffset.value ; newPreset.WOffset= WidthOffset.value
newPreset.TrackedStat= TrackedStat.state ; newPreset.MWStat= WidthOptions.state ; newPreset.MHStat= HeightOptions.state
newPreset.ZeroZ= ZeroZ.state
append RsJunctionViewer.PresetValues newPreset
append RsJunctionViewer.PresetNames newPreset.name
MarkerPresets.items = RsJunctionViewer.PresetNames
RsJunctionViewer.ActivePreset = RsJunctionViewer.PresetNames.count
MarkerPresets.selection = RsJunctionViewer.ActivePreset
)
---- MARKER COLOUR/THRESHOLD EVENTS ----
-- THRESHOLD VALUE EVENTS --
on Col9Thresh changed newValue do ( CurrThresh[9] = newValue ; ManageThresholds 9 )
on Col8Thresh changed newValue do ( CurrThresh[8] = newValue ; ManageThresholds 8 )
on Col7Thresh changed newValue do ( CurrThresh[7] = newValue ; ManageThresholds 7)
on Col5Thresh changed newValue do ( CurrThresh[5] = newValue ; CurrThresh[6] = newValue - LockGap ; ManageThresholds 5 )
on Col4Thresh changed newValue do ( CurrThresh[4] = newValue ; ManageThresholds 4 )
on Col3Thresh changed newValue do ( CurrThresh[3] = newValue ; ManageThresholds 3 )
on Col2Thresh changed newValue do ( CurrThresh[2] = newValue ; ManageThresholds 2 )
on Col1Thresh changed newValue do ( CurrThresh[1] = newValue ; ManageThresholds 1 )
on Col9Thresh entered do ( UpdateThreshArrays() )
on Col8Thresh entered do ( UpdateThreshArrays() )
on Col7Thresh entered do ( UpdateThreshArrays() )
on Col5Thresh entered do ( UpdateThreshArrays() )
on Col4Thresh entered do ( UpdateThreshArrays() )
on Col3Thresh entered do ( UpdateThreshArrays() )
on Col2Thresh entered do ( UpdateThreshArrays() )
on Col1Thresh entered do ( UpdateThreshArrays() )
-- COLOUR PICKER EVENTS --
on Col1Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col2Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col3Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col4Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col5Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col6Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col7Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col8Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on Col9Picker changed NewColour do ( StoreThresholds.enabled = ResetThresholdColours.enabled = true ; ProcessActiveCSV() )
on SmthGrad changed ArgIgnore do ProcessActiveCSV()
-- THRESHOLD OVER EVENTS --
on Col9Over pressed do ( WorstThreshold.value = Col9Thresh.value ; ProcessActiveCSV() )
on Col8Over pressed do ( WorstThreshold.value = Col8Thresh.value ; ProcessActiveCSV() )
on Col7Over pressed do ( WorstThreshold.value = Col7Thresh.value ; ProcessActiveCSV() )
on Col5Over pressed do ( WorstThreshold.value = Col5Thresh.value ; ResetThresholdValues.enabled = true ; ProcessActiveCSV() )
on Col4Over pressed do ( WorstThreshold.value = Col4Thresh.value ; ProcessActiveCSV() )
on Col3Over pressed do ( WorstThreshold.value = Col3Thresh.value ; ProcessActiveCSV() )
on Col2Over pressed do ( WorstThreshold.value = Col2Thresh.value ; ProcessActiveCSV() )
on Col1Over pressed do ( WorstThreshold.value = Col1Thresh.value ; ProcessActiveCSV() )
-- THRESHOLD RESET EVENTS --
on ResetThresholdValues pressed do ResetValues()
on ResetThresholdColours pressed do ResetColours()
on ResetOption selected NewOption do
(
if NewOption != ActiveThresh then
(
ActiveThresh = NewOption
ResetValues() ; ResetColours()
ResetThresholdValues.enabled = ResetThresholdColours.enabled = false
)
)
on StoreThresholds pressed do
(
local newThresh = RsJunctionViewer.Thresholds col1:col1Picker.color
newThresh.col2 = col2Picker.color
newThresh.col3 = col3Picker.color
newThresh.col4 = col4Picker.color
newThresh.col5 = col5Picker.color
newThresh.col6 = col6Picker.color
newThresh.col7 = col7Picker.color
newThresh.col8 = col8Picker.color
newThresh.col9 = col9Picker.color
newThresh.val1 = col1Thresh.value
newThresh.val2 = col2Thresh.value
newThresh.val3 = col3Thresh.value
newThresh.val4 = col4Thresh.value
newThresh.val5 = col5Thresh.value
newThresh.val6 = col5Thresh.value - LockGap
newThresh.val7 = col7Thresh.value
newThresh.val8 = col8Thresh.value
newThresh.val9 = col9Thresh.value
append Threshes newThresh
local threshNames = ResetOption.items
local newThreshName = "Settings "+((threshNames.count + 1) as string)+" "
case TrackedStat.state of
(
1:( newThreshName += "(Main)")
2:( newThreshName += "(VRAM)")
3:( newThreshName += "(Main+VRAM)")
4:( newThreshName += "(Archetypes)")
5:( newThreshName += "(None)")
6:
(
case WidthOptions of
(
1:( newThreshName += "(Main)")
2:( newThreshName += "(VRAM)")
3:( newThreshName += "(Main+VRAM)")
4:( newThreshName += "(Archetypes)")
5:( newThreshName += "(None)")
)
)
7:
(
case HeightOptions of
(
1:( newThreshName += "(Main)")
2:( newThreshName += "(VRAM)")
3:( newThreshName += "(Main+VRAM)")
4:( newThreshName += "(Archetypes)")
5:( newThreshName += "(None)")
)
)
)
append threshNames newThreshName
ResetOption.items = threshNames
ResetOption.selection = ActiveThresh = ResetOption.items.count
)
-- THRESHOLD CONTROL BUTTONS EVENTS --
on LockZero changed LockedState do
( -- Lock/Unlock MidPoint value, sets thresholds to stop/permit ranges to pass it (if permitted, OOB prevented by ManageThresholds elsewhere)
Col5Thresh.enabled = not LockedState
if LockedState then
(
Col1Thresh.range.x = Col5Thresh.value + (ThresholdGap*4)
Col2Thresh.range.x = Col5Thresh.value + (ThresholdGap*3)
Col3Thresh.range.x = Col5Thresh.value + (ThresholdGap*2)
Col4Thresh.range.x = Col5Thresh.value + ThresholdGap
Col7Thresh.range.y = Col5Thresh.value - ThresholdGap
Col8Thresh.range.y = Col5Thresh.value - (ThresholdGap*2)
Col9Thresh.range.y = Col5Thresh.value - (ThresholdGap*3)
)
else
(
Col1Thresh.range.x = (ThresholdGap*7) - ThresholdLimit
Col2Thresh.range.x = (ThresholdGap*6) - ThresholdLimit
Col3Thresh.range.x = (ThresholdGap*5) - ThresholdLimit
Col4Thresh.range.x = (ThresholdGap*4) - ThresholdLimit
Col7Thresh.range.y = ThresholdLimit - (ThresholdGap*3)
Col8Thresh.range.y = ThresholdLimit - (ThresholdGap*2)
Col9Thresh.range.y = ThresholdLimit - ThresholdGap
)
)
on EqualizeCount pressed do
( -- Set thresholds so that there are approximately the same number of junctions in each bucket (if middle locked, then the 2 ranges are treaded separately)
if LockZero.state then
(
local HighBucketCount = (Col1Count.text as integer) + (Col2Count.text as integer) + (Col3Count.text as integer) + (Col4Count.text as integer) + (Col5Count.text as integer)
local HighBucketSize = HighBucketCount / 5.0
local LowBucketSize = (active_juncs.count - HighBucketCount) / 4.0
Col1Thresh.value = PrevThresh[1] = CurrThresh[1] = active_juncs[(HighBucketSize as integer)].tracked_stat
Col2Thresh.value = PrevThresh[2] = CurrThresh[2] = active_juncs[((HighBucketSize*2) as integer)].tracked_stat
Col3Thresh.value = PrevThresh[3] = CurrThresh[3] = active_juncs[((HighBucketSize*3) as integer)].tracked_stat
Col4Thresh.value = PrevThresh[4] = CurrThresh[4] = active_juncs[((HighBucketSize*4) as integer)].tracked_stat
-- Mid point shiould be set up already
Col7Thresh.value = PrevThresh[7] = CurrThresh[7] = active_juncs[HighBucketCount+(LowBucketSize as integer)].tracked_stat
Col8Thresh.value = PrevThresh[8] = CurrThresh[8] = active_juncs[HighBucketCount+((LowBucketSize*2) as integer)].tracked_stat
Col9Thresh.value = PrevThresh[9] = CurrThresh[9] = active_juncs[HighBucketCount+((LowBucketSize*3) as integer)].tracked_stat
)
else
(
local bucketSize = active_juncs.count / 9
Col1Thresh.value = PrevThresh[1] = CurrThresh[1] = active_juncs[(bucketSize as integer)].tracked_stat
Col2Thresh.value = PrevThresh[2] = CurrThresh[2] = active_juncs[((bucketSize * 2.0) as integer)].tracked_stat
Col3Thresh.value = PrevThresh[3] = CurrThresh[3] = active_juncs[((bucketSize * 3.0) as integer)].tracked_stat
Col4Thresh.value = PrevThresh[4] = CurrThresh[4] = active_juncs[((bucketSize * 4.0) as integer)].tracked_stat
Col5Thresh.value = PrevThresh[5] = CurrThresh[5] = active_juncs[((bucketSize * 5.0) as integer)].tracked_stat
PrevThresh[6] = CurrThresh[6] = Col5Thresh.value - LockGap
Col7Thresh.value = PrevThresh[7] = CurrThresh[7] = active_juncs[((bucketSize * 6.0) as integer)].tracked_stat
Col8Thresh.value = PrevThresh[8] = CurrThresh[8] = active_juncs[((bucketSize * 7.0) as integer)].tracked_stat
Col9Thresh.value = PrevThresh[9] = CurrThresh[9] = active_juncs[((bucketSize * 8.0) as integer)].tracked_stat
)
StoreThresholds.enabled = ResetThresholdValues.enabled = true
ProcessActiveCSV()
)
on EqualizeSize pressed do
( -- Set thresholds so the gaps between them are equal (if middle locked, then the 2 ranges are treaded separately)
local NewBest = 0
local NewWorst = 0
if ScaleRanges.state then
(
NewBest = BestJunc
NewWorst = WorstJunc
)
else
(
NewBest = Col9Thresh.value
NewWorst = Col1Thresh.value
)
if LockZero.state then
( -- Preserve middle value
local HighBucketSize = (NewWorst - Col5Thresh.value) / 4
local LowBucketSize = (Col5Thresh.value - NewBest) / 3
Col1Thresh.value = PrevThresh[1] = CurrThresh[1] = Col5Thresh.value + (HighBucketSize*4)
Col2Thresh.value = PrevThresh[2] = CurrThresh[2] = Col5Thresh.value + (HighBucketSize*3)
Col3Thresh.value = PrevThresh[3] = CurrThresh[3] = Col5Thresh.value + (HighBucketSize*2)
Col4Thresh.value = PrevThresh[4] = CurrThresh[4] = Col5Thresh.value + HighBucketSize
-- Midpoint should be set up already...
Col7Thresh.value = PrevThresh[7] = CurrThresh[7] = Col5Thresh.value - LowBucketSize
Col8Thresh.value = PrevThresh[8] = CurrThresh[8] = Col5Thresh.value - (LowBucketSize*2)
Col9Thresh.value = PrevThresh[9] = CurrThresh[9] = Col5Thresh.value - (LowBucketSize*3)
)
else
( -- Change middle value
local bucketSize = (NewWorst - NewBest) / 7
Col1Thresh.value = PrevThresh[1] = CurrThresh[1] = NewWorst
Col2Thresh.value = PrevThresh[2] = CurrThresh[2] = NewWorst - bucketSize
Col3Thresh.value = PrevThresh[3] = CurrThresh[3] = NewWorst - (bucketSize*2)
Col4Thresh.value = PrevThresh[4] = CurrThresh[4] = NewWorst - (bucketSize*3)
Col5Thresh.value = PrevThresh[5] = CurrThresh[5] = NewWorst - (bucketSize*4)
PrevThresh[6] = CurrThresh[6] = Col5Thresh.value - LockGap
Col7Thresh.value = PrevThresh[7] = CurrThresh[7] = NewWorst - (bucketSize*5)
Col8Thresh.value = PrevThresh[8] = CurrThresh[8] = NewWorst - (bucketSize*6)
Col9Thresh.value = PrevThresh[9] = CurrThresh[9] = NewWorst - (bucketSize*7)
)
StoreThresholds.enabled = ResetThresholdValues.enabled = true
ProcessActiveCSV()
)
on UseWorst pressed do ( Col1Thresh.value = CurrThresh[1] = WorstJunc ; ManageThresholds 1 ; UpdateThreshArrays() )
on UseBest pressed do ( Col9Thresh.value = CurrThresh[9] = BestJunc ; ManageThresholds 9 ; UpdateThreshArrays() )
on ZeroZero pressed do ( Col5Thresh.value = CurrThresh[5] = 0.0 ; ManageThresholds 5 ; UpdateThreshArrays() )
on ZeroMean pressed do ( Col5Thresh.value = CurrThresh[5] = TrackedMean ; ManageThresholds 5 ; UpdateThreshArrays() )
---- ROLLOUT EVENTS ----
on Visualiser rolledUp Rolled do
(
if Rolled then
(
RsJunctionViewer.Vis.height = RsJunctionViewer.height - (RsJunctionViewer.Vis.pos.y + RsJunctionViewer.Gen.height + 14)
)
else
(
RsJunctionViewer.Vis.height = 26
)
RsJunctionViewer.Gen.pos.y = RsJunctionViewer.Vis.height + RsJunctionViewer.Vis.pos.y + 10
RsJunctionViewer.CompVisSeparator.position.y = RsJunctionViewer.Vis.pos.y - 7
RsJunctionViewer.VisGenSeparator.position.y = RsJunctionViewer.Gen.pos.y - 7
)
)
rollout Generator "Junction Test File Generator" rolledUp:true
( -- Generates an input junction test CSV from current object selection, can run BAT file to output main/vram/archetype data on current platform if args set up properly
local ROwidth = 234
local writeCSVName = "X:\Juncs\LIBERTY_Test_Junctions.csv"
local DefaultWriteCSVLocation = "X:\Juncs\LIBERTY_Test_Junctions.csv"
group "Generate Junction Test From Selection"
(
progressBar CSVSurround "" color:[175,175,175] value:100 width:((ROwidth)-14) height:46 offset:[-4,0] enabled:false
button ChangeWriteCSV "Change Output CSV" width:((ROwidth*0.65)-11) height:22 align:#left offset:[0,-47] tooltip:"Change CSV file to write blank junction test locations to. Use for new junctions or running chunks of existing set."
button DefaultWriteCSV "Use Default" width:((ROwidth*0.35)-11) height:22 align:#right offset:[1,-27]
editText WriteFileName "" text:DefaultWriteCSVLocation width:(ROwidth-18) align:#left offset:[-4,-5] align:#center readonly:true
button SelectUnsetJunctions "Select Default Junction Markers" width:(ROwidth-16) height:30 offset:[0,4] tooltip:"Selects any junction marker with default height and width (taken from the offset values above), which will probably be unset in the current junction file.\nThese will be written out to the CSV when Generate CSV is pressed."
button WriteCSV "Generate CSV" width:(ROwidth-16) height:60 tooltip:"Generate the above junction test file from current selection. Ideally all Max box primitives, since the visualiser expects them..."
)
group "Run Junction Test"
(
progressBar BATSurround "" color:[175,175,175] value:100 width:((ROwidth)-14) height:68 offset:[-4,0] enabled:false
button ChangeBATFile "Change Target .BAT" across:2 align:#left width:((ROwidth*0.66)-12) height:21 offset:[0,-70] tooltip:"Change between PS3/Xbox 360 .BAT files.\nNOTE: .BAT file needs specifically set up with the correct args to output junction test results to a CSV.\nChange this with caution..."
dropdownlist PlatformSelection "" items:RsJunctionViewer.Projects[RsJunctionViewer.ActiveProject].platforms selection:2 width:((ROwidth*0.34)-8) height:20 align:#right offset:[2,-72]-- other options for NG on folder switch... "PS4", "XB1", "PC" (search for CLICK_ME_*_JUNC_TEST)
editText BATFilePath "" text:RsJunctionViewer.Projects[RsJunctionViewer.ActiveProject].folder across:2 align:#left width:((ROwidth*0.66)-8) height:20 offset:[-4,-4] align:#center readonly:true
dropdownlist ProjectSelection "" items:RsJunctionViewer.ProjectNames selection:2 width:((ROwidth*0.34)-8) height:20 align:#right offset:[2,-5]-- other options for NG on folder switch... "PS4", "XB1", "PC" (search for CLICK_ME_*_JUNC_TEST)
editText BATFileName "" text:RsJunctionViewer.BATnames[1] width:(ROwidth-18) height:20 offset:[-4,-6] align:#left readonly:true
progressBar RunSurround "" color:[255,0,0] value:100 width:((ROwidth)-14) height:46 offset:[-4,4] enabled:true
button RunTest "Run Junction Test" width:(ROwidth-22) height:40 offset:[1,-48] tooltip:"Run the junction test .BATon your target PS3/XBox/etc. Needs set up outside this script, so results may vary..."
)
---- GENERATOR FUNCTIONS ----
fn ChangeBatFileName =
(
-- This will need future proofed at some point... !!!
case PlatformSelection.selected of
(
"XBox360":(BATFileName.text = "CLICK_ME_360_JUNC_TEST.bat")
"PS3":(BATFileName.text = "CLICK_ME_PS3_JUNC_TEST.bat")
"PS4":(BATFileName.text = "game_orbis_beta.bat")
"XB1":(BATFileName.text = "game_durango_beta.bat")
"PC":(BATFileName.text = "game_win64_beta.bat")
default:(BATFileName.text = "UNKNOWN FORMAT" ; RunTest.enabled = false ; RunSurround.enabled = false)
)
local batName = BATFilePath.text + BATFileName.text
if doesFileExist batName then
(
RunTest.enabled = true ; RunSurround.enabled = true
)
else
(
RunTest.enabled = false ; RunSurround.enabled = false
)
)
---- GENERATOR EVENTS ----
---- GENERATOR FILE EVENTS ----
on ChangeWriteCSV pressed do
(
RsJunctionViewer.writeCSVName = getSaveFileName caption:"Select CSV To Save Selected Junctions" filename:RsJunctionViewer.writeCSVName types:"CSV (*.csv)|*.csv|All Files (*.*)|*.*|"
if RsJunctionViewer.writeCSVName != undefined then WriteFileName.text = RsJunctionViewer.writeCSVName
) -- end ChangeWriteCSV pressed
on DefaultWriteCSV pressed do ( WriteFileName.text = RsJunctionViewer.DefaultWriteCSVLocation )
on WriteCSV pressed do
(
if selection.count > 0 then
(
if (WriteFileName.text != undefined) and (doesFileExist (getFileNamePath WriteFileName.text)) then
(
local output_file = createfile WriteFileName.text
format "name,x,y,z\n" to:output_file --write header
for marker in selection do
(
format "%,%,%,%\n" marker.name marker.pos.x marker.pos.y marker.pos.z to:output_file
)
format "END,-1079,-3239,6\n" to:output_file --write footer
close output_file
)
)
) -- end WriteCSV pressed
on SelectUnsetJunctions pressed do
(
local defaultWidth = 0
local defaultHeight = 0
clearselection()
if (RsJunctionViewer.PresetValues.count > 0) then (defaultWidth = RsJunctionViewer.PresetValues[1].WOffset ; defaultHeight = RsJunctionViewer.PresetValues[1].WOffset) else (defaultWidth = 8 ; defaultHeight = 8)
select (for obj in objects where classOf obj == box and obj.width == defaultWidth and obj.height == defaultHeight collect obj)
)
---- GENERATOR JUNCTION TEST EVENTS ----
on ChangeBATFile pressed do
(
local batName = BATFilePath.text + BATFileName.text
local batFile = getOpenFileName caption:"Select Junction Test BAT" filename:batName types:"BAT File (Junction Test)|*.bat|" --All Files (*.*)|*.*|" -- Removing the all files filter... may restore later.
if (batFile != undefined) and (doesFileExist batFile) then
(
RunTest.enabled = true ; RunSurround.enabled = true -- assume that this is a valid Junction test file regardless...
BATFileName.text = fileNameFromPath batFile
BATFilePath.text = getFileNamePath batFile
ProjectSelection.selection = PlatformSelection.selection = 1 -- Platform not set until I figure out the best way to change it !!!
for pindex = 2 to Projects.count do
(
if (BATFilePath.text == Projects[pindex].folder) then
(
ProjectSelection.selection = pindex
PlatformSelection.items = Projects[pindex].platforms
)
)
)
)
on PlatformSelection selected newPlatform do
(
RunTest.enabled = true ; RunSurround.enabled = true
ChangeBatFileName()
)
on ProjectSelection selected newProject do
(
PlatformSelection.items = RsJunctionViewer.Projects[newProject].platforms
BATFilePath.text = RsJunctionViewer.Projects[newProject].folder
RunTest.enabled = true ; RunSurround.enabled = true
ChangeBatFileName()
)
on RunSurround clicked ArgIgnore do
( -- RunSurround higher priority than RunTest for some reason...
local batName = BATFilePath.text + BATFileName.text
if doesFileExist batName then
(
local message = "Run this file?\n\n"+batName
if (queryBox message title:"Junction Test Script Launch") then shellLaunch batName "" --Query not strictly neccessary... stops my dodgy mouse from running it on rollout open though
)
else
(
local message = "Can't find BAT file\n"+batName
messageBox message title:"Missing BAT File"
)
)
---- ROLLOUT EVENTS ----
on Generator rolledUp Rolled do
(
if Rolled then ( RsJunctionViewer.Gen.height = 362 ) else ( RsJunctionViewer.Gen.height = 26 )
if (RsJunctionViewer.Vis.height > 26) then (RsJunctionViewer.Vis.height = RsJunctionViewer.height - (RsJunctionViewer.Vis.pos.y + RsJunctionViewer.Gen.height + 14))
RsJunctionViewer.Gen.pos.y = RsJunctionViewer.Vis.pos.y + RsJunctionViewer.Vis.height + 10
RsJunctionViewer.CompVisSeparator.position.y = RsJunctionViewer.Vis.pos.y - 7
RsJunctionViewer.VisGenSeparator.position.y = RsJunctionViewer.Gen.pos.y - 7
)
)
CreateDialog RsJunctionViewer width:256 height:1038 style:#(#style_titlebar, #style_border, #style_sysmenu,#style_toolwindow)
AddSubRollout RsJunctionViewer.Comp Comparison
AddSubRollout RsJunctionViewer.Vis Visualiser
AddSubRollout RsJunctionViewer.Gen Generator
Reference in New Issue View Git Blame Copy Permalink