tests/draft/angle/G2

   1 #E6----------------------------------------------
   2 set os "ALL"
   3 if {[array get env os_type] != ""} {
   4   set os $env(os_type)
   5 }
   6 if {[string compare $os "Mandriva2008"] != 0 && [string compare $os "SUSE10-64"] != 0 && [string compare $os "Windows-64-VC8"] != 0} {
   7    puts "TODO OCC22803 $os:Faulty shapes in variables faulty_1 to faulty_2"
   8 }
   9
  10 ptorus pt 25 24 90
  11 profile pr o 20 18 5  p 0 -1 0 1 0 0 l 10 t 0 30 \
  12 t -7 0
  13 revol pr pr 18 18 0 0 0 1 360
  14 bfuse f pt pr
  15 nexplode f f
  16 depouille result f 0 0 1 f_5 3 0 0 35 0 0 1 \
  17 f_6 3 0 0 35 0 0 1
  18
  19 set square 10782.8