pulp.clj

(ns p.pulp
  (:import (pulpcore.animation Easing Timeline)
	   (pulpcore.animation.event RemoveSpriteEvent)
	   (pulpcore.image BlendMode CoreImage CoreFont)
	   (pulpcore Input Stage)
	   (pulpcore.math CoreMath)
	   (pulpcore.scene Scene2D)
	   (pulpcore.sprite FilledSprite Group ImageSprite Sprite Label))
  (:gen-class
   :extends pulpcore.scene.Scene2D
   :impl-ns p.pulp))

(defn -load [this]
  (let [background  (FilledSprite. pulpcore.image.Colors/BLUE)
	hello       (Label. (CoreFont/getSystemFont) "Hello"
			    200 200)]
    (.add this background)
    (.setAnchor hello Sprite/CENTER Sprite/CENTER)
    (.add this hello)))

(defn -update-scene [this dt]
  nil)

(defn tryme [] (p.pulp.))