     drop 0.5 ;
 
 : (reflection-dim) ( -- w h )
-    1024 1024 ;
+    512 512 ;
 
 : (make-reflection-texture) ( -- texture )
     gen-texture [

        [ (draw-reflection-texture) ]
        [ demo-gadget-set-matrices ]
        [ sphere-scene ]
        [
            { texture-sphere-program>> reflection-texture>> } get-slots
            GL_TEXTURE_CUBE_MAP GL_TEXTURE0 bind-texture-unit
            dup {
                { "surface_texture" [ 0 glUniform1i ] }
            } [
                { 0.0 0.0 0.0 } 4.0 { 1.0 0.0 0.0 1.0 } (draw-sphere)

    reflection-texture ;

: <spheres-gadget> ( -- gadget )
    20.0 10.0 20.0 <demo-gadget>
    { set-delegate } spheres-gadget construct ;

M: spheres-gadget near-plane ( gadget -- z )
