LTCD_060719.ISO

This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:45:17 +02:00
commit f86e69648b
156 files changed
+49537

No files matched your search

+29
View File
@@ -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);