Creating connected lines in a non-annotative fashion

[ptrcao]

I have previously used employed this macro to create a border around the area of interest for analysis.  However, I now require this border to be burnt into the image, rather than merely implemented in the annotation layer.  Can somebody please provide me with the amended code which implements these lines but in a non-annotative, destructive fashion?  Many thanks.

run("Colors...", "selection=green");
makeLine(104, 104, 920, 104, 920,1024);
run("Add Selection...");

run("Colors...", "selection=red");
makeLine(104, 0, 104, 920, 920, 920, 920, 1024);
run("Add Selection...");