Worus

Last night I sat down and implemented the dashed line logic that we use on our mailings. If the job isn’t run as an iGen job, we don’t usually print the bars. Instead, we print a series of dotted lines, because we can’t adjust the pattern command’s line spacing to emulate a dotted line. I give you native, dashed lines for Jet Letter.

.LABEL HORIZONTALBAR
.SET Length 3.00
.SET dt 0.05
.SET Pitch 0.005
.SET Total 0
.WHILE Total < Length
	.INDENT dt
	.RULE dt Pitch
.. MOVE LINE SPACE
	.INCREMENT Total BY dt
	.INDENT dt
.. MOVE WHITESPACE
	.INDENT dt
	.INCREMENT Total BY dt
.ENDLOOP
.RETURN

.LABEL VERTICALBAR
.SET Length 11.85
.SET dt 0.05
.SET Pitch 0.005
.SET Total 0
.WHILE TOTAL < Length
	.RULE Pitch dt
.. MOVE LINE SPACE
	.INCREMENT Total BY dt
	.JUMP dt
.. MOVE WHITESPACE
	.JUMP dt
	.INCREMENT Total BY dt
.ENDLOOP
.RETURN

There are some things that I could change. I could write a version that uses arguments, but typically one doesn’t want to have to change six function calls for a horizontal line in a job (usually, you only use one length throughout a job). Also, this logic isn’t exact unless Length is divisible by dt. I need to implement a final partial line that would be smaller than dt, but it looks really good as it is.

I got assigned another project this afternoon. Guess when it’s due? June 1!