0030969: Coding Rules - refactor Quantity_Color.cxx color table definition

[occt.git] / tests / xcaf / begin

# in tests expression "set AddToDocument ASSEMBLY_C_L" means creating assembly and initializing colors and layers
# and expression "set AddToDocument COLORS_LAYERS" means initializing colors and layers
#
if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
    pload DCAF
    pload TOPTEST
    pload XDE
}

cpulimit 1000

set ErrorCode 0
##############
### ErrorCode means :
### 0 - Success
### 1 - Warning
### 2 - Error
###############

#if {[string compare [datadir] "."] == 0} { 
#  datadir [file dirname [info script]]/data
#}

if { [info exists imagedir] == 0 } {
   set imagedir .
}
if { [info exists test_image ] == 0 } {
   set test_image photo
}

#set WorkDirectory "$env(TmpDir)"
set WorkDirectory $imagedir

if {![file exists $WorkDirectory]} {
    catch {[file mkdir $WorkDirectory]}
} else {
    if {![file isdirectory $WorkDirectory]} {
	puts "The assigned work directory $WorkDirectory is not directory! Exit ..."
	exit
    }
}