龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-1 13:29

【draw_DOM_level】

[code]Input:
price(NumericSimple), size(NumericSimple), token(NumericSimple),
MaxSize(NumericSimple), Color(NumericSimple), IsLast(TrueFalse);

const : array_max_size(20);
array: intrabarpersist chnls[array_max_size](0);
array: intrabarpersist chnltxts[array_max_size](0);


var : _date(0), _time(0), _date_m(0), _time_m(0);
_date = 0;
_time = 0;
_date_m = 0;
_time_m = 0;

calc_dt_range(size / MaxSize, _date, _time, _date_m, _time_m);

if (token > array_max_size) then #return;

if chnls[token] <> 0 then tl_delete(chnls[token]);

chnls[token] = tl_new_s( _date, _time, price, _date_m, _time_m, price);
tl_setextright(chnls[token], true);
tl_setcolor(chnls[token], Color);
tl_setsize(chnls[token], 10);

if chnltxts[token] <> 0 then text_delete(chnltxts[token]);

chnltxts[token] = text_new_s(_date_m, _time_m, price, text(size:0:0));
text_setattribute(chnltxts[token], 1, true);
text_setcolor(chnltxts[token], white);


var: idx(0);
if IsLast then begin
        for idx = token + 1 to array_max_size begin
                if chnls[idx] <> 0 then begin
                        tl_delete(chnls[idx]);
                        chnls[idx] = 0;
                end;
                if chnltxts[idx] <> 0 then begin
                        text_delete(chnltxts[idx]);
                        chnltxts[idx] = 0;
                end;
        end;
end;
[/code]

页: [1]