1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
puts "========"
puts "OCC26041"
puts "========"
puts ""
################################################
# GeomAPI_ExtremaCurveSurface have inexact API
################################################
polyline l 0 -10 -10 0 10 -10 0 10 10 0 -10 10 0 -10 -10
mkplane pl l
mksurface surf pl
vinit
vdisplay pl
vertex v1 10 -5 0
vertex v2 10 5 0
edge e v1 v2
mkcurve curv e
vdisplay e
vfit
set bug_info [extrema surf curv]
if {$bug_info != "No solutions!\n"} {
puts "ERROR: OCC25063 is reproduced."
}
set only_screen 1
|
