From 1eabc36369de608b06bff963250fd69ad357bf5d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jakobus=20Sch=C3=BCrz?= <jakobus.schuerz@ebcont.com>
Date: Wed, 19 Sep 2018 23:11:02 +0200
Subject: [PATCH] dot-issue solved

---
 .../usr/lib/cups/filter/pstoricohddst-gdi     | 170 ++++++++----------
 1 file changed, 76 insertions(+), 94 deletions(-)

diff --git a/ricoh-sp100/usr/lib/cups/filter/pstoricohddst-gdi b/ricoh-sp100/usr/lib/cups/filter/pstoricohddst-gdi
index f86f9b6..71d0f8d 100755
--- a/ricoh-sp100/usr/lib/cups/filter/pstoricohddst-gdi
+++ b/ricoh-sp100/usr/lib/cups/filter/pstoricohddst-gdi
@@ -1,7 +1,7 @@
 #!/bin/bash
 
 # Debug mode: change to 'yes' to enable
-DEBUG=no
+DEBUG=${DEBUG-no}
 
 function log() {
     [ "${DEBUG}" = "yes" ] && echo $* | logger -t "$0[$$]"
@@ -23,6 +23,72 @@ function stop() {
     echo "stop" > $uid/999999999-page.pbm
 }
 
+function output_page() {
+    # Converting page to JBIG format (parameters are very special for this printer!)
+    pbmtojbg -p 72 -o 3 -m 0 -q < $page > $uid/raster.jbig
+
+    # Taking image size
+    jsize=`wc -c < $uid/raster.jbig`
+
+    # Taking image dimensions
+    x=($(identify -format "%w %h %[fx:mean] " $page))
+    ##
+    # The %[fx:mean] gives the average colour in the image which for
+    # monochrome is the number of white pixels divided by the size
+    #
+    # So the formula gives the number of black pixels.  The final
+    # /1 causes bc to round to the nearest integer because scale=0
+    ##
+    dots=$(echo "(${x[0]}*${x[1]}*(1-${x[2]}))/1"|bc)
+    ##
+    # FIX: toner cartridge runs out way too fast with this dots
+    #      calculation above and once it decides it's empty, you
+    #      can't force it to print.  So set dots to an artificially 
+    #      low number
+    dots=$(echo "$dots/10"|bc)
+
+    # Flushing page header
+    cat <<EOF
+@PJL SET PAGESTATUS=START$e
+@PJL SET COPIES=1$e
+@PJL SET MEDIASOURCE=$mediasource$e
+@PJL SET MEDIATYPE=PLAINRECYCLE$e
+@PJL SET PAPER=$pagesize$e
+@PJL SET PAPERWIDTH=${x[0]}$e
+@PJL SET PAPERLENGTH=${x[1]}$e
+@PJL SET RESOLUTION=${resolution%x600}$e
+@PJL SET IMAGELEN=$jsize$e
+EOF
+
+    cat $uid/raster.jbig
+
+    # Flushing page footer
+    # TODO: pixelcount for toner estimate
+    cat <<EOF
+@PJL SET DOTCOUNT=$dots$e
+@PJL SET PAGESTATUS=END$e
+EOF
+}
+
+function output_header() {
+    cat <<EOF
+%-12345X@PJL$e
+@PJL SET TIMESTAMP=$ddate$e
+@PJL SET FILENAME=Document$e
+@PJL SET COMPRESS=JBIG$e
+@PJL SET USERNAME=$user$e
+@PJL SET COVER=OFF$e
+@PJL SET HOLD=OFF$e
+EOF
+}
+
+function output_footer() {
+    cat <<EOF
+@PJL EOJ$e
+%-12345X
+EOF
+}
+
 log "Called with cmdline: $0 $*"
 
 trap "stop; trapINT" SIGINT SIGTERM SIGQUIT
@@ -73,60 +139,19 @@ mkdir -p $uid
 	    log "Page submitted"
 	    [ "$stage" = "empty" ] && {
 		log "1st stage. Flushing PJL header"
-		cat <<EOF
-%-12345X@PJL$e
-@PJL SET TIMESTAMP=$ddate$e
-@PJL SET FILENAME=Document$e
-@PJL SET COMPRESS=JBIG$e
-@PJL SET USERNAME=$user$e
-@PJL SET COVER=OFF$e
-@PJL SET HOLD=OFF$e
-EOF
-
+		output_header
 		stage="printing"
 	    }
 	    [ "$page" = "999999999-page.pbm" ] && { 
 		log "Last stage. Flushing PJL footer"
-		cat <<EOF
-@PJL EOJ$e
-%-12345X
-EOF
+		output_footer
 		pid=`ps ax | grep $uid | grep -v grep | awk ' { print $1 } '`
 		[ ! "x$pid" = "x" ] && kill $pid
 		break
 	    }
 	    [ "$stage" = "printing" ] && {
-		# Converting page to JBIG format (parameters are very special for this printer!)
-		pbmtojbg -p 72 -o 3 -m 0 -q < $uid/$page > $uid/raster.jbig
-
-		# Taking image size
-		jsize=`wc -c < $uid/raster.jbig`
-
-		# Taking image dimensions
-		read fn ft xs ys garb < <(identify $uid/$page | tr "x" " ")
-
-		# Flushing page header
-		cat <<EOF
-@PJL SET PAGESTATUS=START$e
-@PJL SET COPIES=1$e
-@PJL SET MEDIASOURCE=$mediasource$e
-@PJL SET MEDIATYPE=PLAINRECYCLE$e
-@PJL SET PAPER=$pagesize$e
-@PJL SET PAPERWIDTH=$xs$e
-@PJL SET PAPERLENGTH=$ys$e
-@PJL SET RESOLUTION=${resolution%x600}$e
-@PJL SET IMAGELEN=$jsize$e
-EOF
-
-		log "Flushing image $page"
-		cat $uid/raster.jbig
-
-		# Flushing page footer
-		# TODO: pixelcount for toner estimate
-		cat <<EOF
-@PJL SET DOTCOUNT=1132782$e
-@PJL SET PAGESTATUS=END$e
-EOF
+		page=$uid/$page
+		output_page
 	    }
 	done
 	) &
@@ -147,61 +172,18 @@ EOF
 	gs -sDEVICE=ps2write -sOutputFile=- -r$resolution -dQUIET -dBATCH -dNOPAUSE - | gs -sDEVICE=pbmraw -sOutputFile=${uid}/%03d-page.pbm -r$resolution -dQUIET -dBATCH -dNOPAUSE -
 	log "Conversion complete"
 
-	cat <<EOF
-%-12345X@PJL$e
-@PJL SET TIMESTAMP=$ddate$e
-@PJL SET FILENAME=Document$e
-@PJL SET COMPRESS=JBIG$e
-@PJL SET USERNAME=$user$e
-@PJL SET COVER=OFF$e
-@PJL SET HOLD=OFF$e
-EOF
+	output_header
 
 	for page in ${uid}/*-page.pbm; do
-
-		log "Page $page"
-		# Converting page to JBIG format (parameters are very special for this printer!)
-		pbmtojbg -p 72 -o 3 -m 0 -q < $page > $uid/raster.jbig
-
-		# Taking image size
-		jsize=`wc -c < $uid/raster.jbig`
-
-		# Taking image dimensions
-		read fn ft xs ys garb < <(identify $page | tr "x" " ")
-		log "Identified as ${xs}x${ys}"
-
-		# Flushing page header
-		cat <<EOF
-@PJL SET PAGESTATUS=START$e
-@PJL SET COPIES=1$e
-@PJL SET MEDIASOURCE=$mediasource$e
-@PJL SET MEDIATYPE=PLAINRECYCLE$e
-@PJL SET PAPER=$pagesize$e
-@PJL SET PAPERWIDTH=$xs$e
-@PJL SET PAPERLENGTH=$ys$e
-@PJL SET RESOLUTION=${resolution%x600}$e
-@PJL SET IMAGELEN=$jsize$e
-EOF
-
-		# Flushing image
-		cat $uid/raster.jbig
-
-		# Flushing page footer
-		# TODO: pixelcount for toner estimate
-		cat <<EOF
-@PJL SET DOTCOUNT=1132782$e
-@PJL SET PAGESTATUS=END$e
-EOF
+	    output_page
 	done
 
 	# Flushing PJL footer
-	cat <<EOF
-@PJL EOJ$e
-%-12345X
-EOF
+	output_footer
 
 }
 
-#rm -rf $uid;
+# only remove the output dir if not debugging
+[ ! "${DEBUG}" = "yes" ] && rm -rf $uid;
 
 exit 0