<html><body><div dir="ltr"><div>
</div><div>
<div>Tomas</div><div dir="ltr"><br></div><div>CopyBlock has to take care of overlaps and in its general form has to mask, copy and shift bits.</div><div dir="ltr"><span style="caret-color: rgb(0, 0, 0); font-family: -apple-system, HelveticaNeue; background-color: rgb(255, 255, 255); display: inline !important">To add a special case for vertical scrolling (sx = dx) can make sense as you only have to mask and copy and leave out the shifts. (as n=0)</span><br></div><div dir="ltr"><span style="caret-color: rgb(0, 0, 0); font-family: -apple-system, HelveticaNeue; background-color: rgb(255, 255, 255); display: inline !important"><br></span></div><div><span style="font-size: inherit;">What is special with horizontal scrolling? Where do you see the optimization compared to the original CopyBlock?</span></div>
<div><br></div>
<div class="ms-outlook-ios-signature" id="ms-outlook-mobile-signature"><div style="direction: ltr;">br</div><div style="direction: ltr;">Jörg</div></div>
</div>
<div id="id-1338ec66-5613-42cd-b68d-1cdd0f644f1e" class="ms-outlook-mobile-reference-message"><hr style="display: inline-block; width: 98%; font-family: -webkit-standard; font-size: 12pt; color: rgb(0, 0, 0);" tabindex="-1"><div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif"><b>Von:</b> Oberon <oberon-bounces@lists.inf.ethz.ch> im Auftrag von Tomas Kral <thomas.kral@email.cz><br><b>Gesendet:</b> Donnerstag, Juli 9, 2020 10:02<br><b>An:</b> oberon@lists.inf.ethz.ch<br><b>Betreff:</b> Re: [Oberon] PO2013 - CopyBlock<div> </div></font></div>> 1) I expected something like „IF dy = sy THEN“<br>> 2) your code overwrites the horizontal line with length „w“ starting<br>> at (dx, dy-1)<br><br>Right.<br><br>That is a current penalty for the code case „IF dy = sy THEN“<br>missing. Calling proc relies on unused bottom line beneath,<br>which could be cached w/ COPY, but seems overkill.<br><br>-- <br>Tomas Kral <thomas.kral@email.cz><br>--<br>Oberon@lists.inf.ethz.ch mailing list for ETH Oberon and related systems<br>https://lists.inf.ethz.ch/mailman/listinfo/oberon<br></div></div></body></html>