f1aa2b62 |
1 | |
2 | puts "========================" |
3 | puts " OCC424 " |
4 | puts "(case 2)" |
5 | puts "========================" |
6 | puts "" |
7 | |
8 | restore [locate_data_file CFE_e_lonfzx.rle] E |
9 | nexplode E f |
10 | |
11 | profile cont S E_10 F 50 -100 X 50 Y -100 X -50 |
12 | featdprism E cont E_10 10 1 1 |
13 | |
14 | if [catch {featperform dprism result } catch_result] { |
15 | puts "Faulty OCC424 (case 2): function FEATPERFORM works wrongly" |
16 | } else { |
17 | puts "OCC424 OK (case 2): function FEATPERFORM works properly" |
18 | } |
19 | |
20 | set square 978236. |
21 | set 2dviewer 0 |