tests/bugs/vis/bug27796

   1 puts "========"
   2 puts "Allow 3D objects with Graphic3d_TMF_2d flag"
   3 puts "========"
   4
   5 pload MODELING VISUALIZATION
   6
   7 # four rectangles
   8 box b4 -175 -125 -5 350 250 1
   9 box b3 -150 -100 -4 300 200 1
  10 box b2 -125 -75  -3 250 150 1
  11 box b1 -100 -50  -2 200 100 1
  12
  13 # text label
  14 text2brep t "texT | Text\ntexT | Text" -height 50
  15 bounding -s t -save xx yy zz aTX aTY zz
  16 ttranslate t -0.5*aTX -0.5*aTY 1
  17
  18 # sphere
  19 psphere s 50
  20
  21 # clock marks
  22 set aPnts {}
  23 for {set i 1} {$i <= 1} {incr i} { vertex p1_$i  [expr   75+5*$i]  86 1; lappend aPnts p1_$i }
  24 compound  {*}$aPnts p1
  25
  26 set aPnts {}
  27 for {set i 1} {$i <= 2} {incr i} { vertex p2_$i  [expr  130+5*$i]  86 1; lappend aPnts p2_$i }
  28 compound  {*}$aPnts p2
  29
  30 set aPnts {}
  31 for {set i 1} {$i <= 3} {incr i} { vertex p3_$i  [expr  130+5*$i]   0 1; lappend aPnts p3_$i }
  32 compound  {*}$aPnts p3
  33
  34 set aPnts {}
  35 for {set i 1} {$i <= 4} {incr i} { vertex p4_$i  [expr  120+5*$i] -85 1; lappend aPnts p4_$i }
  36 compound  {*}$aPnts p4
  37
  38 set aPnts {}
  39 for {set i 1} {$i <= 5} {incr i} { vertex p5_$i  [expr   55+5*$i] -85 1; lappend aPnts p5_$i }
  40 compound  {*}$aPnts p5
  41
  42 set aPnts {}
  43 for {set i 1} {$i <= 6} {incr i} { vertex p6_$i  [expr  -18+5*$i] -85 1; lappend aPnts p6_$i }
  44 compound  {*}$aPnts p6
  45
  46 set aPnts {}
  47 for {set i 1} {$i <= 7} {incr i} { vertex p7_$i  [expr  -85+5*$i] -85 1; lappend aPnts p7_$i }
  48 compound  {*}$aPnts p7
  49
  50 set aPnts {}
  51 for {set i 1} {$i <= 8} {incr i} { vertex p8_$i  [expr -160+5*$i] -85 1; lappend aPnts p8_$i }
  52 compound  {*}$aPnts p8
  53
  54 set aPnts {}
  55 for {set i 1} {$i <= 9} {incr i} { vertex p9_$i  [expr -160+5*$i]   0 1; lappend aPnts p9_$i }
  56 compound  {*}$aPnts p9
  57
  58 set aPnts {}
  59 for {set i 1} {$i <=10} {incr i} { vertex p10_$i [expr -165+5*$i]  86 1; lappend aPnts p10_$i }
  60 compound  {*}$aPnts p10
  61
  62 set aPnts {}
  63 for {set i 1} {$i <=11} {incr i} { vertex p11_$i [expr  -100+5*$i]  86 1; lappend aPnts p11_$i }
  64 compound  {*}$aPnts p11
  65
  66 set aPnts {}
  67 for {set i 1} {$i <=12} {incr i} { vertex p12_$i [expr  -30+5*$i]  86 1; lappend aPnts p12_$i }
  68 compound  {*}$aPnts p12
  69
  70 # entire list of 2d presentations
  71 set aList {b1 b2 b3 b4 s t p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12}
  72
  73 vclear
  74 vinit View1
  75 vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos 0 0 {*}$aList
  76 vsetmaterial b1 b2 b3 b4 t PLASTIC
  77 vsetcolor b1 RED
  78 vsetcolor b2 GREEN
  79 vsetcolor b3 BLUE1
  80 vsetcolor b4 MAGENTA1
  81 vsetcolor t  GOLD
  82 vsetlocation s 0 0 -1
  83
  84 box bb 1000 1000 1000
  85 vdisplay -dispMode 0 bb
  86 vfit
  87 vdump $imagedir/${casename}_center.png
  88
  89 vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos -1  1 {*}$aList
  90 vdump $imagedir/${casename}_tl.png
  91
  92 vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos  1  1 {*}$aList
  93 vdump $imagedir/${casename}_tr.png
  94
  95 vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos  1 -1 {*}$aList
  96 vdump $imagedir/${casename}_br.png
  97
  98 vdisplay -dispMode 1 -highMode 1 -2d -trsfPersPos -1 -1 {*}$aList
  99 vdump $imagedir/${casename}_bl.png
 100
 101 vmoveto 110 385
 102 vselect 110 385
 103 set aColor [vreadpixel 110 385 rgb name]
 104 if { $aColor != "WHITE" } { puts "Error: wrong object is highlighted" }