Parameters for the placemat software

Data, quotations, and other non-conversational posts containing reference materials.
User avatar
jdaw1
Cockburn 1900
Posts: 20477
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.

User avatar
jdaw1
Cockburn 1900
Posts: 20477
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 11:04 Sat 10 Feb 2018

Thursday 15th February 2018, Mr Wolfgang Starz, at The Boot & Flogger. Image Image Image

Code: Select all

/ParametersVersionDateTimeAdobeFormat (D:201802142030) def

/Path-StGeorge  % Bounding path of the red cross of St George
{
	-30 -15 30 15 setbbox
	30 3 moveto  3 3 lineto  3 15 lineto  -3 15 lineto  -3 3 lineto  -30 3 lineto  -30 -3 lineto
	-3 -3 lineto  -3 -15 lineto  3 -15 lineto  3 -3 lineto  30 -3 lineto   closepath
} bind def  % /Path-StGeorge

/Path-StAndrew  % Bounding path of the eight pieces of the blue cross of St Andrew
{
	-30 -15 30 15 setbbox
	5 15 moveto
	5 5.854101966249684544613761 lineto
	23.29179606750063091077248 15 lineto   closepath
	-5 15 moveto
	-5 5.854101966249684544613761 lineto
	-23.29179606750063091077248 15 lineto   closepath
	5 -15 moveto
	5 -5.854101966249684544613761 lineto
	23.29179606750063091077248 -15 lineto   closepath
	-5 -15 moveto
	-5 -5.854101966249684544613761 lineto
	-23.29179606750063091077248 -15 lineto   closepath
	30 5 moveto
	30 11.64589803375031545538624 lineto
	16.70820393249936908922752 5 lineto   closepath
	-30 5 moveto
	-30 11.64589803375031545538624 lineto
	-16.70820393249936908922752 5 lineto   closepath
	30 -5 moveto
	30 -11.64589803375031545538624 lineto
	16.70820393249936908922752 -5 lineto   closepath
	-30 -5 moveto
	-30 -11.64589803375031545538624 lineto
	-16.70820393249936908922752 -5 lineto   closepath
} bind def  % /Path-StAndrew 

/Path-StPatrick  % Bounding path of the four pieces of the red cross of St Patrick
{
	-30 -15 30 15 setbbox
	10 5 moveto
	5.527864045000420607181653 5 lineto
	25.52786404500042060718165 15 lineto
	30 15 lineto   closepath
	-10 -5 moveto
	-5.527864045000420607181653 -5 lineto
	-25.52786404500042060718165 -15 lineto
	-30 -15 lineto   closepath
	-10 5 moveto
	-14.47213595499957939281835 5 lineto
	-30 12.76393202250021030359083 lineto
	-30 15 lineto   closepath
	10 -5 moveto
	14.47213595499957939281835 -5 lineto
	30 -12.76393202250021030359083 lineto
	30 -15 lineto   closepath
} bind def  % /Path-StPatrick 

/UnionJackCount 0 def

% boolFill  Union-Jack  -
/Union-Jack {
	matrix currentmatrix exch currentpoint translate BaseHeight 30 div dup scale  30 15 translate
	{
		1 setgray -30 -15 60 30 rectfill
		0.8 0 0 setrgbcolor Path-StGeorge fill Path-StPatrick fill 0 0 0.4 setrgbcolor Path-StAndrew fill
	}{
		Path-StGeorge Path-StAndrew Path-StPatrick 0 setgray 1 setlinejoin [] 0 setdash stroke
	} ifelse
	30 -15 moveto setmatrix   /EffectiveNumCharacters 1 def  /AsciiEquivalent (UnionJack) def
	/fill load type /operatortype eq {/UnionJackCount dup load 1 add store} if
}  << /fill null /stroke null /rectfill null >> begin bind end  def  % /Union-Jack

/EpilogueCode {mark (UnionJackCount = ) UnionJackCount (, which might be fewer than the number of Union Jacks as some are in a form.) ConcatenateToMark OutputToLog} def  % Executed once, just after painting pages

/PortData [
	[ /dagger                                   ()        1 index ]
	[ [(F) {-0.05 Kern} (60)]                   ()        (Fonseca 1960)                                                        {//true Union-Jack}  (On behalf of WPS)        1 index ]
	[ [(F) {-0.05 Kern} (63)]                   ()        (Fonseca 1963)                                                        {//true Union-Jack}  (AHB)                     1 index ]
	[ [(F) {-0.05 Kern} (66)]                   ()        (Fonseca 1966)                                                        {//true Union-Jack}  (Extra from WPS)          1 index ]
	[ (T66)                                     ()        [(T) {-0.08 Kern} (aylor 1966)]                                       {//true Union-Jack}  (IDJ)                     1 index ]

	[ [(Cr) {-0.02 Kern} (70)]                  ()        (Croft 1970)                                                          {//true Union-Jack}  (DRT)                     1 index ]
	[ (G70)                                     ()        (Graham 1970)                                                         {//true Union-Jack}  (CPR)                     1 index ]
	[ (W70)                                     ()        [(W) {-0.08 Kern} (arre 1970)]                                        {//true Union-Jack}  (DRL)                     1 index ]
	[ (N70)                                     ()        (Quinta do Noval 1970)                                                                     [(JDA) {-0.08 Kern} (W)]          ]
	[ (Ni70)                                    (Dumpy)   (Niepoort 1970)                                                       (\(Dumpy\))          (PW)                              ]
] def  % /PortData

/Titles      [ PortData {0 get} forall ] def
/Belowtitles [ PortData {1 get} forall ] def
/Circlearrays [ PortData {dup length 2 sub 2 exch getinterval} forall ] def

/Names [
	[(Mr W) {-0.05 Kern} (olfgang Starz)]
	[(Mr Julian Wiseman)]
	[(Mr Dave Lund)]
	[(Mr Derek T) {-0.08 Kern} (urnbull)]
	[(Mr Alex Bridgeman)]
	[(Mr Charles Redshaw)]
	[(Mr Ian Johns)]
	[(Mr Phil W) {-0.05 Kern} (akely)]
	()
] def

/HeadersLeft [
	0  [(Boot & Flogger, Thursday 15) {SuperscriptOn} (th) {SuperscriptOff} ( February 2018)]
] def  % /HeadersLeft
/HeadersCenter [
	0  [(A New Subject of Her Majesty: Mr W) {-0.10 Kern} (olfgang Starz)]
] def  % /HeadersCenter

/ExternalLinks [
	false   (Becoming a British Citizen)     (http://www.gov.uk/becoming-a-british-citizen/citizenship-ceremonies)
	false   (Planning thread on ThePortForum.com)   (http://www.theportforum.com/viewtopic.php?t=12295&view=unread#unread)
	false   (Review thread on ThePortForum.com)     (http://www.theportforum.com/viewtopic.php?t=12319&view=unread#unread)
	true	(1960 Fonseca)                          (http://www.theportforum.com/viewtopic.php?t=12320&view=unread#unread)
	true	(1963 Fonseca)                          (http://www.theportforum.com/viewtopic.php?t=12321&view=unread#unread)
	true	(1966 Fonseca)                          (http://www.theportforum.com/viewtopic.php?t=12322&view=unread#unread)
	true	(1966 Taylor)                           (http://www.theportforum.com/viewtopic.php?t=12323&view=unread#unread)
	true	(1970 Croft)                            (http://www.theportforum.com/viewtopic.php?t=12325&view=unread#unread)
	true	(1970 Quinta do Noval)                  (http://www.theportforum.com/viewtopic.php?t=12326&view=unread#unread)
	true	(1970 Graham)                           (http://www.theportforum.com/viewtopic.php?t=12327&view=unread#unread)
	true	(1970 Warre)                            (http://www.theportforum.com/viewtopic.php?t=12328&view=unread#unread)
	true	(1970 Niepoort \(Dumpy\))               (http://www.theportforum.com/viewtopic.php?t=12329&view=unread#unread)
	false   (Latest version this placemat)          (http://www.jdawiseman.com/2018/20180215_Mr_Wolfgang_Starz.pdf)
	true    (in list of placemats)                  (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20180215)
	true    (parameters by which made)              (http://www.theportforum.com/viewtopic.php?p=107728#p107728)
	false   (Food order)                            (http://www.jdawiseman.com/2018/20180215_ThePortForum_food.pdf)
	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, google.co.uk)                 (http://www.google.co.uk/maps/?cid=4115942643000130790&api=1&map_action=pano&viewpoint=51.5042,-0.0934337&heading=-15&pitch=0)
	true    (SE1 1TA, bing.com)                     (http://www.bing.com/maps/default.aspx?where1=SE1+1TA&cp=51.50428~-0.0935)
	true    (What3Words: cafe.humid.palace)         (http://map.what3words.com/cafe.humid.palace)
] def  % /ExternalLinks

/NeckTagsNumCopies 0 def
/DecanterLabelsNumCopies 1 def

/TitlesFont     /Cochin  def  % /AccanthisADFStdNo3-Regular  /ArrayCondensedNormal
/CircletextFont /Optima-Regular def

/TitleMaxHeightProportionInnerRadius 1 def

/InlineTitles false def

/BackgroundTextsGlasses true def
/BackgroundTextsGlassesTexts [
	{//false Union-Jack}
	PortData length 6 div ceiling cvi 1 sub {dup} repeat
] def  % /BackgroundTextsGlassesTexts
/BackgroundTextsAlignmentVertical /Middle def  % number /Middle /Bottom /Top
/BackgroundTextsOrientation /Landscape def  % /Landscape /Portrait /Natural /Rotated
/BackgroundTextsGlassesPaintCode {0.06 setlinewidth 0 setgray stroke} def
/BackgroundTextsTastingNotes false def

/ThePortForumIconColour true def
Software version 22:30 Wednesday 31st January 2018 (it having been updated to cope with compound strings containing user paths, and containing code calling rectfill: reminder, not binded.)


This was to mark Herr Wolfgang Starz becoming a subject of Her Majesty, becoming one of us, becoming Mr Wolfgang Starz. Union Jacks were needed.
Image
• Happily, the internets have a correct Union Jack in PostScript.

• Background Union Jacks were to be stroked; foreground filled with a white rectfill behind. So Union-Jack is code taking a single Boolean parameter: truefill; falsestroke.

EffectiveNumCharacters and AsciiEquivalent weren’t used, but set anyway as good practice. E.g., if a Union Jack has been in the array of Titles, and FontSizesTitlesNotSmallerIfTitlesNotLonger had been true, then the former would have been needed. And in the same circumstance, the latter would have been used for making the PDF’s table of contents.

Union-Jack was complicatedly part binded. It could have been not binded at all, but that has the danger that somebody — me! — years later copying this code would add a bind not realising that the painting commands must not be binded. So the partial bind is really just a note-to-self.

• Also, just for interest, UnionJackCount counts the number of painted Jacks (ans: “UnionJackCount = 3690”). Some calls to this command have fill and stroke re-def’d to do nothing, so that the calling code can know the size of the painted shape. These are not counted. And the standard parameter EpilogueCode outputs UnionJackCount. But, as said, just for interest.

• As has become my preference, Circlearrays, Titles, Belowtitles, etc, all populated from a single data array usually called PortData. (This achieves some of what was intended by a proposal in the software thread on 04 Aug 2011.)

• Without the “/TitleMaxHeightProportionInnerRadius 1 def” the “†” would have been inelegantly tall (“I wonder who will put on your shoes and stockings for you now, dears?”).

• Very rare to see “/ThePortForumIconColour true def”.

• As this thread is to demonstrate the parameters, allow two pictures to show the effect of the Booleans in ExternalLinks:
Image           Image
(Screen shots taken from Preview 10.0 (944.4) under macOS 10.13.3.)

• Other parameters were within the usual range of intricacy.

User avatar
jdaw1
Cockburn 1900
Posts: 20477
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 00:07 Mon 12 Mar 2018

Wednesday 14th March 2018, Blind, SQVP or a mature LBV, at The Boot & Flogger. Image Image Image

Code: Select all

/ParametersVersionDateTimeAdobeFormat (D:201803112300) def


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

/Names [
	(MPM)  (IDJ)  (CPR)  (SCD)  (DRL)
	JDAW
	(CG)  % Constandia
	()
] def

/Circlearrays [
	Names {[ exch ]} forall pop
	[ /sterling ]
	[ /dollar ]
	[ /Euro ]
%	[ /dagger ]
%	[ /daggerdbl ]
] def

/Titles [ Circlearrays {0 get} forall ] def

/Belowtitles [ Circlearrays length {()} repeat ] def


/HeadersLeft [
	0  [(Boot & Flogger, Wednesday 14) {SuperscriptOn} (th) {SuperscriptOff} ( March 2018)]
] def  % /HeadersLeft
/HeadersCenter [
	0  [(SQVP, or LBV ) /lessequal (1989)]
] def  % /HeadersCenter

/ExternalLinks [  % Array, length a multiple of three:  indented0-boolean, (Descriptor0), (http://URL0),  indented1-boolean, (Descriptor1), (http://URL1),  ...
	false   (Thread on ThePortForum.com)     (http://www.theportforum.com/viewtopic.php?t=12297&view=unread#unread)
	false   (Latest version this placemat)   (http://www.jdawiseman.com/2018/20180314_LBV_SQVP_blind.pdf)
	true    (in list of placemats)           (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20180314)
	true    (parameters by which made)       (http://www.theportforum.com/viewtopic.php?p=108131#p108131)
	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, google.co.uk)          (http://www.google.co.uk/maps/?cid=4115942643000130790&api=1&map_action=pano&viewpoint=51.5042,-0.0934337&heading=-15&pitch=0)
	true    (SE1 1TA, bing.com)              (http://www.bing.com/maps/default.aspx?where1=SE1+1TA&cp=51.50428~-0.0935)
	true    (What3Words: cafe.humid.palace)  (http://map.what3words.com/cafe.humid.palace)
] def  % /ExternalLinks

/TitlesFont      /GillSans def

/ShapesInTitles true def
/ShapesToUse [/Star] def  % At least one of: /Flower /Star /Heart

/InlineTitles false def

/ColourSchemeTitles /MidGrey def  % /MidGrey /Black

/TitleMaxHeightProportionInnerRadius 1.5 def

/VoteRecorderTopTexts [  % Must be same length as GlassesClusteredOnVoteRecorders, each sub-array containing some number of TopTexts
	[ (Wine Of The Night?)  /questiondown ]
	[ (What is it?) ]  % If uncommenting this, insert a 'true' into the VoteRecorderShowTotalRow array.
] def  % Must be same length as GlassesClusteredOnVoteRecorders
/VoteRecorderShowTotalRow [ false true ] def  % Must be same length as GlassesClusteredOnVoteRecorders
/VoteRecorderCrossedBox false def
Software version 19:30 Sunday 11th March 2018

Mostly vanilla. Indeed the only non-standard thing was the decorative variations to TitlesFont, ShapesInTitles, ShapesToUse, InlineTitles, ColourSchemeTitles, and the simple usage of VoteRecorderCrossedBox.

User avatar
jdaw1
Cockburn 1900
Posts: 20477
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 21:13 Mon 09 Apr 2018

Tuesday 10th April 2018, A Second Wind for the 1963s?, at The Boot & Flogger.
Image Image

Code: Select all

/ParametersVersionDateTimeAdobeFormat (D:201804092115) def
/ShapesPrintQuickerDistillSlower true def

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

/PortData [
	[  (F)                (Fonseca)                           (PW)            ]
	[  (T)                [(T) {-0.06 Kern} (aylor)]          JDAW            ]
	[  (Cr)               (Croft)                             (DRT)           ]

	[  (D)                (Dow)                               (AHB)           ]
	[  (G)                (Graham)                            (CPR)           ]
	[  (W)                [(W) {-0.04 Kern} (arre)]           (DRL from CPR)  ]
	[  (Ck)               (Cockburn)                          (WPS)           ]

	[  [(C) /aacute (F)]  [(C) /aacute (lem Quinta da Foz)]   (IDJ)           ]
	[  (Cn)               (Constantino)                       (MPM from THRA) ]
	[  (Mk)               (Mackenzie)                         [(T) {-0.06 Kern} (eam from AHB)]  ]
	[  (Ni)               (Niepoort)                          (WG from AP)    ]
	[  (N)                (Quinta do Noval)                   (THRA)          ]
	[  (O)                [(Of) /fl (ey Boa Vista)]           (IDJ)           ]
	[  (RP)               (Ramos Pinto)                       (AP)            ]
] def  % /PortData

/Vintage (1963) def 

/Names [ JDAW  (THRA)  (MPM)  (AHB)  (DRT)  (WPS)  (DRL)  (SCD)  (CPR)  (PW)  (IDJ)  (AP)  (DRT)  () ] def

/PaperType /A3 def  % /A4 /A3 /USL = 8.5"x11", /USLegal = 8.5"x14", /USL2 = 11"x17", [SmallerPts LargerPts]

/Circlearrays [ PortData { [ exch dup 1 get exch 2 get Vintage exch ] } forall ] def
/Titles       [ PortData {0 get} forall ] def
/Overtitles   [ Circlearrays length {Vintage} repeat ] def
/Belowtitles  [ Circlearrays length { ()    } repeat ] def

/HeadersLeft [
	0
	{
		TypeOfPagesBeingRendered /Glasses eq {GlassesOnSheets SheetNum get length 4 ge} {//true} ifelse
		{
			[(Boot & Flogger, T) {-0.06 Kern} (uesday 10) {SuperscriptOn} (th) {SuperscriptOff} ( April 2018)]
		} {[]} ifelse
	}
] def  % /HeadersLeft
/HeadersCenter [
	0
	(A Second Wind for the 1963s?)
] def  % /HeadersCenter

/ExternalLinks [  % Array, length a multiple of three:  indented0-boolean, (Descriptor0), (http://URL0),  indented1-boolean, (Descriptor1), (http://URL1),  ...
	false   (Review thread on ThePortForum.com)     (http://www.theportforum.com/viewtopic.php?t=12383&view=unread#unread)
	true    (1963 Fonseca)                          (http://www.theportforum.com/viewtopic.php?t=12384&view=unread#unread)
	true    (1963 Taylor)                           (http://www.theportforum.com/viewtopic.php?t=12385&view=unread#unread)
	true    (1963 Croft)                            (http://www.theportforum.com/viewtopic.php?t=12386&view=unread#unread)
	true    (1963 Dow)                              (http://www.theportforum.com/viewtopic.php?t=12387&view=unread#unread)
	true    (1963 Graham)                           (http://www.theportforum.com/viewtopic.php?t=12388&view=unread#unread)
	true    (1963 Warre)                            (http://www.theportforum.com/viewtopic.php?t=12389&view=unread#unread)
	true    (1963 Cockburn)                         (http://www.theportforum.com/viewtopic.php?t=12390&view=unread#unread)
	true    [(1963 C) /aacute (lem Quinta da Foz)]  (http://www.theportforum.com/viewtopic.php?t=12391&view=unread#unread)
	true    (1963 Constantino)                      (http://www.theportforum.com/viewtopic.php?t=12392&view=unread#unread)
	true    (1963 Mackenzie)                        (http://www.theportforum.com/viewtopic.php?t=12393&view=unread#unread)
	true    (1963 Niepoort)                         (http://www.theportforum.com/viewtopic.php?t=12394&view=unread#unread)
	true    (1963 Quinta do Noval)                  (http://www.theportforum.com/viewtopic.php?t=12395&view=unread#unread)
	true    (1963 Offley)                           (http://www.theportforum.com/viewtopic.php?t=12396&view=unread#unread)
	true    (1963 Ramos Pinto)                      (http://www.theportforum.com/viewtopic.php?t=12397&view=unread#unread)
	false   (Planning thread on ThePortForum.com)   (http://www.theportforum.com/viewtopic.php?t=12330&view=unread#unread)
	false   (Latest version this placemat)          (http://www.jdawiseman.com/2018/20180410_1963s.pdf)
	true    (in list of placemats)                  (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20180410)
	true    (parameters by which made)              (http://www.theportforum.com/viewtopic.php?p=108466#p108466)
	false   (Food order)                            (http://www.jdawiseman.com/2018/20180410_ThePortForum_food.pdf)
	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, google.co.uk)                 (http://www.google.co.uk/maps/?cid=4115942643000130790&api=1&map_action=pano&viewpoint=51.5042,-0.0934337&heading=-15&pitch=0)
	true    (SE1 1TA, bing.com)                     (http://www.bing.com/maps/default.aspx?where1=SE1+1TA&cp=51.50428~-0.0935)
	true    (What3Words: cafe.humid.palace)         (http://map.what3words.com/cafe.humid.palace)
] def  % /ExternalLinks

/DecanterLabelsNumCopies 1 def

/PackingNestingColumnMajor true def  % Default value, which can be overridden at the level of the individual item of PackingStyles

/OvertitleMaxFontSizeProportionTitles 0.125 def

/ShapesInTitles true def
/ShapesInAbovetitles false def
/ShapesInBelowtitles false def
/ShapesInOvertitles false def
/ShapesToUse [/Star] def  % At least one of: /Flower /Star /Heart
/ShapesStarsPointsAndStepsArray [ [5 2] [7 3] [8 3] ] def  % Less-polygonal more-pointy: [[3 1.31844] [4 1.79214] [5 2.27823] [6 2.77012] [7 3.26502] [8 3.76162] [9 4.25925]]

/InlineTitles false def

/ColourSchemeTitles /MidGrey def  % /MidGrey /Black

/PrePourReverseOrder false def

/LogThisExtra (From a tasting note of Fonseca 1963 at http://www.ThePortForum.com/viewtopic.php?p=107800#p107800\n\t"Are the 1963s coming into their second wind?"\nThis needed testing.) def
Software version 20:30 Tuesday 3rd April 2018

All fairly vanilla.

User avatar
jdaw1
Cockburn 1900
Posts: 20477
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 20:57 Thu 03 May 2018

Tuesday 8th May 2018, at The RAF Club, ahead of AHB’s first BFT, with a theme of ‘Something nice from the 60s’, as arranged by Axel P. of WorldOfPort.de.
Image Image

Code: Select all

/PDF_title [(Sixties, pre-BFT 2018)] def  % Appears as tab name in browser

/PortData [
	[ (Cr60)                                    ()              (Croft)                     (1960)  (CPR) ]
	[ (F60)                                     ()              (Fonseca)                   (1960)  [(JDA) {-0.08 Kern} (W)] ]
	[ [(Hv6) {-0.03 Kern} (2)]                  ()              (Harvey)                    (1962)  (AP) ]

	[ (Dl63)                                    (Golden White)  (Dalva Golden White)        (1963)  (EC) ]
	[ (F63)                                     ()              (Fonseca)                   (1963)  (WG) ]
	[ (T63)                                     ()              [(T) {-0.08 Kern} (aylor)]  (1963)  (PW) ]

	[ (S63)                                     ()              (Sandeman)                  (1963)  (SAI) ]
	[ [(Av6) {-0.03 Kern} (3)]                  ()              (Avery)                     (1963)  (WPS)]

	[ (D63)                                     ()              (Dow)                       (1963)  (VDSS) ]  % VDSS = Caprica = vadasise@sapo.pt
	[ [(W) {-0.03 Kern} (6) {-0.06 Kern} (3)]   ()              [(W) {-0.08 Kern} (arre)]   (1963)  (MPM) ]
	[ (Fs63)                                    ()              (Feist)                     (1963)  (JB) ]

	[ (N66)                                     ()              (Quinta do Noval)           (1966)  (CMAG) ]
	[ (F66)                                     ()              (Fonseca)                   (1966)  (TC) ]
	[ (T66)                                     ()              [(T) {-0.08 Kern} (aylor)]  (1966)  (IDJ) ]
] def

/Circlearrays [ PortData {dup length 2 sub 2 exch getinterval} forall ] def
/Titles [ PortData {0 get} forall ] def
/Belowtitles [ PortData {1 get} forall ] def

/Names [
	PortData {dup length 0 gt {dup length 1 sub get dup dup length 1 gt exch type /nametype ne and {counttomark 1 sub -1 1 {index 1 index eq {pop exit} if} for} {pop} ifelse} {pop} ifelse} forall
	()
] def

/PaperType /A3 def  % /A4 /A3 /USL = 8.5"x11", /USLegal = 8.5"x14", /USL2 = 11"x17", [SmallerPts LargerPts]

/HeadersLeft [
	0  [(The RAF Club, T) {-0.06 Kern} (uesday 8) {SuperscriptOn} (th) {SuperscriptOff} ( May 2018)]
] def  % /HeadersLeft
/HeadersCenter [
	0  [(Something nice from the sixties)]
] def  % /HeadersCenter
/HeadersRight [
	0
	[
		(www) {-0.08 Kern} (.) {-0.08 Kern} (ThePortForum.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   (Review thread on ThePortForum.com)     (http://www.theportforum.com/viewtopic.php?t=12423&view=unread#unread)
	true    (1960 Croft)                            (http://www.theportforum.com/viewtopic.php?t=12424&view=unread#unread)
	true    (1960 Fonseca)                          (http://www.theportforum.com/viewtopic.php?t=12425&view=unread#unread)
	true    (1962 Harvey)                           (http://www.theportforum.com/viewtopic.php?t=12426&view=unread#unread)
	true    (1963 Dalva Golden White)               (http://www.theportforum.com/viewtopic.php?t=12427&view=unread#unread)
	true    (1963 Fonseca)                          (http://www.theportforum.com/viewtopic.php?t=12428&view=unread#unread)
	true    (1963 Taylor)                           (http://www.theportforum.com/viewtopic.php?t=12429&view=unread#unread)
	true    (1963 Sandeman)                         (http://www.theportforum.com/viewtopic.php?t=12430&view=unread#unread)
	true    (1963 Avery)                            (http://www.theportforum.com/viewtopic.php?t=12431&view=unread#unread)
	true    (1963 Dow)                              (http://www.theportforum.com/viewtopic.php?t=12432&view=unread#unread)
	true    (1963 Warre)                            (http://www.theportforum.com/viewtopic.php?t=12433&view=unread#unread)
	true    (1963 Feist)                            (http://www.theportforum.com/viewtopic.php?t=12434&view=unread#unread)
	true    (1966 Quinta do Noval)                  (http://www.theportforum.com/viewtopic.php?t=12435&view=unread#unread)
	true    (1966 Fonseca)                          (http://www.theportforum.com/viewtopic.php?t=12436&view=unread#unread)
	true    (1966 Taylor)                           (http://www.theportforum.com/viewtopic.php?t=12437&view=unread#unread)
	false   (Planning thread on ThePortForum.com)   (http://www.theportforum.com/viewtopic.php?t=00175&view=unread#unread)
	false   (Latest version this placemat)          (http://www.jdawiseman.com/2018/20180508_Sixties.pdf)
	true    (parameters by which made)              (http://www.theportforum.com/viewtopic.php?p=108766#p108766)
	true    (in list of placemats)                  (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20180508)
	false   (WorldOfPort.de)                        (http://www.worldofport.de/index%20EN.html)
	false   (The Royal Air Force Club)              (https://www.rafclub.org.uk/)
	false   (W1J 7PY, streetmap.co.uk)              (http://www.streetmap.co.uk/map.srf?x=528568&y=179998&z=106&pc=W1J+7PY)
	false   (W1J 7PY, bing.com)                     (http://www.bing.com/maps/default.aspx?where1=W1J+7PY&cp=51.5043~-0.1487)
] def  % /ExternalLinks

/PackingNestingColumnMajor true def  % Default value, which can be overridden at the level of the individual item of PackingStyles

/FontSizesRatioTitlesMin 1 def  % Titles font sizes must be equal, or differ by at least this factor.

/InlineTitles false def

/ShapesInTitles true def
/ShapesToUse [/Star] def  % At least one of: /Flower /Star /Heart
/ShapesStarsPointsAndStepsArray [[7 3] [9 4]] def
/ShapesEnclosingCircleRadiusMin {ShapesAverageSeparation 0.5 mul} def
/ShapesEnclosingCircleRadiusMax {ShapesAverageSeparation 0.7 mul} def
/ShapesAverageMaxTweakPlusMinus {ShapesAverageSeparation 0.15 mul} def

/CrossHatchingTitles false def

/FlightSeparations true def
/FlightSeparationLines
[
	[  % +SheetNum 0
		[  [/Top 0 3] [/Bottom 2 5]  ]
		[  [/Top 8 11] [/Bottom 10 13]  ]
		[  [/Top 3 6 0.5] [3 6] [3 4] [0 3] [/Top 0 3]  ]
	]  % -SheetNum 0
] def  % /FlightSeparationLines
/FlightSeparationPaintCode {0 setlinecap 1.2 setlinewidth 0.6 setgray stroke} def
Software version 23:30 Tuesday 1st May 2018

A few matters of note.

• In a web browser, the tab names comes from the new parameter PDF_title.

• Unusual to faff with the sizes of the Shapes….

FlightSeparationLines always a bit tricksy, but this not especially so.

User avatar
jdaw1
Cockburn 1900
Posts: 20477
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 19:55 Fri 11 May 2018

Tuesday 15th May 2018, Port Fit for a (New) Duchess, at The Boot & Flogger. Image Image Image

Code: Select all

/ParametersVersionDateTimeAdobeFormat (D:201805131630) def

/PDF_title (Royal Wedding celebration, 15 May 2018) def  % Appears as tab name in browser


/PortData [
	% [ Title   Abovetitle Belowtitle Overtitle  Circlearray... ]
	[   (?11)    ()            ()         ()     (Unknown Shipper)    (1911)  (TC) ]
	[   (S60)    ()            ()         ()     (Sandeman)           (1960)  (AHB)  ]
	[   (O60)    ()            ()         ()     [(Of) /fl (ey)]      (1960)  (WPS) ]

	[   (Cr60)   ()            ()         ()     (Croft)              (1960)  (IDJ) ]
	[   (N60)    ()            ()         ()     (Quinta do Noval)    (1960)  (DRL)  ]

	[   (D60)    ()            ()         ()     (Dow)                (1960)  (THRA) ]
	[   (F60)    ()            ()         ()     (Fonseca)            (1960)  (TC) ]
	[   (GM68)   ()            ()         ()     (Graham Malvedos)    (1968)  (SCD)  ]

	[   (S70)    ()            ()         ()     (Sandeman)           (1970)  (CA)  ]
	[   (F70)    ()            ()         ()     (Fonseca)            (1970)  (DRT) ]

	[   (D70)    ()            (Magnum)   ()     (Dow)                (1970)   3 index  [(JDA) {-0.04 Kern} (W) {-0.06 Kern} (+DEA)] ]
	[   (G70)    ()            (Magnum)   ()     (Graham)             (1970)   3 index  (CPR) ]
	[   [(G8) {-0.033 Kern} (2)] [(T) {-0.06 Kern} (awny)] [(Some) /multiply (20cl)] () (Graham) (1982) [(Single Harvest T) {-0.06 Kern} (awny)]  (TAJS) ]
] def  % /PortData

/Circlearrays [ PortData { dup length 4 sub 4 exch getinterval } forall ] def

/Titles      [ PortData {0 get} forall ] def
/Abovetitles [ PortData {1 get} forall ] def
/Belowtitles [ PortData {2 get} forall ] def
/Overtitles  [ PortData {3 get} forall ] def

/Names [
	[(Julian W) {-0.12 Kern} (.)]
	(Ian J.)
	(Dan A.)  % DEA = Dan Azzopardi, right-handed
	[(T) {-0.06 Kern} (om S.)]  % Tom A. J. Symington, right-handed
	[(T) {-0.06 Kern} (om A.)]
	(Alex B.)
	[(T) {-0.06 Kern} (ony C.)]
	(Dave L.)
	(Chris A.)  % Chris Appleby, Apples1981
	[(Derek T) {-0.12 Kern} (.)]
	(Simon D.)
	(Charles R.)
	[(W) {-0.08 Kern} (olfgang S.)]
	()
] def

/PaperType /A3 def  % /A4 /A3 /USL = 8.5"x11", /USLegal = 8.5"x14", /USL2 = 11"x17", [SmallerPts LargerPts]

/HeadersLeft [
	0  [(Boot & Flogger, T) {-0.06 Kern} (uesday 15) {SuperscriptOn} (th) {SuperscriptOff} ( May 2018)]
] def  % /HeadersLeft
/HeadersCenter [
	0  [(Port Fit for a \(New\) Duchess)]
] def  % /HeadersCenter
/HeadersRight [
	0
	[
		(www) {-0.06 Kern} (.Royal.uk, )
		(www) {-0.06 Kern} (.) {-0.12 Kern} (ThePortForum.com, )
		(www) {-0.06 Kern} (.jdawiseman.com)
	]
] def  % /HeadersRight

/PlaceNames true def
/DecanterLabelsNumCopies 1 def

/ExternalLinks [  % Array, length a multiple of three:  indented0-boolean, (Descriptor0), (http://URL0),  indented1-boolean, (Descriptor1), (http://URL1),  ...
	false   (The Wedding, at Royal.uk)               (http://www.royal.uk/royalwedding/)
	false   (Latest version this placemat)           (http://www.jdawiseman.com/2018/20180515_RoyalWedding.pdf)
	true    [/ellipsis ( parameters by which made)]  (http://www.theportforum.com/viewtopic.php?p=108829#p108829)
	true    [/ellipsis ( in list of placemats)]      (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20180515)
	true    [(Heart B) /eacute (zier)]               (http://www.jdawiseman.com/2017/20170527_Bezier_Heart.xlsx)
	false   (Planning on ThePortForum.com)           (http://www.theportforum.com/viewtopic.php?t=12107&view=unread#unread)
	false   (Review on ThePortForum.com)             (http://www.theportforum.com/viewtopic.php?t=12440&view=unread#unread)
	true    (1911 Unknown)                           (http://www.theportforum.com/viewtopic.php?t=12441&view=unread#unread)
	true    (1960 Sandeman)                          (http://www.theportforum.com/viewtopic.php?t=12442&view=unread#unread)
	true    (1960 Offley)                            (http://www.theportforum.com/viewtopic.php?t=12443&view=unread#unread)
	true    (1960 Croft)                             (http://www.theportforum.com/viewtopic.php?t=12444&view=unread#unread)
	true    (1960 Quinta do Noval)                   (http://www.theportforum.com/viewtopic.php?t=12445&view=unread#unread)
	true    (1960 Dow)                               (http://www.theportforum.com/viewtopic.php?t=12446&view=unread#unread)
	true    (1960 Fonseca)                           (http://www.theportforum.com/viewtopic.php?t=12447&view=unread#unread)
	true    (1968 Graham Malvedos)                   (http://www.theportforum.com/viewtopic.php?t=12448&view=unread#unread)
	true    (1970 Sandeman)                          (http://www.theportforum.com/viewtopic.php?t=12449&view=unread#unread)
	true    (1970 Fonseca)                           (http://www.theportforum.com/viewtopic.php?t=12450&view=unread#unread)
	true    (1970 Dow magnum)                        (http://www.theportforum.com/viewtopic.php?t=12451&view=unread#unread)
	true    (1970 Graham magnum)                     (http://www.theportforum.com/viewtopic.php?t=12452&view=unread#unread)
	true    (1982 Graham Single Harvest Tawny)       (http://www.theportforum.com/viewtopic.php?t=12453&view=unread#unread)
	false   (Food order)                             (http://www.jdawiseman.com/2018/20180515_ThePortForum_food.pdf)
	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, google.co.uk)                  (http://www.google.co.uk/maps/?cid=4115942643000130790&api=1&map_action=pano&viewpoint=51.5042,-0.0934337&heading=-15&pitch=0)
	true    (SE1 1TA, bing.com)                      (http://www.bing.com/maps/default.aspx?where1=SE1+1TA&cp=51.50428~-0.0935)
	true    (What3Words: cafe.humid.palace)          (http://map.what3words.com/cafe.humid.palace)
] def  % /ExternalLinks

/ThePortForumIconColour true def

/PackingNestingColumnMajor true def

/PlaceNamesFirstAndThirdFoldsFromEdge 36 def  % Use 0 if printing on stiff card, 36 if printing on paper.

/CircletextFont /Cochin def

/ShapesInTitles true def
/ShapesToUse [/Heart] def  % At least one of: /Flower /Star /Heart
/ShapesTitlesFill   { [ {0.8 0 0 setrgbcolor}   {0.9 setgray}  {0 0 0.4 setrgbcolor}  {1 0.08 0.58 setrgbcolor}  {1 43 51 div 0 setrgbcolor}   ] ShapesIntX 2 mul ShapesIntY add WithinTitles add 5 mod 5 add 5 mod get exec fill  } def
/ShapesTitlesStroke { [ {0 setgray}             dup            {0.6 setgray}          {0 1 0 setrgbcolor}        {0.722 0.451 0.2 setrgbcolor} ] ShapesIntX 2 mul ShapesIntY add WithinTitles add 5 mod 5 add 5 mod get exec stroke} def

/InlineTitlesMaxNumberContours 2 def
Software version: 14:00 Saturday 12th May 2018.

• Tricksiness with ShapesInTitles. For a wedding event, hearts seemed natural. Five colours. If they were scattered randomly over the wobbled square grid, on average 59% of non-edge hearts would have a neighbour of the same colour scheme (as 1−⅘⁴ = 59.04%). Ick. So instead it indexes using the internal looping parameters, 2×ShapesIntX + ShapesIntY being a pattern in which each is a knight’s move from others of the same colour. That modulo 5 (except that PostScript’s mod is actually a remainder function, hence the awkward 5 mod 5 add 5 mod) then reaches into a set of Union-Jack and royal colours, plus a vivid pink.

• The /InlineTitlesMaxNumberContours 2 def with the coloured shapes was quite elegant. The inner lines are drawn under everything else (it must be thus, because of the absence of an ‘anticlip’ operator), and the outermost line drawn over.

User avatar
jdaw1
Cockburn 1900
Posts: 20477
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 19:49 Fri 01 Jun 2018

Tuesday 5th June 2018, Eights, at The Boot & Flogger. Image Image

Code: Select all

/ParametersVersionDateTimeAdobeFormat (D:201806032200) def

/Team [(T) {-0.06 Kern} (eam from TC)] def

/PortData [
	% Title                                        Below   Circlearray
	[  [(?1) {-0.07 Kern} (877)]                  ()                                  (Unknown)                                              (Believed 1877)  (TC)   ]
	[  [(G) {-0.03 Kern} (1) {-0.07 Kern} (897)]  [(Magnum ) /multiply ( ) /onehalf]  (Graham)                                                        (1897)  (Drawn from a magnum)  (AHB)  ]
	[  (G48)                                      ()                                  (Graham)                                                        (1948)  (THRA) ]

	[  [(F) {-0.06 Kern} (48)]                    ()                                  (Fonseca)                                                       (1948)  Team   ]
	[  [(T) {-0.07 Kern} (48)]                    ()                                  [(T) {-0.06 Kern} (aylor)]                                      (1948)  Team   ]
	[  (GM58)                                     ()                                  (Graham Malvedos)                                               (1958)  Team   ]

	[  (N58)                                      ()                                  (Quinta do Noval)                                               (1958)  (IDJ)  ]
	[  (W58)                                      ()                                  [(W) {-0.06 Kern} (arre)]                                       (1958)  Team   ]

	[  (Mz58)                                     ()                                  (Martinez)                                                      (1958)  Team   ]
	[  (RO58)                                     ()                                  (Royal Oporto)                                                  (1958)  Team   ]
	[  (S68)                                      ()                                  (Sandeman)                                                      (1968)  Team   ]

	[  (FG68)                                     ()                                  (Fonseca Guimaraens)                                            (1968)  Team   ]
	[  [(T) {+0.06 Kern} (V78)]                   ()                                  [(T) {-0.06 Kern} (aylor Quinta de V) {-0.06 Kern} (argellas)]  (1978)  (CPR)  ]
	[  (FG88)                                     [(Halves ) /multiply ( 2)]          (Fonseca Guimaraens)                                            (1988)  (From halves)  Team   ]

/Circlearrays [ PortData {dup length 2 sub 2 exch getinterval} forall ] def
/Titles [ PortData {0 get} forall ] def
/Belowtitles [ PortData {1 get} forall ] def

/Names [
	(TC)  (IDJ)  (PW)
	[/quoteright (Dia)]
	(CPR)  (DRL)  (AHB)  (MPM)
	(VDSS)  % VDSS = Caprica = vadasise@sapo.pt
	(THRA)
	[(JDA) {-0.06 Kern} (W)]
	(CMAG)
	()
] def

/PaperType /A3 def  % /A4 /A3 /USL = 8.5"x11", /USLegal = 8.5"x14", /USL2 = 11"x17", [SmallerPts LargerPts]

/HeadersLeft [
	0  [(Boot & Flogger, T) {-0.06 Kern} (uesday 5) {SuperscriptOn} (th) {SuperscriptOff} ( June 2018)]
] def  % /HeadersLeft
/HeadersCenter [
	0  [(8s: Second or Fourth Digit, an ) /quoteleft (8) /quoteright]
] def  % /HeadersCenter
/ExternalLinks [  % Array, length a multiple of three:  indented0-boolean, (Descriptor0), (http://URL0),  indented1-boolean, (Descriptor1), (http://URL1),  ...
	false   (Thread on ThePortForum.com)             (http://www.theportforum.com/viewtopic.php?t=12081&view=unread#unread)
	false   (Latest version this placemat)           (http://www.jdawiseman.com/2018/20180605_Eights.pdf)
	true    [/ellipsis ( parameters by which made)]  (http://www.theportforum.com/viewtopic.php?p=109015#p109015)
	true    [/ellipsis ( in list of placemats)]      (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20180605)
	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, google.co.uk)                  (http://www.google.co.uk/maps/?cid=4115942643000130790&api=1&map_action=pano&viewpoint=51.5042,-0.0934337&heading=-15&pitch=0)
	true    (SE1 1TA, bing.com)                      (http://www.bing.com/maps/default.aspx?where1=SE1+1TA&cp=51.50428~-0.0935)
	true    (What3Words: cafe.humid.palace)          (http://map.what3words.com/cafe.humid.palace)
] def  % /ExternalLinks

/PackingNestingColumnMajor true def  % Default value, which can be overridden at the level of the individual item of PackingStyles

/FontSizesRatioTitlesMin 1 def  % Titles font sizes must be equal, or differ by at least this factor.

/RotationTitlesAboveBelowOverCirclearray {08  Titles WithinTitles get ASCIIfy dup length 2 sub 1 getinterval cvi 2 mod 0 eq {neg} if} def

/NamesFont      /Garamond-Bold def

/ColourSchemeTitles /MidGrey def  % /MidGrey /Black
/ColourSchemeBelowtitles /MidGrey def  % /MidGrey /Black

/ShapesInTitles true def
/ShapesToUse [/Star] def
/ShapesStarsPointsAndStepsArray [ [8 1] [8 2] dup [8 3] dup dup dup ] def

/InlineTitles false def

/PaintBackgroundCode {
	/Glasses TypeOfPagesBeingRendered eq
	{
		<< /ShapesAverageSeparation 48 >> begin
		MgnL MgnB moveto  MgnL PageHeight MgnT sub lineto  PageWidth MgnR sub PageHeight MgnT sub lineto  PageWidth MgnR sub MgnB lineto  closepath
		GlassPositions SheetNum get {aload pop Radii SheetNum get 3 copy add moveto 90 450 arc closepath} forall
		MgnL  MgnB  PageWidth MgnR sub  PageHeight MgnT sub
		{ShapesIntX ShapesIntY add 2 mod 0 eq {1} {0.9375} ifelse setgray fill} {0.24 setlinewidth 0 setgray stroke} ShapesTitlesClip ShapesClippedToPath srand
		end
	} if
} def
Code version: 14:00 Saturday 12th May 2018

• As is usual, the data is stored in PortData, and from there decanted into Circlearrays, Titles, and Belowtitles.

RotationTitlesAboveBelowOverCirclearray is almost always 0; here it is ±8°, the sign determined by whether the decade is odd or even. Observe the ‘ASCIIfy’, which removes from compound strings the likes of “{-0.06 Kern}”.

ShapesStarsPointsAndStepsArray has one octagon, two 8/2 stars, and three 8/3, affecting delivered frequencies.

• And a complicated PaintBackgroundCode. The software makes all its sub-routines available to the user, and also allows the full power of PostScript — best usage of which needs some expertise.

User avatar
jdaw1
Cockburn 1900
Posts: 20477
Joined: 15:03 Thu 21 Jun 2007
Location: London
Contact:

Re: Parameters for the placemat software

Post by jdaw1 » 23:19 Mon 11 Jun 2018

Tuesday 12th June 2018, Bring a bottle to share, at Bar Douro. Image Image Image

Code: Select all

/ParametersVersionDateTimeAdobeFormat (D:201806120020) def

/Names [
	(AHB)  (CPR)  [(JDA) {-0.06 Kern} (W)]  (MPM)
	()
] def

/Circlearrays [
	[ /dagger ]
	Names {[ exch ]} forall  pop
] def

/Titles Circlearrays def

/Belowtitles [ Circlearrays length {()} repeat ] def

/HeadersLeft [
	0  [(Bar Douro, Tuesday 12) {SuperscriptOn} (th) {SuperscriptOff} ( June 2018)]
] def  % /HeadersLeft
/HeadersCenter [
	0  [(Bring a bottle to share)]
] def  % /HeadersCenter

/ExternalLinks [  % Array, length a multiple of three:  indented0-boolean, (Descriptor0), (http://URL0),  indented1-boolean, (Descriptor1), (http://URL1),  ...
	false   (Thread on ThePortForum.com)     (http://www.theportforum.com/viewtopic.php?t=12468&view=unread#unread)
	false   (Latest version this placemat)   (http://www.jdawiseman.com/papers/placemat/placemat.pdf)
	true    [/ellipsis ( parameters by which made)]  (http://www.theportforum.com/viewtopic.php?p=109149#p109149)
	true    [/ellipsis ( in list of placemats)]      (http://www.jdawiseman.com/papers/placemat/placemats_list.html#a20180612)
	false   (Bar Douro)                      (http://www.bardouro.co.uk/)  % Arch 35b Flat Iron Square, Union Street, London, SE1 1TD
	true    (SE1 1TD, streetmap.co.uk)       (http://www.streetmap.co.uk/map.srf?x=532359&y=180067&sv=SE1+1TD)
	true    (SE1 1TD, google.co.uk)          (https://www.google.co.uk/maps/place/Bar+Douro/@51.5043855,-0.0959319,18.21z/)
] def  % /ExternalLinks

/CorkDisplayNumCopies 0 def

/VoteRecorderTopTexts [  % Must be same length as GlassesClusteredOnVoteRecorders, each sub-array containing some number of TopTexts
	[ (Wine Of The Night?)  /questiondown ]
	[ (What is it?) ]  % If uncommenting this, insert a 'true' into the VoteRecorderShowTotalRow array.
] def  % Must be same length as GlassesClusteredOnVoteRecorders
/VoteRecorderShowTotalRow [ false true ] def  % Must be same length as GlassesClusteredOnVoteRecorders

/ColourSchemeTitles /MidGrey def  % /MidGrey /Black

/ShapesInTitles true def
/ShapesToUse [/Flower] def  % At least one of: /Flower /Star /Heart

/InlineTitles false deff
Code version: 14:00 Saturday 12th May 2018

• Quite vanilla.

Locked