Troff challenge 2

.ps 15
.fam H
.sp 2
.PS 6.5
linethick = 0.8
# re-create this invisible box at the end to fix the z-index
B: box at (0, 0) width 70 height 50 invis

# y labels
for i = 0 to 50 by 5 do {
	sprintf("%.0f", i) at B.sw + (-4, i)
}
# create vertical text by drawing an invisible vertical line
line invis from B.sw - (10, 0) to B.nw - (10, 0) "Post Count" aligned

# y ticks
for i = 5 to 49 by 5 do {
	line from B.sw + (0, i) to B.sw + ( 0.5, i)
	line from B.se + (0, i) to B.se + (-0.5, i)
}

"Month Name"  at B.s - (0, 8)
"Open Mic Posts Per Month in NJ CL Sections"  at B.n + (0, 4)

copy thru { $1 at B.sw + ($2, -3) } until "END"
"September" 0
"October"  14
"November" 28
"December" 42
"January"  56
"February" 70
END
# x ticks
for i = 14 to 69 by 14 do {
	line from B.sw + (i, 0) to B.sw + (i,  0.5)
	line from B.nw + (i, 0) to B.nw + (i, -0.5)
}

move to B.sw + (0, 1)
define datapoint {
	line to B.sw + ($1, $2) color "red";
	move up    0.4
	line down  0.8 color "red"
	move up    0.4
	move left  0.4
	line right 0.8 color "red"
	move left  0.4
}
datapoint( 0,  1)
datapoint(14, 23)
datapoint(28, 31)
datapoint(42, 42)
datapoint(56, 32)
datapoint(70, 47)

box at (0, 0) width B.width height B.height
.PE