tests/bugs/moddata_1/buc60960

   1
   2 puts "==========="
   3 puts "  BUC60960"
   4 puts "==========="
   5
   6 proc do_offsets {i} {
   7     global c c1 c2 c3 c4 c5
   8
   9     set poles {{0 0 1} {0 1 1} {1 1 1} {1 0 1} {2 0 1} {2 -1 1} {1 -1 1} \
  10                    {1 -2 1} {0 -2 1} {0 -1 1} {-1 -1 1} {-1 0 1}}
  11     set knots {{0 1} {1 1} {2 1} {3 1} {4 1} {5 1} {6 1} {7 1} {8 1} {9 1} \
  12                    {10 1} {11 1} {12 1}}
  13     eval 2dpbsplinecurve c 3 [llength $knots] [join $knots] [join $poles]
  14
  15
  16     if [catch {offset c1 c 0.1}] {puts "while creating c1 at step $i"}
  17     if [catch {offset c2 c 0.2}] {puts "while creating c2 at step $i"}
  18     if [catch {offset c3 c 0.3}] {puts "while creating c3 at step $i"}
  19     if [catch {offset c4 c 0.4}] {puts "while creating c4 at step $i"}
  20     if [catch {offset c5 c 0.5}] {puts "while creating c5 at step $i"}
  21     if [catch {offset c6 c 0.6}] {puts "while creating c6 at step $i"}
  22     if [catch {offset c7 c 0.7}] {puts "while creating c7 at step $i"}
  23     if [catch {offset c8 c 0.8}] {puts "while creating c8 at step $i"}
  24 }
  25
  26 for {set i 0} {$i < 10} {incr i} {
  27     do_offsets $i
  28 }
  29
  30