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.

This entry was posted on Tuesday, May 24th, 2005 at 10:11:28 and is filed under My Story, Technological Love. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.