LTCD_060719.ISO

LT/DEMO/Graphics/Blot.CPZ

@@ -0,0 +1,29 @@
+GrBitMap *b=GrNew(grbase);
+GrBitMap *img1=GrBitMapNew(BMT_MONO,128,128);
+GrBitMap *img2=GrBitMapNew(BMT_COLOR4,512,512);
+
+img1->color=GR_WHITE;
+img1->pen_width=3;
+GrLine3(img1,60,0,0,0,60,0);
+GrCircle(img1,30,30,20);
+
+img2->color=GR_RED^GR_WHITE|ROP_OR;
+img2->brush=img1;
+GrCircle(img2,256-30,256-30,128,67);
+img2->color=GR_BLUE^GR_WHITE;
+img2->pen_width=6;
+img2->brush=NULL;
+GrLine3(img2,128,128,0,256+128,256+128,0);
+GrLine3(img2,256+128,128,0,128,256+128,0);
+
+I8 i;
+for (i=0;i<256;i+=4) {
+  GrClear;
+  GrBlot(b,i-256,i-256,img2);
+  Sleep(20);
+}
+
+GrDel(img1);
+GrDel(img2);
+GrDel(b);
+

LT/DEMO/Graphics/Box.CPZ

@@ -0,0 +1,60 @@
+GrBitMap *base=GrNew(grbase2);
+
+void DrawIt()
+{
+  ClearWindowText;
+  base->pen_width=2;
+  base->color=GR_RED;
+  GrLine3(base,-100,-100,-100, -100, 100,-100);
+  GrLine3(base,-100, 100,-100,	100, 100,-100);
+  GrLine3(base, 100, 100,-100,	100,-100,-100);
+  GrLine3(base, 100,-100,-100, -100,-100,-100);
+
+  GrLine3(base,-100,-100, 100, -100, 100, 100);
+  GrLine3(base,-100, 100, 100,	100, 100, 100);
+  GrLine3(base, 100, 100, 100,	100,-100, 100);
+  GrLine3(base, 100,-100, 100, -100,-100, 100);
+
+  GrLine3(base,-100,-100, 100, -100,-100,-100);
+  GrLine3(base,-100, 100, 100, -100, 100,-100);
+  GrLine3(base, 100, 100, 100,	100, 100,-100);
+  GrLine3(base, 100,-100, 100,	100,-100,-100);
+}
+
+void Box()
+{
+  double theta=0,phi=0,zeta=0,s=1,s1=1.05;
+  I8 *r1,*r2,*r3,*r4,*r5;
+  U8 sc,ch;
+  U4 *old_update_window=Fs->update_window;
+  Fs->update_window=&DrawIt;
+
+  base->x=200;
+  base->y=200;
+  base->flags|=BMF_TRANSFORMATION;
+  while (TRUE) {
+    if (ScanChar(&sc,&ch)) break;
+    r1=GrTheta(theta);
+    r2=GrPhi(phi);
+    r3=GrTheta(zeta);
+    r4=GrMulMat(r1,r2);
+    r5=GrMulMat(r4,r3);
+    Free(base->r);
+    base->r=GrScaleMat(r5,s);
+    Free(r1);
+    Free(r2);
+    Free(r3);
+    Free(r4);
+    Free(r5);
+
+    Sleep(60);
+    theta+=pi2/70;
+    phi  +=pi2/90;
+    zeta +=pi2/110;
+    s *=s1;
+    if (s<0.2|| s>1.4) s1=1/s1;
+  }
+  Fs->update_window=old_update_window;
+}
+
+Box;

LT/DEMO/Graphics/DotNet.CPZ

@@ -0,0 +1,12 @@
+void DotNet()
+{
+  I8 i;
+  GrBitMap *base=GrNew(grbase);
+  PrintF("$$CL$$");  //Clear text
+  base->color=GR_RED^GR_WHITE; //Printed on white background
+  for (i=0;i<600;i+=20)
+    GrLine(base,i,0,0,600-i,3);
+}
+
+DotNet;  //Run when #included
+//Type "GrClear;" to get rid of it