     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 )

    drop 0.5 ;

: (reflection-dim) ( -- w h )
    1024 1024 ;

: (make-reflection-texture) ( -- texture )
    gen-texture [

        [ (draw-reflection-texture) ]
        [ demo-gadget-set-matrices ]
        [ sphere-scene ]
        [ reflection-texture>> GL_TEXTURE_CUBE_MAP GL_TEXTURE0 bind-texture-unit ]
        [
            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)
