50 lines
1.2 KiB
HolyC
50 lines
1.2 KiB
HolyC
|
//This just shows how scrn memory works.
|
|||
|
|
//See $LK,"::/Demo/Lectures/MiniGrLib.HC"$
|
|||
|
|
|
|||
|
|
U0 PlotXY(I64 x,I64 y)
|
|||
|
|
{
|
|||
|
|
//Scrn bits are revd
|
|||
|
|
LBts(text.vga_alias,y*GR_WIDTH+x^7);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
U0 Main()
|
|||
|
|
{
|
|||
|
|
I64 i;
|
|||
|
|
//This makes all 4 color planes active.
|
|||
|
|
OutU8(VGAP_IDX,VGAR_MAP_MASK);
|
|||
|
|
OutU8(VGAP_DATA,WHITE);
|
|||
|
|
MemSet(text.vga_alias,0,GR_WIDTH*GR_HEIGHT/8);
|
|||
|
|
|
|||
|
|
OutU8(VGAP_IDX,VGAR_MAP_MASK);
|
|||
|
|
OutU8(VGAP_DATA,RED);
|
|||
|
|
for (i=0;i<200;i++)
|
|||
|
|
PlotXY(i,i);
|
|||
|
|
|
|||
|
|
OutU8(VGAP_IDX,VGAR_MAP_MASK);
|
|||
|
|
OutU8(VGAP_DATA,GREEN);
|
|||
|
|
for (i=0;i<200;i++)
|
|||
|
|
PlotXY(100,i);
|
|||
|
|
|
|||
|
|
OutU8(VGAP_IDX,VGAR_MAP_MASK);
|
|||
|
|
OutU8(VGAP_DATA,BLUE);
|
|||
|
|
for (i=0;i<200;i++)
|
|||
|
|
PlotXY(200-i,i);
|
|||
|
|
/*If you want a mixed color sel multiple planes
|
|||
|
|
but you have to be sure the unseled planes
|
|||
|
|
are zero, so sel them and make them zero.
|
|||
|
|
You can't do reads on VGA memory, by the way.
|
|||
|
|
That means no read-modify-writes, too.
|
|||
|
|
*/
|
|||
|
|
Busy(4000000);
|
|||
|
|
|
|||
|
|
//TempleOS has a 4 plane memory duplicate of the scrn, $LK,"gr.scrn_image",A="MN:CGrGlbls"$,
|
|||
|
|
//and only writes actual changes. See $LK,"GrUpdateVGAGraphics",A="MN:GrUpdateVGAGraphics"$().
|
|||
|
|
//<CTRL-ALT-v> will flush scrn VGA cache.
|
|||
|
|
VGAFlush;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
Main;
|
|||
|
|
|
|||
|
|
//See $LK,"::/Demo/Lectures/GraphicsCPULoad.HC"$.
|
|||
|
|
|