[occt.git] / tests / bugs / vis / bug198_1

puts "========"
puts "OCC198"
puts "========"
puts ""
#######################################################
##puts "Changing of index of text fonts"
#######################################################

v2dinit

set mistake 0
set Angle 0
set Scale 1
set k -1
set j 0 
repeat 10 {
    set i 0
    repeat 4 {
	set Position_X [expr $i*70]
        set Position_Y [expr $j*15]
	set k [expr $k+1]
	if [catch {Font_ind $k } ] {
	     set mistake 1
	}
	incr i
    }
    incr j
}

if {$mistake == 0} {
    puts "Faulty : Changing of text fonts was NOT MADE properly"
} else {
    puts "Changing of text fonts was made properly"
}

set only_screen2d 1
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC198"
	3	puts "========"
	4	puts ""
	5	#######################################################
	6	##puts "Changing of index of text fonts"
	7	#######################################################
	8
	9	v2dinit
	10
	11	set mistake 0
	12	set Angle 0
	13	set Scale 1
	14	set k -1
	15	set j 0
	16	repeat 10 {
	17	set i 0
	18	repeat 4 {
	19	set Position_X [expr $i*70]
	20	set Position_Y [expr $j*15]
	21	set k [expr $k+1]
	22	if [catch {Font_ind $k } ] {
	23	set mistake 1
	24	}
	25	incr i
	26	}
	27	incr j
	28	}
	29
	30	if {$mistake == 0} {
	31	puts "Faulty : Changing of text fonts was NOT MADE properly"
	32	} else {
	33	puts "Changing of text fonts was made properly"
	34	}
	35
	36	set only_screen2d 1