List of placemats

The parameter VoteRecorderCrossedBox is not intuitive to use. Perhaps the parameter could be somehow reorganised: suggestions welcomed.

/JDAW (JDA) {-0.04 Kern} (W)] def …

/VoteRecorderCrossedBox {VoteRecorderShowTotalRow VoteRecorderSheetNum GetEU dup {pop Titles WithinTitles get ASCIIfy ThisName ASCIIfy eq ThisName length 0 gt ThisName JDAW ne and and Titles WithinTitles get JDAW eq ThisName (IDJ) eq and or} if} def

Elegant design:

/ColourSchemeTitles /MidGrey def
/ShapesInTitles true def
/ShapesToUse [/Star] def
/ShapesTitlesFill {1 setgray fill} def
/InlineTitles false def

/ShapesInTitles true def
/ShapesToUse [/Flower /Star /Heart] def
/ShapesTitlesFill {1 setgray fill} def
/ShapesTitlesStroke
	{0 setgray 0.18 setlinewidth stroke}
def

First use of /Harrington font since 20^th September 2016; first use of /MidGrey since the Dow magnums on 17^th January 2013 (4¼ years before); and the first use of /MidGrey with a serif font since 22^nd March 2012 (5 years before); and the first use of /MidGrey with /Harrington since 20^th November 2008 (8½ years before), the previous occasion having been 26^th December 2007 (shortly before that, 9⅓ years before this).

/TitlesFont /Harrington def
/CircletextFont /Harrington def
/ColourSchemeTitles /MidGrey def
/ExclusionAnnulusProportionInnerRadiusTitlesAboveBelow 0.005 def
/CircletextMaxFontSizeAbsolute 18 def
/CircletextMaxFontSizeProportionRadius 0.2 def
/InlineTitles false def
/CrossHatchingInside true def
/CrossHatchingTitles false def

/GlassesOnSheets [
	[ 0 1 2  3  4  5 ]
	[ 6 7 8  9 10 11 ]
	[ 12 13 14 ]
] def
% Omitting some less interesting parameters
/PackingNestingColumnMajor true def
/PackingStyles [
	[ /RectangularDislocation /GlassesNumMin 5 ]
	/RightSide
] def

/Magnum (Magnum) def
/TappitHenSans [(T) {-0.08 Kern} (appit Hen)] def
/DecanterLabelsNumCopies {Belowtitles WithinTitles get dup TappitHenSans eq
	{pop 3} {Magnum eq {2} {1} ifelse}
ifelse} def

Also a very complicated PrologueCode, which creates [n,m] data and forms for the stars, then execformed by PaintBackgroundInsideGlassCircles (with /InlinePrefillWhite true def). That allowed the stars’ parameters to be computed together, to maximise resonance with CirclearraysN.

/LogThisExtra (Glasses on these sheets might be the cover photograph of The Book. Hence: Names omitted from Circlearrays, though not from CirclearraysTastingNotes etc; and three copies of JDAW glasses sheets, to allow post-spillage retakes.) def

For which purpose:

/JDAW [(JDA) {-0.05 Kern} (W)] def

/Circlearrays [ CirclearraysTastingNotes
	{dup length 2 ge {dup length 1 sub 0 exch getinterval} if}
forall ] def
	
/GlassesOnSheets [
	[ 0 1 2 3 4 5 ]
	[ 0   2 3 4 5 ]  % AHB and his SW63 are expected to be late,
		             % meaning presumably post-photographs
] def  % /GlassesOnSheets

/GlassesNumCopies {ThisName JDAW eq {3} {1 SheetNum sub} ifelse} def

The branding of its cork revealed the purported SW63 to be a SW66.

Maiden usage of ShapesPrintQuickerDistillSlower, and of BackgroundTextsDecanterLabels (both of which were added to the software for these placemats).

Zodiac characters, ♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓, in fonts /Menlo-Regular and /Menlo-Bold (seemingly with identical zodiac glyphs), made as follows.

/Zodiac [ [ /uni2648 (Aries) ] [ /uni2649 [(T) {-0.04 Kern} (aurus)] ] [ /uni264A (Gemini) ] [ /uni264B (Cancer) ] [ /uni264C (Leo) ] [ /uni264D (Virgo) ] [ /uni264E (Libra) ] [ /uni264F (Scorpius) ] [ /uni2650 (Sagittarius) ] [ /uni2651 (Capricorn) ] [ /uni2652 (Aquarius) ] [ /uni2653 (Pisces) ] ] def

/Circlearrays [ Zodiac { [ exch dup 1 get exch [exch {/Menlo-Regular CurrentFontSize selectfont} exch 0 get {CircletextFont CurrentFontSize selectfont} ] ] } forall ] def

/Titles [ Zodiac {0 get} forall ] def

/SubtitlesTastingNotes [ Zodiac {1 get} forall ] def

/TitlesFont /Menlo-Bold def

• The zodiac was too confusing for the sommelier. Next year Titles to be ‘1’, ‘2’, …, ‘12’.

AP’s translations into German:

/TastingNotesColumnHeadings [ (Zeiten) (Auge) (Nase) (Gaumen) (Punkte) ] def
/VoteRecorderInstruction (Punkte, not rank.) def
/DecantingNotesTopText [(V) {-0.06 Kern} (erkostungsnotizen)] def
/DecantingNotesColumnHeadingTimes (Dekantierzeit) def
/DecantingNotesColumnHeadingNotes (Korken, branding, &c) def
/CorkDisplayTopText (Die Korken) def

Traditionally in The Bell, Wendens Ambo; in 2015 in The White Horse, Newport.

There are sticky labels, seemingly without glasses sheets. But the sticky labels are merely copies of what is on the glasses sheets. So there are glasses sheets, zero copies of which are shown: /GlassesNumCopies 0 def.

Complicated default value of new parameter BackgroundTextsAlignmentVertical worked well.

Change in default fonts, Titles in /TrebuchetMS-Bold (sans-serif, pleasingly weighted, with bright negative spaces); Circlearrays in /Garamond (which I now prefer to /Garamond-Bold).

/GlassesClusteredOnVoteRecorders [
	[   [ 0 1 ]  [ 2 ]  [ 3 4 5 6 7 ]  [ 8 9 10 11 ]   ]
] def

Maiden usage of software with BackgroundTextsOrientation. BackgroundTextsGlassesPaintCode very faint, 127⁄128, because my printer prints greys dark. The /Cochin font looks good.

Also see the letter from Buckingham Palace.

Font: /AccanthisADFStdNo3-Italic.

Decanter labels without glasses sheets, by /GlassesNumCopies 0 def.

On the small sticky labels (5×13 on A4) the CircletextFont is an element of Names; everywhere else it is part of the wine description. Hence /CircletextFont {TypeOfPagesBeingRendered /StickyLabels ne {//true} {StickyLabelsTypeThis 0 eq} ifelse  {TitlesFont} {NamesFont} ifelse} def

Also, and this is regretted, the wrong date.

/InlineTitlesMaxNumberContours {Belowtitles WithinTitles get length 0 eq {2} {1} ifelse} def

First use of the functionality controlled by BackgroundTextsPrePourRefit, StickyLabelsShowBackgroundTexts, and StickyLabelsShowCirclearraysInCircle.

Lots of complicated parameters, available in full from the P’s post.

Much faffing with margins, so that those on the glasses sheet are different, MarginB being large.

/FlightSeparations true def, and, even more unusually, with /FlightSeparationPaintSeparately true def. The first three items of FlightSeparationLines define /Closed paths, used by FlightSeparationPaintCode (“FlightSeparationLineNum 0 eq”, then 1, then 2) as clipping regions. Decorative lines, very thin, are painted. The remainder of FlightSeparationLines defines the boundary paths. FlightSeparationPaintCode does nothing with these until the last one, so these are in effect not …PaintSeparately’d. And that last item paints a thick black line inside a gsave … grestore, and then a less thick white line. The setlinecaps avoid bleed.

There is a broader lesson from these complicated parameters. The program is written in PostScript, and is structured to allow, perhaps even encourage, code injection. In almost all parameters the user has full access to the whole of PostScript, and to the values of the variables maintained by the code. E.g., FlightSeparationLineNum is there to be used. That gives great power, but full access to that power requires being able to use PostScript.

/ShrinkRadii [ 0 0 1 ] def and /MaxRadius 180 def to have larger table-wine glasses.

/InlineTitles {WithinTitles 9 le} def for the differential patterning.

Example element of Titles: [(Ch) {UnderlineBegin} (8) {UnderlinePaint} (5)]

Temporarily, /EmptyGlassesPageAtStart true def, just to make this image which was used here. Image having been made, EmptyGlassesPageAtStart was reverted to false to make the printed and retained PDF.

Also, after the tasting, the maiden use of GlassesAnnotations.

/CircletextsMinCopies {WithinTitles 3 eq {5} {1} ifelse} def

This gave the tightest packing. Does it suggest a need for a new parameter that automatically does a tight-packing optimisation? Hmm. Maybe. (Edit: done, as CircletextsTweakSize.)

Also, the maiden usage of FontSizesTitlesEquivalences.

There are sticky labels, seemingly without glasses sheets. But the sticky labels can only contain copies of what is on the glasses sheets. So there are glasses sheets, zero copies of which are shown: /NonDecanterLabelGlassesNumCopies 0 def (later renamed to /GlassesNumCopies).

The previous usage of the font /SnowtopCaps was ghastly. This usage was better.

/TitlesFont /HelveticaNeue-CondensedBold def

/CrossHatchingBackground {WithinTitles 5 le WithinTitles 3 ge and} def
/CrossHatchingTitles {WithinTitles 6 ge} def
/InlineTitles {WithinTitles 5 le} def
/InlineTitlesMaxNumberContours {WithinTitles 2 le {12} {2} ifelse} def

(March 2016: CrossHatchingBackground renamed to CrossHatchingInside.)

/RaysLinesPerGlass 68 def
/MaxRadius 130 def

Greeks only:

/Greeks [
	/alpha /beta /gamma /delta /epsilon /zeta
	/eta /theta /iota /kappa /lambda /mu
	/nu /xi /omicron /pi /rho /sigma
	/tau /upsilon /phi /chi /psi /omega
] def  % /Greeks
/Circlearrays [
	Greeks {[
		exch dup dup length string cvs exch
		[exch {/Helvetica CurrentFontSize selectfont} exch]
	]} forall
] def  % /Circlearrays
/Titles [ Circlearrays {1 get} forall ] def

/PrePourReverseOrder false def
/PageOrderingNonDecanterLabelGlasses [ 0 1 2 3 ] def
/PageOrderingTastingNotePages [ 0 1 2 3 ] def
/PageOrderingVoteRecorder [ 0 1 2 3 ] def
/PageOrderingCorkDisplay [ 0 1 2 3 ] def

Sunday 20^th only: /FooterCenterText-Backstage [ 0 2 4 {ExternalLinks exch get (   )} for pop ] def, which has never before been changed from its default value.

A complicated array in PermittedPackingStyles (since renamed to PackingStyles); and a rare use of FlightSeparationLines.

There was lots of code in the elements of Names, which in newer versions of the software can be done more easily using NamesTastingNotes, NamesVoteRecorder, NamesStickyLabels, and NamesPlaceNames.

A compound string can include code that makes a path. Maybe this was excessive.

Also the maiden usage of cork-display pages.

The usual format for a vertical of VP and SQVP: see Graham and Malvedos on 13 Nov 2012.

It was from these placemats that the log page was shown by default—the log-page code having been present since 20^th January 2008.

Maiden usage of pre-pour pages (though with a Penrose tiling since removed from code).

This has become the canonical format for a vertical comprising a mixture of VP and SQVP: see the Smattering of Graham and Malvedos tasting for links.

The spelling error is regretted.

Also, the maiden outing of InlineTitles.

Maiden usage of OutlineTitles.

Perhaps this tasting was postponed until 9 June 2007?

A draft of these placemats was made using Adobe Illustrator, about three weeks before the event. (The Illustrator file was converted to PDF in March 2015.) Placemats for earlier events were also made in Illustrator. But the used placemats were made in PostScript. So this seems to have been the event at which placemats switched from being artisanal to being industrial.

On 30 Nov 2017 placemats resembling the not-used artisanal design are to be used.

Before the software: made using Adobe Illustrator. (The Illustrator file was converted to PDF in March 2015.)

The names of the people are in the wrong place. Perhaps the names were guillotined.

Before the software: made using Adobe Illustrator, with the two pages in separate files. (The Illustrator files were converted to PDF in March 2015.) And abbreviating Quinta do Noval to a ‘Q’ is slightly embarrassing.

This design can be nearly replicated in the early-2015 software using the following parameters.

/Circlearrays [
	[ (Taylor 1960)  (T60) ]
	[ (Taylor 1970)  (T70) ]
	[ (Taylor 1977 Magnum) ]
	[ (Taylor 1977 Single) ]
	[ (Taylor 1985)  (T85) ]
] def
/Titles [ (T60)  (T70)  (T77)  (T77)  (T85) ] def
/Belowtitles [ () () () () () ] def
/Overtitles [ ()  ()  (Magnum)  (Single)  () ] def

/ThePortForumIconPlacement /None def  
/HeadersLeft [] def  /HeadersCenter [] def  /HeadersRight [] def  

/PermittedPackingStyles [ /Diamonds ] def
/WaterBoxes /None def

/TitlesFont     /Baskerville-Bold def
/CircletextFont /Baskerville def

/ColourSchemeTitles /Black def

/AbovetitleMaxFontSizeProportionTitles 33 90 div def
/ExclusionAnnulusProportionInnerRadiusTitlesAboveBelow 0.1917 def

/InlineTitles false def   /InlineOvertitles true def

/CircletextsTweakSize false def
/CircletextMaxFontSizeMayBeSlightlyExceeded false def
/CircletextMaxFontSizeProportionRadius 0.5 def
/CircletextMaxFontSizeAbsolute 33 def
/CircletextsMaxCopies 2 def

/NamesFontSizeMin 9 def   /NamesFontSizeMax 9 def

A Grace for a Port Tasting

R.

Te inuocamus, Liber Pater, ut nobis adsis qui id quod nunc bibemus dum profertur omnem ad gradum curauisti. te enim praesente uuae clarissimae leuissimis manibus carptae, te praesente pressae in uinum feruerunt. tu quoque adsis, o Siluane, qui durissimum corticem dedisti cuius puro in amplexu, tot per annos nullo calore, nullo frigore conturbatum dormiret. adeste igitur, di immortales, et concedite ut his uinis hodie ita ut uolebant auctores fruamur.

Nunc est bibendum.

Thee we invoke, Liber Pater: be present now, as you were at every step when what we are about to drink was made. For under your care the finest grapes were picked by gentle hands; under your care they were trodden and turned to wine. Be present too, Silvanus, for you gave of the long-lasting cork, in whose clean embrace the wine has slept for many years, disturbed by no excess of heat or cold. Come, Immortal Gods, and grant that we may enjoy these wines as their makers intended.

Now is the time to drink!