tests/bugs/modalg_7/bug31460

   1 puts "========"
   2 puts "0031460: Modeling Algorithms - Regression: Revolution not done."
   3 puts "========"
   4 puts ""
   5
   6 circle cir 3 2.9999999999989 0 0 0 -1 -1 0 0 3
   7 trim cir cir 4.71238898038469 6.28318530717959
   8 mkedge e cir
   9
  10 ## sector
  11 revol r10 e 0 0 0 1 0 0 10 1
  12
  13 if { [isdraw r10] == 1 } {
  14   if { [regexp "valid" [checkshape r10]] && [regexp "OK" [bopcheck r10 4]]} {
  15     puts "OK: valid shape is created"
  16   } else {
  17     puts "Error: algorithm created wrong shape"
  18   }
  19 } else {
  20   puts "Error: algorithm did not create shape"
  21 }
  22
  23 ## full revol
  24 revol r360 e 0 0 0 1 0 0 360 1
  25
  26 if { [isdraw r360] == 1 } {
  27   if { [regexp "valid" [checkshape r360]] && [regexp "OK" [bopcheck r360 4]]} {
  28     puts "OK: valid shape is created"
  29   } else {
  30     puts "Error: algorithm created wrong shape"
  31   }
  32 } else {
  33   puts "Error: algorithm did not create shape"
  34 }