tests/bugs/modalg_7/bug24692

   1 puts "TODO OCC24692 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2
   3 puts "========"
   4 puts "OCC24692"
   5 puts "========"
   6 puts ""
   7 #########################################
   8 # fuseedge corruption of spherical edge
   9 #########################################
  10
  11 # Object_1
  12 pcylinder cyl 10 40
  13 box abox 10 40 25
  14 ttranslate abox 0 -20 5
  15 bop cyl abox
  16 bopfuse fuse1
  17
  18 # Object_2
  19 psphere asphere 7
  20 ttranslate asphere 0 0 3
  21 box abox2 5 30 25
  22 ttranslate abox2 -2 -15 -11
  23 bop abox2 asphere
  24 bopfuse fuse2
  25
  26 # Object_Result
  27 bop fuse1 fuse2
  28 bopcut result
  29 fuseedge result
  30
  31 checkshape result_1