[occt.git] / tests / bugs / moddata_3 / bug23995

puts "================"
puts "OCC23995"
puts "================"
puts ""
#######################################################################
# GeomAPI_ExtremaCurveCurve class calculates wrong values
#######################################################################

set BugNumber CR23995

pload XDE

ReadStep D [locate_data_file bug23995_AirfoilRhomb_CheckIntersct3d_myRhombicAirfoilIntersect_root.stp]

XCheckProps D

XGetShape intCrv D 0:1:1:1
explode intCrv
mkcurve intCrv intCrv_1
plane pl

extrema intCrv pl

if { [isdraw ext_1] } {
   mkedge result ext_1
   set length 136.705
} else {
   puts "${BugNumber}: invalid result for ext_1"
}

smallview
front
fit
set only_screen_axo 1
Commit	Line	Data
38308958	1	puts "================"
	2	puts "OCC23995"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# GeomAPI_ExtremaCurveCurve class calculates wrong values
	7	#######################################################################
	8
	9	set BugNumber CR23995
	10
	11	pload XDE
	12
	13	ReadStep D [locate_data_file bug23995_AirfoilRhomb_CheckIntersct3d_myRhombicAirfoilIntersect_root.stp]
	14
	15	XCheckProps D
	16
	17	XGetShape intCrv D 0:1:1:1
	18	explode intCrv
	19	mkcurve intCrv intCrv_1
	20	plane pl
	21
	22	extrema intCrv pl
	23
	24	if { [isdraw ext_1] } {
	25	mkedge result ext_1
38308958	26	set length 136.705
38308958	27	} else {
113493b0	28	puts "${BugNumber}: invalid result for ext_1"
38308958	29	}
	30
	31	smallview
	32	front
	33	fit
	34	set only_screen_axo 1