tests/feat/featlf/A4

   1 puts "*"
   2 puts "TODO OCC22810 ALL: Tcl Exception: No Extreme faces"
   3 puts "TODO OCC22810 All:TEST INCOMPLETE"
   4
   5 box b 1 1 1
   6 nexplode b f
   7 profile pp x 0.6 y 0.6 x -0.6 y -0.6
   8 ttranslate pp 0.2 0.2 1
   9 featprism b pp b_4 0 0 -1 0 1
  10 featperformval prism r 0.8
  11 vertex v1 0.2 0.2 1
  12 vertex v2 0.8 0.8 1
  13 vertex v3 0.8 0.8 1.5
  14 vertex v4 0.2 0.2 1.5
  15 edge e1 v2 v3
  16 edge e2 v3 v4
  17 edge e3 v4 v1
  18 wire w e1 e2 e3
  19
  20 plane pl 0.8 0.8 1 1 -1 0
  21 featlf r w pl 0.1 0.1 0 0 0 0 1 1
  22 if { [catch { featperform lf result } ] } {
  23   puts "Error in featperform"
  24 }
  25
  26 set square 0