ZealOS/Demo/ScrnCodes.HC

28 lines
592 B
HolyC
Raw Normal View History

2020-02-15 20:01:48 +00:00
/*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;