lab start
rtfontrequest "testing all fonts" height 400 sampleheight 100 colorfonts style to env:fontdef
set result $rc

if $result eq 0

echo "ended at your request"
quit
endif

setfont $fontdef prop scale
echo "Testing with new font"
echo "$fontdef"

skip back start