more convenient drawing on hollywoo-flixel props

projects/hollywoo-flixel/src/hollywoo_flixel/HollywooFlixelDSL.kiss

@@ -33,11 +33,16 @@
         (doFor [wavPath jsonPath] (groups wavJsonPaths 2 Throw)
             (newFlxVoiceTrack name wavPath jsonPath))))
 
-(method newFlxProp [name path]
+(method newFlxProp [name path &opt :FlxSprite->Void prepareSprite]
     (let [propSprite (new FlxSprite 0 0)]
         (propSprite.loadGraphic path false 0 0 true) // Load props uniquely because they can be drawn on
+        (when prepareSprite
+            (prepareSprite propSprite))
         (newProp name propSprite)))
 
+(defMacro flxSprite [asset &builder b]
+    `(new FlxSprite 0 0 ,(b.field (symbolNameValue asset) (b.symbol "AssetPaths"))))
+
 (method :Void update [:Float elapsed]
     (#when debug
         (when FlxG.keys.justPressed.N