TempleOSTS_130315.ISO

2018-09-08 21:45:37 +02:00
1 parent e57428affb
commit 17b71f1a2d
@@ -0,0 +1,117 @@
+U0 Main()
+{
+  F64 é=0,č=0,ę=0;
+  CD3I32 poly[4];
+  CDC *dc=DCAlias;
+  DCAllocDepthBuf(dc);
+  dc->flags|=DCF_TRANSFORMATION|DCF_SYMMETRY;
+  try {
+    while (!ScanChar) {
+      DCDepthBufRst(dc);
+      GrSetSymmetry(dc,Fs->win_pixel_width/2,Fs->win_pixel_height/2,
+	ipx-Fs->win_pixel_left-Fs->win_scroll_x,
+	ipy-Fs->win_pixel_top-Fs->win_scroll_y);
+      dc->color=LTBLUE;
+      GrLine(dc,Fs->win_pixel_width/2,Fs->win_pixel_height/2,
+	ipx-Fs->win_pixel_left-Fs->win_scroll_x,
+	ipy-Fs->win_pixel_top-Fs->win_scroll_y);
+ 
+      GrIdentEqu(dc->r);
+      GrRotXEqu(dc->r,ę);
+      GrRotYEqu(dc->r,č);
+      GrRotZEqu(dc->r,é);
+      GrSetRotMat(dc,dc->r);
+
+      dc->x=Fs->win_pixel_width/2;
+      dc->y=Fs->win_pixel_height/2;
+      dc->z=500;
+ 
+      dc->color=GREEN;
+      poly[0].x=50;
+      poly[0].y=150;
+      poly[0].z=0;
+      poly[1].x=275;
+      poly[1].y=100;
+      poly[1].z=0;
+      poly[2].x=155;
+      poly[2].y=200;
+      poly[2].z=0;
+      poly[3].x=100;
+      poly[3].y=200;
+      poly[3].z=0;
+      GrFillPoly3(dc,4,poly);
+
+      dc->color=RED;
+      poly[0].x=50;
+      poly[0].y=150;
+      poly[0].z=50;
+      poly[1].x=275;
+      poly[1].y=100;
+      poly[1].z=50;
+      poly[2].x=155;
+      poly[2].y=200;
+      poly[2].z=50;
+      poly[3].x=100;
+      poly[3].y=200;
+      poly[3].z=50;
+      GrFillPoly3(dc,4,poly);
+
+      dc->color=BLUE;
+      poly[0].x=50;
+      poly[0].y=150;
+      poly[0].z=-50;
+      poly[1].x=275;
+      poly[1].y=100;
+      poly[1].z=-50;
+      poly[2].x=155;
+      poly[2].y=200;
+      poly[2].z=-50;
+      poly[3].x=100;
+      poly[3].y=200;
+      poly[3].z=-50;
+      GrFillPoly3(dc,4,poly);
+
+      dc->color=RED+GREEN<<16+ROPF_DITHER;
+      poly[0].x=50;
+      poly[0].y=150;
+      poly[0].z=50;
+      poly[1].x=275;
+      poly[1].y=100;
+      poly[1].z=50;
+      poly[2].x=275;
+      poly[2].y=100;
+      poly[2].z=0;
+      poly[3].x=50;
+      poly[3].y=150;
+      poly[3].z=0;
+      GrFillPoly3(dc,4,poly);
+
+      dc->color=BLUE+GREEN<<16+ROPF_DITHER;
+      poly[0].x=100;
+      poly[0].y=200;
+      poly[0].z=-50;
+      poly[1].x=155;
+      poly[1].y=200;
+      poly[1].z=-50;
+      poly[2].x=155;
+      poly[2].y=200;
+      poly[2].z=0;
+      poly[3].x=100;
+      poly[3].y=200;
+      poly[3].z=0;
+      GrFillPoly3(dc,4,poly);
+
+      WinMgrSync;
+      DCFill;
+      é+=2.1*ă/180.0;
+      č+=1.1*ă/180.0;
+      ę+=0.5*ă/180.0;
+    }
+  } catch
+    CatchAll;
+
+  DCFill;
+  DCDel(dc);
+}
+
+Main;