111 lines
3.3 KiB
PHP
111 lines
3.3 KiB
PHP
if HICOLOR {
|
|
constant G_SETCIMB_UPPER_WORD(0xFF180000)
|
|
} else {
|
|
constant G_SETCIMB_UPPER_WORD(0xFF100000)
|
|
}
|
|
define dpos(0)
|
|
|
|
macro WriteDL(evaluate L, evaluate R) {
|
|
lui t0, ({L} >> 16) & 0xFFFF
|
|
lui t1, ({R} >> 16) & 0xFFFF
|
|
ori t0, {L} & 0xFFFF
|
|
ori t1, {R} & 0xFFFF
|
|
sw t0, {dpos}+0(a0)
|
|
sw t1, {dpos}+4(a0)
|
|
global evaluate dpos({dpos}+8)
|
|
if {dpos} >= 0x2000 {
|
|
addiu a0, 0x2000
|
|
global evaluate dpos({dpos}-0x2000)
|
|
}
|
|
}
|
|
|
|
macro WriteCB(evaluate L) {
|
|
lui t0, ({L} >> 16) & 0xFFFF
|
|
ori t0, {L} & 0xFFFF
|
|
sw t0, {dpos}+0(a0)
|
|
sw a1, {dpos}+4(a0)
|
|
global evaluate dpos({dpos}+8)
|
|
if {dpos} >= 0x2000 {
|
|
addiu a0, 0x2000
|
|
global evaluate dpos({dpos}-0x2000)
|
|
}
|
|
}
|
|
|
|
macro MatEye() {
|
|
dh 0x0001, 0x0000, 0x0000, 0x0000
|
|
dh 0x0000, 0x0001, 0x0000, 0x0000
|
|
dh 0x0000, 0x0000, 0x0001, 0x0000
|
|
dh 0x0000, 0x0000, 0x0000, 0x0001
|
|
|
|
dh 0x0000, 0x0000, 0x0000, 0x0000
|
|
dh 0x0000, 0x0000, 0x0000, 0x0000
|
|
dh 0x0000, 0x0000, 0x0000, 0x0000
|
|
dh 0x0000, 0x0000, 0x0000, 0x0000
|
|
}
|
|
|
|
macro Matrix(variable xx, variable xy, variable xz, variable xw, variable yx, variable yy, variable yz, variable yw, variable zx, variable zy, variable zz, variable zw, variable wx, variable wy, variable wz, variable ww) {
|
|
// no floats in bass expressions unfortunately...
|
|
// signed integer part
|
|
dh xx >> 16, xy >> 16, xz >> 16, xw >> 16
|
|
dh yx >> 16, yy >> 16, yz >> 16, yw >> 16
|
|
dh zx >> 16, zy >> 16, zz >> 16, zw >> 16
|
|
dh wx >> 16, wy >> 16, wz >> 16, ww >> 16
|
|
|
|
// fractional part
|
|
dh xx & 0xFFFF, xy & 0xFFFF, xz & 0xFFFF, xw & 0xFFFF
|
|
dh yx & 0xFFFF, yy & 0xFFFF, yz & 0xFFFF, yw & 0xFFFF
|
|
dh zx & 0xFFFF, zy & 0xFFFF, zz & 0xFFFF, zw & 0xFFFF
|
|
dh wx & 0xFFFF, wy & 0xFFFF, wz & 0xFFFF, ww & 0xFFFF
|
|
}
|
|
|
|
scope Mat {
|
|
define xx(0); define xy(0); define xz(0); define xw(0)
|
|
define yx(0); define yy(0); define yz(0); define yw(0)
|
|
define zx(0); define zy(0); define zz(0); define zw(0)
|
|
define wx(0); define wy(0); define wz(0); define ww(0)
|
|
|
|
macro X(variable xx, variable xy, variable xz, variable xw) {
|
|
global evaluate Mat.xx(xx)
|
|
global evaluate Mat.xy(xy)
|
|
global evaluate Mat.xz(xz)
|
|
global evaluate Mat.xw(xw)
|
|
}
|
|
|
|
macro Y(variable yx, variable yy, variable yz, variable yw) {
|
|
global evaluate Mat.yx(yx)
|
|
global evaluate Mat.yy(yy)
|
|
global evaluate Mat.yz(yz)
|
|
global evaluate Mat.yw(yw)
|
|
}
|
|
|
|
macro Z(variable zx, variable zy, variable zz, variable zw) {
|
|
global evaluate Mat.zx(zx)
|
|
global evaluate Mat.zy(zy)
|
|
global evaluate Mat.zz(zz)
|
|
global evaluate Mat.zw(zw)
|
|
}
|
|
|
|
macro W(variable wx, variable wy, variable wz, variable ww) {
|
|
global evaluate Mat.wx(wx)
|
|
global evaluate Mat.wy(wy)
|
|
global evaluate Mat.wz(wz)
|
|
global evaluate Mat.ww(ww)
|
|
}
|
|
|
|
macro rix() {
|
|
Matrix({Mat.xx}, {Mat.xy}, {Mat.xz}, {Mat.xw}, {Mat.yx}, {Mat.yy}, {Mat.yz}, {Mat.yw}, {Mat.zx}, {Mat.zy}, {Mat.zz}, {Mat.zw}, {Mat.wx}, {Mat.wy}, {Mat.wz}, {Mat.ww})
|
|
}
|
|
}
|
|
|
|
macro MatObject(variable x, variable y, variable z, variable scale) {
|
|
dh scale >> 16, 0, 0, 0
|
|
dh 0, scale >> 16, 0, 0
|
|
dh 0, 0, scale >> 16, 0
|
|
dh x >> 16, y >> 16, z >> 16, 1
|
|
|
|
dh scale, 0, 0, 0
|
|
dh 0, scale, 0, 0
|
|
dh 0, 0, scale, 0
|
|
dh x, y, z, 0
|
|
}
|