                        (inc c)
                        ))))
 
-        ;(macros/with-font )
-
         ;; wait forever
         (loop []
           (<! (events/next-frame))
-          (recur))
-
-        (<! (events/wait-time 15000))
-
-
-        ;(doseq [s sprs] (resources/fadeout s :duration 10))
-        (<! (events/wait-time 15000))))
-
-    (macros/with-sprite canvas :stars
-      [spr (sprite/make-sprite
-
-            (texture/sub-texture
-             (resources/get-texture :stars :nearest)
-             [0 0] [8 8])
-
-            :scale [4 4]
-            :alpha 0.0)]
-
-      (<! (resources/fadein spr :duration 0.5))
-      (<! (events/wait-time 2000))
-      (<! (resources/fadeout spr :duration 0.5)))))
-
+          (recur))))))
 
 (main)

                   (<! (events/next-frame))))


(defn main []
  (go
    (<! (resources/load-resources
         (-> canvas :layer :ui)
         [

         :fade-in 0.2
         :fade-out 0.5))

    ;; wait for fonts to be ready
    (<! render!)

    ;;
    ;; bouncing name
    ;;
    (sprite/set-alpha! test-text 0.0)
    (sprite/set-scale! test-text 6)
    (set! (.-filters test-text) #js [(make-test)])
    (.addChild (-> canvas :layer :ui) test-text)
    (resources/fadein test-text :duration 5)
    (go (loop [n 0]
          (let [h (.-innerHeight js/window)
                hh (/ h 2)
                qh (/ h 4)]
            (sprite/set-pos! test-text 0 (+ 200 (- (* 0.6 qh (Math/sin (* 0.04 n))) qh))
                             ))
          (<! (events/next-frame))
          (recur (inc n))))

    ;;
    ;; scrolling message
    ;;
    (sprite/set-scale! scroll-text 4)
    (.addChild (-> canvas :layer :ui) scroll-text)
    (go (loop [n -3200]
