mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
737e9a8da4
OpenGl_AspectsTextureSet now appends Sprite texture to the end of texture set. OpenGl_Context::init() - fixed usage of GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS on too old GL context. Default sampler names occSampler0, occActiveSampler and occSamplerBaseColor are now excluded from header with common declarations for build-in GLSL programs. OpenGl_ShaderObject::LoadAndCompile() and OpenGl_ShaderProgram::Link() now includes program Id within error log. OpenGl_ShaderManager now supports mapping texture onto point primitive within built-in programs (texture transformation is ignored).
41 lines
813 B
Plaintext
41 lines
813 B
Plaintext
puts "========"
|
|
puts "Point cloud object from triangulated sphere"
|
|
puts "========"
|
|
|
|
# create sphere
|
|
sphere ss 10
|
|
mkface s ss
|
|
incmesh s 0.01
|
|
|
|
# draw sphere
|
|
vinit View1
|
|
vclear
|
|
vsetdispmode 1
|
|
vaxo
|
|
vpointcloud p s -nonormals
|
|
vaspects p -setcolor GREEN
|
|
vfit
|
|
vrotate 0.2 0.0 0.0
|
|
vdump $::imagedir/${::casename}_green.png
|
|
|
|
# random colors mode
|
|
vpointcloud p s -randcolors
|
|
vdump $::imagedir/${::casename}_rand.png
|
|
|
|
# texture mapping
|
|
vpointcloud p s -normals -uv
|
|
vtexture p 0
|
|
vaspects p -shadingModel GOURAUD
|
|
vdump $::imagedir/${::casename}_tex3.png
|
|
vaspects p -shadingModel PHONG
|
|
vdump $::imagedir/${::casename}_tex2.png
|
|
vaspects p -shadingModel UNLIT
|
|
vdump $::imagedir/${::casename}_tex1.png
|
|
|
|
# mode with normals
|
|
vpointcloud p s -normals
|
|
vsetmaterial p COPPER
|
|
vdump $::imagedir/${::casename}_copper.png
|
|
|
|
vmoveto 200 200
|