"Cannot implicitly convert type" error on WSTL translated script

gfullmer

#1

4/9/2009 4:32 PM

I am trying to get an old script translated. The translator works OK without errors but when I try to compile the resultant script I get errors. The code has to do with:

public ChartPane MPane, StochPane, ADXPane;

and

MPane = CreatePane(100, true, true);

And I get an error message that says:

errorCS0029 @ [201,10} : Cannot implicitly convert type 'int' to 'WealthLab.ChartPane'

I played around with the types, but isn't CreatePane type ChartPane and not integer. I am a newbie at translation stuff. Is CreatePane being overloaded as type int? If, so how? How do I fix this?

Here is all of the code:

CODE:
Please log in to see this code.

Size:

Color:

I am trying to get an old script translated.  The translator works OK without errors but when I try to compile the resultant script I get errors.  The code has to do with:

public ChartPane MPane, StochPane, ADXPane;

and

MPane = CreatePane(100, true, true);

And I get an error message that says:

errorCS0029 @ [201,10} : Cannot implicitly convert type 'int' to 'WealthLab.ChartPane'

I played around with the types, but isn't CreatePane type ChartPane and not integer.  I am a newbie at translation stuff.  Is CreatePane being overloaded as type int?  If, so how?  How do I fix this?

Here is all of the code:
[CODE]
using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using System.Threading; // Sleep()
using System.Windows.Forms;
using WealthLab;
using WealthLab.Indicators;
using finantic.TL; // WealthScriptTL

namespace WealthLabCompile2
{
	class Strategy : WealthScriptTL
	{
		// OptVars
		private StrategyParameter OptVar1, OptVar2;
		public Strategy()
		{
			OptVar1 = CreateParameter("OptVar1", 20, 7, 60, 5);
			OptVar2 = CreateParameter("OptVar2", 13, 5, 22, 1);
		}
		#region file ChartScript

// start of prolog: This is a comment at the top of each file
		public new void Init(){
		base.Init();
		//optional settings
		UseUpdatedEMA(true);
		SetStdDevCalculation(StdDevCalculation.Population);
		}
		// end of prolog: This is a comment at the top of each file

public int MACDExSeries (int Series, int Period1, int Period2){
		int fnResult = 0;
		int Bar = 0;
		string sName = null;
		double Value = 0.0;
		sName = (string)(((((("MACDEx(" + GetDescription(Series)) + ",") + Convert.ToString(Period1)) + ",") + 
Convert.ToString(Period2)) + ")");
		fnResult = FindNamedSeries(sName);
		if ((fnResult >= 0)) return fnResult;
		fnResult = CreateNamedSeries(sName);
		for (Bar = Round(Math.Max(Period1, Period2)); Bar <= (Bars.Count - 1); Bar++) {
		/**  Calculate your indicator value here  */ 
		Value = (double)(EMA(Bar, Series, Period1) - EMA(Bar, Series, Period2));
		SetSeriesValue(Bar, fnResult, Value);
        
		}
		return fnResult;
    
		}

public double MACDEx (int Bar, int Series, int Period1, int Period2){
		double fnResult = 0.0;
		fnResult = GetSeriesValue(Bar, MACDExSeries(Series, Period1, Period2));
		return fnResult;
    
		}

public int dxdtSeries (double z, int Series, int Order, int Spacing){
		int fnResult = 0;
		/**  */ 
		int Bar, i = 0;
		/**  */ 
		string sName = null;
		double dudt = 0.0, x = 0.0;
		double[] f = new double[299 - 0 + 1];
		sName = (string)(((((((("dxdt(" + FloatToStr(z)) + ",") + GetDescription(Series)) + ",") + Convert.ToString(Order)) 
+ ",") + Convert.ToString(Spacing)) + ")");
		fnResult = FindNamedSeries(sName);
		if ((fnResult >= 0)) return fnResult;
		fnResult = CreateNamedSeries(sName);
		x = (double)(z / Spacing);
		for (Bar = ((((Order + 1)) * Spacing) + 1); Bar <= (Bars.Count - 1); Bar++) {
		for (i = 0; i <= Order; i++) {
		f[i] = GetSeriesValue((Bar - (i * Spacing)), Series);
            
		}
		switch (Order) {
		case 1:
		{
		dudt = (double)(f[0] - f[1]);
                    
		}
		break;
		case 2:
		{
		dudt = (double)(((((1 / 2) * f[2]) + ((3 / 2) * f[0])) - (2 * f[1])) + ((2 * (((((1 / 2) * f[2]) + ((1 / 2) * 
f[0])) - f[1]))) * x));
                    
		}
		break;
		case 3:
		{
		dudt = (double)(((((((11 / 6) * f[0]) - (3 * f[1])) + ((3 / 2) * f[2])) - ((1 / 3) * f[3])) + ((2 * ((((f[0] - ((5 
/ 2) * f[1])) + (2 * f[2])) - ((1 / 2) * f[3])))) * x)) + (((3 * ((((((1 / 6) * f[0]) - ((1 / 2) * f[1])) + ((1 / 2) * f[2])) - ((1 
/ 6) * f[3])))) * x) * x));
                    
		}
		break;
		case 4:
		{
		dudt = (double)((((((((3 * f[2]) - (4 * f[1])) + ((1 / 4) * f[4])) - ((4 / 3) * f[3])) + ((25 / 12) * f[0])) + ((2 
* (((((((19 / 4) * f[2]) - ((13 / 3) * f[1])) + ((11 / 24) * f[4])) - ((7 / 3) * f[3])) + ((35 / 24) * f[0])))) * x)) + (((3 * 
((((((2 * f[2]) - ((3 / 2) * f[1])) + ((1 / 4) * f[4])) - ((7 / 6) * f[3])) + ((5 / 12) * f[0])))) * x) * x)) + ((((4 * (((((((1 / 
4) * f[2]) - ((1 / 6) * f[1])) + ((1 / 24) * f[4])) - ((1 / 6) * f[3])) + ((1 / 24) * f[0])))) * x) * x) * x));
                    
		}
		break;
		case 5:
		{
		dudt = (double)(((((((((((137 / 60) * f[0]) - ((1 / 5) * f[5])) + ((5 / 4) * f[4])) - ((10 / 3) * f[3])) + (5 * 
f[2])) - (5 * f[1])) + ((2 * (((((((( -13 / 2) * f[3]) + ((107 / 12) * f[2])) + ((61 / 24) * f[4])) - ((77 / 12) * f[1])) - ((5 / 
12) * f[5])) + ((15 / 8) * f[0])))) * x)) + (((3 * (((((((( -49 / 12) * f[3]) + ((59 / 12) * f[2])) + ((41 / 24) * f[4])) - ((71 / 
24) * f[1])) - ((7 / 24) * f[5])) + ((17 / 24) * f[0])))) * x) * x)) + ((((4 * (((((( -f[3] + ((13 / 12) * f[2])) + ((11 / 24) * 
f[4])) - ((7 / 12) * f[1])) - ((1 / 12) * f[5])) + ((1 / 8) * f[0])))) * x) * x) * x)) + (((((5 * ((((((((1 / 24) * f[4]) - ((1 / 
12) * f[3])) + ((1 / 12) * f[2])) - ((1 / 24) * f[1])) - ((1 / 120) * f[5])) + ((1 / 120) * f[0])))) * x) * x) * x) * x));
                    
		}
		break;
		case 6:
		{
		dudt = (double)((((((((((((( -6 / 5) * f[5]) + ((1 / 6) * f[6])) + ((49 / 20) * f[0])) - (6 * f[1])) + ((15 / 2) * 
f[2])) - ((20 / 3) * f[3])) + ((15 / 4) * f[4])) + ((2 * ((((((((( -27 / 10) * f[5]) + ((137 / 360) * f[6])) + ((203 / 90) * f[0])) 
- ((87 / 10) * f[1])) + ((117 / 8) * f[2])) - ((127 / 9) * f[3])) + ((33 / 4) * f[4])))) * x)) + (((3 * ((((((((( -13 / 6) * f[5]) 
+ ((5 / 16) * f[6])) + ((49 / 48) * f[0])) - ((29 / 6) * f[1])) + ((461 / 48) * f[2])) - ((31 / 3) * f[3])) + ((307 / 48) * 
f[4])))) * x) * x)) + ((((4 * (((((((((137 / 48) * f[2]) - ((121 / 36) * f[3])) + ((107 / 48) * f[4])) - ((19 / 24) * f[5])) - ((31 
/ 24) * f[1])) + ((17 / 144) * f[6])) + ((35 / 144) * f[0])))) * x) * x) * x)) + (((((5 * (((((((((19 / 48) * f[2]) - ((1 / 2) * 
f[3])) + ((17 / 48) * f[4])) - ((2 / 15) * f[5])) - ((1 / 6) * f[1])) + ((1 / 48) * f[6])) + ((7 / 240) * f[0])))) * x) * x) * x) * 
x)) + ((((((6 * (((((((((1 / 48) * f[2]) - ((1 / 36) * f[3])) + ((1 / 48) * f[4])) - ((1 / 120) * f[5])) - ((1 / 120) * f[1])) + 
((1 / 720) * f[6])) + ((1 / 720) * f[0])))) * x) * x) * x) * x) * x));
                    
		}
		break;
		case 7:
		{
		dudt = (double)(((((((((((((((363 / 140) * f[0]) - (7 * f[1])) + ((21 / 2) * f[2])) - ((35 / 3) * f[3])) + ((35 / 
4) * f[4])) - ((21 / 5) * f[5])) + ((7 / 6) * f[6])) - ((1 / 7) * f[7])) + ((2 * ((((((((((469 / 180) * f[0]) - ((223 / 20) * 
f[1])) + ((879 / 40) * f[2])) - ((949 / 36) * f[3])) + ((41 / 2) * f[4])) - ((201 / 20) * f[5])) + ((1019 / 360) * f[6])) - ((7 / 
20) * f[7])))) * x)) + (((3 * ((((((((((967 / 720) * f[0]) - ((319 / 45) * f[1])) + ((3929 / 240) * f[2])) - ((389 / 18) * f[3])) + 
((2545 / 144) * f[4])) - ((134 / 15) * f[5])) + ((1849 / 720) * f[6])) - ((29 / 90) * f[7])))) * x) * x)) + ((((4 * ((((((((((7 / 
18) * f[0]) - ((37 / 16) * f[1])) + ((71 / 12) * f[2])) - ((1219 / 144) * f[3])) + ((22 / 3) * f[4])) - ((185 / 48) * f[5])) + ((41 
/ 36) * f[6])) - ((7 / 48) * f[7])))) * x) * x) * x)) + (((((5 * (((((((((( -59 / 144) * f[1]) + ((9 / 8) * f[2])) + ((23 / 360) * 
f[0])) - ((247 / 144) * f[3])) + ((113 / 72) * f[4])) - ((69 / 80) * f[5])) + ((19 / 72) * f[6])) - ((5 / 144) * f[7])))) * x) * x) 
* x) * x)) + ((((((6 * (((((((((( -3 / 80) * f[1]) + ((13 / 120) * f[2])) + ((1 / 180) * f[0])) - ((25 / 144) * f[3])) + ((1 / 6) * 
f[4])) - ((23 / 240) * f[5])) + ((11 / 360) * f[6])) - ((1 / 240) * f[7])))) * x) * x) * x) * x) * x)) + (((((((7 * ((((((((((1 / 
5040) * f[0]) - ((1 / 720) * f[1])) + ((1 / 240) * f[2])) - ((1 / 144) * f[3])) + ((1 / 144) * f[4])) - ((1 / 240) * f[5])) + ((1 / 
720) * f[6])) - ((1 / 5040) * f[7])))) * x) * x) * x) * x) * x) * x));
                    
		}
		break;
		case 8:
		{
		dudt = (double)(((((((((((((((((761 / 280) * f[0]) - (8 * f[1])) + (14 * f[2])) - ((56 / 3) * f[3])) + ((35 / 2) * 
f[4])) - ((56 / 5) * f[5])) + ((14 / 3) * f[6])) - ((8 / 7) * f[7])) + ((1 / 8) * f[8])) + ((2 * (((((((((((29531 / 10080) * f[0]) 
- ((481 / 35) * f[1])) + ((621 / 20) * f[2])) - ((2003 / 45) * f[3])) + ((691 / 16) * f[4])) - ((141 / 5) * f[5])) + ((2143 / 180) 
* f[6])) - ((103 / 35) * f[7])) + ((363 / 1120) * f[8])))) * x)) + (((3 * (((((((((((267 / 160) * f[0]) - ((349 / 36) * f[1])) + 
((18353 / 720) * f[2])) - ((797 / 20) * f[3])) + ((1457 / 36) * f[4])) - ((4891 / 180) * f[5])) + ((187 / 16) * f[6])) - ((527 / 
180) * f[7])) + ((469 / 1440) * f[8])))) * x) * x)) + ((((4 * (((((((((((1069 / 1920) * f[0]) - ((329 / 90) * f[1])) + ((15289 / 
1440) * f[2])) - ((268 / 15) * f[3])) + ((10993 / 576) * f[4])) - ((1193 / 90) * f[5])) + ((2803 / 480) * f[6])) - ((67 / 45) * 
f[7])) + ((967 / 5760) * f[8])))) * x) * x) * x)) + (((((5 * (((((((((((9 / 80) * f[0]) - ((115 / 144) * f[1])) + ((179 / 72) * 
f[2])) - ((71 / 16) * f[3])) + ((179 / 36) * f[4])) - ((2581 / 720) * f[5])) + ((13 / 8) * f[6])) - ((61 / 144) * f[7])) + ((7 / 
144) * f[8])))) * x) * x) * x) * x)) + ((((((6 * (((((((((((13 / 960) * f[0]) - ((73 / 720) * f[1])) + ((239 / 720) * f[2])) - 
((149 / 240) * f[3])) + ((209 / 288) * f[4])) - ((391 / 720) * f[5])) + ((61 / 240) * f[6])) - ((49 / 720) * f[7])) + ((23 / 2880) 
* f[8])))) * x) * x) * x) * x) * x)) + (((((((7 * (((((((((((1 / 1120) * f[0]) - ((1 / 144) * f[1])) + ((17 / 720) * f[2])) - ((11 
/ 240) * f[3])) - ((31 / 720) * f[5])) + ((1 / 48) * f[6])) - ((29 / 5040) * f[7])) + ((1 / 1440) * f[8])) + ((1 / 18) * f[4])))) * 
x) * x) * x) * x) * x) * x)) + ((((((((8 * (((((((((((1 / 40320) * f[0]) - ((1 / 5040) * f[1])) + ((1 / 1440) * f[2])) - ((1 / 720) 
* f[3])) + ((1 / 576) * f[4])) - ((1 / 720) * f[5])) + ((1 / 1440) * f[6])) - ((1 / 5040) * f[7])) + ((1 / 40320) * f[8])))) * x) * 
x) * x) * x) * x) * x) * x));
                    
		}
		break;
		default: 
		break;
            
		}SetSeriesValue(Bar, fnResult, dudt);
        
		}
		return fnResult;
    
	}

public double dxdt (int Bar, double x, int Series, int Order, int Spacing){
	double fnResult = 0.0;
	fnResult = GetSeriesValue(Bar, dxdtSeries(x, Series, Order, Spacing));
	return fnResult;
    
	}
	public ChartPane MPane, StochPane, ADXPane;
	public int MEx, MEx9, MA, MHist,SlowK, SlowD, ADX1, ADXR1, SlpSt = 0;
	public int Bar, p = 0;
	public bool MAArrow, SCHArrow, MACDArrow, ADXArrow = false;

/** (*Description...
Code to Highlight winning and losing trades.  
Written by Cone 11/05/2004
Modified by gfullmer 12/03/2004 to add losing trades.
Modified again by Cone 12/03/2004 to wrap in proc.

*) */ 
	public void HighlightTrades(){
	int DClr, DOClr, StBar, EndBar = 0;
	double StPnt, EnPnt, MaxDiff, Diff = 0.0;
	for (p = 0; p <= (PositionCount - 1); p++) {
	if ((PositionProfit(p) > 0)) {
	DClr = (int)797;
	DOClr = (int)WL_GREEN;
            
	}
	else {
	DClr = (int)977;
	DOClr = (int)WL_RED;
            
	}
	StBar = (int)PositionEntryBar(p);
	EndBar = (int)PositionExitBar(p);
	if ((EndBar == 0)) EndBar = (int)(Bars.Count - 1);
	StPnt = (double)LinearRegLine(WL_CLOSE, StBar, EndBar, StBar);
	EnPnt = (double)LinearRegLine(WL_CLOSE, StBar, EndBar, EndBar);
	MaxDiff = (double)0;
	for (Bar = StBar; Bar <= EndBar; Bar++) {
	Diff = (double)Math.Abs((PriceClose(Bar) - LinearRegLine(WL_CLOSE, StBar, EndBar, Bar)));
	MaxDiff = (double)Math.Max(Diff, MaxDiff);
            
	}
	DrawDiamond(StBar, (StPnt - MaxDiff), StBar, (StPnt + MaxDiff), EndBar, (EnPnt + MaxDiff), EndBar, (EnPnt - MaxDiff), 0, 
DOClr, WL_THIN, DClr, true);
        
	}
    
	}

/** This method contains the meat of your script,
    i.e, any statements that are not inside a user defined class or function/procedure. */
	protected override void Execute(){
	Init();
	// [declaration for class ChartScript used to be here] 
    
	// [declaration for function MACDExSeries  used to be here] 
	// [declaration for function MACDEx  used to be here] 
	// [declaration for function dxdtSeries  used to be here] 
	// [declaration for function dxdt  used to be here] 
	MEx = (int)MACDExSeries(WL_CLOSE, 8, 17);
	MEx9 = (int)EMASeries(MEx, 9);
	MHist = (int)SubtractSeries(MEx, MEx9);
	MA = (int)SMASeries(WL_CLOSE, 30);
	MPane = CreatePane(100, true, true);
	StochPane = CreatePane(120, true, true);
	SlowK = (int)StochDSeries(14, 5);
	SlowD = (int)SMASeries(SlowK, 5);
	SlpSt = (int)dxdtSeries( -1, SlowD, 3, 1);
	PlotSeries(SlowD, StochPane, WL_PURPLE, WL_THICK);
	PlotSeries(SlpSt, StochPane, WL_RED, WL_THIN);
	/** DrawLabel( '20 Bar Directional Movement', ADXPane ); */ 
	PlotSeries(MHist, MPane, WL_BLACK, WL_HISTOGRAM);
	DrawLabel("MACDEx(8,17) and 9 period Signal Line", MPane);
	PlotSeries(MA, 0, WL_TEAL, WL_THICK);
	DrawHorzLine(StochPane, 75, Color.Red, WealthLab.LineStyle.Solid, 1);
	DrawHorzLine(StochPane, 25, Color.Green, WealthLab.LineStyle.Solid, 1);
	MAArrow = (bool)false;
	SCHArrow = (bool)false;
	MACDArrow = (bool)false;
	ADXArrow = (bool)false;
	for (Bar = (int) OptVar1.Value; Bar <= (Bars.Count - 1); Bar++) {
	if (CrossOver(Bar, MEx, MEx9)) {
	MACDArrow = (bool)true;
	DrawImage("uptrianglegreen", MPane, Bar, 0, true);
            
	}
	if (CrossUnder(Bar, MEx, MEx9)) {
	MACDArrow = (bool)false;
	DrawImage("downtrianglered", MPane, Bar, 0, false);
            
	}
	if (CrossOver(Bar, WL_CLOSE, MA)) {
	MAArrow = (bool)true;
	DrawImage("uptrianglegreen", 0, Bar, (GetSeries(MA)[Bar] * 0.99), true);
            
	}
	if (CrossUnder(Bar, WL_CLOSE, MA)) {
	MAArrow = (bool)false;
	DrawImage("downtrianglered", 0, Bar, (GetSeries(MA)[Bar] * 1.01), false);
            
	}
	if (((CrossOverValue(Bar, SlowD, 25) || (((((GetSeries(SlpSt)[(Bar - 1)] < 0)) && ((GetSeries(SlpSt)[Bar] > 0))) && 
((GetSeries(SlowD)[Bar] > 25))))))) {
	SCHArrow = (bool)true;
	DrawImage("uptrianglegreen", StochPane, Bar, 25, true);
            
	}
	if (((CrossUnderValue(Bar, SlowD, 75) || (((((GetSeries(SlpSt)[(Bar - 1)] > 0)) && ((GetSeries(SlpSt)[Bar] < 0))) && 
((GetSeries(SlowD)[Bar] < 75))))))) {
	SCHArrow = (bool)false;
	DrawImage("downtrianglered", StochPane, Bar, 75, false);
            
	}
	/**      begin */ 
	ADXArrow = (bool)true;
	/**      end; */ 
	if (IsLastPositionActive) {
	p = (int)LastPosition;
	if (((( ! MACDArrow) && ( ! MAArrow)) && ( ! SCHArrow))) {
	SellAtMarket((Bar + 1), p, "Sell");
                
	}
            
	}
	else {
	if (((MACDArrow && MAArrow) && SCHArrow)) {
	BuyAtMarket((Bar + 1), "Buy");
                
	}
            
	}
	/**      end; */ 
        
	}
	// [declaration for procedure HighlightTrades used to be here] 
	HighlightTrades();
    
	}

// start of epilog: This is a comment at the end of each file
} // class Strategy
	} // namespace
	// end of epilog

#endregion file ChartScript

[/CODE]

DrKoch

#2

4/9/2009 5:04 PM

If your original script worked in WL4, then the translated should work in WL5.
The script posted above is certainly not what the translator produced.

Background:
The Translator translates syntax, not semantics. This means among other things that types
are unchanged from WL4 scripts.

The function WealthScriptTL.CreatePane() returns an int (like the WL4 CReatePane())
It is inside the "Compatibility class" WealthScriptTL where the int pane handles are used to access WL5 ChartPanes.

Modify the line
public ChartPane MPane, StochPane, ADXPane;
to read
public int ChartPane MPane, StochPane, ADXPane;

gfullmer

#3

4/10/2009 1:08 AM

You are correct. I played a lot with it after translation. So I went back and re-translated it and that
fixed the error message. It appears that WL_SOLID is not defined but after changing that reference to 1
it compiled fine. However, I am getting run-time error message on a different part of the code:

Runtime error:Value cannot be null.
at WealthLabCompile2.Strategy.Executed()
at finantic.TL.WealthScriptTL.DrawImage(String bitmap, Int32 pane, Int32 bar, Double price, Boolean topDown) in D:\Projects\Visual Studio 2005\Projects\
at System.IO.Path.Combine(String path1, String path2)

I think the offending type of line is:

CODE:
Please log in to see this code.

Thanks for your help,
Glen

DrKoch

#4

4/10/2009 3:32 AM

What DrawImage() does:

It looks up
HKCU\Software\\Wealth-Lab\\Wealth-Lab Developer 3.0\Directroy
in the registry, reads the path and appends
Bitmaps, <your image name>, .bmp
then calls the original WL5 DrawImage() with the full path.

This means,
.\Bitmaps\uptrianglegreen.bmp
must exist in the old WL3/WL4 installation directory.

gfullmer

#5

4/10/2009 7:40 AM

Danke, Doctor K. Are there any built in bitmaps that I can use and maybe override their colour?

Glen

gfullmer

#6

4/10/2009 8:12 AM

P.S. Does the Bitmaps directory still work?

DrKoch

#7

4/10/2009 8:13 AM

You have several options:
1. save your bitmaps in the WL4 bitmap folder (see above)
2. use the WL5 DrawImage() function with an arbitrary path.

To get the original function you'll have to prepend the correct namespace.

gfullmer

#8

4/12/2009 8:06 AM

Anyone have the old bitmaps that came as default with WL-4? I don't think I can get the installation software for WL-4 to get them.

Thanks,
Glen

Eugene

#9

4/12/2009 8:42 AM

Just for kicks -- poor man's trade arrows:

CODE:
Please log in to see this code.

TrendCatcher

#10

5/14/2012 9:58 AM

I would like to try incorporating the above code. Could you be more specific as to which lines or portion of the code to be replaced. Thanks.

Eugene

#11

5/14/2012 10:43 AM

If you mean gfullmer's code above, the idea is to replace all down triangles/arrows as follows:

CODE:
Please log in to see this code.

And up triangles/arrows are getting replaced like this:

CODE:
Please log in to see this code.

TrendCatcher

#12

5/14/2012 12:00 PM

Thank you. I will just keep the original, as I modified with some indicators and with your input I changed the panes around. So hard change all over. I though I would try if it is within the original and certainly not if the code from above(gfullmer's). Hope I will be a programmer sometime. :)

TrendCatcher

#13

5/14/2012 12:03 PM

I always ask questions based on the original and do not like to confuse who is helping.

Eugene

#14

5/14/2012 12:25 PM

I have no idea what "the original" is because in this thread (started by gfullmer), the original appears to be gfullmer's code. Nonetheless, I believe this is a sufficient hint -- what's left for you is to use the Find dialog (Ctrl-F) in the Editor, comment out the DrawImage lines that plot the green/red arrows in your script, and insert my lines (respectively).