OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-14 13:30:48 +03:00
Code Activity

Add test for back vertex color

Browse Source
This commit is contained in:
mzernova
2024-12-26 18:40:12 +00:00
parent 3040ab6534
commit 4bd47ab4c1
6 changed files with 89 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
tests/opengl/data/shading/vert_color
View File

@@ -15,6 +15,12 @@ set aColors {
{{0.5 0.0 0.0} {0.0 0.0 0.5} {0.0 0.5 0.0}}
{{0.5 0.5 0.0} {0.0 0.5 0.5} {0.5 0.0 0.5}}
}
set aColorsBack {
{{1.0 0.0 0.0} {0.0 1.0 0.0} {1.0 0.0 0.0}}
{{0.0 1.0 0.0} {1.0 0.0 0.0} {0.0 1.0 0.0}}
{{0.0 0.0 1.0} {1.0 0.0 0.0} {0.0 0.0 1.0}}
{{1.0 1.0 1.0} {1.0 0.0 0.0} {1.0 1.0 1.0}}
}
set aNormals {
{ 0 0 -1}
{ 1 1 1}
@@ -26,11 +32,12 @@ proc genTris {theFrom theTo theColors} {
set aTris ""
for {set t $theFrom} {$t <= $theTo} {incr t} {
for {set n 0} {$n < 3} {incr n} {
set aVert [lindex $::aVerts $t]
set aCol [lindex $::aColors $t]
set aNorm [lindex $::aNormals $t]
set aVert [lindex $::aVerts $t]
set aCol [lindex $::aColors $t]
set aColBack [lindex $::aColorsBack $t]
set aNorm [lindex $::aNormals $t]
set aTris "$aTris v [lindex $aVert $n] n $aNorm"
if { $theColors == 1 } { set aTris "$aTris c [lindex $aCol $n]" }
if { $theColors == 1 } { set aTris "$aTris c [lindex $aCol $n] cb [lindex $aColBack $n]" }
}
}
return $aTris