Fix extended clip line error and add mixed hires mode turtle

src/libsrc/turtle.pla

@@ -53,9 +53,11 @@ export def clipLine(x1, y1, x2, y2)#0
         if outcode1 & CLIP_LEFT
             y1 = lerp(x1, y1, x2, y2, clipLeft)
             x1 = clipLeft
+            outcode1 = clipCode(x1, y1)
         elsif outcode1 & CLIP_RIGHT
             y1 = lerp(x1, y1, x2, y2, clipRight)
             x1 = clipRight
+            outcode1 = clipCode(x1, y1)
         fin
         if outcode1 & CLIP_TOP
             x1 = lerp(y1, x1, y2, x2, clipTop)
@@ -67,9 +69,11 @@ export def clipLine(x1, y1, x2, y2)#0
         if outcode2 & CLIP_LEFT
             y2 = lerp(x1, y1, x2, y2, clipLeft)
             x2 = clipLeft
+            outcode2 = clipCode(x2, y2)
         elsif outcode2 & CLIP_RIGHT
             y2 = lerp(x1, y1, x2, y2, clipRight)
             x2 = clipRight
+            outcode2 = clipCode(x2, y2)
         fin
         if outcode2 & CLIP_TOP
             x2 = lerp(y1, x1, y2, x2, clipTop)

src/scripts/hrturtle.4th

@@ -7,8 +7,11 @@ SRC" HGRLIB.4TH"
 SRC" TURTLE.4TH"
 
 : SHOW
+  40 _TEXT DROP
+  0 19 40 4 VIEWPORT
   0 HGRMODE HGRDRAWBUF DROP
-  280 192 [ LOOKUP LINESPANS ] LITERAL INITTURTLE
+  $C053 C@ DROP
+  280 160 [ LOOKUP LINESPANS ] LITERAL INITTURTLE
   3 HGRCOLOR
 ;
 
@@ -26,4 +29,4 @@ SRC" TURTLE.4TH"
     10 +LOOP
 ;
 
-SHOW SPIN KEY DROP -1 HGRMODE DROP
+SHOW SPIN