;;-*-Lisp-*-
(in-package goal)

;; definition for symbol *lava-texture-anim-array*, type (texture-anim-array texture-anim)
(define *lava-texture-anim-array*
  (the-as (texture-anim-array texture-anim)
    (new 'static 'texture-anim-array :type texture-anim
      (new 'static 'texture-anim
        :num-layers #x2
        :func #f
        :init-func #f
        :tex #f
        :tex-name "dig-lava-01-dest"
        :color (new 'static 'rgba :a #x80)
        :frame-delta 300.0
        :frame-mod 3600.0
        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
        :clamp (new 'static 'gs-clamp :wms (gs-tex-wrap-mode clamp))
        )
      )
    )
  )

;; definition for symbol *lava-b-texture-anim-array*, type (texture-anim-array texture-anim)
(define *lava-b-texture-anim-array*
  (the-as (texture-anim-array texture-anim)
    (new 'static 'texture-anim-array :type texture-anim
      (new 'static 'texture-anim
        :num-layers #x2
        :func #f
        :init-func #f
        :tex #f
        :tex-name "dig-lava-01-dest"
        :color (new 'static 'rgba :a #x80)
        :frame-delta 300.0
        :frame-mod 3600.0
        :test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
        :alpha (new 'static 'gs-alpha :b #x1 :d #x1)
        :clamp (new 'static 'gs-clamp :wms (gs-tex-wrap-mode clamp))
        )
      )
    )
  )