A TempleOS distro for heretics
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

28 lines
592 B

/*See $LK,"TextBase Layer",A="HI:TextBase Layer"$ for the format
of the U32 you pass to TextChar()
See $LK,"::/Doc/CharOverview.DD"$, $LK,"::/Demo/ExtChars.HC"$,
and $LK,"::/Demo/Graphics/FontEd.HC"$.
Hold <ALT> and press a 3 digit decimal number
or press <CTRL-ALT-a> to enter extended characters.
*/
U0 DrawIt(CTask *task,CDC *)
{
I64 i;
for (i=0;i<256;i++)
TextChar(task,,(i&15)*2,(i/16)*2,i+BLACK<<12+WHITE<<8);
}
U0 ScrnCodes()
{
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
DocClear;
Fs->draw_it=&DrawIt;
GetChar(,FALSE);
SettingsPop;
}
ScrnCodes;