[求助]黄金分割线源代码改写成金字塔代码　[金字塔]

请教下各路大神，下面这段代码如何改写成金字塔代码，非常感谢~

if ws1[p]>1 then begin
DRAWSL(ws=wsp[p],hp,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp,0,wsp1[p],3) LINETHICK1,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3) LINETHICK1,POINTDOT,,coloraaaaaa;
DRAWNUMBER(ws=wsp[p],hp,hp,2)COLORRED,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp,lp,2)COLORGREEN,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2)COLORYELLOW,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2)COLORFFFFFF,SHIFT38;
end;

管理员，这是全部代码。帮忙看看~

m:=58;x:=3;p:=SYSPARAM(1);
ws:=BARPOS;ws1:=if(ws<m,ws,m);
wsp:=p-ws1+1;wsp1:=ws1-1;
h1:=hhv(h,ws1);l1:=llv(l,ws1);
hp:=h1[p];lp:=l1[p];hlpx:=(hp-lp)/x;
//VERTLINE(m),LINEDOT,Color0000FF;
//VERTLINE(p),LINEDOT,Color00FB00;
FILLRGN(hp<h1,hp,h1),COLORMAGENTA;
if ws1[p]>1 then begin
DRAWSL(ws=wsp[p],hp,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp,0,wsp1[p],3) LINETHICK1,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3) LINETHICK1,POINTDOT,,coloraaaaaa;
DRAWNUMBER(ws=wsp[p],hp,hp,2)COLORRED,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp,lp,2)COLORGREEN,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2)COLORYELLOW,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2)COLORFFFFFF,SHIFT38;
end;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),ColorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,1),ColorFF;
STICKLINE(CLOSE<OPEN,HIGH,LOW,0,0),ColorCYAN;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,8,0),ColorCYAN;