steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor adjustments to spheres demo

db4
Joe Groff 2008-04-21 21:50:35 -07:00
parent 07b91613e4
commit 03c4b6ee85
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/spheres/spheres.factor
View File

@ -105,7 +105,7 @@ TUPLE: spheres-gadget
reflection-texture ;
: <spheres-gadget> ( -- gadget )
0.0 0.0 20.0 <demo-gadget>
20.0 10.0 20.0 <demo-gadget>
{ set-delegate } spheres-gadget construct ;
M: spheres-gadget near-plane ( gadget -- z )
@ -116,7 +116,7 @@ M: spheres-gadget distance-step ( gadget -- dz )
drop 0.5 ;
: (reflection-dim) ( -- w h )
1024 1024 ;
512 512 ;
: (make-reflection-texture) ( -- texture )
gen-texture [
@ -268,10 +268,9 @@ M: spheres-gadget draw-gadget* ( gadget -- )
[ (draw-reflection-texture) ]
[ demo-gadget-set-matrices ]
[ sphere-scene ]
[ reflection-texture>> GL_TEXTURE_CUBE_MAP GL_TEXTURE0 bind-texture-unit ]
[
{ texture-sphere-program>> reflection-texture>> } get-slots
GL_TEXTURE_CUBE_MAP GL_TEXTURE0 bind-texture-unit
dup {
texture-sphere-program>> dup {
{ "surface_texture" [ 0 glUniform1i ] }
} [
{ 0.0 0.0 0.0 } 4.0 { 1.0 0.0 0.0 1.0 } (draw-sphere)