3 //#include "../dis/dis.h"
\r
8 #define CX kosinit[kx]
\r
9 #define CY kosinit[ky]
\r
10 #define CZ kosinit[kz]
\r
12 extern far char (* far vmem)[160];
\r
13 extern char far pal[768];
\r
15 extern void clear();
\r
17 extern void shadepal(char far *fpal, char far *ppal, int shade);
\r
18 extern int init_copper();
\r
19 extern int close_copper();
\r
20 extern int far cop_rotatev;
\r
21 extern far int frame_count;
\r
22 extern far char * far cop_pal;
\r
23 extern far int do_pal;
\r
24 extern far int cop_start;
\r
25 extern far int cop_scrl;
\r
27 extern int do_poly();
\r
28 extern int getspl(int where);
\r
29 extern int far sinit[1024];
\r
30 extern int far kosinit[1024];
\r
91 struct polygons_to_draw {
\r
97 int light_src[6]={0};
\r
100 int cxx, cxy, cxz, cyx, cyy, cyz, czx, czy, czz;
\r
101 int kx=0,ky=0,kz=0,dis=320,tx=0,ty=-50;
\r
102 int ls_kx=0,ls_ky=0,ls_kz=0,ls_x=0,ls_y=0,ls_z=128;
\r
106 void sort_faces(void);
\r
108 void swappage(void);
\r
110 void count_const(void);
\r
111 void calculate(int);
\r
119 //while(dis_musplus()<13 && !dis_exit());
\r
124 if(a>=-4 && a<0) break;
\r
126 while(frame_count<1); frames+=frame_count; frame_count=0;
\r
127 cop_pal=fpal; do_pal=1;
\r
133 // tw_closegraph();
\r
136 void calculate(int k)
\r
139 //static int px=0,py=256;
\r
141 getspl(4*256+frames*4);
\r
148 ls_y=kosinit[ls_kx]>>8;
\r
149 ls_x=(sinit[ls_kx]>>8)*(sinit[ls_ky]>>8)>>7;
\r
150 ls_z=(sinit[ls_kx]>>8)*(kosinit[ls_ky]>>8)>>7;
\r
159 //matrix equations:
\r
164 // 0=Ycos*Zcos 2=Ycos*Zsin 4=-Ysin
\r
165 // 6=Xsin*Zcos*Ysin 8=Xsin*Ysin*Zsin 10=Ycos*Xsin
\r
166 // -Xcos*Zsin +Xcos*Zcos
\r
167 //12=Xcos*Zcos*Ysin 14=Xcos*Ysin*Zsin 16=Ycos*Xcos
\r
168 // +Xsin*Zsin -Xsin*Zcos
\r
174 cyx=(((SX*CZ+16384L)>>15)*SY - CX*SZ)>>(15+7);
\r
175 cyy=(((SX*SY+16384L)>>15)*SZ + CX*CZ)>>(15+7);
\r
178 czx=(((CX*CZ+16384L)>>15)*SY + SX*SZ)>>(15+7);
\r
179 czy=(((CX*SY+16384L)>>15)*SZ - SX*CZ)>>(15+7);
\r
186 int a,/*b,*/x,y,z,xx,yy,zz;
\r
188 for(a=0;a<object.pnts;a++)
\r
190 x=object.point[a].x; y=object.point[a].y; z=object.point[a].z;
\r
192 object.point[a].xx=xx=(((x*cxx>>1) + (y*cxy>>1) + (z*cxz>>1))>>7)+tx;
\r
193 object.point[a].yy=yy=(((x*cyx>>1) + (y*cyy>>1) + (z*cyz>>1))>>7)+ty;
\r
194 object.point[a].zz=zz=(((x*czx>>1) + (y*czy>>1) + (z*czz>>1))>>7)+dis;
\r
202 object.point[a].xxx=(xx*256L)/zz+160+160;
\r
203 object.point[a].yyy=(yy*142L)/zz+66;
\r
209 int a=0,/*b,*/c,x,y,z,p=0;
\r
210 long ax,ay,az,bx,by,bz,/*kx,ky,kz,*/nx,ny,nz,s/*,l*/;
\r
212 while(a<object.faces)
\r
214 x=object.point[object.pg[a].p1].xx;
\r
215 y=object.point[object.pg[a].p1].yy;
\r
216 z=object.point[object.pg[a].p1].zz;
\r
218 ax=object.point[object.pg[a].p2].xx-x;
\r
219 ay=object.point[object.pg[a].p2].yy-y;
\r
220 az=object.point[object.pg[a].p2].zz-z;
\r
222 bx=object.point[object.pg[a].p3].xx-x;
\r
223 by=object.point[object.pg[a].p3].yy-y;
\r
224 bz=object.point[object.pg[a].p3].zz-z;
\r
226 nx = ay * bz - az * by;
\r
227 ny = az * bx - ax * bz;
\r
228 nz = ax * by - ay * bx; // normal
\r
232 kz = -z; // view_vector
\r
234 s = kx*nx + ky*ny + kz*nz; // skalaaritulo
\r
236 if(s>0) { a++; continue; }
\r
238 s=(ls_x*nx+ls_y*ny+ls_z*nz)/250000+32;
\r
240 c=object.pg[a].color;
\r
241 if(lls[p]!=light_src[p])
\r
243 shadepal(&fpal[c*64*3],&pal[c*64*3], light_src[p]);
\r
244 lls[p]=light_src[p];
\r
247 ptodraw[p++].p=a++;
\r
253 void draw(int notused)
\r
255 int a=0,/*b,*/c/*,f,x,y,z*/;
\r
256 //long ax,ay,az,bx,by,bz,kx,ky,kz,nx,ny,nz,s;
\r
258 for(a=0;a<polys;a++)
\r
260 c=object.pg[ptodraw[a].p].color;
\r
261 do_poly(object.point[object.pg[ptodraw[a].p].p1].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p1].yyy,
\r
262 object.point[object.pg[ptodraw[a].p].p2].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p2].yyy,
\r
263 object.point[object.pg[ptodraw[a].p].p3].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p3].yyy,
\r
264 object.point[object.pg[ptodraw[a].p].p4].xxx+(page&1)*2, object.point[object.pg[ptodraw[a].p].p4].yyy,
\r
273 vmem=MK_FP(0x0a000,0x0000);
\r
274 cop_start=0xaa00+40;
\r
278 vmem=MK_FP(0x0a000,0x5500);
\r
279 cop_start=0x0000+40;
\r
283 vmem=MK_FP(0x0a000,0xaa00);
\r
284 cop_start=0x5500+40;
\r
288 vmem=MK_FP(0x0a000,0x0000);
\r
289 cop_start=0xaa00+40;
\r
293 vmem=MK_FP(0x0a000,0x5500);
\r
294 cop_start=0x0000+40;
\r
298 vmem=MK_FP(0x0a000,0xaa00);
\r
299 cop_start=0x5500+40;
\r