Code: Select all
/Taylor [(T) {-0.04 Kern} (aylor)] def
/Warre [(W) {-0.06 Kern} (arre)] def
/ParametersVersionDateTimeAdobeFormat (D:201703082100) def
/Circlearrays [
[ (1980) (Fonseca) (IDJ) ]
[ (1983) (Fonseca) (PW) ]
[ (1985) (Fonseca) (DRT) ]
[ (1980) Taylor (IDJ) ]
[ (1983) Taylor (SCD) ]
[ (1985) Taylor (SCP) ]
[ (1980) (Dow) (DRL) ]
[ (1983) (Dow) (MPM) ]
[ (1985) (Dow) (MPM) ]
[ (1980) (Graham) (CPR) ]
[ (1983) (Graham) (AHB) ]
[ (1985) (Graham) (SCP) ]
[ (1980) Warre (TC) ]
[ (1983) Warre (SCD) ]
[ (1985) Warre (CPR) ]
[]
] def
/Titles [
(F80) (F83) (F85)
(T80) (T83) (T85)
(D80) (D83) (D85)
(G80) (G83) (G85)
(W80) (W83) (W85)
()
] def
/Belowtitles [ Circlearrays length {()} repeat ] def
/Names [
(Mike M.)
(Jancis R.) % Jancis Mary Robinson
[(Julian W) {-0.08 Kern} (.)]
(Dave L.) (Charles R.) (Ian J.) (Simon D.) (Alex B.)
[(Simon P) {-0.10 Kern} (.)]
[(T) {-0.10 Kern} (ony C.)]
[/quoteright (Dia G.)]
[(Derek T) {-0.10 Kern} (.)]
[(Phil W) {-0.10 Kern} (.)]
(Jacques C.) % Not certain, only a possible. Hence not on vote-recorder sheets.
()
] def
/NamesAccounts [
Names 0 get
[ Names 2 get ( incl. JMR)]
Names 3 Names length 3 sub getinterval aload pop
] def
/NamesVoteRecorder [ Names aload pop ] dup dup length 2 sub () put def
/ThePortForumIconPlacement {TypeOfPagesBeingRendered /Glasses eq {SheetNum 1 le} {//true} ifelse {/LowerNonWaterBox} {/None} ifelse} def % /None
/HeadersLeft [
0 {TypeOfPagesBeingRendered /Glasses eq {SheetNum 1 le} {//true} ifelse {[(The Boot & Flogger, London SE1 1TA, on Thursday 9) {SuperscriptOn} (th) {SuperscriptOff} ( March 2017)]} {()} ifelse}
] def % /HeadersLeft
/HeadersCenter [
0 {TypeOfPagesBeingRendered /Glasses eq {SheetNum 1 le} {//true} ifelse {(Eighties Matrix)} {()} ifelse}
] def % /HeadersCenter
/HeaderFooterCenterX {PageWidth MgnL MgnR sub add 2 div} def
/HeadersRight [
0
[
(www) {-0.08 Kern} (.) {-0.08 Kern} (ThePortForum.com, )
(www) {-0.08 Kern} (.) {-0.08 Kern} (JancisRobinson.com, )
% (www) {-0.08 Kern} (.) {-0.12 Kern} (W) {-0.08 Kern} (orldOf) {+0.12 Kern} (Port.de, )
(www) {-0.08 Kern} (.jdawiseman.com)
]
] def % /HeadersRight
/ExternalLinks [ % Array, length a multiple of three: indented0-boolean, (Descriptor0), (http://URL0), indented1-boolean, (Descriptor1), (http://URL1), ...
false (Planning on ThePortForum.com) (http://www.theportforum.com/viewtopic.php?t=8637&view=unread#unread)
false (Review on ThePortForum.com) (http://www.theportforum.com/viewtopic.php?t=11484&view=unread#unread)
true (TN: 1980 Dow) (http://www.theportforum.com/viewtopic.php?t=11485&view=unread#unread)
true (TN: 1980 Warre) (http://www.theportforum.com/viewtopic.php?t=11486&view=unread#unread)
true (TN: 1980 Graham) (http://www.theportforum.com/viewtopic.php?t=11487&view=unread#unread)
true (TN: 1980 Fonseca) (http://www.theportforum.com/viewtopic.php?t=11489&view=unread#unread)
true (TN: 1980 Taylor) (http://www.theportforum.com/viewtopic.php?t=11488&view=unread#unread)
true (TN: 1983 Dow) (http://www.theportforum.com/viewtopic.php?t=11490&view=unread#unread)
true (TN: 1983 Warre) (http://www.theportforum.com/viewtopic.php?t=11491&view=unread#unread)
true (TN: 1983 Graham) (http://www.theportforum.com/viewtopic.php?t=11492&view=unread#unread)
true (TN: 1983 Fonseca) (http://www.theportforum.com/viewtopic.php?t=11493&view=unread#unread)
true (TN: 1983 Taylor) (http://www.theportforum.com/viewtopic.php?t=11494&view=unread#unread)
true (TN: 1985 Dow) (http://www.theportforum.com/viewtopic.php?t=11495&view=unread#unread)
true (TN: 1985 Warre) (http://www.theportforum.com/viewtopic.php?t=11496&view=unread#unread)
true (TN: 1985 Graham) (http://www.theportforum.com/viewtopic.php?t=11497&view=unread#unread)
true (TN: 1985 Fonseca) (http://www.theportforum.com/viewtopic.php?t=11498&view=unread#unread)
true (TN: 1985 Taylor) (http://www.theportforum.com/viewtopic.php?t=11499&view=unread#unread)
false (Latest version this placemat) (http://www.jdawiseman.com/2017/20170309_Eighties_Rectangle.pdf)
true (parameters by which made) (http://www.theportforum.com/viewtopic.php?p=103307#p103307)
true (in list of placemats) (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20170309)
false (Food order) (http://www.planetmeehan.com/dlfiles/170309/20170309_ThePortForum_food.pdf)
false (JancisRobinson.com) (http://www.jancisrobinson.com/)
false (Boot & Flogger) (http://www.davy.co.uk/wine-bar/boot-and-flogger/)
true (SE1 1TA, streetmap.co.uk) (http://www.streetmap.co.uk/map.srf?x=532409&y=180083&z=106&pc=SE1+1TA)
true (SE1 1TA, maps.google.co.uk) (https://maps.google.co.uk/maps?z=20&t=k&layer=c&cbll=51.50428,-0.0935&cbp=11,260,,0,0)
true (SE1 1TA, bing.com) (http://www.bing.com/maps/default.aspx?where1=SE1+1TA&cp=51.50428~-0.0935)
] def % /ExternalLinks
/DecanterLabelsNumCopies 1 def
/PlaceNames true def
/GlassesOnSheets [
[ 0 1 2 3 4 5 ]
[ 6 7 8 9 10 11 ]
[ 12 13 14 ]
] def % /GlassesOnSheets
/GlassesOnTastingNotePages [
GlassesOnSheets 0 get
GlassesOnSheets 1 get
[ GlassesOnSheets 2 get aload pop 15 15 15 ]
] def % /GlassesOnTastingNotePages
/VoteRecorderTopTexts [ % Must be same length as GlassesClusteredOnVoteRecorders, each sub-array containing some number of TopTexts
[ (Wine Of The Night?) /questiondown ]
] def % Must be same length as GlassesClusteredOnVoteRecorders
/GlassesClusteredOnVoteRecorders [ [
GlassesOnSheets 0 get 0 3 getinterval
GlassesOnSheets 0 get 3 3 getinterval
GlassesOnSheets 1 get 0 3 getinterval
GlassesOnSheets 1 get 3 3 getinterval
GlassesOnSheets 2 get
] VoteRecorderTopTexts length 1 sub {dup} repeat ] def % triple-depth array, same length as VoteRecorderTopTexts and VoteRecorderShowTotalRow
/GlassesClusteredOnDecantingNotes GlassesClusteredOnVoteRecorders 0 1 getinterval def
/GlassesClusteredOnCorkDisplay GlassesClusteredOnDecantingNotes def
/PackingNestingColumnMajor true def % Default value, which can be overridden at the level of the individual item of PackingStyles
/PackingStyles [
[ /RectangularDislocation /GlassesNumMin 5 ]
/RightSide
] def % /PackingStyles
Some fiddliness.
• The two six-glass pages need to be arranged differently to the one three-glass page, as specified in PackingStyles, with also /PackingNestingColumnMajor true def. That arrangement also necessitated non-default behaviour for GlassesOnSheets. To keep the TN sizes even, there had to be an extra three blank spaces on the third TN page, affecting GlassesOnTastingNotePages, in turn necessitating that there be a blank in Titles etc.
• The vote-recorded and decanting-note pages should be separated into shippers (rather than the default separation of by TN pages), affecting GlassesClusteredOnVoteRecorders, GlassesClusteredOnDecantingNotes, and (with slightly different affect) GlassesClusteredOnCorkDisplay.
• NamesAccounts merges JMR into the row of her host.