65 lines
2.8 KiB
HolyC
65 lines
2.8 KiB
HolyC
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"<1>",BI=1$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
U0 RotateTank()
|
||
{
|
||
CDC *dc=DCAlias;
|
||
DCDepthBufAlloc(dc);
|
||
dc->flags|=DCF_TRANSFORMATION;
|
||
WinHorz(TEXT_COLS/2-12,TEXT_COLS/2+12);
|
||
WinVert(TEXT_ROWS/2-12,TEXT_ROWS/2+12);
|
||
DocClear;
|
||
try {
|
||
while (!ScanChar) {
|
||
DCDepthBufRst(dc);
|
||
Mat4x4IdentEqu(dc->r);
|
||
Mat4x4RotY(dc->r,0.25*Sin(tS/10*2*ã)+ã/2);
|
||
Mat4x4RotX(dc->r,0.4*Sin(tS/5*2*ã));
|
||
Mat4x4RotZ(dc->r,0.25*Sin(tS/10*2*ã)-ã/2);
|
||
Mat4x4Scale(dc->r,0.25+Saw(tS,5));
|
||
DCMat4x4Set(dc,dc->r);//Not needed--Sets scale for pen-width
|
||
|
||
dc->x=Fs->pix_width/2;
|
||
dc->y=Fs->pix_height/2;
|
||
//Offsets the image Z so that no parts are clipped by
|
||
//the conceptual plane of the scrn.
|
||
dc->z=GR_Z_ALL;
|
||
|
||
Sprite3(dc,0,0,0,$IB,"<1>",BI=1$);
|
||
Refresh;
|
||
DCFill;
|
||
}
|
||
} catch
|
||
PutExcept;
|
||
|
||
DCFill;
|
||
DCDel(dc);
|
||
}
|
||
|
||
RotateTank;
|
||
² 6 R F # ( ºÿÿÿ# ( ºÿÿÿ# ØÿÿÿF # Øÿÿÿd # d # ìÿÿÿœÿÿÿ# ìÿÿÿœÿÿÿ# F 2 ( ºÿÿÿ2 ( œÿÿÿ2 œÿÿÿ2 ìÿÿÿºÿÿÿ2 ØÿÿÿF 2 Øÿÿÿd 2 ìÿÿÿd 2 P # öÿÿÿP # # F Øÿÿÿ# F Éÿÿÿ# A # çÿÿÿF Ýÿÿÿ( ºÿÿÿÝÿÿÿ( ºÿÿÿÝÿÿÿØÿÿÿF ÝÿÿÿØÿÿÿd ÝÿÿÿìÿÿÿœÿÿÿÝÿÿÿìÿÿÿœÿÿÿÝÿÿÿ F Îÿÿÿ( ºÿÿÿÎÿÿÿ( œÿÿÿÎÿÿÿ œÿÿÿÎÿÿÿìÿÿÿºÿÿÿÎÿÿÿØÿÿÿF ÎÿÿÿØÿÿÿd Îÿÿÿìÿÿÿd Îÿÿÿ P ÝÿÿÿöÿÿÿP Ýÿÿÿ ÝÿÿÿF ØÿÿÿÝÿÿÿF ÉÿÿÿÝÿÿÿ ÉÿÿÿÝÿÿÿçÿÿÿA ÝÿÿÿçÿÿÿÉÿÿÿ# çÿÿÿd Ýÿÿÿ ûÿÿÿ2 2 ( ûÿÿÿ( – ûÿÿÿ2 – 2 – ( – ûÿÿÿ(
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$ " $ # " ! ! " ! # " $ # ! ! " ! " % + + & % % ' & & ( ' ' ( ( ) ) , ) , * * , * + - $ $ - $ ' ( ) ' ) & 3 / . . 2 3 2 . 1 1 5 2 3 4 0 0 / 3 4 5 1 1 0 4 - " |