kp:ma(O,5),COLORRED;
cp:ma(c,5);
zd:cp-cp*35%,LINETHICK2,colorgreen;
partline(zd,zd>=ref(zd,1),rgb(255,51,204),zd<ref(zd,1),rgb(0,255,0)),linethick2;