FILLRGN(0,Var1*0.7,Var1 =0),COLORDDDDFF;
FILLRGN(0,Var1*0.6,Var1 =0),COLORCCCCFF;
FILLRGN(0,Var1*0.5,Var1 =0),COLORBBBBFF;
FILLRGN(0,Var1*0.4,Var1 =0),COLORAAAAFF;
FILLRGN(0,Var1*0.3,Var1 =0),COLOR9999FF;
FILLRGN(0,Var1*0.2,Var1 =0),COLOR8888FF;
FILLRGN(0,Var1*0.1,Var1 =0),COLOR7777FF;
FILLRGN(0,Var1*0.8,Var1 0),COLORFFB0B0;
FILLRGN(0,Var1*0.7,Var1 0),COLORFF9D9D;
FILLRGN(0,Var1*0.6,Var1 0),COLORFF8E8E;
FILLRGN(0,Var1*0.5,Var1 0),COLORFF7D7D;
FILLRGN(0,Var1*0.4,Var1 0),COLORFF6A6A;
FILLRGN(0,Var1*0.3,Var1 0),COLORFF4D4D;
FILLRGN(0,Var1*0.2,Var1 0),COLORFF2D2D;
FILLRGN(0,Var1*0.1,Var1 0),COLORFF0000;
FILLRGN(0,Var2*0.8,Var2 =0),COLORD3FF60;
FILLRGN(0,Var2*0.7,Var2 =0),COLORC2FF24;
FILLRGN(0,Var2*0.6,Var2 =0),COLORBAFF02;
FILLRGN(0,Var2*0.5,Var2 =0),COLORAFF200;
FILLRGN(0,Var2*0.4,Var2 =0),COLORA4E100;
FILLRGN(0,Var2*0.3,Var2 =0),COLOR96CE00;
FILLRGN(0,Var2*0.2,Var2 =0),COLOR89BD00;
FILLRGN(0,Var2*0.1,Var2 =0),COLOR78A600;
FILLRGN(0,Var2*0.8,Var2 0),COLOR1EBE01;
FILLRGN(0,Var2*0.7,Var2 0),COLOR20CD01;
FILLRGN(0,Var2*0.6,Var2 0),COLOR22DC01;
FILLRGN(0,Var2*0.5,Var2 0),COLOR25F101;
FILLRGN(0,Var2*0.4,Var2 0),COLOR34FE10;
FILLRGN(0,Var2*0.3,Var2 0),COLOR49FE29;
FILLRGN(0,Var2*0.2,Var2 0),COLOR6BFE52;
FILLRGN(0,Var2*0.1,Var2 0),COLOR82FE6B;