From da0433a40cd8e2e1324049d8aaad915f8348775f Mon Sep 17 00:00:00 2001
From: Vedran <vedran@hookshot.ca>
Date: Wed, 8 May 2024 23:18:34 -0700
Subject: Use correct function to generate apriltag for ps when printing

---
 virtual-programs/print.folk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk
index 082f48cb..d045ec18 100644
--- a/virtual-programs/print.folk
+++ b/virtual-programs/print.folk
@@ -110,7 +110,7 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {
     set tagwidth 150; set tagheight 150
     set fontsize 12; set lineheight [expr $fontsize*1.5]
 
-    set image [::tagImageForId $id]
+    set image [::tagPsForId $id]
 
     set lines [split $text "\n"]
     for {set i 0} {$i < [llength $lines]} {incr i} {
-- 
cgit v1.2.3