(ns laser.core
    (:use quil.core)
    (:import codeanticode.gsvideo.GSCapture
             codeanticode.gsvideo.GSLibraryLoader
             codeanticode.gsvideo.GSLibraryPath
             codeanticode.gsvideo.GSMovie
             codeanticode.gsvideo.GSPipeline
             codeanticode.gsvideo.GSPlayer
             codeanticode.gsvideo.GSVideo
             deadpixel.keystone.Keystone
             deadpixel.keystone.Draggable
             deadpixel.keystone.MeshPoint
             deadpixel.keystone.CornerPinSurface
             edu.bard.drab.PCLT.Homography
             edu.bard.drab.PCLT.LaserPoint
             edu.bard.drab.PCLT.PCLT
             processing.core.PGraphics
             processing.core.PGraphics2D
             ))

;PImage
;(def last)

(def menu-size 75)
(def mode 0)
(def options 0)
(def PEN 1)
(def LINE 2)
(def CIRCLE 3)
(def RECT 4)
(def CLEAR 5)
;(def video (GSCapture. 160 120 "/dev/video0"))
;
;(def surface (CornerPinSurface. ))
(def sbc 270)


(defn setup []
    (smooth)
    (color-mode :rgb)
    (def c (color 255 255 255))
    (def offscreen (create-graphics 848 480 "P2D"))
    )

(defsketch laser
    :title "Laser tracking example"
    :setup setup
    :size[848 480]
    )