anchor.diff:                            3 1 0 0 2 3    ; Right face
                             7 6 4 4 5 7    ; Left face
                             5 4 0 0 1 5    ; Up face
  -                          7 3 2 2 6 7))) ; Down face
  +                          7 3 2 2 6 7))  ; Down face
  +          (scanout (virgl:virgl-scanout (virgl:virgl context))))
         (virgl:with-resources ((vertex-buffer (virgl:make-vertex-buffer context (* (length test-data) 4) :name "Test vertex buffer"))
  -                             (index-buffer (virgl:make-index-buffer context (* (length test-indices) 2) :name "Test index buffer")))
  +                             (index-buffer (virgl:make-index-buffer context (* (length test-indices) 2) :name "Test index buffer"))
  +                             (depth-texture (virgl:make-texture context
  +                                                                :s8-uint-z24-unorm
  +                                                                (list (virgl:width scanout) (virgl:height scanout))
  +                                                                :name "Test depth/stencil texture"
  +                                                                :depth/stencil t
  +                                                                :host-only t)))
           ;; Upload test data
           (let* ((vertex-dma-buf (virgl:resource-dma-buffer vertex-buffer))
                  (vertex-buf (make-array (sup:dma-buffer-length vertex-dma-buf)
  
positive.code:     result))
  
  (defun test-cube ()
    "Draw a cube."
    (virgl:with-context (context :name "Test context")
      ;; A cube is made of 8 vertices, formed into 6 faces, made of 2 tris each.
      (let ((test-data '(+0.5 +0.5 +0.5 1.0   ; 0 Position RUF (right upper front)
  
negative.code:           (virgl:add-command-bind-shader cmd-buf fragment-shader)
            ;; Enable writes to the color channels
            (virgl:add-command-bind-blend cmd-buf blend)
            (virgl:add-command-draw-vbo cmd-buf 0 (length test-data) :triangles)
            (virgl:command-buffer-finalize cmd-buf)
            (virgl:command-buffer-submit cmd-buf)
            (virgl:scanout-flush scanout 0 0 (virgl:width scanout) (virgl:height scanout)))))))
  