[occt.git] / tests / bugs / modalg_5 / bug25124_5

puts "========"
puts "OCC25124"
puts "========"
puts ""
######################################################
# Removal of continuity checks for offset geometries
######################################################

smallview

point pp 0 0 1
circle cc 20 40 30 20
convert bc cc
trim bc bc 1 6
offsetcurve oc bc 10 pp
trim bc oc 2 5
revsurf se bc 0 0 0 0 1 0
offset os se 15

set bug_info [getsurfcontinuity se]
getsurfcontinuity os

if {[string compare $bug_info "se has G1 continuity.\n"] != 0} {
  puts "ERROR: OCC25124 is reproduced (se does not have G1 continuity)."
}

set bug_info_1 [dump se]
set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
set bug_info_2 [dump os]
set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
if {[string compare $bug_info_1 $bug_info_2] == 0} {
  puts "ERROR: OCC25124 is reproduced (se = os)."
}

donly os se
fit

set only_screen_axo 1
Commit	Line	Data
3d58dc49	1	puts "========"
	2	puts "OCC25124"
	3	puts "========"
	4	puts ""
	5	######################################################
	6	# Removal of continuity checks for offset geometries
	7	######################################################
	8
	9	smallview
	10
	11	point pp 0 0 1
	12	circle cc 20 40 30 20
	13	convert bc cc
	14	trim bc bc 1 6
	15	offsetcurve oc bc 10 pp
	16	trim bc oc 2 5
	17	revsurf se bc 0 0 0 0 1 0
	18	offset os se 15
	19
	20	set bug_info [getsurfcontinuity se]
	21	getsurfcontinuity os
	22
	23	if {[string compare $bug_info "se has G1 continuity.\n"] != 0} {
	24	puts "ERROR: OCC25124 is reproduced (se does not have G1 continuity)."
	25	}
	26
	27	set bug_info_1 [dump se]
	28	set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
	29	set bug_info_2 [dump os]
	30	set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
	31	if {[string compare $bug_info_1 $bug_info_2] == 0} {
	32	puts "ERROR: OCC25124 is reproduced (se = os)."
	33	}
	34
	35	donly os se
	36	fit
	37
	38	set only_screen_axo 1