From cf9643744c53a248f32babbf688c618fd7a64d58 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Thu, 13 Oct 2022 16:33:13 -0400
Subject: apriltag rendering works (just upside-down)

---
 virtual-programs/print-test.folk | 1 +
 virtual-programs/print.folk      | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/print-test.folk b/virtual-programs/print-test.folk
index 2f455d63..661604f5 100644
--- a/virtual-programs/print-test.folk
+++ b/virtual-programs/print-test.folk
@@ -6,3 +6,4 @@ catch {
 } err
 puts $err
 # puts $::livecprocs
+
diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk
index b3ddb573..86d67eeb 100644
--- a/virtual-programs/print.folk
+++ b/virtual-programs/print.folk
@@ -38,7 +38,7 @@ livecproc tagImageForId {int id} string {
             emit("%d %d moveto ", col, row); // bottom-left
             emit("%d %d lineto ", col + 1, row); // bottom-right
             emit("%d %d lineto ", col + 1, row + 1); // top-right
-            emit("%d %d lineto ", col + 1, row + 1); // top-left
+            emit("%d %d lineto ", col, row + 1); // top-left
             emit("closepath fill ");
         }
         emit("\n");
-- 
cgit v1.2.3