Files
TempleOS-Rijn/Demo/Graphics/Moon.CPP
T
2018-09-08 21:46:02 +02:00

25 lines
627 B
C++

/*
$LK,"gr_dc",A="MN:gr_dc"$ is the persistent layer. You can access
it directly but two tasks accessing it simultaneously
with no $LK,"DCAlias",A="MN:DCAlias"$() will screw-up color and stuff.
*/
U0 Moon()
{
I64 i;
for (i=0;i<0x8000;i+=0x200) {
gr_dc->color=BLACK;
GrCircle(gr_dc,300,300,100);
GrCircle(gr_dc,250,300,120,,-.32*pi,0.64*pi);
gr_dc->color=ROPF_PROBABILITY_DITHER+LTGRAY<<16+BLUE;
gr_dc->dither_probability_u16=i;
GrFloodFill(gr_dc,250,300);
gr_dc->dither_probability_u16=2*i;
GrFloodFill(gr_dc,370,300);
WinMgrSync; //Typically 60 fps or 16.6mS
DCFill;
}
}
Moon;