1# Original bug : hkg60163
2# Date : 16 Sept 98
3
4puts "*"
5puts "TODO OCC22810 All:Error in featperform"
6puts "TODO OCC22810 All:Error in fsameparameter"
7puts "TODO OCC22810 All:Error : The feat grid cannot be built."
8puts "TODO OCC22810 All: Error: The command cannot be built"
9
10restore [locate_data_file CTO900_hkg60163c.rle] base
11restore [locate_data_file hkg60163_face.rle] cont1
12
13## thickness 2mm
14mkoffset off cont1 1 2
15wire wire off_1
16mkplane cont wire
17
18explode base face
19#base_143 _152 _167 _169 _170 _171 _173 _174
20copy base_167 funtil
21featprism base cont cont 0 0 1 1 1
22if { [catch { featperform prism result base funtil } ] != 0 } {
23  puts "Error in featperform"
24}
25if { [catch { fsameparameter result } ] != 0 } {
26  puts "Error in fsameparameter"
27}
28
29checkprops result -s 0
30