tests/boolean/begin

   1 if { [array get Draw_Groups "TOPOLOGY Check commands"] == "" } {
   2         pload TOPTEST
   3 }
   4
   5 # To prevent loops limit to 5 minutes
   6 cpulimit 300
   7
   8 dset SCALE 100
   9 protect SCALE
  10
  11 if {[string compare [datadir] "."] == 0} {
  12    datadir [file dirname [info script]]/data
  13 }
  14 if { [info exists imagedir] == 0 } {
  15    set imagedir .
  16 }
  17
  18 if { [info exists test_image ] == 0 } {
  19    set test_image photo
  20 }