X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=samples%2Ftcl%2Fmaterials.tcl;h=e377752465bdc583adcc302d2786d4178fde634e;hp=c43f4dc55bbb2205610ad46d47e30c102d4a183d;hb=9196ea9d5ad4190294cff17c67ccdfdba3ee6f1b;hpb=ab91ab6feab5c5bd579bdb623f062cf30e793644

diff --git a/samples/tcl/materials.tcl b/samples/tcl/materials.tcl
index c43f4dc55b..e377752465 100644
--- a/samples/tcl/materials.tcl
+++ b/samples/tcl/materials.tcl
@@ -10,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
   }
 }
@@ -51,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
@@ -64,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
 
@@ -86,5 +86,4 @@ drawObjects 0 ""
 drawObjects 1 red
 drawObjects 2 green
 drawObjects 3 blue1
-#vfit
-vzfit
+vrepaint