+++ /dev/null
-puts "========"
-puts "OCC24819: TKOpenGl - extend the ray-tracing core by visualization of lines, text and point sprites"
-puts "========"
-
-vfont add [locate_data_file DejaVuSans.ttf] SansFont
-
-# setup 3D viewer content
-vinit name=View1 w=512 h=512
-vglinfo
-
-vvbo 0
-vsetdispmode 1
-vbackground -gradient B4C8FF B4B4B4 -gradientMode VERTICAL
-# boxes
-box b1 1 1 1
-vdisplay b1
-vsetlocation b1 0 0 0.001
-vsetmaterial b1 Silver
-vsettransparency b1 0.5
-box b2 3 2 2 1 2 1
-vdisplay b2
-vsetmaterial b2 Pewter
-vsettransparency b2 0.8
-
-# brep text
-text2brep t "text" -font "SansFont" -height 8
-vdisplay t
-
-# overlay objects
-vdrawtext t1 "Overlay text!" -2d -perspos -1 1 -pos 200 -440 0 -height 40 -font SansFont
-
-# markers
-vpoint p 1 1 1
-vdisplay p
-vmarkerstest mTest 7 -3 0 PointsOnSide=5 MarkerType=5
-
-# 3d text
-vdrawtext text0 3D_Text -pos 1 2 2 -color RED -halign left -valign bottom -angle 0 -zoom 0 -height 20 -aspect regular -font SansFont
-
-vlight -change 0 -dir 0.577 -0.577 -0.577
-
-vfit
-
-# trihedron
-vzbufftrihedron
-
-# activate ray-tracing
-vrenderparams -raytrace
-
-# orthogonal projection
-set aModeNum 0
-foreach aFSAAMode {on off} {
- foreach aReflMode {on off} {
- foreach aShadMode {on off} {
- vrenderparams -shadows $aShadMode -reflections $aReflMode -fsaa $aFSAAMode
- vdump $imagedir/${casename}_${aModeNum}.png
- incr aModeNum
- }
- }
-}
-
-# perspective projection
-vcamera -persp
-set aModeNum 0
-foreach aFSAAMode {on off} {
- foreach aReflMode {on off} {
- foreach aShadMode {on off} {
- vrenderparams -shadows $aShadMode -reflections $aReflMode -fsaa $aFSAAMode
- vdump $imagedir/${casename}_${aModeNum}.png
- incr aModeNum
- }
- }
-}