#
# This file is a simple 'live-video' application for gpac (graphic pacco).
# It uses the pgm node, but it can also read the raw node, with the
# specified import rule.

obox -private a "{Img_byte a 256 256}"
pacco/display .a a.a
set F [open /dev/cxg0pgm w]
puts $F L
flush $F

while 1 {a.a import -pgm /dev/cxg0pgm; update}

#### This can read the raw node.
#
# set pacco_config(Img_import:raw) "rawtopgm 512 512 %s"
# while 1 {a.a import -raw /dev/cxg0; update}

