【draw_DOM_level】

1. Input:
   
2. price(NumericSimple), size(NumericSimple), token(NumericSimple),
   
3. MaxSize(NumericSimple), Color(NumericSimple), IsLast(TrueFalse);
   
4. 
   
5. const : array_max_size(20);
   
6. array: intrabarpersist chnls[array_max_size](0);
   
7. array: intrabarpersist chnltxts[array_max_size](0);
   
8. 
   
9. 
   
10. var : _date(0), _time(0), _date_m(0), _time_m(0);
    
11. _date = 0;
    
12. _time = 0;
    
13. _date_m = 0;
    
14. _time_m = 0;
    
15. 
    
16. calc_dt_range(size / MaxSize, _date, _time, _date_m, _time_m);
    
17. 
    
18. if (token > array_max_size) then #return;
    
19. 
    
20. if chnls[token] <> 0 then tl_delete(chnls[token]);
    
21. 
    
22. chnls[token] = tl_new_s( _date, _time, price, _date_m, _time_m, price);
    
23. tl_setextright(chnls[token], true);
    
24. tl_setcolor(chnls[token], Color);
    
25. tl_setsize(chnls[token], 10);
    
26. 
    
27. if chnltxts[token] <> 0 then text_delete(chnltxts[token]);
    
28. 
    
29. chnltxts[token] = text_new_s(_date_m, _time_m, price, text(size:0:0));
    
30. text_setattribute(chnltxts[token], 1, true);
    
31. text_setcolor(chnltxts[token], white);
    
32. 
    
33. 
    
34. var: idx(0);
    
35. if IsLast then begin
    
36.         for idx = token + 1 to array_max_size begin
    
37.                 if chnls[idx] <> 0 then begin
    
38.                         tl_delete(chnls[idx]);
    
39.                         chnls[idx] = 0;
    
40.                 end;
    
41.                 if chnltxts[idx] <> 0 then begin
    
42.                         text_delete(chnltxts[idx]);
    
43.                         chnltxts[idx] = 0;
    
44.                 end;
    
45.         end;
    
46. end;

复制代码