arch-msx/msxbuild
2
0
Fork 0
Code Issues Pull requests 3 Activity Actions

Renamed tcl scritps.
All checks were successful
Run test asserts / Test-Asserts (push) Successful in -10s
Details

Browse source
This commit is contained in:
Willem Cazander 2024-06-30 13:52:33 +02:00
parent c9b78d57c4
commit ab02b54175
5 changed files with 74 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

63
lib/openmsx/share/scripts/night_flight.tcl Normal file
View file

@ -0,0 +1,63 @@
# night_flight -- Setup the travel for night flight black box recorder for build pipelines.
#
# Adds the following command to openMSX;
#
# 'night_flight_save_screenshot'
# Takes an screenshot with optional prefix parameter.
#
# 'night_flight_save_video'
# Starts video recording with optional prefix parameter.
#
# Supported environment variables by this script;
#
# NF_PREFIX=msxbuild
# Gives screenshots and videos an prefix; msxbuild0001.avi
#
# NF_SEPERATOR=-
# Gives screenshots and videos an seperator; openmsx-0001.png
#
# NF_RECORD_FLAG=-doublesize
# Flag given to the video record command.
#
set night_flight_prefix flight
set night_flight_seperator -
set night_flight_record_flag ""
proc night_flight_save_screenshot {{prefix_id 0}} {
global night_flight_prefix
global night_flight_seperator
if {$prefix_id != 0} {
set file_prefix "$prefix_id$night_flight_seperator"
} else {
set file_prefix "$night_flight_prefix$night_flight_seperator"
}
screenshot -prefix $file_prefix
return "Flight screenshot saved"
}
proc night_flight_save_video {{prefix_id 0}} {
global night_flight_prefix
global night_flight_seperator
global night_flight_record_flag
if {$prefix_id != 0} {
set file_prefix "$prefix_id$night_flight_seperator"
} else {
set file_prefix "$night_flight_prefix$night_flight_seperator"
}
after quit "record stop"
after time 1 "record start $night_flight_record_flag -prefix $file_prefix"
return "Flight video started"
}
if {[info exists ::env(NF_PREFIX)] && ([string trim $::env(NF_PREFIX)] != "")} {
set night_flight_prefix [string trim $::env(NF_PREFIX)]
}
if {[info exists ::env(NF_SEPERATOR)] && ([string trim $::env(NF_SEPERATOR)] != "")} {
set night_flight_seperator [string trim $::env(NF_SEPERATOR)]
}
if {[info exists ::env(NF_RECORD_FLAG)] && ([string trim $::env(NF_RECORD_FLAG)] != "")} {
set night_flight_record_flag [string trim $::env(NF_RECORD_FLAG)]
}