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 "REQUIRED All: Projection Failed"
puts "==========="
puts " OCC308 "
puts "==========="
puts ""
#################################################################
## Can not project 3D-curve on surface.
#################################################################
restore [locate_data_file OCC308a.draw] a
restore [locate_data_file OCC308b.draw] b
if [catch {project result a b} catch_result] {
set mistake 1
} else {
set mistake 0
}
if { $mistake == 0} {
puts "Faulty OCC308 : function PROJECT works wrongly"
} else {
puts "OCC308 OK : function PROJECT works properly"
}
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
