gistfile1.clj

(ns penumbra-fail
  (:use [penumbra opengl])
  (:require [penumbra.app :as app]
	    [penumbra.text :as text]))

(defn init [state]
  (enable :blend)
  state)

(defn display [[delta time] state]
  (text/write-to-screen "hello world" 0 0)
  (draw-lines
   (vertex 0 0 0)
   (vertex 0.5 0.5 0.5)))

(defn view-text [& args]
  (app/start {:display display, :init init} {}))