8 #include "../dis/dis.h"
\r
10 #define SX sinit[kx]
\r
11 #define SY sinit[ky]
\r
12 #define SZ sinit[kz]
\r
13 #define CX kosinit[kx]
\r
14 #define CY kosinit[ky]
\r
15 #define CZ kosinit[kz]
\r
17 extern far char (* far vmem)[160];
\r
18 extern char far pal[768];
\r
20 extern void clear();
\r
22 extern void shadepal(char far *fpal, char far *ppal, int shade);
\r
23 extern int init_copper();
\r
24 extern int close_copper();
\r
25 extern int far cop_rotatev;
\r
26 extern far int frame_count;
\r
27 extern far char * far cop_pal;
\r
28 extern far int do_pal;
\r
29 extern far int cop_start;
\r
30 extern far int cop_scrl;
\r
32 extern int do_poly();
\r
33 extern int getspl(int where);
\r
34 extern int far sinit[1024];
\r
35 extern int far kosinit[1024];
\r
96 struct polygons_to_draw {
\r
102 int light_src[6]={0};
\r
105 int cxx, cxy, cxz, cyx, cyy, cyz, czx, czy, czz;
\r
106 int kx=0,ky=0,kz=0,dis=320,tx=0,ty=-50;
\r
107 int ls_kx=0,ls_ky=0,ls_kz=0,ls_x=0,ls_y=0,ls_z=128;
\r
111 void sort_faces(void);
\r
113 void swappage(void);
\r
115 void count_const(void);
\r
116 void calculate(int);
\r
124 //while(dis_musplus()<13 && !dis_exit());
\r
129 if(a>=-4 && a<0) break;
\r
131 while(frame_count<1); frames+=frame_count; frame_count=0;
\r
132 cop_pal=fpal; do_pal=1;
\r
138 // tw_closegraph();
\r
141 void calculate(int k)
\r
144 //static int px=0,py=256;
\r
146 getspl(4*256+frames*4);
\r
153 ls_y=kosinit[ls_kx]>>8;
\r
154 ls_x=(sinit[ls_kx]>>8)*(sinit[ls_ky]>>8)>>7;
\r
155 ls_z=(sinit[ls_kx]>>8)*(kosinit[ls_ky]>>8)>>7;
\r
164 //matrix equations:
\r
169 // 0=Ycos*Zcos 2=Ycos*Zsin 4=-Ysin
\r
170 // 6=Xsin*Zcos*Ysin 8=Xsin*Ysin*Zsin 10=Ycos*Xsin
\r
171 // -Xcos*Zsin +Xcos*Zcos
\r
172 //12=Xcos*Zcos*Ysin 14=Xcos*Ysin*Zsin 16=Ycos*Xcos
\r
173 // +Xsin*Zsin -Xsin*Zcos
\r
179 cyx=(((SX*CZ+16384L)>>15)*SY - CX*SZ)>>(15+7);
\r
180 cyy=(((SX*SY+16384L)>>15)*SZ + CX*CZ)>>(15+7);
\r
183 czx=(((CX*CZ+16384L)>>15)*SY + SX*SZ)>>(15+7);
\r
184 czy=(((CX*SY+16384L)>>15)*SZ - SX*CZ)>>(15+7);
\r
191 int a,/*b,*/x,y,z,xx,yy,zz;
\r
193 for(a=0;a<object.pnts;a++)
\r
195 x=object.point[a].x; y=object.point[a].y; z=object.point[a].z;
\r
197 object.point[a].xx=xx=(((x*cxx>>1) + (y*cxy>>1) + (z*cxz>>1))>>7)+tx;
\r
198 object.point[a].yy=yy=(((x*cyx>>1) + (y*cyy>>1) + (z*cyz>>1))>>7)+ty;
\r
199 object.point[a].zz=zz=(((x*czx>>1) + (y*czy>>1) + (z*czz>>1))>>7)+dis;
\r
207 object.point[a].xxx=(xx*256L)/zz+160+160;
\r
208 object.point[a].yyy=(yy*142L)/zz+66;
\r
214 int a=0,/*b,*/c,x,y,z,p=0;
\r
215 long ax,ay,az,bx,by,bz,/*kx,ky,kz,*/nx,ny,nz,s/*,l*/;
\r
217 while(a<object.faces)
\r
219 x=object.point[object.pg[a].p1].xx;
\r
220 y=object.point[object.pg[a].p1].yy;
\r
221 z=object.point[object.pg[a].p1].zz;
\r
223 ax=object.point[object.pg[a].p2].xx-x;
\r
224 ay=object.point[object.pg[a].p2].yy-y;
\r
225 az=object.point[object.pg[a].p2].zz-z;
\r
227 bx=object.point[object.pg[a].p3].xx-x;
\r
228 by=object.point[object.pg[a].p3].yy-y;
\r
229 bz=object.point[object.pg[a].p3].zz-z;
\r
231 nx = ay * bz - az * by;
\r
232 ny = az * bx - ax * bz;
\r
233 nz = ax * by - ay * bx; // normal
\r
237 kz = -z; // view_vector
\r
239 s = kx*nx + ky*ny + kz*nz; // skalaaritulo
\r
241 if(s>0) { a++; continue; }
\r
243 s=(ls_x*nx+ls_y*ny+ls_z*nz)/250000+32;
\r
245 c=object.pg[a].color;
\r
246 if(lls[p]!=light_src[p])
\r
248 shadepal(&fpal[c*64*3],&pal[c*64*3], light_src[p]);
\r
249 lls[p]=light_src[p];
\r
252 ptodraw[p++].p=a++;
\r
258 void draw(int notused)
\r
260 int a=0,/*b,*/c/*,f,x,y,z*/;
\r
261 //long ax,ay,az,bx,by,bz,kx,ky,kz,nx,ny,nz,s;
\r
263 for(a=0;a<polys;a++)
\r
265 c=object.pg[ptodraw[a].p].color;
\r
266 do_poly(object.point[object.pg[ptodraw[a].p].p1].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p1].yyy,
\r
267 object.point[object.pg[ptodraw[a].p].p2].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p2].yyy,
\r
268 object.point[object.pg[ptodraw[a].p].p3].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p3].yyy,
\r
269 object.point[object.pg[ptodraw[a].p].p4].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p4].yyy,
\r
278 vmem=MK_FP(0x0a000,0x0000);
\r
279 cop_start=0xaa00+40;
\r
283 vmem=MK_FP(0x0a000,0x5500);
\r
284 cop_start=0x0000+40;
\r
288 vmem=MK_FP(0x0a000,0xaa00);
\r
289 cop_start=0x5500+40;
\r
293 vmem=MK_FP(0x0a000,0x0000);
\r
294 cop_start=0xaa00+40;
\r
298 vmem=MK_FP(0x0a000,0x5500);
\r
299 cop_start=0x0000+40;
\r
303 vmem=MK_FP(0x0a000,0xaa00);
\r
304 cop_start=0x5500+40;
\r