Parameters for the placemat software

Data, quotations, and other non-conversational posts containing reference materials.
User avatar
jdaw1
Taylor 1900
Posts: 19666
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 17:22 Sat 04 Mar 2017

Thursday 9th March 2017, {Dow,Graham,Fonseca,Taylor,Warre} × {1980,1983,1983}, at The Boot & Flogger. Image Image Image Image

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
Software version: 17:00 Saturday 4th March 2017.


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 her the row of her host.

Locked

Who is online

Users browsing this forum: No registered users and 0 guests