tests/bugs/vis/bug349_1

   1 puts "========"
   2 puts "OCC349"
   3 puts "========"
   4 puts ""
   5 puts "2. Fitall with hidden line removal algorithm works incorrect in the perspective view"
   6
   7 vinit
   8 box b 100 900 300
   9 vdisplay b
  10
  11 OCC280 1 1
  12
  13 vfit
  14
  15 set yellow_coords {{135 119} {387 33} {172 144} {28 190} {212 272} {60 343} {26 255} {389 113} {60 276}}
  16
  17 set black_coords {{160 257} {365 150} {353 99}}
  18
  19 #
  20 #              ___________2________________
  21 #             /|                          /|
  22 #            / |                         / |
  23 #           /  |                        /  |
  24 #          /   |                       /   |
  25 #         /    |                      /    |
  26 #        1     |                     3     |
  27 #       /      |                    /      |
  28 #      /       |                   /       |
  29 #     /        |                  /        |
  30 #    /         |                 /         |
  31 #   ----------------4------------          |
  32 #   |          |                |          |
  33 #   |          |                |          |
  34 #   |          |                |          |
  35 #   |         10                |         11
  36 #   |          |                |          |
  37 #   |          |                |          |
  38 #   |          |                |          |
  39 #   |          |                |          |
  40 #   |          |                |          |
  41 #   9          |               12          |
  42 #   |          |___________6____|__________|
  43 #   |         /                 |         /
  44 #   |        /                  |        /
  45 #   |       /                   |       /
  46 #   |      /                    |      /
  47 #   |     5                     |     /
  48 #   |    /                      |    7
  49 #   |   /                       |   /
  50 #   |  /                        |  /
  51 #   | /                         | /
  52 #   |/                          |/
  53 #   |--------------8------------|
  54 #
  55 #
  56
  57 vaspects -setwidth 5
  58
  59 foreach i $yellow_coords {
  60   if {"[vreadpixel [lindex $i 0] [lindex $i 1] rgb name]" != "YELLOW" } {
  61     puts "Error : ${i} is not yellow"
  62   }
  63 }
  64
  65 foreach i $black_coords {
  66   if {"[vreadpixel [lindex $i 0] [lindex $i 1] rgb name]" != "BLACK" } {
  67     puts "Error : ${i} is not black"
  68   }
  69 }
  70
  71 checkview -screenshot -3d -path ${imagedir}/${test_image}.png