gtk-v4l2.lua

#! /usr/bin/env lua

--[[ 
This example depends on the lgob (a set of bindings of GObject-based libraries, like GTK+ and WebKitGtk, and some others like Cairo, for Lua).
I've installed the 32 bits version of lgob from here: http://downloads.tuxfamily.org/oproj/bin/ubuntu32/
You have the choice to install it from the sources, found at: http://oproj.tuxfamily.org/wiki/doku.php?id=lgob
Enjoy!
]] --



require "v4l"
require('lgob.gdk')
require('lgob.gtk')

 
function saveimg(name, img)
 file = io.open(name, "w+")
 file:write("P3\n".. w .. " " .. h .."\n255\n") 
 for i=1,#img do
    local p = a[i] .. "\n"  
    file:write(p)
  end
  file:close()
end


camera = #arg

if camera < 1 then
  camera = "/dev/video0"
else
  camera = arg[1]
end

dev = v4l.open(camera)

if dev < 0 then
  print("camera not found")
  os.exit(0)
end

w, h = v4l.widht(), v4l.height()

print(camera .. ": " ..w .. "x" .. h)

-- saveimg(a)

for i=1,3 do -- take 3 pics to get a better image
 a = v4l.getframe()
end

img = "P3\n" .. w .. " " ..  h .. "\n255\n" .. table.concat(a, "\n") -- formats the image to pixbuf format

-- saveimg(a)

-- img = io.open("image.ppm", "r"):read("*a")
-- print(img)


function runDialog(dialog)
    dialog:run()
    dialog:hide()
	
    names = dialog:get_filenames()
    file = table.concat(names)
    print(file)
	saveimg(file, a)
end



loader = gdk.PixbufLoader.new()
loader:write(img, img:len())
loader:close()
pixbuf = loader:get_pixbuf()
 
window = gtk.Window.new()
hbox = gtk.VBox.new(false, 10)

image = gtk.Image.new_from_pixbuf(pixbuf)
button = gtk.Button.new_with_label("Save")

dialog = gtk.FileChooserDialog.new("Select a name to save", window, gtk.FILE_CHOOSER_ACTION_SAVE,
	"gtk-cancel", gtk.RESPONSE_CANCEL, "gtk-ok", gtk.RESPONSE_OK)

filter = gtk.FileFilter.new()
filter:add_pattern("*.ppm")
filter:set_name("PPM Images")
dialog:add_filter(filter)
dialog:set("select-multiple", true)

hbox:add(image, button)

window:add(hbox)

window:set('title', "Camera photo " .. camera .. "  "..  w .. "x" .. h, 'window-position', gtk.WIN_POS_CENTER)
window:connect('delete-event', gtk.main_quit) 
button:connect('clicked', runDialog, dialog)
window:show_all()
gtk.main()
window:show_all()


img = nil
a = nil

dev = v4l.close(dev);

if dev == 0 then
  print("File descriptor closed: " .. dev)
end