mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 09:30:48 +08:00
a15fed9b86
- Moved tcl samples to resource folder. - Clean up cmake from samples related settings. - Removed CSharp samples from the repository. - Removed MFC samples from the repository. - Removed Qt samples from the repository. - Removed Inspector samples from the repository. - Removed glwin samples from the repository. - Removed webgl samples from the repository. - Removed xaml samples from the repository. - Removed Java samples from the repository.
76 lines
2.1 KiB
Tcl
76 lines
2.1 KiB
Tcl
# 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 blue}
|
|
set THE_ROW_DIST 35
|
|
|
|
proc drawLabels {} {
|
|
set x 20
|
|
set y 15
|
|
foreach aMatIter $::THE_MATERIALS {
|
|
vdrawtext "$aMatIter" "$aMatIter" -pos $x $y 0 -color GRAY10 -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 {
|
|
set aLabColor "$aColIter"
|
|
if { "$aColIter" == "default" } { set aLabColor BLACK }
|
|
vdrawtext "$aColIter" "$aColIter" -pos $x $y 0 -color "$aLabColor" -halign center -valign center -angle 000 -zoom 0 -height 14 -aspect regular -font Arial
|
|
incr x $::THE_ROW_DIST
|
|
}
|
|
}
|
|
|
|
proc drawObjects {theRow theColor} {
|
|
set aSize 4
|
|
set aCtr -2
|
|
set aCounter 0
|
|
set x [expr 30 + $theRow * $::THE_ROW_DIST]
|
|
set y 15
|
|
foreach aMatIter $::THE_MATERIALS {
|
|
set aSph s${theRow}_${aCounter}
|
|
set aBox b${theRow}_${aCounter}
|
|
uplevel #0 psphere $aSph $aSize
|
|
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 -dispMode 1 $aSph $aBox
|
|
uplevel #0 vsetmaterial -noredraw $aSph $aBox $aMatIter
|
|
if {$theColor != ""} {
|
|
uplevel #0 vsetcolor -noredraw $aSph $aBox $theColor
|
|
}
|
|
incr aCounter
|
|
incr y 10
|
|
}
|
|
}
|
|
|
|
# setup 3D viewer content
|
|
pload MODELING VISUALIZATION
|
|
|
|
vclear
|
|
vclose ALL
|
|
vinit View1 w=768 h=768
|
|
vtop
|
|
vglinfo
|
|
vbackground -gradient B4C8FF B4B4B4 -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 -dispMode 0 bnd
|
|
vfit
|
|
vremove -noredraw bnd
|
|
|
|
# draw spheres and boxes with different materials
|
|
drawLabels
|
|
drawObjects 0 ""
|
|
drawObjects 1 red
|
|
drawObjects 2 green
|
|
drawObjects 3 blue1
|
|
vrepaint
|