(///users/sweet.pa/fumc/register.jam) =
constants
(width) 8.5 .def
(height) 5.5 .def
(sideMargin) .2 .def
(bottomMargin) .23 .def
(nameWidth) 4.75 .def
(titleHeight) .80 .def
(labelHeight) .5 .def
(name-addr-font) 8 .def
(column-head-font) 8 .def
(bigger-head-font) 12 .def
(small-church-font) 10 .def
(church-font) 12 .def
(title-font) 16 .def
(turn-font) 8 .def
(name-indent) .25 .def
(date-width) 1 .def
utilities
(narrowLine) (1 .setstrokewidth black .setcolor) .cvx .def
(mediumLine) (2 .setstrokewidth black .setcolor) .cvx .def
(wideLine) (3 .setstrokewidth black .setcolor) .cvx .def
(centeredShow) ( 0 0 .setxy (theText) .exch .store -0.5 1 .scale .true .setnoimage theText .show -2 1 .scale .false .setnoimage theText .show).cvx .def
(centeredSqueeze) {{ 0 0 .setxy .90 1 .scale (theText) .exch .store -0.5 1 .scale .true .setnoimage theText .show -2 1 .scale .false .setnoimage theText .show}.cvx .dosave} .cvx .def
(rjShow) ( 0 0 .setxy (theText) .exch .store -1 1 .scale .true .setnoimage theText .show -1 1 .scale .false .setnoimage theText .show).cvx .def
(serif-font){(xerox/pressfonts/timesroman-mrr) .exch 0 .nsrsetfont}.cvx .def
(set-font){(xerox/pressfonts/helvetica-mrr) .exch 0 .nsrsetfont}.cvx .def
(inches) {72 .mul} .cvx .def
(goX) {inches 0 .translate} .cvx .def
(goY) {inches 0 .exch .translate} .cvx .def
(goXY) {inches .exch inches .exch .translate} .cvx .def
(Hline) {inches 0 0 .moveto 0 .lineto .maskstroke} .cvx .def
(Vline) {inches 0 0 .moveto 0 .exch .lineto .maskstroke} .cvx .def
(goX) {inches 0 .translate} .cvx .def
(goY) {inches 0 .exch .translate} .cvx .def
(goXY) {inches .exch inches .exch .translate} .cvx .def
(text) {{.90 1 .scale 0 0 .setxy .show} .cvx .dosave} .cvx .def
(show1-bigger) {{
labelHeight bigger-head-font 72 .div .sub 2 .div goY
centeredShow
}.cvx .dosave}.cvx .def
(show1) {{
labelHeight column-head-font 72 .div .sub 2 .div goY
centeredSqueeze
}.cvx .dosave}.cvx .def
(show3) {{
labelHeight column-head-font 72 .div 3 .mul .sub 2 .div
goY column-head-font 72 .div
.exch centeredSqueeze .dup goY
.exch centeredSqueeze goY
centeredSqueeze
}.cvx .dosave}.cvx .def
(show4) {{
labelHeight column-head-font 72 .div 4 .mul .sub 2 .div
goY column-head-font 72 .div
.exch centeredSqueeze .dup goY
.exch centeredSqueeze .dup goY
.exch centeredSqueeze goY
centeredSqueeze
}.cvx .dosave}.cvx .def
(showTitle2) {{
titleHeight title-font 72 .div 2 .mul .sub 2 .div
goY title-font 72 .div
.exch centeredShow goY
centeredShow
}.cvx .dosave}.cvx .def
(showlines) {{
(w0) width sideMargin 2 .mul .sub .store
(w1) w0 nameWidth .sub 7 .div .store
(h2) height bottomMargin .sub titleHeight .sub .store
(h0) h2 labelHeight .sub 7 .div .store
(h1) h0 2 .div .store
sideMargin bottomMargin goXY
mediumLine w0 Hline
h1 goY narrowLine nameWidth Hline h1 goY
mediumLine w0 Hline
h1 goY narrowLine nameWidth Hline h1 goY
mediumLine w0 Hline
h1 goY narrowLine nameWidth Hline h1 goY
mediumLine w0 Hline
h1 goY narrowLine nameWidth Hline h1 goY
mediumLine w0 Hline
h1 goY narrowLine nameWidth Hline h1 goY
mediumLine w0 Hline
h1 goY narrowLine nameWidth Hline h1 goY
mediumLine w0 Hline
h1 goY narrowLine nameWidth Hline h1 goY
mediumLine w0 Hline
labelHeight goY
mediumLine w0 Hline
nameWidth h2 .neg goXY mediumLine h2 Vline
narrowLine
w1 goX h2 Vline
w1 goX h2 Vline
w1 goX h2 Vline
w1 goX h2 Vline
w1 goX h2 Vline
w1 goX h2 Vline
}.cvx .dosave}.cvx .def
(label-rows) {{
name-addr-font set-font
sideMargin bottomMargin goXY
label-one-row h0 goY
label-one-row h0 goY
label-one-row h0 goY
label-one-row h0 goY
label-one-row h0 goY
label-one-row h0 goY
label-one-row h0 goY
}.cvx .dosave}.cvx .def
(label-one-row) {{
name-indent h1 name-addr-font 72 .div .sub goXY
(Address) text .5 nameWidth .mul .dup goX
(City) text .2 nameWidth .mul .dup goX
(Zip Code) text .add .neg goX
h1 goY (Name) text .6 nameWidth .mul goX
(Phone) text
.4 -.1 goXY
0 0 .setxy 18 set-font (( )) .show
}.cvx .dosave}.cvx .def
(label-cols) {{
sideMargin nameWidth 2 .div .add height titleHeight .sub labelHeight .sub .014 .add goXY
bigger-head-font set-font
(Name and Address) show1-bigger
column-head-font set-font
nameWidth w1 .add 2 .div goX
w1 goX
(Member) (of) (this) (Church) show4 w1 goX
(Frequent) (Attender,) (Non-) (Member) show4 w1 goX
(Interested) (in) (Member-) (ship) show4 w1 goX
(Visitor) show1 w1 goX
(Put us) (on the) (mailing) (list) show4 w1 goX
(Desire) (a) (Call) show3
}.cvx .dosave}.cvx .def
(label-form) {{
width 2 .div height titleHeight .sub .014 .add goXY
title-font serif-font
(Welcome to this service of worship. Please register your attendance)
(and pass on to others in the pew as they arrive.)
showTitle2
}.cvx .dosave}.cvx .def
(church-text) {{
width sideMargin .sub bottomMargin church-font 2 .add 72 .div .sub goXY
church-font serif-font (F) .show
small-church-font serif-font (IRST ) .show
church-font serif-font (U) .show
small-church-font serif-font (NITED ) .show
church-font serif-font (M) .show
small-church-font serif-font (ETHODIST ) .show
church-font serif-font (C) .show
small-church-font serif-font (HURCH OF ) .show
church-font serif-font (P) .show
small-church-font serif-font (ALO ) .show
church-font serif-font (A) .show
small-church-font serif-font (LTO) .show
}.cvx .dosave}.cvx .def
(church-name) {{
width sideMargin .sub bottomMargin church-font 1 .add 72 .div .sub goXY
0 0 .setxy
-1 1 .scale .true .setnoimage
church-text
-1 1 .scale .false .setnoimage
church-text
}.cvx .dosave}.cvx .def
(date-slot) {{
narrowLine
width sideMargin .sub height titleHeight .sub column-head-font 3 .add 72 .div .add goXY
date-width .neg Hline
date-width -2 .div column-head-font 72 .div .neg goXY
column-head-font set-font
(Date) centeredSqueeze
}.cvx .dosave}.cvx .def
(turn-page) {{
sideMargin .5 .add bottomMargin turn-font 3 .add 72 .div .sub goXY
turn-font serif-font 0 0 .setxy
(Turn to next sheet when full.) .show
}.cvx .dosave}.cvx .def
(show-form) {{
showlines label-rows label-cols label-form church-name turn-page date-slot
}.cvx .dosave}.cvx .def
(two-up) {{
height goY show-form
width goX 180 .rotate show-form
}.cvx .dosave}.cvx .def
(h-register) {(register.pd) .openhornetpd .true .setpriorityimportant two-up .closepd}.cvx .def
(plateit-register) {(pms-register.pd) .openplatemakerpd .true .setpriorityimportant two-up .closepd}.cvx .def