OXYGENHUB
◆ main openmsx / share / scripts / _multi_screenshot.tcl
578 B · Tcl · last changed chore(): initial commit 1 month ago source blame history raw
e8555c89 Andy McCall 1 
namespace eval multi_screenshot {
2
3 
set_help_text multi_screenshot \
4 
{Take multiple screenshots
5
6 
Usage:
7 
 multi_screenshot <num> [<base>]
8 
}
9
10 
proc multi_screenshot {num {base ""}} {
11 
	multi_screenshot_helper 1 $num $base
12 
	return ""
13 
}
14
15 
proc multi_screenshot_helper {acc max {base ""}} {
16 
	if {$acc <= $max} {
17 
		if {$base eq ""} {
18 
			screenshot
19 
		} else {
20 
			screenshot -prefix $base
21 
		}
22 
		after frame "[namespace code multi_screenshot_helper] [expr {$acc + 1}] $max $base"
23 
	}
24 
}
25
26 
namespace export multi_screenshot
27
28 
} ;# namespace multi_screenshot
29
30 
namespace import multi_screenshot::*