Files
TempleOS-Rijn/LT/DEMO/Debug/Test.CPZ
T
2018-09-08 21:45:17 +02:00

63 lines
1.6 KiB
Plaintext

/* This program is to demo debugging.
Debugging is not very good yet.
1) Include this file into a task.
2) Type "Dbg;" on the command line to spawn
a child task for source debugging. Since
it is a child it will have access to all the
parent's symbols.
3) Edit this file from the child task and press F9
to toggle breakpoints.
4) Type "Test;" in the parent to run until a break point.
5) In the dbg child-task edit window,
Type F5 to Go
Type SHIFT-F5 to single-step (sorta works)
Type F9 to toggle bpt
Type SHIFT-F9 to clear-all bpts
*/
$PI,"<1>",1$
$PI,"<2>",2$
$PI,"<4>",4$
void Test()
{
U1 *img1=$IB,"<1>",1$;
U1 *img2=$IB,"<2>",2$;
U1 *img3=$IB,"<4>",4$;
GrBitMap *base=GrNew(grbase);
I4 i=0;
while (i<100) {
GrClear;
base->color=GR_RED;
base->pen_width=3;
GrElemsPlot(base,i&511,i&255,0,img1,GR_WHITE);
GrElemsPlot(base,i&127,i&511,0,img2,GR_WHITE);
GrElemsPlot(base,i&127,i&511,0,img3,GR_WHITE);
i++;
Sleep(10);
}
}
h!#,,,$,$  11""©    "?*HHQ*GGùÿÿÿ@ýÿÿÿPþÿÿÿPþÿÿÿP=þÿÿÿ>I÷ÿÿÿMõÿÿÿMõÿÿÿNíÿÿÿNíÿÿÿJéÿÿÿJéÿÿÿDéÿÿÿDéÿÿÿ@îÿÿÿ@îÿÿÿBôÿÿÿBôÿÿÿFøÿÿÿ