RAYTRC_/RAYTRC.inc at master · AyalaRs/RAYTRC_ · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135


tPosition struc
	x dd ?
	y dd ?
	z dd ?
tPosition ends

tPos struc
	x dw ?
	y dw ?
tPos ends


tColor struc
	R dd ?
	G dd ?
	B dd ?
tColor ends
tCol struc
	R dw ?
	G dw ?
	B dw ?
tCol ends

tPixel struct
	Pos tPos <>
	Col tCol <>
tPixel ends

tSphere struct
	Position tPosition <>
	Radius   dd        ?
	Color    tColor    <>
tSphere ends

tColorMix struct
	SkyColor    tColor <>
	LightColor  tColor <>
	FogColor    tColor <>
	GetSkyColor tColor <>
tColorMix ends


tBB struct
	O  tPosition <>
	N  tPosition <>
tBB ends

tConst struct
	F65536    dd ?;65536.0
	F30625    dd ?;3.0625
	FM175     dd ?;-1.75
	FTimeFreq dd ?;1193186.0
	FBigValue dd ?;9999999.0
	FZero     dd ?;0
	F05       dd ?;0.5
	FM1       dd ?;-1.0
	C2        dw ?;2
	C255      dw ?;255
	C256      dw ?;256
	C1000     dw ?;1000
tConst ends

tData struct
	DistEpsilon    dd ?;0.01
	DistEpsilon2   dd ?;0.02
	FogDistance    dd ?;100.0
	SavedVideoMode dw ?;0
	TempW          dw ?;0
	SizeOf_Sphere  dw ?;sizeof tSphere
	Res            tPos <>;<320,200>
tData ends


tLightRay struc
	O    tPosition    <>
	struc dir
		Ray   tPosition <>
		Light tPosition <>
	ends
	D    dd ?
tLightRay ends

tMapCast struc
	O tPosition <>
    N tPosition <>
    D dd ?
    I dw ?
tMapCast ends

tMapDist struc
	O tPosition <>
	D dd ?
	I dw ?
tMapDist ends


tMapCastDist struct
	Ray     tLightRay <>
	MapCast tMapCast  <>
	MapDist tMapDist  <>
tMapCastDist ends


tREG struct
	ax_ dw ?
	cx_ dw ?
	dx_ dw ?
	bx_ dw ?
	sp_ dw ?
	bp_ dw ?
	si_ dw ?
	di_ dw ?
tREG ends


tClass struct
	Val_  tConst        <>
	Data_ tData         <>
	DM    db  16*16  dup(?)
	M	  tMapCastDist  <>
	Mask_ tColor        <>
	Mix   tColorMix     <>
    Cam   tPosition     <>
    BB    tBB           <>
	P     tPixel        <>
	S     tSphere NumSpheres dup(<>)

	R     tREG          <>
	Check dw            <> ;0AA55h
tClass ends
STRUCTCHECK TEXTEQU <@CatStr(%($ - offset _this))>