From 88af124ee1338971a4dee7f3ac3a189d837e4c7f Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Tue, 17 Jan 2023 03:48:20 -0500 Subject: Fix line printing --- virtual-programs/print.folk | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'virtual-programs') diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk index d523e43f..dedb8458 100644 --- a/virtual-programs/print.folk +++ b/virtual-programs/print.folk @@ -99,10 +99,11 @@ proc ::programToPs {id text {format "letter"} {side "front"}} { set image [::tagImageForId $id] set lines [split $text "\n"] - for {set linenum 1} {$linenum <= [llength $lines]} {incr linenum} { - lset lines $linenum-1 [list $linenum [lindex $lines $linenum]] + for {set i 0} {$i < [llength $lines]} {incr i} { + # tag each line with its 1-indexed line number + lset lines $i [list [expr {$i+1}] [lindex $lines $i]] } - for {set i 0} {$i < [llength $lines]} {incr i} { # Hard-wrap lines + for {set i 0} {$i < [llength $lines]} {incr i} { # hard-wrap lines lassign [lindex $lines $i] linenum line if {$i < 9 && [string length $line] > 50} { lset lines $i 1 [string range $line 0 50] -- cgit v1.2.3