月1:=IF(DAY<REF(DAY,1),O,DRAWNULL);
月O:=HHV(月1,DAY),NODRAW;
月C:=C#MONTH,NODRAW;
STICKLINE(月C>=月O,月O,月C,4,0)COLOR000030;
STICKLINE(月C<月O,月O,月C,4,0),COLOR003000;
周1:=IF(WEEKDAY<REF(WEEKDAY,1),O,DRAWNULL);
周O:HHV(周1,WEEKDAY)COLORRED,NODRAW;
周H:IF(WEEKDAY=3,H#WEEK,DRAWNULL){HHV(H,WEEKDAY)},COLORYELLOW,NODRAW;
周L:IF(WEEKDAY=3,L#WEEK,DRAWNULL){LLV(L,WEEKDAY)},COLOR32CD32,NODRAW;
周C:C#WEEK, COLORFF6EC7,NODRAW;
STICKLINE(周C>周O,周O,周C,4,0),COLOR000088;
STICKLINE(周C<周O,周O,周C,4,0),COLOR008800;
STICKLINE(周C>周O,周H,周L,1,0),COLOR000088;
STICKLINE(周C<周O,周H,周L,1,0),COLOR008800;
日1:=HOUR<REF(HOUR,1);
日O:=O#DAY;
日H:=H#DAY;
日L:=L#DAY;
日C:=C#DAY;
STICKLINE(日O<=日C,日C,日O,4,0),COLOR00005C;
STICKLINE(日O>日C,日C,日O,4,0),COLOR005C00;
STICKLINE(日O<=日C,IF(TIME=1129 OR TIME=1130,日H,DRAWNULL),日L,1,0),COLOR00005C;
STICKLINE(日O>日C,IF(TIME=1129 OR TIME=1130,日H,DRAWNULL),日L,1,0),COLOR005C00;
DRAWKLINE(H,O,L,C);
