# -*- pf -*-

# read a raw bitmap stream from a pipe and display
# this can be used to connect old pdp to pf through the
# pdp bitmap/yv12 image format (use [pdp_convert bitmap/yv12/*])

load-blit

"/tmp/video.yv12" "r" open-file constant video-in
: grab ` bitmap/yv12/320/240 video-in read-raw-packet >image ;

# : blit drop ;

: tv grab blit ;
' tv is tick
interactive