vector_gfx:XTMRENDERCB   xtlang

(bind-func vector_gfx:XTMRENDERCB
  (let ((white (NVGcolor 1.0 1.0 1.0 1.0))
        (black (NVGcolor 0.0 0.0 0.0 0.8))
        (r:Rect* (Rect 60.0 700.0 400. 10.0))
        (face (Str "Regular"))
        (text (Str "Picture in Picture"))
        (blueStroke (NVGcolor 0.0 0.0 1.0 0.5)))
    (lambda (frame shader m v p data)
      (let ((vg VGCTX))
        (nvgBeginFrame vg WIDTH HEIGHT pixel_ratio)
        (nvgResetTransform vg)
        (nvgFillColor vg black)
        (nvgStrokeColor vg black)
        (nvgStrokeWidth vg 2.0)
        (nvgBeginPath vg)
        (nvgRect vg 50. 500. 411. 230.0)
        (nvgStroke vg)
        (nvgBeginPath vg)
        (nvgRect vg 50. 680. 411. 50.0)
        (nvgFill vg)
        (nvgBeginPath vg)
        (nvgFillColor vg white)
        (nvg_draw_text vg text r face 40.0:f)
        (nvgFill vg)
        (nvgEndFrame vg)
        void))))