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

Added vdp color overrides.
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 16:13:44 +02:00
parent d23db7734b
commit 7734175826
5 changed files with 34 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lib/openmsx/share/scripts/boot_exec.tcl
View file

@ -1,6 +1,6 @@
# boot_exec -- Helper command to autoexec.bat boot scripts.
# boot_exec -- Helper commands to autoexec.bat boot scripts.
#
# Adds the following command to openMSX;
# Adds the following commands to openMSX;
#
# 'boot_exec_color_dark'
# Sets the VDP colors to dark color tones.
@ -8,11 +8,24 @@
# 'boot_exec_config_info'
# Displays machine and openMSX version on one line.
#
# Supported environment variables by this script;
#
# VDP_FG=111
# Override the default vdp foreground color.
#
# VDP_BG=369
# Override the default vdp background color.
#
proc boot_exec_color_dark {} {
setcolor 4 000
setcolor 15 777
return "Boot color dark"
set boot_exec_color_vdp_fg "777"
set boot_exec_color_vdp_bg "000"
proc boot_exec_color_vdp {} {
global boot_exec_color_vdp_fg
global boot_exec_color_vdp_bg
setcolor 15 $boot_exec_color_vdp_fg
setcolor 4 $boot_exec_color_vdp_bg
return "Boot color vdp fg $boot_exec_color_vdp_fg bg $boot_exec_color_vdp_bg"
}
proc boot_exec_config_info {} {
@ -22,3 +35,11 @@ proc boot_exec_config_info {} {
append result [openmsx_info version]
return $result
}
if {[info exists ::env(VDP_FG)] && ([string trim $::env(VDP_FG)] != "")} {
set boot_exec_color_vdp_fg [string trim $::env(VDP_FG)]
}
if {[info exists ::env(VDP_BG)] && ([string trim $::env(VDP_BG)] != "")} {
set boot_exec_color_vdp_bg [string trim $::env(VDP_BG)]
}

2
lib/openmsx/share/scripts/night_flight.tcl
View file

@ -1,6 +1,6 @@
# night_flight -- Setup the travel for night flight black box recorder for build pipelines.
#
# Adds the following command to openMSX;
# Adds the following commands to openMSX;
#
# 'night_flight_save_screenshot'
# Takes an screenshot with optional prefix parameter.