jak-project/test/decompiler/reference/jak2/levels/consite/consite-texture_REF.gc

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

;; definition for symbol *kor-transform-texture-anim-array*, type (texture-anim-array texture-anim)
(define *kor-transform-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 "kor-eyeeffect-formorph"
        :color (new 'static 'rgba :a #x80)
        :frame-mod 2.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)
        )
      (new 'static 'texture-anim
        :num-layers #x2
        :func #f
        :init-func #f
        :tex #f
        :tex-name "kor-hair-formorph"
        :color (new 'static 'rgba :a #x80)
        :frame-mod 2.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)
        )
      (new 'static 'texture-anim
        :num-layers #x2
        :func #f
        :init-func #f
        :tex #f
        :tex-name "kor-head-formorph"
        :color (new 'static 'rgba :a #x80)
        :frame-mod 2.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)
        )
      (new 'static 'texture-anim
        :num-layers #x2
        :func #f
        :init-func #f
        :tex #f
        :tex-name "kor-head-formorph-noreflect"
        :color (new 'static 'rgba :a #x80)
        :frame-mod 2.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)
        )
      (new 'static 'texture-anim
        :num-layers #x2
        :func #f
        :init-func #f
        :tex #f
        :tex-name "kor-lowercaps-formorph"
        :color (new 'static 'rgba :a #x80)
        :frame-mod 2.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)
        )
      (new 'static 'texture-anim
        :num-layers #x2
        :func #f
        :init-func #f
        :tex #f
        :tex-name "kor-uppercaps-formorph"
        :color (new 'static 'rgba :a #x80)
        :frame-mod 2.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)
        )
      )
    )
  )

;; definition for function set-kor-texture-morph!
;; WARN: Return type mismatch symbol vs none.
(defun set-kor-texture-morph! ((time float))
  (let ((tex-arr *kor-transform-texture-anim-array*))
    (dotimes (tex-idx (-> tex-arr length))
      (set! (-> tex-arr array-data tex-idx frame-time) time)
      )
    )
  (none)
  )