tests/perf/begin

   1 cpulimit 500
   2
   3 pload VISUALIZATION
   4 pload TOPTEST
   5
   6 if { [info exists imagedir] == 0 } {
   7     set imagedir .
   8 }
   9
  10 if { [info exists test_image ] == 0 } {
  11     set test_image photo
  12 }