         [ (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)

    reflection-texture ;

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

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

    drop 0.5 ;

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

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