diff options
| author | Omar Rizwan <omar@omar.website> | 2022-07-22 22:32:42 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-07-22 22:35:02 +0000 |
| commit | 91b70af7cea8cd8e88e44cc05cf997d2a9b620e9 (patch) | |
| tree | b8c19f40a347f9c5d45ee13757de89c66f3ef7df /virtual-programs | |
| parent | bring back status indication, recalibrate (diff) | |
| download | folk-91b70af7cea8cd8e88e44cc05cf997d2a9b620e9.tar.gz folk-91b70af7cea8cd8e88e44cc05cf997d2a9b620e9.zip | |
more print improvements. will this work??
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/print.folk | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk index aefb87bd..e2b187ee 100644 --- a/virtual-programs/print.folk +++ b/virtual-programs/print.folk @@ -1,4 +1,4 @@ -# if {[info hostname] != "folk0"} { return } +if {[info hostname] != "folk0"} { return } if {[llength [namespace which tagImageForId]] < 1} { package require critcl @@ -52,7 +52,7 @@ proc programToPs {id text} { %!PS << /PageSize \[$PageWidth $PageHeight\] >> setpagedevice - /Monaco findfont + /Courier findfont $fontsize scalefont setfont newpath @@ -110,7 +110,6 @@ When /someone/ wishes to print /code/ with job id /jobid/ { puts $fp $ps close $fp - # send PostScript to printer - # TODO: test on pi - # exec "lpr printed-programs/$id.ps" + exec ps2pdf printed-programs/$id.ps printed-programs/$id.pdf + exec lpr printed-programs/$id.pdf } |