73 lines
1.6 KiB
OpenEdge ABL
73 lines
1.6 KiB
OpenEdge ABL
/********************************************************************************
|
|
|
|
#define road_root(p) (p->s[stw_work2].pointer)
|
|
#define road_pointer(p) (p->s[stw_work3].pointer)
|
|
#define road_flag(p) (p->s[stw_work4].d)
|
|
#define road_angleX(p) (p->s[stw_work5].d)
|
|
#define road_angleY(p) (p->s[stw_work6].d)
|
|
#define road_groundY(p) (p->s[stw_work7].f)
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
e_testlift:
|
|
p_initialize(moveBG)
|
|
p_setbit(flag,stf_moveON )
|
|
p_movebginfo(testlift_info)
|
|
p_while
|
|
p_program(s_testlift)
|
|
p_loop
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
|
|
|
|
|
|
/********************************************************************************
|
|
C Program (testlift)
|
|
********************************************************************************/
|
|
|
|
static short test_liftdata[] = {
|
|
|
|
0,0, 0,1000, /* (X),(Y),(Z) */
|
|
1,1000, 100,1000, /* (X),(Y),(Z) */
|
|
2,1000, 200, 0, /* (X),(Y),(Z) */
|
|
3, 0, 100, 0, /* (X),(Y),(Z) */
|
|
-1,
|
|
};
|
|
|
|
extern void s_testlift(void)
|
|
{
|
|
|
|
int flag;
|
|
|
|
road_root(execstp) = test_liftdata; /* data read */
|
|
|
|
flag = s_road_move(0);
|
|
|
|
obj_speedF = 10; /* set speed */
|
|
obj_angleX = road_angleX(execstp); /* speed X Angle */
|
|
obj_angleY = road_angleY(execstp); /* speed Y Angle */
|
|
|
|
s_3Dmove();
|
|
stMainMoveBG();
|
|
|
|
rmonpf(("%d,%d\n",flag,road_flag(execstp) ));
|
|
|
|
}
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|