六十甲子

X

T:=4.5;D:=3.8;
JA:=MOD(DATETODAY(DATE)-5,10);
DRAWTEXT(JA=1,T,'甲'),COLORYELLOW;
DRAWTEXT(JA=3,T,'丙'),COLORYELLOW;
DRAWTEXT(JA=5,T,'戊'),COLORYELLOW;
DRAWTEXT(JA=7,T,'庚'),COLORYELLOW;
DRAWTEXT(JA=9,T,'壬'),COLORYELLOW;
DRAWTEXT(JA=2,T,'乙'),COLORYELLOW;
DRAWTEXT(JA=4,T,'丁'),COLORYELLOW;
DRAWTEXT(JA=6,T,'己'),COLORYELLOW;
DRAWTEXT(JA=8,T,'辛'),COLORYELLOW;
DRAWTEXT(JA=0,T,'癸'),COLORYELLOW;
J:=MOD(DATETODAY(DATE)-5,12);
DRAWTEXT(J=0,D,'亥'),COLORLIBLUE; {标注地支}
DRAWTEXT(J=1,D,'子'),COLORLIBLUE;
DRAWTEXT(J=2,D,'丑'),COLOR0099FF;
DRAWTEXT(J=3,D,'寅'),COLORGREEN;
DRAWTEXT(J=4,D,'卯'),COLORLIGREEN;
DRAWTEXT(J=5,D,'辰'),COLOR0099FF;
DRAWTEXT(J=6,D,'巳'),COLORMAGENTA;
DRAWTEXT(J=7,D,'午'),COLORRED;

DRAWTEXT(J=8,D,'未'),COLOR0099FF;
DRAWTEXT(J=9,D,'申')COLORWHITE;
DRAWTEXT(J=10,D,'酉')COLORWHITE;
DRAWTEXT(J=11,D,'戌'),COLOR0099FF;
E:=2.4; JE:=MOD(DATETODAY(DATE)-5,60);
DRAWTEXT(JE=1 OR JE=2,E,'海'),COLORWHITE;
DRAWTEXT(JE=3 OR JE=4,E,'炉'),COLORRED;
DRAWTEXT(JE=5 OR JE=6,E,'大'),COLORGREEN;
DRAWTEXT(JE=7 OR JE=8,E,'路'),COLORYELLOW;
DRAWTEXT(JE=9 OR JE=10,E,'剑'),COLORWHITE;
DRAWTEXT(JE=11 OR JE=12,E,'山'),COLORRED;
DRAWTEXT(JE=13 OR JE=14,E,'涧'),COLORLIBLUE;
DRAWTEXT(JE=15 OR JE=16,E,'城'),COLOR0099FF;
DRAWTEXT(JE=17 OR JE=18,E,'白')COLORWHITE;
DRAWTEXT(JE=19 OR JE=20,E,'杨')COLORGREEN;
DRAWTEXT(JE=21 OR JE=22,E,'泉'),COLORCYAN;
DRAWTEXT(JE=23 OR JE=24,E,'屋'),COLORYELLOW;
DRAWTEXT(JE=25 OR JE=26,E,'霹'),COLORRED;
DRAWTEXT(JE=27 OR JE=28,E,'松'),COLORGREEN;
DRAWTEXT(JE=29 OR JE=30,E,'长'),COLORLIBLUE;
DRAWTEXT(JE=31 OR JE=32,E,'沙'),COLORWHITE;
DRAWTEXT(JE=33 OR JE=34,E,'山'),COLORRED;
DRAWTEXT(JE=35 OR JE=36,E,'平'),COLORGREEN;
DRAWTEXT(JE=37 OR JE=38,E,'壁'),COLOR0099FF;
DRAWTEXT(JE=39 OR JE=40,E,'金'),COLORWHITE;
DRAWTEXT(JE=41 OR JE=42,E,'覆')COLORRED;
DRAWTEXT(JE=43 OR JE=44,E,'天')COLORLIBLUE;
DRAWTEXT(JE=45 OR JE=46,E,'大'),COLOR0099FF;
DRAWTEXT(JE=47 OR JE=48,E,'钗'),COLORWHITE;
DRAWTEXT(JE=49 OR JE=50,E,'桑'),COLORGREEN;
DRAWTEXT(JE=51 OR JE=52,E,'大'),COLORLIBLUE;
DRAWTEXT(JE=53 OR JE=54,E,'沙'),COLORGREEN;
DRAWTEXT(JE=55 OR JE=56,E,'天'),COLORRED;
DRAWTEXT(JE=57 OR JE=58,E,'石'),COLORGREEN;
DRAWTEXT(JE=59 OR JE=0,E,'大'),COLORLIBLUE;
E2:=1.4; {JE:=MOD(DATETODAY(DATE)-5,60);}
DRAWTEXT(JE=2 OR JE=1,E2,'中'),COLORWHITE;
DRAWTEXT(JE=4 OR JE=3,E2,'中'),COLORRED;
DRAWTEXT(JE=6 OR JE=5,E2,'林'),COLORGREEN;
DRAWTEXT(JE=8 OR JE=7,E2,'旁'),COLORYELLOW;
DRAWTEXT(JE=10 OR JE=9,E2,'锋'),COLORWHITE;
DRAWTEXT(JE=12 OR JE=11,E2,'头'),COLORRED;
DRAWTEXT(JE=14 OR JE=13,E2,'下'),COLORLIBLUE;
DRAWTEXT(JE=16 OR JE=15,E2,'头'),COLOR0099FF;
DRAWTEXT(JE=18 OR JE=17,E2,'蜡')COLORWHITE;
DRAWTEXT(JE=20 OR JE=19,E2,'柳')COLORGREEN;
DRAWTEXT(JE=22 OR JE=21,E2,'中'),COLORCYAN;
DRAWTEXT(JE=24 OR JE=23,E2,'上'),COLORYELLOW;
DRAWTEXT(JE=26 OR JE=25,E2,'雷'),COLORRED;
DRAWTEXT(JE=28 OR JE=27,E2,'柏'),COLORGREEN;
DRAWTEXT(JE=30 OR JE=29,E2,'流'),COLORLIBLUE;
DRAWTEXT(JE=32 OR JE=31,E2,'中'),COLORWHITE;
DRAWTEXT(JE=34 OR JE=33,E2,'下'),COLORRED;
DRAWTEXT(JE=36 OR JE=35,E2,'地'),COLORGREEN;
DRAWTEXT(JE=38 OR JE=37,E2,'上'),COLOR0099FF;
DRAWTEXT(JE=40 OR JE=39,E2,'箔'),COLORWHITE;
DRAWTEXT(JE=42 OR JE=41,E2,'灯')COLORRED;
DRAWTEXT(JE=44 OR JE=43,E2,'河')COLORLIBLUE;
DRAWTEXT(JE=46 OR JE=45,E2,'驿'),COLOR0099FF;
DRAWTEXT(JE=48 OR JE=47,E2,'钏'),COLORWHITE;
DRAWTEXT(JE=50 OR JE=49,E2,'柘'),COLORGREEN;
DRAWTEXT(JE=52 OR JE=51,E2,'溪'),COLORLIBLUE;
DRAWTEXT(JE=54 OR JE=53,E2,'中'),COLORGREEN;
DRAWTEXT(JE=56 OR JE=55,E2,'上'),COLORRED;
DRAWTEXT(JE=58 OR JE=57,E2,'榴'),COLORGREEN;
DRAWTEXT(JE=0 OR JE=59,E2,'海'),COLORLIBLUE;
EA:=0.3;
JD:=MOD(DATETODAY(DATE)-5,60);
Z金:=JD=1 OR JD=2 OR JD=9 OR JD=10 OR JD=17 OR JD=18 OR JD=31 ORJD=32 OR JD=39 OR
JD=40 OR JD=47 OR JD=48;
Z火:=JD=3 OR JD=4 OR JD=11 OR JD=12 OR JD=25 OR JD=26 OR JD=33 ORJD=34 OR JD=41 OR
JD=42 OR JD=55 OR JD=56;
Z木:=JD=5 OR JD=6 OR JD=19 OR JD=20 OR JD=27 OR JD=28 OR JD=35 ORJD=36 OR JD=49 OR
JD=50 OR JD=57 OR JD=58;
Z土:=JD=7 OR JD=8 OR JD=15 OR JD=16 OR JD=23 OR JD=24 OR JD=37 ORJD=38 OR JD=45 OR
JD=46 OR JD=53 OR JD=54;
Z水:=JD=13 OR JD=14 OR JD=21 OR JD=22 OR JD=29 OR JD=30 OR JD=43 ORJD=44 OR JD=51 OR
JD=52 OR JD=59 OR JD=0;
DRAWTEXT(Z火,EA,'火'),COLORRED;
DRAWTEXT(Z木,EA,'木'),COLORGREEN;
DRAWTEXT(Z土,EA,'土'),COLORYELLOW;
DRAWTEXT(Z水,EA,'水'),COLORLIBLUE;
DRAWTEXT(Z金,EA,'金'),COLORWHITE;
TZ:=-0.7;
JAZ:=MOD(DATETODAY(DATE)-5,7);
DRAWTEXT(JAZ=0,TZ,'一'),COLORYELLOW;
DRAWTEXT(JAZ=1,TZ,'二'),COLORYELLOW;
DRAWTEXT(JAZ=2,TZ,'三'),COLORYELLOW;
DRAWTEXT(JAZ=3,TZ,'四'),COLORYELLOW;
DRAWTEXT(JAZ=4,TZ,'五'),COLORYELLOW;
5.5,DOTLINE,COLORLIGRAY;
-1,DOTLINE,COLORLIGRAY;