[occt.git] / tests / caf / begin

# File : begin

if { [info exists WorkDirectory] == 0 } {
   set WorkDirectory "/tmp"
   if { [array get env TEMP] != "" } {
      set WorkDirectory "$env(TEMP)"
   }
}

if { [array get Draw_Groups "DF basic commands"] == "" } {
	pload DCAF
}

chrono qat start
# Create a new document and set UndoLimit
NewDocument D MDTV-Standard

#NewDocument D
cpulimit 300
UndoLimit D 100

# Open a transaction
NewCommand D
Commit	Line	Data
40093367	1	# File : begin
	2
	3	if { [info exists WorkDirectory] == 0 } {
	4	set WorkDirectory "/tmp"
	5	if { [array get env TEMP] != "" } {
	6	set WorkDirectory "$env(TEMP)"
	7	}
	8	}
	9
	10	if { [array get Draw_Groups "DF basic commands"] == "" } {
	11	pload DCAF
	12	}
	13
	14	chrono qat start
	15	# Create a new document and set UndoLimit
	16	NewDocument D MDTV-Standard
	17
	18	#NewDocument D
	19	cpulimit 300
	20	UndoLimit D 100
	21
	22	# Open a transaction
	23	NewCommand D