トレードステーションEasyLanguageで、平均足を表示するペイントバーを作ってみた(けど不完全)

トレードステーションには、デフォルトでチャートに平均足を表示する機能が入っていない・・ように思います。(私が気づいていないのならごめんなさい)
ということで、作ってみました。
平均足を表示するコード
このコードはもちろんEasyLanguageで、種類はペイントバーです。
inputs:UpColor(Red), DnColor(Green); vars:haClose(0), haOpen(0), color(0); if BarNumber = 1 then begin haOpen = open; haClose = (O+H+L+C)/4; end; if BarNumber > 1 then begin haClose = (O+H+L+C)/4; haOpen = (haOpen [1] + haClose [1])/2; end; if haClose > haOpen then color = UpColor else color = DnColor; plotPB(High,Low,"平均足",color);
表示させてみた
チャートに平均足ペイントバーを適用すると、こうなります。こちらのサイトを参考にしました。
平均足として不完全?
ですが、このチャートは平均足として不完全です。
平均足を普段見ている方ならお気づきでしょうが、通常のローソク足と平均足とではそもそも足の形が違います。
※外為オンライン様のサイトより引用させていただきました
ですが、トレードステーションのペイントバーでは、「もともとのローソク足の形を変えるようにペイント」はできないようです、、
ローソク足をそのまま塗りつぶすor長方形として塗りつぶすかが選べるので、このあたりの設定を変えたり
もともとのローソク足の表示を消したい!と思っても、ローソク足の削除ができなかったり、、
Setplotwidthを使ったりといろいろと試行錯誤をしても、うまくキレイに平均足を表示させることはできませんでした。
キレイに平均足を表示させる方法をご存じの方、ぜひ教えてください!笑