mirror of
https://github.com/open-goal/jak-project
synced 2026-06-29 11:41:11 -04:00
ManDude
ebd8643d28
Changes the DGO build order so that the city gets compiled first, and a random guess at an "order" of which levels people might edit more often. Most of the data-only borrow files are moved to the end as well. Also moves around files in the `goal_src` tree to a structure that makes a bit more sense, some files were either in the completely wrong place, their folders had strange names, were too deep for no reason or were just too far away from other relevant files. This structure should make it easier to guess a file's location.
908 lines
61 KiB
Common Lisp
Vendored
Generated
908 lines
61 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for symbol *slime-clut*, type clut16x16
|
|
(define *slime-clut* (new 'static 'clut16x16 :clut (new 'static 'array rgba 256
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x53 :g #x55 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x55 :g #x58 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x57 :g #x5c :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x59 :g #x5f :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x5b :g #x63 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x5c :g #x66 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x5e :g #x69 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x60 :g #x6d :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x60 :g #x6d :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x5e :g #x69 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x5c :g #x66 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x5a :g #x62 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x59 :g #x5f :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x57 :g #x5c :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x55 :g #x58 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x52 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x52 :g #x53 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x53 :g #x54 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x54 :g #x55 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x55 :g #x56 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x55 :g #x58 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x56 :g #x59 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x57 :g #x5a :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x58 :g #x5b :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x58 :g #x5c :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x59 :g #x5e :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5a :g #x5f :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5b :g #x60 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5c :g #x61 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5c :g #x62 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5d :g #x64 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5e :g #x65 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5f :g #x66 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x5f :g #x67 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x60 :g #x68 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x61 :g #x6a :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x62 :g #x6b :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x63 :g #x6c :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x63 :g #x6d :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x64 :g #x6e :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x65 :g #x70 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x66 :g #x71 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x66 :g #x72 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x67 :g #x73 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x68 :g #x74 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x69 :g #x76 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x69 :g #x77 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x6c :g #x7c :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x73 :g #x86 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7a :g #x91 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x81 :g #x9c :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x88 :g #xa6 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x8f :g #xb1 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x96 :g #xbc :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9e :g #xc7 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9e :g #xc7 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x99 :g #xc0 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x94 :g #xb9 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb2 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x8b :g #xab :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x87 :g #xa4 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x82 :g #x9d :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x79 :g #x8f :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x77 :g #x8b :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x77 :g #x8d :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x78 :g #x8e :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x79 :g #x8f :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7a :g #x90 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7a :g #x91 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7b :g #x93 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7c :g #x94 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7d :g #x95 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7e :g #x96 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7e :g #x97 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x7f :g #x99 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x80 :g #x9a :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x81 :g #x9b :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x81 :g #x9c :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x82 :g #x9d :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x83 :g #x9f :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x84 :g #xa0 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x85 :g #xa1 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x85 :g #xa2 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x86 :g #xa3 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x87 :g #xa5 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x88 :g #xa6 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x88 :g #xa7 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x89 :g #xa8 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8a :g #xa9 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8b :g #xab :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8b :g #xac :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8c :g #xad :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8d :g #xae :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8e :g #xaf :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8f :g #xb1 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8f :g #xb2 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x92 :g #xb5 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x94 :g #xb9 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x96 :g #xbc :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x99 :g #xbf :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9b :g #xc3 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9d :g #xc6 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa0 :g #xca :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa0 :g #xca :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9e :g #xc7 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9c :g #xc4 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9a :g #xc2 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x98 :g #xbf :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x96 :g #xbd :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x94 :g #xba :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8f :g #xb4 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8e :g #xb3 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8d :g #xb2 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8d :g #xb1 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8c :g #xb0 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x8b :g #xaf :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x8a :g #xae :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x8a :g #xae :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x89 :g #xad :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x88 :g #xac :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x87 :g #xab :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x87 :g #xaa :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x86 :g #xa9 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x85 :g #xa8 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x84 :g #xa7 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x84 :g #xa7 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x83 :g #xa6 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x82 :g #xa5 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x81 :g #xa4 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x81 :g #xa3 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x80 :g #xa2 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7f :g #xa1 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7e :g #xa0 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7e :g #xa0 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7d :g #x9f :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7c :g #x9e :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7b :g #x9d :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7b :g #x9c :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7a :g #x9b :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x79 :g #x9a :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x79 :g #x9a :b #x15 :a #x80)
|
|
(new 'static 'rgba :r #x79 :g #x9a :b #x15 :a #x80)
|
|
(new 'static 'rgba :r #x7c :g #x9d :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x7f :g #xa1 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x82 :g #xa5 :b #x14 :a #x80)
|
|
(new 'static 'rgba :r #x85 :g #xa8 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x88 :g #xac :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x8b :g #xb0 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x8e :g #xb3 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x91 :g #xb7 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x94 :g #xbb :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x97 :g #xbf :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x9a :g #xc2 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9d :g #xc6 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa0 :g #xca :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa3 :g #xcd :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa6 :g #xd1 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xac :g #xd9 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xab :g #xd8 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xaa :g #xd7 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa9 :g #xd6 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa8 :g #xd5 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa8 :g #xd4 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa7 :g #xd3 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa6 :g #xd2 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa5 :g #xd1 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa4 :g #xd0 :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa4 :g #xcf :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa3 :g #xce :b #x10 :a #x80)
|
|
(new 'static 'rgba :r #xa2 :g #xcd :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa1 :g #xcc :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa0 :g #xcb :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa0 :g #xca :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9f :g #xc9 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9e :g #xc8 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9d :g #xc7 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9d :g #xc6 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9c :g #xc5 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9b :g #xc4 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9a :g #xc3 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x99 :g #xc2 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x99 :g #xc1 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x98 :g #xc0 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x97 :g #xbf :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x96 :g #xbe :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x95 :g #xbd :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x95 :g #xbc :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x94 :g #xbb :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x93 :g #xba :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x92 :g #xb9 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x91 :g #xb8 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x91 :g #xb7 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb6 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8f :g #xb5 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8e :g #xb4 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x8e :g #xb3 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x8c :g #xb1 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x8c :g #xb1 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb6 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x94 :g #xba :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x97 :g #xbf :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x9b :g #xc3 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9e :g #xc8 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa2 :g #xcc :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa6 :g #xd1 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa6 :g #xd1 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa3 :g #xcd :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #xa0 :g #xca :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9d :g #xc6 :b #x11 :a #x80)
|
|
(new 'static 'rgba :r #x9b :g #xc3 :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x98 :g #xbf :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x95 :g #xbc :b #x12 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
(new 'static 'rgba :r #x90 :g #xb5 :b #x13 :a #x80)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *toxic-slime-texture-anim-array*, type (texture-anim-array texture-anim)
|
|
(define *toxic-slime-texture-anim-array*
|
|
(the-as (texture-anim-array texture-anim)
|
|
(new 'static 'texture-anim-array :type texture-anim
|
|
(new 'static 'texture-anim
|
|
:func-id 'texture-anim-alpha-ramp-clut-upload
|
|
:init-func-id 'texture-anim-alpha-ramp-clut-init
|
|
:tex #f
|
|
:tex-name #f
|
|
:extra (new 'static 'vector :x 28.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x1 :d #x1)
|
|
:data (new 'static 'array texture-anim-layer 2)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x2
|
|
:func-id 'cloud-texture-anim-func
|
|
:init-func-id 'dest-texture-init
|
|
:tex #f
|
|
:tex-name #f
|
|
:extra (new 'static 'vector :x 16.0 :y 8.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-delta 300.0
|
|
:frame-mod 600.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)
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 16.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 600.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 16.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 600.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x2
|
|
:func-id 'cloud-texture-anim-func
|
|
:init-func-id 'dest-texture-init
|
|
:tex #f
|
|
:tex-name #f
|
|
:extra (new 'static 'vector :x 32.0 :y 9.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-delta 300.0
|
|
:frame-mod 300.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)
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 32.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 32.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x2
|
|
:func-id 'cloud-texture-anim-func
|
|
:init-func-id 'dest-texture-init
|
|
:tex #f
|
|
:tex-name #f
|
|
:extra (new 'static 'vector :x 64.0 :y 10.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-time 99.0
|
|
:frame-delta 300.0
|
|
:frame-mod 150.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)
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 64.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 150.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 64.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 150.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x2
|
|
:func-id 'cloud-texture-anim-func
|
|
:init-func-id 'dest-texture-init
|
|
:tex #f
|
|
:tex-name #f
|
|
:extra (new 'static 'vector :x 128.0 :y 12.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-time 199.0
|
|
:frame-delta 300.0
|
|
:frame-mod 75.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)
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 128.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 75.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 128.0 :y 20.0 :z 28.0)
|
|
:func-id 'cloud-texture-anim-layer-func
|
|
:init-func-id 'noise-texture-init
|
|
:tex #f
|
|
:end-time 75.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x4
|
|
:func #f
|
|
:init-func-id 'dest-texture-init
|
|
:tex #f
|
|
:tex-name #f
|
|
:extra (new 'static 'vector :x 128.0 :y 20.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x1 :d #x1)
|
|
:data (new 'static 'array texture-anim-layer 6
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 16.0 :y 8.0)
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func-id 'src-texture-init
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.55)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 32.0 :y 9.0)
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func-id 'src-texture-init
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.6)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 64.0 :y 10.0)
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func-id 'src-texture-init
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.3)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 128.0 :y 12.0)
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func-id 'src-texture-init
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 0.1)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x1
|
|
:func #f
|
|
:init-func-id 'texture-anim-change-mt8h-init
|
|
:tex #f
|
|
:tex-name "cas-toxic-slime-dest"
|
|
:extra (new 'static 'vector :x 28.0 :y 12.0 :z 128.0 :w 128.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x1 :d #x1)
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:extra (new 'static 'vector :x 128.0 :y 20.0)
|
|
:func-id 'move-rg-to-ba-texture-anim-layer-func
|
|
:init-func-id 'src-texture-init
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name #f
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x1 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:func-id 'texture-anim-slime-clut-upload
|
|
:init-func-id 'texture-anim-slime-clut-init
|
|
:tex #f
|
|
:tex-name #f
|
|
:extra (new 'static 'vector :x 28.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x1 :d #x1)
|
|
:data (new 'static 'array texture-anim-layer 2)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x1
|
|
:func #f
|
|
:init-func-id 'texture-anim-overide-size-init
|
|
:tex #f
|
|
:tex-name "cas-toxic-slime-scroll-dest"
|
|
:extra (new 'static 'vector :x 64.0 :y 64.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-delta 300.0
|
|
:frame-mod 1200.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)
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func #f
|
|
:tex #f
|
|
:end-time 1200.0
|
|
:tex-name "cas-toxic-slime-dest"
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x1 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.0))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 1.0))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function set-slime-alphas
|
|
(defun set-slime-alphas ((arg0 float) (arg1 float) (arg2 float) (arg3 float))
|
|
(set! (-> *toxic-slime-texture-anim-array* array-data 5 data 0 start-color w) arg0)
|
|
(set! (-> *toxic-slime-texture-anim-array* array-data 5 data 1 start-color w) arg1)
|
|
(set! (-> *toxic-slime-texture-anim-array* array-data 5 data 2 start-color w) arg2)
|
|
(set! (-> *toxic-slime-texture-anim-array* array-data 5 data 3 start-color w) arg3)
|
|
)
|
|
|
|
;; definition for function get-slime-alphas
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defun get-slime-alphas ()
|
|
(format
|
|
0
|
|
"~f ~f ~f ~f~%"
|
|
(-> *toxic-slime-texture-anim-array* array-data 5 data 0 start-color w)
|
|
(-> *toxic-slime-texture-anim-array* array-data 5 data 1 start-color w)
|
|
(-> *toxic-slime-texture-anim-array* array-data 5 data 2 start-color w)
|
|
(-> *toxic-slime-texture-anim-array* array-data 5 data 3 start-color w)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function set-slime-speed
|
|
(defun set-slime-speed ((arg0 float))
|
|
(let ((v1-0 *toxic-slime-texture-anim-array*)
|
|
(f0-3 (the float (the int (* 300.0 arg0))))
|
|
)
|
|
(dotimes (a0-1 4)
|
|
(let ((a1-4 (-> v1-0 array-data (+ a0-1 1))))
|
|
(set! (-> a1-4 frame-mod) f0-3)
|
|
(set! (-> a1-4 data 0 end-time) f0-3)
|
|
(set! (-> a1-4 data 1 end-time) f0-3)
|
|
)
|
|
(set! f0-3 (* 0.5 f0-3))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for symbol *cas-conveyor-texture-anim-array*, type (texture-anim-array texture-anim)
|
|
(define *cas-conveyor-texture-anim-array*
|
|
(the-as (texture-anim-array texture-anim)
|
|
(new 'static 'texture-anim-array :type texture-anim
|
|
(new 'static 'texture-anim
|
|
:num-layers #x1
|
|
:func #f
|
|
:init-func-id 'texture-anim-overide-size-init
|
|
:tex #f
|
|
:tex-name "cas-conveyor-dest"
|
|
:extra (new 'static 'vector :x 64.0 :y 32.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-delta 555.0
|
|
:frame-mod 300.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) :wmt (gs-tex-wrap-mode clamp))
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func #f
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name "cas-conveyor"
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.0))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 1.0))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x1
|
|
:func #f
|
|
:init-func-id 'texture-anim-overide-size-init
|
|
:tex #f
|
|
:tex-name "cas-conveyor-dest-01"
|
|
:extra (new 'static 'vector :x 64.0 :y 32.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-delta 555.0
|
|
:frame-mod 300.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) :wmt (gs-tex-wrap-mode clamp))
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func #f
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name "cas-conveyor"
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.0))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 1.0))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x1
|
|
:func #f
|
|
:init-func-id 'texture-anim-overide-size-init
|
|
:tex #f
|
|
:tex-name "cas-conveyor-dest-02"
|
|
:extra (new 'static 'vector :x 64.0 :y 32.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-delta 555.0
|
|
:frame-mod 300.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) :wmt (gs-tex-wrap-mode clamp))
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func #f
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name "cas-conveyor"
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.0))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 1.0))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
(new 'static 'texture-anim
|
|
:num-layers #x1
|
|
:func #f
|
|
:init-func-id 'texture-anim-overide-size-init
|
|
:tex #f
|
|
:tex-name "cas-conveyor-dest-03"
|
|
:extra (new 'static 'vector :x 64.0 :y 32.0)
|
|
:color (new 'static 'rgba :a #x80)
|
|
:frame-delta 555.0
|
|
:frame-mod 300.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) :wmt (gs-tex-wrap-mode clamp))
|
|
:data (new 'static 'array texture-anim-layer 2
|
|
(new 'static 'texture-anim-layer
|
|
:func-id 'default-texture-anim-layer-func
|
|
:init-func #f
|
|
:tex #f
|
|
:end-time 300.0
|
|
:tex-name "cas-conveyor"
|
|
:test (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always))
|
|
:alpha (new 'static 'gs-alpha :b #x2 :d #x1)
|
|
:start-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:start-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:start-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:start-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.0))
|
|
:start-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-color (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
:end-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 0.5))
|
|
:end-st-scale (new 'static 'vector2 :data (new 'static 'array float 2 1.0 1.0))
|
|
:end-st-offset (new 'static 'vector2 :data (new 'static 'array float 2 0.5 1.0))
|
|
:end-qs (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function set-conveyor-speed!
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun set-conveyor-speed! ((arg0 int) (arg1 float))
|
|
(set! (-> *cas-conveyor-texture-anim-array* array-data arg0 frame-delta) (* 0.018066408 arg1))
|
|
0
|
|
(none)
|
|
)
|