TempleOSTS_140317.ISO

Apps/AfterEgypt/Horeb2MP.CPP

@@ -0,0 +1,90 @@
+I64 type_weights[OT_NUM_TYPES]={30,30,15,30,30,1,1,1};
+
+I64 mp_not_done_flags;
+U0 MPDrawHoreb(CDC *dc2)
+{
+  CTask *task=dc2->win_task;
+  CDC *dc=DCAlias(dc2,task);
+  I64 lo=Gs->num*O_NUM_OBJS/mp_cnt,hi=(Gs->num+1)*O_NUM_OBJS/mp_cnt,
+	i,j,dx,dy,dz,w=task->pix_width,h=task->pix_height,r[16],cx=w>>1;
+  F64 s,m,a,x1,y1,x2,y2;
+  Obj *tempo;
+
+  GrIdentEqu(r);
+  GrRotYEqu(r,-é);
+  GrRotXEqu(r,77*ã/180);
+  for (i=lo;i<hi;i++) {
+    tempo=&objs[i];
+    tempo->x1=tempo->x+vx; tempo->y1=tempo->y; tempo->z1=tempo->z+vz;
+    GrRot(r,&tempo->x1,&tempo->y1,&tempo->z1);
+    if (tempo->type==OT_SHEEP || tempo->type==OT_GOAT1 || tempo->type==OT_GOAT2) {
+      dx=100*tempo->dx; dy=100*tempo->dy; dz=100*tempo->dz;
+      GrRot(r,&dx,&dy,&dz);
+      if (dx<0)
+	tempo->sym=TRUE;
+      else
+	tempo->sym=FALSE;
+    }
+    if (tempo->z1>=0) {
+      s=100.0/(AbsI64(tempo->z1)+50);
+      GrIdentEqu(dc->r);
+      GrScaleEqu(dc->r,s*2);
+      GrSetRotMat(dc,dc->r);
+      dc->flags|=DCF_TRANSFORMATION;
+      if (tempo->sym) {
+	dc->flags|=DCF_SYMMETRY|DCF_JUST_MIRROR;
+	GrSetSymmetry(dc,s*tempo->x1+cx,s*tempo->y1+h,s*tempo->x1+cx,s*tempo->y1+h+10);
+      }
+      Sprite3B(dc,s*tempo->x1+cx,s*tempo->y1+h,tempo->z1,imgs[tempo->type]);
+      dc->flags&=~(DCF_SYMMETRY|DCF_JUST_MIRROR);
+      if (tempo==&objs[O_BURNING_BUSH]) { //draw burning bush
+	dc->x=s*tempo->x1+cx;
+	dc->y=s*tempo->y1+h;
+	dc->z=tempo->z1;
+	dc->pen_width=1;
+	dc->color=win_updates&15;
+	for (j=0;j<45;j++) {
+	  m=Sqr(Rand); a=2*ã*Rand;
+	  P2R(&x1,&y1,m,a);
+	  m=Sqr(Rand); a=2*ã*Rand;
+	  P2R(&x2,&y2,m,a);
+	  GrLine3(dc,20*x1,20*y1-25,0,20*x2,20*y2-25,0);
+	}
+	if (SqrI64(s*tempo->x1)+SqrI64(s*tempo->y1)<300*300)
+	  horeb_done=TRUE;
+      }
+    }
+  }
+  dc->depth_buf=NULL;
+  DCDel(dc);
+  LBtr(&mp_not_done_flags,Gs->num);
+}
+
+U0 DrawHoreb(CTask *task,CDC *dc)
+{
+  I64 i,x,y,z,w=task->pix_width,h=task->pix_height,r[16],cx=w>>1,cy=h>>1;
+  F64 s;
+  GrIdentEqu(r);
+  GrRotYEqu(r,-é);
+  GrRotXEqu(r,77*ã/180);
+  //Sun
+  x=vx; y=0; z=1000000+vz;
+  GrRot(r,&x,&y,&z);
+  s=100.0/(AbsI64(z)+50);
+  if (y<0) {
+    dc->color=BROWN;
+    GrCircle(dc,s*x+cx,15,15);
+    dc->color=YELLOW;
+    GrFloodFill(dc,s*x+cx,15);
+  }
+  DCAllocDepthBuf(dc);
+  mp_not_done_flags=1<<mp_cnt-1;
+  for (i=0;i<mp_cnt;i++)
+    JobQue(&MPDrawHoreb,dc,i);
+  while (mp_not_done_flags)
+    Yield;
+  if (Blink) {
+    dc->color=LTRED;
+    GrPrint(dc,cx-21*FONT_WIDTH/2,cy-FONT_HEIGHT/2,"Find the Burning Bush.");
+  }
+}