【AB_NextColor】

程式码：

1. inputs:
   
2.         MinuteInterval( numericsimple ) ;
   
3. 
   
4. variables:
   
5.         var0( 0 ),
   
6.         var1( 0 ),
   
7.         var2( 0 ),
   
8.         var3( 0 ),
   
9.         var4( RGBToLegacyColor( GetBackGroundColor ) ) ;
   
10. 
    
11. condition1 = BarType = 1                                 
    
12. and MinuteInterval >= BarInterval                     
    
13. and ( MinuteInterval <= BarInterval of Data1 or BarType of Data1 = 2 ) ;
    
14. 
    
15. if condition1 then
    
16.         begin
    
17. 
    
18.         var1 = MinutesIntoWeek( DayOfWeek( Date ), Time ) ;
    
19.         var0 = BarStatus( 1 ) ;
    
20. 
    
21.         condition1 = ( CurrentBar of Data1 = 1 and var0 = 2 ) or var0[1] = 2;
    
22.         if condition1 then   
    
23.                 begin
    
24.                 var3 = 1 ;
    
25.                 var2 = var1 - BarInterval ;
    
26.                 end ;
    
27. 
    
28.         if var1 > var2 + MinuteInterval then
    
29.                 begin
    
30.                 var3 = var3 + 1 ;
    
31.                 if var3 > 16 then
    
32.                         var3 = 1 ;
    
33.                 var2 = var1 - BarInterval ;
    
34.                 end ;
    
35. 
    
36.         if var3 = var4 then
    
37.                 if var3 = 16 then
    
38.                         var3 = 1
    
39.                 else
    
40.                         var3 = var3 + 1 ;
    
41. 
    
42.         end
    
43. else
    
44.         var3 = var4 ;
    
45. 
    
46. AB_NextColor = LegacyColorToRGB( var3 ) ;

复制代码