0030991: Draw Harness - ViewerTest::ParseColor() defines out-of-range alpha component
[occt.git] / samples / tcl / materials.tcl
index f1b81ce..e377752 100644 (file)
@@ -1,5 +1,8 @@
 # Script displays properties of different materials available in OCCT
 
+#Category: Visualization
+#Title: Material properties in viewer
+
 set THE_MATERIALS {brass bronze copper gold jade neon_phc pewter obsidian plaster plastic satin silver steel stone chrome aluminium water glass diamond charcoal}
 set THE_COLORS    {default red green blue1}
 set THE_ROW_DIST  35
@@ -7,30 +10,30 @@ set THE_ROW_DIST  35
 proc drawLabels {} {
   set x 20
   set y 15
-  set r 25
-  set g 25
-  set b 25
+  set r 0.098
+  set g 0.098
+  set b 0.098
   foreach aMatIter $::THE_MATERIALS {
-    vdrawtext "$aMatIter" $x $y 0 $r $g $b 2 1 000 0 14 1 Arial
+    vdrawtext "$aMatIter" "$aMatIter" -pos $x $y 0 -color $r $g $b -halign right -valign center -angle 000 -zoom 0 -height 14 -aspect regular -font Arial
     incr y 10
   }
   set x 40
   set y  5
   foreach aColIter $::THE_COLORS {
     if { $aColIter == "red" } {
-      set r 255
-      set g 0
+      set r 1.0
+      set g 0.0
       set b 0
     } elseif { $aColIter == "green" } {
-      set r 0
-      set g 255
-      set b 0
+      set r 0.0
+      set g 1.0
+      set b 0.0
     } elseif { $aColIter == "blue1" } {
-      set r 0
-      set g 0
-      set b 255
+      set r 0.0
+      set g 0.0
+      set b 1.0
     }
-    vdrawtext "$aColIter" $x $y 0 $r $g $b 1 1 000 0 14 1 Arial
+    vdrawtext "$aColIter" "$aColIter" -pos $x $y 0 -color $r $g $b -halign center -valign center -angle 000 -zoom 0 -height 14 -aspect regular -font Arial
     incr x $::THE_ROW_DIST
   }
 }
@@ -48,7 +51,7 @@ proc drawObjects {theRow theColor} {
     uplevel #0 box     $aBox $aCtr $aCtr $aCtr $aSize $aSize $aSize
     uplevel #0 ttranslate   $aSph $x $y 0
     uplevel #0 ttranslate   $aBox [expr $x + 10] $y 0
-    uplevel #0 vdisplay     -noredraw $aSph $aBox
+    uplevel #0 vdisplay     -noredraw -dispMode 1 $aSph $aBox
     uplevel #0 vsetmaterial -noredraw $aSph $aBox $aMatIter
     if {$theColor != ""} {
       uplevel #0 vsetcolor  -noredraw $aSph $aBox $theColor
@@ -61,19 +64,19 @@ proc drawObjects {theRow theColor} {
 # setup 3D viewer content
 pload MODELING VISUALIZATION
 
-catch { vclose View1 }
-vinit View1 w=768 h=768
 vclear
+vclose ALL
+vinit View1 w=768 h=768
 vtop
 vglinfo
-vsetgradientbg 180 200 255 180 180 180 2
-vlight change 0 pos -1 1 1
-vsetdispmode 1
+vbackground -gradient 0.705882 0.784314 1  0.705882 0.705882 0.705882 -gradientMode VERTICAL
+
+vlight -change 0 -dir 0.577 -0.577 -0.577
+vrenderparams -msaa 8
 
 # adjust scene bounding box
 box bnd 0 0 0 180 210 1
-vdisplay -noredraw bnd
-vsetdispmode       bnd 0
+vdisplay -noredraw -dispMode 0 bnd
 vfit
 vremove -noredraw  bnd
 
@@ -83,5 +86,4 @@ drawObjects 0 ""
 drawObjects 1 red
 drawObjects 2 green
 drawObjects 3 blue1
-#vfit
-vzfit
+vrepaint