Skip to content

Food order reminder #163

@jdaw1

Description

@jdaw1

In post 126933 on ThePortForum.com AHB wrote:

… can we incorporate onto the tasting mat or the tasting notes sheet each person's food order? Then each person will know what they ordered and I won't need to shout at everyone to remind them.

As an experiment, implemented with:

/FoodData [
	% TNSheetNum   Name   Food
	0   (Alex B.)      [(Potted crab; with AJM medium-rare bone-in ribeye, B) /eacute (arnaise, green beans)]
	0   (Alan G.)      (Smoked salmon; chicken Caesar, fries)
	0   (Tony Cz.)     (Mackerel and beetroot salad; bangers and mash)
	0   (George G.)    (Melon salad; medium sirloin, green salad, fries)
	0   (Charles R.)   ()
	0   (Julian W.)    (Soup of the day; Beyond Meat burger, carrots)
	0   (Harry H.)     (Potted crab; medium-rare sirloin, carrots, fries)
	0   (Mike M.)      (Potted crab; with PW medium-rare bone-in ribeye, green beans, fries)
	0   (Alex M.)      (Smoked salmon; with AHB medium-rare bone-in ribeye, green beans, fries)
	0   (Tom A.)       [(Duck pat) /eacute (; medium-rare sirloin, peppercorn, green beans)]
	0   (Phil W.)      [(Grilled flatbread; with MPM medium-rare bone-in ribeye, B) /eacute (arnaise, fries)]
	0   (Ian J.)       [(T) {-0.12 Kern} (ruffle mac; medium-rare sirloin, green beans)]
] def  % /FoodData

/PaintForegroundCode
{
	/TastingNotes TypeOfPagesBeingRendered eq
	{
		0  3  FoodData length 1 sub
		{
			FoodData exch 3 getinterval aload pop  3 1 roll
			ASCIIfy ThisName ASCIIfy eq exch TNSheetNum eq and
			{
				PageWidth MgnL MgnR sub add 2 div  MgnB  moveto
				NamesFont 9 selectfont
				dup StringPathBBox pop 3 -1 roll add -2 div exch neg rmoveto
				ShowRecursive
			} {pop} ifelse  % ... ThisName ... TNSheetNum ... and
		} for  % FoodData index
	} if  % /TastingNotes
} bind def  % /PaintForegroundCode

Comment welcomed.

The inclusion of an explicit TNSheetNum is to cope with multi-session tastings.

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions