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
|
puts "========"
puts "OCC231"
puts "========"
puts ""
#############################################
##Uncorrect work DRAW command "proj" in version dev
## and receive such result:
## in dev : ext_1 ext_2 ext_3
## in C40 : ext_1 ext_2 ext_3 ext_4
#############################################
restore [locate_data_file OCC231.draw] result
set str [proj result 1751.38 614.152 -180.331]
set err [llength $str]
if { $err < 4 } {
puts "Faulty OCC231: Projection was made wrongly"
} else {
puts "OCC231 OK: Projection was made properly"
}
set 2dviewer 0
|
