mirror of https://github.com/arendst/Tasmota.git
713 lines
27 KiB
C
713 lines
27 KiB
C
/********************************************************************
|
|
* Berry module `animate`
|
|
*
|
|
* To use: `import animate`
|
|
*
|
|
*******************************************************************/
|
|
#include "be_constobj.h"
|
|
|
|
/********************************************************************
|
|
** Solidified function: init
|
|
********************************************************************/
|
|
be_local_closure(Animate_rotate_init, /* name */
|
|
be_nested_proto(
|
|
12, /* nstack */
|
|
5, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 8]) { /* constants */
|
|
/* K0 */ be_nested_str(init),
|
|
/* K1 */ be_nested_str(closure),
|
|
/* K2 */ be_nested_str(code),
|
|
/* K3 */ be_nested_str(push),
|
|
/* K4 */ be_nested_str(animate),
|
|
/* K5 */ be_nested_str(ins_ramp),
|
|
/* K6 */ be_nested_str(ins_goto),
|
|
/* K7 */ be_const_int(0),
|
|
}),
|
|
&be_const_str_init,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[25]) { /* code */
|
|
0x60140003, // 0000 GETGBL R5 G3
|
|
0x5C180000, // 0001 MOVE R6 R0
|
|
0x7C140200, // 0002 CALL R5 1
|
|
0x8C140B00, // 0003 GETMET R5 R5 K0
|
|
0x7C140200, // 0004 CALL R5 1
|
|
0x90020201, // 0005 SETMBR R0 K1 R1
|
|
0x88140102, // 0006 GETMBR R5 R0 K2
|
|
0x8C140B03, // 0007 GETMET R5 R5 K3
|
|
0xB81E0800, // 0008 GETNGBL R7 K4
|
|
0x8C1C0F05, // 0009 GETMET R7 R7 K5
|
|
0x5C240400, // 000A MOVE R9 R2
|
|
0x5C280600, // 000B MOVE R10 R3
|
|
0x5C2C0800, // 000C MOVE R11 R4
|
|
0x7C1C0800, // 000D CALL R7 4
|
|
0x7C140400, // 000E CALL R5 2
|
|
0x88140102, // 000F GETMBR R5 R0 K2
|
|
0x8C140B03, // 0010 GETMET R5 R5 K3
|
|
0xB81E0800, // 0011 GETNGBL R7 K4
|
|
0x8C1C0F06, // 0012 GETMET R7 R7 K6
|
|
0x58240007, // 0013 LDCONST R9 K7
|
|
0x58280007, // 0014 LDCONST R10 K7
|
|
0x582C0007, // 0015 LDCONST R11 K7
|
|
0x7C1C0800, // 0016 CALL R7 4
|
|
0x7C140400, // 0017 CALL R5 2
|
|
0x80000000, // 0018 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified class: Animate_rotate
|
|
********************************************************************/
|
|
extern const bclass be_class_Animate_engine;
|
|
be_local_class(Animate_rotate,
|
|
0,
|
|
&be_class_Animate_engine,
|
|
be_nested_map(1,
|
|
( (struct bmapnode*) &(const bmapnode[]) {
|
|
{ be_const_key(init, -1), be_const_closure(Animate_rotate_init_closure) },
|
|
})),
|
|
be_str_literal("Animate_rotate")
|
|
);
|
|
|
|
/********************************************************************
|
|
** Solidified function: init
|
|
********************************************************************/
|
|
be_local_closure(Animate_from_to_init, /* name */
|
|
be_nested_proto(
|
|
12, /* nstack */
|
|
5, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 6]) { /* constants */
|
|
/* K0 */ be_nested_str(init),
|
|
/* K1 */ be_nested_str(closure),
|
|
/* K2 */ be_nested_str(code),
|
|
/* K3 */ be_nested_str(push),
|
|
/* K4 */ be_nested_str(animate),
|
|
/* K5 */ be_nested_str(ins_ramp),
|
|
}),
|
|
&be_const_str_init,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[16]) { /* code */
|
|
0x60140003, // 0000 GETGBL R5 G3
|
|
0x5C180000, // 0001 MOVE R6 R0
|
|
0x7C140200, // 0002 CALL R5 1
|
|
0x8C140B00, // 0003 GETMET R5 R5 K0
|
|
0x7C140200, // 0004 CALL R5 1
|
|
0x90020201, // 0005 SETMBR R0 K1 R1
|
|
0x88140102, // 0006 GETMBR R5 R0 K2
|
|
0x8C140B03, // 0007 GETMET R5 R5 K3
|
|
0xB81E0800, // 0008 GETNGBL R7 K4
|
|
0x8C1C0F05, // 0009 GETMET R7 R7 K5
|
|
0x5C240400, // 000A MOVE R9 R2
|
|
0x5C280600, // 000B MOVE R10 R3
|
|
0x5C2C0800, // 000C MOVE R11 R4
|
|
0x7C1C0800, // 000D CALL R7 4
|
|
0x7C140400, // 000E CALL R5 2
|
|
0x80000000, // 000F RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified class: Animate_from_to
|
|
********************************************************************/
|
|
extern const bclass be_class_Animate_engine;
|
|
be_local_class(Animate_from_to,
|
|
0,
|
|
&be_class_Animate_engine,
|
|
be_nested_map(1,
|
|
( (struct bmapnode*) &(const bmapnode[]) {
|
|
{ be_const_key(init, -1), be_const_closure(Animate_from_to_init_closure) },
|
|
})),
|
|
be_str_literal("Animate_from_to")
|
|
);
|
|
|
|
/********************************************************************
|
|
** Solidified function: init
|
|
********************************************************************/
|
|
be_local_closure(Animate_back_forth_init, /* name */
|
|
be_nested_proto(
|
|
12, /* nstack */
|
|
5, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 9]) { /* constants */
|
|
/* K0 */ be_nested_str(init),
|
|
/* K1 */ be_nested_str(closure),
|
|
/* K2 */ be_nested_str(code),
|
|
/* K3 */ be_nested_str(push),
|
|
/* K4 */ be_nested_str(animate),
|
|
/* K5 */ be_nested_str(ins_ramp),
|
|
/* K6 */ be_const_int(2),
|
|
/* K7 */ be_nested_str(ins_goto),
|
|
/* K8 */ be_const_int(0),
|
|
}),
|
|
&be_const_str_init,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[34]) { /* code */
|
|
0x60140003, // 0000 GETGBL R5 G3
|
|
0x5C180000, // 0001 MOVE R6 R0
|
|
0x7C140200, // 0002 CALL R5 1
|
|
0x8C140B00, // 0003 GETMET R5 R5 K0
|
|
0x7C140200, // 0004 CALL R5 1
|
|
0x90020201, // 0005 SETMBR R0 K1 R1
|
|
0x88140102, // 0006 GETMBR R5 R0 K2
|
|
0x8C140B03, // 0007 GETMET R5 R5 K3
|
|
0xB81E0800, // 0008 GETNGBL R7 K4
|
|
0x8C1C0F05, // 0009 GETMET R7 R7 K5
|
|
0x5C240400, // 000A MOVE R9 R2
|
|
0x5C280600, // 000B MOVE R10 R3
|
|
0x0C2C0906, // 000C DIV R11 R4 K6
|
|
0x7C1C0800, // 000D CALL R7 4
|
|
0x7C140400, // 000E CALL R5 2
|
|
0x88140102, // 000F GETMBR R5 R0 K2
|
|
0x8C140B03, // 0010 GETMET R5 R5 K3
|
|
0xB81E0800, // 0011 GETNGBL R7 K4
|
|
0x8C1C0F05, // 0012 GETMET R7 R7 K5
|
|
0x5C240600, // 0013 MOVE R9 R3
|
|
0x5C280400, // 0014 MOVE R10 R2
|
|
0x0C2C0906, // 0015 DIV R11 R4 K6
|
|
0x7C1C0800, // 0016 CALL R7 4
|
|
0x7C140400, // 0017 CALL R5 2
|
|
0x88140102, // 0018 GETMBR R5 R0 K2
|
|
0x8C140B03, // 0019 GETMET R5 R5 K3
|
|
0xB81E0800, // 001A GETNGBL R7 K4
|
|
0x8C1C0F07, // 001B GETMET R7 R7 K7
|
|
0x58240008, // 001C LDCONST R9 K8
|
|
0x58280008, // 001D LDCONST R10 K8
|
|
0x582C0008, // 001E LDCONST R11 K8
|
|
0x7C1C0800, // 001F CALL R7 4
|
|
0x7C140400, // 0020 CALL R5 2
|
|
0x80000000, // 0021 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified class: Animate_back_forth
|
|
********************************************************************/
|
|
extern const bclass be_class_Animate_engine;
|
|
be_local_class(Animate_back_forth,
|
|
0,
|
|
&be_class_Animate_engine,
|
|
be_nested_map(1,
|
|
( (struct bmapnode*) &(const bmapnode[]) {
|
|
{ be_const_key(init, -1), be_const_closure(Animate_back_forth_init_closure) },
|
|
})),
|
|
be_str_literal("Animate_back_forth")
|
|
);
|
|
|
|
/********************************************************************
|
|
** Solidified function: init
|
|
********************************************************************/
|
|
be_local_closure(Animate_ins_goto_init, /* name */
|
|
be_nested_proto(
|
|
4, /* nstack */
|
|
4, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 3]) { /* constants */
|
|
/* K0 */ be_nested_str(pc_rel),
|
|
/* K1 */ be_nested_str(pc_abs),
|
|
/* K2 */ be_nested_str(duration),
|
|
}),
|
|
&be_const_str_init,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[ 4]) { /* code */
|
|
0x90020001, // 0000 SETMBR R0 K0 R1
|
|
0x90020202, // 0001 SETMBR R0 K1 R2
|
|
0x90020403, // 0002 SETMBR R0 K2 R3
|
|
0x80000000, // 0003 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified class: Animate_ins_goto
|
|
********************************************************************/
|
|
be_local_class(Animate_ins_goto,
|
|
3,
|
|
NULL,
|
|
be_nested_map(4,
|
|
( (struct bmapnode*) &(const bmapnode[]) {
|
|
{ be_const_key(pc_rel, -1), be_const_var(0) },
|
|
{ be_const_key(duration, -1), be_const_var(2) },
|
|
{ be_const_key(pc_abs, -1), be_const_var(1) },
|
|
{ be_const_key(init, 2), be_const_closure(Animate_ins_goto_init_closure) },
|
|
})),
|
|
be_str_literal("Animate_ins_goto")
|
|
);
|
|
|
|
/********************************************************************
|
|
** Solidified function: init
|
|
********************************************************************/
|
|
be_local_closure(Animate_ins_ramp_init, /* name */
|
|
be_nested_proto(
|
|
4, /* nstack */
|
|
4, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 3]) { /* constants */
|
|
/* K0 */ be_nested_str(a),
|
|
/* K1 */ be_nested_str(b),
|
|
/* K2 */ be_nested_str(duration),
|
|
}),
|
|
&be_const_str_init,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[ 4]) { /* code */
|
|
0x90020001, // 0000 SETMBR R0 K0 R1
|
|
0x90020202, // 0001 SETMBR R0 K1 R2
|
|
0x90020403, // 0002 SETMBR R0 K2 R3
|
|
0x80000000, // 0003 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified class: Animate_ins_ramp
|
|
********************************************************************/
|
|
be_local_class(Animate_ins_ramp,
|
|
3,
|
|
NULL,
|
|
be_nested_map(4,
|
|
( (struct bmapnode*) &(const bmapnode[]) {
|
|
{ be_const_key(a, -1), be_const_var(0) },
|
|
{ be_const_key(b, 2), be_const_var(1) },
|
|
{ be_const_key(duration, -1), be_const_var(2) },
|
|
{ be_const_key(init, -1), be_const_closure(Animate_ins_ramp_init_closure) },
|
|
})),
|
|
be_str_literal("Animate_ins_ramp")
|
|
);
|
|
|
|
/********************************************************************
|
|
** Solidified function: run
|
|
********************************************************************/
|
|
be_local_closure(Animate_engine_run, /* name */
|
|
be_nested_proto(
|
|
6, /* nstack */
|
|
3, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 6]) { /* constants */
|
|
/* K0 */ be_nested_str(tasmota),
|
|
/* K1 */ be_nested_str(millis),
|
|
/* K2 */ be_nested_str(value),
|
|
/* K3 */ be_nested_str(ins_time),
|
|
/* K4 */ be_nested_str(running),
|
|
/* K5 */ be_nested_str(add_driver),
|
|
}),
|
|
&be_const_str_run,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[19]) { /* code */
|
|
0x4C0C0000, // 0000 LDNIL R3
|
|
0x1C0C0203, // 0001 EQ R3 R1 R3
|
|
0x780E0003, // 0002 JMPF R3 #0007
|
|
0xB80E0000, // 0003 GETNGBL R3 K0
|
|
0x8C0C0701, // 0004 GETMET R3 R3 K1
|
|
0x7C0C0200, // 0005 CALL R3 1
|
|
0x5C040600, // 0006 MOVE R1 R3
|
|
0x4C0C0000, // 0007 LDNIL R3
|
|
0x200C0403, // 0008 NE R3 R2 R3
|
|
0x780E0000, // 0009 JMPF R3 #000B
|
|
0x90020402, // 000A SETMBR R0 K2 R2
|
|
0x90020601, // 000B SETMBR R0 K3 R1
|
|
0x500C0200, // 000C LDBOOL R3 1 0
|
|
0x90020803, // 000D SETMBR R0 K4 R3
|
|
0xB80E0000, // 000E GETNGBL R3 K0
|
|
0x8C0C0705, // 000F GETMET R3 R3 K5
|
|
0x5C140000, // 0010 MOVE R5 R0
|
|
0x7C0C0400, // 0011 CALL R3 2
|
|
0x80000000, // 0012 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified function: init
|
|
********************************************************************/
|
|
be_local_closure(Animate_engine_init, /* name */
|
|
be_nested_proto(
|
|
2, /* nstack */
|
|
1, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 5]) { /* constants */
|
|
/* K0 */ be_nested_str(code),
|
|
/* K1 */ be_nested_str(pc),
|
|
/* K2 */ be_const_int(0),
|
|
/* K3 */ be_nested_str(ins_time),
|
|
/* K4 */ be_nested_str(running),
|
|
}),
|
|
&be_const_str_init,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[ 8]) { /* code */
|
|
0x60040012, // 0000 GETGBL R1 G18
|
|
0x7C040000, // 0001 CALL R1 0
|
|
0x90020001, // 0002 SETMBR R0 K0 R1
|
|
0x90020302, // 0003 SETMBR R0 K1 K2
|
|
0x90020702, // 0004 SETMBR R0 K3 K2
|
|
0x50040000, // 0005 LDBOOL R1 0 0
|
|
0x90020801, // 0006 SETMBR R0 K4 R1
|
|
0x80000000, // 0007 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified function: autorun
|
|
********************************************************************/
|
|
be_local_closure(Animate_engine_autorun, /* name */
|
|
be_nested_proto(
|
|
7, /* nstack */
|
|
3, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 3]) { /* constants */
|
|
/* K0 */ be_nested_str(run),
|
|
/* K1 */ be_nested_str(tasmota),
|
|
/* K2 */ be_nested_str(add_driver),
|
|
}),
|
|
&be_const_str_autorun,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[ 9]) { /* code */
|
|
0x8C0C0100, // 0000 GETMET R3 R0 K0
|
|
0x5C140200, // 0001 MOVE R5 R1
|
|
0x5C180400, // 0002 MOVE R6 R2
|
|
0x7C0C0600, // 0003 CALL R3 3
|
|
0xB80E0200, // 0004 GETNGBL R3 K1
|
|
0x8C0C0702, // 0005 GETMET R3 R3 K2
|
|
0x5C140000, // 0006 MOVE R5 R0
|
|
0x7C0C0400, // 0007 CALL R3 2
|
|
0x80000000, // 0008 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified function: stop
|
|
********************************************************************/
|
|
be_local_closure(Animate_engine_stop, /* name */
|
|
be_nested_proto(
|
|
4, /* nstack */
|
|
1, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 3]) { /* constants */
|
|
/* K0 */ be_nested_str(running),
|
|
/* K1 */ be_nested_str(tasmota),
|
|
/* K2 */ be_nested_str(remove_driver),
|
|
}),
|
|
&be_const_str_stop,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[ 7]) { /* code */
|
|
0x50040000, // 0000 LDBOOL R1 0 0
|
|
0x90020001, // 0001 SETMBR R0 K0 R1
|
|
0xB8060200, // 0002 GETNGBL R1 K1
|
|
0x8C040302, // 0003 GETMET R1 R1 K2
|
|
0x5C0C0000, // 0004 MOVE R3 R0
|
|
0x7C040400, // 0005 CALL R1 2
|
|
0x80000000, // 0006 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified function: is_running
|
|
********************************************************************/
|
|
be_local_closure(Animate_engine_is_running, /* name */
|
|
be_nested_proto(
|
|
2, /* nstack */
|
|
1, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 1]) { /* constants */
|
|
/* K0 */ be_nested_str(running),
|
|
}),
|
|
&be_const_str_is_running,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[ 2]) { /* code */
|
|
0x88040100, // 0000 GETMBR R1 R0 K0
|
|
0x80040200, // 0001 RET 1 R1
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified function: every_50ms
|
|
********************************************************************/
|
|
be_local_closure(Animate_engine_every_50ms, /* name */
|
|
be_nested_proto(
|
|
3, /* nstack */
|
|
1, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[ 1]) { /* constants */
|
|
/* K0 */ be_nested_str(animate),
|
|
}),
|
|
&be_const_str_every_50ms,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[ 3]) { /* code */
|
|
0x8C040100, // 0000 GETMET R1 R0 K0
|
|
0x7C040200, // 0001 CALL R1 1
|
|
0x80000000, // 0002 RET 0
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified function: animate
|
|
********************************************************************/
|
|
be_local_closure(Animate_engine_animate, /* name */
|
|
be_nested_proto(
|
|
12, /* nstack */
|
|
2, /* argc */
|
|
0, /* varg */
|
|
0, /* has upvals */
|
|
NULL, /* no upvals */
|
|
0, /* has sup protos */
|
|
NULL, /* no sub protos */
|
|
1, /* has constants */
|
|
( &(const bvalue[22]) { /* constants */
|
|
/* K0 */ be_nested_str(running),
|
|
/* K1 */ be_nested_str(tasmota),
|
|
/* K2 */ be_nested_str(millis),
|
|
/* K3 */ be_nested_str(ins_time),
|
|
/* K4 */ be_nested_str(pc),
|
|
/* K5 */ be_nested_str(code),
|
|
/* K6 */ be_const_int(0),
|
|
/* K7 */ be_nested_str(internal_error),
|
|
/* K8 */ be_nested_str(Animate_X20pc_X20is_X20out_X20of_X20range),
|
|
/* K9 */ be_nested_str(animate),
|
|
/* K10 */ be_nested_str(ins_ramp),
|
|
/* K11 */ be_nested_str(closure),
|
|
/* K12 */ be_nested_str(duration),
|
|
/* K13 */ be_nested_str(value),
|
|
/* K14 */ be_nested_str(scale_uint),
|
|
/* K15 */ be_nested_str(a),
|
|
/* K16 */ be_nested_str(b),
|
|
/* K17 */ be_const_int(1),
|
|
/* K18 */ be_nested_str(ins_goto),
|
|
/* K19 */ be_nested_str(pc_rel),
|
|
/* K20 */ be_nested_str(pc_abs),
|
|
/* K21 */ be_nested_str(unknown_X20instruction),
|
|
}),
|
|
&be_const_str_animate,
|
|
&be_const_str_solidified,
|
|
( &(const binstruction[99]) { /* code */
|
|
0x88080100, // 0000 GETMBR R2 R0 K0
|
|
0x740A0000, // 0001 JMPT R2 #0003
|
|
0x80000400, // 0002 RET 0
|
|
0x4C080000, // 0003 LDNIL R2
|
|
0x1C080202, // 0004 EQ R2 R1 R2
|
|
0x780A0003, // 0005 JMPF R2 #000A
|
|
0xB80A0200, // 0006 GETNGBL R2 K1
|
|
0x8C080502, // 0007 GETMET R2 R2 K2
|
|
0x7C080200, // 0008 CALL R2 1
|
|
0x5C040400, // 0009 MOVE R1 R2
|
|
0x50080200, // 000A LDBOOL R2 1 0
|
|
0x780A0054, // 000B JMPF R2 #0061
|
|
0x88080103, // 000C GETMBR R2 R0 K3
|
|
0x04080202, // 000D SUB R2 R1 R2
|
|
0x880C0104, // 000E GETMBR R3 R0 K4
|
|
0x6010000C, // 000F GETGBL R4 G12
|
|
0x88140105, // 0010 GETMBR R5 R0 K5
|
|
0x7C100200, // 0011 CALL R4 1
|
|
0x280C0604, // 0012 GE R3 R3 R4
|
|
0x780E0002, // 0013 JMPF R3 #0017
|
|
0x500C0000, // 0014 LDBOOL R3 0 0
|
|
0x90020003, // 0015 SETMBR R0 K0 R3
|
|
0x70020049, // 0016 JMP #0061
|
|
0x880C0104, // 0017 GETMBR R3 R0 K4
|
|
0x140C0706, // 0018 LT R3 R3 K6
|
|
0x780E0000, // 0019 JMPF R3 #001B
|
|
0xB0060F08, // 001A RAISE 1 K7 K8
|
|
0x880C0104, // 001B GETMBR R3 R0 K4
|
|
0x88100105, // 001C GETMBR R4 R0 K5
|
|
0x940C0803, // 001D GETIDX R3 R4 R3
|
|
0x6014000F, // 001E GETGBL R5 G15
|
|
0x5C180600, // 001F MOVE R6 R3
|
|
0xB81E1200, // 0020 GETNGBL R7 K9
|
|
0x881C0F0A, // 0021 GETMBR R7 R7 K10
|
|
0x7C140400, // 0022 CALL R5 2
|
|
0x78160020, // 0023 JMPF R5 #0045
|
|
0x8810010B, // 0024 GETMBR R4 R0 K11
|
|
0x8814070C, // 0025 GETMBR R5 R3 K12
|
|
0x14140405, // 0026 LT R5 R2 R5
|
|
0x7816000E, // 0027 JMPF R5 #0037
|
|
0xB8160200, // 0028 GETNGBL R5 K1
|
|
0x8C140B0E, // 0029 GETMET R5 R5 K14
|
|
0x5C1C0400, // 002A MOVE R7 R2
|
|
0x58200006, // 002B LDCONST R8 K6
|
|
0x8824070C, // 002C GETMBR R9 R3 K12
|
|
0x8828070F, // 002D GETMBR R10 R3 K15
|
|
0x882C0710, // 002E GETMBR R11 R3 K16
|
|
0x7C140C00, // 002F CALL R5 6
|
|
0x90021A05, // 0030 SETMBR R0 K13 R5
|
|
0x78120002, // 0031 JMPF R4 #0035
|
|
0x5C140800, // 0032 MOVE R5 R4
|
|
0x8818010D, // 0033 GETMBR R6 R0 K13
|
|
0x7C140200, // 0034 CALL R5 1
|
|
0x7002002A, // 0035 JMP #0061
|
|
0x7002000C, // 0036 JMP #0044
|
|
0x88140710, // 0037 GETMBR R5 R3 K16
|
|
0x90021A05, // 0038 SETMBR R0 K13 R5
|
|
0x78120002, // 0039 JMPF R4 #003D
|
|
0x5C140800, // 003A MOVE R5 R4
|
|
0x8818010D, // 003B GETMBR R6 R0 K13
|
|
0x7C140200, // 003C CALL R5 1
|
|
0x88140104, // 003D GETMBR R5 R0 K4
|
|
0x00140B11, // 003E ADD R5 R5 K17
|
|
0x90020805, // 003F SETMBR R0 K4 R5
|
|
0x8814070C, // 0040 GETMBR R5 R3 K12
|
|
0x04140405, // 0041 SUB R5 R2 R5
|
|
0x04140205, // 0042 SUB R5 R1 R5
|
|
0x90020605, // 0043 SETMBR R0 K3 R5
|
|
0x7002001A, // 0044 JMP #0060
|
|
0x6010000F, // 0045 GETGBL R4 G15
|
|
0x5C140600, // 0046 MOVE R5 R3
|
|
0xB81A1200, // 0047 GETNGBL R6 K9
|
|
0x88180D12, // 0048 GETMBR R6 R6 K18
|
|
0x7C100400, // 0049 CALL R4 2
|
|
0x78120013, // 004A JMPF R4 #005F
|
|
0x8810070C, // 004B GETMBR R4 R3 K12
|
|
0x14100404, // 004C LT R4 R2 R4
|
|
0x78120001, // 004D JMPF R4 #0050
|
|
0x70020011, // 004E JMP #0061
|
|
0x7002000D, // 004F JMP #005E
|
|
0x88100713, // 0050 GETMBR R4 R3 K19
|
|
0x20100906, // 0051 NE R4 R4 K6
|
|
0x78120004, // 0052 JMPF R4 #0058
|
|
0x88100104, // 0053 GETMBR R4 R0 K4
|
|
0x88140713, // 0054 GETMBR R5 R3 K19
|
|
0x00100805, // 0055 ADD R4 R4 R5
|
|
0x90020804, // 0056 SETMBR R0 K4 R4
|
|
0x70020001, // 0057 JMP #005A
|
|
0x88100714, // 0058 GETMBR R4 R3 K20
|
|
0x90020804, // 0059 SETMBR R0 K4 R4
|
|
0x8810070C, // 005A GETMBR R4 R3 K12
|
|
0x04100404, // 005B SUB R4 R2 R4
|
|
0x04100204, // 005C SUB R4 R1 R4
|
|
0x90020604, // 005D SETMBR R0 K3 R4
|
|
0x70020000, // 005E JMP #0060
|
|
0xB0060F15, // 005F RAISE 1 K7 K21
|
|
0x7001FFA8, // 0060 JMP #000A
|
|
0x8808010D, // 0061 GETMBR R2 R0 K13
|
|
0x80040400, // 0062 RET 1 R2
|
|
})
|
|
)
|
|
);
|
|
/*******************************************************************/
|
|
|
|
|
|
/********************************************************************
|
|
** Solidified class: Animate_engine
|
|
********************************************************************/
|
|
be_local_class(Animate_engine,
|
|
6,
|
|
NULL,
|
|
be_nested_map(13,
|
|
( (struct bmapnode*) &(const bmapnode[]) {
|
|
{ be_const_key(code, -1), be_const_var(0) },
|
|
{ be_const_key(run, 4), be_const_closure(Animate_engine_run_closure) },
|
|
{ be_const_key(running, 8), be_const_var(4) },
|
|
{ be_const_key(init, -1), be_const_closure(Animate_engine_init_closure) },
|
|
{ be_const_key(autorun, -1), be_const_closure(Animate_engine_autorun_closure) },
|
|
{ be_const_key(value, -1), be_const_var(5) },
|
|
{ be_const_key(stop, 3), be_const_closure(Animate_engine_stop_closure) },
|
|
{ be_const_key(pc, -1), be_const_var(2) },
|
|
{ be_const_key(is_running, 11), be_const_closure(Animate_engine_is_running_closure) },
|
|
{ be_const_key(every_50ms, 10), be_const_closure(Animate_engine_every_50ms_closure) },
|
|
{ be_const_key(animate, -1), be_const_closure(Animate_engine_animate_closure) },
|
|
{ be_const_key(closure, -1), be_const_var(1) },
|
|
{ be_const_key(ins_time, 9), be_const_var(3) },
|
|
})),
|
|
be_str_literal("Animate_engine")
|
|
);
|
|
|
|
/********************************************************************
|
|
** Solidified module: animate
|
|
********************************************************************/
|
|
be_local_module(animate,
|
|
"animate",
|
|
be_nested_map(6,
|
|
( (struct bmapnode*) &(const bmapnode[]) {
|
|
{ be_const_key(rotate, 2), be_const_class(be_class_Animate_rotate) },
|
|
{ be_const_key(from_to, 3), be_const_class(be_class_Animate_from_to) },
|
|
{ be_const_key(back_forth, -1), be_const_class(be_class_Animate_back_forth) },
|
|
{ be_const_key(ins_goto, -1), be_const_class(be_class_Animate_ins_goto) },
|
|
{ be_const_key(ins_ramp, -1), be_const_class(be_class_Animate_ins_ramp) },
|
|
{ be_const_key(engine, -1), be_const_class(be_class_Animate_engine) },
|
|
}))
|
|
);
|
|
BE_EXPORT_VARIABLE be_define_const_native_module(animate);
|
|
/********************************************************************/
|