Files
TempleOS-Rijn/TempleOS/Demo/Graphics/PanText.CPP
T
2018-09-08 21:45:52 +02:00

36 lines
433 B
C++

U0 PanText()
{
I64 i;
for (i=0;i<=7;i++) {
gr_pan_text_x=i;
Sleep(30);
}
i--;
for (;i>=-7;i--) {
gr_pan_text_x=i;
Sleep(30);
}
i++;
for (;i<=0;i++) {
gr_pan_text_x=i;
Sleep(30);
}
for (i=0;i<=7;i++) {
gr_pan_text_y=i;
Sleep(30);
}
i--;
for (;i>=-7;i--) {
gr_pan_text_y=i;
Sleep(30);
}
i++;
for (;i<=0;i++) {
gr_pan_text_y=i;
Sleep(30);
}
}
PanText;